0
 2
 3
 4
 7
 8
 9
 5
 7
 8
 9
 10
 11
 12
 4
 5
 6
 13
 31
 32
 33
 12
 21
 22
 23
 24
 25
 56
 8
 83791
 709684
 98249434
 5.45333536E+10
 5.34658966E+13
 6.71469458E+16
 5
 11
 12
 16
 17
 19
 23
 4
 6
 10
 22
 31
 33
 34
 1
 8
 18
 21
 22
 25
 27
 2
 12
 13
 16
 25
 32
 34
 6
 16
 18
 21
 23
 24
 27
 1
 18
 23
 24
 26
 27
 34
 6
 10
 12
 16
 18
 24
 29
 10
 15
 20
 24
 26
 31
 34
 10
 15
 17
 26
 30
 31
 34
 1
 2
 3
 10
 12
 15
 23
 2
 7
 11
 18
 22
 27
 32
 6
 15
 17
 2.38521177E-43
 20
 27
 31
 5
 12
 16
 18
 25
 26
 29
 14
 18
 21
 25
 26
 31
 32
 2
 11
 16
 23
 26
 27
 30
 6
 10
 14
 22
 25
 26
 34
 1
 2
 13
 21
 25
 29
 34
 10
 15
 19
 21
 23
 26
 28
 1
 8
 13
 18
 25
 28
 32
 9
 11
 17
 18
 19
 20
 23
 2
 3
 4
 14
 21
 22
 30
 1
 3
 6
 13
 18
 2.50262041E-44
 34
 5
 6
 12
 13
 16
 23
 30
 10
 11
 12
 14
 23
 28
 33
 4
 5
 9
 10
 17
 24
 29
 8
 9
 22
 24
 26
 27
 28
 2
 3
 9
 10
 12
 31
 32
 1
 3
 6
 9
 15
 29
 33
 4
 6
 14
 22
 24
 25
 30
 2
 6
 9
 22
 24
 30
 34
 2
 10
 14
 18
 23
 25
 33
 3
 8
 14
 16
 17
 24
 28
 1
 4
 6
 9
 10
 23
 29
 5
 6
 7
 28
 29
 30
 33
 8
 11
 12
 17
 18
 22
 31
 4
 8
 11
 16
 25
 31
 34
 1
 2
 15
 24
 28
 29
 30
 10
 11
 12
 16
 22
 30
 32
 12
 16
 17
 18
 25
 27
 28
 10
 11
 15
 19
 30
 32
 33
 3
 9
 12
 18
 21
 24
 31
 4
 5
 12
 15
 17
 18
 33
 4
 7
 8
 21
 28
 29
 31
 1
 4
 8
 11
 14
 17
 23
 14
 15
 17
 22
 24
 27
 32
 2
 7
 9
 14
 22
 23
 26
 3
 7
 15
 17
 20
 31
 32
 2
 7
 10
 18
 21
 24
 32
 13
 16
 17
 20
 23
 27
 28
 1
 3
 18
 24
 30
 31
 32
 7
 8
 16
 18
 19
 25
 30
 4
 5
 7
 17
 25
 28
 30
 5
 13
 14
 18
 23
 29
 34
 5
 8
 10
 12
 17
 23
 27
 2
 14
 21
 22
 27
 29
 30
 1
 15
 16
 20
 26
 29
 30
 12
 16
 18
 19
 23
 29
 34
 1
 7
 9
 12
 18
 22
 32
 3
 12
 20
 22
 23
 29
 32
 6
 12
 13
 18
 19
 26
 32
 2
 5
 8
 23
 24
 28
 30
 8
 12
 13
 14
 17
 25
 32
 2
 3
 7
 13
 16
 18
 28
 1
 2
 14
 15
 16
 26
 27
 8
 9
 13
 16
 20
 24
 28
 18
 19
 23
 24
 25
 28
 33
 3
 6
 17
 19
 28
 29
 32
 1
 6
 7
 9
 10
 14
 21
 4
 6
 7
 8
 9
 11
 22
 6
 14
 16
 30
 31
 33
 34
 1
 6
 8
 11
 22
 29
 32
 9
 13
 15
 16
 26
 28
 34
 5
 7
 8
 9
 16
 22
 24
 5
 15
 17
 18
 22
 23
 27
 2
 8
 16
 21
 28
 29
 33
 1
 8
 14
 16
 18
 26
 34
 1
 11
 22
 23
 28
 29
 32
 6
 10
 13
 22
 24
 27
 31
 3
 4
 6
 9
 18
 21
 25
 1
 11
 13
 19
 22
 25
 30
 1
 4
 11
 18
 29
 30
 34
 4
 7
 18
 21
 27
 28
 30
 6
 12
 23
 24
 27
 32
 34
 5
 13
 14
 19
 26
 28
 31
 1
 2
 4
 23
 26
 27
 33
 1
 4
 7
 10
 18
 32
 34
 3
 9
 17
 19
 20
 31
 33
 6
 7
 10
 15
 23
 25
 29
 6
 7
 13
 14
 20
 30
 32
 2
 10
 14
 19
 25
 26
 32
 8
 10
 14
 15
 26
 29
 33
 1
 3
 15
 17
 20
 24
 31
 4
 8
 10
 11
 12
 16
 19
 8
 9
 12
 18
 26
 28
 30
 9
 16
 19
 21
 29
 30
 34
 1
 10
 13
 18
 24
 30
 31
 2
 6
 12
 17
 25
 27
 34
 1
 3
 18
 24
 26
 28
 33
 3
 10
 13
 15
 16
 25
 28
 3
 8
 12
 18
 20
 26
 30
 1
 11
 15
 17
 23
 24
 25
 5
 14
 20
 22
 24
 26
 33
 5
 7
 12
 21
 22
 24
 25
 5
 10
 11
 15
 26
 31
 33
 1
 3
 6
 8
 27
 33
 34
 4
 6
 10
 16
 21
 22
 28
 1
 4
 7
 14
 21
 23
 33
 3
 5
 8
 22
 26
 32
 33
 1
 2
 4
 7
 8
 22
 27
 4
 9
 20
 21
 24
 31
 32
 1
 8
 16
 25
 26
 28
 31
 4
 12
 14
 16
 25
 26
 28
 5
 7
 12
 15
 17
 18
 21
 3
 5
 6
 9
 13
 15
 28
 2
 3
 19
 24
 25
 26
 27
 3
 9
 10
 12
 14
 28
 30
 11
 14
 24
 27
 29
 30
 33
 1
 8
 15
 25
 31
 32
 34
 3
 5
 12
 13
 16
 19
 32
 4
 8
 19
 20
 21
 25
 33
 3
 12
 13
 16
 19
 24
 30
 5
 16
 18
 29
 31
 34
 3
 6
 16
 20
 21
 31
 33
 4
 5
 6
 7
 8
 17
 18
 1
 4
 18
 22
 24
 27
 34
 14
 15
 21
 22
 24
 25
 30
 2
 8
 13
 19
 25
 30
 34
 2
 14
 16
 22
 23
 25
 26
 1
 7
 19
 20
 24
 28
 33
