10 POKE55,0:POKE56,55:CLR
20 POKE53371,0:X=RND(-TI)
30 DV=PEEK(186):IFDV<8THENDV=8
40 POKE53281,0:POKE53280,0:PRINT""
50 GOSUB60000
60 SYS57812"STAMP FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
70 SYS57812"ST.MOUSE C000",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
80 SYS57812"STAMP SPRITES",DV,0:POKE780,0:POKE781,0:POKE782,55:SYS65493
90 SYS57812"STAMP RANDOM",DV,0:POKE780,0:POKE781,0:POKE782,157:SYS65493
100 SYS57812"STAMP MOVES",DV,0:POKE780,0:POKE781,0:POKE782,156:SYS65493
110 ML=192*256:MV=ML+111:POKEMV,158:V=53248:SD=54272:BU=160*256:SP=SD+1024
120 RN=157*256:SM=156*256
122 REM POKESM,200
130 SYSML:SYSML+18,0,38,0,24
140 SYSML+6:POKEV+21,0
150 DIMX%(13),Y%(13),S%(13),D%(13,4),G%(13),EN%(13),H%(13),BG(4)
160 GOTO720
170 :
180 :REM BOX
190 :
200 POKE214,Y:PRINT
210 PRINTTAB(X)"[155][176]"LEFT$(TP$,XX)"[174]"
220 FORI=1TOYY:PRINTTAB(X)"[171]";:POKE646,C:PRINTLEFT$(BL$,XX)"[155][179]":NEXT
230 PRINTTAB(X)"[173]"LEFT$(BT$,XX)"[189]"
240 POKE646,C:RETURN
250 :
260 :REM SCORE UPDATE
270 :
280 SYSML+12,32,21,"    [157][157][157][157]":PRINTMQ
290 SYSML+12,32,22,"    [157][157][157][157]":PRINTBG(MD)
300 FORI=2TO12:IF(I=5)OR(I=9)THEN330
310 H=SD+1024+X%(I)+Y%(I)*40
320 IF(PEEK(H)AND15)<>EN%(I)THENI=12:NEXT:RETURN
330 NEXT
340 SYSML+30,X%(2),X%(2)+14,Y%(2),Y%(2)+14,255,9
350 SYSML+39,64
360 SYSML+12,7,10,"[149][217][207][213] [196][201][196] [201][212]!
370 [139]MQ[177][178]BG(MD)[167]400
380 BG(MD)[178]MQ:[151]SM,MQ
390 [158]ML[170]12,7,11,"VERIFYATN (null)VAL(null) PEEKVAL(null)(null)!
400 IFMD=0THENRETURN
410 OPEN15,DV,15,"S0:STAMP MOVES":CLOSE15
420 SYS57812"STAMP MOVES",DV:POKE193,0:POKE194,156:POKE174,201:POKE175,156
430 SYS62954
440 SYSML+12,7,18,"[208][210][201][206][212] [197][206][212][210][217]
450 [158]ML[170]36,18,160,7:[158]ML[170]36,19,160,7
460 [158]ML[170]12,8,20,"SYS(null)VAL(null)(null)(null)"
470 [151]MV[170]1,19
480 [158]ML[170]9
490 [139]L2%[178]0[167]480
500 [139]CR%[178]18[167][141]1970:[137]520
510 [139]CR%[179][177]19[167]480
520 [151]MV[170]1,17:[158]ML[170]42,64
530 [142]
540 :
550 :[143] RANDOMIZE
560 :
570 [151]176,0:[151]177,157:[151]178,12
580 [158]RN
590 [129]I[178]1[164]12:H%(I)[178][194](RN[170]94[170]I):[130]
600 [142]
610 :
620 :[143] SPRITE MOVE
630 :
640 [151]V[170]2,X%(KC)[172]8[170]30:[151]V[170]3,Y%(KC)[172]8[170]54
650 [151]V[170]4,X%(KC)[172]8[170]54:[151]V[170]5,Y%(KC)[172]8[170]54
660 [151]V[170]6,X%(KC)[172]8[170]30:[151]V[170]7,Y%(KC)[172]8[170]75
670 [151]V[170]8,X%(KC)[172]8[170]54:[151]V[170]9,Y%(KC)[172]8[170]76
680 [142]
690 :
700 :[143] INITIALIZE
710 :
720 TP$[178]"======================================="
730 BT$[178]">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>"
740 BL$[178]"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
750 SP$[178]"        "
760 LN$[178]"----------------------------------------------------------------------"
770 KC$[178]"GETNEWTAB(TOFNCMDCMDCMDCMDCMDSPC(THENNOTSTEP+CMDCMDCMDCMDCMD-*/^ANDCMDCMDCMDCMDCMDOR>=<SGNCMDCMDCMDCMDCMDINTABSUSRFREPOS"
780 BQ$[178]"OR===^CMDCMDCMDCMDCMD-@@@<CMDCMDCMDCMDCMD-@@@<CMDCMDCMDCMDCMD-@@@<CMDCMDCMDCMDCMD/>>>EXP"
790 CR$[178][199](13)
800 K[178]1:[129]J[178]0[164]2:[129]I[178]0[164]3
810 X%(K)[178]I[172]5:Y%(K)[178]8[170]J[172]5
820 [158]ML[170]15,1[170]I[170]4[172]J,I[172]5,I[172]5[170]4,8[170]J[172]5,8[170]J[172]5[170]4
830 S%(K)[178]K:K[178]K[170]1
840 [130]:[130]:S%(6)[178]8:S%(8)[178]6:MT%[178]6
850 [158]ML[170]15,13,22,29,7,11
860 [158]ML[170]15,14,31,38,7,11
870 [158]ML[170]15,15,22,29,13,17
880 [158]ML[170]15,16,31,38,13,17
890 [158]ML[170]15,17,33,38,0,0
900 [158]ML[170]15,18,7,11,19,21
910 [158]ML[170]15,19,13,17,19,21
920 [129]I[178]1[164]12:[129]J[178]0[164]3:[135]D%(I,J):[130]:[130]
930 [131]0,0,2,5, 1,0,3,6, 2,0,4,7, 3,0,0,8, 0,1,6,9, 5,2,7,10, 6,3,8,11
940 [131]7,4,0,12, 0,5,10,0, 9,6,11,0, 10,7,12,0, 11,8,0,0
950 [129]I[178]1[164]12:[135]G%(I):[130]
960 [131]2,3,4,5,6,9,7,9,10,11,12,13
970 [129]I[178]1[164]12:[135]EN%(I):[130]
980 [131]0,2,3,4,13,6,9,7,5,10,11,12
990 :
1000 :[143] SETUP SPRITES
1010 :
1020 [129]I[178]0[164]3:[151]2041[170]I,220[170]I:[151]V[170]40[170]I,8:[130]
1030 [151]V[170]29,224:[151]V[170]23,224:[151]V[170]16,0
1040 [151]V[170]28,0:[151]V[170]27,224
1050 [129]I[178]0[164]2:[151]2045[170]I,13:[151]V[170]44[170]I,6:[130]
1060 [129]I[178]0[164]35:[151]13[172]64[170]I,255:[130]:[129]I[178]0[164]27:[151]13[172]64[170]36[170]I,0:[130]
1070 [129]I[178]0[164]2:[151]V[170]10[170]I[172]2,116[170]38[172]I:[151]V[170]11[170]I[172]2,66:[130]
1080 :
1090 :[143] SCREEN DRAW
1100 :
1110 [153]"LOAD":MD[178]0:[151]53272,31
1120 C[178]6:X[178]0:Y[178]0:XX[178]37:YY[178]3:[141]200
1130 [153]""[163]33)"-(null)(null)RIGHT$(null)WAIT<"
1140 [153]""[163]12)"SYSOR=^OR=^OR=^OR=^OR=^
1150 PRINT" [195][193][204][200][207][207][206]'[211] [146][158][173][192][174] [221] [171][192][179][221][221][221][171][177][189] [195][200][193][204][204][197][206][199][197]
1160 [153][163]12)"SYS/>EXP > / EXP/ EXP/"
1170 [151]V[170]21,224
1180 C[178]12:X[178]22:Y[178]6:XX[178]6:YY[178]3:[141]200
1190 [158]ML[170]12,24,9,"(null)ATN(null)VAL"
1200 X[178]31:[141]200
1210 [158]ML[170]12,33,9,"[\]^":[143] NEW
1220 X[178]22:Y[178]12:[141]200
1230 [158]ML[170]12,24,15,"LENLEFT$ATN(null)
1240 X=31:GOSUB200
1250 SYSML+12,33,15,"[200][197][204][208]
1260 C[178]5:X[178]22:Y[178]18:XX[178]15:YY[178]4:[141]200
1270 [158]ML[170]12,25,21,"(null)(null)(null)VAL(null) :"
1280 [158]ML[170]12,25,22,"PEEKVAL(null)(null)  :"
1290 C[178]0:X[178]0:Y[178]7:XX[178]13:YY[178]13:[141]200
1300 BG(0)[178]200
1310 BG(1)[178][194](SM)
1320 [158]ML[170]12,5,24,"FOR-LENATN(null)'(null) LENATN(null)LEFT$(null)(null)(null)WAIT<"
1330 [158]ML[170]12,15,8,BQ$
1340 [158]ML[170]12,15,18,BQ$
1350 [158]ML[170]12,15,13,KC$
1360 [129]I[178]1[164]12:[158]ML[170]36,I,255,G%(I):[130]
1370 [158]ML[170]36,6,255,0:[143] EMPTY SQUARE
1380 [139]MD[167]1420
1390 [141]570
1400 [129]I[178]1[164]12:[158]ML[170]45,X%(I),X%(I)[170]4,Y%(I),Y%(I)[170]4,BU[170]50[172]I:[130]
1410 [129]I[178]1[164]12:[158]ML[170]48,X%(H%(I)),X%(H%(I))[170]4,Y%(H%(I)),Y%(H%(I))[170]4,BU[170]50[172]I:[130]
1420 [129]I[178]1[164]12:[139]([194](SP[170]X%(I)[170]Y%(I)[172]40)[175]15)[178]9[167]KC[178]I
1430 [139]([194](SP[170]X%(I)[170]Y%(I)[172]40)[175]15)[178]0[167]MT%[178]I
1440 [130]
1450 [151]MV[170]1,17:MQ[178]0:[141]640
1460 [151]V[170]21,255
1470 :
1480 :[143] LOOP
1490 :
1500 [141]280
1510 [158]ML[170]9
1520 [139]L2%[178]0[167]1510
1530 [139]CR%[178]0[167]1510
1540 [139]CR%[177]12[167]1640
1550 [129]I[178]0[164]3:[139]D%(CR%,I)[178]MT%[167]I[178]3:[130]:[137]1570
1560 [130]:[137]1510
1570 [158]ML[170]45,X%(CR%),X%(CR%)[170]4,Y%(CR%),Y%(CR%)[170]4,BU
1580 [158]ML[170]48,X%(MT%),X%(MT%)[170]4,Y%(MT%),Y%(MT%)[170]4,BU
1590 [139]([194](SP[170]X%(CR%)[170]Y%(CR%)[172]40)[175]15)[178]9[167]KC[178]MT%:[141]640
1600 MT%[178]CR%
1610 [158]ML[170]30,X%(CR%),X%(CR%)[170]4,Y%(CR%),Y%(CR%)[170]4,32,0
1620 MQ[178]MQ[170]1:[151]SM[170]MQ,MT%
1630 [137]1500
1640 [151]V[170]21,225
1650 [139]CR%[178]15[167]MD[178]1
1652 [139]CR%[178]13[176]CR%[178]14[167]MD[178]0
1660 [145]CR%[171]12[137]1410,1290,1290,1670,40000
1670 [158]ML[170]39,64
1680 [151]V[170]21,225:K2[178]KC
1690 [139]H2[167][158]ML[170]42,72:[137]1890
1700 H2[178]1
1710 C[178]5:X[178]22:Y[178]6:XX[178]15:YY[178]16:[141]200
1720 [158]ML[170]12,X%(5),Y%(5),BQ$
1730 [158]ML[170]12,X%(9),Y%(9),BQ$
1740 C[178]9:X[178]5:Y[178]7:XX[178]13:YY[178]13:[141]200
1750 [129]I[178]1[164]12:[158]ML[170]36,I,255,EN%(I):[130]
1760 [158]ML[170]12,X%(7),Y%(7),KC$
1770 [158]ML[170]12,23,9,"LENLICK ON A TILE
1780 SYSML+12,23,10,"TO MOVE IT INTO
1790 [158]ML[170]12,23,11,"THE EMPTY SPOT.
1800 SYSML+12,23,12,"[217]OUR GOAL IS
1810 [158]ML[170]12,23,13,"SHOWN AT LEFT.
1820 SYSML+12,23,15,"[206][197][215] - [210]ANDOM
1830 [158]ML[170]12,23,16," SCRAMBLE
1840 SYSML+12,23,18,"[211][193][205][197] - [210]EDO
1850 [158]ML[170]12,23,19," SAME LAYOUT
1860 SYSML+12,23,21,"[195][200][193][204] - [211]PECIAL
1870 [158]ML[170]12,23,22," CONTEST LAYOUT
1880 SYSML+39,72
1890 KC=7:GOSUB640:POKEV+21,255
1900 SYSML+9
1910 IFL2%=0THEN1900
1920 POKEV+21,224:SYSML+42,64:POKEV+21,255:KC=K2:GOSUB640
1930 GOTO1510
1940 :
1950 :REM PRINT ENTRY
1960 :
1970 OPEN4,4,7:CLOSE4:IFST<>-128THEN2030
1980 POKE186,DV
1990 SYSML+12,7,18,"[208][210][201][206][212][197][210] [207][198][198]!"
2000 SYSML+9
2010 IFL2%=0THEN2000
2020 GOTO1970
2030 SYSML+12,7,18,"[149][208][210][201][206][212] [197][206][212][210][217] "
2032 OPEN4,4,7:PRINT#4,CR$CR$CR$CR$CR$
2040 PRINT#4,SP$SP$SP$"[203]NEES [195]ALHOON'S [211][212][193][205][208] [195][200][193][204][204][197][206][199][197]"
2050 PRINT#4,CR$
2060 PRINT#4,SP$SP$"[198]ILL IN THE BLANKS AND RETURN TO:"CR$
2070 PRINT#4,SP$SP$SP$"[211]TAMP [195]HALLENGE"
2080 PRINT#4,SP$SP$SP$"606 [195]OMMON [211]TREET
2090 [152]4,SP$SP$SP$"(null)HREVEPORT (null)ATN 71101
2100 PRINT#4,CR$
2110 PRINT#4,SP$"[206]AME:"
2120 PRINT#4,SP$"      -------------------------------------------------------"
2130 PRINT#4
2140 PRINT#4,SP$"[193]DDRESS:
2150 [152]4,SP$"        -----------------------------------------------------"
2160 [152]4
2170 [152]4,SP$"LENITY:                        (null)TATE:         (null)RIGHT$(null):"
2180 [152]4,SP$"     -----------------------       --------     -------------"
2190 [152]4
2200 [152]4,SP$"LENOUNTRY:
2210 PRINT#4,SP$"        -----------------------------------------------------"
2220 PRINT#4,CR$CR$
2230 PRINT#4,SP$"[206]UMBER OF MOVES:"BG(1)
2240 PRINT#4,CR$CR$
2250 RW=INT(BG(1)/5):IFBG(1)-RW>0THENRW=RW+1
2260 K=1:FORI=0TORW-1:PRINT#4,SP$;
2270 FORJ=0TO4
2280 W=PEEK(SM+K)
2290 PRINT#4,W;LEFT$(SP$,8+(W>9));
2300 K=K+1:IFK>BG(1)THENJ=4
2310 NEXT:PRINT#4:NEXT:PRINT#4
2320 CLOSE4:POKE186,DV
2330 RETURN
10000 DV=PEEK(186):N$="B.STAMP":OPEN15,DV,15,"S0:"+N$:CLOSE15:SAVEN$,DV:END
40000 PRINT"[147]":POKEV+21,0:SYSML+3:POKE53371,0
40008 FORI=8TO29:POKE820+I,I:NEXT:IFDV>8ANDDV<30THENPOKE828,DV:POKE820+DV,8
40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030
40020 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
40030 FORJ=8TO29:I=PEEK(820+J):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:RETURN
40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[211] [212] [193] [205] [208]   [195] [200] [193] [204] [204] [197] [206] [199] [197]
60040 Z$(2)[178]"BY (null)NEES LENALHOON
60050 Z$(4)="(C) 1997 BY [202] & [198] [208]UBLISHING, [201]NC."
60060 Z$(6)="[212]HIS PROGRAM IS NOT SHAREWARE
60070 Z$(7)[178]"OR IN THE PUBLIC DOMAIN."
60080 Z$(9)[178]"1-800-594-3370 OR 1-318-221-8718
60090 POKE214,12:PRINT:FORI=0TO9:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN