1 REM Ins{nd av Bo Kullmar SYSOP <1789> 1988-03-08 00.30.29 (KERMIT) 10 REM ****************************** 11 REM * * 12 REM * Filnamn : LOTTO18.BAS * 13 REM * Version 1.8 * 14 REM * Datum : 1986-07-03 (c) * 15 REM * * 16 REM * (c) Copyright * 17 REM * Conny Westh * 18 REM * Larsbergsv. 7 LGH 627 * 19 REM * 181 38 Liding| * 20 REM * Tel. 08-767 95 82 * 21 REM * * 22 REM * * 23 REM ****************************** 100 RANDOMIZE 110 OPEN "PR : VSA30A72.5" ASFILE 1 120 OPEN "PR:" ASFILE 1 130 ; CHR$(12) 140 ; "Hur m}nga rader skall lottosystemet" 150 ; "best} av"; 160 INPUT I 170 GOTO 600 180 ; #1" *** L O T T O ***" 190 ; #1" " 200 ; #1" Version 1.8" 210 ; #1" " 220 ; #1" (C) Conny Westh 1986-07-03" 230 ; #1" " 240 ; #1;"System L 35-";I 250 ; #1;"Systemet {r ett slumpvis reducerat lottosystem" 260 ; #1"p} ";I;" rader." 270 ; #1"" 280 FOR X=1 TO I 290 ; #1;"RAD NR:";X;" AV ";I;"______"; 300 FOR B=1 TO 7 310 Y=INT(RND*34+1) 320 IF B<>1 THEN GOTO 330 ELSE 360 330 FOR P=1 TO B-1 340 IF Y=C(P) THEN GOTO 310 350 NEXT P 360 C(B)=Y 370 NEXT B 380 GOTO 470 390 FOR P=1 TO 7 400 ; #1;C(P);" "; 410 NEXT P 420 ; #1;CHR$(8) 430 NEXT X 440 ; #1;"* * * R E A D Y * * *" 450 ; #1;CHR$(12) 460 END 470 REM SIFFERSORTERING 480 LET R=0 490 DIM Q(9) 500 FOR N=1 TO 6 510 IF C(N)>C(N+1) THEN GOSUB 550 520 NEXT N 530 IF R=1 THEN GOTO 470 540 GOTO 390 550 Z=C(N) 560 LET R=1 570 C(N)=C(N+1) 580 C(N+1)=Z 590 RETURN 600 ; 610 ; CHR$(12) 620 ; "Kolla att printern {r korrekt inst{lld." 630 ; "Om s} {r fallet tryck p} J och RETURN." 640 ; "Annars m}ste Du justera printern f|rst."; 650 INPUT A$ 660 IF A$="j" OR A$="J" THEN 180 670 IF A$="N" OR A$="n" THEN 690 ELSE 730 680 GOTO 180 690 ; CHR$(12) 700 ; "]tg{rda printern och starta" 710 ; "programmet p}nytt." 720 END 730 ; CHR$(12) 740 ; "Fel f|rs|k igen. Anv{nd endast" 750 ; "RETURN eller N n{r Du svarar." 760 END