REM 
REM *************************************************
REM * Dragon file header detected:                  *
REM * Start: $2401 Length: $04e3 Exec: $8b8d        *
REM *(Start: 09217 Length: 01251 Exec: 35725)       *
REM *************************************************
REM 
    0  CLS : CLEAR 
    1  DIM  P(34),I(34)
   10  CLS 
   11 L=0
   20 A= RND (34)
   30 B= RND (34)
   40 C= RND (34)
   50 D= RND (34)
   60 E= RND (34)
   70 F= RND (34)
   80 G= RND (34)
   90  IF  A=B  OR  A=C  OR  A=D  OR  A=E  OR  A=F  OR  A=G  THEN  30
  100  IF  B=C  OR  B=D  OR  B=E  OR  B=F  OR  B=G  THEN  40
  110  IF  C=D  OR  C=E  OR  C=F  OR  C=G  THEN  50
  120  IF  D=E  OR  D=F  OR  D=G  THEN  60
  130  IF  E=F  OR  E=G  THEN  70
  140  IF  F=G  THEN  80
  150  IF  A>B  THEN   SWAP  A,B
  160  IF  A>C  THEN   SWAP  A,C
  170  IF  A>D  THEN   SWAP  A,D
  180  IF  A>E  THEN   SWAP  A,E
  190  IF  A>F  THEN   SWAP  A,F
  200  IF  A>G  THEN   SWAP  A,G
  210  IF  B>C  THEN   SWAP  B,C
  220  IF  B>D  THEN   SWAP  B,D
  230  IF  B>E  THEN   SWAP  B,E
  240  IF  B>F  THEN   SWAP  B,F
  250  IF  B>G  THEN   SWAP  B,G
  260  IF  C>D  THEN   SWAP  C,D
  270  IF  C>E  THEN   SWAP  C,E
  280  IF  C>F  THEN   SWAP  C,F
  290  IF  C>G  THEN   SWAP  C,G
  300  IF  D>E  THEN   SWAP  D,E
  310  IF  D>F  THEN   SWAP  D,F
  320  IF  D>G  THEN   SWAP  D,G
  330  IF  E>F  THEN   SWAP  E,F
  340  IF  E>G  THEN   SWAP  E,G
  350  IF  F>G  THEN   SWAP  F,G
  355  GO  SUB  1000
  360 L=L+1: IF  L>10  THEN  10
  370 L$= STR$ (L)+":"
  380  PRINT  L$;A;B;C;D;E;F;G
  390  IF  L=10  THEN  INK$= INKEY$ : IF  INK$=""  THEN  390
  391  IF  INK$="Q"  THEN   CLOSE : GO  TO  2000
  401 A$= STR$ (A):B$= STR$ (B):C$= STR$ (C):D$= STR$ (D):E$= STR$ (E):F$= STR$ (F):G$= STR$ (G)
  410  FWRITE "LOTTO";A$
  411  FWRITE "LOTTO";B$
  412  FWRITE "LOTTO";C$
  413  FWRITE "LOTTO";D$
  414  FWRITE "LOTTO";E$
  415  FWRITE "LOTTO";F$
  416  FWRITE "LOTTO";G$
  420  GO  TO  20
 1000  FOR  I=1  TO  34
 1010  IF  A=I  OR  B=I  OR  C=I  OR  D=I  OR  E=I  OR  F=I  OR  G=I  THEN  P(I)=P(I)+1
 1020  NEXT  I
 1030  RETURN 
 2000  CLS 
 2001 Q=-32
 2010  FOR  I=1  TO  34
 2011 Q=Q+32: IF  Q=416  THEN  Q=8
 2012  IF  Q=424  THEN  Q=16
 2013  IF  Q=442  THEN  Q=24
 2020  PRINT @Q,I"="P(I)
 2030  NEXT  I
 2040  PRINT @448,""
 2050  GO  TO  2050
REM 
REM line numbering breaks here!
REM 


