LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)*d **************** --- "HANGMAN" ---2n * HANGMAN * FROM WAP VOLUME 0723x * BY * MODIFIED FOR APPLE III' * JEFF MASON * 1986 * (07/20/80) * **************** 80C 2310 A$(5 - !- +KIDWORD.1.0 f-0 !- +READCRT.INVj-7 !tDISKNAME.DATnl6l6&SNOOPY!@3!6.STATE.CAPITALS </'US.QUIZ .'WV.QUIZ ./KIDWORD3.5.INFO$|-+- +KIDWORD.3.5 Z-7!- /KIDWORD1.0.INFO_ /*MENU.MAKER ( Y ;'NJ.QUIZ  -.PRESIDENT.QUIZ !.*PRESIDENTS D/+REQUEST.INV %!+%SEG.T mjY Ÿ/ III.GAMES.0207Bu' )BGRAF.INV( !L++CANADA.QUIZ  .)CONNECT.4  2!- .GRAPH.SKETCHER 5!/!- 'HANGMAN  0!1('MD.QUIZ >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L0)I=8)*50+1): 8 WAS 1A$(1)="PICTURE"A$(2)="PRETZEL"A$(3)="MONSTER"A$(4)="TELEVISION"A$(5)="WATERMELON"A$(6)="BASKET"A$(7)="WHEEL"A$(8)="PLUG"A$(9)="REPAIR""A$(10)="ROCKET",A$(11)="COUCH"6A$(12)="MANUAL"  A PART OF YOUR BODY ON THE SCAFFOLD.+ GET THE WORD BEFORE YOU ARE 'HUNG'!  *** KEY 'ESC' TO END *** : 155;"*********************************************" :155;"** HANGMAN **"#8 155;"modified for Apple ///"B 2120  HEAD *3100 >:2130HRC1$="SORRY--THE WORD WAS " \1570Hf THE OBJECT OF THE GAME IS TO GUESS A WORD ONE LETTER AT A TIME.9p ENTER LETTERS THAT YOU THINK MAY BE IN THE WORD. uKz IF YOU ARE WRONG-YOU WILL LOSE----RIGHT FOOT 3550 2120 ----LEFT FOOT 3500 2120 ----RIGHT LEG 3400 :2120D LEFT LEG X3350 2120 RIGHT ARM 3300 2120 LEFT ARM 3250 2120  BODY 3200 2120  NECK 3150SH TO TRY AGAIN? (Y/N)..'B' for BASIC":W$TW$="Y"W$="y"1660^W$="N"W$="n"1650cW$="B"W$="b"1645 h1600 m::r::".d1/menu.maker" |:734PENCOLOR(%2) X2=X2+14X21710,1740,1770,1860,1950,1980,2010,2050,2080 )0C1$="THAT'S CORRECT--THE WORD IS ": +A$(I) ["MOVETO(%05,%20):PENCOLOR(%15):#1;C1$;" ";A$(I);" ": HPOS=((40-LEN(C1$))/2) .,X=11000:X: FOR X9=1 TO 2000:NEXT X9 6X2=0:A2=0:A2$="":A1$=""U@MOVETO(%05,%20):PENCOLOR(%15):#1;"WIA1$,J,1)<>"-"A2$=A2$+A1$,J,1):A2=A2+1:15003B$=A$(I),J,1)A2$=A2$+B$:A2=A2+1:X1=1:1500A2$=A2$+"-"JX1=01680 A1$=A2$A2=A$(I))1550 1350OMOVETO(%05,%20):PENCOLOR(%15):#1;A1$: VPOS=23:HPOS=20-INT(LEN(A$(I))/2 for BASIC/any other key for MENU":R$}R$="B"R$="b"".D1/MENU.MAKER"X1=0MOVETO(%05,%20):PENCOLOR(%15):B$)<65B$)>90#1;"THAT IS NOT A LETTER YOU TWERP-REENTER ":X=11000:X::1350A2$="":A2=0J=1A$(I))6ND OF GRAPHICS2I=I+1:I=51I=1!<J=1A$(I)):A1$=A1$+"-":JZFMOVETO(%05,%20):PENCOLOR(%15):#1;" ";A1$;" "6dB$:Z=Z+1:MOVETO(%Z*6,%180):PENCOLOR(%15):#1;B$nB$<>27)1420?x::155;"PRESS 'B'43000 R HEAD\PENCOLOR(%15) f3100 p NECK z3150  BODYPENCOLOR(%11) 3200 LEFT ARM 3250 RIGHT ARM 3300 LEFT LEG 3350 RIGHT LEG 3400 LEFT FOOT .35008 RIGHT FOOT B3550 --E#1,".GRAFIX""BGRAF.INV"/GRAFIXMODE(%1,%1):FILLCOLOR(%0):FILLPORT:VIEWPORT(%00,%279,%00,%190):FILLCOLOR(%15):FILLPORT9VIEWPORT(%00,%279,%05,%186):FILLCOLOR(%0):FILLPORT GRAFIXON W=00:V=00Z=1  FRAME*PENCOLOR(%08) TY"DA$(39)="BOOKLET"NA$(40)="COMPASS"XA$(41)="ELEPHANT"bA$(42)="IDIOT"lA$(43)="HELMET"vA$(44)="CONTRACT"A$(45)="QUARTER"A$(46)="UMBRELLA"A$(47)="ZOOLOGY"A$(48)="STATION"A$(49)="NECESSARY"A$(50)="COMPUTER""A$(26)="DIAMOND"A$(27)="BLISTER"A$(28)="VACUUM"A$(29)="TOILET"A$(30)="LIBRARY"A$(31)="KNIFE"A$(32)="MIXTURE"A$(33)="APPLESAUCE"A$(34)="DOCTOR"A$(35)="OXYGEN"&A$(36)="TOBACCO"0A$(37)="DEFENSE":A$(38)="HUMIDI@A$(13)="LEGAL"JA$(14)="FLOWER"TA$(15)="SPICE"^A$(16)="SUNSHINE"hA$(17)="BEACH"rA$(18)="ALPHABET"|A$(19)="CARDINAL"A$(20)="JACKET"A$(21)="CASTLE"A$(22)="PORTRAIT"A$(23)="QUOTATION"A$(24)="PENGUIN"A$(25)="HATCHET L Z=18V C$t 155;C$;~ Z7 =22:155;"--HIT THE SPACE BAR TO CONTINUE--":H$  FRAME-VERTICAL - DOTAT(%65+W,%25+V):LINETO(%65+W,%170+V)- DOTAT(%77+W,%25+V):LINETO(%77+W,%164+V) HORIZONTAL / DOTAT(%77+W,%164+V):LINETO(%143+W,%164+V)/ DOTAT(%65+W,%170+V):LINETO(%143+W,%170+V) END 0 DOTAT(%137+W,%164+V):LINETO(%137+W,%146+V)0 DOTAT(%143+W,%170+V):LINETO(%143+W,%146+V)  HEAD & Y=128146,0 DOTAT(%125+W,%Y+V):LINETO(%155+W,%YOUNTER2)=1TF=1TF=1570  ***PLAYER ONE'S MOVE*** P=1TF=0T=T+1,TF=25TF=1960: CHECK FOR FULL GRIDIMOVETO(%20,%20):PENCOLOR(%15):#1"WHICH COLUMN, ";A$;:C:C=01650C<1C>75309MOVETO(%20,%20)INETO(%195,%I)-|DOTAT(%(I+20),%35):LINETO(%(I+20),%175)I.MOVETO(%58,%183):#1"1 2 3 4 5 6 7" GRAFIXON WINDOW 0,21 TO 40,24I=056:B(I)=0:IP=1U=15 P=2U=8&PENCOLOR(%U): CL(1)=15:CL(2)=8T=0: TURN CIX"."BGRAF.INV"/0GRAFIXMODE(%1,%1):FILLCOLOR(%0):FILLPORT1VIEWPORT(%0,%279,%0,%191)2FILLCOLOR(%15) 4FILLPORT75VIEWPORT(%7,%272,%5,%185):FILLCOLOR(%0):FILLPORT6PENCOLOR(%15)J COLOR=15TI=3517520#hDOTAT(%55,%I):L * 27609 * * (9199) 781 4229 * ********************   INITIALIZE  B(56),CL(2)Q$(10),A$(15),B$(10)G$="": CTL G1440: INSTRUCTIONS SET UP GRID & MATRIX":,#1,".GRAF.d CONNECTION ------ "CONNECT.4" -----4n ******************** FROM WAP VOLUME 0725x *BY: CHIP ANDERSON * MODIFIED FOR APPLE III) * 9/12/79 * 1986 * 404 VERNON TERR. * * RALEIGH, N.C. *..... "HANGMAN" ........AT(%137+W,%44+V):LINETO(%137+W,%38+V)  RIGHT FOOT . DOTAT(%143+W,%38+V):LINETO(%161+W,%38+V). DOTAT(%143+W,%44+V):LINETO(%161+W,%44+V). DOTAT(%161+W,%44+V):LINETO(%161+W,%38+V).DOTAT(%143+W,%44+V):LINETO(%143+W,%38+V)#: ..OTAT(%143+W,%44+V):LINETO(%143+W,%74+V).\ DOTAT(%149+W,%44+V):LINETO(%149+W,%74+V)f  LEFT FOOT . DOTAT(%119+W,%38+V):LINETO(%137+W,%38+V). DOTAT(%119+W,%44+V):LINETO(%137+W,%44+V). DOTAT(%119+W,%44+V):LINETO(%119+W,%38+V). DOTINETO(%161+W,%116+V)0 DOTAT(%161+W,%122+V):LINETO(%167+W,%122+V)0 DOTAT(%179+W,%098+V):LINETO(%185+W,%104+V)  LEFT LEG . DOTAT(%131+W,%44+V):LINETO(%131+W,%74+V).* DOTAT(%137+W,%44+V):LINETO(%137+W,%74+V)4 H RIGHT LEG .R DO(%119+W,%116+V)/ DOTAT(%95+W,%104+V):LINETO(%113+W,%122+V)0 DOTAT(%113+W,%122+V):LINETO(%119+W,%122+V)0 DOTAT(%101+W,%098+V):LINETO(%095+W,%104+V)  RIGHT ARM0 DOTAT(%185+W,%104+V):LINETO(%167+W,%122+V)/ DOTAT(%179+W,%98+V):L+V): YD N NECK 0X DOTAT(%137+W,%128+V):LINETO(%137+W,%122+V)0b DOTAT(%143+W,%128+V):LINETO(%143+W,%122+V)l BODY  Y=74122, DOTAT(%119+W,%Y+V):LINETO(%161+W,%Y+V) Y  LEFT ARM/ DOTAT(%101+W,%98+V):LINET:PENCOLOR(%0):#1"WHICH COLUMN, ";A$&680: DROP CHECKER0970: TEST FOR WIN: D PLAYER TWO'S TURNN XP=2bTF=1T=T+1+lT=25TF=0960: CHECK FOR FULL GRIDIvMOVETO(%20,%20):PENCOLOR(%15):#1"WHICH COLUMN, ";B$;:C:C=01650{C<1C>76309MOVETO(%20,%20):PENCOLOR(%0):#1"WHICH COLUMN, ";B$680: DROP CHECKER970: TEST FOR WIN470: DO IT AGAIN  DROP CHECKER Y=1B(C*7+Y)<>0750Y=Y+1:Y=8750720Y=Y-1:YS=Y Y !"0123456789:;<=>?@ABCDEFGHIJK" XA (@~7@O_@}~uD D"pDD""D[>y>z>p|xC@1&M6@ p|f@^MXqss9xrp @p`<@`8r\CUfs>)"  "x|x"Gh GL"$:`d@`~gyo? DpD  D) ER"RAM SELECT COLUMN '0' *****"/E::1460;"PRESS ANY KEY TO CONTINUE":G$0J::" PLAYER ONE'S NAME: ";A$.T:" PLAYER TWO'S NAME: ";B$^$h ------- "CONNECT.4" -------1r::VPO=10:"RETURNING TO MENU":"MENU.MAKROM DOING THE SAME";1460;"-------------"K1460;"YOU CAN LOCATE YOUR MARKER INTO ANY ONE OF THE SEVEN COLUMNS";L"1460;"IT WILL FLOAT TO THE TOPMOST UNOCCUPIED SQUARE IN THAT COLUMN";,1460;"-------------";61460;"***** TO EXIT PROG0580,242:1460;"DO YOU NEED INSTRUCTIONS(Y/N):":Q$Q$<>"Y"1610R:1460;"THE OBJECT OF THIS GAME IS TO CONNECT FOUR OF YOUR MARKERS IN ROW";41460;"EITHER ACROSS,UP & DOWN OR DIAGONALLY";A1460;"WHILE PREVENTING YOUR OPPONENT FW$="Y"W$="y"304xW$="N"W$="n"1420 1380 :::::=10::1460;"THANK YOU FOR PLAYING CONNECT.4":".D1/MENU.MAKER'  ** INSTRUCTIONS**  80C:!:1460;"** CONNECT 4 **": WINDOW 0,3 TO 40,240,TS (13502N,M<F:G$;G$;G$;P1180TS 1350M<4N>41230 TS=13 B((M-TS)*7+(N+TS))<>P1230TS 1350M>4N>41280 TS=13 B((M+TS)*7+(N+TS))<>P1280TS 1350M>4N<41330 TS=13 B((M+TS)*7+(N-TS))<>P1330ONE CAN WIN BEFORE FOURTH TURNM=17:N=17B(M*7+N)<>P1330M>41080 TS=13B((M+TS)*7+N)<>P1080$TS .13508N>41130 BTS=13LB(M*7+(N+TS))<>P1130VTS `1350jM<4N<41180 tTS=13 ~B((M-TS)*7+0):PENCOLOR(%0):#1G$;"COLUMN FULL":P=1470570 G$;G$;G$4MOVETO(%20,%20):PENCOLOR(%15):#1"TIE GAME..."X=12000:X3MOVETO(%20,%20):PENCOLOR(%0):#1"TIE GAME..." 1380  ** TEST FOR WIN ** 0T<4: NO Y+8: FOR A=Y TO Y+3 z~DOTAT(%((C+2)*20)+2,%A+40):LINETO(%((C+2)*20)+8,%A+40): PERFORM DOTAT(%((C-1)*5)+3,%A):PERFORM LINETO(%((C-1)*5)+6,%A) A7MOVETO(%20,%20):PENCOLOR(%15):#1G$;"COLUMN FULL"X=11000:X6MOVETO(%20,%2=0930,Y=3YS*2020: FOR Y=3 TO YS*5 STEP 5 'P=1PENCOLOR(%15): COLOR=CL(P)P=2PENCOLOR(%8) 8803*Y=(YS-1)*20+3850: IF Y=(YS-1)*5+3 THEN 8504 >PENCOLOR(%0): COLOR=0 H880RY\B(C*7+YS)=Pf"pA=Y-2@?|Qu[}XxofZ~ohT"b  R$aT @>)||?g "o?>~0`>H / WAP /// SIG MENU.MAKER PROGRAM (v. 6.1) =".D1"210: Coldstart (320: Warmstart &*X=11000: TEXT SLOW-DOWN LOOP ,X.1 CHANGE DISK SUBROUTINE23œ202:2200<RFa$=" YOU MAY SELECT YOUR DISK BY V Business Basic, renamed it Kidword /// and added a few things to make it even easier to use. Because the program is in Business Basic, you can make it into a turn-key system simply by renaming it "Hello" on your BB startup disk (include it with SOS.Kernerogram that allowed the user to type a screen full of text, move around the screen and print out what was typed. It was a good, simple program and something I decided would be of use to the Apple /// community as well. So I've adapted Kidword toe they could desire. But how about native mode? I started scrounging around and found an old issue of InCider with a program called Kidword, written by Michael A. Seeds. As published in the October, 1984 issue, Kidword was a very basic word processing p (or Heaven Forbid! a Big Blue machine). That means the kids are probably going to be using our /// more and more. And face it, that means mostly in emulation mode. With the Titan cards, they will have access to virtually all the Apple // softwar#%&MNOPQRSTUVWXe the /// was originally designed as a business computer. These days, the /// is what's called an "aging" machine that is being "retired" to the home. Or it may have become the "second" computer in the house, after Mom and Dad "upgraded" to a Mac or //GS Kidword 3.5: A Basic Word Processing Program for Kids By David Ottalini /// SIG Co-Chairman The Apple /// is a great computer. But there aren't many programs written specifically for kids in native mode. It's not hard to understand why, sincaxpjNp> NFA`x@{D$DD t88`D"D$DD0 t8>&&>2&"""!*E*H> NOH@c?w?Uz~}}?y#6@~o~p A" RB) 0 X  @@ L[D>xx?|??|@!J`> .>4I!"@??~<2qw~"@Dp@"@D">I_~GO%d > ||x@~> 8 b@$  H%pta@8XH@$DA0D|=" @"" @ஶ>)3!("0@`~`W{{?@p@@ x 8 |x ?@_w#J ` "#J "&&"2&&&"&"!&*E+ OLUME NAME (/DISKNAME) OR DEVICE NAME (.Dx)"P12);::"80C";a$;:Zb$="CHANGING DISKS"$d=23:=0::"80C";b$;::12).n=12:=20:"MAKE A NEW MENU FOR DISK: ";N$xN$)<2110=N$ :210 I=1L(A$(I),A$))200B$(')*+,-./NOT FOUND.)"X=11000:X:::210Z a$="{,|,~,}; selects; back 1 level; G$:::320H: Error Routine 202:U=11:"79C";"BAD PATH ERROR (NO DISK IN DISK DRIVE OR DESIRED FILE ,2))=0"12";џ,6);:ٟ;$П,2))=>12" PM-":" AM-" 1830WW=1530 =26:=21 1600 &:WW=1:0 :SEG=1;".D1/S EG.F" SEG=1".D1/SEG.G"diskname$=3802  CATCH PASCAL TEXT FILES "JUNE":1750M$="JULY":1750M$="AUGUST":1750M$="SEPTEMBER":1750M$="OCTOBER":1750M$="NOVEMBER":1750M$="DECEMBER":1750826);"-";M$;" ";Ѡ,2));", ";"19";Р,2);" ";/П,2))=>13П,2))-12;џ,6);:1780$~240:=24:=0:"@ ..... "DATE.TIME.LINE" ....JM=Ҡ,4,2))BTM1630,1640,1650,1660,1670,1680,1690,1700,1710,1720,1730,1740^M$="JANUARY":1750hM$="FEBRUARY":1750rM$="MARCH":1750|M$="APRIL":1750M$="MAY":1750M$=B$(I),"CAT 0")1140*B$(I),"FONT 0")18504B$(I),"FOTO 0")1930>B$(I),"PASTXT 0")2070H540R\A$="RUNNING "+B$(I),16,B)f"79C";A$;:=0pB$(I),16,B) z::SEG=1".D1/SEG.T"t=+B$(I),16,B) yCT=CT+1I=1:I=2I>2=-1:I=I-2:IBOTM<30THPOS=44I=IBOTM/2)*2:=+IBOTM/2)-1:0=+IBOTM/2-.5):I=IBOTM:I/2=I/2)I=I-1 œ2120B=B$(I),16)," ")-1 B$(I),"BASIC 0")850B$(I),"TEXT 0")890 81+LCA):::: RebootN=THPOS:B$(I);XA<8A>11540bA-7640,660,690,720l:=THPOS:B$(I);v:520: 500THPOS=4:I/2=I/2)I=I-1I=IBOTM THPOS=44:I/2<>I/2)I=I+1I13000Zha$="{,|,~,}; selects; to new disk; J/2)=4:=+1:ۙ=44B$(J);:J=J+1I:1,180,22:2,280,21:2,2380,23:8A$(1000),B$(1000),C%(511),C$(20),name$(20):=10:=0UCA=128:LCA=UCA+32CT=15 IF PREFIX$= PREFIX$+MID$(B$(I),112405l=ơ):: Routine to back up one directory level.a$=С,l-1) s=a$)a$=a$,s-1)a$,1)="/"5060:s=s-1 5030=a$240( MENU.MAKER 6.10 * Thanks to C.M.Davidson for his help!@0(4H|D"@ D"@>$Pm,PC!Jd0H,  x`?1~ @ pD  @ >>}y/|ww~@psp?oU@Pi  0Tx?xp)@I`pypLQ 4A|?@c8"@ D"Dp"D"@ D"Domputer |uc{?OO6!xzV TZ*% N @x2 d0 z@@@D `" DSUWY``x0 !B@$ p~}}p"xp`"pi@?O@0@@ @0D0 _S/|ad'|o_!) " \" ??|p2|FIPUwPLY PTBx@_z"o" DpD""D I R U X|_/gIbHx}DG *RID $ Np* T  r  @* X0@^=@  @@  Y ] c jp%+4tg$`B@}[ D pD D `?-e1p0D-de1p !d@^I DH`I DH"DA ." .66 @_qo;~?_o@dA~oo@C2DTTB@ 2|9B?|`$qp@!dh8  Ax`|}a{_"@D"Dp@"@ D"D2x~w?}?@{DI_Bx~=L(RI$pID * J"0 ,x@" D@"" D>Sm`F3a#%0@@?pgkp  DTHCTB p#B@3@@xG@}  @!`` $  ``","" &<*"*@I>> @?|~}z~wuG@pa~os A !RDD0! @@H>LQ`ps}3?|@%b)2$lpp~~X0w}@pD"@Ж``y?~caLR~x|?} ($D( (%p Hc> M ~1$D8p D1$D8  A U, UG@h{@@   B"(z@@~@} (  D@ "DUUB1G(j^Cw~?x59pwuD"D x@D"D Twwwwwwwwwwwwww|ȈȈȈȈȈȈ L[D>wwwwwwwwwwwwwwwwww|qqwȈؘ؈ȈȈ> .>wwwwwwwwwwwwwwwwwwwwwwwwwwww|܌LwAA>IwwwwwwwwwwwwwwwwwwL|wwwwHHHHHHȁHHHHHHHHHHHwwwwwwwwwwwwwwwwwwwww܌|Lwwwwwwqıஶ>)wwwwwwwwwwwwwwwwwwwwwwwwww|LLwwwwwAAĴ wwwwwwwwwwwwwwwwwwLGwqqGGGGGwwȈ؈ȈL7wwwwwwwwwwwwĴDLLGGqqGLLGȍ wwwwwwwwwwwwwwǼ|ȈȈȈȈȈȈ>)wwwwwwwwwwLqqwؘȈȈ`>H wwwwwwwwwwwwwwwwwwwwwwwwwww|܌LAA[>y>z>wwwwwwwwwwwwwwwwwww܌|wwwwHHHHHHHHHHHHHHHHHHHHHHHHHHHHHs>)wwwwwwwwwwwwwwwwwwwwwLL||wwwwwwqĴĚGh GLwwwwwwwwwwwwwwwwwwwwwwww||wwwwwĴAA) { oPDde .|dDPD`e ., <"!"E*(`) "@P /p`" D@"" D`x~?|x/|as`<?U~*>`LUL?x x " ( ap|O? " 6(b|z@>@"D"D"Dp"D"D"D"D`! (|O_GtgKD NwLGLwwwwwwwwwwwwDqqDLĈȈ> NOHwwwwwwwwwwwwwwwwwwww|LLLLLwwwww>$Pm,PwwwwwwwwwwwwwwwwwwwwwwwwwLwwwwwwĴĴAAĬ>>wwwwwwwwwwwwww|pȈȈȈȈȈȈTwwwwwwwwwwwwwwwwwqqwwwȈؘ؈ȈI`wwwwwwwwwwwwwwwwwwwwwwwwwwwwwLLwwwwAAomputer wwwwwwwwwwwwww|<ȈȈȈȈwwwwwwwwwwwwwwwwwwwwwwww܌LL|wwwwwwwwwwwAASUWYwwwwwwwwwwwwwwwwwwwwwwwwwnjL|wwww00AAwwwwwwwwwwwwwwDDwqqGĴDwwL<||wwwwwwwwwwwwĴDAAĴĴDĈȈ wwwwwwwwwwwwww̜ȈȈȈȈȈȈȈȈȈ"wwwwwwwwwwwwwwwwwwwwqqwwwȈؘ؈ȈȈFIPUwwwwwwwwwwwwwwwwwwwwwwwwwwwww|܌ĴAA I R U Xwwwwwwwwwwwwww|< r  wwwwwwwwwwwwwwwwwwww|SmwwwwwwwwwwwwwwwwwwwwwwwwwnjLwwwwwwAAĴĴĨDTHCTwwwwwwwwwwwwwwwwwwLDLGwqqGDGGGwwȈ؈w|Gܼ̜wwwwwwwwwwwwDĴAqĴĈȈ>> wwwwwwwwwwwwwwwȈȈȈȈ>LQ`wwwwwwwwwwwwwwwwww|qqwȈؘ؈Ȉwwwwwwwwwwwwwwwwwwwwwwwwwwww|܌LĴAAЖ`wwwwwwwwwwwwwwww|wwwwwȁȈHHH> M wwwwwwwwwwwwwwćGqqGG U, UwL||wwwwwwwwwwwĴAAĴ wwwwwwwwwwwwwwwwwwwwwwww|L|wwwwwwĴGUUwwwwwwwwwwwwwwwwwwwwwwwwww|܌|wwwooĴĀTght, then down, left and up. The Kidword /// Banner appears and you're ready to start typing. There is a cursor and the words typed will continue from one line to the next. Thus, you will have words breaking off on one line to finish on the next if you'ld really add some color to your child's word processing world. On the Monitor ///, the border looks like shaded blocks. When the program begins, the border is created one block at a time starting from the top left part of your screen. It moves ri5 is a 40 column mode word processor so that it's easier for kids to read while typing. It also prints in 40 columns. The screen set-up may be recognizable; it's taken from the Apple /// System Demonstration program. If you have a color monitor, it shouis basically what you get. The program is broken up into three parts. The first is the screen set-up. The second is the main routine that sets down how Kidword 3.5 allows you to process words. And the third part is the print program. Kidword 3.l, SOS.Interp and SOS.Driver)(You will also need the invokable module "Readcrt.Inv" , but more on that later). You can also adapt it to your own needs as you desire. Just keep in mind this is your basic no-frills word processing program and what you see 79C";"PRESS ANY KEY TO HALT LISTING"::202 1020#2,B$(I),16,B)ž#242:::1160Z=1#2;A$:"78A";A$Z=Z+1:Z>1842:::Z=1980*:=23:=0::"79C";"CONTINUE...?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"10 MENU.MAKER TEXT MODULESEG=0"MENU.MAKER"890&*X=11000: TEXT SLOW-DOWN LOOP ,X.1,180,22:2,280,21:2,2380,23:z:A$="LISTING "+B$(I),16,B)$=01:=0::"80C";A$;::12)>=23:=0::"wwwwwwwwwwwwwwDGLGGGGGLGG(`)|<܌L||wwwwwwwĴAAĈ`xwwwwwwwwww key and "U" for up, "D" for down, "L" for left and "R" for right. To clear the screen and start over, simply hit the key. To quit the program and return to Business Basic, hit 34 THEN WX=1:WY=WY+1 700 IF WY>18 THEN WY=18:WX=WX-1 710 IF WY<1 THEN WY=1 715 REM 900 GOTO 600 39990 REM 39995 REM TO HAVE "READCRT.INV" AVAILABLE 40000 REM *** PRINT SCREEN *** 4001ROL P TO PRINT 660 IF W=18 THEN WX=WX+1:REM MOVE RIGHT ONE SPACE WITH CONTROL R 665 IF W=13 THEN WY=WY+1:WX=2:REM RETURN 670 IF W=4 THEN WY=WY+1:REM MOVE CURSOR UP WITH CONTROL U 675 IF W=27 THEN GOTO 10:REM ESCAPE TO START OVER 677 T CHR$(W):WX=WX+1:GOTO 690 639 IF W=17 THEN TEXT:HOME:RUN ".D1/MENU.MAKER":REM RETURN TO MENU 640 IF W=21 THEN WY=WY-1:REM CONTROL D FOR DOWN 650 IF W=12 THEN WX=WX-1:REM MOVE LEFT ONE SPACE WITH CONTROL L 655 IF W=16 THEN GOSUB 40000:REM CONT RETURN 520 WX=2:WY=3 590 REM 600 REM *** MAIN PROGRAM LOOP *** 602 REM 605 IF VPOS=18 THEN PRINT CHR$(7):REM DELETE IF YOU DON'T LIKE THIS! 610 VPOS=WY:HPOS=WX:GET W$ 620 W=ASC(W$) 635 IF W<32 THEN 639 637 VPOS=WY:HPOS=WX:PRIN CHR$(21);CHR$(13);:REM STANDARD TEXT OPTIONS ON 74 PRINT CHR$(05):REM TURN ON CURSOR 75 PRINT COLORS$;:WINDOW 4,4 TO 38,22 80 HOME:PRINT" KIDWORD /// " 85 GOTO 520 200 COLOR=COLOR+1:PRINT CHR$(20);CHR$(COLOR);" "; 210 1);CHR$(0);:COLOR=5 55 FOR X=2 TO 38:GOSUB 200:PRINT CHR$(RIGHT);:NEXT 60 FOR Y=2 TO 22:GOSUB 200:PRINT CHR$(DOWN);:NEXT 65 FOR X=39 TO 3 STEP-1:GOSUB 200:PRINT CHR$(LEFT);:NEXT 70 FOR Y=23 TO 3 STEP-1:GOSUB 200:PRINT CHR$(UP);:NEXT 73 PRINT 14 TEXT 15 LEFT=8:RIGHT=9:DOWN=10:UP=11 20 COLORS$=CHR$(19)+CHR$(15)+CHR$(20)+CHR$(1) 30 PRINT CHR$(16);"1";:REM SET 40-COLUMN, 16 COLOR MODE 35 PRINT CHR$(1);:REM SET VIEWPORT 40 PRINT COLORS$ 45 HOME:VPOS=2:HPOS=2 50 PRINT CHR$(2EM FROM AN ORIGINAL PROGRAM BY M.SEEDS IN InCIDER, OCTOBER, 1984 10 REM WITH HELP FROM TAYLOR POHLMAN'S FIRST "THIRD BASIC" ARTICLE IN THE OCTOBER 1981 ISSUE OF "SOFTALK" MAGAZINE. 11 REM AND THE APPLE /// SYSTEM DEMO DISK. 12 REM 13 REM*************************************** 6 REM ********************* KIDWORD /// ******************************* 7 REM ***************************************************************** 8 REM ADAPTED BY DAVE OTTALINI...AUGUST, 1985; MAY, 1987 9 Rms. Just imagine all the fun (and mischief!) they can get into writing Mommy and Daddy all kinds of things. Of course, you could always retaliate by writing something back.... A listing of the program appears below: 5 REM **************************40 column mode, the printed text will also be in 40 columns. This really is a fun little program I think your kids will enjoy using. It allows them to easily and quickly write a note and print it without having to worry about a lot of other proble your way. The program automatically prints and then clears the screen so you may start anew. When you print, by the way, the border will not be included. But the "Kidword ///" Banner will be (again in 40 column mode). Again, because this is in screen using the .Printer device driver installed in the SOS.Driver file (you could make it print to disk if you so choose, simply by changing line 550 from ".Printer" to ".D1" or ".D2"). All you have to do to print is hit and "P" and you're onol> "Q." (Upper or lower case is OK.) For printing, you'll have to make sure the "Readcrt.Inv" invokable module is included on your disk in the internal disk drive (.D1). It's what makes it possible for any printer to print out the copy from your 0 OPEN#1 AS OUTPUT,".PRINTER" 40015 PRINT CHR$(06) 40020 INVOKE"READCRT.INV" 40100 FOR VERTICAL=1 TO 20 40105 VPOS=VERTICAL 40110 FOR HORIZONTAL=1 TO 35 40120 HPOS=HORIZONTAL 40125 PERFORM READC(@VALUE%) 40130 PRINT#1;CHR$(VALUE%); 40160 NEXT HORIZONTAL 40170 PRINT#1 40180 NEXT VERTICAL 40190 CLOSE 40200 GOTO 10 ^`abcd can see it takes up only half the screen. Secondly, it is not as fancy. No fancy border to "jazz things up" as with 3.5. The program will, however, do basically the same things as 3.5. It will allow you to print one page of text. You can move the KIDWORD 1.0 BY David Ottalini /// SIG Co-Chairman Kidword 1.0 is a simpler version of the 3.5 program on this disk. It is basically the same program with a few differences. The most important is that it is in Apple /// 80 column mode, although as you)T"READCRT.INV"VERTICAL=120=VERTICALHORIZONTAL=135=HORIZONTALREADC(@VALUE%)œ#1;VALUE%);HORIZONTAL#1 VERTICAL10beITH CONTROL U &W=2710: ESCAPE TO START OVER WX<1WX=34:WY=WY-1WX>34WX=1:WY=WY+1WY>18WY=18:WX=WX-1WY<1WY=16006%; TO HAVE "READCRT.INV" AVAILABLE@ *** PRINT SCREEN ***J#1,".PRINTER" O0621WY=WY-1: CONTROL D FOR DOWN 7W=12WX=WX-1: MOVE LEFT ONE SPACE WITH CONTROL L&W=1640000: CONTROL P TO PRINT9W=18WX=WX+1: MOVE RIGHT ONE SPACE WITH CONTROL R %W=13WY=WY+1:WX=2: RETURN 2W=4WY=WY+1: MOVE CURSOR UP W** MAIN PROGRAM LOOP ***Z1]=187): DELETE IF YOU DON'T LIKE THIS!b=WY:=WX:W$ lW=W$){W<32639 }=WY:=WX:W):WX=WX+1:690@~: CONTROL Q WILL END THE PROGRAM AND PUT YOU BACK IN BASIC. W=17::".D1/MENU.MAKER"(W=LEFT);:FY=233-1:200:UP);:,I21);13);: STANDARD TEXT OPTIONS ONJ05): TURN ON CURSORKCOLORS$;:4,438,22+P:" KIDWORD /// "U520&COLOR=COLOR+1:20);COLOR);" "; WX=2:WY=3N X *IGHT=9:DOWN=10:UP=11"COLORS$=19)+15)+20)+1).16);"1";: SET 40-COLUMN, 16 COLOR MODE#1);: SET VIEWPORT (COLORS$ -:=2:=2221);0);:COLOR=57X=238:200:RIGHT);:<Y=222:200:DOWN);:!AX=393-1:200:Y[\]T, 1985C FROM AN ORIGINAL PROGRAM BY M.SEEDS IN InCIDER, OCTOBER, 1984y WITH HELP FROM TAYLOR POHLMAN'S FIRST "THIRD BASIC" ARTICLE IN THE OC TOBER 1981 ISSUE OF "SOFTALK" MAGAZINE " AND THE APPLE /// DEMO DISK.   LEFT=8:RH ***************************************************************** J ********************* KIDWORD /// ******************************* G *****************************************************************- ADAPTED BY DAVE OTTALINI...AUGUS cursor around by using the "Control" key and "U" for UP; "D" for DOWN; "L" for LEFT and "R" for RIGHT (again, be sure you press the "Control" key and the U,D,R,or L Key at the same time). To print, hit "Control" and "P" and to begin a new screen, hit "EsWX+1:6905W=17::".D1/MENU.MAKER": QUIT TO MENU.MAKER(W=21WY=WY-1: CONTROL D FOR DOWN 7W=12WX=WX-1: MOVE LEFT ONE SPACE WITH CONTROL L&W=1640000: CONTROL P TO PRINT9W=18WX=WX+1: MOVE RIGHT ONE SPACE WITH CONTROL R %eghRD 1.0 "=23:J=443:"*";:J&&J=223:=J:"*":=J:=41:"*":JN X *** MAIN PROGRAM LOOP ***Z[05): Turn on cursor!1]=227): DELETE IF YOU DON'T LIKE THIS!b=WY:=WX:W$ lW=W$){W<32639 }=WY:=WX:W):WX=A ***********************************************************A ********************* KIDWORD ***************************A *********************************************************** WX=2:WY=2=2:J=140:"*";:J=15:" KIDWO FOR HORIZONTAL=1 TO 42 40120 HPOS=HORIZONTAL 40125 PERFORM READC(@VALUE%) 40130 PRINT#1;CHR$(VALUE%); 40160 NEXT HORIZONTAL 40170 PRINT#1 40180 NEXT VERTICAL 40190 CLOSE 40200 RUN 40190 CLOSE 40200 RUN GOTO 600 39990 REM 39995 REM TO HAVE "READCRT.INV" AVAILABLE 40000 REM *** PRINT SCREEN *** 40010 OPEN#1 AS OUTPUT,".PRINTER" 40015 PRINT CHR$(06) 40020 INVOKE"READCRT.INV" 40100 FOR VERTICAL=1 TO 25 40105 VPOS=VERTICAL 40110 EN WY=WY+1:REM MOVE CURSOR UP WITH CONTROL U 675 IF W=27 THEN GOTO 10:REM ESCAPE TO START OVER 677 REM 680 IF WX<2 THEN WX=40:WY=WY-1 690 IF WX>40 THEN WX=2:WY=WY+1 700 IF WY>21 THEN WY=21:WX=WX+1 710 IF WY<2 THEN WY=2 715 REM 900 650 IF W=12 THEN WX=WX-1:REM MOVE LEFT ONE SPACE WITH CONTROL L 655 IF W=16 THEN GOSUB 40000:REM CONTROL P TO PRINT 660 IF W=18 THEN WX=WX+1:REM MOVE RIGHT ONE SPACE WITH CONTROL R 665 IF W=13 THEN WY=WY+1:WX=2:REM RETURN 670 IF W=4 THKE THIS! 610 VPOS=WY:HPOS=WX:GET W$ 620 W=ASC(W$) 635 IF W<32 THEN 639 637 VPOS=WY:HPOS=WX:PRINT CHR$(W):WX=WX+1:GOTO 690 639 IF W=17 THEN TEXT:HOME:RUN ".D1/MENU.MAKER":REM RETURN TO MENU 640 IF W=21 THEN WY=WY-1:REM CONTROL D FOR DOWN TO 43:PRINT"*";:NEXT J 550 FOR J=2 TO 23:VPOS=J:PRINT"*":VPOS=J:HPOS=41:PRINT"*":NEXT J 590 REM 600 REM *** MAIN PROGRAM LOOP *** 602 REM 603 PRINT CHR$(05):REM Turn on cursor! 605 IF VPOS=22 THEN PRINT CHR$(7):REM DELETE IF YOU DON'T LI************* KIDWORD *************************** 505 REM *********************************************************** 510 HOME 520 WX=2:WY=2 530 VPOS=2:FOR J=1 TO 40:PRINT"*";:NEXT J 535 HPOS=15:PRINT" KIDWORD 1.0 " 540 VPOS=23:FOR J=4 rything they need and be simple enough to understand how to use. Try them and see! Your comments are welcomed and improvements solicited! Now...here's a listing: 490 REM *********************************************************** 500 REM ********cape." After printing, the program will reset itself so you may type in a new message. Again, this is a very basic word processing program, adapted from a similar Apple // program (see the Kidword 3.5 article). For kids these two programs should do eveW=13WY=WY+1:WX=2: RETURN 2W=4WY=WY+1: MOVE CURSOR UP WITH CONTROL U &W=2710: ESCAPE TO START OVER WX<2WX=40:WY=WY-1WX>40WX=2:WY=WY+1WY>21WY=21:WX=WX+1WY<2WY=26006%; TO HAVE "READCRT.INV" AVAILABLE@ *** PRINT SCREEN ***J#1,".PRINTER" O06)T"READCRT.INV"VERTICAL=125=VERTICALHORIZONTAL=142=HORIZONTALREADC(@VALUE%)œ#1;VALUE%);HORIZONTAL#1 VERTICAL30C$="N"C$="n"1160;:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": $1020.202 8::Z=1B::=23:=0::"79C";"WOULD YOU LIKE A PRINTED COPY?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"1170*C$="N"C$="n"APPLE /// GAMES FOR KIDS LopREADC READC  #.-2hhhhHH`$.CONSOLE24320/JiklGApple 1.1R READC ".D1/MENU.MAKER",220 d$="" A$="PRINTING "+B$(I),16,B)=01:=0::"80C";A$;:#3,B$(I),16,B)Z=1#3;b$:"78A";b$Z=Z+1:Z=18:1290 1260 #4,B$(I),16,B)#5,".PRINTER"+ž#4#5;12):::".D1/MENU.MAKER",220(204::"79A";""; 2D=1:F=1 <#4;a$ FD=D+1 P#5;a$ZD=60#5;12)dD=60D=1nF=F+1::d$;::Y=1100:Y x13402  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T R3=dx:7610%Ll3:"*** Commander Escapes to ";3V"quadrant ";i;"-";j;" (and regains strength)"7`k4(k)=k4(nh):k5(k)=k5(nh):k7(k)=k7(nh):k8(k)=k8(nh)%jk6(k)=k6(nh):nh=nh-1:k3=k3-1:c3=0tc5$<>"Docked"7620 ~12240+g(q1,q2)=g(q1,q2)-100:g(i,j12240:)i=q1+(l+9)/10)-1:j=q2+(m+9)/10)-1i<1i>87610j<1j>87610 $g(i,j)+10*ns(i,j)>9997610<.l3=1r2:c1(l3)=ic2(l3)=jdx=l3:l3=r2::l3=dx:7610,8b4=q1b5=q1dx=l3:l3=r2::l3=dx:7610*Bk6(k)>1000dx=l3:l3=r2::l=-a:7330 r=l:s=ml2q$(r,s)="C"r=cs=d.k4(k)=r:k5(k)=s:k7(k)=(s6-r)^2+(s7-s)^2)#k8(k)=k7(k):n=-1:k7(k)0"*** Commander Advances ";%n<0"*** Commander Retreats ";"to sector ";r;"-";s ="."7320q=bp=07250 m=s+b:m<=0m>107220*l>0l<=1072304n)+27430,7240,7240>q$(l,m)="."7320Hb=-bRp=aq=07330 \l=r+afl<=0l>107290pm>0m<=107300zn)+27430,7310,7310q$(l,m)="."7320at<1t=1#p=s6-c:q=s7-d:2*p)0p=p*n)q<>0q=q*n)r=c:s=d:q$(c,d)="."l2=1t:l=r+p:m=s+ql>0l<=107160n)+27430,7250,7250m>0m<=107180n)+27430,7190,7190 q$(l,m)0:y1=0:f=f+300 Df=f-50*t4*y1+.2*(2500-e1)*x1Nf>1000n=1-1)^2)*x6+1'Xc5$="Docked"n=n-s8*(2-1)^2))#bn=0n=((f+200*1))/150)-5) ln=0vn>0x6<1.5n)>s8n=n)*s8)t=n):n>0t>y6t=y6t>10t=10 2240 7620:Ia=1:b=1:k=1nh:c=k4(k):d=k5(k):q$(c,d)="C"dx=k:k=nh::k=dx:6910k8n=0:f=k6(k)+100*nh:x6=k7(k):y6=x6):s4=0f=f+1000d4(3)=0d4(4)=06940f=f+1000:6990x1=1:y1=1:d4(3)=06960&x1=0:f=f+3000d4(4)=0698tering the ";,|l5=0g2$;" quadrant (";q1;"-";q2;")"l5<>0n9$;"!"l5<>0m8=1q$(s6,s7)=s5$,1):7680:q$(s6,s7)=s5$,1) l5=1k3=06880,l=1k3:f3=(f4-k4(l))^2+(f5-k5(l))^2)"k8(l)=.5*(f3+k7(l)):k7(l)=f3: 16:y7=10*(q2-1)+s7x1=x7+10*d1*b8*d4+.5) "y1=y7+10*d1*b8*d6+.5):l6=0(,l5=0:x1<0x1>80y1<0y1>80l5=16tl5=0m8=0 @t5<>0#Jq1=(x1+9)/10):q2=(y1+9)/10)#Ts6=x1-10*(q1-1):s7=y1-10*(q2-1)^l5=08240hm8=16810r:"End4+.5):f4=s6:s7=y7-d6+.5):f5=s7e1>06820f9=4:4400:s6=x1:s7=y1:10410:rv=1f4=s6:f5=s7:6820k3=06670,l=1k3:f3=(x1-k4(l))^2+(y1-k5(l))^2)k8(l)=.5*(f3+k7(l)):g(q1,q2)<>1000920 a2<>0#x7=10*(q1-1)+s67500dt6=1:k=50*d1/t1:d1=.1*(s6=x1)^2+(s7-y1)^2).na$=q$(x1,y1):a$="K"a$="C"a$="R"6600xs5$;" blocked by ";,16050:a$;" at sector ";x1;"-";y1:6550rv=1:"Emergency stop required ";r(k);" units of energy." e1=e1-k-s6=x7-dx=l:l=h9::l=dx:6500 l d1=.1*(s6-x1)^2+(s7-y1)^2)s6=x1:s7=y1(f4=s6:f5=s7#2x1<1x1>10y1<1y1>106820<q$(x1,y1)<>"O"6820Ft2=a(1):t3=a(1)-Pq1=a(1):q2=a(1):s6=b(1):s7=b(1):)Z"*** Space Portal Entered ***":.5)l5=1q$(s6,s7)=" "h9=06440 l=1h9-x7=x7+d4:x1=x7+.5):y7=y7+d6:y1=y7+.5)(x1<1x1>10dx=l:l=h9::l=dx:6620(y1<1y1>10dx=l:l=h9::l=dx:6620*q$(x1,y1)="O"dx=l:l=h9::l=dx:6420;q$(x1,y1)<>"."q$(x1,y1)<>" "EAD PASCAL TEXT FILES."04=10:"78C";"ANY KEY RETURNS TO THE MENU."!>G$:::".D1/MENU.MAKER",320)=g(i,j)+100 l3=1r24c1(l3)=q1c2(l3)=q2dx=l3:l3=r2::l3=dx:7600l3c1(l3)=i:c2(l3)=j:a=-a:b=-b:7330c5$="Green"l5=07650c5$="Orange":e1<1000c5$="Yellow"(g(q1,q2)>99ns(q1,q2)>9c5$="RED"&z3=0:j4=1:b6=0:b7=0:k3=0:c3=0:nh=0' px=0:py=0:rh=0:ip=0:nz=0:io=0:ld=-1l5=07730%a=110:b=110:q$(a,b)=" "::(q$(s6,s7)=s5$,1):2u=g(q1,q2):v=ns(q1,q2)<u>9998220.Frh=v/10):pn=v-rh*10:k3=.01*u):nh=k3+rh%Pa=110:b=110:q$(at7:8380 "k=0 "d1=k*.1"x1<>0x1=x1)"y1<>0y1=y1)"i=3*(x1+1)+y1+2 "d2=c5(i)#d2=0d1=0 #d1=0*#:"Force of Nova displaces starship." #6230: (#p=2:j3=12#c5$<>"Docked"9030=<#"Phasers can't be fired through St8840)`"" and buffeted to sector ";n5;"-";n6#j"q$(n5,n6)="C":k4(v)=n5:k5(v)=n6,t"k7(v)=(s6-n5)^2+(s7-n6)^2):k8(v)=k7(v)~"q$(j5,j6)="." ":8870)"a5=j5:a6=j6:t2$=q$(j5,j6):2900:8870":q$(j5,j6)="." "j:q:m"t6=t78900"b9=t6+1:t6=4(m,2):k=k+1:8870"a$<>"C"8850 "v=1nh/$"k4(v)=j5k5(v)=j6dx=v:v=nh::v=dx:8760."v#8"k6(v)=k6(v)-800:k6(v)<=08850%B"n5=j5+j5-h4(m,1):n6=j6+j6-h4(m,2)5L""*** Commander at sector ";j5;"-";j6;" damaged";#V"n5<1n5>10n6<1n6>10uffeted by Nova shockwave.":s4<>08650!e1=e1-1500:8680!s3=>15008700'!d6=1500-s3:e1=e1-d6:7620:s3=0:s4=0>!"*** Starship Shields knocked out.":d4(8)=.005*d5*1)*d6!e1>08710!f9=7:4400:!s3=s3-15001"x1=x1+s6-h4(m,1):y1=y1+s7-hf!a$<>"B"8620!p!g(q1,q2)=g(q1,q2)-10:v=1r3z!b2(v)<>q1b3(v)<>q28590!b2(v)=b2(r3):b3(v)=b3(r3)&!v:r3=r3-1:b6=0:b7=0:b1=b1+1:76206!"*** Starbase at sector ";j5;"-";j6;" destroyed." !8860!s6<>j5s7<>j68720"@"8550!>!ns(q1,q2)=ns(q1,q2)-1:pk=pk+14H!"*** Planet at sector ";j5;"-";j6;" destroyed."4R!i=15:pl(ip,i)=0::ip=0:px=0:py=0:ld<>18860\!f9=6:4400:a6 m=b9t6:q=13:j=13 j*q=48870! j5=h4(m,1)+q-2:j6=h4(m,2)+j-2 j5<1j5>108870 j6<1j6>108870& a$=q$(j5,j6):a$="."a$="O"8870 a$<>"*"8500!1)>.28470 !x2=j5:y2=j6:11740:7!t7=t7+1:h4(t7,1)=j5:h4(t7,2)=j=48290 X l=q2-4b g3$="IV":l=48310l g3$=g4$,l)v g2$=g2$+" "+g3$: 1)>.28340 11740:< q$(a5,a6)=".":"*** Star at sector ";a5;"-";a6;" Novas." g(q1,q2)=g(q1,q2)-1:s1=s1+1 b9=1:t6=1:t7=1:k=0:x1=0:y1=0 h4(b9,1)=a5:h4(b9,2)=:q$(s,t)<>"."8190 q$(s,t)="O":V "Spock - 'Captain, my sensors detect a space warp somewhere in this quadrant.'":% a=110:b=110:q$(a,b)="."::& q$(s6,s7)=s5$,1):0 g4$="III":l=2:q2=>58260: l=1D g2$=g1$(2*(q1-1)+l):l=q2N l<d4(9)>08170E:10);"You have entered the Romulan Neutral Zone! Unless you"@12);"leave immediately, we shall start an attack against"914);"your puny starship.....We are waiting......."nz=1t2<>q1t3<>q2)s=b(1):t=b(1)np:ip=i:pl(i,1)=q1pl(i,2)=q2dx=i:i=np::i=dx:8060ri:ip=0:8080)|s=b(1):t=b(1):q$(s,t)<>"."8060q$(s,t)="@":px=s:py=t7620:u<1 a=1u)s=b(1):t=b(1):q$(s,t)<>"."8100q$(s,t)="*":rh=0k3<>0b6<>08180b(1):t=b(1):k4(i)=s:k5(i)=t:q$(s,t)<>"."79506q$(s,t)="R":k7(i)=(s6-s)^2+(s7-t)^2):k8(i)=k7(i)"k6(i)=450+400*1)+50*s8: ,122406u<108030 @u=u-10-Jb6=b(1):b7=b(1):q$(b6,b7)<>"."8010Tq$(b6,b7)="B"^np=08080Ahi=1s6-s)^2+(s7-t)^2):k8(a)=k7(a)l5<>0q$(s6,s7)=" "k6(a)=1)*150+300+25*s8:r2=07930 a=1r2/c1(a)=q1c2(a)=q2dx=a:a=r2::a=dx:7920 :7930.q$(s,t)="C":k6(k3)=950+400*1)+50*s8:c3=1rh=07980j=k3+1:i=jnh9s=,b)="."::Zq$(s6,s7)=s5$,1)du<1007930nk3>01)>.7rh=0z3=1xz3=078206:"** Klingons equipped with Cloaking devices **"u=u-100*k3:a=1k3%s=b(1):k4(a)=s:t=b(1):k5(a)=tq$(s,t)<>"."78306q$(s,t)="K":k7(a)=(arbase shields.":9100F#d4(3)=09050"P#"Phaser Banks damaged.":9100Z#s4=090702d#"Shields must be down to fire Phasers.":9100n#nh>09110>x#:"Mr. Spock - 'Captain, my sensors detect no Klingons ";#"in this quadrant.'" #j3=0:5#"Phasers locked on target. Energy available: ";#.01*100*e1).#"Units to fire? ";p1:p1=>e1=-1:9110#p1>09160 #j3=0: #e1=e1-p1#d4(11)=09200#p1=p1*(1)*.5+.5)8#:"Computer malfunction hampers Phaser accuracy.":#e=p1:(:"Torpedo missed!"(Z6 (r1<>0(f9=1:4400:1(:"*** RED ALERT!! RED ALERT!! ***":!("*** COLLISION IMMINENT!!":.(14640:w7=.75:a$=q$(s6,s7):a$="R"w7=1.1(a$="C"w7=1.58(s5$;" on collision course with ";:16050:a$;80!((x2=a5:y2=a6:8320:a5=x2:a6=y22(g(q1,q2)=1000 <(a2<>0 F(103808P(:"AAAAAAAAARRRRRRRRRRRRRGGGGGGGGGGGGHHHHHHHHHHH!!",Z(" Hack! Hack! Cough! *Choke*"1d(:"Mr. Spock - 'Fascinating!'":q$(a5,a6)="."n(t2=0:t3=0:10380x(l9"-";a6;" destroyed.":pk=pk+1:io=03'ns(q1,q2)=ns(q1,q2)-1:i=15:pl(ip,i)=0::ip=0)'px=0:py=0:q$(a5,a6)=".":ld<>110380'f9=14:4400:(a$<>"*"10320 (1)>.1510280C("*** Star at sector ";a5;"-";a6;" unaffected by Photon blast." (103ations..You Turkey!"'s2(q1,q2)<0s2(q1,q2)=0 'w=1r3 'b2(w)<>q1b3(w)<>q210170'b2(w)=b2(r3):b3(w)=b3(r3)&'w:q$(a5,a6)=".":r3=r3-1:b6=0:b7=0-'g(q1,q2)=g(q1,q2)-10:b1=b1+1:7620:10380'q$(a5,a6)<>"@"10240:'"*** Planet at ";a5;,a6):q$(a5,a6)=".":"Damaged--"/L'" Displaced by blast to sector ";p;"-";q.V'k4(v)=p:k5(v)=q:k7(v)=(s6-p)^2+(s7-q)^2)`'k8(v)=k7(v)j'12240:10380)t'"Damaged, but not destroyed.":10380~'a$<>"B"10190<'"*** Starbase destroyed...Congratul900:103801&a$=q$(a5,a6):16050:a$;" at ";a5;"-";a6;" ";'a7=a8+2.5*(1)-.5)*'w3=-a7)):a7))>w3w3=a7))'x7=-a7)/w3:y7=a7)/w3$'p=a5+x7+.5):q=a6+y7+.5) .'p<1p>10q<1q>10101008'q$(p,q)<>"."101000B'q$(p,q)=q$(a5"*** Commander as sector ";a5;"-";a6;" used anti-photon device!"&&" Torpedo neutralized.":10380 &v=1nh&a5=k4(v)a6=k5(v)9940&v&k=k6(v):w3=200+800*1)&k)09980&t2$=q$(a5,a6):2l9=115:x5=x5+x4:a5=x5+.5)>&a5<1a5>1010370H&y5=y5+y4:a6=y5+.5)R&a6<1a6>1010370\&l9=5l9=9f&r(x5);"-";r(y5);", ";p&a$=q$(a5,a6):a$<>"."9860 z&10360&:a$="K"a$="R"9910&a$<>"C"10110&1)>.19910E&.001*s3*r%a3=c6+.25*r:n=19740#%a8=(15-a3+(2-z6)*g2)*.5235988:.&"Track for Torpedo number ";z7;"--":9750- &:"Torpedo track --":a8=(15-a3)*.5235988&x4=-a8):y4=a8):b8=x4) &y4)>x4)b8=y4)!*&x4=x4/b8:y4=y4/b8:x5=s6:y5=s7"4&.5%r=>-.4r<=.49700%r=(1)+1.2)*r:n=39660$%"*** Torpedo Misfires...":9670,%"*** Torpedo number ";z6;" Misfires..."%1)>.29700+%"*** Photon Tubes damaged by misfire."%d4(4)=d5*(1+2*1)):10390'%s4<>0c5$="Docked"r=r+1)="-"9490#D%b$,1)="N"b$,1)="n"9590,N%b$,1)<>"Y"b$,1)<>"y"=-1:95205X%"Spread angle: (0 - 45 degrees) ";g2:g2<09490b%g2>45=-1:9560l%g2=g2/60:n=3 v%z6=1n%c5$<>"Docked"t4=t4-1%z7=z6:r=1)%r=(r+1))*.5-$z=094604$zm=0:"Sector coordinates: ";i,j:i<0j<09490%$a3=0:a4=100*i+j:2390:zm=19430$c6=d2:9470$"Torpedo Course: ";c6$d1$="D"c6=d(c6)%c6=>09500 %j3=0:%t4>29520 &%n=1:95900%"Burst of 3? ";b$:n=1:%b$,$h3(i)=h5(i):e=e-r7 h$i:9340r$h3(i)=h3(i)+e:e=0 |$5490$e<>0a2=09370 $j3=1:4$r(e);" units expended on empty space.":j3=1:$j3=1:d4(4)=09400"$"Photon Tubes damaged.":9490$t4>09420&$"Torpedo supply exhausted.":9490nh=09370#e=0:t5=(nh*(nh+1))/2#$i=1nh:h3(i)=((nh+1-i)/t5)*p1$h5(i)=k6(i))/(p*.9^k7(i))$h3(i)<=h5(i)9260!"$e=e+(h3(i)-h5(i)):h3(i)=h5(i),$i6$e=09340@$i=1nh:r7=h5(i)-h3(i)J$r7<=09320"T$r7=>edx=i:i=nh::i=dx:9330^" at";(" sector ";s6;"-";s7:*("Sulu - 'Shall we ram him, Sir?' ";b$$(b$,1)="Y"b$,1)="y"10510)(:"Scotty - ''Full reverse warp!'": )6540:#)"*** ";s5$;" rams ";a$;" at ";2)"sector ";s6;"-";s7:a5=s6:a6=s7:t2$=q$(s6,s7))")2900:"*** ";s5$;" heavily damaged.";,)k=5+1)*20):"*** Sickbay reports ";k;" casualties!"6)c4=c4+k:l=1v9@)d4(l)<010600J)j=(3*w7*1)+1)*d5 T)l=6j=0^)d4(l)=d4(l)+jh)lr)s4=0:r1<>0|)f9=1:4400:)p=d0-j2:p<>0r1=010650 1)="y"11700-&-s4=1:s9=1:c5$<>"Docked"e1=e1-50$-"Shields raised.":e1<=011720 -j3=1:(-s4=0:s9=1:"Shields lowered.":j3=1:"-"Shields damaged and down.":/-:"Shields use up the last of the energy."-f9=4:4400:-x2<>011840 - 'Our top speed is Warp 10, Captain.'":F-j3=0:d4(8)<>011710P-s4<>0116406Z-"The Shields are down. Do you want them up? ";b$$d-b$,1)="Y"b$,1)="y"11670n-6x-"The Shields are up. Do you want them down? ";b$$-b$,1)="Y"b$,or ";w1;", Captain.'":O-"Engineer Scott - 'Aye, Captain, but our maximum safe speed is Warp 6.'":J(-"Engineer Scott - 'Aye, Captain, but our engines may not take it.'":=2-"Ensign Chekov - 'We can't go below Warp 1, Captain.'":=<-"Ensign Chekov,y)+10::i=d0)::s0=0,,t2=a(1):t3=a(1):g(t2,t3)<10011460,7680::12370:6020:$,"Warp factor: ";k::k<111570,k>1011580,j=w1:w1=k:w2=w1*w1,w1<=jw1<=611540-w1<=811550 -w1>8115607-"Ensign Chekov - 'Warp fact,y)+100:c1(i)=x:c2(i)=y: t,i=1np'~,x=a(1):y=a(2):ns(x,y)>0113905,ns(x,y)=1:pl(i,1)=x:pl(i,2)=y:pl(i,3)=1)*3)+1$,pl(i,4)=1.95*1)):pl(i,5)=0: ,i=1rr(,x=a(1):y=a(1):x=q1y=q211430,ns(x,y)=>1011430',ns(x,y)=ns(x)+n>99911270,x=q1y=q211270&,g(x,y)=g(x,y)+n:k=k-m:k<>011250 $,i=1i41.,x=a(1):y=a(1):g(x,y)<991)<.75113108,x=q1y=q211310B,g(x,y)>89911310L,i=111370*V,m=i-1:j=1m:c1(j)=xc2(j)=y11310`,j'j,g(x,y)=g(x/+k=i-1:j=1k:d1=(b2(j)-x)^2+(b3(j)-y)^2)!+d1<2dx=j:j=k::j=dx:11160+j2+b2(i)=x:b3(i)=y:s2(x,y)=-1:g(x,y)=g(x,y)+10:I%+b1=0:k=i1-i4:l=.25*s8*(9-l2)+1) +l>9l=9+m=(1-1)^2)*l):m>km=k +n=100*m*,x=a(1):y=a(1):g(x,yd0-1.5*(i5/r2)*1)):i6=0\+f1(3)=d0-.3*i5*1))&f+f1(6)=1e30:f1(5)=1e30:s8<311130p+f1(5)=d0-i5*1)))z+i=18:j=18:k=1)*9+1):i6=i6+k+g(i,j)=k:::s1=0 +i=1i2+x=1)*6+2):y=1)*6+2)+g(x,y)=>1011160+i<2112209=10:t4=i9! +w1=5:w2=25:i=1v9:d4(i)=0:3*+rk=0:i6=0:im=0:cr=0:ic=0:pk=0:sc=1:ld=-1:cp=.05<4+j2=100*21*1)+30):d0=j2:k1=0:k2=0:n1=0:n2=0:r6=0:c4=07>+a1=1:d3=.25:i=18:j=18:s2(i,j)=0:ns(i,j)=0::%H+f1(1)=d0-.5*i5*1)):f1(4)=1e30%R+f1(2)=;58);l>*15);"-------------------------------------------------""*48);"Total";58);j;" **":$*a2=0:g1=0:1980:s5$="Enterprise"+pr=3:ps=0:z3=05 +i7=5000:e1=i7:i8=2500:s3=i8:s4=0:s9=s4:j1=4:l1=j17+q1=a(1):q2=a(1):s6=b(1):s7=b(1):i010910,*10750;pk,"Planet(s) destroyed",-10*pk*n1=0109302*10750;n1,"SOS call(s) to a Starbase",-35*n1*c4=010950)*10750;c4,"Casualties incurred",-c4*m=010960*g1=010980:*15);"Bonus for winning the ";s$(s8);" game"*rr=0g1=010830(D*10750;rr,"Romulan(s) captured",rrN*k=0108506X*10750;r(n),"Klingons per Stardate, average",kb*s1=010870)l*10750;s1,"Star(s) destroyed",-3*s1v*b1=010890/*10750;b1,"Starbase(s) destroyed",-100*b1*pk=o score.":#)"Your score --"::k1=010770) 3#.2#,8X,42A,4#.2#5*10750;k1,"Ordinary Klingon(s) destroyed",10*k1*k2=0107906*10750;k2,"Klingon Commander(s) destroyed",50*k2&*rk=010810,0*10750;rk,"Romulan(s) destroyed",20*rk:)p<5p=5!)n=(k2+k1)/p:k=500*n+.5):l=0)g1<>0l=100*s8)i=0:s5$,1)="E"m=0)s5$,1)="D"m=1)s5$,1)=""m=20)j=10*k1+50*k2+k+l-100*b1-100*m-35*n1-3*s1-c4")j=j+20*rk-10*pk:g1<>0j=j+rr):j<>010740#)"As yet, you have n"-n=1)*i6+1):x=18:y=18N-n=n-(g(x,y)-g(x,y)/10)*10):n<=0dx=y:y=8::y=dx:dx=x:x=8::x=dx:11780 -y:x:.x<>q1y<>q211900.j4<>011900(.n=1)*(g(x,y)-g(x,y)/10)*10))+1.".x2=110:y2=110:q$(x2,y2)<>"*"11830>,.n=d ...... "NJ.QUIZ".... n xS$(21,4)#A=121:B=14:S$(A,B):B:APS(5): TO CHANGE MAX NUMBER OF PLAYERS CHANGE THE '5' IN LINES 140 AND 150 N$(5)+=8:=30:"HOW MANY PLAYERS? ";P::=8 SS=21Q=1P:S(P)=0:Q:T=0>RRISTOWN","407 630","470"*~ "OCEAN","TOMS RIVER","346 038","641"* "PASSAIC","PATERSON","447 585","187"$ "SALEM","SALEM","64 676","338"- "SOMERSET","SOMERVILLE","203 129","305"' "SUSSEX","NEWTON","116 119","526") "UNION","ELIZABETH","Y","199 917","327"+B "HUDSON","JERSEY CITY","556 972","46"-L "HUNTERDON","FLEMINGTON","87 361","426"(V "MERCER","TRENTON","307 863","227"1` "MIDDLESEX","NEW BRUNSWICK","595 893","316"+j "MONMOUTH","FREEHOLD","503 173","472"+t "MORRIS","MO237"0 "BURLINGTON","MOUNT HOLLY","362 542","808"' "CAMDEN","CAMDEN","471 650","223"6 "CAPE MAY","CAPE MAY COURT HOUSE","82 266","263".$ "CUMBERLAND","BRIDGETON","132 866","498"&. "ESSEX","NEWARK","851 304","127"-8 "GLOUCESTER","WOODBUR4C$,CS$,CP$,CA$> 8RH 6R"C"600A$=S$(X,1)Z$="C"60Z$="C"510CTN$(Y);" --PLEASE NAME THE COUNTY SEAT OF ";S$(X,1)::=40:A$%^:=8:"YOUR ANSWER IS ";A$::: hT=T+1rA$=S$(X,2)S(Y)=S(Y)+1|A$=S$(X,2)SS=SS-1:A$=S$(X,2)"80C";"****** YOU'RE RIGHT ******"::A$=S$(X,2)420ey:":Z$ :=8K"80C";"DO YOU WISH TO REVIEW THE COUNTIES BEFORE STARTING THE QUIZ?"A$:A$="Y"A$="y"800 :=8 Z=1PB" PLAYER NUMBER ";Z;", PLEASE TYPE YOUR NAME";:" ";N$(Z)"Z ,Y=1P6X=8)*SS)+1 @:=8J"80C";"********** NEW JERSEY COUNTIES **********":::3"80C";"THERE ARE 21 COUNTIES IN NEW JERSEY";S"80C";"THIS IS A QUIZ TO TEST YOUR KNOWLEDGE OF THE NEW JERSEY COUNTIES"::H"80C";"If you wish to enter county names, press the 'C' k504 094","103") "WARREN","BELVIDERE","84 429","359"@ 21 COUNTIES; 7,468 SQUARE MILES (LAND); POP., 7,365,011T DATA FROM WORLD ALMANAC-1986; SOURCE 1980 CENSUS AS UPDATED IN MARCH 1985. "NJ.QUIZ")d ...... "PRESIDENT.QUIZ" .... x8=8:"80C";"********** PRESIDENTS QUIZ **********"S$(40,12)$A=140:B=112:S$(A,B):B:A S(5) N$(5),=10:=32:"HOW MANY PLAYERS? ";P::=8 SS=40Q=1P:S(P)=0:Q:T=09S$(40,11)=T11$:S$(40,12)=T12$,MS$(37,2),S$(38,2),S$(39,2),S$(40,2):U$N:"SS=";SSR PRESIDENTS DATA "1ST","GEORGE WASHINGTON","57","APR 30 1789 to MAR 03 1793","FEDERAL","VIRGINIA","JOHN ADAMS","MASSACHUSETTS"," "," "," "," "  "2,10):T11$=S$(X,11):T12$=S$(X,12)(,I=X39:B=112:S$(I,B)=S$(I+1,B): .B=1120S$(I,B)=S$(I+1,B)2B4IQ>S$(40,1)=T1$:S$(40,2)=T2$:S$(40,3)=T3$:S$(40,4)=T4$:S$(40,5)=T5$:S$(40,6)=T6$WHS$(40,7)=T7$:S$(40,8)=T8$:S$(40,9)=T9$:S$(40,10)=T10$:6);PRE$;32);P$;40);S$;54);D$%PRE$="RONALD WILSON REAGAN"760710U$::260'"80C";"Computer is sorting data"K T1$=S$(X,1):T2$=S$(X,2):T3$=S$(X,3):T4$=S$(X,4):T5$=S$(X,5):T6$=S$(X,6)Q*T7$=S$(X,7):T8$=S$(X,8):T9$=S$(X,9):T10$=S$(XRD FILLMORE"U$:!PRE$="ANDREW JOHNSON"U$:&PRE$="CHESTER ALAN ARTHUR"U$:#PRE$="WILLIAM MCKINLEY"U$:*PRE$="WARREN GAMALIEL HARDING"U$:!PRE$="HARRY S TRUMAN"U$:(PRE$="RICHARD MILHOUS NIXON"U$:21);R$;0ENU.MAKER"`:02);"#";11);"NAME";31);"PARTY";41);"STATE";61);"DATES OF SERVICE"::1,380,24:7R$,PRE$,A$,D$,P$,S$,VP$,VPS$,VP2$,VPS2$,VP3$,VPS3$PRE$="JAMES MONROE"U$:)PRE$="WILLIAM HENRY HARRISON"U$:#PRE$="MILLA00:Q,N:=8:"80C";"****** SCORE ******"::BX10);"NAME";40);"RIGHT ANSWERS";60);"PERCENTAGE RIGHT": bX=1P l ### Hv10);N$(X);40);S(X);" OF ";T/P;66);:620;100*(S(X)/(T/P)))X::"80C";"END OF QUIZ"".D1/MC";"-Space bar to continue-"Q$SS=0550A$=S$(X,2)790Y+"DO YOU WISH TO QUIT":B$:B$="Y"590300 &:=880"80C";"********** CONGRATULATIONS **********"::4:"80C";"YOU HAVE IDENTIFIED ALL 40 PRESIDENTS"DQ=110"HIS HOME STATE WAS ";S$(X,6);" AND HE HAD AS VICE-PRESIDENTS:" 25);S$(X,7);55);S$(X,8)!25);S$(X,9);55);S$(X,10)"25);S$(X,11);55);S$(X,12)R03);"PRESIDENT ";S$(X,2);" WAS A MEMBER OF THE ";S$(X,5);" POLITICAL PARTY"(:"80C";"****** YOU'RE RIGHT ******"::A$=S$(X,2)440-"80C";"****** YOU'RE WRONG ******"::[03);"AS THE ";S$(X,1);" PRESIDENT ";S$(X,2)" TOOK OFFICE AT THE AGE OF ";S$(X,3);"."513);"HE SERVED DURING THE PERIOD ";S$(X,4);"."J03);8 9 10 11 12 T:=8 YS$(X,2)[^03);N$(Y);", PLEASE NAME THE ";S$(X,1);" PRESIDENT OF THE UNITED STATES "::=31:A$%h:=8:"YOUR ANSWER IS ";A$::: rT=T+1sA$=S$(X,2)S(Y)=S(Y)+1A$=S$(X,2)SS=SS-1:A$=S$(X,2)"80A$:A$="Y"A$="y"700 :=8 Z=1PB" PLAYER NUMBER ";Z;", PLEASE TYPE YOUR NAME";:" ";N$(Z)"Z ,Y=1P6X=8)*SS)+1BJ R$,PRE$,A$,D$,P$,S$,VP$,VPS$,VP2$,VPS2$,VP3$,VPS3$ ?K 1 2 3 4 5 6 7 "80C";"********** PRESIDENT QUIZ **********":::0"80C";"THERE HAVE BEEN 40 US PRESIDENTS";H"80C";"THIS IS A QUIZ TO TEST YOUR KNOWLEDGE OF THOSE PRESIDENTS"U"80C";"DO YOU WISH TO REVIEW THE LIST OF PRESIDENTS BEFORE STARTING THE QUIZ?"ND","JOHN ADAMS","61","MAR 04 1797 to MAR 03 1801","FEDERAL","MASSACHUSETTS","THOMAS JEFFERSON","VIRGINIA"," "," "," "," "  "3RD","THOMAS JEFFERSON","57","MAR 04 1801 to MAR 03 1809","DEM-REP","VIRGINIA","AARON BURR","NEW YORK","GEORGE CLINTON","NEW YORK"," "," "  "4TH","JAMES MADISON","57","MAR 04 1809 to MAR 03 1817","DEM-REP","VIRGINIA","GEORGE CLINTON","NEW YORK","ELBRIDGE GERRY","MASSACHUSETTS"," "," " $ "5TH","JAMES MONROE","58","MAR 04 1817 to MAR 03 1825","DEM-REP","VIRGINIA","DANIEL " "d "31ST","HERBERT CLARK HOOVER","54","MAR 04 1929 to MAR 03 1933","REP","CALIFORNIA","CHARLES CURTIS","KANSAS"," "," "," "," " n "32ND","FRANKLIN DELANO ROOSEVELT","51","MAR 04 1933 to APR 12 1945","DEM","NEW YORK","JOHN N GARNER","TEXAS","HENRYWARREN GAMALIEL HARDING","55","MAR 04 1921 to AUG 02 1923","REP","OHIO","CALVIN COOLIDGE","MASSACHUSETTS"," "," "," "," "P "30TH","CALVIN COOLIDGE","51","AUG 03 1923 to MAR 03 1929","REP","MASSACHUSETTS","--NONE--"," ","CHARLES G DAWES","ILLINOIS"," ","WILLIAM HOWARD TAFT","51","MAR 04 1909 to MAR 03 1913","REP","OHIO","JAMES S SHERMAN","NEW YORK"," "," "," "," "< "28TH","WOODROW WILSON","56","MAR 04 1913 to MAR 03 1921","DEM","NEW JERSEY","THOMAS R MARSHALL","INDIANA"," "," "," "," " F "29TH","to SEP 14 1901","REP","OHIO","GARRET A HOBART","NEW JERSEY","THEODORE ROOSEVELT","NEW YORK"," "," " "26TH","THEODORE ROOSEVELT","42","SEP 14 1901 to MAR 03 1909","REP","NEW YORK","--NONE--"," ","CHARLES WARREN FAIRBANKS","INDIANA"," "," "~2 "27TH",9 to MAR 03 1893","REP","INDIANA","LEVI P MORTON","NEW YORK"," "," "," "," " "24TH","GROVER CLEVELAND","55","MAR 04 1893 to MAR 03 1897","DEM","NEW YORK","ADLAI E STEVENSON","ILLINOIS"," "," "," "," "  "25TH","WILLIAM MCKINLEY","54","MAR 04 1897 ","SEP 20 1881 to MAR 03 1885","REP","NEW YORK","--NONE--"," "," "," "," "," "  "22ND","GROVER CLEVELAND","47","MAR 04 1885 to MAR 03 1889","DEM","NEW YORK","THOMAS A HENDRICKS","INIANA"," "," "," "," "} "23RD","BENJAMIN HARRISON","55","MAR 04 188,"MAR 04 1877 to MAR 03 1881","REP","OHIO","WILLIAM A WHEELER","NEW YORK"," "," "," "," " "20TH","JAMES ABRAM GARFIELD","49","MAR 04 1881 to SEP 19 1881","REP","OHIO","CHESTER A ARTHUR","NEW YORK"," "," "," "," " u "21ST","CHESTER ALAN ARTHUR","50 1869","REP","TENNESSEE","--NONE--"," "," "," "," "," " "18TH","ULYSSES SIMPSON GRANT","46","MAR 04 1869 to MAR 03 1877","REP","ILLINOIS","SCHUYLER COLFAX","INDIANA","HENRY WILSON","MASSACHUSETTS"," "," "  "19TH","RUTHERFORD BIRCHARD HAYES","54"ANIA","JOHN C BRECKINRIDGE","KENTUCKY"," "," "," "," "  "16TH","ABRAHAM LINCOLN","52","MAR 04 1961 to APR 15 1865","REP","ILLINOIS","HANNIBAL HAMLIN","MAINE","ANDREW JOHNSON","TENNESSEE"," "," "p "17TH","ANDREW JOHNSON","56","APR 15 1965 to MAR 03WHIG","NEW YORK","--NONE--"," "," "," "," "," "  "14TH","FRANKLIN PIERCE","48","MAR 04 1853 to MAR 03 1857","DEM","NEW HAMPSHIRE","WILLIAM R KING","ALABAMA"," "," "," "," " "15TH","JAMES BUCHANAN","65","MAR 04 1857 to MAR 03 1861","DEM","PENNSYLV"TENNESSE","GEORGE M DALLAS","PENNSYLVANIA"," "," "," "," " t "12TH","ZACHARY TAYLOR","64","MAR 04 1849 to MAR 03 1850","WHIG","LOUISIANA","MILLARD FILLMORE","NEW YORK"," "," "," "," " s~ "13TH","MILLARD FILLMORE","50","JUL 10 1850 to MAR 03 1853"," 1841 to APR 04 1841","WHIG","OHIO","JOHN TYLER","VIRGINIA"," "," "," "," "n` "10TH","JOHN TYLER","51","APR 06 1841 to MAR 03 1845","WHIG","VIRGINIA","--NONE--"," "," "," "," "," " j "11TH","JAMES KNOX POLK","49","MAR 04 1845 to MAR 04 1849","DEM",SEE","JOHN C CALHOUN","SOUTH CAROLINA","MARTIN VAN BUREN","NEW YORK"," "," " L "8TH","MARTIN VAN BUREN","54","MAR 04 1837 to MAR 03 1841","DEM","NEW YORK","RICHARD M JOHNSON","KENTUCKY"," "," "," "," "|V "9TH","WILLIAM HENRY HARRISON","68","MAR 04D TOMPKINS","NEW YORK"," "," "," "," " . "6TH","JOHN QUINCY ADAMS","57","MAR 04 1825 to MAR 03 1829","DEM-REP","MASSACHUSETTS","JOHN C CALHOUN","SOUTH CAROLINA"," "," "," "," "8 "7TH","ANDREW JACKSON","61","MAR 04 1829 to MAR 03 1837","DEM","TENNES A WALLACE","IOWA","HARRY S TRUMAN","MISSOURI"  "33RD","HARRY S TRUMAN","60","APR 12 1945 to JAN 20 1953","DEM","MISSOURI","--NONE--"," ","ALBEN W BARKLEY","KENTUCKY"," "," "  "34TH","DWIGHT DAVID EISENHOWER","62","JAN 20 1953 to JAN 20 1961","REP","NEW YORK","RICHARD M NIXON","CALIFORNIA"," "," "," "," " "35TH","JOHN FITZGERALD KENNEDY","43","JAN 20 1961 to NOV 22 1963","DEM","MASSACHUSETTS","LYNDON B JOHNSON","TEXAS"," "," "," "," "  "36TH","LYNDON BAINES JOHNSON","55","NOV 22 1963 to S$(I+1,B)B I7S$(50,1)=T1$:S$(50,2)=T2$:S$(50,3)=T3$:S$(50,4)=T4$ U*:03);"STATE";25);"CAPITAL";45);"RANK";62);"ENTERED UNION"::1,380,244>S$,C$,R$,YR$(C3);S$;25);C$;45);R$;62);YR$:HS$="IOWA""80C";"-p: X=1P  ### H10);N$(X);40);S(X);" OF ";T/P;66);:670;100*(S(X)/(T/P)))X::"80C";"END OF QUIZ" CLOSE#1 ".D1/MENU.MAKER"3T1$=S$(X,1):T2$=S$(X,2):T3$=S$(X,3):T4$=S$(X,4) I=X49 B=14S$(I,B)= ******"::N420XQ$0b:=8:"80C";"***** CONGRATULATIONS *****"8l"80C";"YOU HAVE IDENTIFIED ALL 50 STATE CAPITALS"vX=11000:X,:=8:"80C";"****** SCORE ******"::B10);"NAME";40);"RIGHT ANSWERS";60);"PERCENTAGE RIGHT"HE STATE WHOSE CAPITAL IS ";S$(X,2)::=40:A$%:=8:"YOUR ANSWER IS ";A$::: T=T+1A$=S$(X,1)S(Y)=S(Y)+1&A$=S$(X,1)SS=SS-1:0A$=S$(X,1)"80C";"****** YOU'RE RIGHT ******":::A$=S$(X,1)420-D"80C";"****** YOU'RE WRONGL OF ";S$(X,1):K08);S$(X,1)" entered the Union as the ";S$(X,3);" state in ";S$(X,4)Q$SS=0600A$=S$(X,1)Z$="S"730A$=S$(X,2)Z$<>"S"730Y+"DO YOU WISH TO QUIT":B$:B$="Y"640300JN$(Y);" --PLEASE NAME T%^:=8:"YOUR ANSWER IS ";A$::: hT=T+1rA$=S$(X,2)S(Y)=S(Y)+1|A$=S$(X,2)SS=SS-1:A$=S$(X,2)"80C";"****** YOU'RE RIGHT ******"::A$=S$(X,2)420-"80C";"****** YOU'RE WRONG ******"::220);S$(X,2);" IS THE CAPITASTARTING THE QUIZ?"A$:A$="Y"A$="y"810 :=8 Z=1PB" PLAYER NUMBER ";Z;", PLEASE TYPE YOUR NAME";:" ";N$(Z)"Z ,Y=1P6X=8)*SS)+1 @:=8JZ$="S"510>TN$(Y);" --PLEASE NAME THE CAPITAL OF ";S$(X,1)::=40:A$80C";"********** US STATES **********":::N"80C";"THIS IS A QUIZ TO TEST YOUR KNOWLEDGE OF THE STATE CAPITALS"::G"80C";"If you wish to enter state names, press the 'S' key:":Z$ :=8I"80C";"DO YOU WISH TO REVIEW THE STATES BEFORE d ...... "US.QUIZ"n xS$(50,4)#A=150:B=14:S$(A,B):B:AQS(5): TO CHANGE MAX NUMBER OF PLAYERS CAHANGE THE "5" IN LINES 140 AND 150 N$(5)+=8:=30:"HOW MANY PLAYERS? ";P::=8 SS=50Q=1P:S(P)=0:Q:T=04"RONALD WILSON REAGAN","69","JAN 20 1981 to -----------","REP","CALIFORNIA","GEORGE BUSH","TEXAS"," "," "," "," "! ... "PRESIDENT.QUIZ" .....LPH FORD","61","AUG 09 1974 to JAN 20 1977","REP","MICHIGAN","NELSON A ROCKEFELLER","NEW YORK"," "," "," "," "  "39TH","JAMES EARL CARTER","42","JAN 20 1977 to JAN 20 1981","DEM","GEORGIA","WALTER F MONDALE","MINNESOTA"," "," "," "," " ~ "40TH","JAN 20 1969","DEM","TEXAS","--NONE--"," ","HUBERT H HUMPHREY","MINNESTA"," "," " "37TH","RICHARD MILHOUS NIXON","56","JAN 20 1969 to AUG 09 1974","REP","CALIFORNIA","SPIRO T AGNEW","MARYLAND","GERALD R FORD","MICHIGAN"," "," " "38TH","GERALD RUDOress any key to continue-":U$DJS$="NORTH CAROLINA""80C";"-press any key to continue-":U$/RS$="HAWAII""80C";"- END of LIST-":U$WS$="HAWAII"900z830U$::2602 "WASHINGTON","OLYMPIA","42nd","Nov 11 1889" , "OREGON","SALEM","33rd","Feb 14 1859" 6 "CALIFORNIA","SACRAMENTO","31st","Sep 09 1850" , "IDAHO","BOISE","43rd","Jul 03 1890" 2 "NEVADA","CARSON CITY","36th","Oct 31 1864" 2$ "UTAH","SALT LAKE CITY","45th","Jan 04 1896".. "ARIZONA","PHOENIX","48th"ls, press the 'C' key:":Z$ :=8L"80C";"DO YOU WISH TO REVIEW THE PROVINCES BEFORE STARTING THE QUIZ?"A$:A$="Y"A$="y"700 :=8 Z=1PB" PLAYER NUMBER ";Z;", PLEASE TYPE YOUR NAME";:" ";N$(Z)"Z ,Y=1P1X=8)******** CANADA QUIZ **********":::B"80C";"THERE ARE 10 PROVINCES AND 2 TERRITORIES IN CANADA";o"80C";"THIS IS A QUIZ TO TEST YOUR KNOWLEDGE OF THE CANADIAN PROVINCES AND TERRITORIES:PRINT:PRINT:PRINTD"80C";"If you wish to enter capita#d ...... "CANADA QUIZ" ....x6=8:"80C";"********** CANADIAN QUIZ **********" S$(12,4)#A=112:B=14:S$(A,B):B:A S(5) N$(5),=10:=32:"HOW MANY PLAYERS? ";P::=8 SS=12Q=1P:S(P)=0:Q:T=06"80C";"**","1st","Dec 07 1787" - "ALASKA","JUNEAU","49th","Jan 03 1959" . "HAWAII","HONOLULU","50th","Aug 21 1959" PROGRAM "US.QUIZ","BOSTON","6th","Feb 06 1788"7 "RHODE ISLAND","PROVIDENCE","13th","May 29 1790" 3 "CONNECTICUT","HARTFORD","5th","Jan 09 1788" 1 "NEW JERSEY","TRENTON","3rd","Dec 18 1787" 1 "MARYLAND","ANNAPOLIS","7th","Apr 28 1788" - "DELAWARE","DOVEROLINA","COLUMBIA","8th","May 23 1788" 3 "FLORIDA","TALLAHASSEE","27th","Mar 03 1845" - "MAINE","AUGUSTA","23rd","Mar 15 1820" 1 "VERMONT","MONTPELIER","14th","Mar 04 1791"4 "NEW HAMPSHIRE","CONCORD","9th","Jun 21 1788" 2 "MASSACHUSETTS"ALBANY","11th","Jul 26 1788" 5F "PENNSYLVANIA","HARRISBURG","2nd","Dec 12 1787"8P "WEST VIRGINIA","CHARLESTON","35th","Jun 20 1863" 1Z "VIRGINIA","RICHMOND","10th","Jun 26 1788" 5d "NORTH CAROLINA","RALEIGH","12th","Nov 21 1789"6x "SOUTH CAR "KENTUCKY","FRANKFORT","15th","Jun 01 1792" 2 "TENNESSEE","NASHVILLE","16th","Jun 01 1796"2 "ALABAMA","MONTGOMERY","22nd","Dec 14 1819" -( "OHIO","COLUMBUS","17th","Mar 01 1803" -2 "GEORGIA","ATLANTA","4th","Jan 02 1788"/< "NEW YORK","" 1 "WISCONSIN","MADISON","30th","May 29 1848" 4 "ILLINOIS","SPRINGFIELD","21st","Dec 03 1818" 2 "MISSISSIPPI","JACKSON","20th","Dec 10 1817"/ "MICHIGAN","LANSING","26th","Jan 26 1837"5 "INDIANA","INDIANAPOLIS","19th","Dec 11 1816" 3 2 "MINNESOTA","ST. PAUL","32nd","May 11 1858" / "IOWA","DES MOINES","29th","Dec 28 1846" 8 "MISSOURI","JEFFERSON CITY","24th","Aug 10 1821" 4 "ARKANSAS","LITTLE ROCK","25th","Jun 15 1836" 5 "LOUISIANA","BATON ROUGE","18th","Apr 30 18122 1889":j "SOUTH DAKOTA","PIERRE","39th or 40th","Nov 02 1889"0t "NEBRASKA","LINCOLN","37th","Mar 01 1867" -~ "KANSAS","TOPEKA","34th","Jan 29 1861" 6 "OKLAHOMA","OKLAHOMA CITY","46th","Nov 16 1907" , "TEXAS","AUSTIN","28th","Dec 29 1845" ,"Feb 14 1912".8 "MONTANA","HELENA","41st","Nov 08 1889" /B "WYOMING","CHEYENNE","44th","Jul 10 1890".L "COLORADO","DENVER","38th","Aug 01 1876"3V "NEW MEXICO","SANTA FE","47th","Jan 06 1912" ;` "NORTH DAKOTA","BISMARK","39th or 40th","Nov 0*SS)+1 @:=8EZ$="C"410?JN$(Y);" --PLEASE NAME THE CAPITAL OF ";S$(X,1)::=40:A$%O:=8:"YOUR ANSWER IS ";A$::: TT=T+1YA$=S$(X,2)S(Y)=S(Y)+1[A$=S$(X,2)SS=SS-1:^A$=S$(X,2)"80C";"****** YOU'RE RIGHT ******"::rA$=S$(X,2)380-w"80C";"****** YOU'RE WRONG ******"::2|20);S$(X,2);" IS THE CAPITAL OF ";S$(X,1):P08);"A PROVINCE OF ";S$(X,4);" SQUARE MILES AND A POPULATION OF ";S$(X,3)*::"80C";"-Space bar to continue-"Q$SS=0530 press the 'C' key:":Z$ :=8K"80C";"DO YOU WISH TO REVIEW THE COUNTIES BEFORE STARTING THE QUIZ?"A$:A$="Y"A$="y"820 :=8 Z=1PB" PLAYER NUMBER ";Z;", PLEASE TYPE YOUR NAME";:" ";N$(Z)"Z ,Y=1P6X=8)*SS)T=0A"80C";"********** WEST VIRGINIA COUNTIES **********":::6"80C";"THERE ARE 55 COUNTIES IN WEST VIRGINIA";V"80C";"THIS IS A QUIZ TO TEST YOUR KNOWLEDGE OF THE WEST VIRGINIA COUNTIES"::H"80C";"If you wish to enter county names,d ...... "WV.QUIZ"....n xS$(55,4)#A=155:B=14:S$(A,B):B:AXS(5): TO CHAMGE THE MAX NUMBER OF PLAYERS CHANGE THE '5' IN LINES 140 AND 150 N$(5)+=8:=30:"HOW MANY PLAYERS? ";P::=8 SS=55Q=1P:S(P)=0:Q:Q MI; FRESH WATER=291,580 SQ MI= DATA FROM WORLD ALMANAC-1986; SOURCE STATISTICS CANADA% .......... "CANADA.QUIZ" .....ORTHWEST TERRITORIES","YELLOWKNIFE","45 741","1 271 440" 7V "YUKON TERRITORY","WHITEHORSE","23 153","184 930"` "END OF FILE"," "," "," " TOTAL POP=24,343,181; AREA=3,849,670 SQ MI; LAND=3,558,090 S "ONTARIO","TORONTO","8 625 107","344 090"1$ "MANITOBA","WINNIPEG","1 026 241","211 720"1. "SASKATCHEWAN","REGINA","968 313","220 350"08 "ALBERTA","EDMONTON","2 237 724","248 800"9B "BRITISH COLUMBIA","VICTORIA","2 744 467","358 970"AL "NFOUNDLAND","ST. JOHN'S","567 681","143 510"@ "PRINCE EDWARD ISLAND","CHARLOTTETOWN","122 506","2 180" 0 "NOVA SCOTIA","HALIFAX","847 442","20 400"6 "NEW BRUNSWICK","FREDERICTON","691 403","27 840"- "QUEBEC","QUEBEC","6 438 403","523 860"/"80C";"-Space bar to continue-":780710 U$:2603 T1$=S$(X,1):T2$=S$(X,2):T3$=S$(X,3):T4$=S$(X,4) *I=X11 ,B=14.S$(I,B)=S$(I+1,B)0B2I74S$(12,1)=T1$:S$(12,2)=T2$:S$(12,3)=T3$:S$(12,4)=T4$> CANADIAN DATA5 "NEW";"END OF QUIZ"".D1/MENU.MAKER"`:=6:6);"PROVINCE";25);"CAPITAL";44);"PROVINCE POPULATION";67);"PROVINCE AREA"::C$,CS$,CP$,CA$  9R <3);C$;25);CS$;50);:740;CP$;:68);:740;CA$DC$="YUKON TERRITORY": 12 PROVINCES"&X=11000:X,0:=8:"80C";"****** SCORE ******"::B:10);"NAME";40);"RIGHT ANSWERS";60);"PERCENTAGE RIGHT": DX=1P N ### HX10);N$(X);40);S(X);" OF ";T/P;66);:590;100*(S(X)/(T/P)))bXl::"80C)=S(Y)+1A$=S$(X,1)SS=SS-1:A$=S$(X,1)"80C";"****** YOU'RE RIGHT ******"::A$=S$(X,1)380-"80C";"****** YOU'RE WRONG ******"::380Q$0:=8:"80C";"***** CONGRATULATIONS *****"3"80C";"YOU HAVE IDENTIFIED ALLA$=S$(X,2)Z$<>"C"800A$=S$(X,1)Z$="C"800Y+"DO YOU WISH TO QUIT":B$:B$="Y"560300MN$(Y);" --PLEASE NAME THE PROVINCE WHOSE CAPITAL IS ";S$(X,2)::=40:A$%:=8:"YOUR ANSWER IS ";A$::: T=T+1A$=S$(X,1)S(Y+1 @:=8JZ$="C"520TS$(X,1),S$(X,2)C^N$(Y);" --PLEASE NAME THE COUNTY SEAT OF ";S$(X,1)::=40:A$%h:=8:"YOUR ANSWER IS ";A$::: rT=T+1|A$=S$(X,2)S(Y)=S(Y)+1A$=S$(X,2)SS=SS-1:A$=S$(X,2)"80C";"****** YOU'RE RIGHT ******"::A$=S$(X,2)430-"80C";"****** YOU'RE WRONG ******"::620);S$(X,2);" IS THE COUNTY SEAT OF ";S$(X,1):N15);"A COUNTY OF ";S$(X,4);" SQUARE MILES AND A POPULATION OF ";S$(X,3)Q$SS=0700A$=S$(X,2)Z$<>"CR","MIDDLEBOURNE","11 320","258"* "UPSHUR","BUCKHANNON","23 427","355"$ "WAYNE","WAYNE","46 021","508"0 "WEBSTER","WEBSTER SPRINGS","12 245","556"0 "WETZEL","NEW MARTINSVILLE","21 874","359"( "WIRT","ELIZABETH","4 922","235" , "WOO"608"* "RANDOLPH","ELKINS","28 734","1 040", "RITCHIE","HARRISVILLE","11 442","454"& "ROANE","SPENCER","15 952","484"' "SUMMERS","HINTON","15 875","353"' "TAYLOR","GRAFTON","16 584","174"& "TUCKER","PARSONS","8 675","421"+ "TYLE89","106"*P "PENDELTON","FRANKLIN","7 910","698"*Z "PLEASANTS","ST MARYS","8 236","131",d "POCAHONTAS","MARLINTON","9 919","942")n "PRESTON","KINGWOOD","30 460","651"+x "PUTNAM","WINFIELD","38 181","346" ( "RALEIGH","BECKLEY","86 821",34","329") "MINGO","WILLIAMSON","37 336","424". "MONONGALIA","MORGANTOWN","75 024","363"%( "MONROE","UNION","12 873","473"02 "MORGAN","BERKELEY SPRINGS","10 711","230".< "NICHOLAS","SUMMERSVILLE","28 126","650"&F "OHIO","WHEELING","61 3,"50 679","456"' "MCDOWELL","WELCH","49 899","535") "MARIAN","FAIRMOUNT","56 789","312"- "MARSHALL","MOUNDSVILLE","41 608","305"- "MASON","POINT PLEASANT","27 045","433") "MERCER","PRINCETON","73 870","420"'  "MINERAL","KEYSER","27 2","CLARKSBURG","77 710","417"' "JACKSON","RIPLEY","25 794","464"/ "JEFFERSON","CHARLES TOWN","30 302","209", "KANAWHA","CHARLESTON","231 414","901"% "LEWIS","WESTON","18 813","389"' "LINCOLN","HAMLIN","23 675","439"$ "LOGAN","LOGAN"LENVILLE","8 334","340")` "GRANT","PETERSBURG","10 210","480"/j "GREENBRIER","LEWISBURG","37 665","1 025")t "HAMPSHIRE","ROMNEY","14 867","644".~ "HANCOCK","NEW CUMBERLAND","41 053","84"+ "HARDY","MOOREFIELD","10 030","585" , "HARRISON,"WELLESBURG","31 117","90" -$ "CABELL","HUNTINGTON","106 835","282" +. "CALHOUN","GRANTSVILLE","8 250","280""8 "CLAY","CLAY","11 265","346",B "DODDRIDGE","WEST UNION","7 433","321"-L "FAYETTE","FAYETTEVILLE","57 863","667"(V "GILMER","GC$="WYOMING"::920840U$::260 WEST VIRGINIA COUNTIES) "BARBOUR","PHILIPPI","16 639","343"- "BERKELEY","MARTINSBURG","46 775","321"& "BOONE","MADISON","30 447","503"' "BRAXTON","SUTTON","13 894","513"* "BROOKE"NTY POPULATION";62);"COUNTY AREA"::1,380,24>HC$,CS$,CP$,CA$GRC$="KANAWHA"C$="PRESTON""80C";"-press any key to continue-"$\C$="KANAWHA"C$="PRESTON"U$f 8Rp 6RC$="BALTIMORE CITY"::850H780RU$::260 MARYLAND COUNTIES - "ALLEGANY","CUMBERLANP  ### H10);N$(X);40);S(X);" OF ";T/P;66);:710;100*(S(X)/(T/P)))X::"80C";"END OF QUIZ"".D1/MENU.MAKER"e:03);"COUNTY";25);"COUNTY SEAT";40);"COUNTY POPULATION";62);"COUNTY AREA"::1,380,24 C$,C24,4)=T4$vQ$0:=8:"80C";"***** CONGRATULATIONS *****"2"80C";"YOU HAVE IDENTIFIED ALL 24 COUNTIES"X=11000:X,:=8:"80C";"****** SCORE ******"::B10);"NAME";40);"RIGHT ANSWERS";60);"PERCENTAGE RIGHT": X=1"80C";"****** YOU'RE RIGHT ******":::A$=S$(X,1)420-D"80C";"****** YOU'RE WRONG ******"::N4203XT1$=S$(X,1):T2$=S$(X,2):T3$=S$(X,3):T4$=S$(X,4),bI=X23:B=14:S$(I,B)=S$(I+1,B):B:I7lS$(24,1)=T1$:S$(24,2)=T2$:S$(24,3)=T3$:S$(600Y+"DO YOU WISH TO QUIT":B$:B$="Y"680300ON$(Y);" --PLEASE NAME THE COUNTY WHOSE COUNTY SEAT IS ";S$(X,2)::=40:A$%:=8:"YOUR ANSWER IS ";A$::: T=T+1A$=S$(X,1)S(Y)=S(Y)+1&A$=S$(X,1)SS=SS-1:0A$=S$(X,1)420-"80C";"****** YOU'RE WRONG ******"::620);S$(X,2);" IS THE COUNTY SEAT OF ";S$(X,1):N15);"A COUNTY OF ";S$(X,4);" SQUARE MILES AND A POPULATION OF ";S$(X,3)Q$SS=0640A$=S$(X,2)Z$<>"C"600A$=S$(X,1)Z$="C"JZ$="C"510CTN$(Y);" --PLEASE NAME THE COUNTY SEAT OF ";S$(X,1)::=40:A$%^:=8:"YOUR ANSWER IS ";A$::: hT=T+1rA$=S$(X,2)S(Y)=S(Y)+1|A$=S$(X,2)SS=SS-1:A$=S$(X,2)"80C";"****** YOU'RE RIGHT ******"::A$=S$(X,2)'C' key:":Z$ :=8K"80C";"DO YOU WISH TO REVIEW THE COUNTIES BEFORE STARTING THE QUIZ?"A$:A$="Y"A$="y"760 :=8 Z=1PB" PLAYER NUMBER ";Z;", PLEASE TYPE YOUR NAME";:" ";N$(Z)"Z ,Y=1P6X=8)*SS)+1 @:=8"80C";"********** MARYLAND COUNTIES **********":::<"80C";"THERE ARE 23 COUNTIES AND 1 CITY IN MARYLAND";Q"80C";"THIS IS A QUIZ TO TEST YOUR KNOWLEDGE OF THE MARYLAND COUNTIES"::H"80C";"If you wish to enter county names, press the ","373" / "SOMERSET","PRINCESS ANNE","19 188","338"& "TALBOT","EASTON","25 604","259"/ "WASHINGTON","HAGERSTOWN","113 086","455", "WICOMICO","SALISBURY","64 540","379" - "WORCESTER","SNOW HILL","30 889","475" 1 "BALTIMORE CITY","BALTIMORE","786 775","80"y DATA FROM "THE WORLD ALMANIC-1986";SOURCE IS 1980 CENSUS AS UPDATED IN MARCH 1985. LAND AREA IN SQUARE MILES.E TOTAL 23 COUNTIES +1 CITY; 4,216,941; 9,837 SQ MI (LAND) ... "MD.QUIZ" ... "," " "16TH","ABRAHAM LINCOLN","52","MAR 04, 1961 to APR 15, 1865","REP","ILLINOIS","HANNIBAL HAMLIN","MAINE","ANDREW JOHNSON","TENNESSEE"," "," "7 " ","*"," "," "," "," "," "," "," "," "," "," " r "17TH","ANDREW JOHNSON","56","APR 15, 1965 "14TH","FRANKLIN PIERCE","48","MAR 04, 1853 to MAR 03, 1857","DEM","NEW HAMPSHIRE","WILLIAM R KING","ALABAMA"," "," "," "," " "15TH","JAMES BUCHANAN","65","MAR 04, 1857 to MAR 03, 1861","DEM","PENNSYLVANIA","JOHN C BRECKINRIDGE","KENTUCKY"," "," ","to MAR 03, 1850","WHIG","LOUISIANA","MILLARD FILLMORE","NEW YORK"," "," "," "," "7y " ","*"," "," "," "," "," "," "," "," "," "," " t~ "13TH","MILLARD FILLMORE","50","JUL 10, 1850 to MAR 03, 1853","WHIG","NEW YORK","--NONE--"," "," "," "," "," " 06, 1841 to MAR 03, 1845","WHIG","VIRGINIA","--NONE--"," "," "," "," "," "j "11TH","JAMES KNOX POLK","49","MAR 04, 1845 to MAR 04, 1849","DEM","TENNESSE","GEORGE M DALLAS","PENNSYLVANIA"," "," "," "," "t "12TH","ZACHARY TALYOR","64","MAR 04, 1849 ARD M JOHNSON","KENTUCKY"," "," "," "," "6Q " ","*"," "," "," "," "," "," "," "," "," "," " ~V "9TH","WILLIAM HENRY HARRISON","68","MAR 04, 1841 to APR 04, 1841","WHIG","OHIO","JOHN TYLER","VIRGINIA"," "," "," "," "n` "10TH","JOHN TYLER","51","APR"," "," "," "8 "7TH","ANDREW JACKSON","61","MAR 04, 1829 to MAR 03, 1837","DEM","TENNESSEE","JOHN C CALHOUN","SOUTH CAROLINA","MARTIN VAN BUREN","NEW YORK"," "," "L "8TH","MARTIN VAN BUREN","54","MAR 04, 1837 to MAR 03, 1841","DEM","NEW YORK","RICH "5TH","JAMES MONROE","58","MAR 04, 1817 to MAR 03, 1825","DEM-REP","VIRGINIA","DANIEL D TOMPKINS","NEW YORK"," "," "," "," ". "6TH","JOHN QUINCY ADAMS","57","MAR 04, 1825 to MAR 03, 1829","DEM-REP","MASSACHUSETTS","JOHN C CALHOUN","SOUTH CAROLINA"," EW YORK","GEORGE CLINTON","NEW YORK"," "," " "4TH","JAMES MADISON","57","MAR 04, 1809 to MAR 03, 1817","DEM-REP","VIRGINIA","GEORGE CLINTON","NEW YORK","ELBRIDGE GERRY","MASSACHUSETTS"," "," "7 " ","*"," "," "," "," "," "," "," "," "," "," " $TS"," "," "," "," " "2ND","JOHN ADAMS","61","MAR 04, 1797 to MAR 03, 1801","FEDERAL","MASSACHUSETTS","THOMAS JEFFERSON","VIRGINIA"," "," "," "," "  "3RD","THOMAS JEFFERSON","57","MAR 04, 1801 to MAR 03, 1809","DEM-REP","VIRGINIA","AARON BURR","NR$;25);VP$;" ";VPS$25);VP2$;" ";VPS2$25);VP3$;" ";VPS3$R$="END OF LIST"200140::".D1/MENU.MAKER" "1ST","GEORGE WASHINGTON","57","APR 30, 1789 to MAR 03, 1793","FEDERAL","VIRGINIA","JOHN ADAMS","MASSACHUSETd ... "PRESIDENTS" ... nHx03);"NAME";27);"PARTY";35);"AGE";49);"SERVED";70);"STATE"1,380,23:5R$,N$,A$,D$,P$,S$,VP$,VPS$,VP2$,VPS2$,VP3$,VPS3$N$="*"Q$:N$="*"140+N$;26);P$;34);A$;37);D$;67);S$to MAR 03, 1869","REP","TENNESSEE","--NONE--"," "," "," "," "," " "18TH","ULYSSES SIMPSON GRANT","46","MAR 04, 1869 to MAR 03, 1877","REP","ILLINOIS","SCHUYLER COLFAX","INDIANA","HENRY WILSON","MASSACHUSETTS"," "," " "19TH","RUTHERFORD BIRCHARD HAYES","54","MAR 04, 1877 to MAR 03, 1881","REP","OHIO","WILLIAM A WHEELER","NEW YORK"," "," "," "," " "20TH","JAMES ABRAM GARFIELD","49","MAR 04, 1881 to SEP 19, 1881","REP","OHIO","CHESTER A ARTHUR","NEW YORK"," "," "," "," "8 " ","*"," "," "," "I NAME THE STATE CAPITALS GAME. File Length: 4800 chars.xI=116::I610);"*****************************************"610);"* THE 'NAME THE STATE CAPITALS' PROGRAM *"10);"*";50);"*"610);"* BY.... WILLAR" "," "," "," "," "," "," "," "," "  ... "PRESIDENTS" ...GEORGIA","WALTER F MONDALE","MINNESOTA"," "," "," "," "v "40TH","RONALD WILSON REAGAN","69","JAN 20, 1981 to ","REP","CALIFORNIA","GEORGE BUSH","TEXAS"," "," "," "," "7 " ","*"," "," "," "," "," "," "," "," "," "," " A "END OF LIST"," "," ",,"GERALD R FORD","MICHIGAN"," "," " "38TH","GERALD RUDOLPH FORD","61","AUG 09, 1974 to JAN 20, 1977","REP","MICHIGAN","NELSON A ROCKEFELLER","NEW YORK"," "," "," "," " "39TH","JAMES EARL (JIMMY) CARTER","42","JAN 20, 1977 to JAN 20, 1981","DEM","o JAN 20, 1969","DEM","TEXAS","--NONE--"," ","HUBERT H HUMPHREY","MINNESTA"," "," "8 " ","*"," "," "," "," "," "," "," "," "," "," "  "37TH","RICHARD MILHOUS NIXON","56","JAN 20, 1969 to AUG 9, 1974","REP","CALIFORNIA","SPIRO T AGNEW","MARYLAND"EP","NEW YORK","RICHARD M NIXON","CALIFORNIA"," "," "," "," " "35TH","JOHN FITZGERALD KENNEDY","43","JAN 20, 1961 to NOV 22, 1963","DEM","MASSACHUSETTS","LYNDON B JOHNSON","TEXAS"," "," "," "," " 36TH","LYNDON BAINES JOHNSON","55","NOV 22, 1963 t,"*"," "," "," "," "," "," "," "," "," "," "  "33RD","HARRY S TRUMAN","60","APR 12, 1945 to JAN 20, 1953","DEM","MISSOURI","--NONE--"," ","ALBEN W BARKLEY","KENTUCKY"," "," " "34TH","DWIGHT DAVID EISENHOWER","62","JAN 20, 1953 to JAN 20, 1961","Ro MAR 03, 1933","REP","CALIFORNIA","CHARLES CURTIS","KANSAS"," "," "," "," "n "32ND","FRANKLIN DELANO ROOSEVELT","51","MAR 04, 1933 to APR 12, 1945","DEM","NEW YORK","JOHN N GARNER","TEXAS","HENRY A WALLACE","IOWA","HARRY S TRUMAN","MISSOURI" 6s " "EP","OHIO","CALVIN COOLIDGE","MASSACHUSETTS"," "," "," "," "P "30TH","CALVIN COOLIDGE","51","AUG 03, 1923 to MAR 03, 1929","REP","MASSACHUSETTS","--NONE--"," ","CHARLES G DAWES","ILLINOIS"," "," "d "31ST","HERBERT CLARK HOOVER","54","MAR 04, 1929 t28TH","WOODROW WILSON","56","MAR 04, 1913 to MAR 03, 1921","DEM","NEW JERSEY","THOMAS R MARSHALL","INDIANA"," "," "," "," "8A " ","*"," "," "," "," "," "," "," "," "," "," " F "29TH","WARREN GAMALIEL HARDING","55","MAR 04, 1921 to AUG 02, 1923","ROSEVELT","42","SEP 14, 1901 to MAR 03, 1909","REP","NEW YORK","--NONE--"," ","CHARLES WARREN FAIRBANKS","INDIANA"," "," "2 "27TH","WILLIAM HOWARD TAFT","51","MAR 04, 1909 to MAR 03, 1913","REP","OHIO","JAMES S SHERMAN","NEW YORK"," "," "," "," "< "ILLINOIS"," "," "," "," "7 " ","*"," "," "," "," "," "," "," "," "," "," "  "25TH","WILLIAM MCKINLEY","54","MAR 04, 1897 to SEP 14, 1901","REP","OHIO","GARRET A HOBART","NEW JERSEY","THEODORE ROOSEVELT","NEW YORK"," "," " "26TH","THEODORE ROINIANA"," "," "," "," " "23RD","BENJAMIN HARRISON","55","MAR 04, 1889 to MAR 03, 1893","REP","INDIANA","LEVI P MORTON","NEW YORK"," "," "," "," " "24TH","GROVER CLEVELAND","55","MAR 04, 1893 to MAR 03, 1897","DEM","NEW YORK","ADLAI E STEVENSON","," "," "," "," "," "," "," " v "21ST","CHESTER ALAN ARTHUR","50","SEP 20, 1881 to MAR 03, 1885","REP","NEW YORK","--NONE--"," "," "," "," "," " "22ND","GROVER CLEVELAND","47","MAR 04, 1885 to MAR 03, 1889","DEM","NEW YORK","THOMAS A HENDRICKS","D I. NICO *"610);"*****************************************"-:16);"Here is a quiz to see how many"(17);"state capitals you can name"::S$(50,2)#A=150:B=12:S$(A,B):B:A0"FIRST, PLEASE TELL ME YOUR NAME... "; CAROLINA","COLUMBIA","SOUTH DAKOTA"7 "PIERRE","TENNESSEE","NASHVILLE","TEXAS","AUSTIN"4 "UTAH","SALT LAKE CITY","VERMONT","MONTPELIER"2 "VIRGINIA","RICHMOND","WASHINGTON","OLYMPIA"8 "WEST VIRGINIA","CHARLESTON","WISCONSIN","MADISON" ";z "TRENTON","NEW MEXICO","SANTA FE","NEW YORK","ALBANY": "NORTH CAROLINA","RALEIGH","NORTH DAKOTA","BISMARCK"; "OHIO","COLUMBUS","OKLAHOMA","OKLAHOMA CITY","OREGON"8 "SALEM","PENNSYLVANIA","HARRISBURG","RHODE ISLAND"= "PROVIDENCE","SOUTH,"ANNAPOLIS","MASSACHUSETTS":R "BOSTON","MICHIGAN","LANSING","MINNESOTA","ST. PAUL"9\ "MISSISSIPPI","JACKSON","MISSOURI","JEFFERSON CITY"6f "MONTANA","HELENA","NEBRASKA","LINCOLN","NEVADA":p "CARSON CITY","NEW HAMPSHIRE","CONCORD","NEW JERSEY"LAHASSEE"=  "GEORGIA","ATLANTA","HAWAII","HONOLULU","IDAHO","BOISE"7* "ILLINOIS","SPRINGFIELD","INDIANA","INDIANAPOLIS"64 "IOWA","DES MOINES","KANSAS","TOPEKA","KENTUCKY"3> "FRANKFORT","LOUISIANA","BATON ROUGE","MAINE"6H "AUGUSTA","MARYLAND" ON STATE CAPITALS."::".D1/MENU.MAKER"8 "ALABAMA","MONTGOMERY","ALASKA","JUNEAU","ARIZONA"5 "PHOENIX","ARKANSAS","LITTLE ROCK","CALIFORNIA"4  "SACRAMENTO","COLORADO","DENVER","CONNECTICUT"; "HARTFORD","DELAWARE","DOVER","FLORIDA","TAL R A T U L A T I O N S !!!";7);7)710<"HERE'S THE FINAL SCORE, ";N$;"! OUT OF 50 STATES...."+"YOU GOT ";R;" RIGHT AND ";W;" WRONG."":"WANT TO TRY AGAIN? ";:A$A$,1)="Y"260::"OK, ";N$;"!"4"THANKS FOR TAKING THE QUIZUT OF ";R+W;";S" RIGHT THUS FAR!":Y=0 XS=0650 bX=50270lT1$=S$(X,1):T2$=S$(X,2),vI=X49:B=12:S$(I,B)=S$(I+1,B):B:I"S$(50,1)=T1$:S$(50,2)=T2$:270:::R<>5069007);7);"!!! A PERFECT SCORE, ";N$;" !!!"6"!!! C O N GN$;"! ";"THAT'S RIGHT":600>0"IT SURE IS ";A$;", ";N$;"! KEEP UP THE GOOD WORK!":600=:"ANOTHER RIGHT ANSWER, ";N$;"! YOU'RE DOING FINE!":600;D"PEOPLE IN ";S$(X,1);" ARE PROUD OF YOU, ";N$;"!":600=N"THAT'S RIGHT, ";N$;"! YOU'VE GOT ";R;" OOOPS! ";A$;" MAY BE A FAMILIAR CITY"8" IN ";S$(X,1);", BUT IT'S NOT THE CAPITAL":N=0&"TRY AGAIN! - ";S$(X,1);:"?":A$A$=S$(X,2)5400"THE CORRECT ANSWER IS ";S$(X,2):W=W+1:600&R=R+1:Y=Y+1:Y550,560,570,580,590/&"GOOD GOING, "; IN ";S$(X,1);" KNOW THAT"*" ";A$;" ISN'T THE CAPITAL!":510("MANY PEOPLE GUESS ";A$;", ";N$;","9" BUT IT'S NOT THE CAPITAL OF ";S$(X,1);"!":510"THAT'S NOT RIGHT ";N$;"!"6" BUT I'LL GIVE YOU ANOTHER CHANCE.....":510+"$;"?":510hA$=S$(X,2)540rI=150:A$=S$(I,2)390 |I:410/A$;" IS THE CAPITAL OF ONE OF THE STATES "&" BUT IT'S NOT ";S$(X,1):510 N=N+1:N420,430,450,470,4902"SORRY, ";N$;"! ";A$;" IS NOT CORRECT!":510/"PEOPLE WHO LIVEHE NEXT ONE..... ";:330$,"TELL ME THE CAPITAL OF ";:33036"OK, ";N$;"! HOW ABOUT THE CAPITAL OF ";:3305@"HERE'S A TOUGH ONE! NAME THE CAPITAL OF ";:Q=0JX=S*1))+1:S=S-1'TS$(X,1);:"? ":A$:(A$))>0360(^"DON'T KNOW THAT ONE, ";N:N$):"THANKS, ";N$;"! HERE WE GO....."4"I'LL NAME A STATE AND YOU TELL ME ITS CAPITAL"":"HERE'S THE FIRST ONE....."S=50:R=0:W=0:Q=0:Y=0:N=0*::A$="":Q=Q+1:Q280,290,300,310,320)"WHAT CITY IS THE CAPITAL OF ";:330&""HERE'S TWYOMING","CHEYENNE"  ...."STATE.CAPITALS".... ...."STATE.CAPITALS"..... ........."GRAPH.SKETCHER"........... H ****************************************************************H * *H * Apple III Graphics Primer ------------------ode(%a,%b) @fillport Jgrafixmode(%a,%a):fillportTgrafixmode(%a,%b)^c OPTIONS MENU h2000m INITIAL PEN PLACEMENTr(a=0)(a=1)y=96:x=140|a=2y=96:x=290a=3y=96:x=70 œ3960 grafixon*dotat(%x,%y):LINETCOLOR OR BLACK AND WHITE?(a=0)(a=2)1000(a=1)(a=3)1500(a<0)(a>3)160  INITIAL BUFFER SELECTION)=10:=25:"Which buffer (1 or 2):";b(b<1)(b>2)260"b=1a=2:a=1, CLEARING BOTH BUFFERS6grafixm0 x 192 Limited Hires color mode"<"2: Mode 2: 560 x 192 Black and White (80 chars/line)"9" the same resolution of the TEXT screen"4"3: Mode 3: 140 x 192 Full sixteen color mode"):"Enter your selection:";a$:a=a$)! EY TO CONTINUE)":REPLY$: MODE SELECTION9::"Select which mode you would like to sketch on:"=10C"0: Mode 0: 280 x 192 dots BLACK AND WHITE (same resolution";" as Apple II"%" Hi-Resolution mode)"5"1: Mode 1: 28, hit CONTROL-B (see COMMAND";}" MENU later)"H"You cannot switch modes unless you exit the program and rerun it."F"Don't forget to save the buffers (CONTROL-S) before you quit if"-"you want to start over in a new mode."." (PRESS ANY KBUTTON WILL TOGGLE THE DOT ON AND OFF";Fc"80C";"TO RETURN TO KEYPAD CONTROL SWITCH THE GRAY BUTTON 'OFF'Hd" You will find yourself in the middle of the screen in the mode"(n"and the buffer you have selected."Ax"If you wish to switch bufferswill move the dot SW. 3 will move it SE."7U22);"8 will move the dot N. 2 will move it S.-Z22);"5 will toggle the dot ON and OFF"_V`"80C";"TO USE THE JOYSTICK,PLACE THE GRAY BUTTON 'ON' AND PRESS THE SPACE BAR";=b"80C";"THE RED eypad. The corresponding numbers"?<"will show you which way the dot will plot on the screen."A"For example: pressing":9F22);"7 will move the dot NW. 9 will move it NE."8K22);"4 will move the dot W. 6 will move it E."9P22);"1 YOU MUST HAVE THE GRAFIX DRIVER IN YOUR SOS.DRIVER #1,".GRAFIX"% CALLING THE GRAPHICS ROUTINES"BGRAF.INV":% INSTRUCTIONS ON PEN MOVEMENTS?2" The cursor moving keys control movement of the DOT"?7"Examine the numeric k * a very easy manner. *I * MODIFIED 1987 * G ****************************************************************# OPENING THE GRAPHICS DRIVER< ---------------------- *H * *H * This program allows you to draw on the graphics screens of *G * the Apple III, load and save pictures to and from disks in *G---- *H * and Sketcher Copyright 1983 by *H * ----------- ON THREE *H * Stephen M Dorman June-July, 1983 *H * L.A. Ditson O(%(x+dx),%(y+dy))6 ACTUAL PLOTTING AND CONTROL OF PROGRAM ROUTINE0)=25525001)=2554401a$: GET a$:PERFORM lineto(%(x+w),%y) a$=32)440a$="9"x=x+1:y=y+1:410)0)>2001)>200x=x+1:y=y+1:410a$="1"x=x-1:y=y-1:410'0)<501)<50x=x-1:y=y-1:410a$="7"x=x-1:y=y+1:410(0)<501)>200x=x-1:y=y+1:410a$="8"y=y+1:410(0)>2001)<50x=x+1:y=y-1:410a$="4"x=x-1:4100)<50x=x-1:410a$="6"x=x+1grafixonh j=1k:jr grafixmode(%a,%b) w grafixon{ t=1k:t| i / FOTO FILE SAVE ROUTINE---ENTER PATHNAME :9 "Enter the name under which to save picture: ";name$ name$)<13010 gsave.name$ grafixon  "If you input 1, the flip will be so fast as to almost display "F, "both buffers simultaneously. Hit any key to stop the animation"%6 "Enter value greater than 0: ";k@ k<12870 J grafixonT i=110000Y i=10000:^ grafixmode(%a,%a) c etween the two"C "buffers. The speed of this flipping can be controlled, and"9 "may be fun to experiment with for basic animation."6 "The value you give will be the end of a do loop": "Try 125. This is a good speed to allow flipping. "E" last". "which buffer 1 or 2 to load it into?:";c (c<1)(c>2)7):2750 grafixmode(%a,%c) gload.name$ grafixmode(%a,%c) grafixon . PAGE FLIPPING ROUTINE---VARIABLE SPEEDA ::"This subroutine will flip very quickly b;2 " (CONTINUE? y/n)";reply$*< (reply$="y")(reply$="Y")fillport F grafixonP - LOAD A PICTURE INTO THE BUFFER IN USE :5 "Enter the file name of picture to load: ";name$ name$)<12710 "You were using buffer"; b;"reply$<32))(reply$<>13))2000 fgrafixonE SWITCH THE PENCOLOR AND FILLCOLOR;(WILL TURN DOT OFF AND ON)  p,f pencolor(%p) fillcolor(%f) ' ERASE CURRENT BUFFER9( ::"This will erase the picture currently in use."L-Q to RETURN TO QUIT THE PROGRAM"(*"CONTROL-S to SAVE PICTURE TO DISK"/4"CONTROL-W to CHANGE WIDTH OF PLOTTER PEN"@>"Make sure you go back to the sketcher before using these";H" commands"1R"Hit any key to go to the SKETCHER";:reply$+\(CONTROL-E to ERASE THE BUFFER CURRENTLY IN USE":"CONTROL-L to LOAD A NEW PICTURE INTO PRESENT BUFFER"3 "CONTROL-M (or RETURN) to SEE THIS MENU AGAIN"@"CONTROL-P to PAGE FLIP BETWEEN GRAPHICS BUFFERS (DISPLAY";" ALTERNATE BUFFER". "CONTRO: ";f (p>15)(f>15)7):1500":'fillcolor(%f),pencolor(%p)@ MAIN SELECTION MENU::"CONTROL SUMMARY","CONTROL-B to CHANGE BUFFER BEING USED"(a=0)(a=2)2040-"CONTROL-C to CHANGE PEN OR FILL COLORS"5" 1= Magenta 2= Dark Blue 3= Purple">" 4= D. Green 5= Gray 1 6= Med. Blue 7= Lt. Blue":" 8= Brown 9= Orange 10= Gray 2 11= pink":"12= Green 13= Yellow 14= Aqua 15= White""Pencolor: ";p"Fillcolorly$="1"f=0:p=15.reply$="2"f=15:p=0 8fillcolor(%f):pencolor(%p) BfillportL# PEN COLOR SELECTION ROUTINE(a=0)(a=2)%::15,1080,24: SCREEN FORMAT8:"Here are the choices for pencolor and fillcolor"<" 0= Black :=10-"You have two choices in the B&W modes:":" 1). NORMAL (white pen color/black fillcolor)":" 2). INVERSE (black pen color/white fillcolor)""" Select (1 or 2):";reply$.(reply$)<1)(reply$)>2)7):1000$rep2700: CONTROL-L !0a$=13)2000: CONTROL-M !:a$=16)2800: CONTROL-P !Da$=17)3050: CONTROL-Q "Na$=19)3000: CONTROL-S "Xa$=23)3100: CONTROL-W b410l:3 BLACK AND WHITE PEN COLOR SELECTION ROUTINE :4100)>200x=x+1:410a$="2"y=y-1:4101)<50y=y-1:410a$="3"x=x+1:y=y-1:4101)>200y=y+1:410a$="5"2500 a$=2)3200*a$=3)1500:GRAFIXON: CONTROL-C !a$=5)2600: CONTROL-E !&a$=12) QUITTING ROUTINE& ::"This will allow you to quit"? "Do you want to quit without saving your picture? (y/n) "; reply$" reply$="Y"reply$="y"3900  grafixon * PLOTTER PEN WIDTH CHANGING ROUTINE :7 "How wide would you like the pen to be: ";penwidth? ::"Do you wish to change the (H)orizontal or (V)ertical"# "pen width or (B)oth";:reply$! penwidth<03102# :grafixon4& reply$="B"reply$="b"dx=penwidth:dy=penwidth(0 reply$="H"reply$="h"dx=penwidthGA3/1.01:7SY CONTROL .GRAFIX jj# \\JHFD=;9210-,+*)!   v Q )``.`5`=`C`E` `BGRAF (C) APPLE 1980j @@@@ @``` kLK``9(89:9g:h:h L89:mm95:6:6hg gh h 99 O S   L `ee m`iɂ`0`hIhJh\h] wh]h^ w\\ ]] ]L ]L\A \A JHIH`i8\i]i\`\]`K`M %b&*L+ 16>:)    kL GA3/1.01/LINr GRAFIXMO N:. ............."GRAPH.SKETCHER"....... S BUFFERSFI/P: FREES UP SPACES USED BY THE 'BGRAF.INV'"Z#1: CLOSING GRAPHICS DRIVER.$d".D1/MENU.MAKER": FINISHED! #x::"ERROR #";;" IN LINE #";WASTE=02502 DO NOTHING BUT WASTE TIME AND THEN RETURN WASTEGRAFIXO(: reply$="V"reply$="v"dy=penwidthD  BUFFER SWITCH ROUTINE a,b grafixmode(%a,%b) grafixon dotat(%x,%y) B; THIS QUITTING ROUTINE WILL FREE UP MEMORY USED BY GRAPHICS <I=131ARELEASE: THIS FREES UP THE GRAPHICL `L5h   HH`420.-&#  Phhhhhhhhhh  HH`DB@><:86421.+*)'jhhhhhhhh    X XLJFE>987410/-   `+(%" Bhhh h h h hh hhhhhh  HH`ZXVTRPNLJHFDB@<;85431hhh    `OLIHEDCB?<;8541.+*x  `"hhhhhhhh    HH`XVTRPN*** Emergency Auto-Override Jammed ***":a2=1:11930|.d4(9)<>011930?.:"Message from Star Fleet Command...Stardate: ";r(d0):>."'Supernova in quadrant ";x;"-";y;".....Caution advised'".n=g(x,y):r=n/100):q=0.x<>q1y<>q211960.k3=n-1:n=0dx=y2:y2=10::y2=dx:dx=x2:x2=10::x2=dx:118406.:-@.:"*** RED ALERT!! RED ALERT!! ***"J.x3=x2:y3=y2:BT."*** INCIPIENT SUPERNOVA DETECTED AT SECTOR ";x3;"-";y3#^.x=q1:y=q2:k=(x2-s6)^2+(y2-s7)^2h.14640:k>1.511930;r."FILWRITE FILWRITEGETRFNM RTRFNM ERROR ^ROR DOARRAY OARRAY  ERROR ?BUFPNT NT DEVINFO DEVINFO MOVESTR FILREAD FILREAD BUF :4 GETRFNM BUFPNT OJNT ERROR ROR DOARRAY e=TPARMSERROR uROR BUFPNT BMOVESTR REQNUM UUM BLDSTRN DSTRN BUF pia RETURN RETADR  GETPARMSFREQNUM BUF "CONTROL CONTROL RETURN RETADR GETPARMS TPARMSERROR ROR STATUS STATUS BLDSTRN ,BUF |F GETPARMSca` hhh5h66HH :5HHH) @  hhh g5ȱg6ȱg@ ɀL g eegghI8e556l6m `  hUhVh8 ㅊ eh֭VHUHk`HFB>;:9853/&" NL64Ch5h6h3lh4m 0/L6H5H`g8640'%76,V^dKA;6hWhXhhhQlhRm e Nb YMH YhLSꈭTXHWH`gca` hhh5h66HH :5HHH) @  hhh g5ȱg6ȱg@ ɀL g eegghI8e556l6m `  hUhVh8 ㅊ eh֭VHUHk`HFBhhHHHH l5m6m6  ЙW5X6X6 ` 5`MD32KA;6hWhXhhhQlhRm e Nb YMH YhLSꈭTXHWH`g##6 >?Bi{Ci|) |=! "LL{@?>8(O\ F9 >{i 5|i6) 6|8 L5{ hhhh0 hWhXX HH`)r` @A>~|zxvtslgbWTSRPMED=hhhh   HH`420.-&#  Phhhh   HH`420.-&#  P  `"hhhhhh  HH`420.,*)&#"! Rhhhhhh  B B HH`yyP`GBRETADDR tpINITCHK ITCHK PENCOLOR PENCOLOR RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF |x FILLCOLO FILLCOLO TRETADDR  SETCTAB SETCTAB  INITCHK ITCHK RANGECHKHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  'SOSWRITESWRITERWBUF  RETADDR PLINITCHK sITCHK VIEWPORT VIEWPORTWBUFLEN }UFLEN SOSWRITESWRITERWBUF  xplhd`\XUFLEN SOSWRITESWRITERWBUF ~zvrRETADDR $ INITCHK ITCHK XFROPTIO XFROPTIORANGECHKNGECHKWBUFLEN UFLEN #ITCHK WBUFLEN DUFLEN SOSWRITEGSWRITERWBUF ?:72-(SYSFONT SYSFONT RETADDR njDRAWIMAG DRAWIMAGINITCHK ITCHK WBUFLEN RETADDR INITCHK ITCHK RANGECHKECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  NEWFONT NEWFONT INITCHK =+SOSWRITE@.!RWBUF  83& INITCHK uITCHK GRAFIXON GRAFIXONWBUFLEN UFLEN SOSWRITESWRITERWBUF zBUF GPGSREQDLGRAFIXMO GRAFIXMORBUFLEN 9RANGECHKwWBUFLEN ASOSWRITERWBUF \SOSREAD GBASADR TSOSSMARK$INITCHK ITCHK INITGRAF INITGRAFWBUFLEN RETADDR ISOSDSTATGSCB kSOSOPEN INITCHK READPARM5CREFNUM DWBUFADR ?BMOVCHK RBUFADR 7WRITEPAR=SREFNUM FRREFNUM 6WREFNUM >INITFLG KSOSCLOSEhhhhhh HHHH`&$<D^Z FpHx  )) y xHHHJJiH 詏 鮀 `}wqnkjba_\[ZYXWVURQ$hhhhhh HH H)HHH`20+*)Hhhhhhh HHHH`&$< 詏 )x `a^]NMJGF>=<10/.+* )) y xHHHJJiH 詏 鮀hhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$h J)` `!0 nljhfdcbQNMLJFEDCBA<;6hhhhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$hhhRETADDR INITCHK ITCHK RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  INITCHK ITCHK FILLPORT FILLPORT WBUFLEN !UFLEN SOSWRITE$SWRITERWBUF BUF RETADDR ieB>INITCHK UITCHK MOVETO MOVETO  WBUFLEN _UFLEN SOSWRITEbSWRITE0:c3=0:rh=0:nh=0.r=012020.r1=r1-r:r2=012020'.l=1r2:c1(l)<>xc2(l)<>y12010/.c1(l)=c1(r2):c2(l)=c2(r2):c1(r2)=0:c2(r2)=0'.r2=r2-1:r=r-1:q=1:r2=0f1(2)=1e30.5.x6=ns(x,y):ns(x,y)=0:a=x6/10):rr=rr-a:c=x6-10*a.c=012070+YLOC  SDSTATGSCB  INITCHK  ITCHK XLOC XLOC RETADDR     SOSDSTAT SDSTATGSCB   INITCHK  ITCHK YLOC  ASADR SOSSMARK SSMARKRETADDR  z v INITCHK  ITCHK XYCOLOR XYCOLOR RWBUF  F SOSREAD  SREAD RETADDR  SOSDSTATGPGSREQD GSREQDSOSCLOSE SCLOSEGRAFIXMO AFIXMOGLOAD GLOAD RBUFLEN  N RWBUF    SOSREAD  EAD GBASADR GBASADR ( ASADR SOSDSTAT~ SDSTATGSCB  INITCHK { ITCHK CREFNUM  EFNUM RBUFADR  ADR SREFNUM  EFNUM RREFNUM  M WBUFADR   ADR GSAVE GSAVE WREFNUM F  M GPGSREQD5 GSREQDSOSCLOSE> SCLOSEWBUFLEN 8  LEN SOSWRITE; SWRITERWBUF C F INITCHK  ITCHK BMOVCHK  OVCHK INITFLG  ITFLG RWBUF  F SOSDSTAT" SDSTATGSCB % CB INITCHK  ITCHK CREFNUM  EFNUM  T P SOSDSTATj SDSTATGSCB LINEREL LINEREL INITCHK g ITCHK WBUFLEN  UFLEN SOSWRITE SWRITERWBUF } d ` \ X RELEASE RELEASE  RETADDR % ! INITCHK  ITCHK LINETO LINETO WBUFLEN  UFLEN SOSWRITE SWRITERWBUF     CALCABS x q ABS RETADDR CALCABS  ABS RETADDR  SOSDSTAT SDSTATGSCB INITCHK  ITCHK DOTREL DOTREL WBUFLEN  UFLEN SOSWRITE SWRITERWBUF SWRITERWBUF  RETADDR c _ < 8 INITCHK O ITCHK WBUFLEN Y UFLEN SOSWRITE\ SWRITERWBUF T L H D @ DOTAT DOTAT RWBUF ZRNJFCALCABS BRETADDR SOSDSTATSDSTATGSCB  MOVEREL MOVEREL INITCHK ITCHK WBUFLEN UFLEN SOSWRITE/l=1np:pl(l,1)<>xpl(l,2)<>y12060/m=15:pl(l,m)=0:/&/r3=012110'0/l=1r3:b2(l)<>xb3(l)<>y121007:/b2(l)=b2(r3):b3(l)=b3(r3):b2(r3)=0:b3(r3)=0:r3=r3-1D/N/x2=012150X/n=g(x,y)-g(x,y)/100)*100&b/s1=s1+(n-n/10)*10):b1