REM REM ************************************************* REM * Dragon file header: * 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 ************************************************* REM * Dragon file header: * 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