NET TREDJE PREMIE"
  260  IF  K=6  AND  T>1  THEN   PRINT "DU HAR VUNNET ANDRE PREMIE"
  270  IF  K=7  THEN   PRINT "GRATULERER!!!DU HAR VUNNET": PRINT : PRINT : PRINT "forste premie"
  280  PRINT "HA EN GOD DAG, DIN DRAGON"
  290  IF  K>3  THEN  INK$= INKEY$ : IF  INK$=""  THEN  290
  291 A$="":B$="":C$="":D$="":E$="":F$="":G$="":T=0:K=0:A=0:B=0:C=0:D=0:E=0:F=0:G=0
  300  GO  TO  50
  310  PRINT "SEES NESTE UKE"
  320  CLOSE : END 
REM 
REM line numbering breaks here!
REM 


8
 30
 32
 5
 6
 14
 24
 27
 29
 34
 1
 12
 13
 14
 17
 19
 26
 1
 2
 4
 26
 27
 28
 31
 7
 17
 19
 23
 26
 33
 34
 1
 4
 7
 10
 11
 14
 18
 3
 9
 10
 17
 19
 20
 21
 6
 7
 13
 15
 23
 25
 29
 6
 8
 12
 16
 19
 22
 25
 8
 10
 14
 21
 26
 29
 33
 2
 8
 9
 10
 11
 12
 30
 4
 6
 9
 15
 16
 23
 25
 1
 4
 6
 10
 14
 22
 32
 5
 7
 11
 17
 20
 22
 33
 2
 4
 9
 20
 21
 22
 33
 2
 3
 4
 9
 17
 19
 29
 4
 12
 14
 15
 16
 27
 29
 5
 7
 12
 15
 23
 25
 33
 3
 9
 10
 13
 24
 26
 28
 1
 5
 7
 12
 14
 18
 19
 3
 10
 14
 21
 24
 25
 33
 5
 8
 16
 17
 19
 28
 30
 2
 4
 13
 16
 17
 25
 29
 3
 6
 17
 19
 20
 29
 33
 2
 10
 11
 13
 21
 23
 33
 4
 7
 11
 15
 24
 26
 34
 5
 7
 15
 23
 27
 31
 34
 1
 2
 5
 21
 22
 24
 33
 2
 5
 8
 10
 13
 18
 27
 4
 14
 16
 17
 24
 29
 32
 18
 21
 24
 26
 31
 32
 34
 1
 12
 13
 18
 21
 23
 27
 2
 9
 14
 19
 24
 26
 30
 4
 12
 13
 15
 27
 29
 33
 8
 9
 11
 13
 16
 18
 24
 9
 17
 21
 22
 25
 27
 28
 4
 11
 14
 15
 20
 26
 29
 6
 17
 24
 27
 30
 32
 33
 1
 7
 8
 10
 29
 31
 32
 5
 8
 13
 17
 18
 21
 27
 5
 7
 15
 16
 23
 25
 33
 1
 10
 11
 14
 22
 30
 32
 3
 9
 16
 18
 30
 32
 33
 4
 9
 12
 13
 23
 26
 34
 5
 6
 14
 17
 24
 27
 31
 8
 10
 13
 18
 27
 30
 31
 1
 3
 16
 17
 19
 28
 32
 3
 12
 14
 15
 22
 24
 32
 2
 4
 16
 27
 29
 31
 32
 4
 13
 16
 18
 27
 32
 33
 2
 5
 15
 18
 19
 24
 26
 3
 11
 19
 22
 24
 31
 32
 4
 7
 15
 17
 25
 26
 34
 3
 6
 13
 18
 21
 29
 31
 2
 10
 14
 17
 28
 31
 32
 2
 8
 10
 11
 27
 28
 31
 3
 5
 13
 18
 27
 30
 32
 7
 10
 15
 17
 20
 28
 32
 3
 7
 12
 16
 20
 29
 32
 3
 5
 13
 14
 17
 26
 27
 2
 12
 14
 20
 29
 30
 33
 6
 8
 9
 21
 23
 32
 33
 2
 6
 10
 27
 30
 31
 34
 1
 2
 16
 17
 19
 31
 32
 3
 13
 16
 17
 20
 29
 33
 2
 4
 14
 17
 27
 28
 31
 1
 9
 17
 20
 28
 30
 31
 3
 8
 13
 15
 16
 17
 27
 5
 7
 12
 15
 23
 28
 33
 1
 9
 11
 19
 20
 23
 33
 2
 3
 11
 19
 23
 32
 33
 2
 5
 15
 18
 19
 30
 34
 6
 8
 9
 13
 19
 22
 33
 8
 9
 11
 21
 24
 25
 34
 3
 7
 21
 22
 24
 31
 32
 8
 14
 16
 25
 27
 31
 33
 7
 9
 10
 19
 22
 24
 32
 8
 9
 11
 14
 16
 19
 27
 5
 8
 13
 16
 23
 25
 33
 1
 6
 15
 17
 18
 29
 34
 2
 5
 13
 18
 21
 22
 27
 2
 11
 13
 23
 25
 26
 34
 6
 9
 17
 20
 28
 29
 31
 2
 9
 11
 21
 22
 25
 30
 2
 5
 18
 21
 22
 31
 32
 5
 8
 10
 13
 18
 27
 28
 5
 8
 13
 18
 27
 29
 32
 3
 4
 17
 19
 20
 29
 33
 3
 6
 7
 18
 19
 22
 33
 1
 4
 14
 15
 23
 26
 27
 9
 10
 11
 19
 28
 29
 33
 5
 6
 7
 15
 23
 26
 34
 1
 10
 18
 21
 22
 29
 31
 5
 9
 18
 20
 22
 29
 32
 2
 15
 17
 19
 27
 28
 32
 3
 5
 14
 16
 24
 27
 34
 2
 5
 14
 15
 17
 28
 31
 8
 10
 20
 21
 24
 29
 31
 2
 6
 9
 10
 18
 27
 31
 1
 8
 11
 13
 24
 29
 34
 4
 8
 12
 19
 22
 23
 32
 5
 7
 15
 20
 22
 24
 33
 9
 11
 13
 16
 23
 27
 31
 3
 7
 16
 18
 19
 27
 34
 3
 5
 16
 22
 23
 31
 33
 7
 12
 14
 19
 20
 25
 30
 3
 11
 14
 18
 23
 25
 33
 2
 10
 21
 22
 31
 32
 34
 FROM  9
 10
 15
 23
 26
 30
 31
 1
 3
 10
 12
 15
 18
 23
 6
 11
 15
 17
 22
 31
 32
 5
 16
 18
 20
 26
 27
 29
 1
 8
 12
 14
 26
 27
 32
 2
 5
 11
 23
 26
 30
 33
 6
 10
 13
 14
 23
 26
 28
 5
 11
 12
 16
 17
 19
 23
 1
 8
 14
 16
 21
 25
 27
 4
 5
 16
 24
 26
 32
 34
