1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   KORT
3 REM ! Utg}va  1      1979
4 REM ! av (c) Sten Burhammar
7 REM ! Minne 16 Kbytes
9 REM +++++++++++++++++++++++++++++++++
100 PRINT CHR$(12)
110 REM 
120 GOSUB 1510
140 ONERRORGOTO 1790
150 PRINT TAB(16);"KORTSPEL"
160 PRINT 
170 PRINT "KORTSPELET SPELAS P] F\LJANDE S[TT"
180 PRINT 
190 PRINT "GIVEN DELAR UT TV] KORT MED FRAMSIDAN   UPP, DU HAR F\RTUR ATT V[LJA"
200 PRINT "OM DU VILL SATSA ELLET INTE BEROENDE P] OM DU TROR ATT  N[STA KORT"
210 PRINT "KOMMER ATT HA ETT V[RDE MELLAN DE TV]   F\RSTA ELLER INTE"
220 PRINT 
230 PRINT "OM DU INTE VILL SATSA TRYCK 0"
240 N=100
250 Q=100
260 PRINT "DU HAR NU";Q;" KRONOR"
270 PRINT 
280 ONERRORGOTO 1790
290 GOTO 350
300 Q=Q+M
310 IF Q>2000 THEN 1380
320 GOTO 260
330 Q=Q-M
340 GOTO 260
350 PRINT "H[R F]R DU DINA N[STA 2 KORT"
360 PRINT 
370 RANDOMIZE 
380 LET A=INT(14*RND(1))+2
390 IF A<2 THEN 380
400 IF A>14 THEN 380
410 LET B=INT(14*RND(1))+2
420 IF B<2 THEN 380
430 IF B>14 THEN 380
440 IF A<=B THEN 380
450 IF A<11 THEN 500
460 IF A=11 THEN 520
470 IF A=12 THEN 540
480 IF A=13 THEN 560
490 IF A=14 THEN 580
500 PRINT A
510 GOTO 590
520 PRINT "KNEKT"
530 GOTO 590
540 PRINT "DAM"
550 GOTO 590
560 PRINT "KUNG"
570 GOTO 590
580 PRINT "ESS"
590 IF B<11 THEN 640
600 IF B=11 THEN 670
610 IF B=12 THEN 690
620 IF B=13 THEN 710
630 IF B=14 THEN 730
640 PRINT B : PRINT 
650 PRINT 
660 GOTO 750
670 PRINT "KNEKT"
680 GOTO 750
690 PRINT "DAM"
700 GOTO 750
710 PRINT "KUNG"
720 GOTO 750
730 PRINT "ESS"
740 PRINT 
750 PRINT "OM HUR MYCKET SL]R DU VAD"
760 PRINT 
770 INPUT M
780 IF M<>0 THEN 880
790 IF A-B<2 THEN 810
800 PRINT "BL]B[R!" : GOTO 820
810 PRINT "JAG F\RST]R DIG"
820 K=1000
830 K=K-1
840 IF K>1 THEN 830
850 PRINT CHR$(12)
860 GOSUB 1540
870 GOTO 260
880 IF M<=Q THEN 920
890 PRINT "JAG [R LEDSEN MEN DINA PENGAR R[CKER "
900 PRINT "INTE, DU HAR BARA ";Q;" KRONOR"
910 GOTO 750
920 LET C=INT(14*RND(1))+2
930 IF C<2 THEN 920
940 IF C>14 THEN 920
950 IF C<11 THEN 1000
960 IF C=11 THEN 1030
970 IF C=12 THEN 1050
980 IF C=13 THEN 1080
990 IF C=14 THEN 1100
1000 PRINT C
1010 PRINT 
1020 GOTO 1120
1030 PRINT "KNEKT"
1040 GOTO 1120
1050 PRINT "DAM"
1060 GOTO 1120
1070 PRINT : PRINT 
1080 PRINT "KUNG"
1090 GOTO 1120
1100 PRINT "ESS"
1110 PRINT 
1120 IF C<A THEN 1140
1130 GOTO 1220
1140 IF C<=B THEN 1220
1150 PRINT "DU VANN!!!"
1160 K=1000
1170 LET K=K-1
1180 IF K>1 THEN 1170
1190 PRINT CHR$(12)
1200 GOSUB 1540
1210 GOTO 300
1220 PRINT "JAG [R LEDSEN, DU F\RLORADE!"
1230 K=1000
1240 K=K-1
1250 IF K>1 THEN 1240
1260 PRINT CHR$(12)
1270 GOSUB 1540
1280 IF M<Q THEN 330
1290 PRINT 
1300 PRINT "DU HAR F\RLORAT HELA INSATSEN"
1310 PRINT "OM DU VILL F\RS\KA IGEN SKRIV JA ANNARS NEJ"
1320 PRINT 
1330 GET A$
1340 PRINT CHR$(12)
1350 IF A$="J" THEN 250
1360 PRINT "OK, JAG HOPPAS DU HADE ROLIGT"
1370 END 
1380 PRINT CHR$(7) : PRINT CHR$(7)
1390 GOSUB 1540
1400 PRINT "****************************************"
1410 PRINT "****************************************"
1420 PRINT "*****                              *****"
1430 PRINT "*****      DU SPR[NGDE BANKEN      *****"
1440 PRINT "*****                              *****"
1450 PRINT "****************************************"
1460 PRINT "****************************************"
1470 PRINT : PRINT 
1480 PRINT 
1490 PRINT "OM DU VILL SPELA IGEN SKRIV JA ANNARS   NEJ"
1500 GOTO 1320
1510 T1%=65008%
1520 PRINT "Vill Du st{lla klockan (j/n)"; : GET A$ : ; A$ : IF A$="J" OR A$="j" THEN GOSUB 1580
1530 PRINT CHR$(12)
1540 GOSUB 1670
1550 PRINT CUR(1,1)
1560 PRINT RIGHT$(NUM$(100+H%),3);":";RIGHT$(NUM$(100+M%),3) : PRINT : PRINT : PRINT 
1570 RETURN 
1580 PRINT "hh,mm,ss:"; : INPUT H%,M%,S%
1590 REM 
1600 Z=]%+X%+D%+H%*3600+M%*60+S%
1610 Z1%=Z*50/256
1620 Z%= NOT (50*(Z-Z1%/50*256))
1630 Z1%= NOT Z1%
1640 POKE 65008%,Z%,Z1%,SWAP%(Z1%)
1650 RETURN 
1660 PRINT "hh,mm,ss:"; : INPUT H%,M%,S%
1670 REM 
1680 D%=0
1690 IF (PEEK(T1%) AND 4%)=0 THEN 1680
1700 FOR I%=0% TO 2%
1710 Z%(I%)=255% XOR PEEK(T1%+I%)
1720 NEXT I%
1730 Z=((Z%(2)*256)+Z%(1))*5.12+Z%(0)/50
1740 IF Z>86400 THEN Z=Z-86400 : D%=D%+1 : GOTO 1740
1750 H%=Z/3600 : Z=Z-3600*H%
1760 M%=Z/60 : S%=Z-60%*M%
1770 IF D%<>0 THEN GOSUB 1590
1780 RETURN 
1790 GOTO 260