start tok64 d64-Z1Coid
10 POKE 53265,PEEK(53265)AND 239
100 POKE 53280,6
200 POKE 53281,6
300 PRINT CHR$(147);CHR$(5)
400 PRINT TAB(12)"lotto-program"
500 PRINT TAB(12)"{cm t*13}"
600 PRINT TAB(17)"by"
700 PRINT TAB(11)"e.m. production"
800 PRINT
900 PRINT"{space*5}detta program tar fram slump-"
1000 PRINT"{space*7}vis utvalda lottonummer."
1100 PRINT
1400 a=INT(35*RND(1))+1
1500 b=INT(35*RND(1))+1
1600 c=INT(35*RND(1))+1
1700 d=INT(35*RND(1))+1
1800 e=INT(35*RND(1))+1
1900 f=INT(35*RND(1))+1
2000 g=INT(35*RND(1))+1
2100 IF a=b THEN GOTO 1400
2200 IF a=c THEN GOTO 1400
2300 IF a=d THEN GOTO 1400
2400 IF a=e THEN GOTO 1400
2500 IF a=f THEN GOTO 1400
2600 IF a=g THEN GOTO 1400
2700 IF b=c THEN GOTO 1400
2800 IF b=d THEN GOTO 1400
2900 IF b=e THEN GOTO 1400
3000 IF b=f THEN GOTO 1400
3100 IF b=g THEN GOTO 1400
3200 IF c=d THEN GOTO 1400
3300 IF c=e THEN GOTO 1400
3400 IF c=f THEN GOTO 1400
3500 IF c=g THEN GOTO 1400
3600 IF d=e THEN GOTO 1400
3700 IF d=f THEN GOTO 1400
3800 IF d=g THEN GOTO 1400
3900 IF e=f THEN GOTO 1400
4000 IF e=g THEN GOTO 1400
4100 IF f=g THEN GOTO 1400
4200 PRINT"{space*5}nr 1:{space*2}";a:PRINT
4300 PRINT"{space*5}nr 2:{space*2}";b:PRINT
4400 PRINT"{space*5}nr 3:{space*2}";c:PRINT
4500 PRINT"{space*5}nr 4:{space*2}";d:PRINT
4600 PRINT"{space*5}nr 5:{space*2}";e:PRINT
4700 PRINT"{space*5}nr 6:{space*2}";f:PRINT
4800 PRINT"{space*5}nr 7:{space*2}";g:PRINT
4900 PRINT"om du vill ha fler nummer,tryck 'p'"
4950 POKE 53265,PEEK(53265)OR 16
5000 GET a$
5010 IF a$="p" THEN GOTO 10
5020 GOTO 5000
stop tok64
(bastext 1.0)