B=F  OR  B=G  THEN  40
  110  IF  C=D  OR  C=E  OR  C=F  OR  C=G  THEN  50
  120  IF  D=E  OR  D=F  OR  D=G  THEN  60
  130  IF  E=F  OR  E=G  THEN  70
  140  IF  F=G  THEN  80
  150  IF  A>B  THEN   SWAP  A,B
  160  IF  A>C  THEN   SWAP  A,C
  170  IF  A>D  THEN   SWAP  A,D
  180  IF  A>E  THEN   SWAP  A,E
  190  IF  A>F  THEN   SWAP  A,F
  200  IF  A>G  THEN   SWAP  A,G
  210  IF  B>C  THEN   SWAP  B,C
  220  IF  B>D  THEN   SWAP  B,D
  230  IF  B>E  THEN   SWAP  B,E
  240  IF  B>F  THEN   SWAP  B,F
  250  IF  B>G  THEN   SWAP  B,G
  260  IF  C>D  THEN   SWAP  C,D
  270  IF  C>E  THEN   SWAP  C,E
  280  IF  C>F  THEN   SWAP  C,F
  290  IF  C>G  THEN   SWAP  C,G
  300  IF  D>E  THEN   SWAP  D,E
  310  IF  D>F  THEN   SWAP  D,F
  320  IF  D>G  THEN   SWAP  D,G
  330  IF  E>F  THEN   SWAP  E,F
  340  IF  E>G  THEN   SWAP  E,G
  350  IF  F>G  THEN   SWAP  F,G
  360 L=L+1
  370 L$= STR$ (L)+":"
  380  PRINT  L$;A;B;C;D;E;F;G
  390 INK$= INKEY$ : IF  INK$="" THEN  390
  391  IF  INK$="Q"  THEN   CLOSE : END 
  400  IF  L>10  THEN  10
  401 A$= STR$ (A):B$= STR$ (B):C$= STR$ (C):D$= STR$ (D):E$= STR$ (E):F$= STR$ (F):G$= STR$ (G)
  410  FWRITE "LOTTO";A$
  411  FWRITE "LOTTO";B$
  412  FWRITE "LOTTO";C$
  413  FWRITE "LOTTO";D$
  414  FWRITE "LOTTO";E$
  415  FWRITE "LOTTO";F$
  416  FWRITE "LOTTO";G$
  420  GO  TO  20
REM 
REM line numbering breaks here!
REM 


 FROM 
