5748086 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n backl.bas
   1: CLS
   2: SCREEN 12
   3: x% = 250      'To change how far right or left change this variable
   4: y% = 5        'To change how far up or down change this variable
   5: FOR Qw = 0 TO 400 STEP 10                                     '{
   6: LINE (x% - (Qw / 2), y% + Qw)-(x% + 140 + (Qw / 2), y% + Qw)  '{Inizializes the screen
   7: NEXT Qw                                                       '{
   8: LINE (x%, y%)-(x% - 200, y% + 400)
   9: LINE (x% + 140, y%)-(x% + 340, y% + 400)
  10:
5748087 [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:40