1 REM Ins{nd av Patrik Bengtsson <3227>    1986-06-19 11.03.58
10 REM +--------------------+
20 REM !                    !
30 REM !   ** M]LTIPS **    !
40 REM !                    !
50 REM ! Patrik Bengtsson   !
60 REM ! 86-06-17  ver. 1.0 !
70 REM ! 035/117007         !
80 REM !                    !
90 REM +--------------------+
100 REM 
110 REM ****** UTSKRIFT AV KUPONG *****
120 REM 
130 ; INP(3)CHR$(12)
140 ; STRING$(39,42)
150 ; '************ M ] L T I P S ******
******'
160 ; STRING$(39,42)
170 IF Q9=1 GOTO 200
180 ; : ; 'RAD   1     2     3     4    
 5     6'
190 GOTO 210
200 ; : ; 'RAD   7     8     9    10    
11    12'
210 ; STRING$(39,61)
220 RANDOMIZE 
230 REM 
240 REM ********* START **********
250 REM 
260 GOSUB 500 : REM *** V[LJA NUMMER **
270 GOSUB 600 : REM *** SORTERA **
280 REM 
290 REM ******** UTSKRIFT ***********
300 REM 
310 FOR I=1 TO 8
320 N$=NUM$(N(I)) : L=LEN(N$)
330 IF L=2 THEN L=1 ELSE L=0
340 ; CUR((I*2)+6,4+(G*6)+L)N(I)
350 NEXT I
360 REM 
370 REM ** KOLLA OM 6 ELLER 12 RADER **
380 REM 
390 G=G+1 : IF G=6 AND Q9=1 THEN 410
400 IF G=6 GET T$ ELSE 240
410 IF Q9=1 THEN ; CUR(23,0)'En kupong t
ill (J) ?'; ELSE 460
420 GET T$
430 IF T$<>'J' ; ELSE 450
440 ; : ; 'L Y C K A  T I L L  ! ! !'; :
 END 
450 Q9=0 : G=0 : GOTO 130
460 G=0 : Q9=1 : GOTO 130
470 REM 
480 REM ********* SLUMTAL SLUMPAS *****
490 REM 
500 FOR A=1 TO 8
510 N=INT(RND*26)+1
520 IF A=1 GOTO 560
530 FOR I=1 TO A-1
540 IF N(I)=N GOTO 510
550 NEXT I
560 N(A)=N
570 NEXT A
580 RETURN 
590 REM 
600 REM ******* SORTERING ***********
610 REM 
620 FOR I=1 TO 7
630 FOR J=I+1 TO 8
640 IF N(I)<N(J) THEN 680
650 X=N(I)
660 N(I)=N(J)
670 N(J)=X
680 NEXT J
690 NEXT I
700 RETURN