REM 
REM *************************************************
REM * Dragon file header detected:                  *
REM * Start: $2401 Length: $0703 Exec: $8b8d        *
REM *(Start: 09217 Length: 01795 Exec: 35725)       *
REM *************************************************
REM 
   10  CLS 
   20 L=0
   30  PRINT "LEGG INN VINNER-REKKEN"
   40  INPUT  V1,V2,V3,V4,V5,V6,V7
   41  PRINT "LEGG INN TILLEGSTALLENE"
   42  INPUT  V8,V9
   44  IF  V1<1  OR  V2<1  OR  V3<1  OR  V4<1  OR  V5<1  OR  V6<1  OR  V7<1  OR  V1>34  OR  V2>34  OR  V3>34  OR  V4>34  OR  V5>34  OR  V6>34  OR  V7>34  THEN  30
   45  IF  V8<1  OR  V9<1  OR  V8>34  OR  V9>34  THEN  41
   50  FREAD "LOTTO";A$,B$,C$,D$,E$,F$,G$
   51 L=L+1
   60  IF   EOF ("LOTTO")=1  THEN  310 
   61 A= VAL (A$):B= VAL (B$):C= VAL (C$):D= VAL (D$):E= VAL (E$):F= VAL (F$):G= VAL (G$)
   70  CLS : PRINT V1;V2;V3;V4;V5;V6;V7,V8;V9
   71  PRINT : PRINT A;B;C;D;E;F;G
   80  IF  A=V1  OR  A=V2  OR  A=V3  OR  A=V4  OR  A=V5  OR  A=V6  OR  A=V7  THEN  K=K+1
   90  IF  A=V8  OR  A=V9  THEN  T=T+1
  100  IF  B=V1  OR  B=V2  OR  B=V3  OR  B=V4  OR  B=V5  OR  B=V6  OR  B=V7  THEN  K=K+1
  110  IF  B=V8  OR  B=V9  THEN  T=T+1
  120  IF  C=V1  OR  C=V2  OR  C=V3  OR  C=V4  OR  C=V5  OR  C=V6  OR  C=V7  THEN  K=K+1
  130  IF  C=V8  OR  C=V9  THEN  T=T+1
  140  IF  D=V1  OR  D=V2  OR  D=V3  OR  D=V4  OR  D=V5  OR  D=V6  OR  D=V7  THEN  K=K+1
  150  IF  D=V8  OR  D=V9  THEN  T=T+1
  160  IF  E=V1  OR  E=V2  OR  E=V3  OR  E=V4  OR  E=V5  OR  E=V6  OR  E=V7  THEN  K=K+1
  170  IF  E=V8  OR  E=V9  THEN  T=T+1
  180  IF  F=V1  OR  F=V2  OR  F=V3  OR  F=V4  OR  F=V5  OR  F=V6  OR  F=V7  THEN  K=K+1
  190  IF  F=V8  OR  F=V9  THEN  T=T+1
  200  IF  G=V1  OR  G=V2  OR  G=V3  OR  G=V4  OR  G=V5  OR  G=V6  OR  G=V7  THEN  K=K+1
  210  IF  G=C8  OR  G=V9  THEN  T=T+1
  211  PRINT @0,L;":";
  212  PRINT @256,""
  220  PRINT "DU HAR";K;"RETTE OG";T;"TILLEGG"
  230  IF  K=4  AND  T>0  THEN   PRINT "DU HAR VUNNET FEMTE-PREMIE":S5=S5+1
  240  IF  K=5  THEN   PRINT "DU HAR VUNNET FJERDE PREMIE":S4=S4+1
  250  IF  K=6  THEN   PRINT "DU HAR VUNNET TREDJE PREMIE":S3=S3+1
  260  IF  K=6  AND  T>0  THEN   PRINT "DU HAR VUNNET ANDRE PREMIE":S2=S2+1
  270  IF  K=7  THEN   PRINT "GRATULERER!!!DU HAR VUNNET": PRINT : PRINT : PRINT "forste premie":S1=S1+1
  280  PRINT "HA EN GOD DAG, DIN DRAGON"
  290  IF  K>3  THEN  INK$= INKEY$ : IF  INK$=""  THEN  290
  291 A$="":B$="":C$="":D$="":E$="":F$="":G$="":T=0:K=0:A=0:B=0:C=0:D=0:E=0:F=0:G=0
  300  GO  TO  50
  310  PRINT "DU HAR VUNNET";S1;"F0RSTE PREMIER"
  320  PRINT "DU HAR VUNNET";S2;"ANDRE PREMIER"
  330  PRINT "DU HAR VUNNET";S3;"TREDJE PREMIER"
  340  PRINT "DU HAR VUNNET";S4;"FJERDE PREMIER"
  350  PRINT "DU HAR VUNNET";S5;"FEMTE PREMIER"
  360  CLOSE : END 
