start tok64 d64-JmDwbP 1 REM fredagen den 13:e 5 k=1 10 PRINT"{clear}" 20 l=1988 25 m=0 30 GOSUB 800 40 k=k+1 50 GOSUB 600 60 k=k+1 70 GOSUB 800 80 k=k+1 90 GOSUB 700 100 k=k+1 110 GOSUB 800 120 k=k+1 130 GOSUB 700 140 k=k+1 150 GOSUB 800 160 IF k=7 THEN GOTO 60 200 l=l+1 205 m=m+1 210 IF k=12 THEN k=1 215 IF m=4 THEN GOTO 25 220 GOSUB 800 230 k=k+1 240 GOSUB 500 250 IF m<4 THEN 60 300 END 500 FOR i=1 TO 28 510 j=j+1 520 IF i=13 AND j=1 THEN GOSUB 1000 530 IF j=7 THEN j=0 540 NEXT i 550 RETURN 600 FOR i=1 TO 29 610 j=j+1 620 IF i=13 AND j=1 THEN GOSUB 1000 630 IF j=7 THEN j=0 640 NEXT i 650 RETURN 700 FOR i=1 TO 30 710 j=j+1 720 IF i=13 AND j=1 THEN GOSUB 1000 730 IF j=7 THEN j=0 740 NEXT i 750 RETURN 800 FOR i=1 TO 31 810 j=j+1 820 IF i=13 AND j=1 THEN GOSUB 1000 830 IF j=7 THEN j=0 840 NEXT i 850 RETURN 1000 PRINT"fredagen den ";13;"/";k;" ";l 1010 RETURN stop tok64 (bastext 1.0)