10 REM ******* TJUGUETT ***************
20 REM Simulerar kortspel - 1979-12-29
30 REM Sven Wickberg, 0750-50456
40 REM Baldersv 43, 130 54 DALAR\
45 REM V. 4 (%) 81 08 10 SW
50 REM ********************************
90 ; CHR$(12%) : S9%=1%
100 PRINT CUR(8%,10%);"21-SPELET" : ; : ; : ; 
110 ; "SKA VI F\RKLARA SPELET? (J/N)"; : GET W$
120 IF W$<>"J" THEN 1000
130 ; : ; "SPELAS MED EN VANLIG KORTLEK"
140 ; "SOM MASKINEN BLANDAR OCH GER."
150 ; : ; "NI [R TV] SOM T[VLAR MOT ABC 80."
160 ; : ; "I PROGRAMMET HAR KORTEN F\LJANDE"
170 ; "V[RDEN:" : ; 
180 ; "     ESS=1 ELLER 10"
190 ; "     KUNG,DAM,KNEKT=10"
200 ; "     \VRIGA KORT SITT SIFFERV[RDE"
210 ; : ; "NI TV] F]R B\RJA, EN I TAGET"
220 ; " ATT KOMPLETTERA ERA KORT."
230 ; : ; "N[R SPELARE 1 [R N\JD,FORTS[TTER"
240 ; "SPELARE TV], SEDAN SPELAR ABC 80."
250 ; : ; "KAN NI SL] DATORN?"
260 ; : ; "LYCKA TILL!"
270 ; : ; "(TRYCK NU P] EN TANGENT)"
280 GET W$
290 ; CHR$(12%)
300 ; "VID (J/N) SVARAR DU" : ; 
310 ; "'JA' MED 'J'(+EV.<RETURN>)." : ; : ; 
330 ; "ANDRA SVAR R[KNAS SOM 'NEJ'" : ; : ; : ; 
340 ; "ABC 80 GER MED HASTIGHETEN";S9%;" SEK/KORT." : ; : REM --S9*1000 I PAUSERNA
350 ; : ; "VILL DU [NDRA HASTIGHETEN?(J/N)"; : GET W$
360 IF W$<>"J" AND W$<>"j" THEN 1000
365 PRINT 
370 ; : ; "HUR M]NGA SEKUNDER PER KORT?(0-9)"; : GET W$
380 S9%=VAL(W$)
390 FOR F5=1% TO 500%*S9% : NEXT F5 : GOTO 1000
1000 REM ---SPELPROGRAMMET B\RJAR------
1010 REM 
1020 REM *** SIMULERING AV KORTLEK ***
1030 DIM A$(4%)=4%,B$(13%)=4%,C$(52%)=7%
1040 DIM V%(52%),Q%(52%) : REM **KORTV[RDET
1050 H%=0% : REM ***ANTAL DRAGNA KORT
1060 FOR N%=1% TO 4%
1070 READ A$(N%)
1080 DATA "HJ ","SP ","RU ","KL "
1090 NEXT N%
1100 FOR M%=1% TO 13%
1110 READ B$(M%)
1120 DATA "ESS",2,3,4,5,6,7,8,9,10,Kn,D,Ku
1130 NEXT M%
1140 FOR D%=1% TO 4%
1150 FOR E%=1% TO 13%
1160 F%=F%+1%
1170 C$(F%)=A$(D%)+B$(E%)
1180 IF E%>10% THEN V%(F%)=10% ELSE V%(F%)=E% : REM *** K,D,Kn = 10, ESS T.V.=1
1190 NEXT E%
1200 NEXT D%
1201 V%(1%)=1% : REM ---R[TTELSE AV ???-FEL
2000 REM ***SJ[LVA SPELET*************
2005 DIM S%(3%),E%(3%),Z%(3%),O1%(3%),B%(3%)
2010 S%(1%)=0% : S%(2%)=0% : S%(3%)=0% : REM **PO[NG/SPELARE
2016 E%(1%)=0% : E%(2%)=0% : E%(3%)=0% : REM --- DRAGNA ESS/SPELARE
2020 ; CHR$(12%)
2030 ; CUR(1%,0%);"SPELARE 1      SPELARE 2      ABC 80" : ; 
2040 REM --- DRA DE 6 F\RSTA KORTEN ---
2050 FOR F%=3% TO 4%
2060 FOR A%=0% TO 30% STEP 15%
2070 GOSUB 7000
2080 ; CUR(F%,A%);C$(G%)
2090 B%=A%/15%+1%
2095 IF V%(G%)=1% THEN V%(G%)=10% : E%(B%)=E%(B%)+1%
2100 S%(B%)=S%(B%)+V%(G%)
2110 NEXT A%
2120 NEXT F%
2125 REM *** FLER KORT ***
2130 FOR A%=0% TO 30% STEP 15% : B%=A%/15%+1%
2140 FOR F%=5% TO 8%
2150 IF B%=3% THEN 2290
2160 PRINT CUR(12%,A%);"FLER KORT?(J/N)" : ; CUR(13%,A%); : INPUT W$
2170 PRINT CUR(12%,A%);SPACE$(40%) : PRINT CUR(13%,A%);SPACE$(40%) : REM ** SUDDA RADEN **
2180 IF W$<>"J" AND W$<>"j" THEN 2270
2190 GOSUB 7000 : REM --DRA KORT
2200 IF V%(G%)=1% THEN V%(G%)=10% : E%(B%)=E%(B%)+1%
2210 PRINT CUR(F%,A%);C$(G%)
2220 S%(B%)=S%(B%)+V%(G%)
2225 IF S%(B%)<21% THEN 2260
2230 IF S%(B%)=21% THEN 3000 : REM --SEGER--
2235 IF E%(B%)=0% THEN 2245 : REM --R[TTAR ???-FEL
2240 IF E%(B%)>0% THEN S%(B%)=S%(B%)-9% : E%(B%)=E%(B%)-1% : GOTO 2225
2245 S%(B%)=0% : OUT 6%,11% : PRINT CUR(F%+2%,A%);"PANG!"
2250 FOR F1=1% TO 1000% : NEXT F1
2255 OUT 6%,0% : GOTO 2270
2260 NEXT F%
2270 NEXT A%
2280 GOTO 3500 : REM ---UTV[RDERING---
2290 REM *** ABC T[NKER ***
2292 FOR F1=1% TO 1000%*S9% : NEXT F1
2295 IF S%(1%)=0% AND S%(2%)=0% THEN ; CUR(15%,10%);"ABC 80 VANN!" : Z%(3%)=Z%(3%)+1% : GOTO 6500
2300 PRINT CUR(9%,30%);"T[NKER..."
2310 OUT 6%,1%
2320 FOR F1=1% TO 1000%*S9% : NEXT F1 : OUT 6%,0% : ; CUR(9%,30%)SPACE$(10%)
2330 IF S%(3%)<S%(1%) OR S%(3%)<S%(2%) THEN 2350 ELSE 3500
2350 GOTO 2190
3000 REM --- S=21 ---------------------
3010 IF B%=1% THEN B$="SPELARE 1" : Z%(1%)=Z%(1%)+1%
3020 IF B%=2% THEN B$="SPELARE 2" : Z%(2%)=Z%(2%)+1%
3030 IF B%=3% THEN B$="ABC 80" : Z%(3%)=Z%(3%)+1%
3040 ; CUR(15%,10%);"VINST F\R ";B$
3050 GOTO 6500
3500 REM ----UTV[RDERING----------------
3510 IF S%(1%)>S%(2%) AND S%(1%)>S%(3%) THEN B$="SPELARE 1" : Z%(1%)=Z%(1%)+1% : GOTO 3540
3520 IF S%(2%)>S%(3%) AND S%(2%)>S%(1%) THEN B$="SPELARE 2" : Z%(2%)=Z%(2%)+1% : GOTO 3540
3522 IF S%(3%)>S%(1%) AND S%(3%)>S%(2%) THEN B$="ABC 80" : Z%(3%)=Z%(3%)+1% : GOTO 3540
3525 IF S%(1%)=S%(3%) OR S%(1%)=S%(2%) OR S%(2%)=S%(3%) THEN PRINT CUR(15%,10%);"OAVGJORT!" : O1%=O1%+1% : GOTO 6500
3540 ; CUR(14%,10%);"INGEN HAR 21."
3550 PRINT CUR(15%,10%);B$;" KOMMER N[RMAST"
3560 GOTO 6500
6500 FOR F1=1% TO 2000% : NEXT F1
6502 IF H%>40% THEN GOTO 8000
6505 PRINT CUR(19%,10%);"ETT SPEL TILL? (J/N)"; : PRINT CHR$(7%);
6510 INPUT W$
6520 IF W$="J" OR W$="j" THEN 2000 : REM --STARTPUNKTEN
6530 REM *** SLUTRUTIN
6540 ; CHR$(12%)
6550 ; CUR(1%,0%);"RESULTAT:";Z%(1%);" -";Z%(2%);" -";Z%(3%);";   OAVGJORDA";O1%;"     "
6560 ; CUR(10%,10%);"TACK F\R GOD MATCH!"
6565 ; CUR(12%,10%);"'RUN' F\R NYTT SPEL"
6570 ; CUR(15%,10%);"SLUT"
6580 END 
7000 REM *** VI DRAR ETT KORT ***
7005 FOR F1=1% TO 1000%*S9% : NEXT F1
7007 IF H%=53% THEN ; CUR(8%,8%);"KORTEN SLUT!" : GOTO 6550
7010 RANDOMIZE 
7020 REM --- PLATS F\R NY KORTLEK ---
7030 G%=INT(52%*RND)+1% : REM ** ORDNINGSNUMMER P] KORT I LEKEN SOM DRAS ************
7040 FOR P%=1% TO H%
7050 IF Q%(P%)=G% THEN GOTO 7030
7060 NEXT P%
7070 Q%(H%)=G% : REM ***REGISTER \VER HITTILLS DRAGNA KORT
7080 H%=H%+1% : REM *** ANTAL DRAGNA KORT+1
7085 ; CHR$(7%)
7090 RETURN : REM *** DRAGET KORT :   C$(G)
8000 REM ----KORTEN P] UPPH[LLNINGEN----
8010 ; CHR$(12%)
8020 ; CUR(6%,0%);"DET FINNS BARA";53%-H%;" KORT KVAR I LEKEN."
8030 ; CUR(8%,0%);"TROR NI DET R[CKER?"
8040 ; : ; : ; 
8050 ; "VILL NI HA ETT SPEL TILL "
8060 ; "SAMMA KORTLEK? (J/N)";
8070 GOTO 6510