REM 
REM line numbering breaks here!
REM 


 9
 10
 15
 23
 26
 30
 31
 1
 3
 10
 12
 15
 18
 23
 6
 11
 15
 17
 22
 31
 32
 5
 16
 18
 20
 26
 27
 29
 1
 8
 12
 14
 26
 27
 32
 2
 5
 11
 23
 26
 30
 33
 6
 10
 13
 14
 23
 26
 28
 5
 11
 12
 16
 17
 19
 23
 1
 8
 14
 16
 21
 25
 27
 4
 5
 16
 24
 26
 32
 34
 6
 9
 10
 19
 21
 23
 33
 2
 10
 14
 18
 29
 30
 32
 1
 2
 5
 14
 21
 22
 32
 8
 10
 15
 19
 22
 23
 26
 2
 4
 12
 13
 19
 20
 28
 1
 4
 16
 17
 25
 26
 34
 2
 10
 11
 17
 20
 21
 34
 4
 5
 8
 14
 17
 21
 22
 5
 8
 9
 19
 22
 23
 26
 2
 5
 14
 16
 27
 31
 32
 2
 6
 9
 16
 20
 23
 33
 1
 9
 14
 19
 20
 23
 24
 1
 5
 9
 14
 23
 24
 28
 2
 5
 11
 14
 16
 18
 28
 4
 8
 12
 21
 22
 30
 31
 1
 4
 5
 8
 9
 22
 26
 8
 10
 14
 17
 18
 27
 28
 8
 10
 18
 21
 26
 29
 32
 4
 7
 12
 16
 20
 29
 33
 2
 11
 15
 19
 27
 29
 31
 7
 10
 17
 20
 28
 33
 34
 3
 10
 14
 17
 21
 26
 33
 5
 8
 18
 19
 22
 30
 33
 2
 3
 11
 13
 22
 23
 31
 5
 8
 16
 20
 29
 32
 33
 2
 4
 12
 16
 19
 28
 32
 5
 7
 9
 22
 23
 26
 33
 11
 15
 20
 22
 24
 25
 28
 3
 4
 15
 16
 18
 26
 33
 2
 12
 16
 21
 22
 25
 29
 1
 3
 8
 9
 14
 18
 20
 5
 14
 15
 18
 19
 28
 32
 1
 7
 13
 15
 21
 23
 28
 4
 8
 12
 20
 21
 23
 29
 8
 10
 12
 19
 23
 27
 31
 4
 7
 15
 17
 19
 33
 34
 4
 7
 16
 17
 26
 27
 34
 6
 10
 12
 13
 25
 27
 29
 3
 7
 12
 20
 22
 32
 34
 3
 7
 11
 21
 24
 32
 34
 5
 6
 9
 21
 23
 26
 34
 6
 8
 13
 16
 26
 27
 29
 2
 10
 13
 18
 23
 27
 31
 2
 10
 13
 23
 24
 25
 33
 7
 8
 11
 21
 22
 29
 30
 4
 5
 6
 9
 12
 18
 19
 4
 5
 7
 9
 18
 19
 22
 8
 11
 13
 20
 22
 32
 33
 5
 7
 12
 15
 23
 27
 31
 4
 8
 17
 21
 25
 30
 33
 7
 12
 21
 23
 28
 30
 32
 5
 6
 14
 24
 27
 29
 34
 1
 12
 13
 14
 17
 19
 26
 1
 2
 4
 26
 27
 28
 31
 7
 17
 19
 23
 26
 33
 34
 1
 4
 7
 10
 11
 14
 18
 3
 9
 10
 17
 19
 20
 21
 6
 7
 13
 15
 23
 25
 29
 6
 8
 12
 16
 19
 22
 25
 8
 10
 14
 21
 26
 29
 33
 2
 8
 9
 10
 11
 12
 30
 4
 6
 9
 15
 16
 23
 25
 1
 4
 6
 10
 14
 22
 32
 5
 7
 11
 17
 20
 22
 33
 2
 4
 9
 20
 21
 22
 33
 2
 3
 4
 9
 17
 19
 29
 4
 12
 14
 15
 16
 27
 29
 5
 7
 12
 15
 23
 25
 33
 3
 9
 10
 13
 24
 26
 28
 1
 5
 7
 12
 14
 18
 19
 3
 10
 14
 21
 24
 25
 33
 5
 8
 16
 17
 19
 28
 30
 2
 4
 13
 16
 17
 25
 29
 3
 6
 17
 19
 20
 29
 33
 2
 10
 11
 13
 21
 23
 33
 4
 7
 11
 15
 24
 26
 34
 5
 7
 15
 23
 27
 31
 34
 1
 2
 5
 21
 22
 24
 33
 2
 5
 8
 10
 13
 18
 27
 4
 14
 16
 17
 24
 29
 32
 18
 21
 24
 26
 31
 32
 34
 1
 12
 13
 18
 21
 23
 27
 2
 9
 14
 19
 24
 26
 30
 4
 12
 13
 15
 27
 29
 33
 8
 9
 11
 13
 16
 18
 24
 9
 17
 21
 22
 25
 27
 28
 4
 11
 14
 15
 20
 26
 29
 6
 17
 24
 27
 30
 32
 33
 1
 7
 8
 10
 29
 31
 32
 5
 8
 13
 17
 18
 21
 27
 5
 7
 15
 16
 23
 25
 33
 1
 10
 11
 14
 22
 30
 32
 3
 9
 16
 18
 30
 32
 33
 4
 9
 12
 13
 23
 26
 34
 5
 6
 14
 17
 24
 27
 31
 8
 10
 13
 18
 27
 30
 31
 1
 3
 16
 17
 19
 28
 32
 3
 12
 14
 15
 22
 24
 32
 2
 4
 16
 27
 29
 31
 32
 4
 13
 16
 18
 27
 32
 33
 2
 5
 15
 18
 19
 24
 26
 3
 11
 19
 22
 24
 31
 32
 4
 7
 15
 17
 25
 26
 34
 3
 6
 13
 18
 21
 29
 31
 2
 10
 14
 17
 28
 31
 32
 2
 8
 10
 11
 27
 28
 31
 3
 5
 13
 18
 27
 30
 32
 7
 10
 15
 17
 20
 28
 32
 3
 7
 12
 16
 20
 29
 32
 3
 5
 13
 14
 17
 26
 27
 2
 12
 14
 20
 29
 30
 33
 6
 8
 9
 21
 23
 32
 33
 2
 6
 10
 27
 30
 31
 34
 1
 2
 16
 17
 19
 31
 32
 3
 13
 16
 17
 20
 29
 33
 2
 4
 14
 17
 27
 28
 31
 1
 9
 17
 20
 28
 30
 31
 3
 8
 13
 15
 16
 17
 27
 5
 7
 12
 15
 23
 28
 33
 1
 9
 11
 19
 20
 23
 33
 2
 3
 11
 19
 23
 32
 33
 2
 5
 15
 18
 19
 30
 34
 6
 8
 9
 13
 19
 22
 33
 8
 9
 11
 21
 24
 25
 34
 3
 7
 21
 22
 24
 31
 32
 8
 14
 16
 25
 27
 31
 33
 7
 9
 10
 19
 22
 24
 32
 8
 9
 11
 14
 16
 19
 27
 5
 8
 13
 16
 23
 25
 33
 1
 6
 15
 17
 18
 29
 34
 2
 5
 13
 18
 21
 22
 27
 2
 11
 13
 23
 25
 26
 34
 6
 9
 17
 20
 28
 29
 31
 2
 9
 11
 21
 22
 25
 30
 2
 5
 18
 21
 22
 31
 32
 5
 8
 10
 13
 18
 27
 28
 5
 8
 13
 18
 27
 29
 32
 3
 4
 17
 19
 20
 29
 33
 3
 6
 7
 18
 19
 22
 33
 1
 4
 14
 15
 23
 26
 27
 9
 10
 11
 19
 28
 29
 33
 5
 6
 7
 15
 23
 26
 34
 1
 10
 18
 21
 22
 29
 31
 5
 9
 18
 20
 22
 29
 32
 2
 15
 17
 19
 27
 28
 32
 3
 5
 14
 16
 24
 27
 34
 2
 5
 14
 15
 17
 28
 31
 8
 10
 20
 21
 24
 29
 31
 2
 6
 9
 10
 18
 27
 31
 1
 8
 11
 13
 24
 29
 34
 4
 8
 12
 19
 22
 23
 32
 5
 7
 15
 20
 22
 24
 33
 9
 11
 13
 16
 23
 27
 31
 3
 7
 16
 18
 19
 27
 34
 3
 5
 16
 22
 23
 31
 33
 7
 12
 14
 19
 20
 25
 30
 3
 11
 14
 18
 23
 25
 33
 2
 10
 21
 22
 31
 32
 34
 7
 8
 10
 11
 22
 24
 33
 1
 5
 9
 17
 21
 25
 28
 7
 10
 14
 21
 24
 25
 33
 8
 10
 15
 21
 22
 24
 30
 2
 6
 12
 16
 20
 28
 33
 5
 7
 15
 16
 20
 23
 27
 9
 22
 24
 25
 29
 30
 32
 3
 11
 15
 19
 22
 24
 27
 6
 8
 10
 20
 22
 23
 32
 7
 15
 16
 18
 22
 23
 27
 3
 11
 13
 16
 20
 27
 28
 7
 10
 11
 19
 20
 23
 33
 5
 7
 9
 17
 21
 29
 31
 4
 6
 9
 17
 27
 28
 29
 3
 8
 17
 21
 22
 29
 32
 4
 12
 15
 16
 23
 26
 34
 2
 13
 18
 21
 28
 31
 34
 2
 10
 18
 19
 27
 29
 31
 8
 9
 10
 14
 19
 21
 26
 3
 11
 16
 20
 28
 30
 31
 3
 6
 7
 16
 18
 27
 29
 1
 11
 19
 21
 29
 32
 33
 9
 14
 18
 22
 26
 30
 33
 2
 6
 10
 13
 23
 26
 34
 6
 8
 16
 20
 24
 26
 34
 4
 8
 12
 22
 23
 25
 33
 5
 9
 13
 17
 25
 28
 30
 1
 9
 17
 19
 20
 33
 34
 1
 5
 8
 16
 19
 24
 27
 3
 11
 14
 22
 23
 27
 31
 8
 10
 21
 24
 25
 32
 34
 1
 9
 11
 19
 21
 26
 29
 FROM  FROM  FROM 
