5748142 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n backl2.bas
   1: DIM Roy(0 TO 40) AS INTEGER
   2: CLS
   3: SCREEN 12
   4: x% = 250
   5: y% = 5
   6: FOR Qw = 0 TO 400 STEP 10
   7: LINE (x% - (Qw / 1.7), y% + Qw)-(x% + 140 + (Qw / 1.7), y% + Qw), 7
   8: NEXT Qw
   9: LINE (x%, y%)-(x% - 235, y% + 400), 7
  10: LINE (x% + 140, y%)-(x% + 375, y% + 400), 7
  11: FOR qq = 1 TO 40
  12: m% = RND * 100 + 1
  13: IF m% > 50 OR m% = 50 THEN Roy(qq) = 7 ELSE Roy(qq) = 15
  14: NEXT qq
  15: FOR Qw = 0 TO 400 STEP 10
  16: sx% = Roy(Qw / 10)
  17: LINE (x% - (Qw / 1.7), y% + Qw)-(x% + 140 + (Qw / 1.7), y% + Qw), sx%
  18: NEXT Qw
  19:
5748143 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 2000-05-09 20:59:41