' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD#ةHH=C?L,µL˵H̵Hõ˵ĵ̵ h̵h˵LoµĵL= 8x8`-?0ݩ??ʥD EEE`   LD7c*p*q*` ['*` ~.3 #3 L3LA@@&E&&A@@&AA)߅CBBH&E&&A@B& ChLQhBAȌy8zx8v{v I7H7@)*AL@m{@AAA,+i(ˢ3Z@[A@ /@v wm{@8/e@@eAA3]ͥ@\ƊiY?AyC@B@B|ACLT$VXZdflpx|~**7777(*3]67V<<8:=???@@##topmnU^_R ij^_lk 󅔆nmLY^^ȱ^ȱ^eȱ^e(ӊ0Цe^^u**`*5".Q`pN%$#$$b"p"t""%%%%"""m%2"<"("-"P"y%%0#\##|"6$6$$$e<%%g< 7JJJJj*7h*I * aUL@* kU8*  L % Q(^*R*(jQ*0l^l\ * wU*u**W* '* H &h@ ['_* /QSIRb*_*L!`LLL*L7`**`LQ(LYLeLXLeLee Q*H\*(h0L&& $`(* &R*  \*Z*Ll8 R* HH\*`\*Z*[*Y*S*6`*LxQ*ɿu3'R*Ͳ*ʎR*ʎ]*]*]*ɍuLɍ}R*LR*ɍ*g^H8* ^&hZ*LɍR* &LͲ*ɊR*R*%* Q(L$Ͳ* Z*@ -^*  \*[*Z* Q(Y*\*[*Z*8`l6L_*Ȍb*_*Ͳ*]* !)Y( h( (֭Ͳ*Lɍ ['LL&_*_* ^& 9 )L&3 9 )a  ! 0L jLY ! u*< !(_*9 ) ˭*ɠu*ɠK_*9 )?L ˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &``@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`08` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 = ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠  HLRhH &hl8- ^ Q3ɾL\LLL` &LU`b`,  7# 7 7  7LL鍅^3൐حϭ4MRL鍅^3൐حϭ4MRLIތ ^Lo췩 鷽 I $I ԥ Hh`ةHH=C? u*`z#     ̮Ԡ àԠŠ ٮԠ"Ϡ "ƮǠ! ήԠ!ɭŠ- ŮԠ̠٠0̠Ԡ"L@px|~? ? @@@@@@`px````@`@@`@@@@@@pp0000008x`??0 xxp@p0000`@?0000@@`````pxp0000?000??80000 @`0xx??0??08 ?? ???000000000000?888888800008`p8`p@@@@@`p0xx@@``0xxxx@`p000xxpxppxxp8p`pp   @tLVLOɢ:`: LLH h(`jɛ Ihhhh ֩@PQ ALɇٍ ϭɭLl`Ll  L@@@@@pp0000008x`??0 xxp@p0000`@?0000@@`````pxp0000?000??80000 @`0xx??0??08 ?? ???000000000000?888888800008`p8`p@@@@@`p0xx@@``0xxxx@`p000xxpxppxxp8p`ppZ$) ($6:"DIGITS IN EACH OTHER'S NUMBER.":'r6:"AFTER MAKING A GUESS, A PLAYER IS":6:"TOLD IF THE GUESS IS TOO HIGH OR":6:"TOO LOW AND HOW MANY DIGITS":6:"ARE CORRECT.":'wT1:C$" ":(|6:"WILL THERE BE 1 OR 2 PLAYERS? ";:Z$"12":200:NP(4&C24:6:"PRESS ESC TO LEAVE DECIMAL HUNT.";;&D8b&E2:"DECIMAL HUNT INSTRUCTIONS"&J49,16223,16:49,17223,17&T6:6:"TO BEGIN, EACH PLAYER TYPES IN"&^6:"A SECRET 4-DIGIT NUMBER.":&'h6:"PLAYERS TAKE TURNS GUESSING THE":"USE THAT NUMBER.";.%.768,200:769,90:770?%.ZZ13000:\%.EU$" "%.PL213:20:EU$;:PL214:20:EU$;%/%Hq RETRUN TO MENU%0u952,12%1u(16):10:"...ONE MOMENT PLEASE....":(4);"RUN HELLO"%@130%A(16)N$(5)"15TGB0",$&N$(6)"16YHN0"D$0N$(7)"17UJM0"\$:N$(8)"18IK,0"t$DN$(9)"19OL.0"$NN$(10)"1  0"$XN$(11)"1 D 0"$b$. CANNOT USE 0 ROUTINE%.PL213:20:"SORRY. YOU CANNOT";:PL214:20:240,9,202,208,245,174,0,3,76,2,3,96P#D(1),DD(1,3),D$(1),G%(9,1),G$(9),N$(11)#B6$" ":DP$"0.123456789":DG$"0123456789"#N$(0)"10P;/0"#N$(1)"11QAZ0"#N$(2)"12WSX0"#N$(3)"13EDC0"#N$(4)"14RFV0"$:D:I,D:"r -- PLAY MUSIC<"w(1023)10Ĺ770,96:1690B"|^"I140:A,B:A11690x"768,A:769,B:770:I~""B8:A200B40"768,A:769,B:770:" 120,10,100,10,80,10,80,10,80,20" -1,0## 173,48,192,136,208,5,206,1,3,G%(J,1)X:G%(J,1):G$(J);8!6N150:160:AN20:1700:P!@ INIT HGR2 $ MUSIC!E(4);"BLOAD DECIMAL.SET,A35583": LOAD NUMERALS SET!G35582!H36358,255:36359,138!J36354::(15)(2),(16)!TI1100:A,B:A1ī1640!^I "hI770790"Z$"0"Z$ D0:I5DI5K G$(I)Z$:N8:160:G%(I,0)N14:G%(I,1)2d X7:JDI:1570:: I14:J4I8:1570::: X01:X202:BA$;:X205:C$;:X2011:BA$;:X2014:D$;: "G%(J,0):G%(J,1):B6$;:G%(J,1)29ı!,G%(J,1):";(BA$"D":C$"LOW":D$"HIGH":12mX01:X202:BA$;:X205:C$;:X2011:BA$;:X2014:D$;:W0:J03:G(J)0:: - DECIMALS RUN RAMPANTI08:N899:160:ZN10010:N8:160:ZZN1:N4:160:Z$(Z(10N)) (Z$,1,1)".I139141:I,0I,181:PX98:7,X63,X:70,X126,X:147,X203,X:210,X266,XX88:Y176:16,X16,Y:79,X79,Y:156,X156,Y:219,X219,Y24:2:" PRESS ESC TO LEAVE DECIMAL HUNT.";(12);2:Y2:2:Y:"PLAYER 1:";:Y20:"PLAYER 299:900:D(0)(X$):D$(0)X$>(I01:X$(D(I)100000):Z$X$l2J03:(X$)10(4J)DD$(I,J)"0":1350<DD$(I,J)(Z$,1):Z$(Z$,(Z$)1)FJ:I:n SET UP GAME BOARDx(16);(17);:X(0):X1:Y2:30,0274,0274,1810,1810,0Z$"."D1(X$"0"X$"":1220BX$"."X$"0.":1280V(X$)9991290]Iw(X$)0İ12000:1200 D$(1PL)X$:D(1PL)(X$):A107010:1700 TT1200::PLNP1N9998:160:XN1:N4:160:XX(10N):LO.0001:HI99P(Z$)TP2FL1o10:Y:"PLEASE ENTER A 4-DIGIT DECIMAL";:11:Y:"FOR YOUR OPPONENT TO GUESS.";1490:C$"X":PL0NP1PL213:Y:"PLAYER ";PL1;": XXXXX";X$"":D0:T0:I15Y10I:Z$DP$:DZ$DG$200:X$X$Z$C GUESSES."3TP1:FL0:T1:C$" ":ISIS0:11718:3:"DO YOU WISH INSTRUCTIONS (Y OR N)? ";:Z$"YN":200:Z$"N"ī116940001:IS1:112033,38:8:2:(5);:33,408:Y:T1:C$" ":"WILL THERE BE 1 OR 2 PLAYERS? ";:Z$"12":200:NNITj(16):2:A307t0,0272,0272,1810,1810,0Xy1,1271,1271,1801,1801,1~X1:Y2:(12);:24:Y:" PRESS ESC TO LEAVE DECIMAL HUNT."; 2:14:"DECIMAL HUNT"::4:"HUNT FOR A SECRET DECIMAL NUMBER BY":9:"MAKING STRATEGI":J16:Z$(X$,J,1):Z$""1070C5:N20J3:Z$"."ĺN$(11);\Z$"."ĺN$((Z$));k$J:(12);q.|B24:2CT1:C$" "D(5);"DO YOU WISH TO PLAY AGAIN (Y OR N)? ";:Z$"YN":200LY(Z$"Y")V` PRINTOPENING SCREEN & I:22:B6$;B6$;B6$;:?J56:J:(1PL)202:B6$;B6$;B6$;:^N1PL:X$D$(N):1030:" "8:X$"YOU":NP1PL1X$" I"J503010:PL208:B6$;B6$;:AJ10010:1700::PL205:X$;" WIN!!!";:A100J10:1700:J:(12);:!" Y$:D0Y$"."DD1'Y$"."NN18:D0DD1>LX$"0.00"gX.001X$X$"0":995XX10000:Z$(X)"00":Z$(Z$,2):XX10000X$X$Z$:XX10000:Z$(X)"0":X$X$Z$:X$(X$,6):XX10000:J810:J:2:B6$;B6$;B6$;XD(PL)HIX\NPL:1030:.X.01985nX$"":Z$(X):950:(Y$)4X$"":Z$((Z$)1(10D)):950N4D0X$X$"."N4āJ14N:X$X$"0":(Z$,1)"."X$"0"D0:N0:J16:Y$(Z$,J,1):Y$""N4J6:980X$X$0X$Z$:%  -COMPUTER GUESESR*2:32:"I WILL";:3:22:"GUESS NOW.";|4Q1N2000:160:XN10216:900:8405LO9998X9999:8346HI1X(HILO)2:834>Q1X((LOHI)2)BHI.0002X0.0000D900HXD(PL)LOXR14I:NN13:14I:PL202J:X$;:X1100:=A50:1700aPL20J2:B6$;:X1100::NN}14I:PL20J2:X$;: ERASE DIGIT GUESSEDX$""ı5:JJ1:PL20(J3)2:N$(10);:Z$"":(X$)1Z$(X$,1,(X$)1):(X$,(X$),1)"."DGIT CORRECTLY.";:l14I:D13:PL20J:N;:X1100:IvA50:1700jPL20J:" ";:X1100::D}PL20J:N;:8:PL20Y:"THIS IS TOO ";Y$;".";IG(X):G(X)I1:I8G(X)0G(X)0Ģ14G(X):PL20J:" ";:PL202J:B6$;.(PL)XPL2:Y$"LOW":J2:Z$C$:660SXDD(PL)XPL21:Y$"HIGH":J11:Z$D$:660k]TT1300:: PAUSE{^9:PL20Y_(PL1)(NP1)ĺ"I'VE CHOSEN ";N;:610`"YOU'VE CHOSEN ";N;b10:PL20YdN1ĺ"DIGITS CORRECTLY.";fN1ĺ"DIJ3)2:" ";::,D(X$):D(PL)DW1:QY$X$:N0:NN1:(Y$,1)"0"NN2I03:JNN(Y$):Z$(Y$,J,1):Z$"."570Z$DD$(PL,I)570Z$"":J1Z$(Y$,J1)&J(Y$)Z$Z$(Y$,(Y$)J)0Y$Z$:NN1:J6:JDI#NDDX$"0"390#X$"0"JJ1:X$""^X$X$Z$:5:PL20(J3)2:Z$"."ĺ" "N$(11)" ";:480" "N$((Z$))" ";:N1:NN0:(X$,1,1)"0"N2X(X$):X3āINX:(X$,I,1)"."NNNN1:NN4IJ:J6JI5āJI15:I56:I:PL20(NTER A";:3:PL20Y:"4-DIGIT DECIMAL.";Th1:J2173:5:PL20J:N$(10);::3n|D0:T10:X$"":J05Z$DP$(8):DZ$DG$(8)200:Z$(8)İ730:390Z$"."D1:X$"0"X$""X$"0":5:PL202:" "N$(0);(12);:J1:440 Z$"0"0:1700 "230< ,Z$(N):A30:1700:T1T11ĺ(19);Z$;B 6X @- GET NEXT GUESS B2:(1PL)2012:B6$;" ";:3:(1PL)20Y:B6$;B6$;B6$; EJ511:J:PL20Y:B6$;B6$;B6$;: JPL(NP1)İ800:490: COMPUTER GUESSES)T2:PL2012:"E FR(0)$ T7T71:T720T70A N(16384)128:N0240W (T10)ĺC$;(8);e N27130 (1023)10270: TEACHER SOUND CONTROL FROM MENU N7270 (770)96Ĺ770,173:270 770,96 Z1(Z$):((Z$,Z,1))N300 :A19CONTROLS CURSOR FLASH AND CHR PRINT, T=0 FLASH NO PRINT, T=1 FLASH AND PRINT, T=10 NO FLASH NO PRINT, T=11 NO FLASH PRINT. 16368,0: CLEAR KBD STROBE T70: SLOWING DOWN FLASH (T10)(T70)ĺ(9);C$;(14);(8); (T10)(T710)ĺC$;(8);E (16) YĬ50" 29000= GET RAND INTEGER 0-NR NN((1)(N1))m NNN(NN(N1))(N1)s - INPUT A KEY FROM THE KEYBOARD, Z$ ON INPUT IS MASK OF ALLOWABLE CHRS, Z$ ON OUTPUT IS TYPED CHR - ESC EXITS PROGRAMz - T RAM VARIABLES 716368,0:832H <1120: PRINT OPENING SCREEN & INITf F1390: SET UP GAME BOARD PQ110000:PL01:320: GET NEXT GUESS dW120 n1000:PL2:Q10000: PRINT WINNER xPL:Q TP129000 1090: ASK IF ANOTHER GAM 30000952,326 NEW 82/11/24 24:23 DBSR OLD 82/11/08 DHo DESIGNED BY DOUG SUPER PROGRAMMED BY GAIL NEWELL "DECIMAL HUNT"  24576(1600: INIT HRCG AND MUSIC-TP1 21750: INIT PROG          100 6/BL$" "D6nFP(2)O6xMP(2)[6SI$(2)f6LP(2)q6LH(2)6RD(QQ)(QQ100.1)1006/(QQ)(QQ100.1)1006/(0)" TOO LONG"-5T$(1)" TOO LONG"D5 T$(2)" "W5AN$"ABCDEFGH"f5A2$"+-;="q5(S1$""|52S2$""5FBL$" "5nFP(2)5xMP(2)5SI$(2)5LP(2)5LH(2)6RD(QQ)(QQ100.1)M3:M$(M))4M$(0)"2 HAIBCDEFG"F4M$(1)"2   "c4M$(2)"2 HAIBCDE G"{4O$"2 JKLMNOPQ"4$P$"2 RS"4tPT(2)4~DE(2,7,3)4BX(2,8)4TR04M1(15,2):M2(7,2)4M3(5,2)4M4(13,2)4T$(3)5T$pN$(2)"1 2WSX"-3zN$(3)"1 3EDC"E3N$(4)"1 4RFV"]3N$(5)"1 5TGB"u3N$(6)"1 6YHN"3N$(7)"1 7UJM"3N$(8)"1 8IK,"3N$(9)"1 9OL."3N$(10)"1  "3N$(11)"1))"3N$(12)"1--" 4230,252,172,252,0,252,230,252)2nI11332xP:DK2M4(I,1)P:M4(I,2)DR2I2 192,90,145,90,115,90,96,90,96,90,96,90,115,90,115,90,115,90,145,90,115,90,145,90,192,902G2H2RN12:N$(N)2\N$(0)"1 0P;/"2fN$(1)"1 1QAZ"3100,115,100,115,100,145,100,145,100,145,100,145,100,172,100,216,100,192,100,172,100^1I17h1P:D1 M2(I,1)P:M2(I,2)D1I1 192,90,145,90,115,90,96,90,0,96,115,108,96,9012I151ˢ24:55&H˺" P RESS THE SPACE BAR TO CONTINUE. ";@&RZ$" "J&\˰9000S&f˺A$;^&uˢ24:4&z˺"PRESS ESC TO LEAVE DECIMAL RALLY.";&ϱ&ֲ&֭A$(27)ES1:55999&֢1:1&ֺ""&WK$"FINISH LINE "' ׁI112:I:20:"  ";(WK$,I7:21:" ";%PK$"""%ð22000<%íA$(27)ES1:50999q%íPK$"PARKED"PK$"ALREADY PARKED"İ23000:50200|%ð24000%ð52000%íA$(27)ES1:50999%íPL1ī50110%ī50090%ĭPT(PN)6ī50999%ī50110%7DZ% ˲%*ˢ24:1%4˺BL$; "WILL THERE BE 1 OR 2 PLAYERS? ";:Z$"12":9000:A$:A$(27)30000V$xPL(A$):PN1_$}FL1e$k$Pò$ZPN1:TR1:SP99$xÁI12$FP(I)0:MP(I)0:LP(I)0:SI$(I)"+"$LH(I)1$ÂI$ð20000$íPL1TR0$ð21000$â4:21:" "; %"MAKE YOUR CAR STOP WITHIN SIX":4:"DECIMAL RANGES SHOWN ON YOUR SCREEN."r#Z:4:"THE CARS START AT 0.0 .":#d4:"TO ADD OR SUBTRACT A DECIMAL NUMBER,":4:"TYPE ITS LETTER LABEL AND THEN":4:"PRESS THE + KEY OR THE - KEY.":#iD$n4:3#"TM4(J,1)0āI1100:I:40050A"^768,M4(J,1):769,M4(J,2)J"h770Q"rJW"'i"(INSTRUCTIONSt"2(16)"724:4:"PRESS ESC TO LEAVE DECIMAL RALLY.";"<4:8:"DECIMAL RALLY INSTRUCTIONS""F49,32230,32230,3349,33K#P7:4:NE MOMENT PLEASE....":(4);"RUN HELLO"-!y@!"yM((1)501)X!,y768,M:769,10:770^!6yd!Xo!bJ17!lM2(J,1)0āI1100:I:39050!v768,M2(J,1):769,M2(J,2)!770!J!?!@ INSTANT ESC!A841:FLī29000!B240"JJ11LH(PN)NX wi xi! iI1152 i768,M1(I,1)C i769,M1(I,2)L i770S iIY _md jmJ12 tmM3(J,1)0āI150:I:28050 ~m768,M3(J,1):769,M3(J,2) m770 mJ Gq Hq952,12:(16):(4);"RUN MENU" 0u952,12'!1u(16):10:"...OeILH(PN)NX&eI1Ģ13:1:260503e13:I1>eM$(1)Ie13:ITeM$(0)ze(770)173āJ15:WK(16336):eIe26180eILH(PN)NX1f13:I1fM$(1)f13:I&fM$(0)0f(770)173āJ15:WK(16336)::fI Df(PN);a10:7aSI$(PN);)a10:9FbMP(PN)0ĺ"0.0";:25120Z bMP(PN)1ĺ"0";gbMP(PN);s b10:15|*b"="4b10:17>bLP(PN)0ĺ"0.0";:25999HbLP(PN)1ĺ"0";RbLP(PN);eeeNXLH(PN)ī26110eNXLH(PN)ī23999FZ19:LH(PN)PZM$(2)!]']1]SPPNF]A$(28)ī24050Z]NX1((CL1)6)e]26000q]PNPN1]PN2PL1PN1:24999^PN2aaa10:1:BL$;a10:1aFP(PN)0ĺ"0.0";:25060aFP(PN)1FP(PN)0ĺ"0";aFP50,pXWKDE(PN,I,2)WKDE(PN,I1,1)CLI13zXIBXCL0CL1HYNYXYSPPNyYPK$"ALREADY PARKED"ī23050ZPT(PN)PT(PN)1 ZNX(IX6)1Z26000ZPK$"PARKED"āK150:K:39000ZK17(Z16K:LH(PN)22Z" "XWKDE(PN,I,1).00001WKDE(PN,I,2).0000122640HXDE(PN,I,3)99PK$"ALREADY PARKED":22630RXDE(PN,I,3)99\XPK$"PARKED"fXIXI:I6:226VK16:9:1:"T OO FAR! ":W1200::9:1:" T OO FAR! ":W1200::lW9:1:" ":7:21:" "wW22110NW10:7:S2$;XW10:9bWBX(PN,(S1$)64)1ĺ"0";lWBX(PN,(S1$)64);vW10:15W"=";W10:17WWK0WK1ĺ"0";A$ V7:21VZ$A2$"V9000OVA$(28)A$(27)Ģ1:12:T$(2);:22999iVA$";"A$"="A$"+"rVA$;}VS2$A$VS2$"+"T7LP(PN)BX(PN,(S1$)64)VS2$"-"T7LP(PN)BX(PN,(S1$)64)VWK(T7100.2)100VWK0WK1022350I0VPP$"PLAYER "(PN)1V1:1:" ";V1:1F"VI18W,V(PP$,I,1);v6V768,20010I:769,20:770}@VIJV1:1TV" P LAYER ";PN;""^V4:21hVZ$AN$rV9000|VA$(28)A$(27)Ģ1:12:T$(2);:22999VA$;VS1$ЄS19:4(6(I1))SO$!SI,S25000<S13:LH(PN)GSM$(0)MUSUbUI1611mU10:IULP(PN)0ĺ"0.0 ":22007ULP(PN)1ĺ"0";ULP(PN);" ";UJ13U(770)173W2(16336)UJUIUSPPNī2211)),1)))S18:4(6(I1))' S"";0SP$;; S"";P*S21:5(6(I1))o4SN$((((DE(PN,I,2)),1)))>S21:7(6(I1))HS((DE(PN,I,2)))1ĺN$(0):21340RSN$((((DE(PN,I,2)),1)))\S22:6(6(I1))fS"";pSP$;zS"";PRESS ESC TO LEAVE DECIMAL RALLY.";3RI16NRDE(PN,I,3)99ī21200cR19:5(6(I1))nRM$(2)yR21400R17:3(6(I1))RN$((((DE(PN,I,1)),1)))R17:5(6(I1))R((DE(PN,I,1)))1ĺN$(0):21250RN$((((DE(PN,I,18:1:BL$;RR#RI182*RIG&R25:" ";R+R25:Ig0R" "(64I);" ";w:RI4ī21070DR"0";NRBX(PN,I);XR34bR(64I1);" ";lRI4ī21120vR"0";RBX(PN,I1);RIR13:1:""R24:4(R"W64W64.99ī20550#PBX(I,J)W6*PJ5QJ18@Q31000OQW1BX(I,J)_"QKJ101j,Q310006QBX(I,K)W1ī20820@QBX(I,K1)BX(I,K)JQKTQBX(I,K1)W1^QJhQIrQDE(1,7,1)999:DE(1,7,2)999:DE(2,7,1)999:DE(2,7,2)999 |Q1 PPWK(1)ZPWK.5ī205605dPW1WK1000:W2(W1)CnPW6W2100\xPW61W64.99ī20550mPJ5ī20640PW61W61.99ī20550P20710PJ6ī20670PW62W62.99ī20550P20710PJ7ī20700PW63W63.99ī20550P20710POW2(W1)OW6W2100(OJ1ī20440BOW6.01W6.09ī20370MO20510^OJ2ī20470xOW6.10W6.29ī20370O20510OJ3ī20500PW6.30W6.59ī20370 P20510PW6.60W6.99ī20370PBX(I,J)W6(PJN769,10;HNI1PLFRNJ16R\NWK(1)efNWK.98ī20060ppN31000zNW1WK100:W2(W1)NW7W210NW6(W7)NW7DE(I,1,1)W7DE(I,2,1)W7DE(I,3,1)W7DE(I,4,1)W7DE(I,5,1)W7DE(I,6,1)20060eN J"PICK A DECIMAL"4 J"FROM THE BOX (A-H):"> J6:1Y J"DO YOU WISH TO ADD"t J" OR SUBTRACT (+,-)?" J12:1 J"MOVE YOUR CAR TO EACH DECIMAL STATION."; J24:5 J"PRESS ESC TO LEAVE DECIMAL RALLY."; N N*N18:1LOAD RALLY..SET,A34815"1 .'36358,255:36359,135< 8'36354H B':""Q L'""W V'] 8Jh BJ(16)n LJu VJ6 [J154,0154,64 `J155,0155,64 jJ156,0156,64 tJ157,0157,64 ~J158,62279,62 J158,63279,63 J158,64279,64 J3:18:770 $1:12 "$T$(1)+ ,$J160:J6 6$1:12A @$T$(0)H J$IS T$1:12^ ^$T$(1)h h$9380} r$A$(27)ES1: |$A$(7)9380 $(1023)109040 $(770)96Ĺ770,173:9060 $770,96:9040 $ ' 'D$(4) $'(13);(4);"B9130 #(16384)12890605 #A$((16384)128)C #16368,0R #" "(8);^ #FR(0) #Z1(Z$):A$(Z$,Z,1)9190 #Z #768,180:769,50:770 #T0:9060 # #768,30:769,8:770 #A$(28)ī9330 $I110 $768,30:769, 29000 29000  (#0 2#Z$Z$(28)? <#Z$Z$(7)Q ?#Z$"NY"9030^ B#T0:TT0n F#Z$Z$(27)| P#16368,0 d#T0ĺ" "(8); n#T5ĺ" "(8); x#TT1:T10T0 #TR0Z$" "(28)(7)(27)ī9110 #TTTT1:TT600A$(28): . 30000952,32$767,0/d24568:i34814C255N10000Y61000l16368,0:832w6000059000A$(27)ī290001900050000ESES0:2405500056000A$"Y"Ĺ767,1:160A$"N"240                L`(Hb|ppp0008@@ PP((TT*j@@` ````xx??xx??xxx??xxx??xp px @@@@@pp0000008x`??0 xxp@p0000`@?0000@@`````pxp0000?000??80000 @`0xx??0??08 ?? ???@@@@U?@@TTU@@@@@@@@@@@@@@@0000?{`888888800008`p8`p@@@@@`p0xx@@``0xxxx@`p000xxpxppxxp8p` ,2,2,2,7,2,0,0,0,0,1,2,1,0,1,0,2,2,2O,0,2,2,21,2,0,2,2,4,0,0,0,2,2,2,2,0,3,0,0,0,2,2,2,4,0,0,2,0,1,0,1,2,2,1,0,1,2,2,0,1,2,1,5,0,2,0,0,1,1,2,0,2,2,6,0,2,0,0,2,0,2,2,2,1,0,1,4,0,0,2,0,0,2,2,2,7,2,0,0,0,0,1,2,1,0,1,0,2,2,2,0,2,2,201,2,1,5,0,2,0,0,1,1,2,0,2,2,6,0,2,0,0,2,0,2,2,2,1,0,1,4,0,0,2,0,096,2,50,114,1,150,86,1,50,103,1,100,128,2,100,96,1,255 1T 76,2,100,128,1,100,76,2,150,96,2,50,114,1,150,86,1,50,103,1,100,128,2,1001^ 76,2,100,128,1,100,72,2,100,114,2,100,103,1,100,64,1,100,96,2,2551Pò DATA FOR TITLE PAGE2ZÃ 5,0,2,0,0,1,BEWARE OF HIDDEN TREES.":!0uNd0zN4:"WILL THERE BE 1 OR 2 PLAYERS? ";:Z$"12":7000:PNZ:A$;j0R0Hq RETURN TO MENU00u952,120:u(16)::10:"...ONE MOMENT PLEASE....":(4);"RUN HELLO"0@35463:48071J 76,2,100,128,1,100,76,2,150,A DECIMAL POINT":4:"IN THE CORRECT PLACE.":/\N4:"YOU CAN MOVE THROUGH THE MAZE":4:"AFTER TYPING IN A CORRECT ANSWER:"/fN:12:"TYPE U TO GO UP":12:"TYPE D TO GO DOWN":12:"TYPE R TO GO RIGHT":12:"TYPE L TO GO LEFT"0pN:4:"NINSTRUCTIONS.*N(16)L.4N24:6:"PRESS ESC TO LEAVE MULTI-MAZE.";g.9N56,8230,8230,956,9.>N1:9:"MULTI-MAZE INSTRUCTIONS".HN:4:"REARRANGE DIGITS TO FIND THE":4:"ANSWERS TO MULTIPLICATION PROBLEMS."./RN:4:"REMEMBER TO ADD -> DISPLAY TREESI->I013:J04:72I:12J:M(I,J,PL)1ĺN$(17)Q->:W->x-hB INCREMENT & DISPLAY TURN #-rBNTNT1:PTPT1-wB2:2:NT;-|B-PF DISPLAY # OF TURNS-ZF1:22:"";:5:"YOU SOLVED THE MAZE IN "NT" TURNS.";-dF. ";,2(,6 ANNOUNCE WINNER9,7(770)96ız,8A768:B769:C801:D802:I023:A,T(I):B,E(I):C,D(I):D:,8,: PROMPT FOR NEW GAME,:24:1:" DO YOU WISH TO PLAY AGAIN (Y OR N)? ";,:Z$"YN":7000:""A$;,:Y(Z1),:L)4+/X(PL)X:Y(PL)Y<+/1:22:"";:12010: NEXT MOVEM+/1:22:"";S+/u+/72X(PL):12Y(PL):N$(18)+/35:5:"  ";:35:5:N$(10):7:237,32258,32258,48+/+2 CLEAR DIGIT BOX ,219:26:" ";:20:26:" )212140: OK MOVE#*D/ HIT TREE>*N/768,255:769,255:770e*X/M(X,Y,PL)1Ė72X:12Y:N$(17)u*]/M(X,Y,PL)2*b/12170*l/72X(PL):12Y(PL):N$(18)*v/72X:12Y:N$(19):72X:12Y:N$(16)*{/X(PL)0M(X(PL),Y(PL),PL)3+}/M(X,Y,PA$"U":Z1#).A$(21)A$"R":Z3/).""A$;[).XX(PL)(Z3)(Z4):YY(PL)(Z1)(Z2))/X14Y212210: MAZE COMPLETED)/X0X13Y0Y412090: LEGAL MOVE)/I14:768,200:769,30:770:J150::)0/12170*:/M(X,Y,PL)1M(X,Y,PL(>+N$(18):110903(H+N$(19):72I:12J:N$(16);(R+:A(\+`(. GET & PROCESS MAZE MOVES(.1:22:"YOUR MOVE: UP, DOWN, LEFT OR RIGHT? ";(.Z$"UDRL"(8)(10)(11)(21):7000(.A$(8)A$"L":Z4(.A$(10)A$"D":Z2 ).A$(11) DISPLAY MAZE '+PN1DRı''+DR1`' +X(PL)1Y(PL)2Ė5:5:N$(19):5:5:N$(16):11030r'+5:5:N$(18)'+I013:J04:72I:12J' +M(I,J,PL)111050,11050,11060,11070,11080'*+N$(19):11090'4+N$(19):72I:12J:N$(17):110902&)'A((1)4)1@&.'I013:J04:M(I,J,PL)((1).75)::a&8'C2:I013:I13B2:10070{&B'AA1:A0BC:10070&G'A((1)3)2&L'B((1)5):BC10060&V'BCM(I,B,PL)0:10090&`'JBC(CB):M(I,J,PL)0:&e'CB&j':&t''*(D$(PL),I1)=%^#B$"":I(D$(PL))B$(D$(PL),(D$(PL))I)N%_#D$(PL)A$B$}%d#CP(PL)CP(PL)1:CP(PL)(C$(PL))CP(PL)0%n#%': DUMMY ROUTINE%' INITIALIZE MAZES%'X(1)1:Y(1)2:X(2)1:Y(2)2:X1:Y2: INIT PLAYER'S POSITIONS&$'PL1  "; $& C$(# PLACE DIGIT IF POSSIBLE - RETURN OK=1 IF PLACEDf$2#A$(C$(PL),CP(PL),1)OK0:o$<#OK1$F#15:272(CP(PL)1)$P#A$"."ĺN$(12);:9051$Z#N$((A$));$[# REMOVE DIGIT FROM D$(PL)$\#A$"."DP(PL)0:9060 %]#A$"":I1A$$((16384)128):I(16368)1#(A$)78170F#(1023)108170d#(770)169Ĺ770,96:8150w#770,169:8150#A$(27)ġ:480#I1(Z$):A$(Z$,I,1)8200#:8150# MAKE TONE# 768,50:769,8:770$ 15:272(CP(PL)1):" 263(I1):19:"  ";:+"Z$Z$"."A" GET A CHARACTERd"I(16368): CLEAR KBD STROBEl"T0"T0Ģ15:272(CP(PL)1):"  ";"FR(0)"T10Ģ15:272(CP(PL)1):"  ";"TT1:T20T0"(16384)1288150#A7160!:7060 ! MAKE TONE8!768,30:769,8:770b!T((1)T): RANDOMIZE y! A$(27)ġ::480! !@ GET A DIGIT!TZ$D$(PL)!(Z$)08105!I1(Z$):19:263(I1):N$(((Z$,I,1)));:"(Z$)5āI(Z$)15:" "(8); FR(0)- T10ĺ" "(8);A TT1:T20T0Z (16384)128ī7060 A$((16384)128):Z(16368):" "(8); (A$)77140 (1023)107140 (770)169Ĺ770,96:7060 770,169:7060!Z1(Z$):A$(Z$,Z,1),32258,48237,48DR0 HX SUBROUTINE TO GET A CHAR FROM KBDub Z$ CONTAINS A LIST OF VALID CHARACTERSl Z IS THE INDEX IN Z$ OF THE TYPED CHARACTER.qZ$Z$(27)vZ(16368): CLEAR KBD STROBE FLASH CURSORT0 T0PRESS ESC TO LEAVE MULTI-MAZE.";3:172,141275,141275,162172,162172,141173,142274,142274,161173,161173,142174,143273,143273,160174,160174,14335:5:N$(15);41,041,80237,80237,041,0:41,3227,3227,4841,48:237,32258xp INITIALIZE SCREEN*z"";G5:I8284:0,I279,I:PN1ē3,332,332,213,213,34,431,431,204,204,46:I178180:0,I279,I:12:"PLAYER 1, COMPLETE THE PRODUCT:"19:" YOU NEED THESE DIGITS:"%24:6:"1(B$(PL))15:C:CC2B (B$(PL),I,1)"."ĺN$(12):5150\N$(((B$(PL),I,1)))b{(CC1:C:15:N$(13)2C27<CP(PL)15240FI1CP(PL)1P15:C:CC2Z(C$(PL),I,1)"."ĺN$(12):5230dN$(((C$(PL),I,1)))n2:8:PL;+22:1:"";:15:1:"":""e19:26:" ";:20:26:" ";mC3I1(A$(PL))15:C:CC2(A$(PL),I,1)"."ĺN$(12):5080N$(((A$(PL),I,1)))CC1:C:15:N$(14)CC3 I:813,73:814,2:815,141:816,162:817,70:818,173:819,35820,94:821,73:822,16:823,141:824,35:825,94:826,173:827,163:828,70:829,73:830,16:831,141:832,163:833,70:834,76:835,7:836,3 DISPLAY PROBLEM AND SOLUTION SO FAR 15,0:786,3:787,136:788,208:789,244:790,206:791,1:792,3:793,208:794,239:795,206:796,33:797,3:798,208:799,234:800,96 POKE IN ARM-WAVING ROUTINE:802,173:803,34:804,94:805,73:806,2:807,141:808,34:809,94:810,173:811,162:812,70558336358,255:36359,138)36354/[ POKE IN EXTENDED MUSIC ROUTINE AT 770y(1023)10Ĺ770,96:4072770,169:771,1:772,141:773,33:774,3:775,174:776,0:777,3:778,202:779,208:780,6:781,173:782,48:783,192:784,17478": MAN (OVERLAY)<' N$(17)"1 EFGH": TREE (OVERLAY)`( N$(18)"  ": SOLID BLOCK) N$(19)"1():*": GRID BLOCK* I023:T(I),D(I),E(I):4  INIT HRCG, MUSIC ROUTINE:(4);"BLOAD MAZE.SET,A";35583: LOAD CHARS39)"1 9OL."- N$(10)"1 ABCD": MANL N$(11)"1 EFGH": TREEt N$(12)"1 IJKL": DECIMAL POINT N$(13)"1 MNOP": EQUALS SIGN N$(14)"1 UVWX": TIMES SIGN N$(15)"1!"(34)"#$%&": STAR% N$(16)"1 ABCD5)10000 ) INITIALIZE VARIABLES@ N$(0)"1 0P;/"W N$(1)"1 1QAZ"n N$(2)"1 2WSX" N$(3)"1 3EDC" N$(4)"1 4RFV" N$(5)"1 5TGB" N$(6)"1 6YHN" N$(7)"1 7UJM" N$(8)"1 8IK," N$()):(C$(PL),J,1)(I)D$(PL)D$(PL)(I)1r:isDP(PL)0:I1(C$(PL)):(C$(PL),I,1)"."DP(PL)1otuz DIM VARIABLES A$(2),B$(2),C$(2),CP(2),M(13,4,2),N$(19),X(2),Y(2),A(2),C(5),T(23),D(23),E(23),D$(2),DP(2) R(X)(X10000."0"A$(PL)1(B$(PL),1)"."B$(PL)"0"B$(PL)E CR(A(1)A(2))X*C$(PL)((C))i4CR(C(C))w>C02160CC$(PL)C$(PL)"."HCC10RC$(PL)C$(PL)((C))\CR(C(C))fC02120pCP(PL)1)qD$(PL)"":I09:J1(C$(PLZ:A$; t) GENERATE A NEW PROBLEM4I12\(1).2A(I)((1)91)100:2040A(I)((1)9010)10((1)42)A(I)(A(I)100.5)100I A(1)10A(2)102010A$(PL)(A(1)):B$(PL)(A(2)) (A$(PL),1)"."A$(PL)кN$(15);:VI8324:I:19:N$(11);:I2:21:N$(11);:X24:3:"DO YOU WISH INSTRUCTIONS (Y OR N)? ";:Z$"YN":7000:Z1ĺ"N";:1119Y"Y";Z20000:_24:1:(5);`6:24:"WILL THERE BE 1 OR 2 PLAYERS? ";jZ$"12":7000:PN40K20I7A,24K32B::A0A:B0B::.14:8:"FIND THE ANSWERS TO DECIMAL":" MULTIPLICATION PROBLEMS AND SEEK THE":" TREASURE AT THE END OF THE MAZE."85:I136139:0,I279,I:B6:I178181:0,I279,I:L3:20:N$(10);:37:20:ET # OF PLAYERS"";d7:30,16250,16250,9630,9630,1631,17249,17249,9531,9531,176:I18942:32,I248,I::I172:J:: READ OVER 2001 MUSIC DATA7'$I09:C,A0,B0:J2C:A,B:K11:40K20I7A0,24K32B0:"";),X14Y2330: MAZE COMPLETED86PLPNPL1@@90VJ ANNOUNCE WINNER|LPN1İ18000: DISPLAY # OF TURNSO16000: DISPLAY TREEST14000TI151015000: PROMPT FOR NEW GAMEY4530000 PRINT TITLE PAGE, G ":"";- X14Y2330b 1:22:" PRESS THE SPACE BAR TO CONTINUE. ";w Z$" ":265:270 7000:: MUST ENTER 7000 ROUTINE FROM CORRECT SUBROUTINE LEVEL TO ALLOW EXIT WITH 'ESC' KEY.1:21:" "14Y2330C 8:21:"BONUS MOVE.";:I13:768,40:769,8:770:N 12000W 250e PT3210{ 1:21:"GOOD."; 12000 250 1:21:"MORE THAN 2 ERRORS. ":"BETTER LUCK NEXT TIME. PRESS SPACE BAR."; 260 1:21:" OK=1 IF PLACEDz CP(PL)0Ĺ768,200:769,50:770:768,133:769,200:770:13000:180: CLEAR DIGIT BOX, GO GET MAZE MOVE OK120 I1002555:768,I:769,5:770: 310 PN2İ12000:250 PT1200 1:21:"GREAT!"; 12000:XDED1 _PN1İ17000: INCREMENT & DISPLAY TURN #_ d5000: DISPLAY PROBLEM & SOLUTION SO FARy n11000: DISPLAY MAZE xI(0): CLEAR STRING SPACE 8000: GET A DIGIT; RETURN I=POSN IN D$(PL) OF DIGIT 9000: PLACE DIGIT IF POSSIBLE - RETURNLAYED4 21000: PRINT TITLE PAGE, GET # OF PLAYERS= 7TI2[ <10000: INITIALIZE MAZESy A6000: INITIALIZE SCREEN FCP(1)0:CP(2)0: SET PROBLEMS TO EMPTY KNT0: INIT # OF TURNS PPL1 ZCP(PL)0İ2000:PT0: GENERATE NEW PROBLEM IF NEE* 30000952,32A FINAL BY DAVID HAMILTON 29/11/82^ DESIGNED BY DOUG SUPER PROGRAMMED BY GRAEME CLARKE 245764000: INIT HRCG, ETC.3000: DIM VBLS(3200: INIT VBLS -TI1: INDICATES TITLE PAGE IS BEING DISP!!!!!!!                    Lw ?0aA p`@|x`}B~|`@<|x `@@x8? Bbx~@~<owyxx88<||`|~! ! ! !! <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "$! $%%#,ep% !Lp"% $`"H ͒*+)hi#"H ͒!*0+i+icH#c hc`"%$$%H hi#`$% ͒b,c*+Md,cPMb*!0 +i+`%J) a+ߒje *`PPPP򠥹͠0sL"$!e (' !!%##`e`" e$$ ",q0rs(!#L"L$a - $ `L `,fPfA[8 & & &mg)mh ˒e$*+Md$(Mb,cp ,bpP!pA* +i+Md$qr"s`,Ta@0,U`* L" zLB$!$$"% %L"b`f`f`,,Lҩb`@``cd` pLXcd`r$s%L$tc`d`f`e`Yc`d`L$e (' 8!$!$%",qLǎ !%# !Lǎ5 (5`)`W L{ IHHH``F}я"*?GOWrzȐFՐF*Q$``1  emgh` a` ,q0qai$r%s`@a`r$$hLcd`,qSiaLL LGLG B `t8967 ,R,W T ,P`ɭӠҠΠΠ Р̺((*)  a+*HN OI*P,h*,H,_0ɛ_ ɍ $h`ɐ 6+_ pLǎ Lǎ z""""""!!! ! :9# +" M A T H M A R V E L S"H%+10:"DESIGNED BY DOUG SUPEQ"i*+5:3,49279,49:0,51279,514+0,74279,74:0,76279,76R+8R+'35582-'(4);"BLOAD MAC INSTANT ESCAPE"8$'36354].'(4);"BLOAD DOLPHIN.SET,A35583"m3'(15)(2)s8'*D$"1 WERTYUIO SDFGHJ KZXCVBNM K WE TYUI K S GHJK K ZXXVBM>D0"+(15)(2):(16) +:16302,0+1:16:D$+84)1287070/A$((16384)128):Z(16368)QZ1(Z$):A$(Z$,Z,1)7140]:7060pA$(7)7180(1023)107060(770)96Ĺ770,173:7060770,96:7060  MAKE TONE768,30:769,8:770*'(4);"BLOAD XF.HRCG"MES. DECIMAL HUNT,MULTI-MAZE,DECIMAL RALLYG p YES OR NO ROUTINE zZ$"YN":7000:(19);A$;:C$C$A$:J1500::(8)" ";: XGET CHAR vZ(16368) T0 T0ĺ" "(8); T10ĺ" "(8); TT1:T20T0 FR(0) (1638 f  PRINT MENU CHOICE* :X13G 2X12:13:X". "NA$(X)M S . PLACE NAMES FOR MENU WITH CTRL-S,L,K. PLACE CTRL-K AT END. DECIMAL HUNT,MULTI-MAZE,DECIMAL RALLY X13:NA$(X)::X13:FI$(X):: PLACE FILE NA21:"COPYRIGHT (C) 1984 BY";H 9:22:"HOUGHTON MIFFLIN COMPANY."k 12:"ALL RIGHTS RESERVED."t 1: DECISIONS * 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96 HX770790 RY:X,Y: \(1023)10Ĺ770,96 Z$"123":7000:""A$;& X(A$)W 952,12::(16):10:MS$:(4);"RUN";FI$(X)` 180l 6952,12 ;(16):10:(4);"RUNHELLO"  CLEAR SCREEN AND BOX 1 1,801,150279,150279,801,80 2,812,149278,149278,812,81 11:56:1011,I:(3)250Č1169> nQQ$(6),FI$(6),NA$(6):D$(4)d sMS$"...OONE MOMENT PLEASE...."m u800~ x2000:NAMES }11000: DOLPHIN 700 1000: PRINT MENU CHOICE 12:2:37) 12:5:"CHOOSE AN ACTIVITY (1, 2, OR 3): ";214,255310 1230,32:3086<:255X10000: INIT AND HRCG2 32,234,3,162,2,173,0,224 ,201,76,240,7,202,157,128,192,16,243,2,162,20,76,18,212<I952975:J:I,J:: POKE IN TRAP ROUTINE FI(952256):1010,952I2""" " " " " """