1 A=RND(-TI)
2 DV=PEEK(186):IFDV<8THENDV=8
3 PRINT"[147][158]        [208]LAYING CARD PUZZLES ..."
4 SYS57812"MICH FONT",DV,0:POKE780,0:POKE781,0:POKE782,8:SYS65493:ML=16*256
5 SYS57812"MR.MOUSE 2+ 1000",DV:POKE780,0:POKE781,0:POKE782,16:SYS65493
6 DIMI,X,Y,SU,ET,MT,S,F,CA,VA,T,JJ,J%,NC,DV,FC,FR,FS,FV,G7,GA,GH,GT,HI,IM,IT
7 HL=03:SK=13:BD=03:      POKE4095,31
8 DIMIV,J,K,MC,MK,MS,MV,PL,SK,T2,T6,T7,TC,TE,TS,TV,A$,BK$,CH$,MM,LO
9 GOSUB111:PRINT"[147][146]":POKE53272,19
10 DEFFNB(X)=PEEK(57)+256*PEEK(58)
11 GOTO482
17 :
18 REM BRANCHER
19 :
20 GOSUB62
21 FORI=1TOLEN(CH$):IFA$=MID$(CH$,I,1)THENRETURN
22 NEXT:GOTO20
23 :
24 REM CHARGE
25 :
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
55 :
56 REM PRESS A KEY AT 58 - GET A$ AT 62
57 :
58 X=0:Y=24:GOSUB66:PRINT"/           PLEASE PRESS A KEY [160]       [145][145][145]"
62 GOSUB2000:::GETA$:IFA$=""THEN70
63 REM IFA$=""THENGOTO80
64 RETURN
65 REM PRINT AT
66 POKE211,X:POKE214,Y:SYS58732:RETURN
67 :
68 REM MULTITASK *
69 :
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
77 :
78 REM JEFF'S EDIT ROUTINE
79 :
80 PRINT"[145][145][145] [144]BREAK AT";BR;:END
86 GOTO64
87 :
88 REM BAD CHOICE SOUND
89 :
90 POKEF+24,15:POKEF+8,4:POKEF+12,63:POKEF+13,17:POKEF+11,33
92 FORT=1TO100:NEXT:POKEF+11,32:RETURN
108 :
109 REM SET-UP
110 :
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$="[156]!##$[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
119 NC=52:JJ=-1:DIMS(NC):FORI=0TONC-1:S(I)=I:NEXT
120 JJ=JJ+1:J%=JJ+INT(RND(0)*(NC-JJ)):TEMP=S(JJ):S(JJ)=S(J%):S(J%)=TEMP
121 IFJJ<>NC-2THEN120
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=0TO1: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)="[219][220][157][157]^_[157][157]45[157][157][][157][157]:;"
151 ST$(3,12)="[219][220][157][157]^_[157][157]45[157][157][][157][157]:;":GOSUB2300
152 FORI=0TO12:READVA$(I):NEXT:FORI=0TO12:READVB$(I):NEXT
154 DIMDK(NC),B(7,36),X(10),Y(10),C(7)
156 DK=0
158 FORI=1TO7:X(I)=5*I-2:Y(I)=2:NEXT:X(0)=3:Y(0)=16:X(8)=15:Y(8)=22
180 RETURN
191 :
192 REM PRINT-ERASE CARD,194-SPREAD,200-STACKED,202-OTHER PLACE,203-ANY CARD
193 :
194 Y(I)=1+C(I):IFC(I)=0THENY(I)=2
196 IFC(I)>15THENY(I)=16
200 X=X(I):Y=Y(I):GOSUB66:IFC(I)=0THEN224
202 CA=B(I,C(I))
203 SU=FNS(CA):VA=FNV(CA)
210 IFSO=1THEN220
214 POKEF+24,6:POKEF+5,128:POKEF+4,129:FORT=1TO05: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 ERASE A CARD ON TILES
224 SYSMT+3,X,X+3,Y,Y+4,00,SK:RETURN
267 :
268 REM WILL IT PLAY?
269 :
270 PL=1:IFC(T2)=0ANDFV=12THENPL=2
272 IFB(T2,C(T2))=FC+1THENPL=2
274 REM** PL=2
276 RETURN
277 :
278 REM TOGGLE CARD SOUND
279 :
280 IFSO=0THEN288
284 SO=0:RETURN
288 SO=1:RETURN
297 :
298 REM PRINT CHOICE BOX-COLOR NEEDED
299 :
300 X=X(8):Y=Y(08):GOSUB66:PRINT"         [157][157][157][157][157][157][157][157][157]         [157][157][157][157][157][157][157][157]";
301 PRINT"[157]         ";
302 GOSUB66:RETURN
307 :
308 REM ERASE CHOICE BOX-0N HL
309 :
310 POKE646,HL:X=X(08):Y=Y(08):GOSUB66
312 PRINT"         [157][157][157][157][157][157][157][157][157]MICHAEL'S[157][157][157][157][157][157][157][157][157] PUZZLES [146]";:RETURN
321 PRINT
347 :
348 REM CALCULATE SCORE
349 :
350 FORI=1TO7:IFFNV(B(I,1))=12THENG7=G7+10
352 IFC(I)<2THEN366
354 FORJ=2TOC(I):IFB(I,J)+1<>B(I,J-1)THEN362
358 G7=G7+10
362 NEXT
366 NEXT:RETURN
413 :
414 SPREAD PILE (GRAPHICS ONLY)
415 :
416 K=C(I):X=X(I):PU=K:IFPU>15THENPU=15
418 FORJ=PUTO1STEP-1:Y=1+J:GOSUB66:GOSUB224:NEXT:PRINT"[146]";:SYSMT+6,168
420 X=1:Y=1:FORJ=1TOK:GOSUB66:C(I)=J:GOSUB202:X=X+1:NEXT:RETURN
437 :
438 REM GREAT GAME
439 :
440 POKE646,02:X=13:Y=03:GOSUB66:PRINT"[192][192][192][192][192][192][192][192][192]"
442 Y=Y+1:GOSUB66:PRINT"  GREAT  "
444 Y=Y+1:GOSUB66:PRINT"  GAME!  "
446 Y=Y+1:GOSUB66:PRINT"[192][192][192][192][192][192][192][192][192]"
448 G7=1000:SYSMT+3,9,30,8,14,160,0:      GOTO451
450 SYSMT+3,9,30,8,14,160,0:Y=11:X=15:GOSUB66:PRINT"[144]A MOMENT": G7=0:GOSUB350
451 IFG7>HITHENHI=G7
452 GH=GH+1:GT=GT+G7:GA=INT(GT/GH):IFG7<LOTHENLO=G7
453 IFGH=1THENLO=G7
455 POKE646,00:X=11:Y=09:GOSUB66:PRINT"GAME SCORE    "G7
456 Y=Y+1:GOSUB66:PRINT"HIGH GAME     "HI
457 Y=Y+1:GOSUB66:PRINT"LOW GAME      "LO
458 Y=Y+1:GOSUB66:PRINT"AVERAGE       "GA
459 Y=Y+1:GOSUB66:PRINT"GAMES PLAYED  "GH
460 G7=0:X=19:Y=15:GOSUB66:POKE646,6
461 SYSML+3:POKE53269,0
462 Y=Y+1:GOSUB66:PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
463 Y=Y+1:GOSUB66:PRINT" 1. NEW GAME   "
464 Y=Y+1:GOSUB66:PRINT" 2. SAME GAME  "
465 Y=Y+1:GOSUB66:PRINT" 3. LOADSTAR   "
466 Y=Y+1:GOSUB66:PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
469 BR=FNB(X):CH$="123":GOSUB20:ONIGOTO500,502,40000
477 :
478 REM DRAW GAME SCREEN
479 :
482 POKE53280,BD:POKE53281,1:SYSMT+3,0,39,0,24,0,SK:SYSMT+3,0,39,22,24,160,HL
483 X=X(0):Y=Y(0):GOSUB66:PRINTBK$
484 POKE646,HL:X=1:Y=23:GOSUB66:PRINT"S-SPREAD      MICHAEL'S       F1-QUIT"
485 Y=Y+1:GOSUB66: PRINT"O-OOPS         PUZZLES        F3-SOUND";
488 POKE646,HL:FORI=1TO7:X=X(I):Y=Y(I)-1:GOSUB66:PRINT"    [157][157][157][157]"I:NEXT
490 X=1:Y=22:GOSUB66:PRINT"AT FROM:                      H-HELP[146]";
499 SYSMT+6,216:GOSUB26
500 FORI=1TONC:DK(I)=S(I-1):NEXT
502 SYSMT+9,216: REM NEW GAME HERE * * *
504 FORI=1TO07:C(I)=0:NEXT:C(DK)=NC:OP=0
516 FORJ=1TO8:FORI=1TO07:C(I)=C(I)+1:B(I,C(I))=DK(C(DK)):C(DK)=C(DK)-1:
520 GOSUB194
522 IFC(DK)=0THENI=DK:GOSUB200:SYSMT+6,208:SYSML+6,41*256:SYSML:GOTO534
524 NEXT:NEXT
527 :
528 REM DO WE HAVE A WIN?
529 :
530 GC=0:FORI=1TO7:IF(C(I)<>13)OR(FNV(B(I,1))<>12)THEN533
531 FORJ=2TO13:IFB(I,J)+1<>B(I,J-1)THEN534
532 NEXT:GC=GC+1:IFGC=4THEN440
533 NEXT
534 POKE646,6:GOSUB300:PRINT"  FROM?";:FT=0
536 BR=FNB(X): CH$="1234567H[133]SO[134]":GOSUB20:GOSUB310
537 IFI>7THEN546
538 IFC(I)=0THENGOSUB90:GOTO534
542 FR=I:OP=0:GOTO600
546 ONI-7GOTO3000,450,850,560,550
550 GOSUB280:GOTO534
560 GOSUB1200:GOTO534
597 :
598 REM TO
599 :
600 POKE646,5:GOSUB300:PRINT"TO?":FT=1
602 BR=FNB(X):CH$="1234567H[133][134]":GOSUB20:GOSUB310
603 IFI<8THEN607
604 ONI-7GOTO3000,450,612
607 IFI=FRTHENGOSUB90:X=OX:Y=OY:GOSUB66:POKE646,SK:PRINT"@":GOTO534
608 T2=I:SYSMT+6,208:KF=C(FR):KT=C(T2):IFC(FR)>15THEN1000
610 OP=1:GOTO804
612 GOSUB280:GOTO600
801 :
802 REM SELECT FROM REGULAR PILE
803 :
804 IFMD=1THENMM=QX(2):X=QX(0)*5-2:Y=MM:GOTO825
805 POKE646,4: GOSUB300:PRINT" WHICH?":FT=2
808 X=X(FR)-1:Y=2:GOSUB66:POKE646,04:PRINT"%":MM=1:OX=X:OY=Y:POKE53269,0
812 BR=FNB(X):CH$=CHR$(13)+"[145]":GOSUB20:ONIGOTO818,828,830
818 POKE53269,3:FC=B(FR,MM):FV=FNV(FC):GOSUB270:ONPLGOTO820,840
820 Y=OY:X=OX:GOSUB66:POKE646,SK:PRINT"@":GOSUB90:GOSUB310:GOTO534
825 IFMM>C(FR)THENMM=C(FR)
826 GOTO818
827 REM MOVE CURSOR
828 X=X(FR)-1:Y=MM+1:POKE646,SK:GOSUB66:PRINT"@":IFMM=C(FR)THENMM=0
829 MM=MM+1:Y=MM+1:POKE646,04:GOSUB66:PRINT"%":OX=X:OY=Y:GOTO812
830 X=X(FR)-1:Y=MM+1:POKE646,SK:GOSUB66:PRINT"@":IFMM=1THENMM=C(FR)+1
831 MM=MM-1:Y=MM+1:POKE646,04:GOSUB66:PRINT"%":OX=X:OY=Y:GOTO812
837 :
838 REM PICK UP AND PUT BACK-NEED MM
839 :
840 Y=OY:X=OX:POKE646,SK:GOSUB66:PRINT"@":GOSUB310
841 IFC(FR)-(MM-1)+C(T2)>35THEN1100
842 IFMM>C(FR)THENMM=C(FR)
843 T6=C(FR):T5=T6:IFT5>16THENT5=16
844 C(FR)=MM-1:X=X(FR):FORI=T5TOMMSTEP-1:Y=1+I:GOSUB66:GOSUB224:NEXT
845 I=FR:GOSUB194
846 I=T2:FORJ=MMTOT6:C(T2)=C(T2)+1:B(T2,C(T2))=B(FR,J):GOSUB194:NEXT:GOTO530
847 :
848 :
849 REM SPREAD WHICH?
850 SYSMT+6,208:SYSML+30,0,9,23,23,255,5
854 POKE646,0:GOSUB300:PRINT" WHICH?"
858 BR=FNB(X):CH$="1234567":GOSUB20:GOSUB310:OP=0
866 K=C(I):IFC(I)=0THENGOSUB90:GOTO530
870 GOSUB416:POKE646,2:GOSUB300:PRINT" ANY KEY":GOSUB62
874 SYSMT+9,208:GOTO530
997 :
998 REM SELECT FROM SPREAD PILE
999 :
1000 IFMD=1THENIFQX(2)<16THEN804
1001 GOTO2500
1003 SYSMT+6,208:I=FR:GOSUB416
1004 POKE646,4: GOSUB300:PRINT" WHICH?":FT=3
1008 X= 1:Y=0:GOSUB66:POKE646,04:PRINT"[189]":MM=1
1012 BR=FNB(X): CH$=CHR$(13)+"[157]":GOSUB20:ONIGOTO1018,1028,1030
1018 FC=B(FR,MM):FV=FNV(FC):GOSUB270:ONPLGOTO1020,1040
1020 GOSUB66:POKE646,SK:PRINT"@":GOSUB90:SYSMT+9,208:GOTO534
1025 :
1026 REM MOVE CURSOR
1027 :
1028 X=MM:Y=0:POKE646,SK:GOSUB66:PRINT"@":IFMM=C(FR)THENMM=0
1029 MM=MM+1:X=MM:POKE646,04:GOSUB66:PRINT"[189]":GOTO1012
1030 X=MM:Y=0:POKE646,SK:GOSUB66:PRINT"@":IFMM=1THENMM=C(FR)+1
1031 MM=MM-1:X=MM:POKE646,04:GOSUB66:PRINT"[189]":GOTO1012
1037 :
1038 REM PICK UP - PUT DOWN
1039 :
1040 IFC(T2)+C(FR)-(MM-1)>35THEN1100
1044 T6=C(FR):SYSMT+9,168:GOSUB310:I=FR:FORJ=0TOMM-1:C(I)=J:GOSUB194:NEXT
1046 C=(FR)=MM-1
1048 I=T2:FORJ=MMTOT6:C(T2)=C(T2)+1:B(T2,C(T2))=B(FR,J):GOSUB194:NEXT:GOTO534
1097 :
1098 REM PILE TOO BIG MESSAGE
1099 :
1100 X=OX:Y=OY:GOSUB66:POKE646,SK:PRINT"@"
1101 SYSMT+3,9,30,8,14,160,2
1108 POKE646,2:X=13:Y=09:GOSUB66:PRINT"SORRY, NO MORE"
1112 Y=Y+1:GOSUB66:PRINT"THAN 35 CARDS
1116 Y[178]Y[170]1:[141]66:[153]" IN ONE PILE.
1120 Y=Y+1:GOSUB66:PRINT"PLEASE PRESS
1124 Y[178]Y[170]1:[141]66:[153]"   A KEY
1128 BR=FNB(X):GOSUB62:SYSMT+9,208:GOTO534
1197 :
1198 REM OOPS
1199 :
1200 IFOP=0THENGOSUB90:RETURN
1205 C(FR)=KF:C(T2)=KT:PRINT"":POKE53281,6 :FORI=1TO250:NEXT
1210 REM:   POKE53281,1
1220 SYSMT+9,208:X=OX:Y=OY:GOSUB66:POKE646,SK:PRINT"@"
1230 RETURN:REM GOTO530
1999 REM MOUSE WEDGE
2000 IFMD>1THENRETURN
2001 MD=0::SYSML+9:IFSC%=0THENRETURN
2002 IFL1%=0THENRETURN
2003 IFCY%>21THEN2100
2004 MD=1
2005 QX(FT)=INT((CX%+2)/5):QX(FT+2)=CY%-1:SYSML+63:Y=CY%:IFFT>0THEN2010
2006 IFY>C(QX(0))+1THENY=C(QX(0))+1
2007 IFY>16THENY=16
2008 X=QX(00)*5-3:POKE646,04:GOSUB66:PRINT"[146]%":OX=X:OY=Y
2010 IFFT<=1THENPOKE198,1:POKE631,48+QX(FT):RETURN
2011 RETURN
2013 POKE53272,22:PRINTCX%,CY%:STOP
2100 IFCX%>0ANDCX%<9THEN2120
2101 IFCX%>30ANDCX%<39THEN2140
2102 RETURN
2120 IFCY%=22THENRETURN
2121 IFCY%=23THENX9=ASC("S"):GOTO2150
2122 X9=ASC("O"):GOTO2150
2140 IFCY%=22THENX9=ASC("H"):GOTO2150
2141 IFCY%=23THENX9=133:GOTO2150
2142 X9=134
2150 POKE198,1:POKE631,X9:RETURN
2300 FORI=2TO3:ST$(I,11)="[219][220][157][157]>?[157][157]45[157][157]<=[157][157]:;":NEXT
2301 ST$(3,10)="[219][220][157][157]^_[157][157]45[157][157][][157][157]:;"
2302 ST$(2,10)="[172][175][157][157]23[157][157]45[157][157]67[157][157]89"
2303 ST$(3,0)=",[221][157][157][179][180][146]"
2304 ST$(2,0)=",[221][157][157]ST[146]"
2399 RETURN
2500 FORXX=C(FR)TO1STEP-1
2501 FC=B(FR,XX):FV=FNV(FC):GOSUB270:IFPL=2THENMM=XX:XX=00
2505 NEXT:IFXX<00THEN825
2510 GOTO820
2535 GOTO534
2997 :
2998 REM HELP
2999 :
3000 SYSMT+6,208
3010 POKE53281,0:SYSMT+3,0,39,0,24,160,BD:PRINT"":POKE646,BD
3020 PRINT"MICHAEL'S PUZZLES
3022 [153]"BY MAURICE JONES
3023 PRINT
3024 PRINT"  ANY CARD IS AVAILABLE FOR PLAY TO THE
3026 [153]"TOP OF ANY PILE.  SPACES CAN BE FILLED
3028 PRINT"ONLY BY KINGS.  BUILDING IS DOWNWARD BY
3030 [153]"SUIT FROM THE KING TO THE ACE. THE GAME
3032 PRINT"IS WON IF ALL FOUR KINGS ARE BUILT
3034 [153]"DOWNWARD TO THE ACE.
3036 PRINT"  AT "CHR$(34)"FROM,"CHR$(34)" "CHR$(34)"TO,"CHR$(34)" AND ";
3038 PRINTCHR$(34)"WHICH"CHR$(34)" PROMPTS
3040 [153]"ENTER THE NUMBER ABOVE THE STACK TO
3042 PRINT"SELECT. AT "CHR$(34)"WHICH"CHR$(34)" PROMPT FOR VERTICAL
3044 [153]"PILES USE CURSOR DOWN TO MOVE CURSOR
3046 PRINT"AND RETURN TO SELECT.  ON HORIZONTAL
3048 [153]"PILES USE CURSOR RIGHT TO MOVE CURSOR
3050 PRINT"AND RETURN TO SELECT.
3052 [153]"  AT ANY PROMPT, F1 ENDS GAME, F3
3054 PRINT"TOGGLES CARD SOUND, AND H GIVES THIS
3056 [153]"SCREEN. AT THE "[199](34)"FROM"[199](34)" PROMPT S SPEADS"
3058 [153]"ANY PILE AND O CANCELS LAST PLAY.  A
3060 PRINT"BUZZ SOUND INDICATES THAT THE PLAY
3062 [153]"ATTEMPTED IS NOT PERMISSIBLE.
3090 GOSUB58
3999 SYSMT+9,208:GOTO530
10000 D=PEEK(186):N$="0:MICHAEL'S":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END
39997 :
39998 REM RECONNECT
39999 :
40000 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):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:PRINT"[147]":POKE53272,23:POKE186,8:END
40070 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