1 REM Ins{nd av Sigvard Nilsson <3018>    1985-10-28 18.51.25
2 REM **********************************************************************
3 REM Program          LOTTO.80K         Utg}va  1.0      1985-10-27
4 REM av 3018 S.Nilsson
5 REM Ins{nd av 3018
6 REM F|r ABC80 ABC800M  ABC802 ABC806
8 REM Testad p} ABC80 ABC800M ABC802 ABC806
9 REM Programmet passar BASIC-II kortet och andra f|rekommande system
10 REM **********************************************************************
15 RANDOMIZE 
25 H%=3% : S%=2%
35 ; INP(4)CHR$(12%)
45 ; STRING$(79%,35%)
55 ; "***";TAB(12%)"*** L O T T O  M E D  S O R T E R A D E  R A D E R  ***";TAB(76%)"***"
65 ; STRING$(79%,35%)
75 ; CUR(23%,0%)'Hur m}nga rader |nskas?' : INPUT R%
85 IF R%<0% THEN 315
95 FOR T%=1% TO R%
105 IF R%>36% THEN 75
115 FOR I%=1% TO 7%
125 A%(I%)=1%+INT(35%*RND)
135 IF A%(I%)=A%(I%+1%) THEN 125
145 NEXT I%
155 FOR I%=1% TO 7%
165 FOR J%=I%+1% TO 7%
175 IF A%(I%)=A%(J%) THEN 125
185 IF A%(I%)<A%(J%) THEN 225
195 X%=A%(I%)
205 A%(I%)=A%(J%)
215 A%(J%)=X%
225 NEXT J%
235 NEXT I%
245 FOR I%=1% TO 7%
255 ; CUR(H%,S%);A%(I%) : H%=H%+1%
265 NEXT I%
275 S%=S%+4% : IF T%<18% THEN H%=3% ELSE H%=12%
285 IF T%=18% THEN S%=2%
295 NEXT T%
305 GET A$
315 ; CHR$(12%) : ; CUR(10%,0%)"Vill Du forts{tta? Svara med J eller N" : GET A$
325 IF A$="J" THEN 15 ELSE IF A$="N" THEN 335
335 ; CHR$(12%) : ; CUR(13%,5%)'Lycka till med vinsten !!'