REM 
REM *************************************************
REM * Dragon file header detected:                  *
REM * Start: $2401 Length: $0207 Exec: $8b8d        *
REM *(Start: 09217 Length: 00519 Exec: 35725)       *
REM *************************************************
REM 
    0  CLS 
    1  ERROR   GO  TO  10000
    2  DIM P(100),I(100)
    3  DIM  I$(100),P$(100)
    4  DIM  A(100),B(100)
    5 K=1
   10  FREAD "LOTTO";A$
   20  FREAD "LOTTO";B$
   30  FREAD "LOTTO";C$
   40  FREAD "LOTTO";D$
   50  FREAD "LOTTO";E$
   60  FREAD "LOTTO";F$
   70  FREAD "LOTTO";G$
   80 A= VAL (A$):B= VAL (B$):C= VAL (C$):D= VAL (D$):E= VAL (E$):F= VAL (F$):G= VAL (G$)
 1000  FOR  I=1  TO  34
 1010  IF  A=I  OR  B=I  OR  C=I  OR  D=I  OR  E=I  OR  F=I  OR  G=I  THEN  P(I)=P(I)+1
 1020  NEXT  I
 2000 :'
 2001 Q=-32
 2010  FOR  I=1  TO  34
 2011 Q=Q+32: IF  Q=416  THEN  Q=8
 2012  IF  Q=424  THEN  Q=16
 2013  IF  Q=442  THEN  Q=24
 2020  PRINT @Q,I"="P(I);
 2030  NEXT  I
 2040  PRINT @448,K
 2041 K=K+1
 2050  GO  TO 10
10000  GO  TO  10000
REM 
REM line numbering breaks here!
REM 


 THEN   SWAP  C,E
  280  IF  C>F  THEN   SWAP  C,F
  290  IF  C>G  THEN   SWAP  C,G
  300  IF  D>E  THEN   SWAP  D,E
  310  IF  D>F  THEN   SWAP  D,F
  320  IF  D>G  THEN   SWAP  D,G
  330  IF  E>F  THEN   SWAP  E,F
  340  IF  E>G  THEN   SWAP  E,G
  350  IF  F>G  THEN   SWAP  F,G
  360 L=L+1
  370 L$= STR$ (L)+":"
  380  PRINT  L$;A;B;C;D;E;F;G
  390 INK$= INKEY$ : IF  INK$="" THEN  390
  391  IF  INK$="Q"  THEN   CLOSE : END 
  400  IF  L>10  THEN  10
  401 A$= STR$ (A):B$= STR$ (B):C$= STR$ (C):D$= STR$ (D):E$= STR$ (E):F$= STR$ (F):G$= STR$ (G)
  410  FWRITE "LOTTO";A$
  411  FWRITE "LOTTO";B$
  412  FWRITE "LOTTO";C$
  413  FWRITE "LOTTO";D$
  414  FWRITE "LOTTO";E$
  415  FWRITE "LOTTO";F$
  416  FWRITE "LOTTO";G$
  420  GO  TO  20
  413  FWRITE "LOTTO";D$
  414  FWRITE "LOTTO";E$
  415  FWRITE "LOTTO";F$
  416  FWRITE "LOTTO";G$
  420  GO  TO  20
REM 
REM line numbering breaks here!
REM 


  THEN  T=T+1
  220  PRINT "DU HAR";K;"RETTE OG";T;"TILLEGG";
  230  IF  K=4  AND  T>1  THEN   PRINT "DU HAR VUNNET FEMTE-PREMIE"
  240  IF  K=5  THEN   PRINT "DU HAR VUNNET FJERDE PREMIE"
  250  IF  K=6  THEN   PRINT "DU HAR VUNNET TREDJE PREMIE"
  260  IF  K=6  AND  T>1  THEN   PRINT "DU HAR VUNNET ANDRE PREMIE"
  270  IF  K=7  THEN   PRINT "GRATULERER!!!DU HAR VUNNET": PRINT : PRINT : PRINT "forste premie"
  280  PRINT "HA EN GOD DAG, DIN DRAGON"
  290 INK$= INKEY$ : IF  INK$="" THEN  290
  300  GO  TO  50
  310  PRINT "SEES NESTE UKE"
  320  CLOSE : END 
