home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / lotto / lotto.lst < prev    next >
File List  |  1997-10-06  |  3KB  |  112 lines

  1. ' ********************************************************************
  2. ' * Lottosimulation                               Datum 06.06.1989   *
  3. ' ********************************************************************
  4. ' * Geschrieben auf einen Atari 520 ST+  mit      Monitor SM 124     *
  5. ' ********************************************************************
  6. ' * Programmiersprache GFA-Basic Version 2.0                         *
  7. ' ********************************************************************
  8. If Xbios(4)=0
  9.   Alert 0,"Farbmonitor bitte auf mittlere|     Auflösung umschalten",1," Danke ",D%
  10.   End
  11. Endif
  12. Alert 3,"Was wünschen Sie    ?| Samstagslotto|  Mittwochslotto",1,"Sam|Mit|Abbruch",D%
  13. Hidem
  14. If D%=1
  15.   Wahl$=" **** Samstagslotto  6 aus 49  **** "
  16.   Wahl=6
  17. Else
  18.   Wahl$=" **** Mittwochslotto 6 aus 49  **** "
  19.   Wahl=6
  20. Endif
  21. If D%=3
  22.   End
  23. Endif
  24. If Xbios(4)=2
  25.   Graphmode 2
  26.   Deffill 1,2,3
  27.   Prbox 20,30,610,70
  28.   Deftext 1,2,3,32
  29.   Text 27,60,Wahl$
  30.   Print Chr$(27)+"p";
  31.   Print At(1,1);" ------ (c) 1989 by Siegfried Hübner, Obere Vorstadt 21 , 8812 Windsbach ------ "
  32.   Print Chr$(27)+"q";
  33.   Print At(2,10);"Dieses Programm"
  34.   Print At(2,11);"     ist"
  35.   Print At(2,12);"frei kopierbar"
  36.   Print At(2,14);"(Public Domain)"
  37.   For X=180 To 420 Step 40
  38.     Box X,100,460,380
  39.     Box 180,X-40,460,300
  40.   Next X
  41.   For X=1 To Wahl
  42.     Start:
  43.     A=180+Int(Rnd*260)+1
  44.     B=120+Int(Rnd*260)+1
  45.     If Point(A,B)=0
  46.       Deffill 1,2,8
  47.       Fill A,B
  48.     Else
  49.       Goto Start
  50.     Endif
  51.   Next X
  52.   Graphmode 3
  53.   For B=1 To 7
  54.     For A=1 To 7
  55.       Add R,40
  56.       Deftext 1,2,3,32
  57.       Text 145+R,133+D,A+C
  58.     Next A
  59.     R=0
  60.     Add C,7
  61.     Add D,40
  62.   Next B
  63.   Print At(25,6);"Bitte Space (Leertaste) drücken ";
  64.   Repeat
  65.   Until Inkey$=Chr$(32)
  66.   Run
  67. Endif
  68. If Xbios(4)=1
  69.   Graphmode 2
  70.   Deffill 1,2,3
  71.   Prbox 0,0,639,30
  72.   Deftext 1,2,3,32
  73.   Text 30,26,Wahl$
  74.   Print Chr$(27)+"p";
  75.   Print At(1,5);" ------ (c) 1989 by Siegfried Hübner, Obere Vorstadt 21 , 8812 Windsbach ------ "
  76.   Print Chr$(27)+"q";
  77.   Print At(61,12);"Dieses Programm"
  78.   Print At(61,13);"     ist"
  79.   Print At(61,14);"frei kopierbar"
  80.   Print At(61,16);"(Public Domain)"
  81.   For X=160 To 480 Step 44
  82.     Box X,60,160,199
  83.     Box 160,X/2.1,469,199
  84.   Next X
  85.   For X=1 To Wahl
  86.     Start1:
  87.     A=160+Int(Rnd*290)+1
  88.     B=70+Int(Rnd*120)+1
  89.     If Point(A,B)=0
  90.       Deffill 1,2,8
  91.       Fill A,B
  92.     Else
  93.       Goto Start1
  94.     Endif
  95.   Next X
  96.   Graphmode 3
  97.   For B=1 To 7
  98.     For A=1 To 7
  99.       Add R,42
  100.       Deftext 1,0,0,8
  101.       Text 135+R,75+D,A+C
  102.     Next A
  103.     R=0
  104.     Add C,7
  105.     Add D,20
  106.   Next B
  107.   Print At(25,7);"Bitte Space (Leertaste) drücken ";
  108.   Repeat
  109.   Until Inkey$=Chr$(32)
  110.   Run
  111. Endif
  112.