1 REM EIGHTS FOR ONE COPYRIGHT MAURICE JONES 1993
2 POKE56,56:POKE51,0:CLR:DV=PEEK(186):IFDV<8THENDV=8
4 PRINT"[147][158]  [207][203], SO [201]'M HOOKED ON [195]RAZY [197]IGHTS ..."
5 DIMI,X,Y,SU,ET,MT,S,F,CA,VA,T,JJ,J%,NC,DV,FC,FR,FS,FV,G7,GA,GH,GT,HI,HL
6 HL=12:SK=13:POKE16383,31:BD=03
7 DIM J,K,MS,PL,SK,T2,TC,TE,TS,TV,A$,BK$,CH$,LO
8 GOSUB111:PRINT"[147][146]":POKE53272,31
10 GOTO482
18 :
19 REM BRANCHER
20 GOSUB62
21 FORI=1TOLEN(CH$):IFA$=MID$(CH$,I,1)THENRETURN
22 NEXT:GOTO20
24 :
25 REM CHARGE
26 A$="251331421502421502"
27 T=87:POKEF+6,96:POKEF+24,15
28 FORI=1TO18STEP3
29 POKEF+1,VAL(MID$(A$,I,2)):POKEF+4,33
30 FORJ=1TOT*VAL(MID$(A$,I+2,1)):NEXT
31 POKEF+4,0:NEXT:RETURN
56 :
57 REM PRESS A KEY-58: GETA$-62
58 X=0:Y=24:GOSUB66:PRINT"/           PLEASE PRESS A KEY [160]       [145][145][145]"
62 GETA$:IFA$=""THEN70:RETURN
66 POKE211,X:POKE214,Y:SYS58732:RETURN
68 :
69 REM MULTITASK
70 IFJJ=NC-2THENJJ=-1
71 JJ=JJ+1:J%=JJ+INT(RND(0)*(NC-JJ)):TEMP=S(JJ):S(JJ)=S(J%):S(J%)=TEMP:GOTO62
88 :
89 REM WRONG CHOICE SOUND
90 POKEF+24,15:POKEF+8,4:POKEF+12,63:POKEF+13,17:POKEF+11,33
92 FORT=1TO100:NEXT:POKEF+11,32:RETURN
109 :
110 REM SETUP
111 DIMVA$(13),VB$(13),ST$(4,12),CO$(3),S$(3),S1$(3)
112 DATA"[216]","[203]","[202]","[201]","[200]","[199]","[198]","[197]","[196]","&","[195]","[194]","[217]"
113 S$(0)="[162]":S$(1)="[173]":S$(2)="[192]":S$(3)="[193]":CO$(0)="[144]":CO$(1)="":CO$(2)=""
114 CO$(3)="[144]":S1$(0)="[161]":S1$(1)="[218]":S1$(2)="[223]":S1$(3)="[176]"
115 DATA"[204]","[215]","[214]","[213]","[212]","[211]","[210]","[209]","[208]","'","[207]","[206]","[205]"
116 BK$="!##$[157][157][157][157][170][188][188][171][157][157][157][157][170][188][188][171][157][157][157][157][170][188][188][171][157][157][157][157]\**+[157][157][157][157][145][145][145][145]"
117 DEFFNS(X)=INT(X/13):DEFFNV(X)=X-13*INT(X/13)
118 F=54272:FORI=FTOF+78:POKEI,0:NEXT:MT=49152:CK$(0)="-":CK$(1)="["
122 ST$(0,1)="[215][216][157][157][217][218][146]":ST$(0,0)="[211][212][146]":ST$(3,0)="[179][180][146]"
123 ST$(0,9)="[193][194][157][157][195][196][157][157][197][198][157][157][199][200][157][157][201][202][146]":ST$(3,2)="[183][184][157][157][179][180][157][157][185][186][146]"
124 ST$(0,8)="[193][194][157][157][203][204][157][157][205][206][157][157][207][208][157][157][201][202][146]":ST$(0,3)="[193][194][157][157][201][202][146]"
125 ST$(3,8)="[161][162][157][157][171][172][157][157][173][174][157][157][175][176][157][157][169][170][146]":ST$(0,7)="[193][194][157][157][211][212][157][157][209][210][157][157][213][214][157][157][201][202][146]"
126 ST$(3,9)="[161][162][157][157][163][164][157][157][165][166][157][157][167][168][157][157][169][170][146]":ST$(3,7)="[161][162][157][157][179][180][157][157][177][178][157][157][181][182][157][157][169][170][146]"
127 ST$(3,1)="[183][184][157][157][185][186][146]":ST$(0,2)="[215][216][157][157][211][212][157][157][217][218][146]"
128 ST$(0,6)="[193][194][157][157][211][212][157][157][209][210][157][157][201][202][146]":ST$(3,6)="[161][162][157][157][179][180][157][157][177][178][157][157][169][170][146]"
129 ST$(3,3)="[161][162][157][157][169][170][146]":ST$(0,5)="[193][194][157][157][209][210][157][157][201][202][146]"
130 ST$(3,5)="[161][162][157][157][177][178][157][157][169][170][146]":ST$(0,4)="[193][194][157][157][211][212][157][157][201][202][146]"
131 ST$(3,4)="[161][162][157][157][179][180][157][157][169][170][146]":
132 ST$(2,9)="AB[157][157]CD[157][157]EF[157][157]GH[157][157]IJ":ST$(2,8)="AB[157][157]KL[157][157]MN[157][157]OP[157][157]IJ"
133 ST$(2,7)="AB[157][157]ST[157][157]QR[157][157]UV[157][157]IJ":ST$(2,6)="AB[157][157]ST[157][157]QR[157][157]IJ"
134 ST$(2,5)="AB[157][157]QR[157][157]IJ":ST$(2,4)="AB[157][157]ST[157][157]IJ":ST$(2,3)="AB[157][157]IJ"
135 ST$(2,2)="WX[157][157]ST[157][157]YZ":ST$(2,1)="WX[157][157]YZ":ST$(2,0)="ST"
136 FORI=2TO3:FORJ=10TO12:ST$(I,J)="01[157][157]23[157][157]45[157][157]67[157][157]89":NEXT:NEXT
137 ST$(1,9)="[219][220][157][157][187][188][157][157][223][191][157][157][189][190][157][157][221][255][146]"
138 ST$(1,8)="[219][220][157][157]#$[157][157]%&[157][157]*+[157][157][221][255][146]"
139 ST$(1,6)="[219][220][157][157]\^[157][157]<>[157][157][221][255][146]"
140 ST$(1,5)="[219][220][157][157]<>[157][157][221][255][146]"
141 ST$(1,4)="[219][220][157][157]\^[157][157][221][255][146]"
142 ST$(1,7)="[219][220][157][157]\^[157][157]<>[157][157]_=[157][157][221][255][146]"
143 ST$(1,1)="[166][167][157][157][168][169]":ST$(1,2)="[166][167][157][157]\^[146][157][157][146][168][169]"
144 ST$(1,0)="\^[146]":ST$(1,3)="[219][220][157][157][221][255][146]"
145 FORI=0TO3:ST$(I,11)="()[157][157]>?[157][157]45[157][157]<=[157][157]:;":NEXT
146 ST$(0,10)="()[157][157]^_[157][157]45[157][157][][157][157]:;"
147 ST$(1,10)="()[157][157]^_[157][157]45[157][157][][157][157]:;"
148 ST$(1,12)="01[157][157]23[157][157]45[157][157]67[157][157]89"
149 ST$(0,12)="()[157][157]^_[157][157]45[157][157][][157][157]:;"
150 ST$(2,12)="()[157][157]^_[157][157]45[157][157][][157][157]:;"
151 ST$(3,12)="()[157][157]^_[157][157]45[157][157][][157][157]:;"
152 FORI=0TO12:READVA$(I):NEXT:FORI=0TO12:READVB$(I):NEXT:SO=1:PG=0
154 DIMB(05,52),X(06),Y(06),C(05)
156 DK=3:MS=6:DIMDK(48):WR=0
160 X(1)=2:Y(1)=2:X(2)=7:Y(2)=2:X(3)=13:Y(3)=12:Y(4)=12:X(4)=19
164 X(5)=16:Y(5)=3:X(6)=14:Y(6)=21
166 NC=48:JJ=-1:DIMS(NC):FORI=0TO6:S(I)=I:NEXT:FORI=7TO18:S(I)=I+1:NEXT
167 FORI=19TO30:S(I)=I+2:NEXT:FORI=31TO42:S(I)=I+3:NEXT
169 FORI=43TO47:S(I)=I+4:NEXT
176 JJ=JJ+1:J%=JJ+INT(RND(0)*(NC-JJ)):TEMP=S(JJ):S(JJ)=S(J%):S(J%)=TEMP
178 IFJJ<>NC-2THEN176
180 RETURN
198 :
199 REM PLAY CARDS-MAGIC
200 X=X(I):Y=Y(I):GOSUB66:IFC(I)=0THEN224
202 CA=B(I,C(I)):IFC(I)=0THEN224
203 SU=FNS(CA):VA=FNV(CA)
210 IFSO=0THEN220
214 POKEF+24,6:POKEF+5,128:POKEF+4,129:FORT=1TO20:NEXT:POKEF+4,128:POKEF+5,0
216 POKEF+24,0:POKEF+24,15:POKEF+4,129:POKEF+4,128
220 PRINTCO$(SU);VA$(VA);"[179][179][177][157][157][157][157]";S$(SU);"  [174][157][157][157][157][163]  [174][157][157][157][157][163]  ";S1$(SU);
222 PRINT"[157][157][157][157][180][178][178]";VB$(VA);"[145][145][145][145][157][157][157]";ST$(SU,VA);:RETURN
223 REM ERASES CARD-TILE
224 SYSMT+3,X,X+3,Y,Y+4,00,SK:RETURN
228 :
229 REM HORIZONTAL PILE-230 TRANSFERS CARDS,PICKS UP-236 PLAYS TO
230 IFC(I)>18THEN240
232 Y=Y(I)+C(I):X=X(I):GOSUB66:GOSUB224
236 X=X(I):Y=Y(I)-1+C(I):IFC(I)=0THENY=Y(I)
237 IFY>19THENY=19
238 GOSUB66:GOSUB202:RETURN
240 X=X(I):Y=19:GOSUB66:GOSUB202:RETURN
268 :
269 REM WILL IT PLAY?
270 PL=1:IFFS=FNS(B(5,C(5)))THENPL=2
272 REMPL=2
274 IFFNV(B(5,C(5)))=7THENPL=2
276 IFFV=FNV(B(5,C(5)))THENPL=2
277 RETURN
278 :
279 REM TOGGLE SOUND
280 IF SO=0THEN288
284 SO=0:X=36:Y=17:GOSUB66:PRINT"[159]-":RETURN
288 SO=1:X=36:Y=17:GOSUB66:PRINT"[159][":RETURN
298 :
299 REM CHOICE BOX-COLOR NEEDED
300 X=X(MS):Y=Y(MS):GOSUB66:PRINT"[192][192][192][192][192][192][192][192][157][157][157][157][157][157][157][157]        [157][157][157][157][157][157][157][157][192][192][192][192][192][192][192][192]"
302 GOSUB66:RETURN
308 :
309 REM ERASE MESSAGE & BOX
310 POKE646,SK:X=X(MS):Y=Y(MS):GOSUB66
312 PRINT"[146]@@@@@@@@[157][157][157][157][157][157][157][157]@@@@@@@@[157][157][157][157][157][157][157][157]@@@@@@@@":RETURN
414 :
415 REM  SPREAD PILE I
416 K=C(I):K1=C(I):IFC(I)>19THENK1=19
418 X=X(I):FORJ=K1TO1STEP-1:Y=1+J:GOSUB66:GOSUB224:NEXT
419 IFK>35THEN422
420 X=1:Y=1:FORJ=1TOK:GOSUB66:C(I)=J:GOSUB202:X=X+1:NEXT:GOTO424
422 X=1:Y=1:FORJ=1TOK-34:GOSUB66:C(I)=J:GOSUB202:NEXT:FORJ=K-33TOK:X=X+1
423 C(I)=J:GOSUB66:GOSUB202:NEXT
424 POKE646,6:X=3:Y=7:GOSUB66:PRINT"[192][192][192][192][192][192][192][192][192][157][157][157][157][157][157][157][157][157] ANY KEY ":Y=Y+2:GOSUB66
426 PRINT"[192][192][192][192][192][192][192][192][192]":GOSUB62:RETURN
438 :
439 REM PERFECT GAME END HERE-OTHERS AT 450
440 G7=720+120*C(4):SYSMT+6,208:SYSMT+3,05,19,2,7,160,2
441 PG=PG+1:X=06:Y=3:GOSUB66:POKE646,2:PRINT"PERFECT GAME!"
442 Y=Y+1:GOSUB66:PRINT"  BONUS 240"
443 Y=Y+1:GOSUB66:PRINT"EIGHTS LEFT"C(4)
444 Y=Y+1:GOSUB66:PRINT"  BONUS";120*C(4)
450 SYSMT+6,208:IFG7>HITHENHI=G7
451 GH=GH+1:GT=GT+G7:GA=INT(GT/GH):IFG7<LOTHENLO=G7
452 IFGH=1THENLO=G7
453 SYSMT+3,09,30,09,16,160,0:POKE646,0
455 X=11:Y=10:GOSUB66:PRINT"GAME SCORE":X=29-LEN(STR$(G7)):GOSUB66:PRINT""G7
456 X=11:Y=Y+1:GOSUB66:PRINT"HIGH GAME":X=29-LEN(STR$(HI)):GOSUB66:PRINT""HI
457 X=11:Y=Y+1:GOSUB66:PRINT"LOW GAME":X=29-LEN(STR$(LO)):GOSUB66:PRINT""LO
458 X=11:Y=Y+1:GOSUB66:PRINT"AVERAGE": X=29-LEN(STR$(GA)):GOSUB66:PRINT""GA
459 X=11:Y=Y+1:GOSUB66:PRINT"GAMES PLAYED  ":X=29-LEN(STR$(GH)):GOSUB66:PRINT"" GH
460 X=11:Y=Y+1:GOSUB66:PRINT"PERFECT GAMES ":X=29-LEN(STR$(PG)):GOSUB66
461 PRINT""PG
462 X=19:Y=17:GOSUB66:POKE646,6
463 Y=Y+1:GOSUB66:PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
464 Y=Y+1:GOSUB66:PRINT" 1. NEW GAME   "
465 Y=Y+1:GOSUB66:PRINT" 2. LOADSTAR   "
466 Y=Y+1:GOSUB66:PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
469 CH$="12":GOSUB20:ONIGOTO500,40000
480 :
481 REM DRAW & STORE GAME SCREEN
482 POKE53280,BD:POKE53281,1:SYSMT+3,0,39,0,24,0,SK:SYSMT+3,25,37,2,22,160,03
483 X=26:Y=3:GOSUB66:POKE646,3:PRINT" MAURICE'S":Y=Y+2:GOSUB66:POKE646,0
484 PRINT"!#########$":Y=Y+1:GOSUB66:PRINT"[170] EIGHTS  [146][171]":Y=Y+1:GOSUB66
485 PRINT"[170] FOR ONE [146][171]":Y=Y+1:GOSUB66:PRINT"\*********+":Y=Y+3:GOSUB66
486 PRINT"[159] DECK":Y=Y+2:GOSUB66:PRINT" SCORE":Y=Y+3:GOSUB66:PRINT" F1-QUIT"
487 Y=Y+1:GOSUB66:PRINT" F3-SOUND  ":Y=Y+1:GOSUB66:PRINT" F5-ABORT"
488 Y=Y+1:GOSUB66:PRINT"  W-WARN   "
489 Y=Y+1:GOSUB66:PRINT"  S-SPREAD":Y=Y+1:GOSUB66:PRINT"  H-HELP  "
494 POKE646,HL:FORI=1TO3:X=X(I):Y=Y(I)-1:GOSUB66:PRINT"    [157][157][157][157]"I:NEXT
495 X=X(4):Y=Y(4)-1:GOSUB66:PRINT"    [157][157][157][157]"8
496 X=X(5):Y=Y(5)-1:GOSUB66:PRINT"    [157][157][157][157]"4
497 SYSMT+6,216:B(4,1)=7:B(4,2)=20:B(4,3)=33:B(4,4)=46:GOSUB26:GOTO504
498 :
499 REM NEW GAME
500 SYSMT+9,216
504 FORI=1TO48:B(DK,I)=S(I-1):NEXT:FORI=1TO5:C(I)=0:NEXT:G7=0
506 X=36:Y=19:GOSUB66:PRINT"[159]"CK$(WR)
508 X=36:Y=17:GOSUB66:PRINT"[159]"CK$(SO)
510 C(DK)=48:I=5:C(5)=1:B(5,1)=B(DK,48):GOSUB200:C(DK)=47:G7=10
516 I=3:GOSUB200:GOSUB690
518 X=36-LEN(STR$(G7)):Y=13:GOSUB66:PRINT"[159]"G7"[146]"
520 FORJ=1TO4:I=4:C(4)=J:GOSUB236:NEXT
532 :
533 REM FROM PROMPT
534 POKE646,6:GOSUB300:PRINT" FROM?";
536 CH$="1238[134]H[133]S[135]W":GOSUB20:GOSUB310
537 IFI>4THEN580
538 IFC(I)=0THENGOSUB90:GOTO534
542 FR=I:FC=B(I,C(I)):FS=FNS(FC):FV=FNV(FC)
546 ONIGOTO550,550,600,558
550 GOSUB270:ONPLGOTO554,556
554 GOSUB90:GOTO534
556 C(5)=C(5)+1:B(5,C(5))=FC:C(FR)=C(FR)-1:I=FR:GOSUB230:GOTO1000
558 SYSMT+6,208: IFWR<>1THEN576
559 X=7:Y=10:GOSUB66:PRINT"               "
560 Y=Y+1:GOSUB66:PRINT" PLAY AN EIGHT "
561 Y=Y+1:GOSUB66:PRINT" ARE YOU SURE? "
562 Y=Y+1:GOSUB66:PRINT"     (Y/N)     "
563 Y=Y+1:GOSUB66:PRINT"               "
564 A$=""
565 GETA$:IFA$=""THEN565
566 IFA$="Y"ORA$="[217]"THEN576
567 SYSMT+9,208:GOTO534
576 SYSMT+9,208
578 C(5)=C(5)+1:B(5,C(5))=FC:C(FR)=C(FR)-1:I=FR:GOSUB230:GOTO1000
580 ONI-4GOTO590,3000,450,850,453,1100
590 GOSUB280:GOTO534
598 :
599 REM PLAY TO PROMPT
600 POKE646,5:GOSUB300:PRINT"TO?"
602 CH$="124[134]H[133]S[135]W":GOSUB20:GOSUB310
603 IFI<4THEN612
604 ONI-3GOTO590,3000,450,850,453,1100
612 T2=I:TC=B(T2,C(T2)):TV=FNV(TC):TS=FNS(TC):ONIGOTO620,620,640
620 C(T2)=C(T2)+1:B(T2,C(T2))=FC:C(FR)=C(FR)-1
624 I=FR:GOSUB200:I=T2:GOSUB236:GOSUB690:GOTO534
640 T2=5:GOSUB270:ONPLGOTO644,648
644 GOSUB90:GOTO534
648 C(T2)=C(T2)+1:B(T2,C(T2))=FC:C(FR)=C(FR)-1
652 I=FR:GOSUB200:GOSUB690:GOTO1000
688 :
689 REM SUBROUTINE FOR UPDATING COUNT OF        DECK
690 X=36-LEN(STR$(C(3))):Y=11:GOSUB66:PRINT"[159]"C(3)"[146]" :RETURN
848 :
849 REM SPREAD -GRAPHICS AT SUB 416
850 SYSMT+6,208
854 POKE646,0:GOSUB300:PRINT" WHICH?"
858 CH$="12[134]H[133]S[135]W":GOSUB20:GOSUB310
862 IFI>2THEN880
866 K=C(I):IFC(I)=0THENGOSUB90:GOTO534
870 GOSUB416:SYSMT+9,208:GOTO534
880 ONI-2GOTO590,3000,450,850,453,1100
998 :
999 REM PLAY TO PILE FIVE
1000 I=5:GOSUB200
1060 IFFNV(B(5,C(5)))=7THEN1080
1070 G7=G7+10:X=36-LEN(STR$(G7)):Y=13:GOSUB66:PRINT"[159]"G7"[146]"
1080 IFC(1)+C(2)+C(3)=0THEN440
1090 GOTO534
1098 :
1099 REM TOGGLE WARNING
1100 IFWR=0THENWR=1:X=36:Y=19:GOSUB66:PRINT"[159][":GOTO534
1104 IFWR=1THENWR=0:X=36:Y=19:GOSUB66:PRINT"[159]-":GOTO534
2998 :
2999 REM HELP
3000 SYSMT+6,208:PRINT"[147]":POKE53272,21
3040 PRINTCHR$(14)"[159]":POKE53280,0:POKE53281,0
3100 SYSMT+57,"EIGHTS HELP",DV
3300 PRINT"[147]":POKE53272,31:SYSMT+9,208:GOTO534
9998 :
9999 REM RESAVE EIGHTS
10000 DV=PEEK(186):OPEN15,DV,15,"S0:EIGHTS":CLOSE15:SAVE"EIGHTS",DV:END
39998 :
39999 REM RECONNECT
40000 PRINT"[147]":POKE53281,0:POKE53280,0:POKE53272,21
40005 FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40020
40010 CLOSE15:OPEN15,I,15,"R0:HELLO CONNECT=HELLO CONNECT"
40015 INPUT#15,ER:CLOSE15:IFER=63THEN40030
40020 NEXT:PRINT"[147][159]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,DV:END
40030 PRINT"[147][144]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)","I
40040 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END