1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   TIPSRAD
3 REM ! Utg}va  1.2    1984-03-30
4 REM ! av (c) BENGT-]KE SVENNINGSSON
5 REM ! {ndrat av B]S
7 REM ! Minne 16 Kbytes
8 REM ! Ins{nt av B]S
9 REM +++++++++++++++++++++++++++++++++
10 OPEN 'PR:' ASFILE 1
20 DIM E(13),K(13) : RANDOMIZE 
30 ; CHR$(12)
40 ; "***********************"
50 ; "** TIPSRADS-MASKINEN **"
60 ; "***********************"
70 ; : ; "INL[SNING AV SANNOLIKHETER"
80 ; "(ANTAL 1:OR OCH KRYSS AV 100)"
90 ; 
100 FOR I=1 TO 13
110 ; "MATCH NR";I : INPUT E(I),K(I)
120 NEXT I
130 ; : ; 'HUR M]NGA RADER'; : INPUT A
140 ; : ; 
150 FOR Q=1 TO A
160 S$=''
170 FOR I=1 TO 13
180 S=INT(100*RND)+1
190 IF S<=E(I) THEN 350
200 IF S>E(I)+K(I) THEN 360
210 S$=S$+' X'
220 NEXT I
230 ; #1S$
240 NEXT Q
250 ; : ; "VILL DU HA FLER RADER UTAN"
260 ; "ATT [NDRA SANNOLIKHETERNA(J/N)"
270 GET A$
280 IF A$="J" THEN 130
290 IF A$<>"N" THEN 250
300 ; : ; "VILL DU [NDRA SANNOLIKHETERNA(J/N)"
310 GET B$
320 IF B$="J" THEN 70
330 IF B$<>"N" THEN 300
340 END 
350 S$=S$+' 1' : GOTO 220
360 S$=S$+' 2' : GOTO 220