3 POKE53248+16,.
4 AG$=""
5 GOSUB 60100:POKE650,128
6 POKE53276,.
10 GOTO 100
20 POKE54296,15:POKE54276,.:POKE54273,HF:POKE54272,100
22 POKE54277,10:POKE54278,10:POKE54276,33:RETURN
30 FOR T=1 TO 30:NEXT:RETURN
50 POKE 781,LN:POKE 782,COL:POKE 783,0:SYS 65520:RETURN
60 N=INT(RND(1)*25+1):IF C(N)=0 THEN 60
70 DECK=DECK-1:RETURN
100 :
104 PRINT"[147][208]OKING DATA INTO MEMORY.":X=RND(-TI):V=53248:S=54272
105 DIM C(26),G(20):SPRITE=12288
110 FOR J=1 TO 6:FOR I=0 TO 63:READ A:POKE SPRITE+I,A:NEXT:SP=SP+64:NEXT
120 FOR I=1 TO 5:POKE V+I+39,1:POKE 2040+I,191+I:NEXT
125 POKE 2046,197:POKE V+45,7:POKEV+39,2:POKEV+23,1
130 POKE V+29,1:POKE V,156:POKE V+1,102:GAME=1:H=90:FORI=2TO10STEP2
140 POKE V+I,H:POKE V+I+1,190:H=H+40:NEXT:POKE V+13,210
199 :
200 B1$="[152][160]     [160][157][157][157][157][157][157][157][160][166][166][166][166][166][152][160][157][157][157][157][157][157][157]"
205 B1$=B1$+" [166][166][166][166][166][152][160][157][157][157][157][157][157][157][160][166][166][166][166][166][152][160][157][157][157][157][157][157][157]"
210 B1$=B1$+"[160][166][166][166][166][166][152][160][157][157][157][157][157][157][157][160][166][166][166][166][166][152][160][157][157][157][157][157][157][157][160]      "
220 B2$="       [157][157][157][157][157][157][157] [160][160][160][160][160] [157][157][157][157][157][157][157] [160][160][160][160][160] [157][157][157][157][157][157][157] [160][160][160][160][160] [157][157][157][157][157][157][157]"
230 B2$=B2$+" [160][160][160][160][160] [157][157][157][157][157][157][157] [160][160][160][160][160] [157][157][157][157][157][157][157]       "
240 T$(0)="     [146]    [169]    [223][146]          [223]"
250 T$(1)="  [146]         [146]    [146]      [146]     "
260 T$(2)="  [146]         [146]          [146]     "
270 T$(3)="    [146]     [223]    [223][146]          [146][169]"
275 T$(4)="  [146]             [146]      "
280 T$(5)="  [146]    [162][162]   [146]    [146] [162][162]   [146] [162][162]"
290 T$(6)="     [146]   [146] [223]    [146][169]   [146]   [146]   "
292 POKE198,0
299 :
300 POKE 53281,0:POKE 53280,0:PRINT"[147][142]":H$="[159][156][158][129][149][150][153][154]"
310 FOR J=1 TO 3:FOR I=1 TO 12:PRINT"" MID$(H$,I,1)
312 IFPEEK(198)<>0THEN 390
320 FOR K=0 TO 6:PRINTTAB(7) T$(K):NEXT:NEXT:NEXT
389 :
390 IFGA<21THEN392
391 PRINT"            [210]ESETTING NUMBER OF GAMES.":GA=1:FORZ1=1TO1000:NEXT
392 FOR I=1TO5:C(I)=1:C(I+5)=2:C(I+10)=3:C(I+15)=4:C(I+20)=5:NEXT
395 POKE V+12,170:DECK=26
399 :
400 PRINT"[147]  [206]UMBER"SPC(22)"[206]UMBER"
402 POKES+24,15:C0=3:CS=0:WS=0:K=1:PRINT"  [195]ORRECT"SPC(21)"[215]RONG"
404 PRINT"[158] [202]OYSTICK       [212]O [205]OVE       [202]OYSTICK
405 [153]"       <----------------------->
406 PRINT"    [198]1            [200]AND           [198]7
410 COL[178]16:LN[178]5:[141] 50:[151] V[170]21,126:[153] B1$:[141] 60:CC[178]C(N):C(N)[178]0
420 LN[178]15:COL[178]1:[141] 50:[153]"         SYS(null)AKE YOUR SELECTION:          ";
422 [153]"         WITH <(null)VAL(null)(null)(null)(null)> OR PEEK(null)(null)(null)(null)(null)":[151]198,.
424 LN[178]23:COL[178]3:[141] 50:[153]"       [(null)RESS '(null)' TO (null)UIT]"
430 JOY[178][168][194](56320)[175]15:FIRE[178]([194](56320)[175]16)[173]16
431 [139]JOY[179][177].[167]440
432 [139]FIRE[178]0[167] 470
433 [161]A$:[139]A$[178]""[167]430
434 [139]A$[178][199](13)[167]470
435 [139]A$[178]"INPUT"[167]JOY[178]4
436 [139]A$[178]"LET"[167]JOY[178]8
437 [139]A$[178]"Q"[176]A$[178]"(null)"[167]800
440 [139] JOY[178]8 [167] [139] [194](V[170]12)[179]250 [167] [151] V[170]12,[194](V[170]12)[170]40:C0[178]C0[170]1
445 Z8[178][194](203)
450 [139] JOY[178]4 [167] [139] [194](V[170]12)[177]90 [167] [151] V[170]12,[194](V[170]12)[171]40:C0[178]C0[171]1
460 [141] 30:[137] 430
470 [151] 2040,191[170]CC:COL[178]16:LN[178]5:[141] 50:[153] B2$:[151] V[170]21,127
480 [139]C0[178]CC[167]HF[178]50:[137]495
490 HF[178]10
495 [141]20
499 :
500 [139] C0[178]CC [167] CS[178]CS[170]1:[137] 520
510 WS[178]WS[170]1
520 LN[178]10:COL[178]4:[141] 50:[153] CS:COL[178]31:[141] 50:[153] WS:C(N)[178]0
530 LN[178]15:COL[178]1:[141] 50:[153]"PRINT(null)RESS <(null)VAL(null)(null)(null)(null)> OR PEEK(null)(null)(null)(null)(null) FOR NEXT CARD."
532 LN[178]16:COL[178]1:[141] 50:[153]"                                      "
540 FIRE[178]([194](56320)[175] 16)[173]16
542 [139] FIRE[178]1 [175] [194](197)[179][177]1 [175][194](197)[179][177]62  [167] 540
544 [139] [194](197)[178]62 [167] 800
550 [139] DECK[177]1 [167] 410
555 [151]53269,0
560 [153]"LOADSYS(null)UT OF 25 YOU GOT"CS"RIGHT.":R$[178]" JUST ABOUT "
570 [139] CS[177]5 [167] R$[178]" HIGHER THAN "
580 [139] CS[179]5 [167] R$[178]" LOWER THAN "
590 [153]"(null)HIS RESULT IS"R$"WHAT WOULD":[153]"BE EXPECTED.":LN[178]14:COL[178]0:[141]50
600 [153][200](AG$,19);"SYS(null)RESS "[199](34)"ASC1"[199](34)" TO REVIEW YOUR SCORES."
601 [153][200](AG$,20);"SYS(null)RESS "[199](34)"ASC3"[199](34)" TO PLAY AGAIN."
602 [153][200](AG$,21);"SYS(null)RESS "[199](34)"ASC7"[199](34)" TO QUIT."
610 G(GAME)[178]CS:[151]198,.
620 [161]A$:[139]A$[179][177]"INPUT"[175]A$[179][177]"LET"[175]A$[179][177]"DIM"[167]620
630 [139] A$[178]"INPUT"[167] 660
640 [139] A$[178]"DIM"[167]GAME[178]GAME[170]1:[137] 390
650 [153]"LOADRETURNCONT":[151] V[170]21,0
652 [147]"HELLO CONNECT",8
660 [151]V[170]21,0:[153]"LOAD(null)CORES:        [(null)P TO 20 GAMES]"                       
661 [129] I[178]1 [164] GAME:[153]"  CHR$AME";
662 [139]I[179]10[167][153]" ";
663 [153]I"CMD:"G(I);
664 [139]I[173]3[178][181](I[173]3)[167][153]
670 [130]:[153]:[153]:[137] 600
699 :
700 [131] 0,255,0,3,129,192,14,0,112
701 [131] 24,0,24,48,0,12,96,0,6
702 [131] 192,0,3,192,0,3,192,0,3
703 [131] 192,0,3,96,0,6,48,0,12
704 [131] 24,0,24,14,0,112,3,129,192
705 [131] 0,255,0,0,0,0,0,0,0
706 [131] 0,0,0,0,0,0,0,0,0,0
709 :
710 [131] 0,0,0,127,255,254,96,0,6
711 [131] 96,0,6,96,0,6,96,0,6
712 [131] 96,0,6,96,0,6,96,0,6
713 [131] 96,0,6,96,0,6,96,0,6
714 [131] 96,0,6,96,0,6,127,255,254
715 [131] 0,0,0,0,0,0,0,0,0
716 [131] 0,0,0,0,0,0,0,0,0,0
719 :
720 [131] 0,60,0,0,60,0,0,60,0
721 [131] 0,60,0,0,60,0,0,60,0
722 [131] 127,255,254,127,255,254,0,60,0
723 [131] 0,60,0,0,60,0,0,60,0
724 [131] 0,60,0,0,60,0,0,0,0
725 [131] 0,0,0,0,0,0,0,0,0
726 [131] 0,0,0,0,0,0,0,0,0,0
729 :
730 [131] 0,24,0,0,60,0,0,60,0
731 [131] 0,102,0,255,231,255,96,0,6
732 [131] 24,0,24,6,0,96,1,129,128
733 [131] 3,0,192,3,24,192,6,102,96
734 [131] 7,129,224,14,0,112,12,0,48
735 [131] 0,0,0,0,0,0,0,0,0
736 [131] 0,0,0,0,0,0,0,0,0,0
739 :
740 [131] 0,0,0,0,0,0,7,192,124
741 [131] 28,113,198,112,31,0,7,192,124
742 [131] 28,113,198,112,31,0,7,192,124
743 [131] 28,113,198,112,31,0,7,192,124
744 [131] 28,113,198,112,31,0,0,0,0
745 [131] 0,0,0,0,0,0,0,0,0
746 [131] 0,0,0,0,0,0,0,0,0,0
749 :
750 [131] 0,6,0,0,15,0,0,15,0
751 [131] 0,15,0,0,15,0,0,15,0
752 [131] 0,207,0,9,207,0,25,192,0
753 [131] 57,207,224,56,15,224,3,224,224
754 [131] 63,207,224,63,223,224,31,255,192
755 [131] 12,127,128,1,252,0,7,255,128
756 [131] 0,0,0,3,255,0,3,255,0,0
800 Z8[178].:AG[178].
810 [153]"";
820 [153]"      ATNRE YOU SURE YOU WANT TO (null)(null)RIGHT$(null)?";
825 [153]"                                       ":[151]198,.
830 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167] 830
840 [139] A$[178]"N"[167]420
850 [137] 650
860 :
60100 PN$[178]"VAL.(null).(null).":AN$[178]"PEEK(null):  (null)ATN(null)(null)VAL(null) VAL. (null)VAL(null)VAL(null)(null)"
60110 BO[178]11:SC[178]1:CL[178]06:C1[178]12:C2[178]00:C3[178]12:C4[178]00:C5[178]00:C6[178]02:C7[178]09
60130 [151]53280,BO:[151]53281,SC:[153]"LOAD";:[137]60250
60140 [151]646,C1:[153]" TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO
60150 POKE646,C2:PRINT" [165]        [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]:        [167]
60170 [151]646,C1:[153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
60180 POKE646,C6:PRINT""TAB(20-LEN(PN$)/2);PN$
60190 POKE646,C7:PRINT""TAB(20-LEN(AN$)/2);AN$
60200 POKE646,C5:PRINT""TAB(13)"[195][207][208][217][210][201][199][200][212] 1986"
60210 PRINTTAB(9)"[195][207][205][205][207][196][207][210][197] [208][213][194][204][201][195][193][212][201][207][206][211]"
60220 POKE646,C3:PRINT" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
60230 [151]646,C4:[153]" FN                                  THEN
60240 POKE646,C3:PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]";
60245 POKE198,.:GOTO60360
60250 POKE646,CL
60255 PRINT" [172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]
60260 [129]A[178]1[164]3:[141]60470:[130]
60270 [141]60470:[153]"ONUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR
60280 FORA=1TO16:GOSUB60470:NEXT
60290 PRINT"[145][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]
60300 [129]A[178]1[164]3:[141]60470:[130]
60310 [153]" LOGNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAITCOS";
60320 [151]53280,BO:[151]53281,SC:[137]60140
60360 [153]"";
60370 [151]646,C2:[153]"FN(null)RESS THE [(null)(null)ATNLENVAL PEEKATN(null)] TO CONTINUE.THEN"
60390 [129]A[178]1[164]100:[161]A$:[139]A$[178]" "[176]A$[178]"CLOSE"[167][142]
60400 [130]
60410 [153]"";
60420 [153]"FN                                  THEN
60440 FORA=1TO100:GETA$:IFA$=" "ORA$="[160]"THENRETURN
60450 NEXT
60460 GOTO60360
60470 PRINT" [161][146][161]":RETURN