10 POKE56,56:POKE55,0:CLR
15 PRINT"[147]":POKE53281,0:POKE53280,0:GOSUB60000
20 DV=PEEK(186):IFDV<8THENDV=8
30 SYS57812"CALC FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
40 SYS57812"CALC 0340-03C0",DV,0:POKE780,0:POKE781,64:POKE782,3:SYS65493
50 SYS57812"CALC C000-C149",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
60 POKE53272,31
70 GOSUB1150:GOSUB1090
80 GOSUB940:DL=1:CR=48:GM=GM+1
90 REM :: PLAY ::
100 SYSSP,0,1:M1=0:M2=0:C1=9:GOTO200
110 JS=PEEK(56320)AND31:GETA$:IFJS=31ANDA$=""THEN110
120 IFA$="V"THEN570
130 IFA$="Q"THEN650
135 IFA$="H"THEN1400
140 IFJS=15ORA$=CHR$(13)THEN230
150 IF(JS=27ORA$="[157]")ANDM2=0THENM1=M1-1-(M1=0)*1
160 IF(JS=23ORA$="")ANDM2=0THENM1=M1+1+(M1=4)*1
170 IFJS=30ORA$="[145]"THENM2=M2-1-(M2=0)*1
180 IFJS=29ORA$=""THENM2=M2+1+(M2=4)*1
190 IFM2>0THENSYSSP,0,1,37+LR(M2)*24,65+M2*40:M1=0
200 IFM2=0THENSYSSP,0,1,37+M1*40,65
210 GOTO110
220 :: CHOOSE ::
230 IFM2=0THEN410
240 IFLR(M2)=12ORC1=9ORWR(C1)<0THEN110
250 T3=U1:T4=U2:IFC1>0THENT3=WP(C1,WR(C1),0):T4=WP(C1,WR(C1),1)
260 T=LO(M2,LR(M2),1)+M2:T=T+(T>13)*13:IFT<>T4THENGOSUB760:GOTO390
270 SYSSP,1,0:IFC1=0THEN320
280 :
290 WR(C1)=WR(C1)-1:IFWR(C1)<0THENSYSPA,C1*5,0,NC$:GOTO350
300 SYSPA,C1*5,0:C3=WP(C1,WR(C1),0):C4=WP(C1,WR(C1),1):GOSUB1050:GOTO350
310 :
320 IFDP=52THENSYSPA,0,0,EC$:GOTO350
330 SYSPA,0,0,UC$
340 :
350 SYSPA,2+LR(M2)*3,M2*5:C3=T3:C4=T4:GOSUB1040:GOSUB730
360 LR(M2)=LR(M2)+1:LO(M2,LR(M2),0)=T3:LO(M2,LR(M2),1)=T4:C1=9
370 IFLR(M2)<12THENT=T+M2:T=T+(T>13)*13:PRINT" "MID$("A23456789[166]JQK",T,1)
380 M1=0:M2=0:CR=CR-1:IFCR=0THEN640
390 WAIT56320,16,15:GOTO200
400 :: DECK/PILES ::
410 IFM1=0THEN510
420 IFUR(M1)<0ANDC1>0THEN550
430 IFC1>0THEN540
440 :
450 T$=UC$:IFDP=52THENT$=EC$
460 SYSSP,1,0:SYSPA,0,0,T$
470 SYSPA,M1*5,0:C3=U1:C4=U2:GOSUB1050:GOSUB790
480 WR(M1)=WR(M1)+1:WP(M1,WR(M1),0)=U1:WP(M1,WR(M1),1)=U2:C1=9
490 M1=0:M2=0:GOTO550
500 :
510 IFDP=52ORC1=0THEN550
520 DP=DP+1:U1=DK(DP,0):U2=DK(DP,1)
530 SYSPA,0,0:C3=U1:C4=U2:GOSUB1050
540 SYSSP,1,1,7+M1*40,54:C1=M1:GOSUB790
550 WAIT56320,16,15:GOTO200
560 :: VIEW CARD ::
570 T=WR(M1):IFT<1THEN110
580 T=T-1:IFT<0THENGOSUB790:GOTO600
590 SYSPA,5*M1,0:C3=WP(M1,T,0):C4=WP(M1,T,1):GOSUB1050
600 JS=PEEK(56320)AND31:GETA$
602 IFJS=31ANDA$=""THEN600
604 IFJS=15ORA$="V"THEN580
610 SYSPA,5*M1,0:C3=WP(M1,WR(M1),0):C4=WP(M1,WR(M1),1):GOSUB1050
620 GOTO140
630 :: QUIT ::
640 FORL=0TO7:GOSUB790:NEXT
650 T=0:TC=TC+CR:POKESO,0:GOSUB1090
660 SYSPA,11,10,"[192][192][192][192] GAME  #"RIGHT$(" "+MID$(STR$(GM),2),2)" [192][192][192][192]"
670 SYSPA,11,12,"CARDS REMAINING:"CR
680 SYSPA,11,14,"AVERAGE / GAME: "INT(TC/GM+.5)
690 SYSPA,8,21,"FIRE OR RETURN - NEW GAME
695 [158]PA,10,23,"Q - QUIT TO LOADSTAR"
700 [141]790
702 JS[178][194](56320)[175]31:[161]A$
703 [139]A$[178]"Q"[167]40000
704 [139]JS[179][177]15[175]A$[178]""[167]702
706 [151]198,0:[158]F1
710 [137]80
720 :: BING ::
730 [151]AT,10:[151]SR,73:[151]WV,17:[151]HF,50:[151]LF,0:[129]J[178]0[164]333:[130]:[151]WV,16
740 [142]
750 :: BUZZ ::
760 [151]HF,6:[151]AT,0:[151]SR,240:[151]WV,33:[129]J[178]0[164]199:[130]:[151]WV,32
770 [142]
780 :: BEEP ::
790 [151]SR,240:[151]WV,17:[151]HF,50:[151]LF,35:[151]AT,0:[129]J[178]1[164]99:[130]:[151]WV,16
800 [142]
810 :: SHUFFLE ::
820 [158]PA,11,13,"SHUFFLING THE DECK":[141]790
830 [139]DL[167]850
840 T[178]1:[129]L[178]1[164]52:DL(L)[178]T:T[178]T[170]1:[130]
850 [129]L[178]1[164]52
860 T1[178][181]([187](1)[172]48[170]5):T2[178][181]([187](1)[172]48[170]5):T[178]DL(T1):DL(T1)[178]DL(T2):DL(T2)[178]T
870 [130]
880 [129]L[178]1[164]52
890 DK(L,0)[178][181]((DL(L))[173]13[170].99)
900 DK(L,1)[178]DL(L)[171]13[172][181]((DL(L)[171]1)[173]13)
910 [130]
920 [142]
930 :: DEAL ::
940 DP[178][187](0):DP[178]0:[141]820:[158]F1
950 [129]L[178]1[164]4:LR(L)[178]0:WR(L)[178][171]1:DP[178]DP[170]1
960 [158]PA,0,L[172]5:C3[178]DK(DP,0):C4[178]DK(DP,1):[141]1050:[153]""L[172]2
970 LO(L,0,0)[178]C3:LO(L,0,1)[178]C4
980 [130]
990 [158]PA,25,3,"(null)IEWCMDCMDCMDTAB(TAB(TAB(ON (null)UITCMDCMDCMDTAB(TAB(TAB(ON (null)ELPCMDCMDCMDTAB(TAB(TAB("
1000 [158]PA,0,0,UC$
1010 [129]L[178]0[164]3:[158]PA,5[170]L[172]5,0,NC$:[130]
1020 [142]
1030 :: DISPLAY CARD ::
1040 [153]"WAITLIST(null)CMD(null)CMD(null)CMD(null)ONONON";
1050 [153]CT$(C3)TP$(C4)" (null)CMDCMDCMDCMD"CB$(C3)ST$(C3)"   CMDCMDCMDCMD   ";
1060 [153]SB$(C3)"CMDCMDCMDCMD(null)WAIT "CT$(C3)BT$(C4);
1070 [142]
1080 :: SCREEN ::
1090 [151]53280,5:[151]53281,1
1100 [153]"                        ORTANTANTANTANTANTANTANTANTANTANTANTANTAN^ ";
1110 [153]"                        (null) CALCULATION (null) ";
1120 [153]"                        /TANTANTANTANTANTANTANTANTANTANTANTANTANEXP ":[158]F1
1130 [142]
1140 :: INITIALIZE ::
1150 [153]"LOAD"
1160 [134] C1,C3,C4,CR,DP,GM,JS,KB,T,T1,T2,T3,T4,J,K,L,M1,M2,DL,TC,U1,U2,T$
1170 [134] TP$(13),BT$(13),DK(52,1),DL(52),LO(4,12,1),WP(4,47,1),LR(4),WR(4)
1180 [134] CT$(4),CB$(4),ST$(4),SB$(4)
1190 EC$[178]"    CMDCMDCMDCMD    CMDCMDCMDCMD    CMDCMDCMDCMD    "
1200 UC$[178]"WAIT(null)  (null)CMDCMDCMDCMD OPEN  WAIT CMDCMDCMDCMD   WAIT CMDCMDCMDCMD(null)WAIT  (null)"
1210 NC$[178]"ORTANTAN^CMDCMDCMDCMD(null)  (null)CMDCMDCMDCMD(null)  (null)CMDCMDCMDCMD/TANTANEXP"
1220 LF[178]54272:HF[178]54273:WV[178]54276:AT[178]54277:SR[178]54278:[151]LF[170]24,15:CM[178]49408
1230 F1[178]49152:F2[178]49155:PA[178]49158:SP[178]49161:SO[178]53269:[151]2040,13:[151]2041,14
1240 [151]53276,1:[151]53285,7:[151]53287,11:[151]53288,6:[151]53277,2:[151]53271,2
1250 [129]L[178]1[164]13:[135]TP$(L),BT$(L):[130]
1260 [129]L[178]1[164]4:[135]CT$(L),CB$(L),ST$(L),SB$(L):[130]
1270 [142]
1280 [131] "PEEK "," PEEK","LEN "," LEN","STR$ "," STR$","VAL "," VAL","ASC "," ASC"
1290 [131] "CHR$ "," CHR$","LEFT$ "," LEFT$","RIGHT$ "," RIGHT$","MID$ "," MID$"
1300 [131] "(null)(null)","(null)(null)","(null) "," (null)","(null) "," (null)","(null) "," (null)"
1310 [131] "WAITPRINT#","WAITSTOP","ATN","ATN","WAITDEF","WAIT","(null)","(null)"
1320 [131] "WAITDEF","WAIT","(null)","(null)","WAITPRINT#","WAITSTOP","(null)","(null)"
1400 [158]CM,1024,16384,1000:[158]CM,55296,17384,1000
1405 SQ[178][194](SO):[151]SO,0:SW[178][194](199):[151]199,0
1410 [151]53281,5:[153]"LOAD       THE RULES FOR SYSCALCULATION"
1412 [153]"  TO WIN CALCULATION, PLAY ALL OF THE
1414 PRINT"CARDS FROM THE DECK (UPPER LEFT CORNER)
1416 [153]"TO THE FOUR ROWS BELOW. THE TOP ROW
1418 PRINT"INCREASES BY ONE, THE SECOND BY TWO,
1420 [153]"THE THIRD BY THREE AND THE FOURTH BY
1422 PRINT"FOUR. THE NEXT CARD IN THE SEQUENCE IS
1424 [153]"SHOWN WHERE IT IS TO BE PLAYED. IF THE
1426 PRINT"CARD WON'T PLAY, DROP IT ON ANY OF THE
1428 [153]"FOUR DISCARD PILES (TOP). THE TOP CARDS
1430 PRINT"OF THE DECK AND THE FOUR DISCARD PILES
1432 [153]"ARE AVAILABLE FOR PLAY.
1436 PRINT"  MOVE THE ARROW WITH THE CRSR KEYS OR
1438 [153]"THE JOYSTICK. SELECT WITH RETURN OR
1440 PRINT"FIRE, THEN MOVE TO WHERE YOU WANT TO
1442 [153]"MOVE IT AND PRESS RETURNCLOSEOR FIRE.
1450 PRINT"  PRESS V WITH THE ARROW ON A DISCARD
1452 [153]"PILE TO SEE THE CARDS UNDERNEATH.
1460 PRINT"  PRESS Q TO QUIT.
1462 [153]"           PRINTPRESS RETURN OR FIRE"
1470 JS[178][194](56320)[175]31:[161]A$:[139]JS[179][177]15[175]A$[179][177][199](13)[167]1470
1490 [151]53281,1
1500 [158]CM,16384,1024,1000:[158]CM,17384,55296,1000
1510 [151]SO,SQ:[151]199,SW:[137]110
10000 [159]15,8,15,"S0:CALCULATION":[160]15:[148]"CALCULATION",8:[128]
40000 A$[178]"HELLO CONNECT":[129]I[178]8[164]9:[160]2:[159]2,I,2:[160]2:[139]ST[167]40020
40010 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40030
40020 [130]:[153]"LOAD":[151]2048,0:[151]44,8:[151]53272,23:[151]186,8:[128]
40030 [151]53281,0:[153]"LOADSTOPLOAD"[199](34)A$[199](34)","I
40040 [153]"RUN":[151]44,8:[151]2048,0:[151]631,13:[151]632,13:[151]198,2:[128]
60000 [153]"LOAD":Z$[178]" PRINT#                                      ":[151]214,10:[153]
60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]11:[153]Z$:[130]
60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 Z$(0)[178]"LEN ATN (null) LEN (null) (null) ATN (null) RIGHT$ (null) (null)":Z$(1)[178]"BY (null)OBERT PEEK. LENOOK
60040 Z$(2)="([195]) 1993 BY [211]OFTDISK [208]UBLISHING"+CHR$(13)
60050 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)[178]"OF (null)(null)ASC(null)STR$RIGHT$(null)(null) (null)(null)PEEK(null)RIGHT$(null)LEFT$RIGHT$(null)CHR$.  RIGHT$T IS NOT"
60070 Z$(5)[178]"SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)[178]"(null)EPORT ILLEGAL DISTRIBUTION OF":Z$(7)[178]"THIS PROGRAM BY CALLING"
60090 Z$(8)[178]"1-800-831-2694 OR 1-318-221-8718.":[151]214,12:[153]
60100 [129]I[178]0[164]8:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]