' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?  , = #""*( (9"1 ( ,.(0# 2 /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0!!+'2+4:'/+'2+4'??4)E81B $! h h Լ ռ ռ ռ`HJ>݌h Hh݌`IHɭ ɭ R`ӤL߼IHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LɜK JI8h hLߍ ԧ᜙߼IHͺ9ٜ췈뷠詷 뷍ߜLJ` H`ߜߜ8)H`H`H` L` Rvӛu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( G  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH ᜢ E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  d ֠z# u`QUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPz 0@  xpN*Ppx  @N0?N~ |066666<> 066006000>66000>666 0>666660<66@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIM54,H($$x@ 00 `@N?| #$D# 4?|N N N6px  ppp@N%)$?p*P50/~7v/z7v?zV*V~N%?p*P50/~6V-*6V-*>V*V~Npp8( ?~( 8( 8( 8/z8( N 6V?~ !B!B !B""""!B ?~N@6|x4 , N( %J%%%)%)%)u&%)%)%)u&>/@8褐ީ` #)/-0 6 786-$6-<,  xx  `b   ` b  `8 `@0` ,`Ď @ `hhߚHH`,111:2a -LJ "LJ    0  ɹ````` Q&&` &`΅&@ޅ'`'``Ω39 ]L% 9 ii W  ]Lo  |0 ) |)@   ]||   ]|`     ]   ]i  m8 i  9  NL'П3L` &-` Y " ɱ ɱƭ Ȑ`  ]8 JJ i 8 JJ i R ɍ/ɛ4Ɉ Lɠԝ L```W`WW` |  `<=>?BaC éa |  ` |  ` !@ P 8!m :41284 MXMAXMEM329074 751,LOWMEM1:CB1G14 D$"BLOAD FLM."F$",A"LOWMEM256",B"(C(LOWMEM1))2564",L256,TTXT":41644 ADC:690:4 ADLOWMEM1:3220 3l ER0ER14İ3220:2130:FQİ2540.3v 1840I3 D$"CLOSE":GB132403 D$"BLOAD FLM."F$",A"(LOWMEM1)256",B4,E"G256",TTXT":41283 4::0,0:62454:7:2800:SX,Y3 4 D$"BLOAD FLM."F$",A"(LOWMEM1)256",B4,E"(B1)256", TTXT"D"2 ER5ĺ"I/O ERR"32 ER6ĺ"NOT FOUND":FQ1L2& ER8ĺ"CHECK DRIVE"^20 ER9ĺ"FULL"s2: ER10ĺ"LOCKED"2D ER11ĺ"BAD NAME"2N ER13ĺ"TYPE MISMATCH"2X 18:"PRESS ";:A$:YNIT2b FZ1İ2760:FQ2540:ADLOWMEM1:AMAD1:2030$R0:HL0:757,37:TL3Ĺ757,51F1 ADLOWMEM1:AMLOWMEM1:7(TL2):n1 ER(222):EL(218)(219)256:FQ01 ::BEEP:750::8:" ERROR":1 32881 ER15ER0ĺ"APPLESOFT ERROR "ER:"LINE "EL:31602 "DOS ERROR :"::ER4ĺ"WRITE PROTECTE,C::C20727021:C,68C,113:C1,68C1,113:C2,68C2,113:0 205,67270,67:205,114270,114:203,65272,65272,116203,116203,650 0 CLRMEM:MXB30200 AUXMV,56:C81910 60,0:61,96:62,255:63,96:66,0:67,C:AUXMV:1 SX,Y:H,C28330:DRW:h/r C8414028:251,13:DRW1,C:252,85:253,96:254,C28322:255,C28321:DRW:/| C16819628:251,13:DRW1,C:252,100:253,111:254,C28313:255,C28312:DRW:/ TL2553(TL3),1023(TL3)@0 C6811315:207,C270252,45:253,56:254,30:255,29:DRW].6 251,14:DRW1,28:252,5:253,16:254,30:255,29:DRWf.@ 720.J 194,24218,24218,36194,36194,24.T 193,23219,23219,37193,37193,23.^ /h C05628:251,13:DRW1,C:252,70:253,81:254,C28331:255"- 8,8178,8178,1788,1788,8C- 7,7179,7179,1797,1797,7d- 5,5181,5181,1815,1815,5~- 232,16:233,12:1:0- 229,8274,8274,53229,53229,8:228,7275,7275,54228,54228,7-" 226,5277,5277,56226,56226,5#., 251,14:DRW1,0:U ":], 10:"(1) 48 OR 64K SYSTEM":"(2) 128K SYSTEM":18:"TYPE A NUMBER - ";, A$:A$"1"A$"2"ČBEEP:2740, :FW1:BMAXMEM:MXMAXMEM:A$"2"MX324, 4::0,0:62454:7, ADLOWMEM1, 3060:2800:2990:FWĕSX,Y:FW0- ":C+d 10:"(1) JOYSTICK":"(2) MOUSE":"(3) KEYBOARD"`+n 18:"TYPE A NUMBER - ";+x A$:CT(A$):CT1CT3ČBEEP:2680+ CT1Ĺ2416,183:2417,10+ CT2Ĺ2416,89:2417,10:IMOUSE+ C752765:C,0::756,28, :8::" SYSTEM MENESC$(27):U$(95):LN$"!":(64435)6LN$(124)Y*< OX0:X0:OY0:Y0:DL206:TL2:DV1*F C140:U$;::4:1:C140:"=";::3*P "MOVIE CONSTRUCTION SET-BY MIKE LINKOVICH":7:"COPYRIGHT 1986 MICROSPARC, INC";:34,5+Z 750:8::" CONTROL MENU ) 8,MAXMEM1) 3040) DRW2940:SCAN2990:XFR2263:BEEP3273:MOVE3287:CLRMEM2124:INPT2048:MD2957:RMOUSE2649:PRD2743:CURS2415:YNIT3060:VEC3088:WR3190:RE3228:AUXMV3268)( PLAYER2151:PZ2236:FXSTAK3307:IMOUSE3137:S1:OS12*2 D$(4):3İ1090#( K22İ2540:1530:2540?( K24İ2540:1300:2540[( K16İ2540:1540:2540w( K20İ2540:1720:2540( K15İ2540:1770:2540( K6İ2540:1810:G20İ2540:G0( ( OSOX,OY:( ::) MAXMEM149:(48896)76MAXMEM143256:Y(754):+'L K8K74XX4:X0X0M'V K21K75XX4:X279X279o'` K10K77YY4:Y191Y191'j K11K73YY4:Y0Y0't K32BT1'~ K60K62KK16' K44K46G(K46)1:2540:540:2540' K5İ2540:800:2540( K1"QUIT - ARE YOU SURE? (Y/N) - ";:255,1:INPT:A$((512)128)i& A$"Y"A$"N"A$(13)ČBEEP:2310& A$"Y"ĉ::216,0:&$ &. G(9):CT2360,2370,2380&8 CURS:BT(16287)127:X(752)(753)256:Y(754):'B CURS:BT1:X(752)(753)%ADLOWMEM1:720::D$"CLOSE FLM."F$7%3220:2130=%%23:1:"ERASES MEMORY; ARE YOU SURE? (Y/N) - ";:255,1:INPT:A$((512)128)%A$"Y"A$"N"A$(13)ČBEEP:2260%(A$"Y")2290:2760%G20:%DV(DV1)1:>& 23:1:E WAIT."::D$"OPEN FLM."F$",D"DV:D$"CLOSE FLM."F$:D$"DELETE FLM."F$:D$"OPEN FLM."F$:D$"WRITE FLM."F$s$zAM1$WR13,LOWMEM1:AMB1Ĺ751,AM1$AMBĹ751,B1$WR$(AMB1)2230$751,LOWMEM1:ADB1AM1:WR13,LOWMEM:700:WR:'EM:RE:ADC:690:*#>:D$"CLOSE FLM."F$N#HADLOWMEM1:AMG1:AMMXAMMX#R(CT3)400:DRW1,0:251,AD:252,10:253,51:254,38:255,33#\MD,234:MD1,234:DRW:MD,81:MD1,38:CT3İ2540#fXFR:3(TL2)4:i$p23:3:"SAVING FILE... PLEAS23:3:"LOADING FILE... PLEASE WAIT.":D$"VERIFY FLM."F$",D"DV:D$"OPEN FLM."F$:D$"READ FLM."F$i"G" (48896)76İ3200:2120"RE18,LOWMEM1:GB2Ĺ751,G" GB1Ĺ751,B1"*RE#4(GB2MXB)2110:751,LOWMEM1:CB1G1:RE18,LOWM"FILENAME - FLM.";:255,21:INPT:760:F$A$>!(F$)01810U!(F$,1)"?"2010!35,21:::(48896)76ĺD$"CAT,D"DV:2000!D$"CATALOG",D"DV!35,24:1950!FZG!G2040,2160,2260,2300,2310:G41840!:16304,0:16299,0::b"2) SAVE AS...":"(3) NEW FILM":"(4) DRIVE (";DV;")":"(5) QUIT"U b16:"ESC LEAVE" l16300,0:16303,0:18:"TYPE A NUMBER - "; vA$:G(A$):(G1G5)A$ESC$G1AMLOWMEM1ČBEEP:1910 G4ĉ: G22020 A$ESC$2030,!22:3:L2)4:O251,(ADB1)AD:252,10:253,51:254,38:255,33:ADBĹ251,LOWMEMdSCAN:ADBİ690o&:7500::8:" FILE MENU "::FQAMLOWMEM1:FQ0:10:AMLOWMEM1ĺ"( )";DAMLOWMEM1ĺ"(1)";N" LOAD..."@ X11:"(:3(TL2)4:AMAM(AMMX) 5251,96:DRW1,0Y252,10:253,51:254,38:255,33pMD,17:DRW:MD,81XFR:3(TL2)4:251,96:DRW1,0252,10:253,51:254,38:255,33MD,234:MD1,234:DRW:MD,81:MD1,38XFR:3(T67,C1^MOVE::1670Gh(CB)1650:ADC:700:ADC1:690::1670|r60,0:61,B:62,255:63,B:66,0:67,LOWMEM:MOVE|ADB1:690:ADG:MD,234:MD1,234251,96:DRW1,0:252,10:253,51:254,38:255,33:DRWMD,81:MD1,38XFR"MEMORY IS FULL -- DO YOU WISH TO DELETE THE LAST FRAME (Y/N) - ";qA$:A$"Y"A$"N"A$ESC$ČBEEP:1560"16299,0:16304,0:A$ESC$A$"N"ı,AMAM(AMLOWMEM1)6GAD:CAMG1@CB11640J60,0:61,CT62,255:63,C:66,0:AMBADG$AMAM(AMLOWMEM1)SMD,234:MD1,234:DRW1,0:ADB1Ĺ251,ADnADBİ700:251,LOWMEMDRW:720:MD,81:MD1,38XFR:3(TL2)4:251,96:252,10:253,51:254,38:255,33:SCAN:AMMX1590CBEEP:BEEP:::10:30dCB114009nADC:700:ADC1:690::ADG:1430ZxADB1:700:60,0:61,LOWMEM62,255:63,LOWMEM:66,0:67,B:MOVE1370252,140:253,181:AMB1Ĺ251,AMAMBĹ251,LOWMEMSCAN:AMBGAD:ADAM:690252,10:253,51 DBĹ251,LOWMEM:700(ADB1Ĺ251,ADC DRW:MD,81:MD1,38:u251,96:252,10:253,51:254,38:255,33:SCANADAMADAD(ADLOWMEM1):1430(GAD:CAD1AM2CB1380<60,0:61,CF62,255:63,CP66,0:67,C1:MOVEZ:14YER&(16384)155Ĺ16368,0:12709RP1160:1270h765,DL:759,0:750,LOWMEM:AMB1Ĺ751,AMAMBĹ751,B:759,7:764,AM(MAXMEM7)PZ11,206:PZ,234:AMB1ČPZ1AMBČPZ54(16384)155Ĺ16368,0:1270RP1210ALADB1Ĺ251,AD)VADBĹ251,LOWMEM>`SCAN:ADBİ690bj252,10:253,51:254,38:255,33xtMD,234:MD1,234~DN1210751,LOWMEM1:764,8:765,DL:759,0:AMBĹ759,AM(MAXMEM8):750,B1PZ,96:PZ11,238:AMB1Ĺ750,AM1PLAD(A$)LOWMEM::16304,0:16299,0::DRW1,0:MD,234:MD1,234bADBİ700:251,LOWMEM:1060n251,AD$252,10:253,51:254,38:255,33:DRW:XFR:3(TL2)4.720:MD,81:MD1,38::8DNDN:BDRW1,0:252,10:253,51:254,38:255,336(A$) RPRP:i18:1:"GOTO FRAME (1-";AMLOWMEM;") - ";:255,((AMLOWMEM)):INPT:760vA$""ı(A$)1(A$)AMLOWMEMČBEEP:980251,(ADB1)AD:252,10:253,51:254,38:255,33:ADBĹ251,LOWMEMSCAN:ADBİ690AA LEAVE"$18:"TYPE A NUMBER - ";QA$:A$ESC$(A$"1"A$"4")ČBEEP:910xA$ESC$ĉ:16304,0:16299,0::(A$)940,970,980,1080:81018:1:"FILM SPEED (1-255) - ";255,3:INPT:760:(A$"")960:((A$)1(A$)255)940:DL25,0:16303,06*::8:" FILM EDIT MENU ":]410:"(1) FILM SPEED (";256DL;")">11:"(2) REPEAT (";:RP1ĺ"Y";HRP0ĺ"N";R")"\12:"(3) GOTO FRAME..."f13:"(4) DIRECTION (";:DNĺ">)"pDNĺ"<)"z15:"ESC5,27C:DRW1,((AD$,C,1))790:DRW:-:C634:6:C:U$:19:C:U$::C719:C:5:LN$;:35:LN$::33,25:32,7:34,6:35,18:AC512:A$""(AC)141ı (AC)160ACAC1:770A$A$((AC)128):ACAC1:770  750:16300MEM:66,0:67,AD(MAXMEM7):AUXMV,56:AUXMV:60,0:61,AD(MAXMEM7):62,255:63,AD(MAXMEM7):66,0:67,LOWMEM:AUXMV,24:AUXMV:AD$(ADLOWMEM):(AD$)3AD$"0"AD$:(AD$)3AD$"0"AD$'C13:251,14:252,27:253,33:254,27C:25Bİ700lMD,234:MD1,2348v720:ADBĹ251,LOWMEMu252,10:253,51:254,38:255,33:DRW1,0:ADB1Ĺ251,AD~DRWMD,81:MD1,38(16286)127ADAMLN$"!"ĴCT480,480,540XFR:3(TL2)4:.60,0:61,LOWMEM:62,255:63,LOW54,30:255,29&DRW:D140:D:DRWf(ADLOWMEM1G1)(ADMXG2)ČBEEP:((16286)127)680:&252,10:253,51:254,38:255,33:ADB1Ĺ251,AD0ADBĹ251,LOWMEM:SCAN:ADBİ690DG1ADAD1NG2ADAD1XAMADAMADbAD3(TL2):TL2553(TL3),1023(TL3)@757,37:TL3Ĺ757,51251,14:DRW1,56:252,100:253,111:254,37:255,36:DRW:X203X217Y5Y56ıY18Ĺ252,5:253,16:G1Y17Y46ıY45Ĺ252,45:253,56:G2 251,14:DRW1,56:2,HR:255,HL:DRW:GF1810,1090_ HRĹ251,14:DRW1,56:252,100:253,111:254,HR:255,HL:DRWe  X252X265Y100Y111480 251,14:DRW1,56:252,100:253,111:254,37:255,36:DRW TL(TL2)2:3(TL2)4&2(TL2)2553(TL2),102252,85:253,96:254,HR:255,HL9 JDRW:GF1720,1770,800t T254,HR:255,HL:251,14:DRW1,56:252,85:253,96:DRWz ^ hX210X244Y100Y111420 rX228HR31:HL30:GF1 |X227HR34:HL33:GF2 251,14:DRW1,56:252,100:253,111:254:253,81:254,HR:255,HL:DRW4 GF1300,1530,1540o 251,14:DRW1,56:252,70:253,81:254,HR:255,HL:DRW X210X265Y85Y96360 "X228HR31:HL30:GF1 ,X249X227HR34:HL33:GF2 6X248HR37:HL36:GF3 @251,14:DRW1,56:2107 OSOX,OY:4((X10)4)410,((Y10)4)410c OSOX,OY:5(X10)4231,(Y10)410: X210Y70Y81X266280 X228HR31:HL30:GF1 X249X227HR34:HL33:GF2 X266X248HR37:HL36:GF3 251,14:DRW1,56:252,70 MCS" Z(4)"BLOAD MCS.BIN"A dLOWMEM97:(48896)76ģ16384R n2550:SX,Yg xOSOX,OY:SX,Yz OXX:OYY:OSS S1:X10Y10X176Y176STL CT3ľA$:K(A$):K3K4ČBEEP:150 2350:BTİ180 (CT3)120:160 BT0:STL, **********************; * MOVIE CONSTRUCTION *X * BY MIKE LINKOVICH *u( * COPYRIGHT (C) 1986 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************  P(104)16Ĺ103,129:104,16:4224,0:(4)"RUN               #$$$$777,,,555<G0  L` CHECK DISK AND PRESS ".0 CH$:CH$:=0 216,0:80 C D0,12150,10160,10160,12:150,18150,20160,20160,18:155,10155,20/ 165,20165,10175,20175,10:163,20167,20:173,10177,10/ 190,13190,10180,10180,20190,20190,15:187,15193,15/ / :10:"CANNOT LOAD SOUND AND ARROW FILES":0 " 88,2092,20:90,2095,10100,20:98,20102,20:93,1597,15.l 105,20105,10110,15115,10115,20:103,20107,20:113,20117,20.v 118,20122,20:120,20125,10130,20:128,20132,20:123,15127,15. 135,12135,10145,10135,20145,20145,18E/ 15547,15f-: 23,2027,20:23,1027,10:33,1037,10:33,2037,20:25,1025,20:35,1035,20:25,1535,15-D 50,1250,1060,1060,12:55,1055,2053,2057,20-N 63,1063,12:64,1064,12:65,1065,15-X 80,1280,1070,1070,1580,1580,2070,2070,18<.b*, N(I)1ēM,175(P10)M10,175(P10)1, Ig, M$"N"āI11000:I:I75175:1:175,I275,I:Is, TITLE, 3:I822:8,I200,I:I:4,& 10,1210,1020,1020,12:15,1015,2013,2017,20-0 38,2042,20:40,2045,1050,20:48,2052,20:43,1 M175(N10):+| E(I)1ēM10,185(P10)M10,175(P10)A+ IN+ I1100Z+ PI:N0w+ P10PP10:NN1:2980+ M175(N10)+ S(I)1ēM,185(P10)M10,185(P10)+ I+ I1100+ PI:N0+ P10PP10:NN1:3040, M175(N10)"AGAIN? ";A$:A$(A$,1):A$"Y"A$(121)Ĭ1304* C* DRAW MAPI* P* 3]* I1100i*" PI:N0*, P10PP10:NN1:2860*6 M175(N10)*@ W(I)1ēM,185(P10)M,175(P10)*J I*T I90100*^ PI:N0*h P10PP10:NN1:2920 +r40,13040,100:) 230,100190,100190,130230,130230,100F) MUSICk) M1126:M2150:2620:M1170:2620) I150:I:M2100:2620) M1151:M2100:2620:M1170:2620:M1190:2620) M1203:M2150:2620:M1255:M2200:2620) I12000:I.* ::,Y:Y;(Z 3:30,14030,3090,0180,0240,30240,14030,140M(d 30,30240,30p(n 40,4080,4080,8040,8040,40(x 230,40190,40190,80230,80230,40( 100,140100,70170,70170,140( 110,80160,80160,100110,100110,80 ) 40,10080,10080,13025606' 240,30260,30:250,30250,45:240,45250,45<' N' A$"K"2590w' 244,30244,45:254,30244,38254,45}' ' A$"M"ı'( 242,45242,30250,37258,30258,45'2 '< 780,M1:781,M2:787:'F YOU WIN(P :1:Y140161:0,Y2799,50,& 192,56192,50198,50198,53192,53M& 200,50200,56206,56206,50o& 208,50214,50:211,50211,56u& & LETTER& 238,28262,28262,47238,47238,28& A$"I"2530& 240,30260,30:250,30250,45:240,45260,45& ' A$"J"1:2270%8 OK9%B 178,38200,38200,48178,48178,38i%L 180,40186,40186,46180,46180,40:188,46%V 190,40190,46:196,40190,43196,46:198,46%` %j INPUT%t 178,48216,48216,58178,58178,48&~ 180,50180,56:183,56183,50189,561836186,368$196,36196,30202,30202,33196,33202,36g$188,36188,30194,30194,33188,33194,36$ 204,30210,30210,36204,36204,30$ 212,36212,30218,30218,33212,33218,36$ FT1FT0:$$ 780,255:781,255:787:I1500:I%. 0:FT5:FG1ıL#60,0:61,64:62,255:63,95:64,255:65,127:66,0:67,96:468R##60,0:61,96:62,255:63,127:64,255:65,95:66,0:67,64:468:# ERROR#3#178,28220,28220,38178,38178,28 $186,30180,30180,33183,33:180,33180,3:D$"N"Ę0:1X5,Y54">D$"S"Ę32:1X5,Y15Q"HD$"W"Ę48:1X10,Y10k"RD$"E"Ę16:1X,Y10}"\1:FG12210"fX155:X2104"pY151185"zX1,YX2,Y"X1X11.46:X2X21.82"Y"0:2360 #3:0,25170,25170,1850,1850,264 !3=!140,52140,166:144,57144,165:149,63149,163C!W! GREEN BLANKETd!3:2360!FGFG1:FG1İ2240:0:1,6430,64!GG0:GN0:GGP! GG10GGGG10:GNGN1:2060!X175(GN10):Y190(GG10)! 1!*L$"N"2140"41:3119,159:114,66114,157:110,70110,155:106,74106,153] 136,49152,65:136,168152,162 Y149:Y265:I110:136,Y1152,Y2:Y2Y29.7:Y1Y111.9:I!1:Y168180:136,Y152,Y:Y:152,167140,167:152,166143,166:152,165146,165:152,164148,1:Y1Y113.9:Y2Y216.1:153,Y1170,Y2:I\166,28166,183:161,31161,181:156,34156,179136,49136,168104,150104,75136,49Y175:Y249:I110:104,Y1136,Y2:Y1Y17.5:Y2Y211.9:I9 132,52132,166:127,56127,164:123,60123,161:119,630,163:18,16226,162:18,16223,162:18,16121,161;3x&Y165:Y253:I110:18,Y134,Y2:Y1Y19.9:Y2Y211.1:I030,5530,163:26,5926,162D21,6221,161NXb170,25153,37153,177170,186170,25lY137:Y225(vI110329,180:13,3513,177;34,5355,7555,15034,16434,53KY153:Y275|I110:34,Y154,Y2:Y1Y111.1:Y2Y27.5:I38,5738,161:43,6143,159:47,6647,156:51,7151,15334,5317,65:17,16034,16441:Y164175:18,Y35,Y:Y:18,163hY2Y22.2rX,Y1X,Y2:X$|*ZY7515010:55,Y104,Y:Y:55,150104,150}X551044.263:X,75X,150:X0,2517,3917,1750,1850,25Y239:Y125I110:17,Y20,Y1:Y2Y213.6:Y1Y116.1:I4,284,183:9,Y2185X0554.3$Y1Y13.62Y2Y22.7DX,Y1X,Y2:XJPz170,25104,75104,150170,185170,25Y125:Y275"I110,Y1Y116.1:Y2Y27.56104,Y2170,Y1@IJY125:Y2185TX1701044.265^Y1Y13.1 <S(P)1İ1400$FS(P)0İ17106PW(P)1İ1670HZN(P)1İ1540ZdN(P)0İ1880`n|x DRAW LEFT WALL CLOSED0,2555,7555,1500,185Y275:Y125I110Y1Y116.1:Y2Y27.50,Y155,Y2I0,250,185Y125:1540E(P)0İ1880.D$"E"1270@N(P)1İ1400RN(P)0İ1710dE(P)1İ1670vS(P)1İ1540S(P)0İ1880D$"S"1340E(P)1İ1400 E(P)0İ1710S(P)1İ1670W(P)1İ1540(W(P)0İ18802.A$"M"ĭD$"W"D$"E":1100?8A$"M"ĭD$"S"D$"N":1100ZBA$"M"ĭD$"E"D$"W"uLP0P110P101ī2630~V690` DETERMINE POSITION & DRAW ITjD$"N"1200tW(P)1İ1400~W(P)0İ1710N(P)1İ1670E(P)1İ"ĭD$"W"D$"S":11007A$"J"ĭD$"S"D$"E":1100XA$"J"ĭD$"E"D$"N":1100yA$"K"ĭD$"N"D$"E":1100A$"K"ĭD$"W"D$"N":1100A$"K"ĭD$"S"D$"W":1100A$"K"ĭD$"E"D$"S":1100$A$"M"ĭD$"N"D$"S":110070A$"K"İ2250:740@A$"M"ĭD$"N"ĭS(P)0PP1:970hA$"M"ĭD$"E"ĭW(P)0PP10:970A$"M"ĭD$"S"ĭN(P)0PP1:970A$"M"ĭD$"W"ĭE(P)0PP10:970A$"M"İ2250:740A$"J"ĭD$"N"D$"W":1100A$"JHA$"J"ĭD$"S"ĭE(P)0PP10:970MRA$"J"ĭD$"E"ĭN(P)0PP1:970d\A$"J"İ2250:740fA$"K"ĭD$"N"ĭE(P)0PP10:970pA$"K"ĭD$"E"ĭS(P)0PP1:970zA$"K"ĭD$"S"ĭW(P)0PP10:970A$"K"ĭD$"W"ĭN(P)0PP1:9A$"I"ĭD$"W"ĭW(P)0PP10:970I A$"I"ĭD$"N"ĭN(P)0PP1:970qA$"I"ĭD$"E"ĭE(P)0PP10:970 A$"I"ĭD$"S"ĭS(P)0PP1:970*A$"I"İ2250:7404A$"J"ĭD$"N"ĭW(P)0PP10:970>A$"J"ĭD$"W"ĭS(P)0PP1:970&)0:E(91)0:W(10)02810,P1:D$"N"6MM1<F2020P1120\ INPUT3:2410:0:2480:A$:A$(27)2790:(A$)0ZZ(A$):ZZ96ZZZZ32:A$(ZZ)3:2480:0:2410A$"I"ĭA$"J"ĭA$"K"ĭA$"M"İ2250:740")1,NH$"H"ĭX2E(I)1:I90W(I10)1VXX3N(I)1:S(I1)1:II1:I100680bH$"H"ĭX2E(I1)1:I90W(I11)1lH$"H"ĭX4N(I3)1:S(I4)1vIL1N(100)0:E(100)0L2N(100)0:E(100)0:E(91)0L3N(100)0:E(100N(I10)1S((I10)9)1)E(90I)10I<I189NX((1)3)1lX1Ĺ780,50:781,10:787X2Ĺ780,100:781,10:787&X3Ĺ780,150:781,10:7870X4Ĺ780,250:781,20:787:H$"H"X((1)4)1DX1E(I)1:I90W(I10$(ZZ)ML$"Y"L$"N"Ģ22:"PLEASE ANSWER Y OR N: ";L$:L$(L$,1):380f:"PRESS ";nA$:12:12:"PLEASE WAIT.":12:"------------"M12551515:M210:2620:M1N(100),S(100),E(100),W(100)I110W(I)1 ZZ32:M$(ZZ)UhM$"Y"M$"N"Ģ18:"PLEASE ANSWER Y OR N: ";M$:M$(M$,1):350r19:"WOULD YOU LIKE THE COMPUTER TO SHOW YOU WHICH WAY YOU ARE FACING AND HOW CLOSE TO THE CORNERS YOU ARE? ";L$:L$(L$,1)|(L$)0ZZ(L$):ZZ96ZZZZ32:LHARD MAZE? ";H$:H$(H$,1)J6(H$)0ZZ(H$):ZZ96ZZZZ32:H$(ZZ)@H$"Y"H$"N"Ģ16:"PLEASE ANSWER Y OR N: ";H$:H$(H$,1):310JH$"Y"H$"H"T17:"WOULD YOU LIKE A MAP OF THE MAZE? ";M$:M$(M$,1)^(M$)0ZZ(M$):ZZ96ZZR' SIGN WILL APPEAR.": :"HOW MANY EXITS DO YOU WANT?"R " 1) ONE EXIT"k " 2) TWO EXITS" " 3) THREE EXITS" 13:"CHOOSE ONE: ";L$:L(L$) "L1L3Ģ14:"PLEASE CHOOSE 1,2, OR 3: ";L$:L(L$):290,15:"DO YOU WANT A F YOU ARE FACING WEST AND YOU PRESS I, YOU WILL MOVE WEST, NOT NORTH."h :"PRESS ";:A$ :::" WHEN THE 'INPUT' SIGN APPEARS YOU MUST PRESS I, J, K, OR M. IF YOU PRESS ANY OTHER KEY OR TRY TO GO THROUGH A WALL, THEN AN 'ERROUNLESS YOU CHOOSE THE HARDEST LEVEL. YOU WILL ALSO SEE A 3-D VIEW OF YOUR POSITION IN THE MAZE."K " USE THE I, J, K, AND M KEYS TO MOVEFORWARD, LEFT, RIGHT, AND BACKWARDS RESPECTIVELY. NOTE: THE KEYS DO NOT MOVE YOU UP, DOWN, AND SO ON. IY MICROSPARC, INC **" :" THE OBJECT IS TO MANEUVER YOURSELF AROUND A MAZE AND FIND AN EXIT. YOU START IN THE LOWER LEFT-HAND CORNER AND MUST MOVE TO THE EXIT(S) IN THE OTHER CORNERS."a " ON THE SCREEN YOU WILL SEE A MAP OFTHE MAZE,  PD$(4)% Z3250= d(4);"BLOAD SOUND"P n232,35:233,3f xD$;"BLOAD ARROW"s 216,0: M11525515:M210:2620:M1 START ::13:"THAT'S AMAZING " 19:"BY":13:"JAMES B. PURVIS" :"** COPYRIGHT 1986 B?( **********************; * THAT'S AMAZING *X * BY JAMES B. PURVIS *u( * COPYRIGHT (C) 1986 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 * F **********************                 iwSRKQbSXTdS$baOz"!f`^W\ t1^bMVSgU]YYTRXxTmkZ|eRf[![nK2ujQX`dcmcRKvMFXRKLYVPTrSJtSNfRa^XSU[QKՙPKကPP`W_TTRSSsRK|nSL~QNQPh[cYaUai^RSOKRXSQK͠QKbiRKLYVPTrSJtSNfRa^XSU[QKՙPKကPP`W_TTRSSsRK|nSL~QNQPh[cYaUai^RSOKRXSQK͠QKbiRK    LOSE"::12:"ERROR "(222):"IN LINE "(218)256(219):1360::EF740,870,110X:2:1:958:2:(4)"CATALOG":1360:23:"NAME MUST BE 8 OR FEWER LETTERS":"PRESS TO CONTINUE.";:Z$: HAVE MADE. NOW TRY IT OUT.":1360,F170VP24:8:"";:678^Z:dNF1:LF(F$):LF9LFāNC1LF:NA((F$,NC,1)):NF((NA64NA91)(NA46NC1)(NA47NA58NC1))NF1::NFNFnNFF$(F$,1)xP216,0:(4)"CSH TO MAKE, PRESS THE":H "ESCAPE KEY, AS THIS RETURNS YOU TO THE":`"MAIN MENU.":1360"THAT IS ALL THERE IS TO IT. FROM THE":("MAIN MENU YOU CAN SELECT THE SAVE OPTION"2"AFTER WHICH YOU WILL BE READY TO TEST":#<"CHANGES YOU"TO THE ITEM YOU WISH TO CHANGE BY USING":]"THE ARROW KEYS AND THE SPACE BAR. ONCE":"THERE, PRESS THE RETURN KEY. THEN JUST":"ENTER THE NEW PRIORITY AND PRESS RETURN":"TWICE. WHEN YOU HAVE MADE ALL THE":"CHANGES YOU WIETE SET OF END OR CENTER":K"PRIORITIES REQUIRES TWO HIGH-RES SCREENS"{"TO DISPLAY. PRESSING THE '1' KEY BRINGS""UP PAGE 1, AND THE '2' KEY PREDICTABLY":"GIVES YOU PAGE 2.":1360"TO CHANGE A PRIORITY, MOVE THE 'CURSOR'":,M":4V"ONE TO TWO HUNDRED AND FIFTY FIVE THAT":e`"REPRESENTS THE VALUE OF PLACING A WHITE":j"STONE AT THE INDICATED POSITION."t1360~"THERE ARE TWO TYPES OF PRIORITIES;":"END PRIORITIES AND CENTER PRIORITIES.":"A COMPLGRAM IS DESIGNED":C$"TO ALLOW YOU TO 'COACH' COMPUTER QUINTIC"t."PLAYERS. COACHING CONSISTS OF ALTERING":8"THE STRATEGIC PRIORITIES THAT THE PLAYER"B"USES WHEN IT MAKES ITS CHOICE OF MOVES.":L"A STRATEGIC PRIORITY IS A RATING FRO";F$)(4);"BSAVE";F$;",A$8E00,L$300"4216,0]N$;" IS SAVED AND READY TO PLAY.":p SCREEN PRINT0:W1(A$):A((A$,W,1))49AX,AY:A43ĕA43AX,AYAXAX7::3: INSTRUCTIONS6:34,5::"THE QUINTIC.TEACHER PRO(F$"?")11440,1430::8808:"FINALIZING CHANGES"nN0:N11517:N21517:N31517:N41517:NN1ADDN1(N115)N2(N215)2N3(N315)4N4(N415)8ADD36352,ES%(N):ADD36608,ES%(N)ADD36864,MS%(N):::"SAVING 15)4N4(N415)8;4ES%(N)((ADD36352)(ADD36608))2S>MS%(N)(ADD36864)_H:::hR170{\ SAVE STUDENTfEF2:1410p:"ORIGINAL PLAYER NAME - ";NAME$:z"WHAT NAME DO YOU WANT":"FOR THE NEWLY TAUGHT PLAYER? ";F$:1380:NF;NAME$:F$NAME$:1380:NFĴ(F$"?")11440,1430:1210(F$"?"):1:958:750e:"LOADING ";NAME$}(4);"BLOAD";NAME$ 216,0:"EXAMINING ";NAME$ N0:N11517:N21517:N31517:N41517:NN1*ADDN1(N115)N2(N215)2N3(N3(S):A$(A$,3):AXCX5:AYCY40:1010h0:CX7,CY32CX15,CY32CX15,CY42CX7,CY42CX7,CY32223,166256,166256,178223,178223,166:3A21:D1560,100,100,500 LOAD STUDENTEF1:1410M12:"WHAT IS YOUR PUPIL'S NAME? "l50AX,AY:A8D0DD1:AXAX7:1010:AXAX7:^vA13(D3D0)ġ:D1700,100,100,660sA48A57D3ıS(D)A48:1010:DD1:SS(2)10S(1)100S(0):AX229:A$"???":1010:S255S1600M1ES%(N)S:690MS%(N)S'A$"00"(CX2513.9)&A13D3580L0CX,CYCX8,CYCX8,CY32CX,CY32CX,CYU:440DCX7,CY32CX15,CY32CX15,CY42CX7,CY42CX7,CY32N223,166256,166256,178223,178223,166XAX229:AY175:D0:S0b50AX,AY:A$:A(A$):620:61030Ĺ16349A,0:230,(A48)32:N141(A50)8A27170XA32NN11:N41N53N1rA8NN1:N41N81A21NN1:N42N1N1N41N81N42NNN41(N41):CX((NN11)(NN11))11:CX0CX11 CY(NNCX.1)48112:CXX,Y30:3:54X,Y18J|A$"00"(MS%(C)):A$(A$,3):AXX9:AYY42:1010hXX25:X275X15:YY48yADD33504,P::: TEACH STUDENTN1:A49:460A$:A(A$)0:CX,CYCX8,CYCX8,CY32CX,CY32CX,CY:3*D0:A49A5::: @430' J CENTER STRATEGYd T:X15:Y0:C0:16302,0:AX220:AY157:A$"PAGE 1":1010 ^N11517:N21517:N31517:N41517 hCC1:C42Đ:Y0:X15:AX220:AY157:A$"PAGE 2":1010rN136X,Y12:N236X,Y6:N336X,Y24:N4361517A CC1:C42Đ:Y0:X15:AX220:AY157:A$"PAGE 2":1010 N136X,24Y:N236X,18Y:N336X,Y12:N436X,Y6:3:54X,Y30 A$"00"(ES%(C)):A$(A$,3):AXX9:AYY42:1010 "XX25:X275X15:YY48 ,ADD32992,P:ADD33248,P 6 TO MOVE CURSOR, TO":" CHANGE ITEM, FOR MENU."m 17:10:"WHICH? ";A$:M(A$):M5M1170 M240,340,870,1050,1420 END STRATEGY :X15:Y0:C0:16302,0:AX220:AY157:A$"PAGE 1":1010 N11517:N21517:N31517:N4 COPYRIGHT 1986 BY MICROSPARC, INC **":6:16:"MAIN MENU":10 8:"1) DISPLAY END STRATEGY":8:"2) DISPLAY CENTER STRATEGY":8:"3) SAVE COMPUTER PLAYER" 8:"4) INSTRUCTIONS":8:"5) QUIT"> 20:"ON DISPLAY SCREENS: USE <--, -->":" AND SPACE"QUINTIC.TEACHER"::9:"BY JAMES R. GESCHWENDER":6:"** COPYRIGHT 1986 BY MICROSPARC, INC. **"q nEF3:1410 x(4);"BLOAD QUINTIC.SHAPES,A$9200" 216,0 232,0:233,146:1:3:0 740 MAIN MENU> ::13:"QUINTIC.TEACHER"::"** ***********************5* QUINTIC TEACHERQ* BY JAMES GESCHWENDERk(* COPYRIGHT (C) 19862* BY MICROSPARC, INC.<* CONCORD, MA 01742F***********************P INITIALIZEZ34816:24576:ES%(100),MS%(100)a d::13:             - ?d- $$d9?7 $$M166?$$M16 $$M166 $d l > $l -- 7--? ?6-  6.-- ?$--)e?$$ - $ $?? - ?d-6- $$?v-$-!$6$$$--? $d-?$$$-66?$M8?$,-5??$M8?$,-5 $d-*?$$$M1-56--$$,; - $$<$$$M--$$,$$$f`666$$$V$$$ $d-66?$$$-? $d-6?$$$-?? !-9DQ[fs|&3>GS$ - c 6 ,D>$5?,6I?6- $ ?-)??.m->??w--?)e$$$$ ---$$<--d- ?- g!?I$,$   LdN 寧-   L.e` L)jjjjM`  Lwei ` H Ceh `  ` L L 0Le`` L8 f i L?e ߩh <!i(  iLNd P  ɇޥiة  ɇiLe ,cȭh 􇩎La`*.mm``h ` c`hHiih` L d08)i 8 M d0 HHhLchH V Ce)wt8 =~>LbLcȱɀLc  0Lb !ʝLb  ,c  a  a a a a$ a  a a a``Laimi&&ihELaE 􇩑` L L L a a a a a a a a a a a  a a  a a  a a  a a a a a a a a a a a a    PTION":"TO CREATE A NEW COMPUTER PLAYER":2150U&z21:1:"ENTER '?' FOR CATALOG":&3288:216,0:D$"CLOSE"::12:"ERROR "(222):"IN LINE "(218)256(219):24:"PRESS TO CONTINUE";:Z$::EF140,180,1420,1450,1570,11602NA((F$,NC,1)):NF((NA64NA91)(NA46NC1)(NA47NA58NC1))NF1::NFNFx%H(F$,1)"?"ė:D$"CATALOG":F$"?"~%R%\23:"NAME MUST BE 8 OR FEWER LETTERS."%f24:1:"PRESS TO CONTINUE";:Z$:/&p21:1:"USE COMPUTER VS. HUMAN O1)"TRANSAR":NAME$(2)"COMPUWIN"&$ R$ I9,K9,I11,L8,I10,I8,G11,J8,K8,H8,L10{$  J7,I7,J8,J9,H11,J6,K5,K9,H9,H10,J8$* H7,H9,H8,I8,J8,G10,H10,J7,K6,F11$424:10:"";:16368,0:678::Q%>NF1:LF(F$):LF9LFāNC1LF:"IT, AND WHEN IT IS FINISHED, YOU SHOULD":[#"KNOW EVERYTHING YOU NEED TO KNOW TO":#"BEGIN PLAYING. PRESSING ESCAPE DURING":#"THE DEMONSTRATION WILL TEMPORARILY HALT":#"PLAY UNTIL PRESS ANOTHER KEY.":2100 $P(1)0:P(2)0:NAME$(O":3""FORM A PAIR BETWEEN TWO ENEMY STONES.":c""WHEN THE FLASHING 'O' STONE IS PLAYED,":~"18:"XO X":1339,79:""NO CAPTURE IS SCORED.":2100""A DEMONSTRATION IS PRESENTED HERE TO":""ILLUSTRATE WHAT HAS BEEN SAID. WATCH":.# HERE IS AN EXAMPLE:":2!X18:"XOO":1596,88:b!b"THE TWO 'O' STONES WOULD BE REMOVED FROM"!l"BOARD WHEN THE FLASHING 'X' STONE IS":!v"PLAYED.":2100!"NOTE THAT IT IS NOT POSSIBLE TO 'CAPTURE"""YOURSELF' BY PLAYING A STONE SO AS TRS OF"+ "YOUR OPPONENT'S STONES.":2100[ &"A CAPTURE OCCURS WHEN YOU FLANK A PAIR": 0"OF YOUR OPPONENT'S STONES. THAT IS,": :"YOU MUST PLACE STONES SO THAT YOU HAVE": D"ONE ON EITHER SIDE OF AN ADJACENT PAIR":!N"OF ENEMY STONES.IL ONE OF THEM WINS. THERE"K"ARE TWO WAYS TO WIN. THE FIRST IS TO":|"GET AN UNBROKEN ROW OF AT LEAST FIVE OF":"YOUR STONES EITHER HORIZONTALLY,":"VERTICALLY, OR DIAGONALLY. THE SECOND": "WAY IS TO CAPTURE AT LEAST FIVE PAI:CY191:A$"INVALID MOVE":1660<SO,250,250: ERROR TONEcCX54:A$"???? ?? ????":1660:570CX54:A$"???? ?? ????":1660:580:"PLAYING QUINTIC IS AS SIMPLE AS THIS.":"TWO PLAYERS ALTERNATE PLACING STONES ON":"THE BOARD UNTX1,Y1X1,Y2X2,Y2X2,Y1X1,Y1L^X11,Y11X21,Y11:X21,Y11X21,Y21|hX11,Y21X21,Y21:X11,Y11X11,Y21:r SCREEN PRINT|0:W1(A$):A((A$,W,1))49CX,CY:A43ĕA43CX,CYCXCX7::3: INVALID MOVECX542170:8:"WHAT NAME WOULD YOU LIKE? ";F$j2110:NFĴ(F$"?")12140,2150:86(F$"?"):1:958:1530zNAME$(1)F$IN: INITIALIZE COMPUTER STRATEGY"EF5:2180,D$;"BSAVE"NAME$(1)",A$8E00,L$300"6216,0@J BOX PLOTTERTAME OF HUMAN PLAYER? ";NAME$(2)l2170:6:" FOR NEW PARTNER.":4:"NAME OF COMPUTER PLAYER? ";F$|F$""15302110:NFĴ(F$"?")12140,2150:4:1:958:1450NAME$(1)F$EF4:2180D$;"BLOAD"NAME$(1)216,0)ER #2? ";F$:2110:NFĴ(F$"?")12160,2150:2:1:958:(F$"?")11220,1340]FNAME$(2)F$mPEF3:2180ZD$;"BLOAD"NAME$(2)dWH:COPY WHITE STRATEGY TO BLACKnD$;"BLOAD"NAME$(1)x216,02160::1220P(1)1:P(2)0"N"NAME OF PLAYER #1? ";NAME$(1):"NAME OF PLAYER #2? ";NAME$(2)EWP(1)1:P(2)1(2170:10:"NAME OF COMPUTER PLAYER #1? ";F$:2110:NFĴ(F$"?")12160,2150:2:1:958:(F$"?")11220,13202NAME$(1)F$M<2170:12:"NAME OF COMPUTER PLAY"DO YOU WISH TO PLAY:":8:"1) HUMAN VS. HUMAN"p8:"2) HUMAN VS. COMPUTER":8:"3) COMPUTER VS. COMPUTER":"OR DO YOU WANT:":8:"4) INSTRUCTIONS"::7:A$V(A$):V4V11220N((78))::V1280,1430,1310,1740P(1)0:P(2)0? jCX226:CY62:A$"???":1660:CX226:CY143:1660:t360J~EF6:1200P(1)P(2)1ĺ:D$;"BSAVE";NAME$(1)",A$8E00,L$300"216,0::12:13:"SEE YOU LATER.":23:2180 CHOOSE MODE1:17:"QUINTIC":12:34,2/C1:::::210].CC12(C2):CX0:CY191:A$"TO PLAY AGAIN PRESS P TO QUIT PRESS Q":1660816368,0:B$:B$"P"B$"Q"1080B0:Y185191:0,Y279,Y:LB$"Q"1150VY8196:207,Y267,Y:207,Y81267,Y81:`3213,59:4213,1401XXCX(N):YYCY(N):C2CX,CY:960:CYCY9:PCC1:XX2CX(N):YY2CY(N):b PROCESS WINC2P(1)P(2)1ČAD: ADOPT NEW STRATEGYN07:Q2092587:SO,278Q,9:49Q,81C39:: $V4CX32:CY191:A$"RETURN TO CONTINUE":1660:678CO,Q:Q(AC): CONVERTWQ116Q244Q252Z(CAP2C):1000:CAP2C,Z1:Z11040b:430t RECORD MOVEC14X8,11Y8UP,X,Y,C15: UPDATE BOARD PROCESS CAPTURESC1C:CC12(C2):CX27513Z:CY81C13-Q01::AA16AP*N02:Q03-4V(AQ4N)I>CO,V:V(AC): CONVERTgHW(NSN256V):WW(W1){RNSN256V,W1\:f CHECK FOR WINpQ(PR112C):Z(PA34304512C):960zQ1271040Z0430N07:Q(PRN)C1ČLYSIS OF HUMAN STRATEGY1PI,15: PREDICT MOVEEA256(9)(8)WN02:Q03iV(PRQ4N)CO,V:V(AC): CONVERTW(NSN256V):WW(W255)NSN256V,W1 :AAAW:PY(A19):PX(A19PY)19  PYPY1:PX(PX1.4):CXCX7:bA13N0ġ:6404lN3A48A90ıOvW$(N)A$:1660:NN1:pA$"":Q0N1:A$A$W$(Q):X(A$)64:Y((A$,2)):X19Y19X1Y11700PA(Y1)19X1(PAAB)01700PRPA16APP(1)0880 COMPUTER ANA)(32)(&CX226:CY81C19:1660:880:0 PLAYER MOVE:CX226:CY81C19:A$"???":1660:N0:CX226:V4ćA$:1660:N0999::650DSO,4040C,80: TONE FOR NEXT MOVEN50CX,CY:A$:600:590 XA(A$):50CX,CY:A8N0NN1:CXCX7:16600:CX78:CY191:A$"PAUSE":1660>A$:CX78:A$"?????":1660NP(C)0570b COMPUTER MOVEEV,112C: EVALUATE OPTIONS (13 IS WHITE)N256(9)(8)PANAW:Y(PA19):X(PA19Y)19:YY1:X(X1.4)PRPA16APA$(X64)(YY TO BLACK0DU: DUPLICATE COMPUTER STRATEGYFCL: CLEAR BOARDxX10:Y10:M1:CAP2,5:CAP4,5:A$"J10":550MM1:CC12(C2):3213,59:4213,140L(16384):(P(2)0V4)L155480CX226:CY81C19:A$"???":166016368,,2,275,18,201,3,272,17,204,4,269,16,207,5,266,15` T 202,34,271,44,195,49,278,99,220,54,253,64 ^ 202,115,271,125,195,130,278,181,220,135,253,145 hY14168:17,Y171,Y:(Y3)8((Y3)8)ĕ4817,Y r |P(2)1410 WH: COPY WHITE STRATEGE$(1):CX2373.5(A$):1660:CY123:A$NAME$(2):CX2373.5(A$):1660z "N6:Y221738:N9,Y:N181,Y:NN1:N15N5 ,:Y941738:63,Y:6175,Y: 6N012:X1,Y1,X2,Y2:1620::3213,59 @ 16,13,172,169,1,1,187,1810 J 195,1,278,19,198AME$(2),8) DRAW DISPLAYQ N22::X221738:NX2,10:NX2,178:NN1:u CX213:CY13:A$"QUINTIC":1660 CX219:CY29:A$"WHITE":1660:CX219:CY110:A$"BLACK":1660 CX210:CY157:A$"CAPTURES":1660:CX210:CY76:1660F CY42:A$NAM68:AP26624:AW34304$ EF1:2180J D$;"BLOAD QUINTIC.SHAPES,A$9200"U 216,0r 232,0:233,146:1:0:3 EF2:2180 D$;"BLOAD QUINTIC.ML" 216,0 N07:CX(N),CY(N)::0,-1,0,1,-1,0,1,0,1,-1,-1,1,-1,-1,1,1 1220:NAME$(2)(N(2),W$(4):D$(4)H d::17:"QUINTIC"::9:"BY JAMES R. GESCHWENDER"{ n6:"** COPYRIGHT 1986 BY MICROSPARC, INC. **" xUP24576:IN25423:CL25447:EV25526:PI25597:CO25920:AD25941:WH25991:DU26043:SO26078 CAP33275:NS34816:AC34808:AB327 **********************; * QUINTIC *X * BY J GESCHWENDER *u( * COPYRIGHT (C) 1986 *2 * BY MICROSPARC, INC *< * CONCORD, MA. 01742 *F **********************P INITIALIZE Z16128:CX(7),CY(7),P(2),NAME$                     6 $$-6' $,-*M$-6?$i M ?,-hi)#II 8' $$m 56>$$$$$,-----5666?????'$$,----566????'$,---56???',--5??'$$,-? $d-6'!$$,-?I--( $88?6v@%') mmcmmmcmmmcmmm# -$$)-d- ?'- g!?I!8?' 6&- ?'$-- - ?$$ - $ ?,%? $ $*D66 d  $ -x%LXfr~2T\hu.C!$d >?N1&!$$,-?N1? -$$ -)- $?766)-$-$--!$$,-? - <$$ -%!$$-@666 -$$(%- $<(%!$$l )-$$$!$$.`666!$$rV$$$ - $?66!  L0KZ10FL1:KK1:910HFL0ĺ::"YOUR TIME WAS";:24:" "T" ":WKZ0110023:"PRESS KEY ";:A$:(A$)13Ė1:1050$FL0ĺ:1100. ** SAVE BEST SCORES **8:D$;"OPEN BEST":D$;"WRITE BEST":NBBK1NB:B$(K):B(1:998:868:920-NBNB1:NB1FL0970>LNBK11jB$(L)B$(L1):B(L)B(L1):WR(L)WR(L1)qL1008:1:868B$(K)K$:B(K)T:WR(K)N:FL1WR(K)NKZ0İ2920WR(K)NKZKZ1:KZ") "B$(K);:25:B(K)KNB860F159)2)8)1:12:" PRESS ":A$::(A$)13820W> ** LIST BEST SCORES **eHFL0:MI0rRKZ0:K0\KK1:NB0910fWR(K)NKZ101230pTB(K)990zFL1990KZ10990KZ0İ2920"ENTER YOUR NAME ";K$:K$""Ė:Y2159:BTBT4:Y1BTNX102795:X1,Y1X2,Y2:X2X25:X1:X1X15:X2X25k CC(7(1))1:CC4780CC:Y1BT1595:X1,Y1X2,Y2:Y2Y25:Y1 Y160190:1,Y106,Y:166,Y278,Y:Y*22:2:" YOUR TIME-->";:26:" GOOD WORK! ":4(((BT185,(L6)840279,(L6)840&EC1/110b16:L:WL$(2,L5):E$WL$(2,L5):WL$(2,L5)""qDI12050z200 ** CHECK WORD ORDER **T(T):K1N18,0WL$(1,K)WL$(1,K1)1120K ** WORDS ARE RIGHT **X2279S 110:KP0 2:L:E$C &L6ē0,(L6)84090,(L6)840[ 0WL$(1,L5)E$:E$""q :NDND1:NDN710} DDI1ı NEC0:200 X ** MOVE RIGHT SIDE ** bL(EP8) lWL$(2,L5)""200 v28:L:" ": 12 SPACESL6ēP8) EC1WL$(1,L5)""520= EC0WL$(1,L5)""470F 200k 2:L:" ":12 SPACES 110:NDND1:EC1 16:L:E$WL$(1,L5):E$:WL$(1,L5)"" L6ē0,(L6)84090,(L6)840 200 16:L:" ":12 SPACE,EPEU(BT)(EP)EU45EU0:200+ 6110A @0:100,EP180,EPn JEC1Ė16:L:" ": 12 SPACES{ TEPEPEU ^3:100,EP180,EP hL(EP8) r16:L:E$ |DI1ı 16368,0 EU0 200  ** MOVE LEFT SIDE ** L(E"SELECT CREATE A WORD LIST.":2840E ** ELEVATOR & WORD MOTION **N MI0h K16:KP(16384):v 16368,0 110 KP193EU8 KP218EU8 KP136EU0:430 KP149EC0EU0:610 EU0200 L(EP8) "DI1310" ATOR"" Z::D$(4):2730::1204 d ** TIMER **k nTT1:T$((T)):22:(23(T$)):T$:P(16336): xD$(4)::2860 S$(100),F(2,10),WL$(2,10),B$(100),B(100),WR(100) 2180 D$(4) 1740:1280" NL0ė:"NO WORD LISTS...":8:$ **********************9* WORD ELEVATOR *U* BY GARY KNOX *q(* COPYRIGHT (C) 1986 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F********************** P(104)16Ĺ104,16:103,1:4096,0:(4)"RUN WORD ELEV    FL0:3850<+< PRINT I-J-K-M PROMPT~<:"ENTER LOCATION OF ";OB$:"USE I-J-K-M TO MOVE":" TO PLACE ";OB$;:MOVE DOWN;RRSRRE:3710.;RR1:3710J;SH37SH20SH274030;A$(R,C)""ė:(7)"THAT SPACE IS OCCUPIED!":D12000::4120:3710;SH20SH27ı;SHC14,Y(R9):;I1ı;J1I;RHX(J)CHY(J)FL1;J <FLġ:)3710:A$(32)4010*: A$"I"3900;:A$"J"3930L:A$"K"3960]:(A$"M"3990k:2 MOVE UP:<RRERRS:3710:FRR1:3710:P MOVE LEFT:ZC1C18:3710:dCC1:3710:n MOVE RIGHT:xC18C1:3710:CC1:3710 ; ,53,46,53,63,54,30,36,60,50,54,39,36,23i  54,62,36,36,44,44,36,39,39,55,46,46,55,39,54,54,54,62,36,36* 60,36,36,36,55,54,54,54,53,54,62,36,36,39,36,36,36,23,54,544 62,53,22,53,38,63,36,55,60,44,39,63,44,37,44,44,44,0> SQUARE5H 39,45,45,44,45,44,53,45,46,54,54,55,63,62,39,37,44,36,39,60,54z 46,55,54,39,36,36,55,54,54,39,36,60,54,62,60,54,63,55,63,60 39,39,36,44,44,37,45,46,45,62,31,27,51,55,54,45,36,53,54,37 36,44,54,46,36,44,54,0  LEMON' 36,36,44,45,46,53,533,46,46,45,46B 61,62,60,63,60,39,39,39,39,39,36,39,36,39,36,0O CHERRY 9,12,36,12,36,41,12,37,63,63,58,23,63,58,58,50,23,23,54,55 55,55,46,46,37,37,63,44,44,46,46,49,46,46,37,37,37,39,55,62 31,44,44,36,36,0 PEANUT8 36,37,36,36,36Mv 44,37,45,46,54,54,46,54,53,54,55,55,63,63,36,36,36,44,36,36| 37,53,62,54,54,55,54,54,37,36,44,54,54,0 BANANA 18,42,46,45,46,45,45,53,30,55,63,63,63,60,63,60,39,39,39,39  39,60,36,60,36,44,44,44,54,54,46,46,54,53,53,536,36,60,54,54,54,54,54,54\D 38,39,36,36,36,36,36,55,54,54,54,54,54,60,36,36,36,36,36,62|N 54,54,54,54,36,39,36,36,0X PEARb 36,36,36,36,59,53,22,59,23,54,54,62,54,55,54,53,53,37,60,60 l 44,36,37,36,36,44,54,54,54,62,54,53,54,37,36,60,,113,2  APPLET  36,36,37,36,37,53,18,53,45,53,53,46,54,54,39,36,60,60,60,55 & 46,54,54,14,37,53,62,62,60,54,61,55,36,36,36,36,39,36,60,54 0 54,46,54,54,54,62,36,36,36,55,54,54,39,36,36,44,36,36,60,28: 54,54,54,54,54,54,62,36,36,36,36, " = ? ";S$ V(S$)/ V1V10000390; Z(V)A N  VALUESz  APPLE,PEAR,BANANA,CHERRY,PEANUT,LEMON I16:FRUIT$(I):   SHAPES   15,0,32,0,141,0,215,0,15,1,61,1,129,1,207,1,2,2,40,2,59,2,72,2,81,2,93,2,101,2(27)ĺ(7):230 :(B$(13)))((C$" ")(C$(13)))COUNTCOUNT1:ONE SPACE BETWEEN QUOTESU 170k 216,0:D$"CLOSE" :10::"NUMBER OF WORDS IN '";A$;"'":"IS: ";:COUNT 22:" TO CONTINUE, TO QUIT";:Q$:Q$:Q$(13)Ĺ16368,0:100 Q$ d210( n:D$(4):COUNT0:B$(13)f x"FILE TO COUNT ( FOR CATALOG) ";A$: 4 SPACES A$""ĺD$;("CATALOG",7((48896)76)4):120 :D$"VERIFY"A$ D$"OPEN"A$ D$"READ"A$ C$B$:B$ 6,(B$)128:768L ((B$" ") **********************; * WORD COUNT *X * BY GEORGE BIGELOW *u( * COPYRIGHT 1986 BY *2 * MICROSPARC, INC. *< * CONCORD, MA 01742 *F **********************PX768773:A:X,A:Z 165,6,32,240,253,96  ɍLHHH0 !LDɰ0ɺ  LDLD c i)? ii؅i%  e$i8 e2?IhhhL )jjjj) j)jj)`4 ::"RETURN";:)R49152,128:49168,0:@9SHC14,Y(R9):RTXCTYSH20SH27ĕSHC14,YR9:MT1v949168,0:16384,128:A$((16384)128):49168,09MTĭA$"I"A$"J"A$"K"A$"M"A$(32)37109MTMT0:3840:SHC14,Y(R9):A$"I"A$"J"A$"K"A$"M"A$(32VT5 "150 V(N$):N0ĉ::4 N99999999ĺ(7);:150:8 9'S_ N0(N$,1)"0"N$(N$,(N$)1):200| CLIPS LEADING ZEROES : ALLOWS FOR ZERO N1.5N(N.5) L(N)(10):VT5ė 20(N1)((L)1):VT:N$ VTVT1:VT22 DIFFERENTLY, AND IT IS NOT NECESSARY TO DISCONNECT 'PRINTER' BEFORE FILE ACCESS."; AOKE 55,158"E4E"RECONNECT THE PROGRAM WITH:":E[E" POKE 54,3: POKE 55,8"aEE"";:A$:SF"THIS IS ONLY NECESSARY IF YOU ARE GOING TO DO SOME FILE ACCESS AND NEED TO HAVE DOS PROPERLY CONNECTED. PRODOS WORKS 5:"YOU CAN EVEN SIMULATE PULL DOWN MENUS"5:840P1,6,1,7::"RED ";:3:"BLUE":"VIOLET":5:"GREEN":"BLACK":"WHITE";J14000: :"THE POSSIBILITIES ARE ENDLESS!" *:84041,38,2,23>H"PRESS ";XI4,5,I3,I8:I%bJ1500:+l:vI110:IJ1500:R:l"LET'S DO IT AGAIN,""ONLY FASTER....":840I110I3,5,I3,I8:I:I110::" COLORS BRUSHES SHAPES PRINTER FILE",1,38,2,22*:840 :2,17,15,222 "ONE FINAL COMMAND"S :"&HOME";::" IS USED TO"j "CLEAR THE HIRES"y "WINDOW." :840 :9,21,5,10 &"NOW THAT YOU KNOW THE"; 0"COMMANDS, HERE'S WHAT"; :"YOU CAN DO..." D:840 NI11040 h:2,10,10,150 r"THESE TWO COMMANDS"C |"ARE ALMOST";T "THE SAME "f "EXCEPT...";o 850 :13,18,10,16 :"&STORE";::" ALLOWS YOU" "TO RESTORE THE OLD"; "WINDOW WITH THE" "COMMAND: ";::"&RESTORE": "THE SYSTEM WITH"- :"&NEW A$,L,W,T,B":6 840J :19,19,3,10d ""ONCE EVERYTHING IS" ,"INITIALIZED, THE":"COMMANDS:"; 6:"&DRAW";::" AND" @:"&STORE";::" CAN BE USED" J"TO OPEN UP A WINDOW"; T"ON THE SCREEN." ^8) :"A HIRES GRAPHICS-WINDOW PROGRAM."V 10:"THIS PROGRAM IS DESIGNED TO ALLOW" :"YOU TO INCORPORATE PROFESSIONAL-" :"LOOKING WINDOWS INTO YOUR PROGRAMS!" :840 2,15,3,10 "FIRST, YOU NEED"; "TO INITIALIZE" " Z(4)"BLOADCHAR.SET". d(4)"BRUNSHOW"f n" STANDARD HIRES OUTPUT WINDOWS (SHOW)",1,38,2,23 x32,2:33,36:34,3:35,22: 22:"S.H.O.W."14)"WRITTEN BY STEPHEN LEW" "COPYRIGHT 1986 BY MICROSPARC, INC." 4:1:"WELCOME TO SHOW,"+ **********************9* SHOW DEMO *U* BY STEPHEN LEW *q(* COPYRIGHT (C) 1986 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F********************** P(104)64Ĺ103,1:104,64:16384,0:(4)"RUNSHOW DEMO   >8~SH37İ4050:3790W8SH31ĭA$(R,C)"B"(A$(R,C),1)"H"(A$(R,C),1)"C"3850j8FLFL0:37208SH19ĭ(A$(R,C),1)"M"38508FLFL0:37408A$(R,C)"B"A$(R,C)"HQ2"A$(R,C)"AD2"A$(R,C)"FD2"38508FLFL0:37609MTī3800DED (HUMAN)7$768H7.D120:35HY(I)14,Y(HX(I)9):E150:E,D:Z78D13000::p7B21(M$)2:M$:7LX7687817VY:X,Y:7`7j160,20,169,50,32,168,252,173,48,192,136,208,245,968t MOVE SHAPES ON SCREEN USING I-J-K-M AND TO CONTINUE";:A$:100 5 AMG1:'&D$"CLOSE":GB1590h0D$"BLOAD FLM."F$",A"(LOWMEM1)256",B4,E"G256",TTXT":4128n:D251,14:DRW1,56:252,100:253,111:254,HR:255,HL:DRW:SX,Y:ND$"BLOAD FLM."F$",A"(LOWMEM1)256",B$,E"(B1)256", TTXT":;:D$"VERIFY FLM."F$:D$"OPEN FLM."F$:D$"READ FLM."F$BG](48896)76İ550:540RE18,LOWMEM1:GB2Ĺ751,GGB1Ĺ751,B1RE(GB2MXB)530:751,LOWMEM1:CB1G1:RE18,LOWMEM:RE:ADC:270::D$"CLOSE FLM."F$PLAYERh(16384)127440&r330U|765,DL:759,0:750,LOWMEM:AMB1Ĺ751,AMAMBĹ751,B:759,7:764,AM(MAXMEM7)PZ11,206:PZ,234:AMB1ČPZ1AMBČPZ54(16384)127440380G((16384)155)1:16368,0:,AD(MAXMEM7):66,0:67,LOWMEM:AUXMV,24:AUXMV:8 "] ,252,70:253,111:254,23:255,18| 6MD,234:MD1,234:DRW1,0 @DN380 J751,LOWMEM1:764,8:765,DL:759,0:AMBĹ759,AM(MAXMEM8):750,B1 TPZ,96:PZ11,238:AMB1Ĺ750,AM1^117120,64:140,64120,40:153,64173,40_ 110,119183,119:115,119115,140:177,119177,140u 300::G190,160 ::  60,0:61,LOWMEM:62,255:63,LOWMEM:66,0:67,AD(MAXMEM7):AUXMV,56:AUXMV:2 60,0:61,AD(MAXMEM7):62,255:63DL7 6:"DIRECTION (F=FORWARDS B=BACKWARDS) - ";DN$i DN$"F"DN$(102)DN$"B"DN$(98)200 DN1:DN$"F"DN$(102)DN0 :7:123,67170,67170,114123,114123,67:122,67122,114:171,67171,114:3060( 120,64173,64173,117120,CS PROJECTOR BY MIKE LINKOVICH":"** COPYRIGHT 1986 BY MICROSPARC, INC **":34,3x 24:"MOVIE - FLM.";F$:F$"?"180 :(48896)76ĺD$"CAT":170 D$"CATALOG":170 ((F$)0)250:460 :5:"SPEED (1-255) - ";DL:(DL1D255)190:DL256 MCS.PROJECTOR"( Z(4)"BLOAD MCS.BIN"K dLOWMEM97:(48896)76ģ16384r nMAXMEM149:(48896)76MAXMEM143 x8,MAXMEM1 DRW2940:SCAN2990:MD2957:D$(4):AUXMV3268:MOVE3287 PLAYER2151:PZ2236:RE3228 BMAXMEM:640P ::5:"M  **********************; * MCS.PROJECTOR *X * BY MIKE LINKOVICH *u( * COPYRIGHT (C) 1986 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************  P(104)16Ĺ103,129:104,16:4224,0:(4)"RUN  PPPPPPPPPPPPPPPPЩ`.1``.1.`aa`8"; <16368,0:A$:> F22:"CATALOG":998:(4)"CATALOG"D P AF 5/2/08 255:::E"NIBBLE PROGRAMS - VOL. 7, PART 1"m"================================"(6:"THIS DISK CONTAINS PROGRAMS FROM NIBBLE MAGAZINE, VOL. 7 (1986), ENTERED AND COLLECTED IN 2008." 219:" * 6SP::(DE$,(U5)40(U10)40SP,8);I @A(KB):A128X(X):320e JKS,0:AA128:A21420r TA8410 ^A32A10440 hA11430 rA13470 |QU1USN1:ZMD(Q):A((SN$(Z),1))UZ:250 Q 320 UU1:UMD(U):250)(M$,X):VP:21X:Q(SOUND)(SOUND):MP$::D START OF MENUU NL3(SN10)h :VPNL:BK$; VPNL:(20(BS$)2):BS$; ZZ$SN$(U) :1:VP:ZZ$ :VP1:DE$ SPU87(U5)40(U10)40 "VP1:U5ĢVP2 ,U10ĢVP3 dI768777:A:I,A:C n 104,168,104,166,223,154,72,152,72,96M x2580W 2860` 740z (21(Q$)2):Q$:: :150 :150 22:"PRESS TO CONTINUE";:A$:A$: (M$)2((M$)2)M$M$" "0 X1(M$)2:MP$(M$,X  **********************; * FIND EM! *X * BY DAVID GRIGGS *u( * COPYRIGHT (C) 1986 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F ********************** P1190ZMD(X)X((XSN)SN)((X0)SN)*, **>> "2*&" " >>  ">> "8""> """"""< >> ""*:<"">""""""""""""">>>F@ƞ`榥0枥(0'@`@ : ᥠIIx Lq LFfL ` @ee`>>< (&20 &` L. ꩫ fꢡ +멦 ? `  Ɛ L5 Lq ꩦ fꢡ +멫 ? `  ƐLxw*& 0,vp&&`I1&&``8L `-88x 8zIi {z ᥡ ᥡ| mx`))ݫ L` `L}L}L} L8&0&&8H)   aL[ L[ Щ***ѥmХmѭ v θ( ahhh`iɹ`m')8 &' &'&)JJJ &m&) 'e'`Р & &J 'ȥ `| 8xIi y ꩜ 碫 + ֎hw ` PZx` x` (; gݢ + gݢ + L{6767 ڭ67` ᥡ ᥡ  `LHHJU`T` NJJ@` `e'&,vP&&'` P|Zx` @` |x`L٩ ӥHHvHuHH NJPQ ALע莒 LՌ 6LՌ gݢ + gݢ +wH,P ̋| ꩗ 碦 +멆 禍 颦 +| 碗 +멆 禍 颫 +멁 碜 + ֎` gݢ +q L gݢ +뭘I L gݢ +q 驆 碗 +l ꩗ f #l 驗 碆 +`w)w`w w` PW` QT` S` R` NJ |L` }Lޠgq ꩆ fꢗ +멗L LTURTLEXTURTLEYANGLEIڡ{5`H0h` g ᥡ`v`v` gݢ +뭓IL gݢ +"Щ#ЩލЩЩfl`PLTCLҩsotp`w 9 Ҋȍ|I`{{lllnlp`LН r~L:몄8LDץ uL֩7LLx8l HHLLHLmթLՠY K , 9L݊`|‹ˋ8]LԋpsH׊ъFWBACLEFRIGHSHOHIDCENTENESTURNTJUMSPLIFULHIREVIEWDHPRINBLACWHITPЅQPPQ`L ֍7׍F؍Սީ ֩ ֩8ש9שƍGةHةթթީޢ%  Щ!Щ     1NP:10IN29:WD$(0,I)"X+b180>l VERIFY WORDSFv:aQ$"VERIFY WORDS":160j84016:"IF THE SPELLING IS CORRECT, PRESS 'Y'. PRESS 'N' IF INCORRECT."34,17I1NPLI(WD$(0,I))LI02100J1LINPL1LI(I)&FL0:A$WD$(L,I)>(A$)3FL1:1810JJINPYK1LI(J)lJIKL1790A$WD$(K,J)WD$(K,J)"^^^":FL(JI)KJFL1WD$(L,I)"^^^"L&I0950: SORT:1060:RESET WORD COUNTS DI8:" WORDS WORDS":14/8 SPACESf|"PLAYER ENTERED -- UNIQUE":7 SPACES"--------- ------- ------":9 -'S/4 SPACES/7 -'S/6 SPACES/6 -'SI1NP:LI(I)(WD$(0,I))10I:PL$(I);:17:LI(I)II1 TO CONTINUE":"";A$=Q$"ENTER WORDS NOW"(7):170V840: DISPLAY BOARDg"33,9:35,19|,660: GET WORDS6PN@SCORE THE GAMEJ:TQ$"SCORE THE GAME":160^6:Q$"ELIMINATING DUPLICATE WORDS":150h950:6:8684r*****+NS11000: TIME LIMIT = 3 MINUTESG1130:GENERATE LETTERSVNP0NP1_PC0erPN1NP::"PLEASE HAVE ";::PL$(PN);::" SIT IN FRONT":"OF THE APPLE NOW -- ALL OTHER PLAYERS PLEASE DON'T WATCH!!!":"PRESS RETURN5I:"PLAYER "I"'S (10 CHARS): ";:"";PL$(I):(PL$(I))10PL$(I)(PL$(I),10)ZdSC(I)0anIx20:958:"IS THE ABOVE OK (Y/N) Y";(8);:"";A$A$"N"1290U2:**********************DISPLAY THE STANDINGS***************************************,ENTER PLAYERSH**********************P :sQ$"ENTER PLAYERS' NAMES":1604:" (RETURN EXITS)"(3:"HOW MANY PLAYERS (1-4)? ";A$2A$""ı<A$"1"A$"4"ĺG$;:1290FNP(A$)PI1NPNZ PICK RANDOM NUMBERS & LETTERS0tI15:J15B~X((1)6)1^L$(I,J)(CC$(I,J),X,1)gJ,Im|ERROR END768: ON ERR CLEARLI(218)(219)256ER(222)216,0"AN ERROR #";ER;" HAS OCCURRED IN LINE ";LI J1LIKYWD$(J,I)WD$(J1,I)T$WD$(J,I):WD$(J,I)WD$(J1,I):WD$(J1,I)T$:CH1`JoCH0KLIvK}I$ RESET "0" COUNTS.I1NP8J1(WD$(0,I))BWD$(J,I)"^^^"WD$(0,I)(J1):1110LJVI`j I049p6I2:10:" ":21 SPACESHz5I2:10SINI1" ";L$(IN,1);" ";L$(IN,2);" ";L$(IN,3);" ";L$(IN,4);" ";L$(IN,5);" "I: SORT WORDSI1NPLI(WD$(0,I))K1LI1:CH02150,22907605 ::Q$"QUIT THE PROGRAM":160p*5:"DO YOU REALLY WISH TO QUIT (Y/N) N";(8);:"";AN$4(AN$,1)"Y"ė:"THANK YOU FOR PLAYING FIND'EM !!":>760HDISPLAY BOARDR\4:10:" ":21 SPACESf GET WORDS8PV0:LE0:B$"":CT0:WORD CTEDE1NSY(KB)127İ500tDENS450YY(SOUND)|DE:20:G$;"TIME LIMIT REACHED":180 START OF MAIN MENUU1::VP19:210NNSN800  NN1260,1430,:B$B$A$:600 :LELE15 DLE0LE1:B$"":600E NB$(B$,LE)] X20:1:868:B$;:p b END OF WORD lCTCT1:WD$(CT,PN)B$:WD$(0,PN)(CT):PV1:1:B$:B$"":LE0:PV(37) v20:1:868CT100ĉ:20:G$;"WORD LIMIT REACHED":180:: UU1:UMD(U):250& UU5:450= UU5:USNUU15R U0UU5:450[ 250f  EXITq NNU:w   PROCESS KEY PRESS A(KB):KS,0 A141610:END OF WORD A136İ570: A$(A128) &A$"A"A$"Z"ı 0LELE1<""< &"""  " " ****$$$$"""""<""< &< ,"""""**"""""< >>*<2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">"""""""""""""**6"""""""> ><< *>,&"""< ,2""<"><$1):WR(RR)WR(RR1):RR:NBNB1'990B ** GET WORD LISTS **xD$;"OPEN LISTS":D$;"READ LISTS":NL:D$;"CLOSE" NL0ıNL1LI1:1320:10:"WHICH WORD LIST DO YOU WANT?"::"YOUR CHOICES ARE LIST NUMBERS 1 TO "NL;:" ";NL$:LI(NLN:L$WL$(1,KK)L$WL$(1,KK):LLKK+KK\25:L$:WL$(1,LL)"ZZZZZZZZZZZZZ":PPN1210nPPPP1:116023:"PRESS KEY.. ";:A$::(A$)131210850TTNB11:WR(TT)N1250TTRRTTNB:B$(RR)B$(RR1):B(RR)B(RRK):WR(K)::D$;"CLOSE""L:120>V ** WORDS ARE WRONG **`::"YOUR LIST WAS OUT OF ORDER.":KK120:A(16336)::KK11000::j"YOUR LIST";:25:"CORRECT LIST":tK1N:WL$(1,K):K~5:PP1:FL1:MI1L$WL$(1,1):LL1#KK1(1)"FIND'EM! BY DAVID GRIGGS":T$(2)" COPYRIGHT (C) 1986 ":T$(3)" BY MICROSPARC, INC ":T$(4)" CONCORD, MA 01742 "" DATA FOR THE CUBES" "WYCSBA","ORMTIS","GDETOC","BDHCFA","MLNIEK"" "EDASRI","NKSOQH","NRTPUA","FEOTNI","KLGCIJ"/#AY STANDINGS"950:1060  Subroutine "SQUARE"% = J14:10A:90:JC ..Draw a "squiral" " (DA15> 2SQUARE240: Sub.line #D <N F1:1X P::b Z:30| d(100,0)"* Squiral *" nN163 xSQUARE AA1:DA N (7) (90,180)"Press return" X$ ......................E**********************9* TURTLE DEMO 1 *U* BY J.B. WARD *q* COPYRIGHT (C) 1986 ** BY MICROSPARC, INC ** CONCORD, MA 01742 *********************** INSTALL TURTLE BEFORE LOADING  DEMO1.  SIDE"3:8,1:/ ** GET BEST SCORES **bD$;"OPEN BEST":D$;"READ BEST":NB:NB01770K1NB:B$(K),B(K),WR(K):D$;"CLOSE": ** MAKE WORD LIST **A$"N"ıD$(4)D$"OPEN LISTS":D$"READ LISTS"&NL 0(18:"00000":T0:EP(K1)840:BTEPm108,159108,191:164,159164,191:100,(K1)840178,(K1)840CL:Y160190:2,Y106,Y:166,Y277,Y:Y222:" ELEV UP ";:25:" <-- LEFT SIDE "2:" ELEV DOWN ";:25:" --> RIGHT 8:" W O R D E L E V A T O R ":NJ2:"ALPHABETIZED";:30:"WORD LIST":nT8,1:K1N:28:WL$(2,K):^K1N:0,K84090,K840:185,K840279,K840:KhKK(K1)842(K1)844:0,KK279,KK:rEM0:EU0|8,0:19:21::"TIME":(2051)1411560rD$;"BLOAD PRINTER":D$"BLOADPTABLE":(48896)76Ĺ2050,216:(4)"PR# A$802":8,0:157054,3:55,8:8,0"0,0279,0279,1910,1910,0:0,159279,159:0,35279,35,CL(7(1))1:CL6Y134:2,Y277,Y:Y:3#@2:WN10NW10WNNWk"ENTER A NUMBER FROM 2 TO "WN;:" ";N$:N(N$):N2NWNĢ14:1:868:1430vK1NT$S$((NW(1))1)K11500L1K1T$WL$(2,L)1450LWL$(2,K)T$K ** DRAW ELEVATOR **:3$):LI1LINL13103(D$;"OPEN WORDLIST"LI",L26"R2D$;"READ WORDLIST"LI",R0"Z<NWfFK1NWPD$;"READ WORDLIST"LI",R"KZS$(K):KdD$;"CLOSE"n:10:"ENTER THE NUMBER OF WORDS YOU WANT"x:"TO ALPHABETIZE ON THE ELEVATOR.":AGE 2 - PRESS FOR PAGE 1 "8 22:1:P1$;:G$P 16301,0:16299,0t 36,0:22:41,(41)4:P2$;:G$ 16300,0 170 TEXT"' Z :CLEAR HI-RES PAGE 1 AND 2> d::6:0,0:62454S n:3:0,0:62454q xCLEAR TEXT WINDOW PAGE 2~ I2024 36,0:I:41,(41)4:40): PRINT IN TEXT WINDOW PAGE 1 AND PAGE 2# P1$"PAGE 1 - PRESS FOR PAGE 2 ":P2$"P **********************9* PAGE TWO TEXT *U* BY CLARK BURDMAN *q(* COPYRIGHT (C) 1986 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F********************** P(104)96Ĺ104,96:103,1:24576,0:(4)"RUN PAGE TWO  P0:V1 S5 / A0360S8 :AF PP:VVP P:V] TRIANGLd Aj *s 4240z >V H240 R \D50 fK1(49152) p570 zI1D:I VV:V 880T"PRESS "& (205,9)"TO STOP.", 2 N  SUBROUTINE TO STOP ONc & ANY KEYSTROKE.i 0y :K2(49152) DK1K2ı N1:1 X: b l v MAIN PROGRAM  L128.8 L2100 A1150 A2120 : 0::1:3 @20:2& J FACE DONE; DO REST.1 T0,150= ^0:270O h40,160:110b r30::25::5r |5,135:90~ I112 6:12.5 I 5,135 I13 80 J14 6:40 J:I  (100,125)"SUMMERTIME!" (188,1) n650 x& SUBROUTINE:TRIANGL, 8 :L2:@ A1L L1:A2X L1:A2` L1f l SUB. TO DRAW FACE, ETC. (120,80)"O O" (120,89)"/ ";(92)  123,94 45:3 "20:3:20:3 ,5:6 625:**********************9* TURTLE DEMO 2 *U* BY J.B. WARD *q* COPYRIGHT (C) 1986 ** BY MICROSPARC, INC ** CONCORD, MA 01742 *********************** INSTALL TURTLE BEFORE LOADINGdTRIANGL150    :" DOWN";::23:"RETURN";::" TO CHOOSE.";%B 16368,0W%L K(16384):K1282380%V 16368,0:KK128:K8K21K132380%` OSCS%j K8CSCS1:CSCS(CS0)SN(CS0):2480:2380%t K21CSCS1:CSCS(CSSN)(CSSN1):2480:2380&~ C A WORD LIST.",$SI$(4)"END THE PROGRAM."4$:T$:X0HL1:HL$(X);:X::]$CS1q$ X1SN:XCSĞ$ HL2XX(SN10):HT:SI$(X):$ X$$ 19::HL$(2):$. 21:11:"":2-%8 23::"<--";::" UP";:10::"-->";: "A#HL$(2)" ^^^^^^^^^^^^^^^^^^^^^^^^^^^ "w#HL$(3)" CHOOSE ONE OF THE FOLLOWING "#HL$(4)" ^^^^^^^^^^^^^^^^^^^^^^^^^^^ "#SI$(1)"PLAY A GAME."#SI$(2)"DIRECTIONS FOR THE GAME."$SI$(3)"CREATE"\KP(16384):KPNN2140#"fk"pTT1618:TT:2:" ":TT:80:|"z ** MENU **"216,0:HT9:SN4:Q$(34):HL5"HL$(0)" ^^^^ ^^^^^^^^ " #HL$(1)" WORD ELEVATOR 255:NN218:2140:KP218:8,1:230y!*2160:8,0:16:2:"PRESS THE <-- KEY"::2:"A WORD WILL MOVE OFF THE ELEVATOR "!4255:NN136:2140:8,1:430:8,0!>2160:16:2:"PRESS THE KEY...":255!H16368,0:NN141:2140!RA$::::130THE ELEVATOR":F(2,3)1:L8: 255:NN149:2140:8,1:630 2160:8,0:16:2:"PRESS THE KEY"::2:"THE ELEVATOR WILL MOVE UP" 255:NN193:2140:KP65:8,1:230 2160:8,0:16:2:"PRESS THE KEY"::2:"THE ELEVATOR WILL MOVE DOWN"#! ES'."N8,0:22:"PRESS KEY ";:A$::(A$)13Ģ22:1:868:2000N3:WL$(2,1)"COMPUTER":WL$(2,2)"CHIP":WL$(2,3)"APPLE"1530:8,0:12:13:"TRY THE FOLLOWING..":80 DI1:16:2:"PRESS THE --> KEY"::2:"A WORD WILL MOVE ONTO ELEVATOR TO MOVE THE WORDS TO THE OTHER SIDE OF THE SCREEN. THE WORDS MUST BE PLACED IN ALPHABETICAL ORDER.":" THE COMPUTER WILL KEEP TRACK OF HOW LONG IT TAKES. IF YOU ARE FAST ENOUGH, THE COMPUTER WILL ADD YOUR NAME TO THE 'BEST TEN SCOR"KS$(K):K:D$;"CLOSE":< ** GAME INSTRUCTIONS **k::7:"WORD ELEVATOR INSTRUCTIONS":::" THE COMPUTER WILL PUT WORDS ON ONE SIDE OF THE SCREEN. THE WORDS MAY NOT BE IN ALPHABETICAL ORDER.":s" IT IS YOUR JOB TO USE THED$;"CLOSE":L11:NW0%D:2500MN(AZ$)63NWNW1:S$(NW)S$:1860SXbD$;"OPEN LISTS":D$;"WRITE LISTS":NLNL1:NL:D$;"CLOSE"lD$;"OPEN WORDLIST"NL",L26"vD$;"WRITE WORDLIST"NL",R0"NW:K1NWD$;"WRITE WORDLIST"NL",R$, $6 CH$"*"$$@ C1:H20:L40=$J C:C:ICL:CH$;:V$T ICH:I:L:CH$;:r$^ ILC1:H:I:CH$;:$h IHC1:I:C:CH$;:$r CC1:LL1:HH1$| C11CH$" "ı$ C9CH$"*"CH$" "::Y14:VP8Y:M$T$(Y):190:Y:180::2880 "ELXYAG","HIENRO","LOMPIG","AWXOBE","AEZYDT"a# "TMARID","ASHRTL","NIFDSG","EATNIJ","YWTNAU"# "SGFBTU","VREAGU","XOLAVR","SLOCTR","PTEAIN"# I15:J15:CC$(I,J):J,I# I18:DX(I),DY(I):# 1,0,1,1,0,1,-1,1,-1,0,-1,-1,0,-1,1,-1$" & wait.  :0 , "(90,183);8 ,N114E 6(127);L @NR Jn T(98,184)"Press Return"x ^(7) hX$ r |LRTLE BEFORE LOADING (6 2 (1): Draw the big one.@ <1:1H F:P P:Z ZL180g dA0359p n:Aw xL~ A (2): Draw the little one. S3:L45 A0359S :A L A  (3): Message**********************9* TURTLE DEMO 3 *U* BY J.B. WARD *q* COPYRIGHT (C) 1986 ** BY MICROSPARC, INC ** CONCORD, MA 01742 *********************** DEMONSTRATION OF TURTLE BASIC  INSTALL TU  )132680(< (AZ$)82660/(F (0)BE2580[(P UBE1S$"":1008:" ";:1008:2570(Z S$(S$,UBE1):1008:" ";:UU1:1008:2580(d UEN1UU1:S$S$AZ$:U:AZ$;(n 2580)x 24:6:"IS SPELLING OK? (Y/N) ";:AZ$:AZ$"Y"AZ$"N"Ģ24NO MORE WORDS."+' L38BE1:EN39:2550P' S$"":BE((40L)2)1:ENBEL1[' 6:BEs' (91);:EN:(93);' UBE:6:U1' AZ$:AS(AZ$):(AS64AS91)AS8AS63AS21AS132580' (AZ$)63ı'( (AZ$)21AZ$" ":2660 (2 (AZ$S2440,2450,2460,2470:2280&& 150:0& 1960<& 1780:F& ::k& HL2OSOS(SN10):HT:SI$(OS)& HL2CSCS(SN10)::HT:SI$(CS)::& ** INPUT ROUTINE **& 2:2:"TYPE A WORD..THEN PRESS RETURN KEY."' 2:"PRESS KEY WHEN % 2890 "! - EQUIVALENT TO 'REM'.""Q24:"";:16368,0:A$:WATION OF THE TURTLE"AT"TURTLEY - THE Y POSITION OF THE TURTLE"j^" ANGLE - THE ANGLE OF THE TURTLE"th1000r"MISC. COMMANDS:"|"DO var - PERFORMS A GOSUB TO THE LINE NUMBER STORED IN THE VARIABLE var." BOTH (x,y) AND s ARE OPTIONAL. A CARRIAGE RETURN FOLLOWS UNLESS""" THE COMMAND ENDS WITH A SEMICOLON.",6"SPECIAL READ-ONLY VARIABLES:"@J"TURTLEX - THE X POSICK OR WHITE)."O"BLACK - CHANGE THE PLOTTING COLOR TO BLACK.""WHITE - CHANGE THE PLOTTING COLOR TO WHITE (THE DEFAULT)."k"HPRINT (x,y)s - PRINTS THE STRING s AT THE COORDINATES (x,y). 2 IF n IS EVEN."f"PLT# n - DRAWS ON PAGE 1 IF n IS ODD, PAGE 2 IF n IS EVEN."p1000"CLR - CLEARS THE PLOTTING PAGE AND FILLS IT WITH THE OPPOSITE OF THE CURRENTLY SELECTED TURTLE COLOR (EITHER BLAEN SELECTED FOR PLOTTING, OR THE SCREEN SELECTED FOR VIEWING."z "TEXT - SELECTS TEXT MODE, PAGE 1." "SPLIT - SWITCH TO SPLIT-SCREEN MODE." "FULL - SWITCH TO FULL-SCREEN MODE.""VIEW# n - DISPLAYS PAGE 1 IF n IS ODD, EITHER AS A COMMAND OR WITHIN A 'JUMP' COMMAND." "TURNTO d - TURN THE TURTLE TO A HEADING OF d DEGREES."Q "HIRES - SELECTS HIRES MODE. HAS NO EFFECT ON THE CURRENT SPLIT/FULL SCREEN MODE, THE SCRE" 1000 "NEST - SEND THE TURTLE TO THE UPPER LEFT CORNER OF THE SCREEN. MAY BE USED EITHER AS A COMMAND OR WITHIN A 'JUMP' COMMAND."D "CENTER - SEND THE TURTLE TO THE CENTER OF THE SCREEN. MAY BE USED SERIES OF POSITIONS SPECIFIED BY x,y COORDINATES. SYNTAX AND MEANING IS THE SAME AS THE" " APPLESOFT HPLOT COMMAND, EXCEPT THE KEYWORDS 'CENTER' AND 'NEST' CAN BE USED INSTEAD OF x,y COORDINATES.n - MOVES THE TURTLE BACKWARD n."N P"LEFT d - MOVES THE TURTLE LEFT d DEG."} Z"RIGHT d - MOVES THE TURTLE RIGHT d DEG." d"SHOW - MAKE THE TURTLE VISIBLE." n"HIDE - MAKE THE TURTLE INVISIBLE."n x"JUMP - MOVE THE TURTLE TO A POSITION OR Y  5/3/08 "'BRUN TURTLE' TO EXTEND APPLESOFT BASIC INTO TURTLE BASIC. THEN YOU CAN USE TURTLE BASIC COMMANDS AND TRY RUNNING THE THREE DEMO PROGRAMS."("COMMANDS:"2<"FWD n - MOVES THE TURTLE FORWARD n."! F"BACK      MONSTRATION OF A ROUTINE n:B x WHICH LINES UP DECIMAL POINTSH :Y :34,0:VT5` 2 "ENTER A NUMBER WITH OR WITHOUT DECIMAL POINT (NEGATIVE TO END) ";N$:3:24:" ":30 SPACES (N$)22ĺ(7);:150: N **********************; * FORMAT DEMO *X * BY FRANK SWEET *u( * AND JOHN FRANCIS *2 * COPYRIGHT 1986 BY *< * MICROSPARC, INC. *F * CONCORD, MA 01742 *P **********************Z d A SHORT DE + ( .!?    %%%%   . !%%-   >>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "+"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>>00000>":1:868:26804) AZ$"N"Ģ6:1:958:S$"":2510Q) S$""Ģ6:1:958:2510W) n) ** TITLE PAGE **) :7:5:K833:" ";::) :7:5:K833:" ";::) K622:32:" ":) 22:K3271:K:" ";:) K2261:7:K:" ";:*;{<|=}CE̅[•ؕ [ JJJ Ȉ`,-./ hhhL?.)/) H hhh,-)2I2 2I2 SXPPPP QLQMQoQ?jtpQQ^cPLBCsLt/Q;ʈ ,RVWXPPVX`2Rr:zZdt|<41Qq4\\\\|<4L|`"3]"3]/3]";]"3]"3]"3]"3]&1ZIŭwNjuuss~Z &f6v8x D2"FL1 A$(I,J)"HQ2"HQ1M (A$(I,J),1)"H"MVMV1:HS6HSHS1i J,I:FL1MVMV2:FL0 HQHS(HS2):HS0HS1 I1HS OB$"SHOT #"(I):4120:RS16:RE1:R1:C1:SH37:A$"K":3710 HX(I)R:HY(I)C  "I1HS:37 COPYRIGHT 1986 BY MICROSPARC, INC *":3650? 2780:TU1:700P BEGIN GAMEu MV0:FL0:HQ0:HS0:NU10:B$"C" :M$"DISPLAYING HUMAN'S MINES.":3650 I116:J118 A$(I,J)"MI2"ĕ19J14,Y(I9) A$(I,J)"AD2"HS6 A$(I,J)"FRIGHT 1986 BY MICROSPARC, INC **"` Z(104)64Ĺ104,64:103,1:16384,0:(4)"RUN TANK COMBAT" d(4)"BLOAD TANK.SHAPES,A$803":232,3:233,8:0:1 n3660: INITIALIZE SOUND ROUTINE+ xA$(16,18):::22:M$"TANK COMBAT BY RUDY GUY":3650:23:M$"*4 **********************9* TANK COMBAT *U* BY RUDY GUY *q(* COPYRIGHT (C) 1986 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************! P:12:8::"TANK COMBAT";::" BY RUDY GUY":"** COPY                    !!! ! ! ! """   :HT":D$;"READ BEST":NB:D$;"CLOSE":1307+@ D$;"CLOSE"k+J D$;"OPEN BEST":D$;"WRITE BEST":0:D$;"CLOSE"+T D$;"OPEN LISTS":D$;"WRITE LISTS":0:D$;"CLOSE":130+^ TITLE ROUTINE,h :::10:"THE BEST FOR "N" WORDS"::3:" NAME";:24:"TIME": 13:7::"WORD ELEVATOR"+* 19:8:"BY"D* 15:9:"GARY KNOX"]* 15:13:"COPYRIGHT"* 16:14:"1986 BY":12:15:"MICROSPARC, INC."* 2840:* 24:7:"PRESS KEY...";:A$:::*" ** FILE OPENER ***, 2880'+6 D$;"OPEN BES DISASSEMBLE MACHINE LANGUAGE, USE -Y INSTEAD. 65C02 OPCODES ARE DISPLAYED IN INVERSE CHARACTERS, TO MAKE THEM EASIER TO SPOT." 5/4/08 "'MONITOR MODS' EXTENDS THE APPLE II MONITOR WITH THE CAPABILITY OF DISASSEMBLING 65C02 OPCODES. TO USE IT, 'BRUN MONITOR MODS' (WHICH USES MEMORY FROM $5000 TO $51D6)." "THEN, INSTEAD OF TYPING 'L' TO  COMPUTER MOVE>:M$"COMPUTER PLACING ITS SHOTS.":3650]MV0:FL0:HQ0:SC0:B$"H"qI116:J118A$(I,J)"AD"SC6A$(I,J)"FD"FL1A$(I,J)"HQ"HQ1(A$(I,J),1)"C"MVMV1:SC6SCSC1J,I:FL1MVMV2:FL0WN TANK!"(7):A$(CX(I),CY(I))"":3580:620Yb"COMPUTER SHOT NUMBER "I" MISSED.":3580qlD13000::1540:v:A31:B36K16TX(K)06701130: CHECK FOR TANK TO TANK COMBATTX(K)0:TY(K)0:K1540: CHECK FOR A WINNER(NU)0:TY(NU)0}N(A$(CX(I),CY(I)),1)"H"İ3580:XH((A$(CX(I),CY(I))))0:YH((A$(CX(I),CY(I))))0:A$(CX(I),CY(I))"":620+X(A$(CX(I),CY(I)),1)"C"ĕ36CY(I)14,Y(CX(I)9):XC((A$(CX(I),CY(I))))0:YC((A$(CX(I),CY(I))))0:"THE COMPUTER SHOT ITS OISSED.":3580:620}:(A$(CX(I),CY(I)),1)"M"A$(CX(I),CY(I))"":"COMPUTER SHOT NUMBER "I" DESTROYED A MINE.";:3580:620D(A$(CX(I),CY(I)),1)"H"ĕ31CY(I)14,Y(CX(I)9):"COMPUTER SHOT NUMBER "I" DESTROYED A TANK."(7);:NU(A$(CX(I),CY(I))):TXMPUTER SHOT NUMBER "I" MISSED.":3580:620&A$(CX(I),CY(I))"B"Ē3:20CY(I)14,Y(CX(I)9):A$(CX(I),CY(I))"":"COMPUTER SHOT NUMBER "I" DESTROYED A BARRIER.":3580:6200(A$(CX(I),CY(I)),1)"M"İ3530:N2(N2)ĺ"COMPUTER SHOT NUMBER "I" MCUPIED.":SHYH(K)14,YXH(K)9:31YH(K)14,YXH(K)9:3640:340WMVMVM:MV0K6eTX0:TY0m:I916:J118:A$(I,J)"MI2"ĕ19J14,Y(I9)J,I1540: CHECK FOR A WINNERSC0640I1SC*A$(CX(I),CY(I))""ĺ"CO14,Y(R9):TX(K)R:TY(K)C:460(A$(R,C),1)"M"ĕSHTY14,Y(TX9):A$(R,C)"":D150:35C14,Y(R9)::3:37C14,YR9:0:XH(K)0:YH(K)0:A$(TX,TY)""::(7)"TANK HIT MINE AND WAS DESTROYED!":3640:460AA$(R,C)""ė:(7)"THAT SPACE IS OCH(K)14,Y(XH(K)9):3640:340LA$(R,C)"HQ"ĕ32C14,Y(R9):A$(R,C)""{A$(R,C)"AD"ĕ33C14,Y(R9):A$(R,C)"":A$(R,C)"FD"ĕ34C14,Y(R9):A$(R,C)"" A$(R,C)""A$(R,C)(K)"H":XH(K)R:YH(K)C:A$(TX,TY)"":SHTY14,Y(TX9):31C9):D150:D,L:SH20K:SHTY14,Y(TX9)U hRTX:CTY:RS16:RE1:MT1:A$"K":3710 rRTXCTYĕSHTY14,Y(TX9):31TY14,Y(TX9):480 |MX(TXR):MY(TYC):MMXMYM3MMVĺ:(7)"YOU CAN'T MOVE THAT FAR!":SHYH(K)14,Y(XH(K)9):31YHY(I)14,Y(HX(I)9):( , MOVE TANKS= 6K16:TX0:TY0\ @XH(K)0TXXH(K):TYYH(K)j JTX0480 T::24:"MOVES REMAINING:"MV;::21:1:"NEW LOCATION FOR TANK #"K:"USE I-J-K-M TO MOVE":" TO PLACE TANK";* ^L111:31TY14,Y(TX6 F6?? $,(--$6.6M!$@+66> s- $$$c 366n 8 $6--d066$$$V$$$366&$(u66?$e<8?6.6h$<866%e<876.#$u?Dd-$ e?--% ??J ?*6( $.(',-2?9?,`-2?$ FOR TEXT SCREEN";:Z$:: 68,0::7:" PRINT IN INVERSE":P7,1:9:"PRINT NUMBERS AS SUBSCRIPTS -->A5"7,2:11:"PRINT NUMBERS AS SUPERSCRIPTS -->A6"7,0:13:"USE CHR$ --> CHR$(91) = ";(91)P$"A CHARACTER STRING":V1015:"AND PRINT VARIABLES:"17:"P4:103,1:16384,0:(4)"RUN PRINTER DEMO"d(4)"BLOAD PRINTER":(4)"BLOAD PTABLE":(48896)76Ĺ2050,216:(4)"PR# A$802":120n54,3:55,8x:"THE PRINTER ROUTINES WILL---"3:"PRINT IN CAPITALS"8,1:"PRINT IN LOWERCASE"L **********************; * PRINTER DEMO *X * BY KEVIN KNOX *u( * *2 * COPYRIGHT 1986 BY *< * MICROSPARC, INC. *F * CONCORD, MA 01742 *P **********************)Z(104)64Ĺ104,6 ީL %$ Lm( L L`L() <$I,I,`$$!L$!$$"%%L"`ɕ)i @ ك 8ILS ii°L`` - Ƚ. @)jL `*UU* / X O   ,W,R,P`L ɾ0123`6789Lɗ S Lɮ N Lɔ ɨɿL  L  L 1 {ݠN (N ()~ ) @ȩ)|ۢ )ȑ)|ܥ " # !LXʆ ʆ ` )JJJJ)iNJ)`JJNe```hhi  ! !L`  } ʆ `  }     } )ȑL `($() <HN OIP,hɛ , L(L(e$)i)@ ) ,,  Ei`2) (    S L W$!%# # "       HQSC(SC2):SC0SC18 PICK COMPUTER SHOTS@ S0N*K6114XH(K)0IXH(K):JYH(K):SS1:1660:SSCK1>HSSC810RTUTU0:\:M$"COMPUTER'S TURN TO MOVE TANKS.":3650 fNU4:3530:N2(N2)W1:K611:TXrsoL8tp` b Z xXEXDJG ŐDDҢ5 А m:e`ST`ST`:,LE΅`$`%``e`45 67<$'<$67>67<$$$%%%-66$$$$>>>%%-..$$-.5-.5???????????????,%-,%-,%-,%4-?<,-I --5-.5-----,%-,--....6,77777??'?<'$$66?$$66???$$66?$$66>7?>??<<<<$>%%%%%--5--5--5----,--,--,--66666??'??'??'?$$66???-$$66?>??>??>??$$$$$I--...---------%%%--...6667<$'<$67>67<$'<$67>67<$'<$67>67<$'<$67>67<$'<$67>>>>>>66666$?$?$$?$$$-$-$--6-$$$-$-$-$-6-6-6?????------666-$--6-6-666?66?6?6$$$$$<<<<<,???????57777766666-,%-,------------54-.5-6667?<'?<'?<'?<'$6??$6>7?>7?>7?>7?<$$$I)-...---------%%%-555556777?''''7777?<<<<7777?<<<<>>>>?-=?<<<$,,,,,IIIIII)57.5-.5???????$$66-57777766666$?$?$?$$-$-$-$-$?$-$-$--6--$$%%%%5557''?>>66-$--6-6-6?6-6-6-6-66?6?6?6$$$$$<<<<<,-?????????-5777776666$?$?$?$$$-$-$??$$--6---$?$?$$-$-$-------6-6-66?6?6---$--66??6-6-666?6?6?6$$$$$<<<<<,---?????????????----------$???????JIII?<<$%%$?$?$?$$$$$-$-$-$-$---------6-6-6-6-66666?6?6?6$$$$$66666$$$$$<<<<<76>7>7>7$$$$$<<<<<76>7>7>7$$$$$<<<<<,-$$66?????777?'''$%%%%% 8-,,,,,-----.....*,,55-,,,--...%%-..677?<>'''LI1&-,,,-...%6*,,55--...,,,-%%-..677?<<777??'''?>>'''LI1&-...-,,,%6%%-...%%%-555-,,,55567777???<<>>??'''''$-....-%%%555--,,,, -..-..--,,-,,555>>>'''4777>',=?6?$-?'''6776-6-6-$-$-$--6?6?6?6?6?$?$?$?$?$-6.------%$-6666>'$???????6>'$$$$",%$,%$4&,56.56.%$,%$4,56.56.5>?'$<76>??'$<76>?g-6-6-----$-$-66?6-66?$?$?????6?6?$$-$?$$ -555----%%%-555677777??????''''''$%%=65555-----%%%%%I ------555555677?'''?,5656565656?????--<<$%%-..677I $$76&$,56&$<''?/%?-6 <<$$%$%$%$--6.6.6./6677???<<$$5555-,,,$I!?<'$$$$%%%%-....6666>7?>'?<$$$$4&$66.,%-.5%$46666$$,?>7?<'?---------6>????????'$",%,%,%,%,5.5.5.5.5>?'<'<'<=7>7>7>?'--@%#HnS|A&]Y| h#o!#666665.65...5-.-------,%-,,$%,$%$$$$4II>>>>>>66555555--,,,,,,$$''''''??$$$$$,,,,,5555566666?????%$$$$$66666%%%-...&$$$$$&4H $$,,,,,4555556677777<<<<<%$$66NII&$$4$,$,$,$,$  $?o 666';'Mm%HY(I))"":"HUMAN'S SHOT NUMBER "I" DESTROYED A MINE.":3610:1040(A$(HX(I),HY(I)),1)"C"ĕ36HY(I)14,Y(HX(I)9):"HUMAN'S SHOT NUMBER "I" DESTROYED A TANK."(7):NU(A$(HX(I),HY(I))):TX(NU)0:TY(NU)0!(A$(HX(I),HY(I)),1)"C"İ3610:XC(NU)0:,HY(I))"B"Ē3:20HY(I)14,Y(HX(I)9):A$(HX(I),HY(I))"":"HUMAN'S SHOT NUMBER "I" DESTROYED A":"BARRIER.":3610:1040(A$(HX(I),HY(I)),1)"M"İ3530:N2(N2)ĺ"HUMAN'S SHOT NUMBER "I" MISSED.":3610:1040B(A$(HX(I),HY(I)),1)"M"A$(HX(I),0:TY0:890!pK16:TX0:TY0LzXC(K)0IXC(K):JYC(K):1960:MVMVS]WMV0K1oWMV0K6uK:W01540: CHECK FOR WINNER:I1HSA$(HX(I),HY(I))""ĺ"HUMAN'S SHOT NUMBER "I" MISSED.":3610:1040yA$(HX(I)(S$,S,1):S,H:) @1,15,9,3,9,28,18,15C 310 H03 SL0- VP(H):HP(H)9 C113J XD%(13HC)x S((X1)13):SSLĢVP(H)S:HP(H):SLS (C$,X13S,1); C::H "ANOTHER? ";YN$:YN$"Y"130 " , PRINT SUIT LETTERS 6:H03:VP(H):S14:HP(H)2:" dDL(52),D%(52),VP(3),HP(3): nI03:VP(I),HP(I):S x CREATE RANDOM DECKt I152:DL(I)(1):D%(I)I: SORT FP ARRAY WITH INT TAGALONGS DL,1,52,D% SORT EACH HAND H03:F13H1:LF12:D%,F,L: DISPLAY FOUR HANDS* **********************9* BRIDGE HANDS *U* BY LOREN WRIGHT *q(* COPYRIGHT (C) 1986 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************P(4)"BRUN SUPER SORT" ZC$"AKQJT98765432":S$"SHDC``````````````zgHHHHtu{|gg L'8hhhh`s ꢥ #렔z `6͋ 5͊5L```````````````````````0 HHpqhhoooooд5 ߍ56 O`hhGih iȹiȱ`Hȱhimmijjhh `hhL+s) z) `z)8`sz`t{`z8`s   & 56й`ii`Hȱhs z zs56` L<riirGiȱirr `ooipiqFiȹi FLDLDL`(ȽL3)`455 `Dii`˔ڔ%5ɩ` GG VWLƑ ЍVWLƑ4VWTY(K)14,Y(TX(K)9):A$(TX(K),TY(K))"":XC(K)0:YC(K)0::"COMPUTER TANK DESTROYED!":1530e1520K((A$(R,C),1))ĕ36C14,Y(R9):XC((A$(R,C)))0:YC((A$(R,C)))0:A$(R,C)""::"COMPUTER TANK DESTROYED!":1530b 31TY(K)14,Y(TX(K)9):FL1TY(K)14,Y(TX(K)9):BC14,Y(R9):J150::K((A$(R,C),1))ĕATY(K)14,Y(TX(K)9):BC14,Y(R9):FL1::"BOTH TANKS DESTROYED.":A$(R,C)"":A$(TX(K),TY(K))"":XC(K)0:YC(K)0:XH(K)0:YH(K)0:1530B$"C"1490[K((A$(R,C),1))ĕ36)1:C1ı$(A$(R,C),1)B$1330*(421420?<FLıNFFL0:D4:lPRTX(K):CTY(K)1:C18ıZ(A$(R,C),1)B$1390dn1420xFLıFL0:D4: COMBATI15:(7):::17::"COMBAT"::I13000:0I110:A,1300,1360DD1:D5D1:)1150GRTX(K)1:CTY(K):R1ıa(A$(R,C),1)B$1210gq1420|FLıFL0:D4:RTX(K)1:CTY(K):R16ı(A$(R,C),1)B$12701420FLı FL0:D4: RTX(K):CTY(K3640:HX(I)0:HY(I)0:1540:"-$K16?.TX(K)01100M8A36:B31wB1130: CHECK FOR TANK TO TANK COMBATLTX(K)0:TY(K)0:KV1540: CHECK FOR A WINNER`:150j ROUTINE TO CHECK FOR TANK TO TANK COMBATtD1 ~D1180,1240YC(NU)0:A$(HX(I),HY(I))"":1040(A$(HX(I),HY(I)),1)"H"ĕ31HY(I)14,Y(HX(I)9):XH((A$(HX(I),HY(I))))0:YH((A$(HX(I),HY(I))))0:"THE HUMAN SHOT ITS OWN TANK!"(7):A$(HX(I),HY(I))"":3610:1040"HUMAN'S SHOT NUMBER "I" MISSED.":361048ER8ĉ::5:5:"PLEASE CHECK DISK DRIVE":1100\B::5:5:"UNEXPECTED ERROR":1100L10:5:"PLEASE PRESS THE "::6:"TO RETURN TO THE PROGRAM"V(Q)160Ĺ16304,0:16300,0:16302,0:270`1110A0,0279,0279,1910,1910,0:1,1278,1278,1901,1901,1:OER(222)ER9ĉ::5:5:"NO MORE ROOM ON DISK":1100$ER4ĉ::5:5:"DISK IS WRITE-PROTECTED":1100.ER10ĉ::5:5:"PREVIOUS FILE BY THAT NAME IS LOCKED":NN1:1100HC3:1:0:SA:F3:HA117:HB149:VP90:WHC5:1:0:SB:F9:HA113:HB145:VP60:HC7:2:0:SC:F15:HA115:VP110:HC1:3:0:SD:F21:HA105:VP100:HC5:2:0:SE:F27:HA101:VP142:AS:BS:CS:DS:ES:NES **5HT1(A$):(((A$,T,1))31)T10H,V::cR232,0:233,64::16302,0:3:1:0:1030\2130,90:A117,90:A149,90f5:B113,60:B145,60p7:2:0:C115,110z1:1105,1003:0:D105,1005:2:0:E101,142*P,0 ** OPTIONS **&L1400>(Q)160ĹP,0:770V(Q)155ĹP,0:820i(Q)144ī790pLI132801:768,I:769,7:770: 2701040 (4);"BSAVE FACE.";N;",A$2000,L$2000"*NN1:2704::> ** SUBROUTI20X0:SHA,VPb520(lSHA,VP>vT1000,1010,1020NL11500:UTi ** DISPLAY **232,0:233,73:0:1:0:A$"LET'S MAKE FUNNY FACES !":H12:V180:840I40100:768,I:769,7:770:I100401:768,I:769,7:770:T  ** 2ND LOOP **$ T137 T950,960,970@ P,0Q HC:SHA,VP` L1500: (Q)136Ē0:SHA,VP:SS1:P,0 &SFSF5:520 0(Q)149Ē0:SHA,VP:SS1:P,0 :SF5SF:520 D(Q)160ĹP,0:620N(Q)155ĹP,0:8SHB,VP:SS1:P,0& hSFSF5:330T r(Q)149Ē0:SHA,VP:SHB,VP:SS1:P,0h |SF5SF:330 (Q)160ĹP,0:440 (Q)155ĹP,0:820 0:SHA,VP:SHB,VP L125: 330 SHA,VP:SHB,VP T980,990 L11500: A3:B9:C15:D21:E27:850e 232,0:233,73:3:1:0:A$"LET'S MAKE FUNNY FACES !":H12:V180:840t L1500: " ** 1ST LOOP ** ,T12 6T930,940 @232,0:233,64:P,0 JHC:SHA,VP:SHB,VP TL1300: ^(Q)136Ē0:SHA,VP:"FUNNY FACE":H86:V60:8405 35134,80:58144,80Z A$"STEVE SMITH":H80:V100:840 A$"COPYRIGHT 1986":H70:V170:840 A$"MICROSPARC, INC.":H60:V180:840 T14000: ** MAIN PROGRAM ** I132801:768,I:769,7:770: .CHAR.SET" n ** SOUND **' xM(24)G I023:M(I):770I,M(I): 174,0,3,173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,5,3,96 P16368:Q16384:N1 ** TITLE PAGE ** :3:16302,0:1030 232,0:233,73:3:1:0:A$  **********************9* FUNNY FACE *U* BY STEPHEN W SMITH *q(* COPYRIGHT (C) 1986 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************P:Z(4);"BLOAD C.SHAPES" d(4);"BLOAD HI.RES   0j"TC0āI15:(7):::"CONGRATULATIONS, YOU WON THIS ROUND. WOULD YOU LIKE TO TRY AGAIN?";:1640"^: STILL TANKS LEFT"h"";A$:(A$,1)"N"ĉ::"r:120"| SELECT COMPUTER SHOT LOCATION"NU10:3530"N2(N2)D4:1710"#0:C0!WI16&!"XC(WI)0CC1:!,XH(WI)0HH1@!6!@H0C0āI15:(7)::"THIS MATCH HAS ENDED IN A TIE. WOULD YOULIKE TO TRY AGAIN ?";:1640"JH0āI15:(7):::"SORRY HUMAN, I WON THIS ROUND. WOULD YOULIKE TO TRY AGAIN?";:164::"HUMAN'S TANK DESTROYED!":XH((A$(TX(K),TY(K))))0:YH((A$(TX(K),TY(K))))0:A$(TX(K),TY(K))""l 1530 31C14,Y(R9):FL1::"HUMAN'S TANK DESTROYED.":XH((A$(R,C)))0:YH((A$(R,C)))0:A$(R,C)"" I14000::  LOOK FOR A WINNER!HIGHT 1986 BY MICROSPARC, INC.**":23:7:"PRESS TO CONTINUE";:A$: Z(4)"BLOAD VORATIO.BIN":(4)"BLOAD VORATIO.SHAPES" d::16::"VORATIO": n:" YOUR MISSION IS TO GUIDE A RAVENOUS" x:"WORM THROUGH A FIELD OF MUSHROOMS IN "+9**********************9* VORATIO *U* BY DARELL FETZER *q* COPYRIGHT (C) 1986 ** BY MICROSPARC, INC ** CONCORD, MA 01742 ***********************L P::16:"VORATIO":11:"BY DARRELL FETZER":"** COPYR  RE MAILING ADDRESSES, YOU COULD SORT THEM THIS WAY:": Fv P"&LAST$,1,100,FIRST$,ADDRESS$,CITY$, STATE$,ZIP"| Z d"SEE 'BRIDGE HANDS' FOR A DEMONSTRATION OF 'SUPER SORT'." , THE STARTING ARRAY ELEMENT, THE ENDING ARRAY ELEMENT,AND THE NAMES (IF ANY) OF THE 'TAG-ALONG' ARRAYS -- ARRAYS TO BE" ("REARRANGED IN THE SAME MANNER AS THE ARRAY TO SORT." 24 <"FOR EXAMPLE, IF YOU HAVE SEVERAL ARRAYS THAT STO 5/4/08 "'SUPER SORT' ALLOWS YOU TO SORT MULTIPLEARRAYS TOGETHER. INSTALL IT WITH 'BRUN SUPER SORT'. THEREAFTER, YOU CAN USE THE & COMMAND TO SORT ARRAYS." "THE ARGUMENTS TO THE '&' COMMAND ARE THE ARRAY TO BE SORTED + NU2:3530:+ ITX(K):JTY(K):TXI:TYJ:XCI:YCJS+ D2ĴN2600,2650:k+ D2ĴN2500,2550:v+ I1ı+ 2770:N0ı+ MV(SN)0ı+ IN1ı+ TRIN:TCJ:2700+ I16ı+ 2770:N0ı+ MV(SN)0ı+ IN16ı, TRI:TCJN:D3* 2060)* MOVE RIGHT8*$ J182040T*. NU3:3530:JN182040a*8 MV0ır*B MVN02350*L TRI:TCJN:D4*V 2060*` FLIN1:D1:2050*j N2:D2:2050*t FLJN3:D3:2050*~ N4:D4:2050* SN:N3MVS02460+MVN02140!)zTRIN:TCJ:D1+)2060;) MOVE DOWNJ)I162040f)NU3:3530:IN162040s)MV0ı)MVN02210)TRIN:TCJ:D2)2060) MOVE LEFT)J12040)NU3:3530:JN12040)MV0ı)MVN02280 * TRY(K)TC:2440(4A$(TR,TC)"MI2"ĕ36TY14,Y(TX9):D150:35TC14,Y(TR9)::A$(TR,TC)"":XC(K)0:YC(K)0:A$(TX,TY)""::(7)"TANK HIT MINE AND WAS DESTROYED!":3640:SN:(>(H MOVE UP(RI12040(\NU3:3530:IN12040(fMV0ı )pHQ2"ĕ32TC14,Y(TR9):A$(TR,TC)""Y'A$(TR,TC)"AD2"ĕ33TC14,Y(TR9):A$(TR,TC)""' A$(TR,TC)"FD2"ĕ34TC14,Y(TR9):A$(TR,TC)"" (*A$(TR,TC)""ĕ36TY14,Y(TX9):A$(TR,TC)A$(I,J):XC(K)TR:YC(K)TC:A$(I,J)"":36TC14,Y(TR9):TX(K)TR:T,1)"H"A$(D,J)"HQ2"A$(D,J)"AD2"A$(D,J)"FD2"FLDJ&D:FL0ī2400V&D118&(A$(I,D),1)"H"A$(I,D)"HQ2"A$(I,D)"AD2"A$(I,D)"FD2"FLD&D:FL0ī2420&NU4:3530:TITI1:TI10ı&FL0:N2120,2190,2260,2330$' A$(TR,TC)"S)IN:CY(S)J:%:1670(%DN118905%NJ11ıF%XJJ1:DI1:T%bJ118ıe%lJJ1:DI1:s%vN11940%I11ı%II1:DI1:%I116ı%II1:DI1:% MOVE COMPUTER TANK%TXI:TYJ:FL0:TI0:S0%D1166&(A$(D,J)$1670$JN11670Y$(A$(I,JN),1)"1"(A$(I,JN),1)"C"CX(S)I:CY(S)JN:c$1670t$JN181670$(A$(I,JN),1)"1"(A$(I,JN),1)"C"CX(S)I:CY(S)JN:$1670$&IN11670%0(A$(IN,J),1)"1"(A$(IN,J),1)"C"CX(N1N3N9NU2:3530:D1N:17108#N5N7N10D1#NU3:3530:N3NU2:3530:D1860,1910,1910,1860:DIDI0:NU2:1730#NU3#3530:D1740,1770,1800,1830#IN161670#(A$(IN,J),1)"1"(A$(IN,J),1)"C"CX(S)IN:CY(S)J:`px|~?cclx```px-xpe`w|p<x||<~8~p?`((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPP` Li>>8|~~~|8px|||xp`pxxxp`@`ppp`@@```@@?@?@?gjkgoksows{w{ÿg0000X 000000  2  00PP   ! !!!!!!nn :0`nϦέ0in`-`n m` 寧)inn)i n 'mBm^mHm Mmnɮnn m`Obcc&``iRniSnnnnn`ffi nnfnnninϭnninnn П`@ΩDnnn m`1nȽ`1n` l m`I1`I1`e뽏d`Obecc` ;m mbQ`bb`n ;m mb1n+` 寧)i`)i n'mBm^mHm Mmnή'օȱօ l ʹaaȹaa HHllll lee ln? m ln1n n`Ωdnn n sm mi mllll slhh sl l m```n l  sl sm m, ɛL+kɠ,,L.j 5k, kn` n nL.jLj Ωnn n/nLgj, XQ`e`e`ȱȱȱf`Gf`e`ȱȱȱf`%`8 ``ni ``iVObcc(࣐ݢ`` ( m,P,W,T,SӅ`!``aש֩nn``Jnn8n`n:02L+k m nn`g`e`j`f`  ȩ     LD YOU LIKE TO PLAY AGAIN? (Y/N)";:A$:A$"Y"1008 JA-EXITS THE GAME"; :"L-ADVANCES TO THE NEXT LEVEL"c :9:"PRESS TO PLAY";:A$ X((159))(((160))):24576 "CH(24829):CH19320 ," CONGRATULATIONS YOU MADE IT THROUGH" 6:"19 TOUGH LEVELS OF VORATIO!"2 @:"WOUOUS ONE."G :" DO YOU NEED INSTRUCTIONS? (Y/N)";:A$:A$"N"280p :"J-TURN THE HEAD 15 DEGREES LEFT" :"K-TURNS THE HEAD 15 DEGREES RIGHT" :"D-SLOWS VORATIO DOWN" :"F-SPEEDS VORATIO UP" :"-PAUSES THE GAME" :" :"SEARCH OF APPLES. AFTER EATING TEN "[ :"APPLES, YOU WILL BE TRANSPORTED TO THE" :"NEXT LEVEL. A 1000 POINT BONUS WILL BE" :"AWARDED FOR A PERFECT LEVEL." :"THERE ARE 19 LEVELS AND EACH IS MORE" :"DIFFICULT THAN THE PREVIIN:TCJ:2700,( J1ı+,2 2770:N0ı=,< MV(SN)0ıJ,F JN1ı`,P TRI:TCJN:2700l,Z J18ı},d 2770:N0ı,n MV(SN)0ı,x JN18ı, TRI:TCJN, FL0, A$(TR,TC)"HQ2"ĕ32TC14,Y(TR9):A$(TR,TC)"" - A$(TR,TC)"AD2"":<"">""""""""""">>>"2"<"">""" "" ">"6**"""&*2""""""""""*,"""< ">""""""""""**6""""">  >>> >0000>" >> ($ , *,**>> 2**& " >>""""> > ""> """""< >>"!!"" @~@@<<>b:^6`ffggggggghhhhhhhiii@@@@@@@@@@@!!888888<<    <<@@@@  !!!!!!!"""""""#######$$$$$$$%%%%%%%&&&&&&&'''''''""## !!""## BBCC@@AABBCC@;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW VZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-PPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRFL02l I18:J118]2v 3530:N3A$(I,J)""A$(I,J)"FD":34J14,Y(I9):I8:J18:FL1p2 J,I:FL3180y2 FL02 I811:J118:35302 N2A$(I,J)""A$(I,J)"M1":FLFL1:FL6I1:J182 J,I:FL632202 FL03 I311:J118OMPUTER LOCATIONS$1 I18:J118j1 3530:N3A$(I,J)""A$(I,J)"HQ":32J14,Y(I9):I8:J18:FL1s1 J,I1& FL308010 FL01: I18:J1181D 35301N N3A$(I,J)""A$(I,J)"AD":33J14,Y(I9):I8:J18:FL11X J,I::FL31302b 1:10 I18:K118O0 NU10:3530:N2A$(I,K)"B":20K14,Y(I9):JJ1b0 J15K18:I8k0 K,Iz0 J1529600 J10 I16101:K1180 3530:N2A$(I,K)"B":20K14,Y(I9):JJ10 J15K18:I100 K,I0 J1530201 C/ J192850+/ JI4,7:JI4,159:JJ11/" 9/, J1I/6 I161599U/@ A$(J)l/J (A$)2A$" "A$/T (A$,1)" "2920/^ (((A$,1)))201,I:(((A$,1)))20268,I/h S((A$,1)):SS20:S20S30/r S6,I:S273,I/| JJ1:0 Y7:JD130:35TC14,Y(TR9)::A$(TR,TC)"":A$(TX,TY)"":XC(K)0:YC(K)0::(7)"TANK HIT MINE AND WAS DESTROYED!":3640:SSN:. . NU3S:3530:. DRAW GRID. :3:0,0:3082. 0:I81619:0,I279,I:. J1. I1326514:I,0I,161 ĕ33TC14,Y(TR9):A$(TR,TC)""U- A$(TR,TC)"FD2"ĕ34TC14,Y(TR9):A$(TR,TC)""- A$(TR,TC)""ĕ36TY14,Y(TX9):A$(TR,TC)A$(I,J):A$(I,J)"":36TC14,Y(TR9):TX(K)TR:TY(K)TC:XC(K)TR:YC(K)TC:SSN:}. A$(TR,TC)"MI2"ĕ36TY14,Y(TX9):TS." DxaD"'PRINTER' CAN DETECT WHETHER HI-RES PAGE 1 OR 2 IS BEING USED FOR PRINTING."gDD"WHEN 'PRINTER' IS ENGAGED, DOS 3.3 IS DISCONNECTED. IN ORDER TO RECONNECT DOSAND DISCONNECT THE PROGRAM, TYPE:"D E" POKE 54,189: PS ACTIVATED AND YOU TRY TO PRINT A CHARACTER NOT IN THAT TABLE, THE PROGRAM WILL DEFAULT TO THE NORMAL TABLE TO PRINT THE CHARACTER WITHOUT DEACTIVATING THE SPECIAL TABLE."Dn"ACTUAL LOWER-CASE CHARACTERS SHOULD NOT BE INCLUDED IN PRINT STATEMENE TEXT CHARACTERS; THE LOWER-CASETABLE, WHICH CONTAINS LOWER-CASE ALPHABETIC CHARACTERS; AND THE NUMBER SCRIPTING TABLE, WHICH CONTAINS NUMBERS FOR SUBSCRIPTING AND SUPERSCRIPTING."BPBZ"";:A$:Cd"IF A SPECIAL TABLE IRINTER' PROGRAM AND HOW TO USE IT.";*A2A<"'PRINTER' CAN UTILIZE EVERY APPLESOFT COMMAND USED TO CONTROL TEXT OUTPUT EXCEPT FOR THE 'FLASH' COMMAND. THREE SEPARATE TABLES CAN BE ACCESSED: THE NORMAL TABLE, WHICH CONTAINS ALL"BF"POSSIBLU@ 5/17/08@ @"'PRINTER' WILL PRINT TO THE HI-RES SCREEN USING SIMPLE 'PRINT' STATEMENTS, AS SEEN IN BOB BISHOP'S 'APPLEVISION' PROGRAM."@$A("SEE 'PRINTER DEMO' FOR A DEMONSTRATION. LIST THE PROGRAM TO SEE HOW TO HOOK UP THE 'P"""""*w6<""<""<< <""< <$"< """  2 " 6**""""""""<""< :$"""<"""**6 ""< >0 >   ,**(16336):a :::10:"YOU HIT "NH" OUT OF TEN":" PRESS FOR ANOTHER GO":Z$::8036):RB:SU:1X,UY:YYDY:UYYKY(B2Y):XXDX:((X6)RE)(XLE)DXDX:XXDX nRGRS(0)K:RG:SG:1GX,GY:I((16287)127):SU:RB:1X,UY:SG:RG:1GX,GY:Z(16336): xSZ:1GX,GY:(234)0ĺ(7):NHNH1:I4644:I:1(1)25:1X,UY:Z232,0:233,3:K.1255:DY.97:B180:3:GX140:GY190:LE0:RE279:BE191:SU6:SG20:SZ190:SB255:RB16:RS48 ZNG110::X267:RN(1)2010:DXRN1(RN)(RN1):Y1(1)170:UYY:KY((1)21):DX0X1R dRB:SB:1LE12,BE:SU:1X,UY:I01:Z(163c **********************; * ZOT *X * BY TIM KENDRICK *u( * COPYRIGHT (C) 1986 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************j P::768,1:769,0:770,4:771,0:772,4:773,0:" " " "RE9:R16:C1:SH19:A$"K":371025f A$(R,C)"MI2"85p _5z I16:C1:OB$"TANK #"(I):41205 RS16:RE14:R16:C1:SH31:A$"K":37105 A$(R,C)(I)"H":XH(I)R:YH(I)C5 5 I916:J1185 A$(I,J)"MI2"ĕ19J14,Y(I9)5 J,I5 61:SH32:A$"K":3710&4 A$(R,C)"HQ2"g4* OB$"AMMO DUMP":4120:RS16:RE9:R16:C1:SH33:A$"K":3710y44 A$(R,C)"AD2"4> OB$"FUEL DEPOT":4120:RS16:RE9:R16:C1:SH34:A$"K":37104H A$(R,C)"FD2"4R K16 5\ OB$"TANK MINE #"(K):4120:RS16::3530U3 N1A$(I,J)""FLFL1:A$(I,J)(FL)"C":XC(FL)I:YC(FL)J:FL6I1:J18i3 J,I:FL63260|3 I13:J1183 (A$(I,J))0ĕ36J14,Y(I9)3 J,I3 HUMAN LOCATIONS3 34,20:3 PLACE HQ4 OB$"HQ":4120:RS16:RE9:R16:C