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.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