home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / TEXT_ADV.DSK / SORCERY.bas < prev   
BASIC Source File  |  2014-09-09  |  12KB  |  377 lines
  1. 0  REM <CTRL-J><CTRL-J><CTRL-J>CHRISTELLA ENTERPRISE<CTRL-J><CTRL-J><CTRL-J>
  2. 2  REM <CTRL-J><CTRL-J><CTRL-J>AN INANE ADVENTURE<CTRL-J><CTRL-J><CTRL-J>
  3. 10  HOME : VTAB 10: HTAB 12
  4. 11  FLASH : PRINT "SWORDS AND SORCERY": NORMAL : FOR D = 1 TO 2000: NEXT 
  5. 12 W2 = 1: HOME : INPUT "PLEASE ENTER YOUR NAME ";N$:I3 =  ASC(N$)
  6. 20  PRINT : PRINT "GOOD LUCK, ";N$;", YOU NEED IT!"
  7. 21  PRINT : PRINT 
  8. 23  GOSUB 5000
  9. 30  IF  RND(I1) >.7  THEN 200
  10. 40  PRINT "A DRYAD WISHES TO GUIDE YOU."
  11. 50  PRINT "WILL YOU LET HER?
  12. 60  GOSUB 3000
  13. 70  ON I1 GOTO 80,120
  14. 80 F1 = 0
  15. 90  IF  RND(I1) >.2  THEN  GOSUB 3100
  16. 100  GOTO 200
  17. 120 F1 = 1
  18. 200 W1 = F1
  19. 210  PRINT : PRINT "THERE ARE THREE PATHS INTO THE FOREST.": PRINT "ONE IS CORRECT."
  20. 220 C1 =  INT(3 * RND(I1) +.9999)
  21. 222 Y1 =  INT(3 * RND(2) +.9999)
  22. 225  IF  RND(I1) >.4  THEN YI = C1
  23. 230  PRINT : PRINT "DO YOU WISH TO CONSULT AN ORACLE?": GOSUB 3000
  24. 250  ON I1 GOTO 400,260
  25. 260  PRINT : PRINT "HOW MANY MAIDENS SHOULD BE SACRIFICED?"
  26. 280  INPUT V1
  27. 285 V1 =  INT(V1)
  28. 290  IF V1 >2 * RND(I1)  THEN 320
  29. 295  PRINT : PRINT "THE ORACLE IS OFFENDED!"
  30. 300 C2 = C2 -1
  31. 320  IF V1 *F1 <10 * RND(I1)  THEN 350
  32. 330  GOSUB 3100
  33. 350  IF C2 <0  THEN 388
  34. 360  IF  RND(I1) <.4 -(V1/10)  THEN 388
  35. 370  PRINT "THE ORACLE SAYS PATH ";Y1
  36. 380 P1 = 1
  37. 381  GOTO 400
  38. 388  PRINT : PRINT "THE SIGNS ARE UNCLEAR."
  39. 400  PRINT "CHOOSE PATH 1,2 OR 3."
  40. 410  INPUT X1
  41. 415 X1 =  INT(X1)
  42. 420  IF X1 <1  OR X1 >3  THEN 400
  43. 426 L1 = 100 *( RND(X1) +1)
  44. 427  IF X1 = C1  THEN 444
  45. 431 C2 = C2 -2:L1 = L1 +50
  46. 444 C2 = C2 +1
  47. 445 T1 = 0
  48. 450 C2 = C2 +.5 * RND(X1) +F1 +P1 +.2 *V1 * SGN(5.1 -V1)
  49. 490 C3 = 0
  50. 520  PRINT : PRINT "YOU HAVE COME TO A FORK IN THE PATH."
  51. 525 C1 =  INT(2 * RND(I1) +.9999)
  52. 530 Z1 = W1 -F1:S1 = 8 -Z1 -G1/(1 +Z1)
  53. 535  IF S1 <4  THEN S1 = 4
  54. 540  IF 3.5 * RND(X1) >C2  THEN L1 = L1 +1
  55. 545 L2 = 7 +20 * RND(X1)
  56. 550 L0 = L2
  57. 560  IF F1 = 0  THEN 660
  58. 570  PRINT "DO YOU WANT TO ASK THE NYMPH WHICH ONE?"
  59. 580  GOSUB 3000
  60. 590  ON I1 GOTO 660,600
  61. 600  IF  RND(I1) >.5 +C2/50  THEN 650
  62. 610  PRINT "SHE SAYS ";C1
  63. 620  GOTO 740
  64. 650  PRINT "SHE DOESN'T KNOW."
  65. 655  GOTO 740
  66. 660  PRINT "WILL YOU CAST LOTS TO DECIDE?"
  67. 661  PRINT 
  68. 670  GOSUB 3000
  69. 674  ON I1 GOTO 740,680
  70. 680  PRINT "THE LOT SAYS ";
  71. 685  IF  RND(I1) >.5 +C2/10  THEN 700
  72. 690 X1 = C1
  73. 695  GOTO 730
  74. 700  IF C1 = 2  THEN X1 = 1
  75. 710  IF C1 = 1  THEN X1 = 2
  76. 730  PRINT X1
  77. 740  PRINT : PRINT "DO YOU CHOOSE 1 OR 2?";: INPUT " ";X1
  78. 755 X1 =  INT(X1 +.0001)
  79. 760  IF X1 >2  THEN 740
  80. 770  IF X1 <1  THEN 740
  81. 780 D0 = 0
  82. 790  IF X1 < >C1  THEN 820
  83. 800 C2 = C2 + RND(XI) + SGN(.5 - RND(I1))
  84. 810 C3 = 0
  85. 815  GOTO 840
  86. 820 C2 = C2 -.2
  87. 830 C3 =  -1
  88. 840  IF T1 = 0  THEN 890
  89. 890 L2 = L2 -S1
  90. 895 I2 = I2 +1
  91. 900  IF E1 < >0  THEN 940
  92. 910  IF  RND(X1) >.15 +.2 *F1  THEN 940
  93. 920  PRINT : PRINT "YOU FIND AN ENCHANTED SWORD!"
  94. 925 C2 = C2 +.2:E1 = 1
  95. 940  IF  RND(I1) -.5 *(F1 +C3) <.95  THEN 960
  96. 950  PRINT : PRINT "<CTRL-G><CTRL-G><CTRL-G>SNAKE!!!"
  97. 955  GOSUB 3490
  98. 960 T1 = T1 +1
  99. 970  IF  RND(X1) >.8 +(C2 +C3)/30  THEN  GOSUB 4500
  100. 1200  IF  RND(X1) >.95  THEN  GOSUB 7000
  101. 1300  IF  RND(I1) <.03  THEN  GOSUB 6100
  102. 1310 P3 = 0
  103. 1350  IF  RND(X1) >.99 +(C2 -I2/10)/100  THEN  GOSUB 6300
  104. 1445  IF W1 = 0  THEN 1460
  105. 1450  IF  RND(0) >.95 +(C2 +C3)/50  THEN  GOSUB 5100
  106. 1460  IF  RND(0) <.95  THEN 1500
  107. 1470  PRINT : PRINT "GOLD!!!!!"
  108. 1475  PRINT "HOW MANY SACKS WILL YOU TAKE?";: INPUT " ";X1
  109. 1490 G1 = G1 + INT(X1)
  110. 1500  IF T1 >10 -2 +F1  THEN  GOSUB 3500
  111. 1510  IF  RND(0) >.05  THEN 1540
  112. 1520  PRINT : PRINT "YOU MEET AN ESCAPED SLAVE GIRL "
  113. 1530 W1 = W1 +1
  114. 1540  IF L2 >0  THEN 840
  115. 1550 L1 = L1 -L0 *.85
  116. 1560  IF L1 <20  THEN  GOSUB 4000
  117. 1570  IF C3 < > -1  THEN 520
  118. 1580  IF  RND(I1) <.9  THEN 520
  119. 1590  IF  RND(X1) >.5  THEN  GOSUB 6100
  120. 1595  PRINT : PRINT "DEAD END<CTRL-G><CTRL-G><CTRL-G>!!!"
  121. 1600 L2 = L2 +L0
  122. 1615 L1 = L1 +L0
  123. 1616 C3 = 0
  124. 1700  GOTO 840
  125. 2980  GOTO 840
  126. 2990  SPEED= 255: PRINT : PRINT "THIS 'GAME' IS OVER!": PRINT "DO YOU WISH TO TRY AGAIN?"
  127. 2991  GOSUB 3000
  128. 2992  IF I1 = 1  THEN 2995
  129. 2993  IF I1 = 2  THEN  RUN 
  130. 2995  PRINT : PRINT "TOO BAD.  HOPE TO SEE YOU IN THE FOREST"
  131. 2996  PRINT "AGAIN.": PRINT  CHR$(13) + CHR$(4);"RUN HELLO"
  132. 3000 V =  PEEK(37) +1
  133. 3002  VTAB V:I1 = 0: CALL  -958: INPUT I1$
  134. 3003  IF  LEFT$(I1$,1) = "Y"  OR I1$ = "AFFIRMATIVE"  THEN I1 = 2
  135. 3010  IF  LEFT$(I1$,1) = "N"  THEN I1 = 1
  136. 3015  IF I1 = 0  THEN 3002
  137. 3025  RETURN 
  138. 3100  PRINT "THE NYMPH IS VERY OFFENDED."
  139. 3105  PRINT "SHE CURSES YOU AND GOES!"
  140. 3110 F1 = 0:W1 = 0:C2 = C2 -1
  141. 3120  RETURN 
  142. 3490  PRINT "YOU ARE HURT."
  143. 3500  PRINT "YOU MUST REST."
  144. 3502  PRINT "YOU'VE GONE ";I2 *S1;" KM."
  145. 3510 T1 = 0
  146. 3515  GOSUB 5000
  147. 3520 D3 = D3 +1 +W1 -F1
  148. 3530  IF D3 <4 -W1 +F1  THEN 3700
  149. 3540  IF D4 < >0  THEN 3650
  150. 3550  PRINT : PRINT "YOU ARE OUT OF FOOD!"
  151. 3560 D4 = 1:C2 = C2 - RND(0)
  152. 3570  GOTO 3700
  153. 3650 F5 = F5 +1
  154. 3660 C2 = C2 - RND(I1) +.2 *F1
  155. 3700  IF  RND(X1) >1 -(I2 +F8)/100  THEN 3715
  156. 3702  PRINT : PRINT "TIME TO MOVE ON.": FOR I = 1 TO 1000: NEXT I: HOME 
  157. 3705  IF F5 <7  THEN  RETURN 
  158. 3710  PRINT : PRINT "YOU STARVE TO DEATH<CTRL-G><CTRL-G><CTRL-G>!": GOTO 2990
  159. 3715  PRINT "YOU ARE CAPTURED BY GOBLINS!<CTRL-G><CTRL-G><CTRL-G>"
  160. 3720  IF E1 < >1  THEN 3800
  161. 3725  PRINT "THEY WANT YOUR SWORD."
  162. 3730  PRINT "WILL YOU TRADE IT FOR FREEDOM?"
  163. 3735  GOSUB 3000
  164. 3740  ON I1 GOTO 3800,3750
  165. 3750  PRINT "AGREED.":E1 =  -.8
  166. 3752  IF P3 = 1  THEN  PRINT "THEY THROW YOU BACK IN THE PIT."
  167. 3755  GOTO 3705
  168. 3800 D9 =  INT(3 * RND(I1) +.9999)
  169. 3805  IF G1 <D9  THEN 3850
  170. 3810  PRINT : PRINT "THE GOBLIN LORD FREES YOU"
  171. 3820  PRINT "FOR ";D9;" BAGS OF GOLD."
  172. 3825 G1 = G1 -D9
  173. 3830  GOTO 3752
  174. 3850  IF W1 >0  THEN 3880
  175. 3860  PRINT : PRINT "YOU ARE ENSLAVED!"
  176. 3870  GOTO 2990
  177. 3880  PRINT "YOU ARE SOLD TO THE SATYRS."
  178. 3890  GOSUB 5130
  179. 3891  GOTO 3752
  180. 4000  IF R1 < >0  THEN 4200
  181. 4020  PRINT "YOU ARE AT THE ENTRANCE TO THE DUNGEON."
  182. 4022  PRINT "THERE IS A GUARD!"
  183. 4025  GOSUB 7990
  184. 4110 R1 = 1:W1 = W1 +1
  185. 4120  PRINT : PRINT "YOU HAVE RELEASED THE PRINCESS.": PRINT 
  186. 4124  GOSUB 3500
  187. 4200  IF L1 >0  THEN  RETURN 
  188. 4205  IF R1 < >1  THEN 4275
  189. 4207  PRINT "YOU MADE IT!!!!"
  190. 4210  PRINT "YOU ARE A HERO."
  191. 4215  IF G1 <2  THEN 4240
  192. 4220  PRINT : PRINT "YOU MARRY THE PRINCESS."
  193. 4225  FOR I = 1 TO 500: NEXT I: GOTO 2990
  194. 4240  PRINT : PRINT "TOO BAD YOU ARE TOO POOR"
  195. 4245  PRINT "TO MARRY THE PRINCESS."
  196. 4247  PRINT : PRINT "YOU LIVE THE REST OF YOUR LIFE"
  197. 4250  PRINT "IN QUIET POVERTY."
  198. 4255  GOTO 2990
  199. 4275  IF R1 < > -2  THEN 4305
  200. 4280  PRINT : PRINT "YOU LET THE PRINCESS BETAKEN ALIVE BY  SATYRS."
  201. 4290  PRINT "YOU ARE JUSTIFIABLY TORTURED TO DEATH<CTRL-G><CTRL-G><CTRL-G>!"
  202. 4300  GOTO 2990
  203. 4305  PRINT : PRINT "YOU HAVE FAILED!!!"
  204. 4310  GOTO 4247
  205. 4500  PRINT : PRINT "TROLL<CTRL-G><CTRL-G><CTRL-G>!!!"
  206. 4510  PRINT "WILL YOU FIGHT?"
  207. 4520  GOSUB 3000
  208. 4530  ON I1 GOTO 4540,4560
  209. 4540  GOSUB 4700
  210. 4550  RETURN 
  211. 4560  IF E1 = 0  THEN 4580
  212. 4570  IF  RND(I1) >.2  THEN 4580
  213. 4574  PRINT : PRINT "THE TROLL RUNS!"
  214. 4576  RETURN 
  215. 4580  IF  RND(I1) +.3 *E1 >.5  THEN 4610
  216. 4585  IF  RND(X1) >.3  THEN 4590
  217. 4586  GOSUB 3490
  218. 4587  RETURN 
  219. 4590  PRINT "YOU ARE KILLED!!!<CTRL-G><CTRL-G><CTRL-G>"
  220. 4600  PRINT : GOTO 2990
  221. 4610  PRINT "THE TROLL IS DEAD!"
  222. 4620  IF  RND(I1) +.05 *E1 <.4  THEN  GOSUB 3490
  223. 4630  RETURN 
  224. 4700  PRINT : PRINT "RUN!!"
  225. 4710 L1 = L1 +4 *S1 *( RND(X1) -.7)
  226. 4720 T1 = T1 +1
  227. 4725  IF  RND(I1) >.7  THEN  GOSUB 6100
  228. 4730  RETURN 
  229. 5000  FOR I1 = 1 TO 200
  230. 5001 X1 =  RND(I3)
  231. 5003  NEXT I1: RETURN 
  232. 5100  PRINT "<CTRL-G><CTRL-G><CTRL-G>OH NO! SATYRS."
  233. 5105  IF E1 < >1  THEN 5130
  234. 5120  PRINT "THEY RUN FOR YOUR SWORD."
  235. 5121  PRINT "YOU FIGHT THEM OFF WITH YOUR ENCHANTED  SWORD."
  236. 5125  RETURN 
  237. 5130  PRINT "THEY WILL GO IF YOU FIGHT"
  238. 5135  PRINT "THEIR CHAMPION.": PRINT "WILL YOU FIGHT?"
  239. 5140  GOSUB 3000
  240. 5145  ON I1 GOTO 5200,5160
  241. 5160  GOSUB 7990
  242. 5165  IF  RND(X1) <.2  THEN 5200
  243. 5170  RETURN 
  244. 5200  PRINT : PRINT "THE SATYRS WANT THE FEMALES."
  245. 5205 W1 = 0:F1 = 0: IF R1 = 1  THEN R1 =  -2
  246. 5210  PRINT "WILL YOU ALLOW THIS?"
  247. 5220  GOSUB 3000
  248. 5230  ON I1 GOTO 5240,5260
  249. 5240  PRINT "THEY KILL YOU AND TAKE THE WOMEN<CTRL-G><CTRL-G><CTRL-G>!"
  250. 5250  GOTO 2990
  251. 5260  PRINT "THE WOMEN ARE TAKEN."
  252. 5270  IF  RND(I1) <.03  THEN 5310
  253. 5280  PRINT "THEY CURSE YOU."
  254. 5290 C2 =  -5
  255. 5310  IF  RND(X1) >.3  THEN  RETURN 
  256. 5320  PRINT "THE SATYRS KILL YOU ANYWAY."
  257. 5340  GOTO 2990
  258. 6100  PRINT "YOU HAVE FALLEN INTO A PIT!!"
  259. 6105 P3 = 1
  260. 6110  IF  RND(I1) >.5  THEN  GOSUB 3490
  261. 6120  PRINT "YOU MUST ESCAPE.  WILL YOU TRY TO CLIMB"
  262. 6121  PRINT "OUT (1), OR YELL FOR HELP (2)?"
  263. 6150  INPUT X1:X1 =  INT(X1)
  264. 6152  IF X1 <1  OR X1 >2  THEN 6120
  265. 6154 P7 = 0
  266. 6155  ON X1 GOTO 6160,6200
  267. 6160  IF  RND(I1) <.5 -P7/10  THEN 6180
  268. 6162  PRINT "YOU FALL WHILE TRYING TO CLIMB."
  269. 6165  IF  RND(X1) <.2  THEN  GOSUB 3490
  270. 6167 P7 = P7 +1: IF P7 <5  THEN 6160
  271. 6170  PRINT "TOO DEEP.  YELL FOR HELP."
  272. 6172  GOTO 6200
  273. 6180  PRINT "YOU'RE OUT!": RETURN 
  274. 6200  SPEED= 75: FOR I = 1 TO 5
  275. 6201  PRINT "HELP!  ";
  276. 6202  NEXT I: SPEED= 0: PRINT "HELP?  ": SPEED= 100
  277. 6203  GOSUB 5000
  278. 6204  IF  RND(I1) <.3  THEN 6200
  279. 6205  PRINT "A ROPE HAS BEEN LOWERED."
  280. 6207 P3 = 0
  281. 6210 Y1 =  INT(3 * RND(I1) +.9999)
  282. 6215  ON Y1 GOTO 6220,6225,6230
  283. 6220  GOSUB 4500: RETURN 
  284. 6225  GOSUB 3715: RETURN 
  285. 6230  PRINT : PRINT "YOU ARE RESCUED BY A WOMAN!"
  286. 6231 W1 = W1 +1
  287. 6232  RETURN 
  288. 6300  PRINT "<CTRL-G><CTRL-G><CTRL-G><CTRL-G>IT IS A NECROMANCER...."
  289. 6305  IF  RND(X1) >.6  THEN 6392
  290. 6310  IF F1 < >1  THEN 6326
  291. 6320  PRINT : PRINT "THE NYMPH GOES MAD."
  292. 6325 W1 = W1 -1:F1 = 0
  293. 6326  IF E1 = 1  THEN 6375
  294. 6330  IF W1 = 0  THEN 6350
  295. 6335 W1 = 0
  296. 6340  PRINT "THE WOMEN ARE SENT TO HIS"
  297. 6345  PRINT "UNDEAD AS PLAYTHINGS."
  298. 6350  PRINT "YOU ARE TRANSFORMED INTO"
  299. 6351  PRINT "A GELDED WATER BUFFALO"
  300. 6352  PRINT "AND DRIVEN INTO A PIT."
  301. 6360  PRINT : PRINT "BOY DID YOU LOOSE!!!!"
  302. 6370  GOTO 2990
  303. 6375  PRINT "HE TAKES YOUR SWORD!":E1 =  -1.5
  304. 6380  PRINT "YOU ARE CAST INTO A PIT."
  305. 6385  GOSUB 6110
  306. 6390  RETURN 
  307. 6392  GOSUB 4700
  308. 6395  RETURN 
  309. 7000  PRINT : PRINT "<CTRL-G><CTRL-G><CTRL-G>UGH! RATS, MILLIONS OF THEM."
  310. 7010  GOSUB 4700
  311. 7020  RETURN 
  312. 7990 W3 = 2:H1 = 1:H2 = 1
  313. 7992 W2 = 1 +3 * RND(I1)
  314. 7995 H3 = 2 + SGN(E1)
  315. 8000  PRINT : PRINT "IT'S A LARGE TROLL."
  316. 8040  PRINT "THE BATTLE BEGINS..."
  317. 8050  PRINT : PRINT "YOU CIRCLE FOR POSITION."
  318. 8051  PRINT : FOR I1 = 1 TO 20
  319. 8052 X1 =  RND(I1)
  320. 8053  NEXT I1
  321. 8055 W3 = W3 -.05:H1 = H1 -.05
  322. 8057 H2 = H2 -.05
  323. 8060  PRINT "HE ATTACKS!"
  324. 8070 X1 = 1 + INT(2.9999 * RND(I1))
  325. 8080  ON X1 GOTO 8090,8100,8110
  326. 8090  PRINT "HE TAKES A WILD CUT."
  327. 8091  GOTO 8120
  328. 8100  PRINT "HE THRUSTS AT YOUR BODY."
  329. 8105  GOTO 8120
  330. 8110  PRINT "HE TRIES A HEAD CUT!"
  331. 8120  IF  RND(I1) >.5 +.3 *H2/W2  THEN 8340
  332. 8130 X1 = 1 + INT(2.5 * RND(I1))
  333. 8140  ON X1 GOTO 8150,8160,8170
  334. 8150  PRINT : PRINT "YOU STOP HIS BLOW ON YOUR SWORD"
  335. 8151  PRINT "AND BACK AWAY."
  336. 8155  GOTO 8050
  337. 8160  PRINT : PRINT "YOU DUCK UNDER HIS SWORD"
  338. 8161  PRINT "TO ATTACK!"
  339. 8165  GOTO 8175
  340. 8170  PRINT : PRINT "YOU PARRY THEN ATTACK."
  341. 8175  FOR I1 = 1 TO H3
  342. 8180  IF  RND(I1) >.1  THEN 8190
  343. 8185  PRINT : PRINT "YOU MISSED HIM!": GOTO 8250
  344. 8190 X1 = 1 + INT(2.999 * RND(I1))
  345. 8195  ON X1 GOTO 8200,8220,8230
  346. 8200  PRINT "YOU GOT HIS LEG."
  347. 8205 W2 = W2 -H2/5:W3 = W3 -H2/5
  348. 8210  GOTO 8250
  349. 8220  PRINT "YOU'VE SLASHED HIS ARM."
  350. 8225 W2 = W2 -H2/3:W3 = W3 -H2/5
  351. 8227  GOTO 8250
  352. 8230  PRINT "YOU SCORE TO HIS BODY."
  353. 8245 W2 = W2 -.1:W3 = W3 -.25
  354. 8250  NEXT I1
  355. 8251  IF W2 <.1  THEN W2 = .1
  356. 8255  IF W3 >.05  THEN 8050
  357. 8260  PRINT "HE'S DOWN!!!"
  358. 8265  PRINT "YOU HAVE FINISHED HIM OFF!!"
  359. 8290  RETURN 
  360. 8340  PRINT "<CTRL-G><CTRL-G><CTRL-G>YOU'RE HIT!"
  361. 8355 H1 = H1 -.2:H2 = H2 -.2
  362. 8357  IF H1 <.05  THEN 8370
  363. 8360  PRINT "YOU STAGGER AWAY.": GOTO 8050
  364. 8370  PRINT "YOU'RE DOWN!!!"
  365. 8380  PRINT "HE CLOSES FOR THE KILL!"
  366. 8390  IF  RND(I1) >.1 +E1/20  THEN 8400
  367. 8392  PRINT "YOU MAKE A LUCKY THRUST!!"
  368. 8395  PRINT "HE'S ";: SPEED= 0: PRINT "DEAD!!!": SPEED= 100
  369. 8396  RETURN 
  370. 8400  PRINT "YOU ARE KILLED!!!!"
  371. 8405  GOTO 2990
  372. 8410  REM <CTRL-J><CTRL-J>
  373. 63800  REM  <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>========================= 
  374. 63801  REM  <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>= CHRISTELLA ENTERPRISE = 
  375. 63802  REM  <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>= 22513 NORCREST DRIVE  = 
  376. 63803  REM  <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>= SCS,MICHIGAN    48080 =   
  377. 63804  REM  <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>=========================