1 PRINT"[147]":DIMH(15),V(15):POKE53280,0:POKE53281,6:PRINT"":DIMA(15) 2 POKE54296,15 5 Z$="" 10 BL$=" " 16 PRINT"":POKE53281,6:PRINT"[147]" 19 GOSUB60000 20 S1$="[176][195][174]" 30 S2$="[194][194]" 40 S3$="[173][195][189]" 50 FORX=1TO15:READH(X),V(X):NEXT 53 PRINT"[147]":N=15 54 FORP9=1TO15 55 FORY=1TOV(P9):PRINT"";:NEXT 57 FORY=1TOH(P9):PRINT"";:NEXT:PRINTS1$ 58 FORY=1TOH(P9):PRINT"";:NEXT:PRINTS2$;"[157][157]";CHR$(64+P9) 59 FORY=1TOH(P9):PRINT"";:NEXT:PRINTS3$ 60 DATA 18,1,14,5,22,5,10,9,18,9,26,9,6,13,14,13,22,13,30,13,2,17,10,17,18,17 61 DATA 26,17,34,17 62 PRINT"":NEXT:PRINTZ$ 80 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":PRINT 82 PRINT"  H O P P E R [146] ":PRINT 88 PRINT" << PRESS A KEY TO CONTINUE >>" 98 GETA$:IFA$=""THEN98 99 REM 100 : 200 : 300 IFFL=1THEN10400 400 GOTO9800 500 RETURN 600 : 700 RETURN 800 RETURN 900 RETURN 1000 RETURN 1100 RETURN 1105 : 1110 GOSUB800 1115 FORI=1TO100 1120 NEXT 1125 GOSUB800 1130 N=N-1 1135 RETURN 1200 GOSUB57000 1201 IFX1=1THENPRINT"";:GOTO1205 1202 PRINT"[144]":PRINT"":FORQ1=1TOV(X1)-2:PRINT"";:NEXT 1205 FORQ1=1TOH(X1):PRINT"";:NEXT:PRINT"[144]";S1$ 1207 FORQ1=1TOH(X1):PRINT"";:NEXT:PRINTS2$;"[157][157]";"";CHR$(64+X1);"[144]" 1209 FORQ1=1TOH(X1):PRINT"";:NEXT:PRINTS3$ 1210 PRINT"":GOSUB57055 1215 IFY1=1THENPRINT"";:GOTO1220 1217 PRINT"":PRINT"":FORQ1=1TOV(Y1)-2:PRINT"";:NEXT 1220 FORQ1=1TOH(Y1):PRINT"";:NEXT:PRINT"";S1$ 1225 FORQ1=1TOH(Y1):PRINT"";:NEXT:PRINTS2$;"[157][157]";CHR$(64+Y1) 1230 FORQ1=1TOH(Y1):PRINT"";:NEXT:PRINTS3$ 1240 PRINT"":GOSUB57060 1245 IFBL=1THENPRINT"";:GOTO1260 1247 PRINT"[144]":PRINT"":FORQ1=1TOV(BL)-2:PRINT"";:NEXT 1260 FORQ1=1TOH(BL):PRINT"";:NEXT:PRINTS1$ 1265 FORQ1=1TOH(BL):PRINT"";:NEXT:PRINTS2$;"[157][157]";"";CHR$(64+BL);"[144]" 1270 FORQ1=1TOH(BL):PRINT"";:NEXT:PRINTS3$ 1280 PRINT"" 1300 GOSUB1000:RETURN 1400 IFC$="A"THENA(1)=0:BL=1:RETURN 1500 IFC$="B"THENA(2)=0:BL=2:RETURN 1600 IFC$="C"THENA(3)=0:BL=3:RETURN 1700 IFC$="D"THENA(4)=0:BL=4:RETURN 1800 IFC$="E"THENA(5)=0:BL=5:RETURN 1900 IFC$="F"THENA(6)=0:BL=6:RETURN 2000 IFC$="G"THENA(7)=0:BL=7:RETURN 2100 IFC$="H"THENA(8)=0:BL=8:RETURN 2200 IFC$="I"THENA(9)=0:BL=9:RETURN 2300 IFC$="J"THENA(10)=0:BL=10:RETURN 2400 IFC$="K"THENA(11)=0:BL=11:RETURN 2500 IFC$="L"THENA(12)=0:BL=12:RETURN 2600 IFC$="M"THENA(13)=0:BL=13:RETURN 2700 IFC$="N"THENA(14)=0:BL=14:RETURN 2800 IFC$="O"THENA(15)=0:BL=15:RETURN 2900 C=999:RETURN 3000 IFA(1)=1AND((A(2)=1ANDA(4)=0)OR(A(3)=1ANDA(6)=0))THENA(0)=1:RETURN 3100 IFA(15)=1AND((A(10)=1ANDA(6)=0)OR(A(14)=1ANDA(13)=0))THENA(0)=1:RETURN 3200 IFA(11)=1AND((A(12)=1ANDA(13)=0)OR(A(7)=1ANDA(4)=0))THENA(0)=1:RETURN 3300 IFA(2)=1AND((A(5)=1ANDA(9)=0)OR(A(4)=1ANDA(7)=0))THENA(0)=1:RETURN 3400 IFA(3)=1AND((A(5)=1ANDA(8)=0)OR(A(6)=1ANDA(10)=0))THENA(0)=1:RETURN 3500 IFA(7)=1AND((A(8)=1ANDA(9)=0)OR(A(4)=1ANDA(2)=0))THENA(0)=1:RETURN 3600 IFA(12)=1AND((A(13)=1ANDA(14)=0)OR(A(8)=1ANDA(5)=0))THENA(0)=1:RETURN 3700 IFA(10)=1AND((A(9)=1ANDA(8)=0)OR(A(6)=1ANDA(3)=0))THENA(0)=1:RETURN 3800 IFA(14)=1AND((A(9)=1ANDA(5)=0)OR(A(13)=1ANDA(12)=0))THENA(0)=1:RETURN 3900 IFA(5)=1AND((A(9)=1ANDA(14)=0)OR(A(8)=1ANDA(12)=0))THENA(0)=1:RETURN 4000 IFA(8)=1AND((A(5)=1ANDA(3)=0)OR(A(9)=1ANDA(10)=0))THENA(0)=1:RETURN 4100 IFA(9)=1AND((A(8)=1ANDA(7)=0)OR(A(5)=1ANDA(3)=0))THENA(0)=1:RETURN 4200 Z1=((A(2)=1ANDA(1)=0) OR (A(5)=1 AND A(6)=0)) 4202 Z2=((A(8)=1AND A(13)=0)OR (A(7)=1 AND A(11)=0)) 4205 IFA(4)=1ANDZ1ORZ2THENA(0)=1:RETURN 4300 Z1=((A(3)=1AND A(1)=0) OR (A(5)=1 AND A(4)=0)) 4302 Z2=((A(9)=1AND A(13)=0) OR A(10)=1AND A(15)=0) 4305 IFA(6)=1ANDZ1ORZ2THENA(0)=1:RETURN 4400 Z1=((A(14)=1AND A(15)=0) OR (A(12)=1 AND A(11)=0)) 4402 Z2=((A(8)=1ANDA(4)=0)OR(A(9)=1ANDA(6)=0)) 4405 IFA(13)=1ANDZ1ORZ2THENA(0)=1:RETURN 4500 A(0)=0:RETURN 4600 IFA$<>"A"THEN4900 4700 IFB$="D"ANDA(4)=0ANDA(2)=1ANDA(1)=1THENBL=2 4705 IFB$="D"ANDA(4)=0ANDA(2)=1ANDA(1)=1THENA(4)=1:A(2)=0:A(1)=0:RETURN 4750 : 4800 IFB$="F"ANDA(6)=0ANDA(3)=1ANDA(1)=1THENBL=3 4805 IFB$="F"ANDA(6)=0ANDA(3)=1ANDA(1)=1THENA(6)=1:A(3)=0:A(1)=0:RETURN 4850 : 4900 IFA$<>"B"THEN5200 5000 IFB$="I"ANDA(9)=0ANDA(5)=1ANDA(2)=1THENBL=5 5005 IFB$="I"ANDA(9)=0ANDA(5)=1ANDA(2)=1THENA(9)=1:A(5)=0:A(2)=0:D=80:RETURN 5050 : 5100 IFB$="G"ANDA(7)=0ANDA(4)=1ANDA(2)=1THENBL=4 5105 IFB$="G"ANDA(7)=0ANDA(4)=1ANDA(2)=1THENA(7)=1:A(4)=0:A(2)=0:RETURN 5150 : 5200 IFA$<>"C"THEN5500 5300 IFB$="J"ANDA(10)=0ANDA(6)=1ANDA(3)=1THENBL=6 5305 IFB$="J"ANDA(10)=0ANDA(6)=1ANDA(3)=1THENA(6)=0:A(10)=1:A(3)=0:RETURN 5350 : 5400 IFB$="H"ANDA(8)=0ANDA(5)=1ANDA(3)=1THENBL=5 5405 IFB$="H"ANDA(8)=0ANDA(5)=1ANDA(3)=1THENA(5)=0:A(8)=1:A(3)=0:RETURN 5450 : 5500 IFA$<>"E"THEN5800 5600 IFB$="L"ANDA(12)=0ANDA(8)=1ANDA(5)=1THENBL=8 5605 IFB$="L"ANDA(12)=0ANDA(8)=1ANDA(5)=1THENA(8)=0:A(12)=1:A(5)=0:RETURN 5650 : 5700 IFB$="N"AND A(14)=0ANDA(9)=1ANDA(5)=1THENBL=9 5705 IFB$="N"ANDA(14)=0ANDA(9)=1ANDA(5)=1THENA(9)=0:A(14)=1:A(5)=0:RETURN 5750 : 5800 IFA$<>"G"THEN6100 5900 IFB$="B"ANDA(2)=0ANDA(4)=1ANDA(7)=1THENBL=4 5905 IFB$="B"ANDA(2)=0ANDA(4)=1ANDA(7)=1THENA(4)=0:A(2)=1:A(7)=0:RETURN 5950 : 6000 IFB$="I"ANDA(9)=0ANDA(8)=1ANDA(7)=1THENBL=8 6005 IFB$="I"ANDA(9)=0ANDA(8)=1ANDA(7)=1THENA(8)=0:A(9)=1:A(7)=0:RETURN 6050 : 6100 IFA$<>"H"THEN6400 6200 IFB$="C"ANDA(3)=0ANDA(5)=1ANDA(8)=1THENBL=5 6205 IFB$="C"ANDA(3)=0ANDA(5)=1ANDA(8)=1THENA(5)=0:A(3)=1:A(8)=0:RETURN 6250 : 6300 IFB$="J"ANDA(10)=0ANDA(9)=1ANDA(8)=1THENBL=9 6305 IFB$="J"ANDA(10)=0ANDA(9)=1ANDA(8)=1THENA(9)=0:A(10)=1:A(8)=0:RETURN 6350 : 6400 IFA$<>"I"THEN6700 6500 IFB$="G"ANDA(7)=0ANDA(8)=1ANDA(9)=1THENBL=8 6505 IFB$="G"ANDA(7)=0ANDA(8)=1ANDA(9)=1THENA(8)=0:A(7)=1:A(9)=0:RETURN 6550 : 6600 IFB$="B"ANDA(2)=0ANDA(5)=1ANDA(9)=1THENBL=5 6605 IFB$="B"ANDA(2)=0ANDA(5)=1ANDA(9)=1THENA(5)=0:A(2)=1:A(9)=0:RETURN 6650 : 6700 IFA$<>"J"THEN7000 6800 IFB$="H"ANDA(8)=0ANDA(9)=1ANDA(10)=1THENBL=9 6805 IFB$="H"ANDA(8)=0ANDA(9)=1ANDA(10)=1THENA(9)=0:A(8)=1:A(10)=0:RETURN 6850 : 6900 IFB$="C"ANDA(3)=0ANDA(6)=1ANDA(10)=1THENBL=6 6905 IFB$="C"ANDA(3)=0ANDA(6)=1ANDA(10)=1THENA(6)=0:A(3)=1:A(10)=0:RETURN 6950 : 7000 IFA$<>"K"THEN7300 7100 IFB$="D"ANDA(4)=0ANDA(7)=1ANDA(11)=1THENBL=7 7105 IFB$="D"ANDA(4)=0ANDA(7)=1ANDA(11)=1THENA(7)=0:A(4)=1:A(11)=0:RETURN 7150 : 7200 IFB$="M"ANDA(13)=0ANDA(12)=1ANDA(11)=1THENBL=12 7205 IFB$="M"ANDA(13)=0ANDA(12)=1ANDA(11)=1THENA(12)=0:A(13)=1:A(11)=0:RETURN 7250 : 7300 IFA$<>"L"THEN7600 7400 IFB$="E"ANDA(5)=0ANDA(8)=1ANDA(12)=1THENBL=8 7405 IFB$="E"ANDA(5)=0ANDA(8)=1ANDA(12)=1THENA(8)=0:A(5)=1:A(12)=0:RETURN 7450 : 7500 IFB$="N"ANDA(14)=0ANDA(13)=1ANDA(12)=1THENBL=13 7507 IFB$="N"ANDA(14)=0ANDA(13)=1ANDA(12)=1THENA(13)=0:A(14)=1:A(12)=0:RETURN 7550 : 7600 IFA$<>"N"THEN7900 7700 IFB$="L"ANDA(12)=0ANDA(13)=1ANDA(14)=1THENBL=13 7707 IFB$="L"ANDA(12)=0ANDA(13)=1ANDA(14)=1THENA(13)=0:A(12)=1:A(14)=0:RETURN 7750 : 7800 IFB$="E"ANDA(5)=0ANDA(9)=1ANDA(14)=1THENBL=9 7805 IFB$="E"ANDA(5)=0ANDA(9)=1ANDA(14)=1THENA(9)=0:A(5)=1:A(14)=0:RETURN 7850 : 7900 IFA$<>"O"THEN8200 8000 IFB$="F"ANDA(6)=0ANDA(10)=1ANDA(15)=1THENBL=10 8005 IFB$="F"ANDA(6)=0ANDA(10)=1ANDA(15)=1THENA(10)=0:A(6)=1:A(15)=0:RETURN 8050 : 8100 IFB$="M"ANDA(13)=0ANDA(14)=1ANDA(15)=1THENBL=14 8105 IFB$="M"ANDA(13)=0ANDA(14)=1ANDA(15)=1THENA(14)=0:A(13)=1:A(15)=0:RETURN 8150 : 8200 IFA$<>"D"THEN8700 8300 IFB$="A"ANDA(1)=0ANDA(2)=1ANDA(4)=1THENBL=2 8305 IFB$="A"ANDA(1)=0ANDA(2)=1ANDA(4)=1THENA(2)=0:A(1)=1:A(4)=0:RETURN 8350 : 8400 IFB$="F"ANDA(6)=0ANDA(5)=1ANDA(4)=1THENBL=5 8405 IFB$="F"ANDA(6)=0ANDA(5)=1ANDA(4)=1THENA(5)=0:A(6)=1:A(4)=0:RETURN 8450 : 8500 IFB$="M"ANDA(13)=0ANDA(8)=1ANDA(4)=1THENBL=8 8505 IFB$="M"ANDA(13)=0ANDA(8)=1ANDA(4)=1THENA(8)=0:A(13)=1:A(4)=0:RETURN 8550 : 8600 IFB$="K"ANDA(11)=0ANDA(7)=1ANDA(4)=1THENBL=7 8605 IFB$="K"ANDA(11)=0ANDA(7)=1ANDA(4)=1THENA(7)=0:A(11)=1:A(4)=0:RETURN 8650 : 8700 IFA$<>"F"THEN9200 8800 IFB$="A"ANDA(1)=0ANDA(3)=1ANDA(6)=1THENBL=3 8805 IFB$="A"ANDA(1)=0ANDA(3)=1ANDA(6)=1THENA(3)=0:A(1)=1:A(6)=0:RETURN 8850 : 8900 IFB$="D"ANDA(4)=0ANDA(5)=1ANDA(6)=1THENBL=5 8905 IFB$="D"ANDA(4)=0ANDA(5)=1ANDA(6)=1THENA(5)=0:A(4)=1:A(6)=0:RETURN 8950 : 9000 IFB$="M"ANDA(13)=0ANDA(9)=1ANDA(6)=1THENBL=9 9005 IFB$="M"ANDA(13)=0ANDA(9)=1ANDA(6)=1THENA(9)=0:A(13)=1:A(6)=0:RETURN 9050 : 9100 IFB$="O"ANDA(15)=0ANDA(10)=1ANDA(6)=1THENBL=10 9105 IFB$="O"ANDA(15)=0ANDA(10)=1ANDA(6)=1THENA(10)=0:A(15)=1:A(6)=0:RETURN 9150 : 9200 IFA$<>"M"THEN9700 9300 IFB$="K"ANDA(11)=0ANDA(12)=1ANDA(13)=1THENBL=12 9305 IFB$="K"ANDA(11)=0ANDA(12)=1ANDA(13)=1THENA(12)=0:A(11)=1:A(13)=0:RETURN 9350 : 9400 IFB$="D"ANDA(4)=0ANDA(8)=1ANDA(13)=1THENBL=8 9405 IFB$="D"ANDA(4)=0ANDA(8)=1ANDA(13)=1THENA(8)=0:A(4)=1:A(13)=0:RETURN 9450 : 9500 IFB$="F"ANDA(6)=0ANDA(9)=1ANDA(13)=1THENBL=9 9505 IFB$="F"ANDA(6)=0ANDA(9)=1ANDA(13)=1THENA(9)=0:A(6)=1:A(13)=0:RETURN 9550 : 9600 IFB$="O"ANDA(15)=0ANDA(14)=1ANDA(13)=1THENBL=14 9602 IFB$="O"ANDA(15)=0ANDA(14)=1ANDA(13)=1THEND=140 9605 IFB$="O"ANDA(15)=0ANDA(14)=1ANDA(13)=1THENA(14)=0:A(15)=1:A(13)=0:RETURN 9700 REM CALL ILLEGAL MUSIC 9705 PRINTZ$:PRINT" ILLEGAL MOVE [146] " 9710 REM *** RASPBERRY *** 9711 FORII=54272TO54295:POKEII,0:NEXT 9715 VV=54272:POKE VV+6,240:POKE54296,15 9720 POKEVV+1,4 :POKEVV+5,0:POKEVV+4,33 9725 FORNN=1024 TO 512 STEP -8 9730 POKE VV+1,NN/256:POKE VV,NN AND 255 9735 NEXTNN 9740 POKEVV+4,0 9745 REM *** END OF RASPBERRY *** 9750 GOTO10700 9800 POKE198,0 9900 PRINTZ$;BL$:PRINTBL$:PRINTBL$:PRINTBL$:PRINTZ$ 9905 : 9910 : 9915 : 9920 : 9925 : 9930 : 9935 : 9940 : 9945 : 9950 : 9955 : 9960 : 10000 : 10005 : 10010 : 10015 : 10020 : 10025 : 10030 FORI=1TO15 10035 A(I)=1 10040 NEXT 10045 B=4 10050 W=7 10055 N=15 10100 : 10200 : 10205 : 10210 : 10215 : 10220 : 10225 : 10230 : 10235 : 10240 : 10300 PRINTZ$ 10305 : 10310 IF FL=1THEN10400 10315 PRINT"DO YOU NEED INSTRUCTIONS? (Y/N) "; 10320 GETD$:IFD$=""THEN10320 10325 PRINTD$ 10330 IFD$="Y"THENFL=1:GOSUB11900:RESTORE:GOTO53 10400 PRINTZ$;BL$:PRINTBL$:PRINTBL$:PRINTBL$:PRINTZ$ 10405 PRINT"WHERE DO YOU WANT THE FIRST BLANK (A-O)"; 10410 GETC$:IFC$=""THEN10410 10415 PRINTZ$;BL$:PRINTBL$:PRINTBL$:PRINTBL$:PRINTBL$;Z$ 10420 GOSUB1400:GOSUB55000 10425 IFC=999THEN10600 10500 : 10505 FORS=15TO10STEP-1 10510 GOSUB700 10515 NEXT 10520 N=N-1 10525 : 10530 FORS=10TO15 10535 GOSUB700 10540 NEXT 10600 GOSUB3000:IFA(0)=0THENPRINTZ$:GOTO11000 10700 PRINTZ$ 10705 PRINT"ENTER YOUR MOVE (FROM,TO) [157][157][157][157][157][157]"; 10710 GETA$:IFA$=""THEN10710 10715 PRINTA$;","; 10720 GETB$:IFB$=""THEN10720 10725 PRINTB$:GOSUB50000 10800 GOSUB4600:N=N-1:GOSUB1200:GOTO10600 10900 GOTO63953 11000 PRINTZ$ 11005 : 11010 PRINT 11015 PRINT""; 11020 : 11025 PRINT" GAME OVER " 11030 : 11035 PRINT"--------- NO MOVES AVAILABLE ---------[146]" 11040 : 11045 FORI=1TO3000 11050 NEXT 11055 PRINTZ$;BL$:PRINTBL$:PRINTBL$:PRINTBL$:PRINTZ$ 11100 IFN>=4THENPRINT 11105 IFN>=4THENPRINT"YOUR SCORE IS NOT VERY GOOD!! 11106 [139]N[177][178]4[167][153]"YOU HAD ";N[171]1;" WHITE PIECES LEFT":[137]11600 11110 : 11200 [139]N[178]3[167][153] 11205 [139]N[178]3[167][153]"YOU HAVE 3 LEFT. THAT'S ABOUT AVERAGE." 11210 [139]N[178]3[167][153]:[137]11600 11215 : 11300 [139]N[178]2[167][153] 11305 [139]N[178]2[167][153]"VERY GOOD! YOU GOT IT DOWN TO JUST 2!" 11310 [139]N[178]2[167][153]:[137]11600 11315 : 11400 [139]N[178]1[175]A(13)[178]1[167][153]Z$ 11405 : 11410 [153]"!!!!!!!!! YOU'RE A GENIUS !!!!!!!!!!" 11415 : 11420 [153]"NOBODY CAN DO ANY BETTER THAN THIS.WAIT" 11425 : 11430 [153]"I'LL BET YOU CAN'T DO IT AGAIN!" 11435 [141]1000 11440 [141]900 11445 [137]11600 11500 [139]N[178]1[167] 11505 [153]""; 11510 : 11515 [153]" EXCELLENT!! " 11520 : 11525 [153]"YOU LEFT ONLY ONE WHITE LETTER- BUT IT ISN'T THE LETTER 'M'!!"; 11526 [153]" KEEP TRYING" 11600 [153]"ANOTHER GAME? (Y/N) "; 11605 [161]D$:[139]D$[178]""[167]11605 11610 : 11615 [139]D$[178]"Y"[167] [140]:[153]"LOAD":[129]I[178]1[164]15:A(I)[178]1:[137]50 11620 : 11625 : 11630 : 11635 : 11700 [139]D$[178]"N"[167][153]"LOAD":[137]63953 11800 [153]Z$:[137]11600 11900 [153]"LOAD" 11905 : 11910 : 11915 : 11920 : 11925 : 11930 [153]" HOPPER WAIT":[153]:[153] 11935 : 11940 Z3$[178]"" 11945 [153]Z3$ 11950 : 12000 [153] 12005 [153]" THE OBJECT OF HOPPER IS TO CHANGE AS MANY LETTERS FROM WHITE TO"; 12006 [153]" BLACK AS YOU CAN - HOPEFULLY LEAVING ONLY THE LETTER "; 12008 [153]"'M' AS THE LAST REMANING WHITE SPACE ON THE BOARD.":[153] 12100 : 12105 [153]" WHEN YOU FIRST SEE THE GAME BOARD ALL OF THE LETTERS WILL BE"; 12110 [153]" WHITE.":[153] 12115 [153]" SINCE YOU NEED A BLANK SPACE TO BEGIN"; 12116 [153]" YOU WILL BE GIVEN YOUR CHOICE WHERE TO PLACE THE FIRST BLANK." 12200 [153] 12205 [153]" AFTER CHOOSING THE FIRST BLACK SPACE THE GAME BEGINS." 12208 [153]:[153]" << PRESS A KEY TO CONTINUE >>" 12209 [161]I$:[139]I$[178]""[167]12209 12210 [153]"LOAD HOPPER WAIT":[153] 12215 [153]" YOUR MOVES ARE SIMILAR TO THOSE USED IN CHECKERS" 12300 [153] 12305 [153]" YOU HOP FROM ONE WHITE LETTER OVER AN ADJACENT WHITE LETTER AND"; 12306 [153]" ONTO A BLACK SPACE - THEN THE WHITE SPACE YOU HOPPED OVER"; 12308 [153]" WILL BECOME BLACK." 12400 [153] 12405 [153]" WHEN YOU SEE:" 12410 [153] 12415 [153]"'ENTER YOUR MOVE (FROM,TO) '" 12500 [153] 12505 [153]" YOU SHOULD PRESS THE LETTER OF THE SPACE YOU ARE HOPPING FRO"; 12510 [153]"M";:[153] 12515 [153]" <>WAIT" 12520 : 12525 [153] 12530 [153]" THEN PRESS THE LETTER OF THE SPACE YOUARE HOPPING TO"; 12535 [153] 12600 [153]" <>WAIT";:[153]".":[153] 12650 [153]" << PRESS A KEY TO CONTINUE >>" 12652 [161]I$:[139]I$[178]""[167]12652 12675 [153]"LOAD HOPPER WAIT":[153]"" 12700 [153] 12705 [153]" EVERY TIME YOUR HOPPER HOPS A WHITE LETTER IT WILL YELL "; 12706 [153]"'BLOOOOPPPP!!!'" 12800 : 12805 [153] 12810 [153]"DO YOU NEED TO SEE THE INSTRUCTIONS AGAIN? (Y/N) "; 12815 [161]D$:[139]D$[178]""[167]12815 12820 [139]D$[179][177]"Y"[175]D$[179][177]"N"[167]12815 12825 [139]D$[178]"Y"[167][153]"LOAD":[137]11900 12830 : 12900 : 12905 [153]"LOAD" 12915 [153]Z$ 12920 : 12925 : 12930 [142] 13000 [153]Z$ 13100 [141]13300:X[178]80:[141]13300:X[178]130:[141]13300 13200 X[178]180:[141]13300:X[178]230:[141]13300:[142] 13300 [142] 50000 X1[178][198](A$)[171]64 50010 Y1[178][198](B$)[171]64 50020 [142] 50030 [129]Q1[178]1[164]H(BL):[153]"";:[130]:[153]S3$ 50040 [153]"" 50050 [142] 55000 [139]BL[178]1[167][153]"";:[137]55010 55005 [153]"STOP":[153]"":[129]Q1[178]1[164]V(BL)[171]2:[153]"";:[130] 55010 [129]Q1[178]1[164]H(BL):[153]"";:[130]:[153];"STOP";S1$ 55020 [129]Q1[178]1[164]H(BL):[153]"";:[130]:[153]S2$;"CMDCMD";"";[199](64[170]BL);"STOP" 55030 [129]Q1[178]1[164]H(BL):[153]"";:[130]:[153]S3$ 55040 [153]"" 55050 [142] 57000 [129]X[178]54272[164]54295:[151]X,0:[130] 57010 [143] POKE54296,15 57020 V[178]54272:Z[178]54279 57022 [151]V[170]2,15:[151]V[170]3,255 57025 [151]Z[170]2,15:[151]Z[170]3,255 57030 [151]V[170]5,255:[151]V[170]6,255:[151]V[170]4,65 57035 [151]Z[170]5,255:[151]Z[170]6,255:[151]Z[170]4,65 57040 [151]V,15 57045 [151]Z,15 57050 [129]X[178]1[164]90 [169]3:[129]D[178]1[164]10:[130]D:[151]V[170]1,X:[130]:[151]V[170]4,0:[142] 57055 [129]X[178]0[164]90 [169]3:[129]D[178]1[164]10:[130]D:[151]Z[170]1,90[171]X:[130]:[142] 57060 [151]Z[170]4,0:[151]54296,15 57065 [151]54277,139:[151]54278,15:[151]V[170]4,33 57067 [151]V,5:[151]V[170]1,5:[142] 60000 [153]"LOAD H O P P E R WAIT" 60010 [153]" BY PAUL M. ZELMAN" 60020 [153]"<>" 60030 [153]"<< PRESS A KEY TO CONTINUE >>" 60040 [151]198,0:[146]198,1:[161]A$:[142] 63953 [143]END 63995 [151]53280,0:[151]53281,0:[153]"STOP"; 63996 [153]"STOPLOADLOAD"[199](34)"PAYLOAD"[199](34)",8":[153]"RUN" 63997 [151]631,13:[151]632,13:[151]198,2