5748124 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n sword.bas
   1: 
   2: CLS
   3: SCREEN 12
   4: CIRCLE (150, 90), 12, 1
   5: LINE (150, 180)-(150, 100), 1
   6: LINE (150, 130)-(100, 115), 1
   7: LINE (150, 180)-(200, 230), 1
   8: LINE (150, 180)-(100, 230), 1
   9: LINE (150, 130)-(207, 115), 1
  10: LINE (230, 30)-(200, 115), 15
  11: LINE (199, 118)-(195, 130), 7
  12: LINE (210, 115)-(190, 110), 14
  13: 
  14: CIRCLE (480, 90), 12, 1
  15: LINE (480, 180)-(480, 100), 1
  16: LINE (480, 130)-(430, 115), 1
  17: LINE (480, 180)-(530, 230), 1
  18: LINE (480, 180)-(430, 230), 1
  19: LINE (480, 130)-(537, 115), 1
  20: LINE (400, 30)-(430, 115), 15
  21: LINE (429, 118)-(435, 130), 7
  22: LINE (440, 115)-(420, 120), 14
  23: SLEEP (1)
  24: CLS
  25: SCREEN 12
  26: CIRCLE (190, 90), 12, 1
  27: LINE (190, 180)-(190, 100), 1
  28: LINE (190, 130)-(140, 115), 1
  29: LINE (190, 180)-(240, 230), 1
  30: LINE (190, 180)-(140, 230), 1
  31: LINE (190, 130)-(247, 115), 1
  32: LINE (270, 30)-(240, 115), 15
  33: LINE (239, 118)-(235, 130), 7
  34: LINE (250, 115)-(230, 110), 14
  35: 
  36: CIRCLE (440, 90), 12, 1
  37: LINE (440, 180)-(440, 100), 1
  38: LINE (440, 130)-(390, 115), 1
  39: LINE (440, 180)-(490, 230), 1
  40: LINE (440, 180)-(390, 230), 1
  41: LINE (440, 130)-(497, 115), 1
  42: LINE (360, 30)-(390, 115), 15
  43: LINE (389, 118)-(395, 130), 7
  44: LINE (400, 115)-(380, 120), 14
  45: SLEEP (1)
  46: CLS
  47: SCREEN 12
  48: CIRCLE (210, 90), 12, 1
  49: LINE (210, 180)-(210, 100), 1
  50: LINE (210, 130)-(160, 115), 1
  51: LINE (210, 180)-(260, 230), 1
  52: LINE (210, 180)-(160, 230), 1
  53: LINE (210, 130)-(267, 115), 1
  54: LINE (290, 30)-(260, 115), 15
  55: LINE (259, 118)-(255, 130), 7
  56: LINE (270, 115)-(250, 110), 14
  57: 
  58: CIRCLE (420, 90), 12, 1
  59: LINE (420, 180)-(420, 100), 1
  60: LINE (420, 130)-(370, 115), 1
  61: LINE (420, 180)-(470, 230), 1
  62: LINE (420, 180)-(370, 230), 1
  63: LINE (420, 130)-(477, 115), 1
  64: LINE (340, 30)-(370, 115), 15
  65: LINE (369, 118)-(375, 130), 7
  66: LINE (380, 115)-(360, 120), 14
  67: SLEEP (1)
  68: CLS
  69: SCREEN 12
  70: CIRCLE (230, 90), 12, 1
  71: LINE (230, 180)-(230, 100), 1
  72: LINE (230, 130)-(180, 115), 1
  73: LINE (230, 180)-(280, 230), 1
  74: LINE (230, 180)-(180, 230), 1
  75: LINE (230, 130)-(287, 115), 1
  76: LINE (310, 30)-(280, 115), 15
  77: LINE (279, 118)-(275, 130), 7
  78: LINE (290, 115)-(270, 110), 14
  79: 
  80: CIRCLE (390, 90), 12, 1
  81: LINE (390, 180)-(390, 100), 1
  82: LINE (390, 130)-(340, 115), 1
  83: LINE (390, 180)-(440, 230), 1
  84: LINE (390, 180)-(340, 230), 1
  85: LINE (390, 130)-(447, 115), 1
  86: LINE (310, 30)-(340, 115), 15
  87: LINE (339, 118)-(345, 130), 7
  88: LINE (350, 115)-(330, 120), 14
  89: COLOR 7
  90: LOCATE 2, 39: PRINT "."
  91: LOCATE 2, 40: PRINT "."
  92: LOCATE 1, 38: PRINT "."
  93: LOCATE 1, 41: PRINT "."
  94: LOCATE 3, 38: PRINT "."
  95: LOCATE 3, 41: PRINT "."
  96: 
  97: SLEEP (1)
  98: CLS
  99: SCREEN 12
 100: CIRCLE (240, 90), 12, 1
 101: LINE (240, 180)-(240, 100), 1
 102: LINE (240, 130)-(190, 115), 1
 103: LINE (240, 180)-(290, 230), 1
 104: LINE (240, 180)-(180, 230), 1
 105: LINE (240, 130)-(287, 115), 1
 106: LINE (320, 30)-(290, 115), 15
 107: LINE (289, 118)-(285, 130), 7
 108: LINE (300, 115)-(280, 110), 14
 109: 
 110: CIRCLE (390, 90), 12, 1
 111: LINE (390, 180)-(390, 100), 1
 112: LINE (390, 130)-(340, 115), 1
 113: LINE (390, 180)-(440, 230), 1
 114: LINE (390, 180)-(340, 230), 1
 115: LINE (390, 130)-(447, 115), 1
 116: LINE (310, 30)-(340, 115), 15
 117: LINE (339, 118)-(345, 130), 7
 118: LINE (350, 115)-(330, 120), 14
 119: COLOR 7
 120: LOCATE 2, 39: PRINT "."
 121: LOCATE 2, 41: PRINT "."
 122: LOCATE 1, 38: PRINT "."
 123: LOCATE 1, 42: PRINT "."
 124: LOCATE 3, 38: PRINT "."
 125: LOCATE 3, 42: PRINT "."
 126: 
 127: SLEEP (1)
 128: CLS
 129: SCREEN 12
 130: CIRCLE (230, 90), 12, 1
 131: LINE (230, 180)-(230, 100), 1
 132: LINE (230, 130)-(180, 115), 1
 133: LINE (230, 180)-(280, 230), 1
 134: LINE (230, 180)-(180, 230), 1
 135: LINE (230, 130)-(287, 115), 1
 136: LINE (310, 30)-(280, 115), 15
 137: LINE (279, 118)-(275, 130), 7
 138: LINE (290, 115)-(270, 110), 14
 139: 
 140: CIRCLE (390, 90), 12, 1
 141: LINE (390, 180)-(390, 100), 1
 142: LINE (390, 130)-(340, 115), 1
 143: LINE (390, 180)-(440, 230), 1
 144: LINE (390, 180)-(340, 230), 1
 145: LINE (390, 130)-(447, 115), 1
 146: LINE (310, 30)-(340, 115), 15
 147: LINE (339, 118)-(345, 130), 7
 148: LINE (350, 115)-(330, 120), 14
 149: SLEEP (1)
 150: CLS
 151: SCREEN 12
 152: CIRCLE (190, 90), 12, 1
 153: LINE (190, 180)-(190, 100), 1
 154: LINE (190, 130)-(140, 115), 1
 155: LINE (190, 180)-(240, 230), 1
 156: LINE (190, 180)-(140, 230), 1
 157: LINE (190, 130)-(247, 115), 1
 158: LINE (270, 30)-(240, 115), 15
 159: LINE (239, 118)-(235, 130), 7
 160: LINE (250, 115)-(230, 110), 14
 161: 
 162: CIRCLE (440, 90), 12, 1
 163: LINE (440, 180)-(440, 100), 1
 164: LINE (440, 130)-(390, 115), 1
 165: LINE (440, 180)-(490, 230), 1
 166: LINE (440, 180)-(390, 230), 1
 167: LINE (440, 130)-(497, 115), 1
 168: LINE (360, 30)-(390, 115), 15
 169: LINE (389, 118)-(395, 130), 7
 170: LINE (400, 115)-(380, 120), 14
 171: 
 172: 
5748125 [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:10:00