' +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` Rӛ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 ~(` F d ֠z# u`ΠύΠύΠύΠύΠύΠύΠύΠύΠύΠύΠύΠύΠύΠύΠύΠύΠύΠύ n.`F88Z po n8LLjK, n`oo‹ _o‹ _o,on" p 0L_o‹ _oNj L 0 @ZGLM _.Z ZPLljZGLM _.ZB Llj 0@    ?2 2     L$%L"p``?``` ` 8`p`E`.. FLɹL``= ,a/`O`?E O`M]M]tCC9"..n.` NNN0F8Z<< Nd8dоZ P _?LY ..P.`ZZNGN _.LMii i LL..$.`88NN _.LM8LM _.8 8$L;8LM _.8 L;@ 0  `= F`ɹ```=PE` ELP @0P@0 ..n.`F( .F}FwFLWxF޾IZ}ZҐ搽I L%FZL_D`..n.`F8@Z8A .n8 $FZ$ _ Eiii i?LL/ D/Dk/`p`/`/`B 8@Li@iAD/8 L@AL_@A _@( D C`mB@AL_C`CL 0@8L(@..F(8L(F$(8L6(.`=Tp``..1 .`078>=`87 >'  i 8 =` ..(.`8 .$LM8LM _.` ..PiL>i(...1PiL]i(1.D@PiLyi(@..FPiLi(F$PiLi(.` ..(8Lʄ(...1(8L(1.D@(L_L( 0` j '& j`'& 0` j  j` ..(0$ _.PZLMGLM _...1( 7 _.  _D @A _..n `/,`ɛ,ɛ,`` ,`,`ѩ `  ? Ņ  9  . , L J  `p`  00 0  0 m mJ0LO ?L Xˍiة ..PZd( $ _.ש..17...$8n .LL<|]>|pd]=X,8`,i`` uȱ 0L?`a`(Q` eLu` @ @Rdv@@@@@@@@BAAAAAAAA   ,0` =>/CEDnop _,0      @0hxp \ px@ `@@p8l"a```p8$%"E咈@@@ @ "  p8l"a```p@@@@ 0~p dv'0hxp \ xy ժժժժժժժժժժՀЋЊ h88(       (|       (|@@@ 08~XL``0EL:L!21:"RETURN TO TRY AGAIN, ESCAPE TO QUIT";:Z$::Z$(27)1300:UT";:Z$::Z$(27)1300::(27)1300:"RETURN TO TRY AGAIN, ESCAPE TO QUIT";:Z$::Z$(27)1300::Z$(13)(N$)1430C Z$" "1410:N$N$Z$:Z$;:(N$)161410I y E(222):EL(218)256(219):3288:216,0 :12 E6E7ĺ"MMSHAPES FILE NOT ON THIS DISK":1490 E8ĺ"I/O ERROR--CHECK DRIVE DOOR":1490!"ERROR "E" IN LINE "216,0:1360\FD$"OPENMMSCORES":D$"READMMSCORES":I118:S(I):N$(I):L(I)::D$"CLOSE"PXX768:YYXX1:SHYY1:KLSH1:KRKL1:KUKR1:KDKU1:KOKD1:CTRLSKO1:RCODECTRLS1ZTNRCODE1:LNTN1:S%32619dWALN1n120xN$"" Z$BYTE128::BYTEBYTE256::/D$(4):1440\D$"BLOADMMSHAPES":D$"BLOADMAYHEM.CODE"g(13402D$"VERIFYMMSCORES":216,0:1350 <D$"OPENMMSCORES":D$"WRITEMMSCORES":I118:S(I)0:N$(I)"JOHN ROMERO":L(I)1:S(I):N$(I):L(I)::D$"CLOSE":2:BYTE31:I03:BYTEBYTE1:J01:K07:LOCCU,BYTE(4K):CUCU1::::rLOCCU,255:CUCU1:CU2561250BYTE0:1290:BYTE40:1290:BYTE80:1290LOCCU,255:CUCU1:CU5121270 I03:J01:K07:LOCCU,BYTE:CUCU1::BYTE$(I);:35:L(I):I3(I3)āJ140:"-";:^(37)16ĺ:"PRESS RETURN FOR MORE...";:A$:j:34,0:"THAT'S ALL--PRESS RETURN";:A$::310021:1:"PROGRAMMED BY JOHN ROMERO"370"ONE MOMENT PLEASE..."MLOC24576:CU0:H0:32768:I2011:TN,I:LN,I:S%::^t::"MAJOR MAYHEM'S BEST PLAYERS:":I140:"-";:~34,2:2:1::"SPEED";:9:"SCORE";:18:"WHODUNNIT";:33:"LEVEL":I118:1((I1)3);7);:SS(I):"000000";:14((S))1:S;: 6 ZEROS+18:NSH,5:32768D.I157153:YY,I3:32768:SH,5:I2(I2)ĹSH,6{8YY,I:32768:TN,(1)201:LN,14:S%:J125:J,IB32768LYY,13:32768VI120:SH,5:I2(I2)ĹSH,6`32768:TN,(1)301:LN,12:S%:J140:J,I&j32768:YY,15H11-23:H:A$:A$" "HH16:H27H11@A$(13)960WH11CN203:1000bCN20223:1:868:"SOUND: ( ) ON ( ) OFF";:H923:H:A$:A$" "HH8:H17H9A$(13)1010H9ĹCT,1:1050CT,0 $YY,160:H,6!zYY,I:32768:J150:J,I*460e23:1:868:"LEVEL OF SPEED: 1..2..3..4..5..6";:H2623:H:A$:A$" "HH3:H32H17A$(13)920TT(H14)3:TTTT5049:WA,TT23:1:868:"CONTROL: ( ) KEYBOARD OR ( ) JOYSTICK?";:SH,1:32768:I120:TN,(1)101:LN,30:S%:eRI1401:YY,I1:32768:SH,5:I2(I2)ĹSH,6\YY,I:32768:J125::TN,(1)101:LN,10:S%:f32768:J150::YY,255:32768:I150:pI2542301:YY,I1:32768:SH,5:I2(I2)ĹSRES":D$"DELETEMMSCORES":D$"OPENMMSCORES":D$"WRITEMMSCORES"iI118:S(I):N$(I):L(I)::D$"CLOSE" 23::"DO YOU WANT TO PLAY AGAIN?";::Z$:Z$"Y"Ā*LV0:230,32:62450::3504HCHC1:HC10HC0>LVLV1.HYY,15:SH,5:32768:;:34:"LEVEL":YIFIFI2:(TT50)1;8);"000000";:16((S(I))):S(I);: 6 ZEROS18:N$(I);:35:L(I):N$(I)""VTIFI3VT:17:868:">"16)"<"LV1;:18:1400:N$(FIVT3)N$VT:35:LV1= D$"OPENMMSCORES":D$"CLOSEMMSCO:N$(FI1)"":710LNUMS(FI2)S(FI2)NUM:L(FI2)LV1:N$(FI2)"":71023::"DO YOU WANT TO PLAY AGAIN?";::Z$:Z$"Y"Ā:810::"VERY GOOD! TYPE YOUR NAME IN:":I140:"-";:2:1::"SPEED";:10:"SCORE";:18:"WHODUNNIT"(3((TT50)1))2NUMS(FI)S(FI2)S(FI1):S(FI1)S(FI):S(FI)NUM:L(FI2)L(FI1):L(FI1)L(FI):L(FI)LV1:N$(FI2)N$(FI1):N$(FI1)N$(FI):N$(FI)"":710NUMS(FI1)S(FI2)S(FI1):S(FI1)NUM:L(FI2)L(FI1):L(FI1)LV1:N$(FI2)N$(FI1)85)Ģ21:1:868::"YOU HAVE GOTTEN YOUR LAST SPIDER BITE!"::23:868:15::"GAME OVER!";:640b32768:791:I1100::32768:(16384)128(49249)128610l(49249)127620v540NUM0:I05:NUMNUM(((I1764)176)10(5I)):FIg:R1Ģ21:1:868::"YOU CAN'T MAKE IT, NOT ENOUGH ENERGY!"::23:868:15::"GAME OVER!";:640DR4Ģ24:1:868::"QUIT COMMAND--WANT TO PLAY AGAIN?";::A$:A$"Y"640:::NR2Ģ24:1:"YOU MADE IT! GET READY MAJOR...";:820bX(7:230,32:62450::230:329429XX,18:YY,137:SH,032768:J1500::32768:J1500::(16384)128(49249)128500KO,CN:WA,TT(49249)12752024:1:868781:16368,0&R(RC):R36000XX,0:YY,13:SH,1:32768,0:I788790:I,0:<23:H:A$:A$" "HH15:H38H2OA$(13)410\H2460wH32İ910:23:1:3801140:21:1:"MAJORS : ENERGY BALLS:":"LEVEL : SCORE:": 6/6 SPACES23:A$"MAJOR MAYHEM":20(A$)2:A$;  :"::I12000::: 14/14 SPACESvh21:1:"DESIGNED/PROGRAMMED BY JOHN ROMERO":I11500::HC0:190r:"SELECT WITH SPACEBAR, RETURN TO CHOOSE:":|"( ) PLAY GAME ( ) SEE SCORES ( ) FIX";33090,3H2:785,3:786,LV:7872SA1$ ,UD(1)201:LF(1)601d 636934I,SX:36954I,SY:36974I,SA:37014I,255:36994I,1 @37054I,LF:37034I,LF:37094I,UD:37074I,UD J:"GO!";:LV3Ĺ33090,LV T/^:21:13::": :":13:" MAJOR MAYHEM ":13:":):BX39BX79250[ 36870I,BX:36880I,BY:36900I,BS:36890I,1::"ON YOUR MARK..."; I09:JI19:(36870I)(36870J)(36880I)(36880J)Ĺ36870J,118(36870J) J,I:"GET SET..."; "I019:SX(1)118:SYY1%((1)5):SA0:ILV,I28279,I28:0,I30279,I30:H1%(HC):0,I29279,I29:g I6215562:XX,0:YY,I:SH,2:32768:q 1060 24:1:(LV1)((LV1)5)50Ĺ785,(785)((785)9)::"XTRA MAJOR";: 190:I09 BX(1)119:BYY%((1)5):BS(1)13:BX(BX,0 LV0T I04:Y%(I)::22,53,84,115,146:I04:Y1%(I)::20,51,82,113,144 I03:KEY:771I,KEY::136,149,193,218,160:KEY:784,KEY I09:H%(I),H1%(I)::1,1,1,0,1,2,1,3,5,5,5,6,6,3,5,2,2,3,5,0 350 I015531; H%(HC):0E PROGRAM":(4)"RUNMAJOR MAYHEM", Z25088 d::"MAJOR MAYHEM":"BY JOHN ROMERO":"COPYRIGHT 1987 BY MICROSPARC, INC.":12:"MAKE SURE THE CAPS LOCK KEY IS DOWN":S(18),N$(18),L(18) n1230:1300 xCT,1:230,32:62450::TT151:CN203 16368M **********************; * MAJOR MAYHEM *X * BY JOHN ROMERO *u( * COPYRIGHT (C) 1987 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F ********************** ! P(104)68Ĺ104,68:17408,0::"RELOCATING TH       MEMORY ISBEING ACCESSED." A" &M 9 TO 2: POKE 49236,0"Z" PRINT CHR$(4)"(34)"BSAVE name,A$2000,L$3FFB"(34);`s"TO RESTORE:"y" POKE 49236,0"" PRINT CHR$(4)"(34)"BLOAD name,A$2000"(34)"" &M 2 TO 9""POKE 49236,0 ENSURES THAT MAIN RINTER."20"TO LOAD/SAVE DOUBLE HI-RES PICTURES, TWO NON-CONTINGUOUS BLOCKS OF MEMORY MUST BE SAVED SEPARATELY OR TOGETHER. HERE IS AN EXAMPLE OF SAVING PAGE 1 TOGETHER, ALTHOUGH NOTE THAT IT""OVERWRITES PART OF PAGE 2:" TIME. THIS MINIMIZES VIDEO"b" GLITCHES THAT OCCUR WHEN THE VIDEO RASTER SWEEPS THROUGH AN AREA OF THE SCREEN THAT'S BEING CHANGED."lv"&PRINT x - DUMPS DOUBLE HI-RES PAGE x (1-3) TO THE P',A' FOR MAIN-AUX. (EXAMPLE: '&A 24576, 24831 TO 32768,A)"WN20"X"&WAIT - WAIT FOR THE START OF THE VERTICAL BLANKING INTERVAL, WHICH TAKES UP TO 1/60TH OF A SECOND AND AVERAGES HALF THAT D INTO, BUT NOT OUT OF, THE MAIN 16K AREA. (EXAMPLE: &C 24576,24831 TO 32768)";h:OD"& A - COPIES MEMORY FROM MAIN TO AUXILIARY OR VICE VERSA. SAME SYNTAX AS &M, BUT FOLLOW WITH ',M' FOR AUX->MAIN, AND BY TWO TO GO UP OR DOWN AN OCTAVE."2" A = 260 Bb = 246 B = 232 C = 219 C# = 207 D = 195 Eb = 184 E = 174 F = 164 F# = 155 G = 146 G# = 138";&b0"& C - COPIES MEMORY. WITH DOS 3.3, MEMORY CAN BE MOVEO 2: &M 9 TO 10"["...WILL COPY DOUBLE HI-RES PAGE 1 TO DOUBLE HI-RES PAGE 2."c20,"&P d,p - PLAYS A NOTE OF DURATION d AND PITCH p. d AND p CAN GO UP TO 32767. A PITCH OF 0 IS A REST. MULTIPLY OR DIVIDE p ITCHED MEMORY AREAS (FOR EXAMPLE,'&S 15 TO 7' WILL HAVE NO EFFECT.)"J"TO MOVE OR SWAP A DOUBLE HI-RES PICTURE, TWO SEPARATE BANKS MUST BE HANDLED: THE PAGE NUMBER, AND THE PAGE NUMBER PLUS EIGHT. FOR EXAMPLE:"" &M 1 TUXILIARY. AREAS 0, 4, 5, AND 8 SHOULD NOT BE TOUCHED. UNDER PRODOS, AREAS 6 AND 7 SHOULD ALSO BE LEFT ALONE."z20D"ADDITIONALLY, DON'T USE &M OR &S TO PAGE6 OR 14, BUT YOU CAN &M OR &S FROM THEM.YOU CAN'T &M OR &S BETWEEN TWO BANK-SWK. ('&M 2 TO 1' COPIES HI-RES PAGE 2 TO PAGE 1.)"D"&S x TO Y - LIKE &M BUT SWAPS THE MEMORY BLOCKS INSTEAD OF OVERWRITING y."r"FOR &M AND &S, BLOCKS 0-7 ARE MAIN MEMORY AND 8-15 ARE AED TO PAGE 1, THIS COMMAND WIDENS THE IMAGE TO DOUBLE HI-RES. THE"h" PICTURE WILL LOOK THE SAME, SAVE FOR A COLOR SHIFT."r>|"&M x TO y - COPIES ANY 8K BLOCK OF MEMORY TO ANY OTHER 8K BLOCE DRAWING COLOR TO WHITE." ,J6"&F - SPECIFY FULL-SCREEN GRAPHICS."P@{J"&T - SPECIFY MIXED MODE FOR PAGE 1."T20L^"&W - PROVIDED DOUBLE HI-RES PAGE 1 IS CLEARED TO BLACK AND THEN A REGULAR RESOLUTION HI-RES PICTURE IS LOADS ON PAGE x WITHOUT CHANGING THE CURRENTLY DISPLAYED PAGE. (x CAN BE 1, 2, OR 3)"h"&V x - VIEWS PAGE x (x CAN BE 1 OR 2)"""&Z x - INITIALIZES THE SPECIFIED SCREEN (1-3) AND CLEARS IT TO BLACK. SETS THE SHAPE." "&INVERSE x - INVERTS DOUBLE HI-RES PAGE x. ALSO INVERTS THE CURRENT DRAWING COLOR." 20 "&CLEAR - CLEARS THE DOUBLE HI-RES SCREEN TO THE CURRENT COLOR." b"&GR x - DRAWT BUT PLOTS A 4-DOT WIDE LINE. IF THE X COORDINATE IS ABOVE 556, THERE MAY BE WRAP-AROUND TO THE LEFT SIDE OF THE SCREEN." "&DRAW - DRAWS A SHAPE TABLE SHAPE." "&XDRAW - XDRAWS A SHAPE TABL A KEYPRESS." d20l n"COLOR= - SETS THE DOUBLE HI-RES COLOR. NOTE THE LACK OF AN AMPERSAND."r x "&HPLOT - SAME AS 'HPLOT' BUT FOR DOUBLE HI-RES. LOWER RIGHT CORNER IS 559,191." "&PLOT - SAME AS &HPLONOT IN IMMEDIATE MODE. ALSO," Z" COMMANDS THAT PRODUCE SCREEN OUTPUT (INPUT, PRINT, GET, ETC) SHOULD NOT BE USED WHILE VIEWING DOUBLE HI-RES PAGE 2. (USE WAIT 49152,128: POKE 49168,0 TO WAIT FORMODE, SETS 80-COLUMN MODE, AND SETS THE PLOTTING COLOR TO WHITE.";Q F P"&HGR2 - SAME AS &HGR BUT FOR PAGE 2 AND SETS TO FULL-SCREEN MODE. THIS AND OTHER PAGE 2 COMMANDS SHOULD BE ENTERED ONLY FROM A PROGRAM,  5/26/08 ::30B24:"";:A$::["DUBLSTUF COMMANDS"t("-----------------"z2K <"&HGR - CLEARS DOUBLE HI-RES PAGE 1 TO BLACK, INITIALIZES IT FOR DRAWING, DISPLAYS IT IN MIXED        96,98,32,98,64,110,64,123,96,123,32,130,64,130,64,123,64,110,64,130,64,146,64,164,192,12364,123,96,123,32,146,64,146,64,123,96,123,32,164,64,164,64,164,64,146,64,123,64,164,64,110,192,1233,ESCAPE TO QUIT";:Z$::Z$(13)9064,164,96,164,32,195,64,195,64,164,96,164,32,219,64,219,64,195,64,184,64,164,64,146,64,130,192,16464,164,96,164,32,195,64,195,64,164,96,164,32,219,64,219,64,110,64,116,64,110,64,98,64,146,192,110Y64,164,1:S915-TX$"End of Demonstration":110:]^E(222):EL(218)256(219):3288:216,0h:12:E6ĺ"UNABLE TO FIND DUBLSTUF ON THIS DISK":390rE8ĺ"I/O ERROR--CHECK DRIVE DOOR":390|"ERROR "E" IN LINE "EL$21:"RETURN TO TRY AGAIN0:C16384,245708192:A24576,327608192,A:P1000,0:w 6X$"Here's the fast way to do it:":110:M21:M109:P1000,0 @X$"Here's the &INVERSE command":110:1:P1000,0:1:P1000,0JX$"Here's the &S command:":110:S141:S915:P1000,0::S142324:X,15X,84:X210120:Q 15:X1420939:Y258114:1X,Y:120:: X3419039:Y317314:1X,Y:120:::M21:M109:T "X$"Now for a disappearing act":110:M103::P1000,05 ,X$"Let's get our flag back the slow way...":119200): M12:M915:S142I T:X$"Here's a demo of &CLEAR:":110b Z1:C115:C:1: X$"Now for some patriotism demo'ing &HPLOT, &P, &PLOT, &DRAW:":110:15:2:V2 12:Y1513520:ZYY9:Old glory 0,Z559,Z:: 1:X01:C:ZYY25:0,Z279,Z::^ X$"Let's double it with &W":110:M12::M21:W:P1000,0 X$"Now let's check the DHIRES colors":110:Z1 C115:C:C13įF YC12:ZYY11:0,Z559,Z:::T032:1T17,Y9:CLICK(49200)(49200)(4ON":"THIS MACHINE"::MUST BE IIC, IIGS OR 128K IIE> Z350c d(4)"BRUN DUBLSTUF":216,0:130 n::(80(X$))2:22:X$:P500,0: xD:P:PD,P: D$(4):D$"PR#3"::22 :X$"This is single-HIRES graphics":110 C0:Y013026:CC ***********************;* DUBL.DEMO *X* David L. Smith MD *u(* Copyright (c) 1987 *2* by MicroSPARC, Inc. *<* Concord, MA 01742 *F***********************4 P(64435)6ė:12:"SORRY, PROGRAM WON'T WORK    T(L ͒ , L ͘LU0 >nT1 G056<N -< M )@'ȍU&T( Э`%&&`QPP P(``H ɘ mh '@ &ȍ ˘ ' ʥ& T )2I? J e     !JJJJӊ)IȄҤ ѢԆզ8eЅԐ e҅Ր JJJLKI`  ߒ )0I0LK '&&&U0 TF  T hIi҄f8Ъх 8e҅ԥ Ӱ eЅԥeP01&Q&&`) ٔL Քe)jL"F`I'J @`0`I0 ( i` Lx eȱM `H)&JJ&&h' &' &' f&')')Jʥ0 i`0Q&%Q&&` vP0LHHH hhh`  ! ͒ LU  !H8HӰ hIiHӅхh , AM x LQ'HHHHH 9 Քhhhhh)$ `Ѕ Ѕ  0` O R M ST@ M RU~^ WP`80 ᒥ0HhH)h iH)hI0LU QL O Qэ \x C i쒘 \ H h i,   蔰Z , ┰O ii \ H. h ii, , 씰   ͒,X` 6<= 6>? 6BC g 椥Ơx0 ,0, ƤPQ00ʎΒВؒђْ```@_ ``@@`_ ֍` v6а ` !ŝ` @`ɀ ɐ0`T1o0)  Lԭ XPQ 0>Ȅ'?..575-.>>$?<<>>>>. -6666>?,%$$$76>$$$$MI<HTamy%0;GS]j}*%<86n $?$,-?'$ @?66- $,-66?'$%@??6.6---@??6.6 F6?? $,(--$6.6M!$@+66> s- $$$c 366n 8 $6--d066$$$V$$$366&$(u66?$e<8?6.6h$<  b JOYSTICK CONTROL4l1:24:"USE THE JOYSTICK";DvI1150:I\R0:P0(0):P1(1)mP0100RLC~P0156RRCP1100RUCP1156RDCX(16384)X1272010X155R2716368,01160 iB$;B$;B$;:"THE FILES MAZE.SHAPES AND MAZE.TUNE"d"MUST BE IN THE DEFAULT DISK DRIVE.""PLEASE PUT THEM THERE AND PUSH 'C',"&"OR PUSH 'Q' TO QUIT."0R$:R$:R$"C"ĦDR$"Q"R$(113)ĀNB$;"PUSH C OR Q"X1840J MUSIC - OPEN EXIT T7,100+^J15?h6,(220(J10))Hr768O|Ja7,200:6,160j768p MUSIC - "WIN"J10100106,100J:7,100:768JJ10100106,210J:7,100:768J ERROR ROUTINE16368,0.(16287)127(16286)127390d(16384)1281490:R$((16384)128):16368,0R$"Q"R$(113)390::"SEE YOU LATER!!" MUSIC - GOT LETTER7,100J13"6,200:768,6,100:7686J@ OPEN EXITFCLWL1400:P0:180,20200,20200,40AZ3Kd1620an CHECK FOR "WIN"kxMPNPMP36CLWL143010901:21:958"YOU DID IT!!!"1710 QUIT ROUTINE"PRESS Q TO QUIT-RETURN TO PLAY AGAIN"; ))ĺB$;:1130'((NP0)(JF1))1090@MANP(MP,1),P(MP,2)YMANP(NP,1),P(NP,2)mNPLP(CL)1310yI1WLNPLP(I)L$(CL)L$(I)1310 I14001550(22:(2CL1)::L$(CL);:2(LN(CL)64)P(NP,1),P(NP,2):CLCL1  TO QUIT)"MANP(1,1),P(1,2):MP1 DRAW COMMANDS ON SCREENJF1090UC11ĔUC64240,70:10200:ARROW240,70LC8ĔLCLP(I,1),P(I,2)I 01 PLACE LETTERS= I1WLQ*LP((1)34)2^4I1860i>J1I{HLPLP(J)810RJ\LP(I)LPfLN(I)64P(LP,1),P(LP,2)pIzCL1:LP(WL1)0 PLACE MAN AND DIRECTIONS1:21:958'"M)1 II135(T((1)3)1]T1(T2(I((((I1)6))6)6))(T3I30)770R1((I1)6):R6R1:CI(R16)R1R6C6770T3750RT(I)1:LT(I1)10:WALLP(I,1),P(I,2)770UP(I)1:DN(I6)148:WAL LEFT COMMANDS4 RC("K"):RA21: RIGHT COMMANDSD & DRAW MAZEW 0:1:21:958s :100,140200,140200,20 D80,12080,20200,20 NI136 XUP(I)0:DN(I)0:RT(I)0:LT(I)0 bI lI16 vDN(I)1:UP(30I)1LT(1(I1)6)1:RT(I6I :250! W((1)NW)12 WF(W)1430> WF(W)1O WL(WD$(W))[ I1WL L$(I)(WD$(W),I,1):LN(I)(L$(I)) I  SET UP COMMAND STRINGS UC("I"):UA11: UP COMMANDS DC("M"):DA10: DOWN COMMANDS LC("J"):LA8:N,GIRL,BOY. @ KEYBOARD OR JOYSTICK COMMANDS< J10:958q TJF0:"KEYBOARD OR JOYSTICK (K OR J)? ";:R$:R$ ^R$(R$,1) hR$"J"R$(106)JF1 rR$"J"R$"K"R$(106)R$(107)ĺB$;:330 | GET WORD I1NW WF(I)0430 ,DN(36),RT(36),LT(36),WD$(NW),WF(NW)0 I136T R1((I1)6):R6R1:CI(R16)i P(I,2)(R20)10~ P(I,1)(C20)70 I I1NW WD$(I) WF(I)0 I "3:1 ,WALL27:MAN28:ARROW29 6 CAT,DOG,BIRD,BOAT,CAR,APPLE,TREE,MA(4):B$(7) n1790! xNW10< D$"BLOAD MAZE.SHAPES"U D$"BLOAD MAZE.TUNE"` 216,0t 232,0:233,144 :4:"SPELLING MAZE BY W.P. DOYLE, JR." "COPYRIGHT 1987 BY MICROSPARC, INC.":20:"RETURN TO CONTINUE";:Z$:$ P(36,2),UP(36) **********************9* SPELLING MAZE *U* BY W. P. DOYLE, JR.*q(* COPYRIGHT (C) 1987 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************P SET UP PROGRAMZ368641024((48896)76) dD$    $?o 666';'Mm%6 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?$ ?7-->? - >;.--RIII:?--->???----????----???7--RII=0`866%e<876.#$u?Dd-$'?..575-.>>$?<<>>>>. -6666>?,%$$$76>$$$$MI<HTamy%0;GS]j}*%<86n $?$,-?'$ @?66- $,-66?'$%@??6.6---@??6.6 F6?? $,(--$6.6M!$@+66> s- $$$c 366n 8 $6--d066$$$V$$$366&$(u66?$e<8?6.6h$< z#????    Ҡ͠Ӡ ͮŠ Ӡ ŮӠ ŮŠ נ٠ נϠ Ơ ƠϠ ƠӠϠĠҠ6ҠӠӠ ҮԠǠŠ>"; <16368,0:A$:? F22:"CATALOG":998:(4)"CATALOG"E P AG 5/24/08 255:::F"NIBBLE PROGRAMS - VOL. 8, PART 2"n"================================"(6:"THIS DISK CONTAINS PROGRAMS FROM NIBBLE MAGAZINE, VOL. 8 (1987), ENTERED AND COLLECTED IN 2008." 219:" 49232,0:49239,0:49234,0:49237,0::SWITCH TO GRAPHICSv530:TABLE,T1:710:720:740:720::MESSAGE BOXES TABLE,T2:J15:1LE(1),VK:Z1200::820::2LE(1),VK:TABLE,T1:X$"ESC":VVK:H11:700:*X$"RTN":V3VK:HLE(1)712HK:0BOXQW,XY,XY,ZW,ZW,X:I12:WI,XIWI,ZIYI,ZI:::BIG MESSAGE BOXlX$"PRESS ..."W60:X165:Y215:Z185:: BOX0:IX1Z1:W1,IY1,I::3::ERASE BOX0:IX19Z1:W1,IY1,I::3::ERASE BOX):N((X$,I,1))31:NCHK7I,RVK:NC1HK7I,RVK::3::DOUBLE THICK LETTERSI1(X$):((X$,I,1))31H8I,V:((X$,I,1))31H18I,V:::DRAW TEXTI1(X$):((X$,I,1))31H5I,V:::DRAW TEXTW20:X120:Y260:Z150::BIG UP AND DOWN ARROWS MAY BE USED":L$;::PROMPTSFL0:K14:T(K)Y(K):T$(K)L$(K):K$(K)F$(K)::F$"LEFT "::LEFT HOME KEYSLINE((4)1)2::CURSOR CHOICE22:1:L$:23:1:"Press to Continue...";:16384,0:X$:T0:I1(X$K:I19:14HKLE(1)IHK2,5VK::,N=XSUBROUTINESCbKl:v1:10)"NIBBLE KEYBOARD TUTOR":19)"by":13)"Mark R. Craven"::"Copyright (c) 1987 by microSPARC, Inc.":L$:121:1:L$:" <- -> TO SELECT TO EXECUTE":4)"2:1LE(2)HKI,2VK::I13:18I9,3VK:8ROW 3&I112:1LE(3)HKI,3VK::I12:1LE(3)12HK(HKI)2,3VK:0I14:188.8I,4VK::I111:1LE(4)HKI,4VK::I14:1LE(4)11HKIHK2.5,4VK::ROW 4&D14HKLE(1),5VI14:R$(I)::RIGHT HOME KEYSBI14:F$(I)::FINGER NAMESUI14:Y(I):S$"1234567890QWERTYUIOPASDFGHJKL;ZXCVBNM,./"950:MAIN MENUDRAW KEYBOARDROWS 1 & 2-TABLE,T2:I112:1LE(1)HKI,VK::I11")2(X$"Y"X$"U")3(X$"H"X$"J")4(X$"N"X$"M")m K(A)(X$"8")2(X$"I")3(X$"K")4(X$",") L(A)(X$"9")2(X$"O")3(X$"L")4(X$".") C(A)(X$"0")2(X$"P")3(X$";")4(X$"/") I14:L$(I)::LEFT HOME KEYS A)(X$"1")2(X$"Q")3(X$"A")4(X$"Z")a ^S(A)(X$"2")2(X$"W")3(X$"S")4(X$"X") hD(A)(X$"3")2(X$"E")3(X$"D")4(X$"C") rF(A)(X$"4"X$"5")2(X$"R"X$"T")3(X$"F"X$"G")4(X$"V"X$"B")8 |J(A)(X$"6"X$"7 SHAPE TABLE POINTER2 HK$"ASDFJKL;":HOME KEYS^ I14:LE(I)::LEFT EDGE FOR GRAPHICS "I013:J:IBEEP,J::TONE ROUTINE POKE INTO MEMORY , 6DEFINE KEY POSITIONS @ JH(A)LE(3)(A6(FLAG0))HK:HOME KEY H POSITIONS, TA(AR DISK ONERR 7:958, 35328:$8A00J L$"":I139:L$L$"=": CUR38144:TABLE233:T1144:T2148:T3143:HI BYTES OF 3 SHAPE TABLES BEEPCUR15:VK20:HK18:1:0:3:230,64:NOISE, VERTICAL KEY,HORIZ.KEY,PLOT PAGE 232,0:LO BYTE OF FILES9 10:2:"READING DISK FILES -- DON'T GO AWAY."V (4)"MAXFILES 2":2660~ (4)"BLOAD CHAR.SET,A$9000":36864 (4)"BLOAD KEYS,A$9400":37888 (4)"BLOAD CURSOR,A$9500":38144 (4)"BLOAD FINGERS, A$8F00":36608 216,0:CLE4 **********************; * KEYBOARD TUTOR *X * BY MARK R. CRAVEN *u( * COPYRIGHT (C) 1987 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************d:nI139:L$L$"=":x630 LOAD                   en not actually typing.":"For your ";::"LEFT";::" hand, these keys are"::15)"A S D F"::"and for your ";::"RIGHT";::" hand they are"::15)"J K L ;":670:X$(27)İ620:95055:1:958::"Follow the instructions given UR,11,17,9,29+660:LINE1010,1520,2130CLINE1002460:'?'T:::'ESC':62450:9)"LEARNING THE HOME KEYS"::L$:27)" to Menu":"The keys known as the HOME KEYS are the"::"keys upon which your fingers lightly"::"rest wh),L(I)VK:d1HK(10(X$"-")2(X$"=")(X$(91))2(X$"]")(X$"'"))LE(C(I)),C(I)VK:7:1:"'?'=Help";29)"=Quit":F10:KEY DRILL FLAG640:1:11:12)"LEARN HOME KEYS"::11)"HOME FINGER DRILL"::13)"KEYBOARD TEST" Cp12HKLE(I),S(I)VK:<z1HK3LE(D(I)),D(I)VK:1HK(4(X$"5")(X$"T")(X$"G")(X$"B"))LE(F(I)),F(I)VK:1HK(6(X$"7")(X$"U")(X$"J")(X$"M"))LE(J(I)),J(I)VK:1HK8LE(K(I)),K(I)VK: 1HK9LE(L(I):690:3::PRINT ON KEY=47,10:6,15:BEEP::SPECIAL KEYc>7,15:6,24:BEEP::MESSAGE BEEPH6,20:7,40:BEEP:BEEP::RIGHT ANSWERR7,15:I18:6,20I:BEEP:::RIGHT KEY\6,60:7,20:BEEP::WRONG ANSWERf1HKLE(I),A(I)VK:E TYPICAL COMPUTER":HW2:VX5:690:X$"KEYBOARD.":VX14:690nV730:HW2:VX5:690:830:810:PRINT RTN`16368,0:X$j740:750:710:750:ERASEtX$"DURING THE DRILL, YOU MAY":HW2:VX5:690:X$"QUIT BY PRESSING ":VX14:690 ~next for"::"help in learning the correct position "$:"for your fingers in order to learn to"::"type.":670:X$(27)İ620:950.770:GRAPHICS8X$"LEARN THE HOME KEYS":V3:H65:TABLE,T1:690B790:MESSAGE BOXES?L710:X$"THIS IS THTABLE,T2:I15:1H(K),3VK::3:1H(K),3VK:TABLE,T1:(T$(K))31H(K),3VKa16368,0(16384)128X$((16384)128):1330(TABLE,T3:120187(FL1)8K,99T(K):J150::13102X$(27)K4::650:620:950<X$(91)137020187(FL1)K81,I20187(FL1)K87,I::FFLAG0Ĕ260,107dFLAG1Ę48:2207,115:0K14:FOR EACH SET OF HOME KEYSTABLE,T1:X$"PRESS THE '"T$(K)"' KEY WITH YOUR ":VX5:HW2:690:X$F$K$(K)" FINGER.":VX14:690:830S 800:%730:HW2:VX5:690QX$" OR ...":VX14:690:830:X$iX$(27)İ620:950740:750:710:750HOME KEY DRILL650:SET LEFT KEYS03:TABLE,T3:K14:120187(FL1)8K,99T(K):I99T(K)8115:PEAT DRILL.":VV18:6902!730:HW2:VX5:690W!X$"OR SPACE BAR...":VX14:690!16368,0:X$:X$(32)İ620:950:BACK TO MAIN MENU!TABLE,T2:550:TABLE,T1:810:740:750:710:750:1230:REPEAT DRILL!! * HOME KEY DRILL *":K$(5I)F$(I):T(I)Y(5I)::1240:RIGHT HOME KEYS TABLE,T3:K14:12078K,99T(K):I99T(K)8115:207K81,I20K87,I::!TABLE,T1:X$"SPACE BAR":R5:C80:680:710:750:X$"HOME KEY DRILL COMPLETE.":VX5:HW2:690:X$"SPACE BAR TO REFX$" "İ860:13004PX$T$(K)X$((X$)32)NZX$T$(K)İ860:1300rd3:120187(FL1)8K,99T(K)nTABLE,T1:840:710:X$"VERY GOOD!":VX23:HY90:690x710:750:FLAG1FLAG0:14403 FLAG1:F$"RIGHT ":I14:T$(I)R$(I)1HKLE(I),A(I)VK:820:$%1970F%Z$"2WSX":I14:X$(Z$,I,1)%TABLE,T2:12HKLE(I),S(I)VK:22HKLE(I),S(I)VK:TABLE,T1:(X$)312HKLE(I),S(I)VK:820:%1970%Z$"3EDC":I14:X$(Z$,I,1)T&TABLE,T2:1HK3LE(D(I)),D"$|F1İ780:1680:SET GRAPHICSa$TABLE,T1:62450:X$"FINGER DRILL":H86:V4:690:780:790$LINE1690,1720,1750,1780,1820,1870,1900,1930$Z$"1QAZ":I14:X$(Z$,I,1)%TABLE,T2:1HKLE(I),A(I)VK:2HKLE(I),A(I)VK:TABLE,T1:(X$)3to Practice "; #"16368,0:X$?#,X$(27)İ620:950:Z#6X$"?"2570:HELP (?)m#@X$(91)1640#JI18:X$(HK$,I,1)LINEI:I8::820:1650#T#^X$" "X$((X$)32):1600#h860:1570$r10:5LINE3::" "(HK$,LINE,1)" ";:A":12)"HOME KEY DRILL"::L$:"'?'=Help"28)" to Menu"l"I18:10:53I:" "(HK$,I,1)" ":":I15:7I:7:" ";:32:" ";::J8124:I732:J:I:" ";::::"21:L$#22:1:"Select by pressing the HOME KEY you want";:"$"7")(X$"U")(X$"J")(X$"M"))LE(J(I)),J(I)VK(:TABLE,T1:(X$)31HK(6(X$"7")(X$"U")(X$"J")(X$"M"))LE(J(I)),J(I)VK:820:(D1970(NZ$"8IK,":I14:X$(Z$,I,1)5)XTABLE,T2:1HK8LE(K(I)),K(I)VK:2HK8LE(K(I)),K(I))LE(F(I)),F(I)VKq'TABLE,T1:(X$)31HK(4(X$"5")(X$"T")(X$"G")(X$"B"))LE(F(I)),F(I)VK:820:{'1970'Z$"67YUHJNM":I18:X$(Z$,I,1)'&TABLE,T2:1HK(6(X$"7")(X$"U")(X$"J")(X$"M"))LE(J(I)),J(I)VK5(02HK(6(X(I)VK:23HKLE(D(I)),D(I)VK:TABLE,T1:(X$)313HKLE(D(I)),D(I)VK:820:^&1970&Z$"45RTFGVB":I18:X$(Z$,I,1)'TABLE,T2:1HK(4(X$"5")(X$"T")(X$"G")(X$"B"))LE(F(I)),F(I)VK:2HK(4(X$"5")(X$"T")(X$"G")(X$"B")..";:X$:2130A8 :7)"HOME KEY DRILL HELP SCREEN"::L$:34,48 :"This drill lets you practice with the"::"individual HOME KEYS previously "::"learned. From the horizontal row of":-9 "letters, select the finger you wish to"::"practice wi$:24:1:"Press to Continue...";:X$7 4:958:6:1:"REMEMBER:":::"Keep your fingers over the appropriate"::"HOME KEYS."::"Take your time. Accuracy is more "::"important than speed."8 22:L$:23:1:"Press to Continue.me character"::"to be printed in the larger box.":6 :"An incorrect response will produce a "::"click, and the character will be print-"::"ed in INVERSE mode in the large box.".7 :"The score is given at the end of the "::"exercise.":23:Ldrill with scoring."::L$_5 24:1:"Press to Return to Main Menu";:X$::620:9505 ::11)"KEYBOARD TEST HELP"::L$56 :"This is a test of ACCURACY, not speed."::"Each correct response to the framed"::"character will cause the saach which keys go with which finger"::"on the HOME KEY row."4 ::"The HOME FINGER DRILL will exercise "::"each HOME KEY finger over the range"::"of keys used by that finger."5 ::"The KEYBOARD TEST will provide a 'press"::"the right key' T EDGE OFFSET FOR EACH KEY ROWT3j 166,7,173,48,192,165,6,32,168,252,202,208,245,96b3t A,S,D,Fp3~ J,K,L,;3 LITTLE,RING,MIDDLE,INDEX3 0,7,9,53 :10)"MAIN MENU HELP SCREEN"::L$:34,5>4 :"The LEARN HOME KEYS selection will "::"teT ANSWERS";:7:1:"OUT OF "B".";:11J2$ :"THAT'S "(100(BWR)B)" %";c2. 22:1:958:22:L$28 23:1:"Press to Continue...";:16368,0:X$:X$(13)21302B X$(27)ĉ:620:9502L 860:23602V SOUND ROUTINE3` 20,29,35,43:LEF TEXT SCREEN116368,0:X$81X$(27)JB::2130Q1X$(32)İ860:2260i1X$Y$ĺX$;::23201X$(96)X$((X$)32):22901 820::X$;::WRWR1:1 23:34,3:35,24:32,0:33,40:RESET WINDOW%2 5:1:"YOU GOT "BWR;:6:1:"RIGH$:"Type the character that appears in the":"small box as it appears.";:1:3:" ";:8 SPACES IN QUOTES033,10:32,15:34,10:35,10B10::35,11B100WR0:J1B:Y$(S$,(S$)(1)1,1):# WRONGS=WR 11683,(Y$)128:POKE CHARACTER INTO"*":7:18:"*";:22:"*":8:18:"*****"/10:15:" ":I1B10:10I:15:" ";:26:" "::10I:15:" "::BIG BOX--12 SPACES IN QUOTES/6:25:"INCORRECT":25:"RESPONSES SHOWN":25:"AS ";::"INVERSE";::"."o022:L:17)"100":18:"SELECT LENGTH OF TEST (# OF CHARACTERS)":640m.fCUR,8,14,15,22:660:LINE1002510:HELP.pLINE1ĉ:620:950.zB10(LINE1)20(LINE2)50(LINE3)100(LINE4).*/:4:18:"*****":5:18:"*";:22:"*":6:18:"*";:22:::F20:1560*-X$(96)X$((X$)32)\- J1(Z$):X$(Z$,J,1)J(Z$)::850:2050m-*:860:2050s-4-> KEYBOARD TEST-H-R::13)"KEYBOARD TEST":L$:"'?'=Help"27)" to Menu":34,3:?.\8:18:"10"::18)"20"::18)"50":0:2050:DON'T PRINT AGAINX,740:750:X$" TO MENU":VX5:HW3:690:800,X$"BEGIN TYPING":VX14:HW20:690:830:F21:F11,16368,0:X$:X$(27)2070 - :TABLE,T2:I1(Z$):X$(Z$,I,1):LINE870,880,890,900,910,920,930,940T":I14:K$(I)F$(5I)::FLINE4:SWAP FINGER NAMES+710:F1710:F1760:F12010:X$"THE OUTLINED KEYS ARE YOUR":VX5:HW3:690:X$"DRILL KEYS. TYPE USING ONLY":VX14:690+710:X$"YOUR "F$" "K$(F)" FINGER.":HW3:VX23:690 ,F1İ83(Z$,I,1)2*TABLE,T2:1HK10LE(C(I)),C(I)VKR*2HK10LE(C(I)),C(I)VK*TABLE,T1:(X$)31HK10LE(C(I)),C(I)VK:820:*10:5LINE3:" "(HK$,LINE,1)" ";:F22060*LINE5F$"LEFT":I14:K$(I)F$(I)::FLINE:20005+F$"RIGHVK:TABLE,T1:(X$)31HK8LE(K(I)),K(I)VK:820:?)b1970a)lZ$"9OL.":I14:X$(Z$,I,1))vTABLE,T2:1HK9LE(L(I)),L(I)VK:2HK9LE(L(I)),L(I)VK:TABLE,T1:(X$)31HK9LE(L(I)),L(I)VK:820:)1970*Z$"0P;/":I1(Z$):X$ther finger to "::"practice."i:< 23:L$:24:1:"Press to Return to DRILL MENU";:X$::1520o:F :P ** ONERR DOS ERRORS **:Z :d (222)6E$"BINARY FILE NOT FOUND ON THIS DISK.":26900;n (222)8E$"DISK I/O ERROR ENCOUNTERED.":E1th by pressing the"::"associated HOME KEY."j9( :23:L$:24:1:"Press to Continue...";:X$::2 :"You may exit the exercise by pressing"::"the ESC key while typing. At that "::"point, you may return to the main"::"menu or select ano$"CHECK DRIVE DOOR AND RUN PROGRAM AGAIN":2690;x E$"DOS ERROR # ";(222)" ENCOUNTERED. ":E1$"CHECK YOUR DOS MANUAL FOR DETAILS.":; 7:958:10:X$E$:2700:12:X$E1$:2700:21:X$"FATAL ERROR -- CANNOT CONTINUE.":2700:216,0:< 20(X$)2: g ʆ g ʆ g ʆ g ʆ (ɠ0()?(A=95ߩа( (8`( (б5?$-56??$$--566???$$$---5666????$$$$----56666?????$$$$$-----566666??????$$$$$$------5666666??????$$$$$d-----m66666??????-----m66666?????$$$$$d$?o 666';'Mm%6 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?$ TO QUIT)"MANP(1,1),P(1,2):MP1 DRAW COMMANDS ON SCREENJF1090UC11ĔUC64240,70:10200:ARROW240,70LC8ĔLCLP(I,1),P(I,2)I 01 PLACE LETTERS= I1WLQ*LP((1)34)2^4I1860i>J1I{HLPLP(J)810RJ\LP(I)LPfLN(I)64P(LP,1),P(LP,2)pIzCL1:LP(WL1)0 PLACE MAN AND DIRECTIONS1:21:958'"M)1 II135(T((1)3)1]T1(T2(I((((I1)6))6)6))(T3I30)770R1((I1)6):R6R1:CI(R16)R1R6C6770T3750RT(I)1:LT(I1)10:WALLP(I,1),P(I,2)770UP(I)1:DN(I6)148:WAL LEFT COMMANDS4 RC("K"):RA21: RIGHT COMMANDSD & DRAW MAZEW 0:1:21:958s :100,140200,140200,20 D80,12080,20200,20 NI136 XUP(I)0:DN(I)0:RT(I)0:LT(I)0 bI lI16 vDN(I)1:UP(30I)1LT(1(I1)6)1:RT(I6I :250! W((1)NW)12 WF(W)1430> WF(W)1O WL(WD$(W))[ I1WL L$(I)(WD$(W),I,1):LN(I)(L$(I)) I  SET UP COMMAND STRINGS UC("I"):UA11: UP COMMANDS DC("M"):DA10: DOWN COMMANDS LC("J"):LA8:N,GIRL,BOY. @ KEYBOARD OR JOYSTICK COMMANDS< J10:958q TJF0:"KEYBOARD OR JOYSTICK (K OR J)? ";:R$:R$ ^R$(R$,1) hR$"J"R$(106)JF1 rR$"J"R$"K"R$(106)R$(107)ĺB$;:330 | GET WORD I1NW WF(I)0430 ,DN(36),RT(36),LT(36),WD$(NW),WF(NW)0 I136T R1((I1)6):R6R1:CI(R16)i P(I,2)(R20)10~ P(I,1)(C20)70 I I1NW WD$(I) WF(I)0 I "3:1 ,WALL27:MAN28:ARROW29 6 CAT,DOG,BIRD,BOAT,CAR,APPLE,TREE,MA(4):B$(7) n1790! xNW10< D$"BLOAD MAZE.SHAPES"U D$"BLOAD MAZE.TUNE"` 216,0t 232,0:233,144 :4:"SPELLING MAZE BY W.P. DOYLE, JR." "COPYRIGHT 1987 BY MICROSPARC, INC.":20:"RETURN TO CONTINUE";:Z$:$ P(36,2),UP(36) **********************9* SPELLING MAZE *U* BY W. P. DOYLE, JR.*q(* COPYRIGHT (C) 1987 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************P SET UP PROGRAMZ368641024((48896)76) dD$!! ! ! ! ! !!!!!!""" " " b JOYSTICK CONTROL4l1:24:"USE THE JOYSTICK";DvI1150:I\R0:P0(0):P1(1)mP0100RLC~P0156RRCP1100RUCP1156RDCX(16384)X1272010X155R2716368,01160 iB$;B$;B$;:"THE FILES MAZE.SHAPES AND MAZE.TUNE"d"MUST BE IN THE DEFAULT DISK DRIVE.""PLEASE PUT THEM THERE AND PUSH 'C',"&"OR PUSH 'Q' TO QUIT."0R$:R$:R$"C"ĦDR$"Q"R$(113)ĀNB$;"PUSH C OR Q"X1840J MUSIC - OPEN EXIT T7,100+^J15?h6,(220(J10))Hr768O|Ja7,200:6,160j768p MUSIC - "WIN"J10100106,100J:7,100:768JJ10100106,210J:7,100:768J ERROR ROUTINE16368,0.(16287)127(16286)127390d(16384)1281490:R$((16384)128):16368,0R$"Q"R$(113)390::"SEE YOU LATER!!" MUSIC - GOT LETTER7,100J13"6,200:768,6,100:7686J@ OPEN EXITFCLWL1400:P0:180,20200,20200,40AZ3Kd1620an CHECK FOR "WIN"kxMPNPMP36CLWL143010901:21:958"YOU DID IT!!!"1710 QUIT ROUTINE"PRESS Q TO QUIT-RETURN TO PLAY AGAIN";