REM 
REM line numbering breaks here!
REM 


  20                 24                 29 
 3:                 8                 9                 22                 24                 26                 27                 28 
 4:                 2                 3                 9                 10                 12                 31                 32 
 5:                 1                 3                 6                 9                 15                 29                 33 
 6:                 4                 6                 14                 22                 24                 25                 30 
 7:                 2                 6                 9                 22                 24                 30                 34 
 8:                 2                 6                 7                 9                 14                 15                 18 
 9:                 2                 10                 14                 18                 23                 25                 33 
 5  10  16  18  28  29  30 
 1  7  11  15  20  30  33 
 12  17  18  22  28  31  34 
 2  4  8  11  19  31  34 
 8  11  16  25  28  29  34 
 1  2  12  15  24  30  32 
 10  11  16  17  22  28  30 

  254 ($FFFF)($FFFC)($FFFF)($FF0F)($f0)($FFFF)
REM 
REM line numbering breaks here!
REM 

36863 ($FFFF)
65295 ($fe)($FFFF)
65535 

































































































































































( DSKINIT ($ed)































































































































































































































































SELV



BAS
D








#
LOTTOFINBAS
($fc)








LOTTO22
DAT
 FREAD 








qLOTTOOUTBAS
 PUT 








LOTTOFEMDAT
 RESTORE 








	
LOTTOINPBAS
l





  236 
REM 
REM line numbering breaks here!
REM 
LOTTO


DAT
H








($f8) INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 






























REM 
REM *************************************************
REM * Dragon file header detected:                  *
REM * Start: $2401 Length: $041a Exec: $8b8d        *
REM *(Start: 09217 Length: 01050 Exec: 35725)       *
REM *************************************************
REM 
    0  CLS : CLEAR 
   10  CLS 
   11 L=0
   20  LINE  INPUT "1:";A$
   30  LINE  INPUT "2:";B$
   40  LINE  INPUT "3:";C$
   50  LINE  INPUT "4:";D$
   60  LINE  INPUT "5:";E$
   70  LINE  INPUT "6:";F$
   80  LINE  INPUT "7:";G$
   81 A= VAL (A$):B= VAL (B$):C= VAL (C$):D= VAL (D$):E= VAL (E$):F= VAL (F$):G= VAL (G$)
   90  IF  A=B  OR  A=C  OR  A=D  OR  A=E  OR  A=F  OR  A=G  THEN  30
  100  IF  B=C  OR  B=D  OR  B=E  OR  B=F  OR  B=G  THEN  40
  110  IF  C=D  OR  C=E  OR  C=F  OR  C=G  THEN  50
  120  IF  D=E  OR  D=F  OR  D=G  THEN  60
  130  IF  E=F  OR  E=G  THEN  70
  140  IF  F=G  THEN  80
  150  IF  A>B  THEN   SWAP  A,B
  160  IF  A>C  THEN   SWAP  A,C
  170  IF  A>D  THEN   SWAP  A,D
  180  IF  A>E  THEN   SWAP  A,E
  190  IF  A>F  THEN   SWAP  A,F
  200  IF  A>G  THEN   SWAP  A,G
  210  IF  B>C  THEN   SWAP  B,C
  220  IF  B>D  THEN   SWAP  B,D
  230  IF  B>E  THEN   SWAP  B,E
  240  IF  B>F  THEN   SWAP  B,F
  250  IF  B>G  THEN   SWAP  B,G
  260  IF  C>D  THEN   SWAP  C,D
  270  IF  C>E  THEN   SWAP  C,E
  280  IF  C>F  THEN   SWAP  C,F
  290  IF  C>G  THEN   SWAP  C,G
  300  IF  D>E  THEN   SWAP  D,E
  310  IF  D>F  THEN   SWAP  D,F
  320  IF  D>G  THEN   SWAP  D,G
  330  IF  E>F  THEN   SWAP  E,F
  340  IF  E>G  THEN   SWAP  E,G
  350  IF  F>G  THEN   SWAP  F,G
  360 L=L+1
  370 L$= STR$ (L)+":"
  380  PRINT  L$;A;B;C;D;E;F;G
  390 INK$= INKEY$ : IF  INK$="" THEN  390
  391  IF  INK$="Q"  THEN   CLOSE : END 
  400  IF  L>10  THEN  10
  401 A$= STR$ (A):B$= STR$ (B):C$= STR$ (C):D$= STR$ (D):E$= STR$ (E):F$= STR$ (F):G$= STR$ (G)
  410  FWRITE "LOTTO";A$
  411  FWRITE "LOTTO";B$
  412  FWRITE "LOTTO";C$
  413  FWRITE "LOTTO";D$
  414  FWRITE "LOTTO";E$
  415  FWRITE "LOTTO";F$
  416  FWRITE "LOTTO";G$
  420  GO  TO  20
REM 
REM line numbering breaks here!
REM 


 FROM 

  254 ($FFFF)($FFFC)($FFFF)($FF0F)($f0)($FFFF)
REM 
REM line numbering breaks here!
REM 

36863 ($FFFF)
65295 ($fe)($FFFF)
65535 

































































































































































( DSKINIT ($ed)































































































































































































































































SELV



BAS
D








#
LOTTOFINBAS
($fc)








LOTTO22
DAT
 FREAD 








qLOTTOOUTBAS
 PUT 








LOTTOFEMDAT
 RESTORE 








	
LOTTOINPBAS
l





  236 
REM 
REM line numbering breaks here!
REM 
LOTTO


DAT
H








($f8) INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 





























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT 























 INPUT