1 QW=13:LP=3
2 WE=178
3 ER=459
4 RT=400
5 TY=460
10 PRINT"[147]"
20 POKE53280,1:POKE53281,0
30 PRINT"       [215] [215][215][215] [215][215][215] [215]  [215] [215][215][215] [215][215][215] [215][215][215]"
40 PRINT"       [215] [215] [215] [215]   [215] [215]  [215] [215] [215] [215]  [215]"
50 PRINT"       [215] [215][215][215] [215]   [215][215]   [215][215][215] [215] [215]  [215]"
60 PRINT"     [215] [215] [215] [215] [215]   [215] [215]  [215]   [215] [215]  [215]"
70 PRINT"     [215][215][215] [215] [215] [215][215][215] [215]  [215] [215]   [215][215][215]  [215]"
80 PRINT:PRINT
90 PRINT"         WRITTEN BY MR.JOKER"
110 L1=54272:L2=54279:L3=54286
120 H1=L1+1:H2=L2+1:H3=L3+1
130 V1=L1+4:V2=L2+4:V3=L3+4
140 POKE 54296,15
150 POKE V1+1,9:POKE V2+2,0
160 POKE V2+1,36:POKE V2+2,36
170 POKE V3+1,18:POKE V3+2,170
180 T=TI
200 POKE V1,16:POKE V2,32:POKE V3,16
210 READ S:IF S=0 GOTO 290
220 READ X1,Y1,X2,Y2,X3,Y3
230 IF X1 THEN POKE H1,X1:POKE L1,Y1:POKE V1,17
240 IF X2 THEN POKE H2,X2:POKE L2,Y2:POKE V2,33
250 IF X3 THEN POKE H3,X3:POKE L3,Y3:POKE V3,17
260 T=T+S
270 IF T>TI GOTO 270
280 GOTO 200
290 FORJ=L1 TO 54296:POKE J,0:NEXT J
300 DATA 10,51,97,0,0,0,0
310 DATA 10,43,52,0,0,0,0
320 DATA 20,34,75,21,154,8,147
330 DATA 20,34,75,25,177,0,0
340 DATA 10,34,75,17,37,6,108
350 DATA 10,38,126,0,0,0,0
360 DATA 10,43,52,25,177,0,0
370 DATA 10,45,198,0,0,0,0
400 DATA 20,51,97,21,154,8,147
410 DATA 20,51,97,25,177,0,0
420 DATA 20,51,97,17,37,9,159
430 DATA 20,43,52,25,177,10,205
440 DATA 20,57,172,22,227,11,114
450 DATA 20,57,172,34,75,0,0
460 DATA 20,57,172,28,214,8,147
470 DATA 10,0,0,34,75,0,0
480 DATA 10,51,97,0,0,0,0
500 DATA 20,57,172,22,227,11,114
510 DATA 10,0,0,34,75,0,0
520 DATA 10,51,97,0,0,0,0
530 DATA 10,57,172,28,214,10,205
540 DATA 10,64,188,0,0,0,0
550 DATA 10,68,149,34,75,9,159
560 DATA 10,76,252,0,0,0,0
600 DATA 20,86,105,21,154,8,147
610 DATA 20,0,0,25,177,0,0
620 DATA 20,0,0,17,37,6,108
630 DATA 10,68,149,25,177,0,0
640 DATA 10,51,97,0,0,0,0
650 DATA 20,68,149,21,154,8,147
660 DATA 20,0,0,25,177,0,0
670 DATA 20,0,0,17,37,8,23
680 DATA 10,51,97,25,177,7,53
690 DATA 10,43,52,0,0,0,0
700 DATA 20,51,97,22,227,6,108
710 DATA 20,0,0,25,177,0,0
720 DATA 20,0,0,19,63,9,159
730 DATA 10,38,126,25,177,0,0
740 DATA 10,43,100,0,0,0,0
750 DATA 20,34,75,21,154,8,147
760 DATA 20,0,0,25,177,6,108
770 DATA 20,0,0,21,154,4,73
780 DATA 20,0,0,0,0,0,0
790 DATA 0
800 G=15
810 IFG<LP THEN RUN
815 PRINT"[147]"
820 PRINT"             [213][195][195][195][195][195][195][195][201]"
830 PRINT"             [194] [195] [195] [195] [194]"
840 PRINT"             [194] [195] [195] [195] [194]"
850 PRINT"            [213][177][195][195][195][195][195][195][195][177][201]"
860 PRINT"            [194]*JACKPOT*[194][209]"
870 PRINT"            [194][195][195][195][195][195][195][195][195][195][194][194]"
880 PRINT"            [194]*******$[194][171][203]"
890 PRINT"            [173][195][195][195][195][195][195][195][195][195][189]"
895 PRINT:PRINT" 1 GAME COSTS 3$"
896 PRINT" [218][218][218] OR [193]J[193] =10"
897 PRINT" [211][211][193] =5"
900 PRINT:PRINT"YOU HAVE GOT ";G;" $"
905 G=G-3
910 ZA=INT(500*RND(1))+1
920 GETA$:IFA$=""THEN920
930 ZS=INT(5*RND(1))+1
940 IF ZA=QW THEN GOTO 5000
950 IF ZA=WE THEN GOTO 5000
960 IF ZA=ER THEN GOTO 5000
970 IF ZA>TY THEN GOTO 1000
980 IF ZA>RT THEN GOTO 1150
990 IF ZA<RT THEN GOTO 1290
1000 G=G+10
1010 ON ZS GOTO 1020,1040,1060,1080,1100
1020 PRINT"":PRINT"             [213][195][195][195][195][195][195][195][201]"
1030 PRINT"             [194] [211] J [211] [194]":GOTO1130
1040 PRINT"":PRINT"             [213][195][195][195][195][195][195][195][201]"
1050 PRINT"             [194] [193] [193] J [194]":GOTO1130
1060 PRINT"":PRINT"             [213][195][195][195][195][195][195][195][201]"
1070 PRINT"             [194] [218] [218] [218] [194]":GOTO1130
1080 PRINT"":PRINT"             [213][195][195][195][195][195][195][195][201]"
1090 PRINT"             [194] [216] J [216] [194]":GOTO1130
1100 PRINT"":PRINT"             [213][195][195][195][195][195][195][195][201]"
1110 PRINT"             [194] [211] [211] [211] [194]"
1130 FORX=1TO2000:NEXTX
1140 GOTO 810
1150 G=G+5
1160 ON ZS GOTO 1170,1190,1210,1230,1250
1170 PRINT"":PRINT"             [213][195][195][195][195][195][195][195][201]"
1180 PRINT"             [194] [218] [216] [218] [194]":GOTO1270
1190 PRINT"":PRINT"             [213][195][195][195][195][195][195][195][201]"
1200 PRINT"             [194] [193] [211] [211] [194]":GOTO1270
1210 PRINT"":PRINT"             [213][195][195][195][195][195][195][195][201]"
1220 PRINT"             [194] [193] [193] [216] [194]":GOTO1270
1230 PRINT"":PRINT"             [213][195][195][195][195][195][195][195][201]"
1240 PRINT"             [194] [216] [211] [216] [194]":GOTO1270
1250 PRINT"":PRINT"             [213][195][195][195][195][195][195][195][201]"
1260 PRINT"             [194] [193] [211] [193] [194]"
1270 FORX=1TO2000:NEXTX
1280 GOTO810
1290 ON ZS GOTO 1300,1320,1340,1360,1380
1300 PRINT"":PRINT"             [213][195][195][195][195][195][195][195][201]"
1310 PRINT"             [194] [193] [211] [218] [194]":GOTO1400
1320 PRINT"":PRINT"             [213][195][195][195][195][195][195][195][201]"
1330 PRINT"             [194] [211] [216] [193] [194]":GOTO1400
1340 PRINT"":PRINT"             [213][195][195][195][195][195][195][195][201]"
1350 PRINT"             [194] [216] [218] J [194]":GOTO1400
1360 PRINT"":PRINT"             [213][195][195][195][195][195][195][195][201]"
1370 PRINT"             [194] [218] [193] [211] [194]":GOTO1400
1380 PRINT"":PRINT"             [213][195][195][195][195][195][195][195][201]"
1390 PRINT"             [194] J [193] [216] [194]"
1400 FORX=1TO2000:NEXTX
1410 GOTO810
5000 PRINT"":PRINT"             [213][195][195][195][195][195][195][195][201]"
5001 PRINT"             [194] J J J [194]":FORX=1TO3000:NEXTX
5005 PRINT"[147]":PRINT:PRINT:PRINT
5010 PRINT"JACKPOT JACKPOT JACKPOT JACKPOT JACKPOT"
5020 POKE54296,15:POKE54278,240
5030 FOR I=1TO80
5040 POKE54276,17:POKE54273,99+100*RND(0)
5050 NEXT:POKE54276,0
5060 G=G+1523
5070 GOTO 810