1 POKE55,0:POKE56,159:CLR
2 NM$="FAVOR":NN$="AMCGS.A":    DV=PEEK(186):IFDV<8THENDV=8
3 PRINT"[159][147]":POKE53280,0:POKE53281,0:POKE788,49:TQ=TI:POKE53371,0:MT=49152
4 SYS57812"AMCGS.A FONT",DV,0:POKE780,0:POKE781,0:POKE782,8:SYS65493
12 OPEN2,DV,2,NM$+".OPTS,P,R":INPUT#2,K3,SD,SO,CC,SK
14 INPUT#2,BD,FB,MU,WG,PK,RD,KC,KC%(0):CLOSE2
17 GOSUB5500:POKE53265,27:ONMU+1GOTO500,482
18 :
19 REM BRANCHER
20 ONSD+1GOTO70,80
24 :
25 REM CHARGE
26 A$="251331421502421502":POKE53370,0
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:FORI=FTOF+24
32 POKEI,0:NEXT:POKE53371,0:RETURN
34 REM MENU BRANCHER
35 SYSMT:POKE53269,1
37 SYSMT+9:IFL2%THEN57
41 I=1:GETA$:IFA$=""THEN37
45 IFI>LEN(CH$)THEN37
49 IFA$=MID$(CH$,I,1)THEN59
53 I=I+1:GOTO45
57 IFCX%<X1+2ORCX%>X2-2ORCY%<Y1+3ORCY%>Y2-1THEN37
58 I=(CY%-(Y1)-1)/2
59 RETURN
63 :
64 REM PRINT AT
65 X=X(I):Y=Y(I)
66 POKE211,X:POKE214,Y:SYS58732:RETURN
68 :
69 REM KEYBORD BRANCHER
70 I=1:GETA$:IFA$=""THEN76
71 IFI>LEN(CH$)THEN70
72 IFA$=MID$(CH$,I,1)THENRETURN
73 I=I+1:GOTO71
76 IFJJ=NC-2THENJJ=-1
77 JJ=JJ+1:J%=JJ+INT(RND(1)*(NC-JJ)):TEMP=S(JJ):S(JJ)=S(J%):S(J%)=TEMP:GOTO70
78 :
79 REM MOUSE BRANCHER
80 SYSMT+9:IFRG%ANDL2%=1ORR2%=1            THENI=RG%:RETURN
81 IFJJ=NC-2THENJJ=-1
82 JJ=JJ+1:J%=JJ+INT(RND(1)*(NC-JJ)):TEMP=S(JJ):S(JJ)=S(J%):S(J%)=TEMP:GOTO 80
88 :
89 REM WRONG CHOICE SOUND
90 POKE53370,0:POKEF+24,15:POKEF+8,4:POKEF+12,63:POKEF+13,17:POKEF+11,33
91 FORI=1TO100:NEXT:POKEF+11,32
92 Y=SD:X=20-(LEN(WM$(WM)))/2:GOSUB66:PRINTWM$(WM);:FORI=1TO300:NEXT
93 POKE53371,0:RETURN
94 :
95 REM TONE & MESSAGE
96 POKE53370,0:POKEF+24,15:POKEF+5,4:POKEF+6,12
97 POKEF+4,23:POKEF+15,100:POKEF+4,20:POKEF+1,30:FORK=1TO350:NEXT:POKEF+6,0
98 POKEF+4,129:GOTO92
109 :
110 REM SPECIAL TURN FROM DECK  NOT A SUB
111 TC=B%(T2,C(T2)):TS=FNS(TC):TV=FNV(TC)
115 GOSUB270:ONPLGOTO119,640
119 IFT2>SF+3ORGF=SF+3THENWM=3:GOSUB90:GOTO534
120 T2=T2+4:GOTO620
121 :
122 REM AUTO
123 TC=B%(T2,C(T2)):TS=FNS(TC):TV=FNV(TC)
127 GOSUB270:ONPLGOTO141,131
131 FORK=C(FR)-1TO1STEP-1
133 IFFNS(B%(FR,K))<>FSTHEN139
135 IFFNV(B%(FR,K))<>FNV(B%(FR,K+1))+1THEN139
137 NEXTK
139 MM=K+1:GOTO1240
141 IFT2>SF+3ORGF=SF+3THENWM=3:GOSUB90:GOTO534
143 T2=T2+4:GOTO123
149 :
150 REM FILL EMPTY SPACES
151 IFFR=1OR(C(0)=0ANDC(1)=0)THEN534
152 IFC(FR)>0THEN534
154 IFC(1)>0THEN160
156 C(FR)=C(FR)+1:B%(FR,C(FR))=B%(0,C(0)):C(0)=C(0)-1:I=0:GOSUB250:GOSUB230
157 IFC(0)=0THENSYSMT+30,X(0),X(0)+3,Y(0),Y(0)+4,KT,SK
158 I=FR:GOSUB200:GOTO534
160 C(FR)=C(FR)+1:B%(FR,C(FR))=B%(1,C(1)):C(1)=C(1)-1:I=1:GOSUB200
162 GOTO158
168 :
169 REM ERASES PILE I
170 IFKS(I)=2THEN174
172 MX=Y(I)+SP(I)*(MX(I)-1)+4:SYSMT+30,X(I),X(I)+3,Y(I),MX,KT,SK:GOTO177
174 MX=X(I)+SP(I)*(MX(I)-1)+3:SYSMT+30,X(I),MX,Y(I),Y(I)+4,KT,SK
177 RETURN
178 :
179 REM MAGIC :202 OTHER PLACE  203:ANY CARD
180 ONKS(I)GOTO181,190
181 X=X(I):Y=Y(I)+SP(I)*(C(I)-1)
182 IFY>Y(I)+SP(I)*(MX(I)-1)THENY=Y(I)+SP(I)*(MX(I)-1)
184 GOSUB66:GOTO202
190 Y=Y(I):X=X(I)+SP(I)*(C(I)-1)
192 IFX>X(I)+SP(I)*(MX(I)-1)THENX=X(I)+SP(I)*(MX(I)-1)
194 GOSUB66:GOTO202
200 X=X(I):Y=Y(I):GOSUB66:IFC(I)=0THENGOSUB170
202 CA=B%(I,C(I)):IFC(I)=0THEN224
203 POKE53370,0:IFSO=1THEN220
214 POKEF+1,50:POKEF+24,12:POKEF+4,129:FORT=1TO15:NEXT:POKEF+4,128:POKEF+5,0
220 PRINT"[146]";:PRINTST$(CA);:POKE53371,0:RETURN
224 SYSMT+30,X,X+3,Y,Y+4,KT,SK:RETURN
228 :
229 REM PRINT COUNT AT I
230 K=LEN(STR$(C(I))):SYSMT+30,X(I)-2,X(I)-1,Y(I)+3,Y(I)+3,KT,SK
234 IFC(I)=0THEN246
236 X=X(I)-K+1:Y=Y(I)+3
238 GOSUB66:PRINT"[156]"RIGHT$(STR$(C(I)),K-1):RETURN
244 GOSUB66:PRINT"[156]"RIGHT$(STR$(C(I)-1),K-1):RETURN
246 IFI=0THENSYSMT+30,X(0),X(0)+3,Y(0),Y(0)+4,KT,SK
247 RETURN
248 :
249 REM PRINTS DECK AT I
250 PRINT"[146]":GOSUB65
252 POKE53370,0:IFSO=1THEN256
254 POKEF+1,50:POKEF+24,12:POKEF+4,129:FORT=1TO15:NEXT:POKEF+4,128:POKEF+5,0
256 POKE646,CC:PRINTBK$:SYSMT+30,X+1,X+2,Y+1,Y+3,KC%(KC),CC:POKE53371,0:RETURN
258 :
259 REM REDEAL
260 KD=FL(2):IFRD=0THENKD=FL(3)
261 IFRE= KDTHENWM=9:GOSUB90:RETURN
262 X=C(1):FORI=1TOX:B%(0,X)=B%(1,I):X=X-1:NEXT:C(0)=C(1):C(1)=0
263 I=1:GOSUB65:SYSMT+30,X,X+HT+2,Y,Y+4,KT,SK:I=0:GOSUB250:GOSUB230
264 IFHT=3THENRETURN
265 RE=RE+1
266 RETURN
268 :
269 WILL IT PLAY
270 PL=1
272 IF(T2>GT)AND(TC+1=FC)THENPL=2:RETURN
274 IFT2>1ANDT2<SFANDTC-1=FCTHENPL=2:RETURN
286 RETURN
288 :
289 REM PLAY FROM KLON TYPE WASTE
290 C(T2)=C(T2)+1:B%(T2,C(T2))=B%(FR,C(FR)):C(FR)=C(FR)-1:
291 Y=Y(1):X=X(1)+NT-1 :GOSUB66
292 SYSMT+30,X,X+3,Y,Y+4,KT,SK
294 NT=NT-1:IFNT<1THENNT=1
296 I=1:Y=Y(1):X=X(1)+NT-1:GOSUB66:GOSUB202
297 I=T2:GOSUB180:RETURN
298 :
299 REM PRINT STATS
300 X1=2:X2=15:Y1=8:Y2=19:CL=CC:GOSUB2100
302 X=X1+2:Y=Y1+2
306 GOSUB66:PRINT"[149]PLAYED";
307 X=X1+12-LEN(STR$(T6)):GOSUB66:PRINT"[144]"T6
308 X=X1+2:Y=Y+2:GOSUB66:PRINT"HIGH ";
309 X=X1+12-LEN(STR$(HI)):GOSUB66:PRINT"[144]"HI
310 X=X1+2:Y=Y+1:GOSUB66:PRINT"LOW  ";
311 X=X1+12-LEN(STR$(LO)):GOSUB66:PRINT"[144]"LO
312 X=X1+2:Y=Y+1:GOSUB66:PRINT"AVE. ";
313 X=X1+12-LEN(STR$(AVE)):GOSUB66:PRINT"[144]"AVE
316 X=X1+2:Y=Y+2:GOSUB66:PRINT"[156]GAMES";
317 X=X1+12-LEN(STR$(G7)):GOSUB66:PRINT"[144]"G7
320 X=X1+2:Y=Y+1:GOSUB66:PRINT"[156]WINS ";
321 X=X1+12-LEN(STR$(NW)):GOSUB66:PRINT"[144]"NW
326 RETURN
328 :
329 REM CLEAR MESSAGE
330 IFSD=1THEN342
332 PRINT"[146]"
334 SYSMT+30,0,29,0,0,100,BD
338 X=30:Y=0:GOSUB66 :PRINT"[146][144][163]H-HELP[146][174]":RETURN
342 SYSMT+30,0,39,1,1,KT,SK:RETURN
366 :
367 REM DECLARE WIN
368 IFSO=0THENGOSUB26
370 NW=NW+1:WF=1
372 X1=21:X2=34:Y1=2:Y2=06:CL=2:GOSUB2300
374 Y=Y1+2:X=X1+3:GOSUB66:PRINT"YOUWIN ":RETURN
388 :
389 REM UPDATE STATS
390 G7=G7+1:T6=0:IFWF=1THENT6=52:GOTO392:REM T6=NC IN MOST
391 FORI=SFTONP:T6=T6+C(I):NEXT
392 G8=G8+T6:AV=INT(G8/G7+.5):IFT6<LOTHENLO=T6
394 IFT6>HITHENHI=T6
395 IFG7=1THENHI=T6:LO=T6
396 WF=0:RETURN
408 :
409 REM ALTERNATE HEADING
410 IFSD=1THEN418
412 MS=0:SYSMT+30,0,39,0,0,100,BD
413 POKE53269,0
414 FORI=1TOGT+1:GOSUB65:PRINT"[144][145]"MID$(SC$,I,1):NEXT:RETURN
418 IFSD=1THENMS=1:SYSMT+30,0,39,07,24,KT,SK:X=0:Y=0:GOSUB66:PRINTCM$
420 RETURN
438 :
439 REM SPREAD GRAPHICS
440 PRINT"[146]":IFK>36THEN442
441 X=1:Y=4:FORJ=1TOK:GOSUB66:C(I)=J:GOSUB202:X=X+1:NEXT:GOTO447
442 X=1:Y=4:FORJ=1TO36:GOSUB66:C(I)=J:GOSUB202:X=X+1:NEXT:IFK>72THEN445
444 X=1:Y=10:FORJ=37TOK:GOSUB66:C(I)=J:GOSUB202:X=X+1:NEXT:GOTO447
445 X=1:Y=10:FORJ=37TO72:GOSUB66:C(I)=J:GOSUB202:X=X+1:NEXT
446 X=1:Y=16:FORJ=73TOK :GOSUB66:C(I)=J:GOSUB202:X=X+1:NEXT
447 RETURN
480 :
481 REM MENU OPENING
482 GOSUB5000
484 ONIGOTO500,486,488,39000
486 GOSUB5400:GOTO482
488 IFRD%(1)=0ANDRD%(2)=0THENWM=0:GOSUB330: GOSUB90:GOSUB5000:GOTO484
490 GOTO502
498 :
499 NEW GAME
500 FORI=1TONC:RD%(I) =S(I-1):NEXT:C(0)=NC:RE=0 :KD=FL(2):IFRD=0THENKD=FL(3)
502 SYSMT+42,216:FORI=1TONP:C(I)=0:K(I)=0:NEXT
503 SYSMT:GOSUB410
504 FORI=1TONC:B%(0,I)=RD%(I):NEXT:C(0)=NC
508 FORI=14TO17:C(I)=1:B%(I,1)=13*(I-14):GOSUB200:NEXT
512 FORI=2TO13:C(I)=C(I)+1:B%(I,C(I))=B%(0,C(0)):C(0)=C(0)-1:GOSUB200:NEXT
520 I=0:GOSUB250:GOSUB230
530 SYSMT:IFSD=1THEN   POKE53269,1
532 FORK=0TONP:MM(K)=C(K):NEXT:SYSMT+39,144:T6=0
534 GOSUB330:PRINT"[146]";:WM=4
535 Y=SD:X=20-(LEN(WM$(WM)))/2:GOSUB66:PRINTWM$(WM);
537 CH$=FR$:POKEV+1,NP+7:    GOSUB20
538 GOSUB330:IFI>6THEN544
540 ONIGOTO 542,3000,850,4000,4004,1620
542 NW=NW+1:WF=1:IFSO=0THENGOSUB26
543 X1=21:X2=34:Y1=2:Y2=6:CL=2:GOSUB2300:Y=4:X=24:GOSUB66:PRINT"YOUWIN ":GOTO4000
544 I=I-6  :IFFL(1)<>3THENI=I-1
545 FORK=0TOGF:MM(K)=C(K):OO(K)=B%(K,1): NEXT:SYSMT+39,144
546 FR=I:SR=RE:IFFR=0THENONFL(1)GOTO552,577,  1
547 IFC(FR)=0THENWM=1:GOSUB90:GOTO534
548 IFFR>GTTHEN534
549 GOTO600
550 :
551 REM TURN THREE
552 IFC(0)=0ANDC(1)=0THENWM=1:GOSUB90:GOTO534
554 IFC(0)=0THENGOSUB260:GOTO534
556 HT=FL(4):IFRD=0THENHT=FL(5)
557 UT=NT:IFUT<2THEN560
558 SYSMT+30,X(1),X(1)+HT+2,Y(1),Y(1)+4,KT,SK:I=1:GOSUB200:FORM=1TO350:NEXT
560 NT=HT:IFNT=1THEN564
562 NT=HT:IFC(0)<HTTHENNT=C(0)
564 I=1:FORJ=1TONT:B%(1,C(1)+1)=B%(0,C(0)):C(1)=C(1)+1
565 IFC(0)=0THENGOSUB246:GOTO570
566 C(0)=C(0)-1:CA=B%(1,C(1))
568 X=X(1)+J-1:Y=Y(1):GOSUB66:GOSUB202
570 NEXT:I=0:GOSUB230:GOTO534
573 :
574 REM TURN ONE TO EACH TAB
577 FORI=LTTOGT:IFC(0)=0THENWM=1:GOSUB90:GOTO534
579 C(I)=C(I)+1:B%(I,C(I))=B%(0,C(0)):C(0)=C(0)-1:GOSUB180
583 IFC(0)=0THEN591
587 NEXT
591 I=0:GOSUB230:POKE198,0:GOTO534
600 GOSUB330:PRINT"[146]";:WM=5
601 Y=SD:X=20-(LEN(WM$(WM)))/2:GOSUB66:PRINTWM$(WM);
604 CH$=T2$:GOSUB20:GOSUB330
606 IFI>6THEN612
610 GOTO540
612 I=I-7:T2=I:IFSD=0   THENI=I+1:T2=I
616 FC=B%(FR,C(FR)):FS=FNS(FC):FV=FNV(FC):IFT2>=SFTHENT2=SF+FS:GOTO111
617 IFT2=FRANDFR=1THENT2=SF+FS:GOTO111
618 IFT2=FRTHENT2=SF+FS:GOTO123
619 REM  IFT2=1ANDKS(1)=3THEN636
620 TC=B%(T2,C(T2)):TS=FNS(TC):TV=FNV(TC)
621 IFKS(FR)=4THEN694:FLOWE G RES
622 IFKP(FR)>0ANDKP(T2)>0THEN658
629 IFFV=BVANDT2<SFTHEN634
630 IFTV=BVANDC(T2)>0 ANDT2<SFTHEN634
632 GOSUB270:ONPLGOTO636,640
634 WM=7:GOSUB90:GOTO534
636 WM=3:GOSUB90:GOTO534
640 IFFL(1)=1ANDFR=1THENGOSUB290:GOTO680:GOTO534
642 MM=C(FR):GOTO1240
658 IFC(FR)=0ANDK(FR)>0THENGOSUB1100
660 IFKP(FR)>1THENGOTO672
662 FC=B%(FR,1):FV=FNV(FC):FS=FNS(FC)
667 IFFV=BVANDT2<SFTHEN634
668 IFTV=BVANDC(T2)>0 ANDT2<SFTHEN634
670 MM=1:GOSUB270:ONPLGOTO636,1240
672 IFC(FR)=1THENMM=1:GOTO662
673 IFSP(FR)*(C(FR))>SP(FR)*MX(FR)THENI=FR:GOTO1300
674 GOSUB1900
675 FC=B%(FR,MM):FV=FNV(FC):FS=FNS(FC):GOSUB270:ONPLGOTO636,690
678 :
679 REM WIN?
680 FORK=0TOSF-1
681 IFC(K)=0THEN684
682 IFFL(6)=1ANDC(FR)=0THEN151:GOTO534
683 GOTO534
684 NEXT
686 GOTO542
688 :
689 REM WILL PLAY
690 IFMM=C(FR)ANDKS(FR)<>4THEN1240
692 IFKS(FR)<>4THEN700
694 GOSUB1900:FC=B%(FR,MM):FV=FNV(FC):FS=FNS(FC):IFT2>SF-1THENT2=SF+FS
695 TC=B%(T2,C(T2)):TS=FNS(TC):TV=FNV(TC):GOSUB270:ONPLGOTO696,697
696 WM=3:GOSUB90:GOTO534
697 C(T2)=C(T2)+1:B%(T2,C(T2))=FC:C(FR)=C(FR)-1:GOSUB750:I=T2
698 GOSUB180:GOTO680
700 IFKP(FR)=3THENGOSUB1850:IFWM=8THENGOSUB90:GOTO534
710 GOTO1240
748 :
749 REM PLAY FROM BOUQUET
750 C(FR)=C(FR)+1:KK=C(FR):IFC(FR)=1THEN774
751 PRINT"AT751"
752 K=0:FORJ=1TOKK
754 IFJ=MMTHEN762
758 K=K+1:B%(FR,K)=B%(FR,J)
762 NEXT
764 SYSMT+30,X(FR),X(FR)+3,Y(FR),Y(FR)+C(FR)+3,KT,SK:STOP
766 FORJ=1TOK:I=FR:C(FR)=J:GOSUB180:NEXT
770 RETURN
774 C(FR)=0:SYSMT+30,X(FR),X(FR)+3,Y(FR),Y(FR)+4,KT,SK:RETURN
848 :
849 REM PROMPT FOR SPREAD
850 SYSMT+39,208:
852 GOSUB330:WM=6:GOSUB92
854 CH$=FR$:GOSUB20:GOSUB330:IFI<7THEN852
856 I=I-6:IFFL(1)<>3THENI=I-1
858 IFA$="D"THEN 900
862 IFC(I)=0THENWM=1:GOSUB90:GOTO534
864 IFI=0THENSYSMT+30,X(I),X(I)+3,Y(I),Y(I)+4,KT,SK:GOTO880
866 GOSUB170
870 IFK(I)>0THENGOSUB250
880 K=C(I):GOSUB440
882 SYSMT+30,0,39,00,00,100,BD:PRINT"[146]";:WM=2:IFSD=1THENWM=10
883 GOSUB92
884 IFPEEK(197)=64ANDPEEK(653)=0ANDPEEK(56320)=127THEN884
886 POKE198,0:SYSMT+42,208:GOTO534
898 :
899 REM SHOW DOWN CARDS
900 SYSMT+39,208
902 FORI=LTTOGT:GOSUB170:NEXT
904 FORI=LTTOGT
908 IFK(I)=0THEN944
916 FORJ=1TOK(I)
920 IFKS(I)=2THEN928
924 X=X(I):Y=Y(I)+J-1:GOTO932
928 Y=Y(I):X=X(I)+J-1
932 GOSUB66:CA=DN(I,J):GOSUB203
940 NEXTJ
944 NEXTI
948 GOTO882
1098 :
1099 REM UP THE DOWN CARD
1100 B%(FR,1)=DN(FR,K(FR)):C(FR)=1:K(FR)=K(FR)-1:I=FR:GOSUB180
1110 K=LEN(STR$(K(I))):SYSMT+30,X(I)+3,X(I)+3,Y(I)-1,Y(I)-1,KT,SK
1114 IFK(I)=0THENRETURN
1118 X=X(I)+3:Y=Y(I)-1
1122 GOSUB66:PRINT"[156]"RIGHT$(STR$(K(I)),K-1):RETURN
1198 :
1199 REM PATCH ON]SUB850, RETURNS FROM HERE
1200 IFPK=1THENWM=9:GOSUB90:GOTO534
1204 SYSMT+30,X(LT),X(GT)+3,Y(LT),24,KT,SK:PRINT"[146]"
1208 FORI=LTTOGT
1212 X=X(I):Y=Y(I):IFK(I)=0THEN1220
1216 FORJ=1TOK(I):GOSUB66:CA=DN(I,J):GOSUB203:Y=Y+1:NEXT
1220 NEXT
1222 GOSUB330:PRINT"[146]";:WM=2:GOSUB92
1224 IFPEEK(197)=64ANDPEEK(653)=0ANDPEEK(56320)=127THEN1224
1228 SYSMT+42,208:GOTO534
1238 :
1239 REMPLAY SEQ
1240 K=C(FR):I=FR
1242 IFFL(1)=1ANDFR=1THENGOSUB290:GOTO534
1244 IFKS(I)=1THENX=X(I):IFMM>MX(I)THENY=Y(I)+SP(I)*(MX(I)-1):GOTO1270
1248 IFKS(I)=2THEN Y=Y(I):IFMM>MX(I)THENX=X(I)+SP(I)*(MX(I)-1):GOTO1270
1250 IFKS(FR)=2THEN1257
1254 MX=Y(I)+SP(I)*(MX(I)-1)+4:Y=Y(I)+SP(I)*(MM-1)
1255 SYSMT+30,X(I),X(I)+3,Y,MX,KT,SK
1256 GOTO1260
1257 MX=X(I)+SP(I)*(MX(I)-1)+3:X=X(I)+SP(I)*(MM-1)
1258 SYSMT+30,X,MX,Y(I),Y(I)+4,KT,SK
1260 IFMM=1ANDK(FR)>0THENI=FR:GOSUB250:GOTO1274
1262 IFMM=1THEN1274
1263 IFKS(FR)=2THEN1268
1266 Y=Y(FR)+SP(FR)*(MM-2):GOTO1270
1268 X=X(FR)+SP(FR)*(MM-2)
1270 GOSUB66:CA=B%(FR,MM-1):GOSUB203
1272 X1=MM:X2=K:X3=1:IFT2>=SFTHENX1=K:X2=MM:X3=-1
1274 FORJ=KTOMMSTEP-1:C(T2)=C(T2)+1:B%(T2,C(T2))=B%(FR,J):C(FR)=C(FR)-1
1278 I=T2:GOSUB180
1280 NEXT
1284 IFC(FR)=0ANDK(FR)>0THENGOSUB1100
1290 GOTO680
1300 YUKON
1618 :
1619 REM OOPS
1620 FORI=0TOGF:C(I)=MM(I):B%(I,1)=OO(I):NEXT:SYSMT+42,144
1622 GOTO534
1848 :
1849 REM TEST FOR SEQ
1850 WM=-3:IFMM=C(FR)THENRETURN
1860 SP=T2
1864 FORJ=MMTOC(FR)-1:T2=FR:TC=B%(FR,J):FC=B%(FR,J+1)
1868 TS=FNS(TC):FS=FNS(FC):TV=FNV(TC):FV=FNV(FC)
1872 GOSUB270:ONPLGOTO1876,1880
1876 WM=8:T2=SP:RETURN
1880 NEXT
1890 T2=SP:RETURN
1900 YUKON
2088 :
2099 REM THIN WINDOW
2100 SYSMT+30,X1,X2,Y1,Y2,032,SK:SYSMT+30,X1,X2,Y1,Y1,115,CL
2104 SYSMT+30,X1,X1,Y1,Y2,099,CL:SYSMT+30,X2,X2,Y1,Y2,110,CL
2108 SYSMT+30,X1,X2,Y2,Y2,114,CL:SYSMT+30,X2,X2,Y1,Y1,113,CL
2112 SYSMT+30,X2,X2,Y2,Y2,224,CL:SYSMT+30,X1,X1,Y1,Y1,117,CL
2116 SYSMT+30,X1,X1,Y2,Y2,116,CL
2120 RETURN
2298 :
2299 REM THICK WINDOW
2300 SYSMT+30,X1,X2,Y1,Y2,032,SK:SYSMT+30,X1,X2,Y1,Y1,35,CL
2304 SYSMT+30,X1,X1,Y1,Y2,106,CL:SYSMT+30,X2,X2,Y1,Y2,107,CL
2308 SYSMT+30,X1,X2,Y2,Y2,042,CL:SYSMT+30,X2,X2,Y1,Y1,036,CL
2312 SYSMT+30,X2,X2,Y2,Y2,043,CL:SYSMT+30,X1,X1,Y1,Y1,033,CL
2316 SYSMT+30,X1,X1,Y2,Y2,028,CL
2320 RETURN
2998 :
2999 REM HELP
3000 SYSMT+39,208 :PRINT"[147]":POKE53280,0:POKE53281,0:POKE646,3:POKE53272,23
3004 IFA8=1THEN3012
3010 POKE53269,0:SYSMT+54,"T."+NM$+" HELP",DV,61440:A8=1
3011 POKEPEEK(174)+256*PEEK(175),0
3012 SYSMT+21,4,23:POKE53269,1
3013 POKE53370,0
3014 SYSMT+63,3,3,3,3,61440,HP$
3016 POKE53371,0
3020 PRINT"[147]":POKE53272,19:SYSMT+42,208:    GOTO534
3998 :
3999 REM QUIT
4000 GOSUB390:GOSUB300
4004 SYSMT+30,0,39,00,00,101,BD:PRINT"[146]";:GOSUB5000:ONIGOTO500,4134,488,39000
4134 GOSUB5400:GOSUB5000:ONIGOTO500,486,488,39000
4998 :
4999 REM MENU
5000 X1=21:X2=34:Y1=9:Y2=19:CL=CC:GOSUB2100
5100 X=X1+2:Y=Y1+2:GOSUB66:PRINT"1[146] PLAY
5104 Y[178]Y[170]2:[141]66:[153]"2WAIT OPTIONS
5106 Y=Y+2:GOSUB66:PRINT"3[146] REPLAY
5108 Y[178]Y[170]2:[141]66:[153]"4WAIT LOADSTAR
5109 SYSMT+21,27,12
5110 REM
5112 Y1=8:POKE53269,1:CH$="1234":GOSUB35:RETURN
5198 :
5199 REM OPTIONS MENU
5200 SYSMT+39,208:PRINT"[147]":POKE53265,11:POKE53272,19:POKE53280,BD:POKE53281,1
5204 SYSMT+30,0,39,0,24,KT,SK
5206 X1=3:X2=20:Y1=6:Y2=21:CL=SK:GOSUB2100:POKE646,6:POKEV+2,132
5208 X=X1+2:Y=Y1+1:GOSUB66:PRINT"[144]   OPTIONS"
5240 Y=Y+2:X=X:GOSUB66:PRINT"1 DECK COLOR
5244 Y[178]Y[170]2:[141]66:[153]"2 TILE COLOR
5248 Y=Y+2:GOSUB66:PRINT"3 BORDER COLOR
5252 Y[178]Y[170]2:[141]66:[153]"4 TILE STYLE
5254 Y=Y+2:GOSUB66:PRINT"5 DECK STYLE
5256 Y[178]Y[170]2:[141]66:[153]"6 MAIN MENU
5262 SYSMT+30,21,36,7,19,KT,SK
5263 POKE53265,27
5264 Y=11:X=29:GOSUB66:CA=35:GOSUB203:X=31:GOSUB66:CA=11:GOSUB203
5266 X=23:Y=11:GOSUB66:GOSUB256
5270 REM
5271 REM
5272 REM
5273 CH$="123456":GOSUB35
5274 ONIGOTO5310,5320,5330,5340,5362, 5394
5280 MU=1-MU:X=X3:Y=Y3:GOSUB66:PRINTO$(7+MU):GOTO5444
5310 MD=16:CC=FNC(CC):IFCC=1THENCC=2
5314 GOTO5266
5320 MD=16:SK=FNC(SK):SYSMT+60,KT,KT,SK:GOTO5270
5330 MD=16:BD=FNC(BD):POKE53280,BD:GOTO5270
5340 U2=K3:K3=K3+1:K=KT:IFK3>=6THENK3=1
5342 KT=TT%(K3):SYSMT+60,K,KT,128
5346 GOTO5270
5362 MD=4:KC=FNC(KC)
5366 GOTO5266
5394 GOSUB6400:RETURN
5398 :
5399 REM MAIN OPTIONS
5400 SYSMT+30,0,39,0,24,KT,SK
5404 X1=09:X2=30:Y1=4:Y2=21:CL=SK:GOSUB2300:X3=X1+14:Y3=Y1+4
5408 X=X1+2:Y=Y1+2:GOSUB66:PRINT"[144]     OPTIONS"
5412 Y=Y+2:GOSUB66:PRINT"1 OPENING   [144]"O$(7+MU)
5416 Y=Y+2:GOSUB66:PRINT"2 SOUND     [144]"O$(SO)
5428 Y=Y+2:GOSUB66:PRINT"3 VARIATION [144]"O$(RD)
5432 Y=Y+2:GOSUB66:PRINT"4 KEYBOARD  "O$(SD)
5436 Y=Y+2:GOSUB66:PRINT"5 GRAPHICS     "
5438 Y=Y+2:GOSUB66:PRINT"6 MAIN MENU    "
5444 REM
5446 REM
5447 Y1=5:Y2=20:CH$="123456":GOSUB35
5448 ONIGOTO5280,5460,5470,5450,5200,5482
5450 SD=SD+1:IFSD=2THENSD=0
5452 GOTO5456
5454 POKE53269,0:X=X1+2:Y=Y3+6:GOSUB66:PRINT"4 KEYBOARD"
5456 X=X3:Y=Y3+6:GOSUB66:PRINT"[144]"O$(SD):GOTO5444
5460 SO=1-SO:X=X3:Y=Y3+2:GOSUB66:PRINT"[144]"O$(SO):GOTO5444
5470 RD=1-RD
5474 X=X3:Y=Y3+4:GOSUB66:PRINT"[144]"O$(RD)
5479 GOTO5444
5482 SYSMT+42,216:RETURN
5498 :
5499 REM SETUP
5500 DIMI,X,Y,Y1,Y2,Y3,X1,X2,X3,WM$,WM,WG,WF,V,U2,TT,T6,T,SO,S,O$,NW,MT
5510 DIMMM,MD,LO,K1,JJ,J%,HI,G8,FV,FS,FR,FC,F,CL,CA,B,AV,A8,BV,SF,GF,LT,GT
5520 DIMJ,K,PL,SK,T2,TC,TE,TS,TV,A$,BK$,CH$,KK,NT,RE,T3,T4,M,HT,A,MX,SP,Z0
5524 DIMPX%,PY%,CX%,CY%,L1%,R1%,L2%,R2%,SC%,CC%,PP%,RG%,CR%
5530 NC=48:NP=17:G7=0:JJ=-1
5540 CM$="[144][163]HELP [146][163]OOPS[146] [163]SPREAD [146][163]CLAIM [146][163]ABORT [146][163]QUIT[146][174]"
5550 BS$(1)="[158][212]HE ANSWER TO
5560 BS$(2)[178]"SYSATN MAIDEN'S PRAYER
5570 BS$(3)="[158][201]S A MAN
5580 BS$(4)[178]"SYS(null)OST ANYWHERE
5590 BS$(5)="[158][213]SING
5610 X[178]08:Y[178]8:[141]66:[153]BS$(1)
5614 [134]ST$(52),CO$(3),RD%(NC),S(NC),OP(13),WM$(10),MX(NP),SP(NP)
5618 CO$(0)[178]"STOP":CO$(1)[178]"":CO$(2)[178]""
5620 CO$(3)[178]"STOP":X[178][187]([171]TI)
5630 BK$[178]"!##$CMDCMDCMDCMD+LOGLOG-CMDCMDCMDCMD+LOGLOG-CMDCMDCMDCMD+LOGLOG-CMDCMDCMDCMD\**+CMDCMDCMDCMDONONONON":[151]4095,31
5640 [150][165]S(X)[178][181](X[173]13):[150][165]V(X)[178]X[171]13[172][181](X[173]13):[150][165]C(X)[178](X[170]1)[171]MD[172][181]((X[170]1)[173]M
5644 [150][165]C(X)[178](X[170]1)[171]MD[172][181]((X[170]1)[173]MD)
5650 F[178]54272:[129]I[178]F[164]F[170]24:[151]I,0:[130]
5660 [134]B%(NP,NC),C(NP),MM(NP[170]2),X(NP[170]1),Y(NP[170]1),KS(NP),DN(NP,6),K(NP)
5670 [134]KP(NP),NN(NP),OO(NP)
5680 [129]I[178]14[164]17:X(I)[178]35:Y(I)[178]5[172]I[171]67:[130]
5690 [129]I[178]2[164]7:Y(I)[178]4:X(I)[178]4[172]I[170]1:[130]
5692 [129]I[178]8[164]13:Y(I)[178]14:X(I)[178]X(I[171]6):[130]
5694 X(0)[178]3:Y(0)[178]18:X(1)[178]X(0):Y(1)[178]Y(0)[171]6
5720 FR$[178]"RUNHSINPUTDIMO 1234567WERTYU":T2$[178]"RUNHSINPUTDIMO1234567WERTYUF"
5725 SC$[178]"1234567WERTYUFFFF":SP$[178]" 1234567WERTYU  "
5730 HP$[178]"SYS     ASC(null)(null)(null)(null)(null)VAL'(null)CLOSEASCATN(null)(null)(null)
5740 REMTL$= "FORTUNE'S FAVOR[144]-BYMAURICEJONES"
5742 MX(1)=1: MX=5:SP=1
5750 READ SF,GF,BV,LT,GT,HT
5752 DATA 14,17,00,02,13,01
5754 FORI=1TO6:READFL(I):NEXT
5756 DATA 1,  0,0  ,  1,1,  1
5760 FORI=LTTOGT:KS(I)=1:KP(I)=0:MX(I)=MX:SP(I)=SP :NEXT
5770 FORI=SFTOGF:KS(I)=1:KP(I)=0:MX(I)=1 :SP(I)=0 :NEXT
5774 X=08:Y=10:GOSUB66:PRINTBS$(2)
5776 X=08:Y=12:GOSUB66:PRINTBS$(3)
5778 X=08:Y=14:GOSUB66:PRINTBS$(4)
5780 FORI=0TO11:S(I)=I+1:NEXT:FORI=12TO23:S(I)=I+2:NEXT
5782 FORI=24TO35:S(I)=I+3:NEXT:FORI=36TO47:S(I)=I+4:NEXT
5783 X=8:Y=16:GOSUB66:PRINTBS$(5)
5784 PRINT"--[194]URMA [211]HAVE
5800 JJ[178]JJ[170]1:J%[178]JJ[170][181]([187](1)[172](NC[171]JJ)):TEMP[178]S(JJ):S(JJ)[178]S(J%):S(J%)[178]TEMP
5810 [139]JJ[179][177]NC[171]2[167]5800
5820 KC%(1)[178] 37:KC%(2)[178](47):KC%(3)[178]124:KC%(0)[178]191:
5830 O$(0)[178]"STOPON ":O$(1)[178]"STOPOFF":O$(3)[178]"STOPONE  ":O$(4)[178]"STOPTHREE"
5840 O$(8)[178]"STOPMENU":O$(7)[178]"STOPGAME"
5850 TT%(1)[178]0:TT%(2)[178]100:TT%(3)[178]128:TT%(4)[178]155:TT%(5)[178]101
5860 LO[178]1000:HI[178]0:KT[178]TT%(K3)
5870 WM$(1)[178]"CLR  EMPTY PILE   "
5880 WM$(2)[178]"CLR ANY KEY BUT RESTORE "
5890 WM$(3)[178]"CLR  ILLEGAL PLAY  "
5900 WM$(4)[178]"CLR FROM "
5910 WM$(5)[178]"CLR  TO  "
5920 WM$(6)[178]"CLR WHICH "
5930 WM$(7)[178]"CLR BASE CARD "
5940 WM$(9)[178]"CLR NO REDEAL "
5950 WM$(8)[178]"CLR NOT A SEQUENCE "
5960 WM$(0)[178]"CLR FIRST DEAL "
5970 WM$(10)[178]"CLR PRESS FIRE "
5980 V[178]MT[170]117:[151]V,159:[158]MT[170]6:[158]MT[170]18,0,38,0,23:[151]53287,4:[151]53269,0
5981 X1[178]0:[139]FL(1)[178]3[167]X1[178]1
5982 [129]I[178]X1[164]NP:[139]KS(I)[178]2[167]5986
5984 [158]MT[170]15,I[170]7[171]X1,X(I),X(I)[170]3,Y(I),Y(I)[170]SP(I)[172](MX(I)[171]1)[170]4:[137]5987
5986 [158]MT[170]15,I[170]7[171]X1,X(I),X(I)[170]SP(I)[172](MX(I)[171]1)[170]3,Y(I),Y(I)[170]4
5987 [130]
5988 [158]MT[170]15,1,20,26,0,0
5989 [158]MT[170]15,2,00,05,0,0:[158]MT[170]15,3,12,19,0,0
5990 [158]MT[170]15,4,34,39,0,0:[158]MT[170]15,5,27,33,0,0
5991 [158]MT[170]15,6,06,11,0,0:[151]V[170]1,NP[170]7
6000 ST$(1)[178]"STOP(null)(null)(null)WAIT>CMDCMDCMDCMDNEW  ^CMDCMDCMDCMDTAB(  ^CMDCMDCMDCMDTAB(  GETCMDCMDCMDCMDSGN(null)(null)WAIT(null)"
6004 ST$(0)[178]"STOP(null)CMDNEWCMDTAB(CMDTAB(CMDSGN==(null)ONCMDGETONCMD^ONCMD^ONCMD>CMDCMDCMD<<CMDCMD  CMDCMD(null)(null)WAITCMDCMD  CMDCMD=="
6008 ST$(39)[178]"STOP(null)CMDATNCMDTAB(CMDTAB(CMDSGN==(null)ONCMDORONCMD^ONCMD^ONCMD>CMDCMDCMD!WAIT<CMDCMD  CMDCMD<SGNWAITCMDCMD  CMDCMD=="
6012 ST$(9)[178]"STOP&CMDNEWCMDTAB(CMDTAB(CMDSGNABSABS'ONCMDGETONCMD^ONCMD^ONCMD>CMDCMDCMDATNPEEKCMDCMDLENSTR$CMDCMDVALASCCMDCMDCHR$LEFT$CMDCMDRIGHT$MID$WAIT"
6020 ST$(41)[178]"STOPMID$CMDATNCMDTAB(CMDTAB(CMDSGN==(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMDUSRFRECMDCMD  CMDCMD<SGNCMDCMD  CMDCMDPOSSQRWAIT"
6024 ST$(8)[178]"STOPSTR$CMDNEWCMDTAB(CMDTAB(CMDSGNABSABS(null)ONCMDGETONCMD^ONCMD^ONCMD>CMDCMDCMDATNPEEKCMDCMD(null)(null)CMDCMD(null)(null)CMDCMD(null)(null)CMDCMDRIGHT$MID$WAIT"
6028 ST$(3)[178]"STOPRIGHT$CMDNEWCMDTAB(CMDTAB(CMDSGNABSABS(null)ONCMDGETONCMD^ONCMD^ONCMD>CMDCMDCMDATNPEEKCMDCMD  CMDCMD  CMDCMD  CMDCMDRIGHT$MID$WAIT"
6036 ST$(47)[178]"STOPSTR$CMDATNCMDTAB(CMDTAB(CMDSGN==(null)ONCMDORONCMD^ONCMD^ONCMD>CMDCMDCMDGETNEWCMDCMD-*CMDCMD/^CMDCMDANDORCMDCMDSTEP+WAIT"
6040 ST$(7)[178]"STOPVALCMDNEWCMDTAB(CMDTAB(CMDSGNABSABS(null)ONCMDGETONCMD^ONCMD^ONCMD>CMDCMDCMDATNPEEKCMDCMD(null)(null)CMDCMD(null)(null)CMDCMD(null)(null)CMDCMDRIGHT$MID$WAIT"
6048 ST$(48)[178]"STOP&CMDATNCMDTAB(CMDTAB(CMDSGN=='ONCMDORONCMD^ONCMD^ONCMD>CMDCMDCMDGETNEWCMDCMDTAB(TOCMDCMDFNSPC(CMDCMDTHENNOTCMDCMDSTEP+WAIT"
6052 ST$(46)[178]"STOPVALCMDATNCMDTAB(CMDTAB(CMDSGN==(null)ONCMDORONCMD^ONCMD^ONCMD>CMDCMDCMDGETNEWCMDCMD<SGNCMDCMD>=CMDCMDINTABSCMDCMDSTEP+WAIT"
6060 ST$(40)[178]"STOP(null)CMDATNCMDTAB(CMDTAB(CMDSGN==(null)ONCMDORONCMD^ONCMD^ONCMD>CMDCMDCMDUSRFRECMDCMD  CMDCMD  CMDCMD  CMDCMDPOSSQRWAIT"
6064 ST$(2)[178]"STOPMID$CMDNEWCMDTAB(CMDTAB(CMDSGNABSABS(null)ONCMDGETONCMD^ONCMD^ONCMD>CMDCMDCMD(null)(null)CMDCMD  CMDCMD(null)(null)CMDCMD  CMDCMD(null)(null)WAIT"
6072 ST$(6)[178]"STOPASCCMDNEWCMDTAB(CMDTAB(CMDSGNABSABS(null)ONCMDGETONCMD^ONCMD^ONCMD>CMDCMDCMDATNPEEKCMDCMD(null)(null)CMDCMD(null)(null)CMDCMD  CMDCMDRIGHT$MID$WAIT"
6076 ST$(45)[178]"STOPASCCMDATNCMDTAB(CMDTAB(CMDSGN==(null)ONCMDORONCMD^ONCMD^ONCMD>CMDCMDCMDGETNEWCMDCMD<SGNCMDCMD>=CMDCMD  CMDCMDSTEP+WAIT"
6084 ST$(42)[178]"STOPRIGHT$CMDATNCMDTAB(CMDTAB(CMDSGN==(null)ONCMDORONCMD^ONCMD^ONCMD>CMDCMDCMDGETNEWCMDCMD  CMDCMD  CMDCMD  CMDCMDSTEP+WAIT"
6088 ST$(5)[178]"STOPCHR$CMDNEWCMDTAB(CMDTAB(CMDSGNABSABS(null)ONCMDGETONCMD^ONCMD^ONCMD>CMDCMDCMDATNPEEKCMDCMD  CMDCMD(null)(null)CMDCMD  CMDCMDRIGHT$MID$WAIT"
6096 ST$(44)[178]"STOPCHR$CMDATNCMDTAB(CMDTAB(CMDSGN==(null)ONCMDORONCMD^ONCMD^ONCMD>CMDCMDCMDGETNEWCMDCMD  CMDCMD>=CMDCMD  CMDCMDSTEP+WAIT"
6100 ST$(4)[178]"STOPLEFT$CMDNEWCMDTAB(CMDTAB(CMDSGNABSABS(null)ONCMDGETONCMD^ONCMD^ONCMD>CMDCMDCMDATNPEEKCMDCMD  CMDCMD(null)(null)CMDCMD  CMDCMDRIGHT$MID$WAIT"
6108 ST$(43)[178]"STOPLEFT$CMDATNCMDTAB(CMDTAB(CMDSGN==(null)ONCMDORONCMD^ONCMD^ONCMD>CMDCMDCMDGETNEWCMDCMD  CMDCMD<SGNCMDCMD  CMDCMDSTEP+WAIT"
6120 ST$(35)[178]"&CMDTANCMDTAB(CMDTAB(CMDSGN=='ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMDABCMDCMDCDCMDCMDEFCMDCMDGHCMDCMDIJ"
6124 ST$(34)[178]"STR$CMDTANCMDTAB(CMDTAB(CMDSGN==(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMDABCMDCMDKLCMDCMDMNCMDCMDOPCMDCMDIJ"
6132 ST$(33)[178]"VALCMDTANCMDTAB(CMDTAB(CMDSGN==(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMDABCMDCMDSTCMDCMDQRCMDCMDUVCMDCMDIJ"
6136 ST$(32)[178]"ASCCMDTANCMDTAB(CMDTAB(CMDSGN==(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMDABCMDCMDSTCMDCMDQRCMDCMD  CMDCMDIJ"
6144 ST$(31)[178]"CHR$CMDTANCMDTAB(CMDTAB(CMDSGN==(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMDABCMDCMD  CMDCMDQRCMDCMD  CMDCMDIJ"
6148 ST$(30)[178]"LEFT$CMDTANCMDTAB(CMDTAB(CMDSGN==(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMDABCMDCMD  CMDCMDSTCMDCMD  CMDCMDIJ"
6152 ST$(29)[178]"RIGHT$CMDTANCMDTAB(CMDTAB(CMDSGN==(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMDABCMDCMD  CMDCMD  CMDCMD  CMDCMDIJ"
6156 ST$(28)[178]"MID$CMDTANCMDTAB(CMDTAB(CMDSGN==(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMDWXCMDCMD  CMDCMDSTCMDCMD  CMDCMDYZ"
6160 ST$(27)[178]"(null)CMDTANCMDTAB(CMDTAB(CMDSGN==(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMDWXCMDCMD  CMDCMD  CMDCMD  CMDCMDYZ"
6164 ST$(26)[178]"(null)CMDTANCMDTAB(CMDTAB(CMDSGN==(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMD!WAIT<CMDCMD  CMDCMDSTCMDCMD  CMDCMD=="
6168 ST$(36)[178]"LENCMDTANCMDTAB(CMDTAB(CMDSGN==(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMD)WAIT1CMDCMD23CMDCMD45CMDCMD67CMDCMD89"
6172 ST$(49)[178]"STOPLENCMDATNCMDTAB(CMDTAB(CMDSGN==(null)ONCMDORONCMD^ONCMD^ONCMD>CMDCMDCMD)WAIT1CMDCMD23CMDCMD45CMDCMD67CMDCMD89"
6180 ST$(22)[178]"&CMD/CMDTAB(CMDTAB(CMDSGNABSABS'ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMD(null)(null)CMDCMDRNDLOGCMDCMD(null)SINCMDCMDEXPCOSCMDCMD(null)(null)WAIT"
6192 ST$(21)[178]"STR$CMD/CMDTAB(CMDTAB(CMDSGNABSABS(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMD(null)(null)CMDCMD#$CMDCMD%&CMDCMD*+CMDCMD(null)(null)WAIT"
6204 ST$(19)[178]"ASCCMD/CMDTAB(CMDTAB(CMDSGNABSABS(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMD(null)(null)CMDCMD\^CMDCMD<>CMDCMD  CMDCMD(null)(null)WAIT"
6216 ST$(18)[178]"CHR$CMD/CMDTAB(CMDTAB(CMDSGNABSABS(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMD(null)(null)CMDCMD  CMDCMD<>CMDCMD  CMDCMD(null)(null)WAIT"
6220 ST$(16)[178]"RIGHT$CMD/CMDTAB(CMDTAB(CMDSGNABSABS(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMD(null)(null)CMDCMD  CMDCMD  CMDCMD  CMDCMD(null)(null)WAIT"
6228 ST$(17)[178]"LEFT$CMD/CMDTAB(CMDTAB(CMDSGNABSABS(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMD(null)(null)CMDCMD  CMDCMD\^CMDCMD  CMDCMD(null)(null)WAIT"
6240 ST$(20)[178]"VALCMD/CMDTAB(CMDTAB(CMDSGNABSABS(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMD(null)(null)CMDCMD\^CMDCMD<>CMDCMD_=CMDCMD(null)(null)WAIT"
6252 ST$(14)[178]"(null)CMD/CMDTAB(CMDTAB(CMDSGNABSABS(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMDSPC(THENCMDCMD  CMDCMD  CMDCMD  CMDCMDNOTSTEP"
6256 ST$(15)[178]"MID$CMD/CMDTAB(CMDTAB(CMDSGNABSABS(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMDSPC(THENCMDCMD  CMDCMD\^WAITCMDCMD  CMDCMDWAITNOTSTEP"
6264 ST$(13)[178]"(null)CMD/CMDTAB(CMDTAB(CMDSGNABSABS(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMD<<CMDCMD  CMDCMD\^WAITCMDCMD  CMDCMD=="
6276 ST$(11)[178]"STOPPEEKCMDNEWCMDTAB(CMDTAB(CMDSGNABSABS(null)ONCMDGETONCMD^ONCMD^ONCMD>CMDCMDCMD()CMDCMD>?CMDCMD45CMDCMD<=CMDCMD:;"
6280 ST$(24)[178]"PEEKCMD/CMDTAB(CMDTAB(CMDSGNABSABS(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMD()CMDCMD>?CMDCMD45CMDCMD<=CMDCMD:;"
6288 ST$(10)[178]"STOPLENCMDNEWCMDTAB(CMDTAB(CMDSGNABSABS(null)ONCMDGETONCMD^ONCMD^ONCMD>CMDCMDCMD()CMDCMD^_CMDCMD45CMDCMD[]CMDCMD:;"
6300 ST$(23)[178]"LENCMD/CMDTAB(CMDTAB(CMDSGNABSABS(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMD()CMDCMD^_CMDCMD45CMDCMD[]CMDCMD:;"
6312 ST$(25)[178]"(null)CMD/CMDTAB(CMDTAB(CMDSGNABSABS(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMD01CMDCMD23CMDCMD45CMDCMD67CMDCMD89"
6324 ST$(12)[178]"STOP(null)CMDNEWCMDTAB(CMDTAB(CMDSGNABSABS(null)ONCMDGETONCMD^ONCMD^ONCMD>CMDCMDCMD()CMDCMD^_CMDCMD45CMDCMD[]CMDCMD:;"
6336 ST$(38)[178]"(null)CMDTANCMDTAB(CMDTAB(CMDSGN==(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMD(WAIT)CMDCMD^_CMDCMD45CMDCMD[]CMDCMD:;"
6340 ST$(51)[178]"STOP(null)CMDATNCMDTAB(CMDTAB(CMDSGN==(null)ONCMDORONCMD^ONCMD^ONCMD>CMDCMDCMD(WAIT)CMDCMD^_CMDCMD45CMDCMD[]CMDCMD:;"
6348 ST$(37)[178]"PEEKCMDTANCMDTAB(CMDTAB(CMDSGN==(null)ONCMD(null)ONCMD^ONCMD^ONCMD>CMDCMDCMD(WAIT)CMDCMD>?CMDCMD45CMDCMD<=CMDCMD:;"
6352 ST$(50)[178]"STOPPEEKCMDATNCMDTAB(CMDTAB(CMDSGN==(null)ONCMDORONCMD^ONCMD^ONCMD>CMDCMDCMD(WAIT)CMDCMD>?CMDCMD45CMDCMD<=CMDCMD:;"
6354 [139]TI[179]TQ[170]300[167]6354
6356 [151]788,52
6400 [153]"LOAD":[151]53265,11
6402 [158]MT:[139]SD[178]0[167][151]53269,0
6404 [151]53281,1:[151]53280,BD:[151]53272,19:[158]MT[170]30,0,39,0,24,KT,SK
6416 [158]MT[170]30,0,39,0,0,100,BD
6420 X[178]3:Y[178]0:[141]66:[153]"STOPLOADSTAR PRESENTS  FORTUNE'S FAVOR
6424 POKE646,SK:X=39:Y=1:GOSUB66:PRINT"/"
6432 SYSMT+39,216:POKE53265,27:RETURN
10000 DV=PEEK(186):F$="FAVOR":OPEN15,DV,15,"S0:"+F$:CLOSE15:SAVEF$,DV:END
38998 :
38999 REM SAVE OPTS - RECONNECT
39000 SYSMT+3:POKE53269,0:OPEN15,DV,15,"S0:"+NM$+".OPTS":CLOSE15
39005 OPEN2,DV,2,NM$+ ".OPTS,P,W"
39010 PRINT#2,K3:PRINT#2,SD:PRINT#2,SO:PRINT#2,CC:PRINT#2,SK
39020 PRINT#2,BD:PRINT#2,FB:PRINT#2,MU:PRINT#2,WG:PRINT#2,PK:PRINT#2,RD
39024 PRINT#2,KC:PRINT#2,KC%(0)
39030 CLOSE2
39998 :
39999 REM RECONNECT
40000 POKE53280,0:POKE53281,0:DV=PEEK(186):Q$=CHR$(34):PRINT"[144][147]";
40010 A$="ELOADSTAR":R$=CHR$(13)+"R[213]"+CHR$(13):Q$=CHR$(34)
40020 CLOSE2:OPEN2,DV,2,A$:GET#2,B$:CLOSE2:IFST=0THEN40050
40030 CLOSE15:OPEN15,DV,15,"I0":INPUT#15,EN:CLOSE15
40035 POKE53280,14:POKE53281,6:PRINT"[147][154]"
40040 POKE44,8:POKE8*256,0:POKE55,0:POKE56,160:POKE53272,20:CLR:NEW
40050 PRINT"[146]LOAD"Q$A$Q$","DV""
40055 FORX=1TO4:POKE630+X,ASC(MID$(R$,X)):NEXT:POKE198,4:GOTO40040