home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
M.u.C.S. Disc 2000
/
MUCS2000.iso
/
sigisoft
/
lotto
/
lotto.lst
< prev
next >
Wrap
File List
|
1997-10-06
|
3KB
|
112 lines
' ********************************************************************
' * Lottosimulation Datum 06.06.1989 *
' ********************************************************************
' * Geschrieben auf einen Atari 520 ST+ mit Monitor SM 124 *
' ********************************************************************
' * Programmiersprache GFA-Basic Version 2.0 *
' ********************************************************************
If Xbios(4)=0
Alert 0,"Farbmonitor bitte auf mittlere| Auflösung umschalten",1," Danke ",D%
End
Endif
Alert 3,"Was wünschen Sie ?| Samstagslotto| Mittwochslotto",1,"Sam|Mit|Abbruch",D%
Hidem
If D%=1
Wahl$=" **** Samstagslotto 6 aus 49 **** "
Wahl=6
Else
Wahl$=" **** Mittwochslotto 6 aus 49 **** "
Wahl=6
Endif
If D%=3
End
Endif
If Xbios(4)=2
Graphmode 2
Deffill 1,2,3
Prbox 20,30,610,70
Deftext 1,2,3,32
Text 27,60,Wahl$
Print Chr$(27)+"p";
Print At(1,1);" ------ (c) 1989 by Siegfried Hübner, Obere Vorstadt 21 , 8812 Windsbach ------ "
Print Chr$(27)+"q";
Print At(2,10);"Dieses Programm"
Print At(2,11);" ist"
Print At(2,12);"frei kopierbar"
Print At(2,14);"(Public Domain)"
For X=180 To 420 Step 40
Box X,100,460,380
Box 180,X-40,460,300
Next X
For X=1 To Wahl
Start:
A=180+Int(Rnd*260)+1
B=120+Int(Rnd*260)+1
If Point(A,B)=0
Deffill 1,2,8
Fill A,B
Else
Goto Start
Endif
Next X
Graphmode 3
For B=1 To 7
For A=1 To 7
Add R,40
Deftext 1,2,3,32
Text 145+R,133+D,A+C
Next A
R=0
Add C,7
Add D,40
Next B
Print At(25,6);"Bitte Space (Leertaste) drücken ";
Repeat
Until Inkey$=Chr$(32)
Run
Endif
If Xbios(4)=1
Graphmode 2
Deffill 1,2,3
Prbox 0,0,639,30
Deftext 1,2,3,32
Text 30,26,Wahl$
Print Chr$(27)+"p";
Print At(1,5);" ------ (c) 1989 by Siegfried Hübner, Obere Vorstadt 21 , 8812 Windsbach ------ "
Print Chr$(27)+"q";
Print At(61,12);"Dieses Programm"
Print At(61,13);" ist"
Print At(61,14);"frei kopierbar"
Print At(61,16);"(Public Domain)"
For X=160 To 480 Step 44
Box X,60,160,199
Box 160,X/2.1,469,199
Next X
For X=1 To Wahl
Start1:
A=160+Int(Rnd*290)+1
B=70+Int(Rnd*120)+1
If Point(A,B)=0
Deffill 1,2,8
Fill A,B
Else
Goto Start1
Endif
Next X
Graphmode 3
For B=1 To 7
For A=1 To 7
Add R,42
Deftext 1,0,0,8
Text 135+R,75+D,A+C
Next A
R=0
Add C,7
Add D,20
Next B
Print At(25,7);"Bitte Space (Leertaste) drücken ";
Repeat
Until Inkey$=Chr$(32)
Run
Endif