5748204 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n hello3.bas
   1: DECLARE SUB PAUSE (A!, SM!, CM!)
   2: DECLARE SUB FRAME4 ()
   3: DECLARE SUB FRAME52U ()
   4: DECLARE SUB FRAME12218 ()
   5: DECLARE SUB SLEEPA (T!)
   6: DECLARE SUB FRAME3 ()
   7: DECLARE SUB FRAME1 ()
   8: DECLARE SUB FRAME2 ()
   9: SCREEN 12
  10: CLS
  11: LINE (0, 0)-(0, 20)    '|   }}}}}}
  12: LINE (0, 10)-(10, 10)  ' -  } H }}
  13: LINE (10, 0)-(10, 20)  '  | }}}}}}
  14: LINE (15, 0)-(15, 20)  '|   } I }}
  15: LINE (30, 0)-(30, 20)  '|   }}}}}} L }}
  16: LINE (30, 20)-(40, 20) ' _  }}}}}}}}}}}
  17: LINE (45, 19)-(45, 1)  '|   }}}}}}
  18: LINE (46, 0)-(54, 0)   '  | } O }}
  19: LINE (55, 1)-(55, 19)  '    }}}}}}
  20: LINE (46, 20)-(54, 20) ' _
  21: LINE (60, 20)-(60, 0)  ' |  }}}}}}
  22: LINE (60, 0)-(69, 0)   '  * }}}}}}
  23: LINE (69, 0)-(70, 1)   '  \ }}}}}}
  24: LINE (70, 1)-(70, 9)   '    } R }}
  25: LINE (70, 9)-(69, 10)  '    }}}}}}
  26: LINE (69, 10)-(60, 10) '    }}}}}}
  27: LINE (60, 10)-(70, 20) '    }}}}}}
  28: LINE (75, 20)-(75, 0)  '    }}}}}} I }}
  29: LINE (80, 20)-(80, 0)  '    }}}}}}
  30: LINE (80, 0)-(90, 20)  '    } N }}
  31: LINE (90, 20)-(90, 0)  '    }}}}}}
  32: LINE (95, 20)-(95, 0)   ' }}}}}}
  33: LINE (95, 0)-(104, 0)   ' } D }}
  34: LINE (95, 20)-(104, 20) ' }}}}}}
  35: LINE (105, 1)-(105, 19) ' }}}}}}
  36: LINE (110, 20)-(115, 0) ' }}}}}}
  37: LINE (115, 0)-(120, 20) ' } A }}
  38: LINE (113, 10)-(117, 10)' }}}}}}
  39: PAUSE 25, 12, 15
  40: FRAME1
  41: SLEEPA .13
  42: FRAME2
  43: SLEEPA .13
  44: FRAME3
  45: SLEEPA .13
  46: FRAME4
  47: SLEEPA .13
  48: FRAME52U
  49: SLEEPA .13
  50: FRAME12218
  51: 
  52: SUB FRAME1
  53: CIRCLE (320, 240), 60
  54: PSET (320, 260): PSET (321, 260): PSET (322, 260): PSET (323, 260): PSET (324, 260): PSET (325, 260): PSET (326, 260): PSET (327, 260): PSET (328, 260): PSET (329, 260): PSET (330, 260): PSET (319, 260): PSET (318, 260): PSET (317, 260): PSET (316, 260)
  55: PSET (315, 260): PSET (314, 260): PSET (313, 260): PSET (312, 260): PSET (311, 260): PSET (310, 260): CIRCLE (290, 210), 5: CIRCLE (350, 210), 5
  56: END SUB
  57: 
  58: SUB FRAME12218
  59: CIRCLE (290, 210), 5, 0, , , .09
  60: CIRCLE (290, 210), 5, , , , .1
  61: SLEEPA .01
  62: CIRCLE (290, 210), 5, 0, , , .1
  63: CIRCLE (290, 210), 5, , , , .2
  64: SLEEPA .01
  65: CIRCLE (290, 210), 5, 0, , , .2
  66: CIRCLE (290, 210), 5, , , , .3
  67: SLEEPA .01
  68: CIRCLE (290, 210), 5, 0, , , .3
  69: CIRCLE (290, 210), 5, , , , .4
  70: SLEEPA .01
  71: CIRCLE (290, 210), 5, 0, , , .4
  72: CIRCLE (290, 210), 5, , , , .5
  73: SLEEPA .01
  74: CIRCLE (290, 210), 5, 0, , , .5
  75: CIRCLE (290, 210), 5, , , , .6
  76: SLEEPA .01
  77: CIRCLE (290, 210), 5, 0, , , .6
  78: CIRCLE (290, 210), 5, , , , .7
  79: SLEEPA .01
  80: CIRCLE (290, 210), 5, 0, , , .7
  81: CIRCLE (290, 210), 5, , , , .8
  82: SLEEPA .01
  83: CIRCLE (290, 210), 5, 0, , , .8
  84: CIRCLE (290, 210), 5, , , , .9
  85: SLEEPA .01
  86: CIRCLE (290, 210), 5, 0, , , .9
  87: CIRCLE (290, 210), 5, , , , 1
  88: END SUB
  89: 
  90: SUB FRAME2
  91: PRESET (311, 260): PSET (311, 259): PRESET (310, 260): PSET (310, 259): PRESET (329, 260): PSET (329, 259): PRESET (330, 260): PSET (330, 259)
  92: END SUB
  93: 
  94: SUB FRAME3
  95: PRESET (310, 259): : PSET (310, 258): PRESET (330, 259): PSET (330, 258)
  96: END SUB
  97: 
  98: SUB FRAME4
  99: CIRCLE (290, 210), 5, 0
 100: CIRCLE (290, 210), 5, , , , .9
 101: END SUB
 102: 
 103: SUB FRAME52U
 104: CIRCLE (290, 210), 5, 0, , , .9
 105: CIRCLE (290, 210), 5, , , , .8
 106: SLEEPA .01
 107: CIRCLE (290, 210), 5, 0, , , .8
 108: CIRCLE (290, 210), 5, , , , .7
 109: SLEEPA .01
 110: CIRCLE (290, 210), 5, 0, , , .7
 111: CIRCLE (290, 210), 5, , , , .6
 112: SLEEPA .01
 113: CIRCLE (290, 210), 5, 0, , , .6
 114: CIRCLE (290, 210), 5, , , , .5
 115: SLEEPA .01
 116: CIRCLE (290, 210), 5, 0, , , .5
 117: CIRCLE (290, 210), 5, , , , .4
 118: SLEEPA .01
 119: CIRCLE (290, 210), 5, 0, , , .4
 120: CIRCLE (290, 210), 5, , , , .3
 121: SLEEPA .01
 122: CIRCLE (290, 210), 5, 0, , , .3
 123: CIRCLE (290, 210), 5, , , , .2
 124: SLEEPA .01
 125: CIRCLE (290, 210), 5, 0, , , .2
 126: CIRCLE (290, 210), 5, , , , .1
 127: SLEEPA .01
 128: CIRCLE (290, 210), 5, 0, , , .1
 129: CIRCLE (290, 210), 5, , , , .09
 130: END SUB
 131: 
 132: SUB PAUSE (A, SM, CM)
 133: IF CM = 0 THEN CM = 15
 134: SCREEN 0: COLOR 15, 0: LOCATE A, 1: PRINT "Press any key to continue...": COLOR 23, 0: LOCATE A, 30: PRINT "_": SLEEP: SCREEN SM: COLOR CM: LOCATE A, 1: PRINT "                             ": LOCATE A, 30: PRINT " "
 135: END SUB
 136: 
 137: SUB SLEEPA (T)
 138: A = TIMER + T
 139: 9 IF TIMER > A THEN GOTO 10 ELSE GOTO 9
 140: 10 END SUB
 141:
5748205 [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 21:03:33