home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progbas / ascsu205.arj / START.ASI < prev    next >
Text File  |  1992-01-19  |  51KB  |  2,371 lines
  1. start:
  2.  
  3. rem This version of START.COM is for the ASIC Support Disk.
  4.  
  5. rem It requires approximately 68K RAM.
  6.  
  7. rem First, initialize the Esc key.
  8.  
  9. b$=chr$(27)
  10.  
  11. rem Next, intialize the space bar.
  12.  
  13. e$=chr$(32)
  14.  
  15. rem Parameters.
  16.  
  17. a$=command$
  18. if a$=" /v" then listfile:
  19. if a$=" /V" then listfile:
  20. if a$=" /r" then readfile:
  21. if a$=" /R" then readfile:
  22. if a$=" /p" then printdoc:
  23. if a$=" /P" then printdoc:
  24. if a$=" /d" then donation:
  25. if a$=" /D" then donation:
  26. if a$=" /40" then option40:
  27. if a$=" /40 v" then listfl40:
  28. if a$=" /40 V" then listfl40:
  29. if a$=" /40 r" then rdfile40:
  30. if a$=" /40 R" then rdfile40:
  31. if a$=" /40 p" then prntfl40:
  32. if a$=" /40 P" then prntfl40:
  33. if a$=" /40 d" then donate40:
  34. if a$=" /40 D" then donate40:
  35. if a$=" /?" then help:
  36. if a$=" /40 ?" then help40:
  37.  
  38. rem If no parameters, then begin from the beginning.
  39. cls
  40. print "                                 Matt Roberts"
  41. print "                               3 Cedar St., # 8"
  42. print "                           Montpelier, Vt 05602-3006"
  43. print "                                 (802)223-2553"
  44. print
  45. print
  46. print "If you have trouble with this disk, you can call between 9AM and 9PM"
  47. print "EST, and I'll try to help."
  48. print
  49. print
  50. print "If you find the files on this disk useful, a donation of $5.00 would"
  51. print "be greatly appreciated.  Thanks."
  52. print
  53. print "Of course, if there's work by other authors on this disk, the $5.00"
  54. print "doesn't cover them.  Thanks for your understanding."
  55. print
  56. print
  57. print
  58. print
  59. print "Press any key to continue. ";
  60. gosub continue:
  61.  
  62. rem Here's the caveat.
  63.  
  64. cls
  65. print "Please Note: I am not in any way connected to ASIC or its author,"
  66. print "David A. Visti, except as a registered user and ardent fan.  Any"
  67. print "questions regarding ASIC, and registration fees for that compiler,"
  68. print "should be sent to:"
  69. print
  70. print
  71. print "David Visti, P.O. Box 2952, Raleigh, NC 27602-2952."
  72. print
  73. print
  74. print "I urge you to consider ASIC, and to register it if you use it."
  75. print "Thanks."
  76. print
  77. print
  78. print
  79. print
  80. print
  81. print "Press any key to continue. ";
  82. gosub continue:
  83. cls
  84. print "Do you have one or two floppy drives?"
  85. print
  86. print
  87. print "1- One floppy drive."
  88. print "2- Two floppy drives."
  89. print
  90. print
  91. print "Please press the key corresponding to your choice. ";
  92.  
  93. wait9:
  94. gosub continue:
  95.  
  96. if a$="1" then
  97. drivenum=1
  98. goto options:
  99. endif
  100.  
  101. if a$="2" then
  102. drivenum=2
  103. goto options:
  104. endif
  105.  
  106. goto wait9:
  107.  
  108. if drivenum=2 then
  109. print
  110. print
  111. print "To use both drives (it's less hassle), you'll need to place disk 1 in"
  112. print "drive A and disk 2 in drive B.  If you haven't already done so, please"
  113. print "do that now, and then press any key to continue. ";
  114. gosub continue:
  115. endif
  116.  
  117. options:
  118. cls
  119. print "You have the following options:"
  120. print
  121. print
  122. print "F1- View a list of the files on this disk."
  123. print
  124. print "F2- View the document file of your choice, on the screen."
  125. print
  126. print "F3- Print the document file of your choice."
  127. print
  128. print "F4- Shell to DOS."
  129. print
  130. print "F5- See a list of parameters you can use from DOS."
  131. print
  132. print "F6- Change to 40-column width (larger text; probably most useful to"
  133. print "the visually impaired)."
  134. print
  135. print "F7- Run TIPS.COM."
  136. print
  137. print "Esc- Quit and return to DOS."
  138. print
  139. print
  140. print "Please press the key corresponding to your choice. ";
  141.  
  142. wait1:
  143. gosub continue:
  144. if a$=b$ then finish:
  145. if extended=1 then readext:
  146. goto wait1:
  147.  
  148. readext:
  149. if a$=";" then listfile:
  150. if a$="<" then readfile:
  151. if a$="=" then printdoc:
  152. if a$=">" then shell:
  153. if a$="?" then help:
  154. if a$="@" then option40:
  155. if a$="A" then runtipsc:
  156. goto wait1:
  157.  
  158. listfile:
  159. cls
  160. print "Here are the files on these disks:"
  161. print
  162. print
  163. print "ANYKEY.ASI- The source code for ANYKEY.COM."
  164. print
  165. print "ANYKEY.COM- A distant ancestor of GETKEY.COM, a batch file utility."
  166. print
  167. print "ANYKEY.DOC- The documentation for ANYKEY.COM."
  168. print
  169. print "AUTOEXEC.BAS- The ApBASIC code for AUTOEXEC.EXE."
  170. print
  171. print "AUTOEXEC.EXE- File called by FILE-MAN, for working with AUTOEXEC.BAT."
  172. print
  173. print "AUTOXC40.BAS- The ApBASIC code for AUTOXC40.EXE."
  174. print
  175. print "AUTOXC40.EXE- Same as AUTOEXEC.EXE, for 40-column mode."
  176. print
  177. print "CONFIG40.BAS- The ApBASIC code for CONFIG40.EXE."
  178. print
  179. print "CONFIG40.EXE- Same as CONFIG.EXE, for 40-column mode."
  180. print
  181. print
  182. print "Press any key to continue. ";
  183. gosub continue:
  184. cls
  185. print "CONFIG.BAS- The ApBASIC code for CONFIG.EXE."
  186. print
  187. print "CONFIG.EXE- File called by FILE-MAN.COM, for working with CONFIG.SYS."
  188. print
  189. print "DARKSCRN.ASI- The ASIC code for DARKSCRN.COM."
  190. print
  191. print "DARKSCRN.COM- A screen blanker used from the DOS prompt."
  192. print
  193. print "DARKSCRN.DOC- The documentation for DARKSCRN.COM."
  194. print
  195. print "EXTENDED.ASI- The ASIC code for EXTENDED.COM."
  196. print
  197. print "EXTENDED.COM- Program to see characters generated by extended keys."
  198. print
  199. print "EXTENDED.DOC- The documentation for EXTENDED.COM."
  200. print
  201. print "FILE-MAN.ASI- The source code for FILE-MAN.COM."
  202. print
  203. print "FILE-MAN.COM- The ASIC File Manager."
  204. print
  205. print "FILE-MAN.DOC- The documentation for FILE-MAN.COM."
  206. print
  207. print
  208. print "Press any key to continue. ";
  209. gosub continue:
  210. cls
  211. print "GETKEY.ASI- The source code for GETKEY.COM."
  212. print
  213. print "GETKEY.COM- A batch file utility for getting keyboard response."
  214. print
  215. print "GETKEY.DOC- The documentation for GETKEY.COM."
  216. print
  217. print "GETPAUSE.ASI- The ASIC code for GETPAUSE.COM"
  218. print
  219. print "GETPAUSE.COM- A customizable PAUSE command; a batch file utility."
  220. print
  221. print "GETPAUSE.DOC- The documentation for GETPAUSE.COM."
  222. print
  223. print "LIST.COM- A neat utility by Vern Buerg; displays files on the screen."
  224. print
  225. print "LIST.DOC- The documentation for LIST.COM."
  226. print
  227. print "LOOSWARE.DOC- Notes on the looseware concept."
  228. print
  229. print "PRINT.ASI- The ASIC code for PRINT.COM."
  230. print
  231. print "PRINT.COM- File-printing utility."
  232. print
  233. print
  234. print "Press any key to continue. ";
  235. gosub continue:
  236. cls
  237. print "PRINT.DOC- The documentation for PRINT.COM."
  238. print
  239. print "READ.ASI- The ASIC code for READ.COM."
  240. print
  241. print "READ.COM- Utility to display a text file on the screen."
  242. print
  243. print "READ.DOC- The documentation for READ.COM."
  244. print
  245. print "SEEFILES.ASI- The ASIC code for SEEFILES.COM."
  246. print
  247. print "SEEFILES.COM- Program called by FILE-MAN.COM; lists disk files."
  248. print
  249. print "SHELL.ASI- The ASIC 3.01 code for SHELL.COM."
  250. print
  251. print "SHELL.COM- Program to be used from within ASIC; shells to DOS."
  252. print
  253. print "SHELL.DOC- The documentation for SHELL.COM."
  254. print
  255. print "START.ASI- The ASIC code for START.COM."
  256. print
  257. print "START.COM- The file you're using right now."
  258. print
  259. print
  260. print "Press any key to continue. ";
  261. gosub continue:
  262. cls
  263. print "TIPS.ASI- The ASIC code for TIPS.COM."
  264. print
  265. print "TIPS.COM- Automated text file with tips for helping your programming."
  266. print
  267. print "TIPS.DOC- The documentation for TIPS.COM."
  268. print
  269. print "WIDTH.ASI- The ASIC code for WIDTH.COM."
  270. print
  271. print "WIDTH.COM- Utility to change from normal text to 40-column mode."
  272. print
  273. print "WIDTH.DOC- The documentation for WIDTH.COM."
  274. print
  275. print
  276. print "Press any key to return to the Main Options Menu. ";
  277. gosub continue:
  278. goto options:
  279.  
  280. readfile:
  281. cls
  282. print "To move ahead in the file(s) you are about to view, press PgDn."
  283. print
  284. print "To move back, press PgUp."
  285. print
  286. print "To exit the document, press Esc."
  287. print
  288. print
  289. print "Press any key to see the menu of files. ";
  290. gosub continue:
  291.  
  292. readmenu:
  293. cls
  294. print "Here are some of the files you can view:"
  295. print
  296. print
  297. print "A- ANYKEY.ASI       J- EXTENDED.DOC         S- PRINT.ASI"
  298. print
  299. print "B- ANYKEY.DOC       K- FILE-MAN.ASI         T- PRINT.DOC"
  300. print
  301. print "C- AUTOEXEC.BAS     L- FILE-MAN.DOC         U- READ.ASI"
  302. print
  303. print "D- AUTOXC40.BAS     M- GETKEY.ASI           V- READ.DOC"
  304. print
  305. print "E- CONFIG.40.BAS    N- GETKEY.DOC           W- SEEFILES.ASI"
  306. print
  307. print "F- CONFIG.BAS       O- GETPAUSE.ASI         X- SHELL.ASI"
  308. print
  309. print "G- DARKSCRN.ASI     P- GETPAUSE.DOC         Y- SHELL.DOC"
  310. print
  311. print "H- DARKSCRN.DOC     Q- LIST.DOC             Z- Next Menu."
  312. print
  313. print "I- EXTENDED.ASI     R- LOOSWARE.DOC         Esc- Main Options Menu."
  314. print
  315. print
  316. print "Please press the key corresponding to your choice. ";
  317.  
  318. gosub continue:
  319. if a$=b$ then options:
  320. print a$;
  321. if a$="z" then readmen2:
  322. if a$="Z" then readmen2:
  323. if a$="y" then readshed:
  324. if a$="Y" then readshed:
  325. if a$="x" then readshea:
  326. if a$="X" then readshea:
  327. if a$="w" then readseef:
  328. if a$="W" then readseef:
  329. if a$="v" then readread:
  330. if a$="V" then readread:
  331. if a$="u" then readreaa:
  332. if a$="U" then readreaa:
  333. if a$="t" then readprid:
  334. if a$="T" then readprid:
  335. if a$="s" then readpria:
  336. if a$="S" then readpria:
  337. if a$="r" then readloos:
  338. if a$="R" then readloos:
  339. if a$="q" then readlist:
  340. if a$="Q" then readlist:
  341. if a$="p" then readgepd:
  342. if a$="P" then readgepd:
  343. if a$="o" then readgepa:
  344. if a$="O" then readgepa:
  345. if a$="n" then readgekd:
  346. if a$="N" then readgekd:
  347. if a$="m" then readgeka:
  348. if a$="M" then readgeka:
  349. if a$="l" then readfild:
  350. if a$="L" then readfild:
  351. if a$="k" then readfila:
  352. if a$="K" then readfila:
  353. if a$="j" then readextd:
  354. if a$="J" then readextd:
  355. if a$="i" then readexta:
  356. if a$="I" then readexta:
  357. if a$="h" then readdard:
  358. if a$="H" then readdard:
  359. if a$="g" then readdara:
  360. if a$="G" then readdara:
  361. if a$="f" then readconf:
  362. if a$="F" then readconf:
  363. if a$="e" then readco40:
  364. if a$="E" then readco40:
  365. if a$="d" then readau40:
  366. if a$="D" then readau40:
  367. if a$="c" then readauto:
  368. if a$="C" then readauto:
  369. if a$="b" then readanyd:
  370. if a$="B" then readanyd:
  371. if a$="a" then readanya:
  372. if a$="A" then readanya:
  373. goto readmenu:
  374.  
  375. readanya:
  376. call ("list.com"," anykey.asi")
  377. goto readmenu:
  378. readanyd:
  379. call ("list.com"," anykey.doc")
  380. goto readmenu:
  381.  
  382. readauto:
  383. if drivenum=2 then readaut2:
  384. cls
  385. print "Please place disk 2 into your drive and press any key when ready. ";
  386. gosub continue:
  387. call ("list.com"," autoexec.bas")
  388. cls
  389. print "Please place disk 1 into your drive and press any key when ready. ";
  390. gosub continue:
  391. goto readmenu:
  392.  
  393. readaut2:
  394. cls
  395. print "Please make sure disk 2 is in drive B and press any key when ready. ";
  396. gosub continue:
  397. call ("list.com"," b:\autoexec.bas")
  398. goto readmenu:
  399.  
  400. readau40:
  401. if drivenum=2 then readau42:
  402. cls
  403. print "Please place disk 2 into your drive and press any key when ready. ";
  404. gosub continue:
  405. call ("list.com"," autoxc40.bas")
  406. cls
  407. print "Please place disk 1 into your drive and press any key when ready. ";
  408. gosub continue:
  409. goto readmenu:
  410.  
  411. readau42:
  412. cls
  413. print "Please make sure disk 2 is in drive B and press any key when ready. ";
  414. gosub continue:
  415. call ("list.com"," b:autoxc40.bas")
  416. goto readmenu:
  417.  
  418. readco40:
  419. if drivenum=2 then readco42:
  420. cls
  421. print "Please place disk 2 into your drive and press any key when ready. ";
  422. gosub continue:
  423. call ("list.com"," config40.bas")
  424. cls
  425. print "Please place disk 1 into your drive and press any key when ready. ";
  426. gosub continue:
  427. goto readmenu:
  428.  
  429. readco42:
  430. cls
  431. print "Please make sure disk 2 is in drive B and press any key when ready. ";
  432. gosub continue:
  433. call ("list.com"," b:config40.bas")
  434. goto readmenu:
  435.  
  436. readconf:
  437. if drivenum=2 then readcon2:
  438. cls
  439. print "Please place disk 2 into your drive and press any key when ready. ";
  440. gosub continue:
  441. call ("list.com"," config.bas")
  442. cls
  443. print "Please place disk 1 into your drive and press any key when ready. ";
  444. gosub continue:
  445. goto readmenu:
  446.  
  447. readcon2:
  448. cls
  449. print "Please make sure disk 2 is in drive B and press any key when ready. ";
  450. gosub continue:
  451. call ("list.com"," b:\config.bas")
  452. goto readmenu:
  453.  
  454. readdara:
  455. call ("list.com"," darkscrn.asi")
  456. goto readmenu:
  457. readdard:
  458. call ("list.com"," darkscrn.doc")
  459. goto readmenu:
  460. readexta:
  461. call ("list.com"," extended.asi")
  462. goto readmenu:
  463. readextd:
  464. call ("list.com"," extended.doc")
  465. goto readmenu:
  466.  
  467. readfila:
  468. if drivenum=2 then readfia2:
  469. cls
  470. print "Please place disk 2 into your drive and press any key when ready. ";
  471. gosub continue:
  472. call ("list.com"," file-man.asi")
  473. cls
  474. print "Please place disk 1 into your drive and press any key when ready. ";
  475. gosub continue:
  476. goto readmenu:
  477.  
  478. readfia2:
  479. cls
  480. print "Please make sure disk 2 is in drive B and press any key when ready. ";
  481. gosub continue:
  482. call ("list.com"," b:file-man.asi")
  483. goto readmenu:
  484.  
  485. readfild:
  486. if drivenum=2 then readfid2:
  487. cls
  488. print "Please place disk 2 into your drive and press any key when ready. ";
  489. gosub continue:
  490. call ("list.com"," file-man.doc")
  491. cls
  492. print "Please place disk 1 into your drive and press any key when ready. ";
  493. gosub continue:
  494. goto readmenu:
  495.  
  496. readfid2:
  497. cls
  498. print "Please make sure disk 2 is in drive B and press any key when ready. ";
  499. gosub continue:
  500. call ("list.com"," b:file-man.doc")
  501. goto readmenu:
  502.  
  503. readgeka:
  504. call ("list.com"," getkey.asi")
  505. goto readmenu:
  506. readgekd:
  507. call ("list.com"," getkey.doc")
  508. goto readmenu:
  509. readgepa:
  510. call ("list.com"," getpause.asi")
  511. goto readmenu:
  512. readgepd:
  513. call ("list.com"," getpause.doc")
  514. goto readmenu:
  515. readlist:
  516. call ("list.com"," list.doc")
  517. goto readmenu:
  518. readloos:
  519. call ("list.com"," loosware.doc")
  520. goto readmenu:
  521. readpria:
  522. call ("list.com"," print.asi")
  523. goto readmenu:
  524. readprid:
  525. call ("list.com"," print.doc")
  526. goto readmenu:
  527. readreaa:
  528. call ("list.com"," read.asi")
  529. goto readmenu:
  530. readread:
  531. call ("list.com"," read.doc")
  532. goto readmenu:
  533.  
  534. readseef:
  535. if drivenum=2 then readsee2:
  536. cls
  537. print "Please place disk 2 into your drive and press any key when ready. ";
  538. gosub continue:
  539. call ("list.com"," seefiles.asi")
  540. print "Please place disk 1 into your drive and press any key when ready. ";
  541. gosub continue:
  542. goto readmenu:
  543.  
  544. readsee2:
  545. cls
  546. print "Please make sure disk 2 is in drive B and press any key when ready. ";
  547. gosub continue:
  548. call ("list.com"," b:seefiles.asi")
  549. goto readmenu:
  550.  
  551. readshea:
  552. call ("list.com"," shell.asi")
  553. goto readmenu:
  554. readshed:
  555. call ("list.com"," shell.doc")
  556. goto readmenu:
  557.  
  558. readmen2:
  559. cls
  560. print "Here are the remaining files you can view:"
  561. print
  562. print
  563. print "A- START.ASI"
  564. print
  565. print "B- TIPS.ASI"
  566. print
  567. print "C- TIPS.DOC"
  568. print
  569. print "D- WIDTH.ASI"
  570. print
  571. print "E- WIDTH.DOC"
  572. print
  573. print "F- Return to the First Menu."
  574. print
  575. print "Esc- Return to the Main Options Menu."
  576. print
  577. print
  578. print "Please press the key corresponding to your choice. ";
  579.  
  580. gosub continue:
  581. if a$=b$ then options:
  582. print a$;
  583. if a$="f" then readmenu:
  584. if a$="f" then readmenu:
  585. if a$="e" then readwidd:
  586. if a$="E" then readwidd:
  587. if a$="d" then readwida:
  588. if a$="D" then readwida:
  589. if a$="c" then readtipd:
  590. if a$="C" then readtipd:
  591. if a$="b" then readtipa:
  592. if a$="B" then readtipa:
  593. if a$="a" then readstar:
  594. if a$="A" then readstar:
  595. goto readmen2:
  596.  
  597. readstar:
  598. call ("list.com"," start.asi")
  599. goto readmen2:
  600. readtipa:
  601. call ("list.com"," tips.asi")
  602. goto readmen2:
  603. readtipd:
  604. call ("list.com"," tips.doc")
  605. goto readmen2:
  606. readwida:
  607. call ("list.com"," width.asi")
  608. goto readmen2:
  609. readwidd:
  610. call ("list.com"," width.doc")
  611. goto readmen2:
  612.  
  613. printdoc:
  614. cls
  615. print "Please ready your printer; press any key to see the menu of files. ";
  616. gosub continue:
  617.  
  618. printmen:
  619. cls
  620. print "Here are some of the files you can print:"
  621. print
  622. print
  623. print "A- ANYKEY.ASI       J- EXTENDED.DOC         S- PRINT.ASI"
  624. print
  625. print "B- ANYKEY.DOC       K- FILE-MAN.ASI         T- PRINT.DOC"
  626. print
  627. print "C- AUTOEXEC.BAS     L- FILE-MAN.DOC         U- READ.ASI"
  628. print
  629. print "D- AUTOXC40.BAS     M- GETKEY.ASI           V- READ.DOC"
  630. print
  631. print "E- CONFIG.40.BAS    N- GETKEY.DOC           W- SEEFILES.ASI"
  632. print
  633. print "F- CONFIG.BAS       O- GETPAUSE.ASI         X- SHELL.ASI"
  634. print
  635. print "G- DARKSCRN.ASI     P- GETPAUSE.DOC         Y- SHELL.DOC"
  636. print
  637. print "H- DARKSCRN.DOC     Q- LIST.DOC             Z- Next Menu."
  638. print
  639. print "I- EXTENDED.ASI     R- LOOSWARE.DOC         Esc- Main Options Menu."
  640. print
  641. print
  642. print "Please press the key corresponding to your choice. ";
  643.  
  644. wait5:
  645. gosub continue:
  646. if a$=b$ then options:
  647. if a$="z" then printme2:
  648. if a$="Z" then printme2:
  649. if a$="y" then printshd:
  650. if a$="Y" then printshd:
  651. if a$="x" then printsha:
  652. if a$="X" then printsha:
  653. if a$="w" then printsee:
  654. if a$="W" then printsee:
  655. if a$="v" then printred:
  656. if a$="V" then printred:
  657. if a$="u" then printrea:
  658. if a$="U" then printrea:
  659. if a$="t" then printprd:
  660. if a$="T" then printprd:
  661. if a$="s" then printpra:
  662. if a$="S" then printpra:
  663. if a$="r" then printloo:
  664. if a$="R" then printloo:
  665. if a$="q" then printlis:
  666. if a$="Q" then printlis:
  667. if a$="p" then printgpd:
  668. if a$="P" then printgpd: 
  669. if a$="o" then printgpa:
  670. if a$="O" then printgpa:
  671. if a$="n" then printgkd:
  672. if a$="N" then printgkd:
  673. if a$="m" then printgka:
  674. if a$="M" then printgka:
  675. if a$="l" then printfid:
  676. if a$="L" then printfid:
  677. if a$="k" then printfia:
  678. if a$="K" then printfia:
  679. if a$="j" then printexd:
  680. if a$="J" then printexd:
  681. if a$="i" then printexa:
  682. if a$="I" then printexa:
  683. if a$="h" then printdad:
  684. if a$="H" then printdad:
  685. if a$="g" then printdaa:
  686. if a$="G" then printdaa:
  687. if a$="f" then printcon:
  688. if a$="F" then printcon:
  689. if a$="e" then printc40:
  690. if a$="E" then printc40:
  691. if a$="d" then printau4:
  692. if a$="D" then printau4:
  693. if a$="c" then printaut:
  694. if a$="C" then printaut:
  695. if a$="b" then printand:
  696. if a$="B" then printand:
  697. if a$="a" then printana:
  698. if a$="A" then printana:
  699. goto wait5:
  700.  
  701. printana:
  702. file$="anykey.asi"
  703. gosub printfil:
  704. goto printmen:
  705.  
  706. printand:
  707. file$="anykey.doc"
  708. gosub printfil:
  709. goto printmen:
  710.  
  711. printaut:
  712. if drivenum=2 then printau2:
  713. cls
  714. print "Please place disk 2 into your drive and press any key when ready. ";
  715. gosub continue:
  716. file$="autoexec.bas"
  717. gosub printfil:
  718. cls
  719. print "Please place disk 1 into your drive and press any key when ready. ";
  720. gosub continue:
  721. goto printmen:
  722.  
  723. printau2:
  724. cls
  725. print "Please make sure disk 2 is in drive B and press any key when ready. ";
  726. gosub continue:
  727. file$="b:autoexec.bas"
  728. gosub printfil:
  729. goto printmen:
  730.  
  731. printau4:
  732. if drivenum=2 then printa42:
  733. cls
  734. print "Please place disk 2 into your drive and press any key when ready. ";
  735. gosub continue:
  736. file$="autoxc40.bas"
  737. gosub printfil:
  738. cls
  739. print "Please place disk 1 into your drive and press any key when ready. ";
  740. gosub continue:
  741. goto printmen:
  742.  
  743. printa42:
  744. cls
  745. print "Please make sure disk 2 is in drive B and press any key when ready. ";
  746. gosub continue:
  747. file$="b:autoxc40.bas"
  748. gosub printfil:
  749. goto printmen:
  750.  
  751. printc40:
  752. if drivenum=2 then printc42:
  753. cls
  754. print "Please place disk 2 into your drive and press anykey when ready. ";
  755. gosub continue:
  756. file$="config40.bas"
  757. gosub printfil:
  758. cls
  759. print "Please place disk 2 into your drive and press any key when ready. ";
  760. gosub continue:
  761. goto printmen:
  762.  
  763. printc42:
  764. cls
  765. print "Please make sure disk 2 is in drive B and press any key when ready. ";
  766. gosub continue:
  767. file$="b:autoxc40.bas"
  768. gosub printfil:
  769. goto printmen:
  770.  
  771. printcon:
  772. if drivenum=2 then printco2:
  773. cls
  774. print "Please place disk 2 into your drive and press any key when ready. ";
  775. gosub continue:
  776. file$="config.bas"
  777. gosub printfil:
  778. cls
  779. print "Please place disk 1 into your drive and press any key when ready. ";
  780. gosub continue:
  781. goto printmen:
  782.  
  783. printco2:
  784. cls
  785. print "Please make sure disk 2 is in drive B and press any key when ready. ";
  786. gosub continue:
  787. file$="b:config.bas"
  788. gosub printfil:
  789. goto printmen:
  790.  
  791. printdaa:
  792. file$="darkscrn.asi"
  793. gosub printfil:
  794. goto printmen:
  795.  
  796. printdad:
  797. file$="darkscrn.doc"
  798. gosub printfil:
  799. goto printmen:
  800.  
  801. printexa:
  802. file$="extended.asi"
  803. gosub printfil:
  804. goto printmen:
  805.  
  806. printexd:
  807. file$="extended.doc"
  808. gosub printfil:
  809. goto printmen:
  810.  
  811. printfia:
  812. if drivenum=2 then printfa2:
  813. cls
  814. print "Please place disk 2 into your drive and press any key when ready. ";
  815. gosub continue:
  816. file$="file-man.asi"
  817. gosub printfil:
  818. cls
  819. print "Please place disk 1 into your drive and press any key when ready. ";
  820. gosub continue:
  821. goto printmen:
  822.  
  823. printfa2:
  824. cls
  825. print "Please make sure disk 2 is in drive B and press any key when ready. ";
  826. gosub continue:
  827. file$="b:file-man.asi"
  828. gosub printfil:
  829. goto printmen:
  830.  
  831. printfid:
  832. if drivenum=2 then printfd2:
  833. cls
  834. print "Please place disk 2 into your drive and press any key when ready. ";
  835. gosub continue:
  836. file$="file-man.doc"
  837. gosub printfil:
  838. cls
  839. print "Please place disk 1 into your drive and press any key when ready. ";
  840. gosub continue:
  841. goto printmen:
  842.  
  843. printfd2:
  844. cls
  845. print "Please make sure disk 2 is in drive B and press any key when ready. ";
  846. gosub continue:
  847. file$="b:file-man.doc"
  848. gosub printfil:
  849. goto printmen:
  850.  
  851. printgka:
  852. file$="getkey.asi"
  853. gosub printfil:
  854. goto printmen:
  855.  
  856. printgkd:
  857. file$="getkey.doc"
  858. gosub printfil:
  859. goto printmen:
  860.  
  861. printgpa:
  862. file$="getpause.asi"
  863. gosub printfil:
  864. goto printmen:
  865.  
  866. printgpd:
  867. file$="getpause.doc"
  868. gosub printfil:
  869. goto printmen:
  870.  
  871. printlis:
  872. file$="list.doc"
  873. gosub printfil:
  874. goto printmen:
  875.  
  876. printloo:
  877. file$="loosware.doc"
  878. gosub printfil:
  879. goto printmen:
  880.  
  881. printpra:
  882. file$="print.asi"
  883. gosub printfil:
  884. goto printmen:
  885.  
  886. printprd:
  887. file$="print.doc"
  888. gosub printfil:
  889. goto printmen:
  890.  
  891. printrea:
  892. file$="read.asi"
  893. gosub printfil:
  894. goto printmen:
  895.  
  896. printred:
  897. file$="read.doc"
  898. gosub printfil:
  899. goto printmen:
  900.  
  901. printsee:
  902. if drivenum=2 then printse2:
  903. cls
  904. print "Please place disk 2 into your drive and press any key when ready. ";
  905. gosub continue:
  906. file$="seefiles.asi"
  907. gosub printfil:
  908. cls
  909. print "Please place disk 1 into your drive and press any key when ready. ";
  910. gosub continue:
  911. goto printmen:
  912.  
  913. printse2:
  914. cls
  915. print "Please make sure disk 2 is in drive B and press any key when ready. ";
  916. gosub continue:
  917. file$="b:seefiles.asi"
  918. gosub printfil:
  919. goto printmen:
  920.  
  921. printsha:
  922. file$="shell.asi"
  923. gosub printfil:
  924. goto printmen:
  925.  
  926. printshd:
  927. file$="shell.doc"
  928. gosub printfil:
  929. goto printmen:
  930.  
  931. printme2:
  932. cls
  933. print "Here are the remaining files you can print:"
  934. print
  935. print
  936. print "A- START.ASI"
  937. print
  938. print "B- TIPS.ASI"
  939. print
  940. print "C- TIPS.DOC"
  941. print
  942. print "D- WIDTH.ASI"
  943. print
  944. print "E- WIDTH.DOC"
  945. print
  946. print "F- Return to the First Menu."
  947. print
  948. print "Esc- Return to the Main Options Menu."
  949. print
  950. print
  951. print "Please press the key corresponding to your choice. ";
  952.  
  953. wait6:
  954. gosub continue:
  955. if a$=b$ then options:
  956. if a$="f" then printmen:
  957. if a$="F" then printmen:
  958. if a$="e" then printwid:
  959. if a$="E" then printwid:
  960. if a$="d" then printwia:
  961. if a$="D" then printwia:
  962. if a$="c" then printtid:
  963. if a$="C" then printtid:
  964. if a$="b" then printtia:
  965. if a$="B" then printtia:
  966. if a$="a" then printsta:
  967. if a$="A" then printsta:
  968. goto wait6:
  969.  
  970. printsta:
  971. file$="start.asi"
  972. gosub printfil:
  973. goto printme2:
  974.  
  975. printtia:
  976. file$="tips.asi"
  977. gosub printfil:
  978. goto printme2:
  979.  
  980. printtid:
  981. file$="tips.doc"
  982. gosub printfil:
  983. goto printme2:
  984.  
  985. printwia:
  986. file$="width.asi"
  987. gosub printfil:
  988. goto printme2:
  989.  
  990. printwid:
  991. file$="width.doc"
  992. gosub printfil:
  993. goto printme2:
  994.  
  995.  
  996. rem Here is the routine for printing a file.
  997.  
  998. printfil:
  999. cls
  1000. f$=chr$(12)
  1001. open "i",1,file$
  1002.  
  1003. if error=2 then
  1004. print ""
  1005. print ""
  1006. print "File not found."
  1007. print
  1008. print
  1009. print "Press any key to continue. ";
  1010. gosub continue:
  1011. close 1
  1012. return
  1013. endif
  1014.  
  1015. heading:
  1016. cls
  1017. print "Printing...";
  1018. realfile$=ucase$(file$)
  1019. color 0,7
  1020. print realfile$
  1021. color 7,0
  1022. print
  1023. print
  1024. print "Press space bar to pause printing, or Esc to quit."
  1025. print
  1026. print
  1027.  
  1028. printmor:
  1029. input# 1, line$ crlf
  1030.  
  1031. if error=96 then
  1032. lprint line$
  1033. goto blanklin:
  1034. endif
  1035.  
  1036. contlprn:
  1037. lprint line$
  1038.  
  1039. a$=inkey$
  1040.  
  1041. if a$=b$ then
  1042. print "Printing has been terminated.  The printer may still have data in its"
  1043. print "buffer.  If so, it will continue printing until the buffer is empty."
  1044. print
  1045. lprint f$
  1046. close 1
  1047. file$=""
  1048. print "Press any key to continue. ";
  1049. gosub continue:
  1050. return
  1051. endif
  1052.  
  1053. if a$=e$ then pause: else nopause:
  1054.  
  1055. pause:
  1056.  
  1057. print "Press any key to resume printing. ";
  1058.  
  1059. pausemor:
  1060. a$=inkey$
  1061. if a$="" then pausemor:
  1062. a$=""
  1063. goto heading:
  1064.  
  1065. nopause:
  1066. if error=99 then eofp:
  1067. goto printmor:
  1068.  
  1069. blanklin:
  1070. input# 1, line$ crlf
  1071. if line$="" then printmor: else contlprn:
  1072.  
  1073. eofp:
  1074. lprint line$
  1075. print "Finished."
  1076. print
  1077. close 1
  1078. lprint f$
  1079. print "Press any key to continue. ";
  1080. gosub continue:
  1081. return
  1082.  
  1083.  
  1084. rem This is the end of the routine for printing text files.
  1085.  
  1086. shell:
  1087. cls
  1088. print "On which drive is your COMMAND.COM (don't type the colon)? ";
  1089. gosub continue:
  1090. print a$
  1091. path1$=a$+":"
  1092. path2$=path1$+"\"
  1093. path3$=path2$+"command.com"
  1094. cls
  1095. print "Use the DOS command EXIT to return to START.COM."
  1096. print
  1097. print
  1098. call path3$,""
  1099. goto options:
  1100.  
  1101.  
  1102. rem Here is the routine for calling TIPS.COM.
  1103.  
  1104. runtipsc:
  1105. call ("tips.com","")
  1106. goto options:
  1107.  
  1108. option40:
  1109. width 40
  1110. print "You have the following options:"
  1111. print
  1112. print
  1113. print "F1- View a list of disk files."
  1114. print
  1115. print "F2- View a document file."
  1116. print
  1117. print "F3- Print a document file."
  1118. print
  1119. print "F4- Shell to DOS."
  1120. print
  1121. print "F5- See a list of parameters you can"
  1122. print "use from DOS."
  1123. print
  1124. print "F6- Return to 80-column width."
  1125. print
  1126. print "F7- Run TIPS.COM."
  1127. print
  1128. print "Esc- Quit and return to DOS."
  1129. print
  1130. print
  1131. print "Please press the key corresponding to"
  1132. print "your choice. ";
  1133.  
  1134. wait2:
  1135. gosub continue:
  1136. if a$=b$ then finish:
  1137. if extended=1 then rdext40:
  1138. goto wait2:
  1139.  
  1140. rdext40:
  1141. if a$=";" then listfl40:
  1142. if a$="<" then rdfile40:
  1143. if a$="=" then prntfl40:
  1144. if a$=">" then shell40:
  1145. if a$="?" then help40:
  1146. if a$="@" then width80:
  1147. if a$="A" then runtip40:
  1148. goto wait2:
  1149.  
  1150. listfl40:
  1151. width 40
  1152. print "Here are the files on these disks:"
  1153. print
  1154. print
  1155. print "ANYKEY.ASI- The source code for"
  1156. print "ANYKEY.COM."
  1157. print
  1158. print "ANYKEY.COM- A distant ancestor of"
  1159. print "GETKEY.COM, a batch file utility."
  1160. print
  1161. print "ANYKEY.DOC- The documentation for"
  1162. print "ANYKEY.COM."
  1163. print
  1164. print "AUTOXC40.BAS- The ApBASIC code for"
  1165. print "AUTOXC40.EXE."
  1166. print
  1167. print "AUTOXC40.EXE- Same as AUTOEXEC.BAS,"
  1168. print "for 40-column mode."
  1169. print
  1170. print "AUTOEXEC.BAS- The ApBASIC code for"
  1171. print "AUTOEXEC.EXE."
  1172. print
  1173. print
  1174. print "Press any key to continue. ";
  1175. gosub continue:
  1176. cls
  1177. print "AUTOEXEC.EXE- Program called by"
  1178. print "FILE-MAN; works with AUTOEXEC.BAT."
  1179. print
  1180. print "CONFIG40.BAS- The ApBASIC code for"
  1181. print "CONFIG40.EXE."
  1182. print
  1183. print "CONFIG40.EXE- Same as CONFI40.EXE, for"
  1184. print "40-column mode."
  1185. print
  1186. print "CONFIG.BAS- The ApBASIC code for"
  1187. print "CONFIG.EXE."
  1188. print
  1189. print "CONFIG.EXE- Program called by FILE-MAN"
  1190. print "for working with CONFIG.SYS."
  1191. print
  1192. print "DARKSCRN.ASI- The ASIC code for"
  1193. print "DARKSCRN.COM."
  1194. print
  1195. print "DARKSCRN.COM- A screen blanker used"
  1196. print "from the DOS prompt."
  1197. print
  1198. print
  1199. print "Press any key to continue. ";
  1200. gosub continue:
  1201. cls
  1202. print "DARKSCRN.COM- A screen blanker used"
  1203. print "from the DOS prompt."
  1204. print
  1205. print "DARKSCRN.DOC- The documentation for"
  1206. print "DARKSCRN.COM."
  1207. print
  1208. print "EXTENDED.ASI- The ASIC code for"
  1209. print "EXTENDED.COM."
  1210. print
  1211. print "EXTENDED.COM- A program for seeing the"
  1212. print "characters produced by extended keys."
  1213. print
  1214. print "EXTENDED.DOC- The documentation for"
  1215. print "EXTENDED.COM."
  1216. print
  1217. print "FILE-MAN.ASI- The ASIC code for"
  1218. print "FILE-MAN.COM."
  1219. print
  1220. print "FILE-MAN.COM- The ASIC File Manager."
  1221. print
  1222. print
  1223. print "Press any key to continue. ";
  1224. gosub continue:
  1225. cls
  1226. print "FILE-MAN.DOC- The documentation for"
  1227. print "FILE-MAN.COM."
  1228. print
  1229. print "GETKEY.ASI- The source code for"
  1230. print "GETKEY.COM."
  1231. print
  1232. print "GETKEY.COM- A batch file utility for"
  1233. print "getting keyboard response."
  1234. print
  1235. print "GETKEY.DOC- The documentation for"
  1236. print "GETKEY.COM."
  1237. print
  1238. print "GETPAUSE.ASI- The ASIC code for"
  1239. print "GETPAUSE.COM."
  1240. print
  1241. print "GETPAUSE.COM- A customizable PAUSE"
  1242. print "command; a batch file utility."
  1243. print
  1244. print "GETPAUSE.DOC- The documentation for"
  1245. print "GETPAUSE.COM."
  1246. print
  1247. print
  1248. print "Press any key to continue. ";
  1249. gosub continue:
  1250. cls
  1251. print "LIST.COM- A neat utility by Vern Buerg"
  1252. print "that displays files on the screen."
  1253. print
  1254. print "LIST.DOC- The documentation for"
  1255. print "LIST.COM."
  1256. print
  1257. print "PRINT.ASI- The ASIC code for"
  1258. print "PRINT.COM."
  1259. print
  1260. print "PRINT.COM- File-printing utility."
  1261. print
  1262. print "PRINT.DOC- The documentation for"
  1263. print "PRINT.COM."
  1264. print
  1265. print "READ.ASI- The ASIC code for READ.COM."
  1266. print
  1267. print "READ.COM- A utility to display text"
  1268. print "files on the screen."
  1269. print
  1270. print "READ.DOC- The documentation for"
  1271. print "READ.COM."
  1272. print
  1273. print
  1274. print "Press any key to continue. ";
  1275. gosub continue:
  1276. cls
  1277. print "SEEFILES.ASI- The ASIC code for"
  1278. print "SEEFILES.COM."
  1279. print
  1280. print "SEEFILES.ASI- The ASIC code for"
  1281. print "SEEFILES.COM."
  1282. print
  1283. print "SEEFILES.COM- File called by FILE-MAN;"
  1284. print "lists disk files."
  1285. print
  1286. print "SHELL.ASI- The source code for"
  1287. print "SHELL.COM."
  1288. print
  1289. print "SHELL.COM- Program to be used from"
  1290. print "within ASIC; shells to DOS."
  1291. print
  1292. print "SHELL.DOC- The documentation for"
  1293. print "SHELL.COM."
  1294. print
  1295. print "START.ASI- The source code for"
  1296. print "START.COM."
  1297. print
  1298. print
  1299. print "Press any key to continue. ";
  1300. gosub continue:
  1301. cls
  1302. print "START.COM- The file you're using right"
  1303. print "now."
  1304. print
  1305. print "TIPS.ASI- The ASIC code for TIPS.COM."
  1306. print
  1307. print "TIPS.COM- Automated text file with"
  1308. print "tips for improving your ASIC programs."
  1309. print
  1310. print "TIPS.DOC- The documentation for"
  1311. print "TIPS.COM."
  1312. print
  1313. print "WIDTH.ASI- The ASIC code for"
  1314. print "WIDTH.COM."
  1315. print
  1316. print "WIDTH.COM- Utility to change from"
  1317. print "normal text to 40-column mode."
  1318. print
  1319. print "WIDTH.DOC- The documentation for"
  1320. print "WIDTH.COM."
  1321. print
  1322. print
  1323. print "Press any key to return to the options"
  1324. print "menu. ";
  1325. gosub continue:
  1326. goto option40:
  1327.  
  1328. rdfile40:
  1329. width 40
  1330. print "To move forward in the files you are"
  1331. print "about to view, press PgDn."
  1332. print
  1333. print "To move back, press PgUp."
  1334. print
  1335. print "To move to the side, use the direction"
  1336. print "keys."
  1337. print
  1338. print
  1339. print "Press any key to see the menu of"
  1340. print "files. ";
  1341. gosub continue:
  1342.  
  1343. rdmenu40:
  1344. cls
  1345. print "Here are some of the files you can"
  1346. print "view:"
  1347. print
  1348. print
  1349. print "A- ANYKEY.ASI         J- EXTENDED.DOC"
  1350. print
  1351. print "B- ANYKEY.DOC         K- FILE-MAN.ASI"
  1352. print
  1353. print "C- AUTOEXEC.BAS       L- FILE-MAN.DOC"
  1354. print
  1355. print "D- AUTOXC40.BAS       M- GETKEY.ASI"
  1356. print
  1357. print "E- CONFIG40.BAS       N- GETKEY.DOC"
  1358. print
  1359. print "F- CONFIG.BAS         O- GETPAUSE.ASI"
  1360. print
  1361. print "G- DARKSCRN.ASI       P- GETPAUSE.DOC"
  1362. print
  1363. print "H- DARKSCRN.DOC       Q- Next menu."
  1364. print
  1365. print "I- EXTENDED.ASI       Esc- Main Menu."
  1366. print
  1367. print
  1368. print "Please press the key corresponding to"
  1369. print "your choice. ";
  1370. gosub continue:
  1371. if a$=b$ then option40:
  1372. print a$;
  1373. if a$="q" then rdmen240:
  1374. if a$="Q" then rdmen240:
  1375. if a$="p" then rdgepd40:
  1376. if a$="P" then rdgepd40:
  1377. if a$="o" then rdgepa40:
  1378. if a$="O" then rdgepa40:
  1379. if a$="n" then rdgekd40:
  1380. if a$="N" then rdgekd40:
  1381. if a$="m" then rdgeka40:
  1382. if a$="M" then rdgeka40:
  1383. if a$="l" then rdfild40:
  1384. if a$="L" then rdfild40:
  1385. if a$="k" then rdfila40:
  1386. if a$="K" then rdfila40:
  1387. if a$="j" then rdextd40:
  1388. if a$="J" then rdextd40:
  1389. if a$="i" then rdexta40:
  1390. if a$="I" then rdexta40:
  1391. if a$="h" then rddard40:
  1392. if a$="H" then rddard40:
  1393. if a$="g" then rddara40:
  1394. if a$="G" then rddara40:
  1395. if a$="f" then rdconf40:
  1396. if a$="F" then rdconf40:
  1397. if a$="e" then rdco4040:
  1398. if a$="E" then rdco4040:
  1399. if a$="d" then rdau4040:
  1400. if a$="D" then rdau4040:
  1401. if a$="c" then rdauto40:
  1402. if a$="C" then rdauto40:
  1403. if a$="b" then rdanyd40:
  1404. if a$="B" then rdanyd40:
  1405. if a$="a" then rdanya40:
  1406. if a$="A" then rdanya40:
  1407. goto rdmenu40:
  1408.  
  1409. rdanya40:
  1410. call ("list.com"," anykey.asi")
  1411. goto rdmenu40:
  1412. rdanyd40:
  1413. call ("list.com"," anykey.doc")
  1414. goto rdmenu40:
  1415.  
  1416. rdauto40:
  1417. if drivenum=2 then rdauto42:
  1418. cls
  1419. print "Please place disk 2 into your drive"
  1420. print "and press any key when ready. ";
  1421. gosub continue:
  1422. call ("list.com"," autoexec.bas")
  1423. cls
  1424. print "Please place disk 1 into your drive"
  1425. print "and press any key when ready. ";
  1426. gosub continue:
  1427. goto rdmenu40:
  1428.  
  1429. rdauto42:
  1430. cls
  1431. print "Please make sure disk 2 is in drive B"
  1432. print "and press any key when ready. ";
  1433. gosub continue:
  1434. call ("list.com"," b:autoexec.bas")
  1435. goto rdmenu40:
  1436.  
  1437. rdau4040:
  1438. if drivenum=2 then rdau4240:
  1439. cls
  1440. print "Please place disk 2 into your drive"
  1441. print "and press any key when ready. ";
  1442. gosub continue:
  1443. call ("list.com"," autoxc40.bas")
  1444. cls
  1445. print "Please place disk 1 into your drive"
  1446. print "and press any key when ready. ";
  1447. gosub continue:
  1448. goto rdmenu40:
  1449.  
  1450. rdau4240:
  1451. cls
  1452. print "Please make sure disk 2 is in drive B"
  1453. print "and press any key when ready. ";
  1454. gosub continue:
  1455. call ("list.com"" b:autoxc40.bas")
  1456. goto rdmenu40:
  1457.  
  1458. rdco4040:
  1459. if drivenum=2 then rdco4240:
  1460. cls
  1461. print "Please place disk 2 into your drive"
  1462. print "and press any key when ready. ";
  1463. gosub continue:
  1464. call ("list.co"," config40.bas")
  1465. cls
  1466. print "Please place disk 1 into your drive"
  1467. print "and press any key when ready. ";
  1468. gosub continue:
  1469. goto rdmenu40:
  1470.  
  1471. rdco4240:
  1472. cls
  1473. print "Please make sure disk 2 is in drive B"
  1474. print "and press any key when ready. ";
  1475. gosub continue:
  1476. call ("list.com"," b:config40.bas")
  1477. goto rdmenu40:
  1478.  
  1479. rdconf40:
  1480. if drivenum=2 then rdconf42:
  1481. cls
  1482. print "Please place disk 2 into your drive"
  1483. print "and press any key when ready. ";
  1484. gosub continue:
  1485. call ("list.com"," config.bas")
  1486. cls
  1487. print "Please place disk 1 into your drive"
  1488. print "and press any key when ready. ";
  1489. gosub continue:
  1490. goto rdmenu40:
  1491.  
  1492. rdconf42:
  1493. cls
  1494. print "Please make sure disk 2 is in drive B"
  1495. print "and press any key when ready. ";
  1496. gosub continue:
  1497. call ("list.com"," b:config.bas")
  1498. goto rdmenu40:
  1499.  
  1500. rddara40:
  1501. call ("list.com"," darkscrn.asi")
  1502. goto rdmenu40:
  1503. rddard40:
  1504. call ("list.com"," darkscrn.doc")
  1505. goto rdmenu40:
  1506. rdexta40:
  1507. call ("list.com"," extended.asi")
  1508. goto rdmenu40:
  1509. rdextd40:
  1510. call ("list.com"," extended.doc")
  1511. goto rdmenu40:
  1512.  
  1513. rdfila40:
  1514. if drivenum=2 then rdfila42:
  1515. cls
  1516. print "Please place disk 2 into your drive"
  1517. print "and press any key when ready. ";
  1518. gosub continue:
  1519. call ("list.com"," file-man.asi")
  1520. cls
  1521. print "Please place disk 1 into your drive"
  1522. print "and press any key when ready. ";
  1523. gosub continue:
  1524. goto rdmenu40:
  1525.  
  1526. rdfila42:
  1527. cls
  1528. print "Please make sure disk 2 is in drive B"
  1529. print "and press any key when ready. ";
  1530. gosub continue:
  1531. call ("list.com"," b:file-man.asi")
  1532. goto rdmenu40:
  1533.  
  1534. rdfild40:
  1535. if drivenum=2 then rdfild42:
  1536. cls
  1537. print "Please place disk 2 into your drive"
  1538. print "and press any key when ready. ";
  1539. gosub continue:
  1540. call ("list.com"," file-man.doc")
  1541. cls
  1542. print "Please place disk 1 into your drive"
  1543. print "and press any key when ready. ";
  1544. gosub continue:
  1545. goto rdmenu40:
  1546.  
  1547. rdfild42:
  1548. cls
  1549. print "Please make sure disk 2 is in drive B"
  1550. print "and press any key when ready. ";
  1551. gosub continue:
  1552. call ("list.com"," b:file-man.doc")
  1553. goto rdmenu40:
  1554.  
  1555. rdgeka40:
  1556. call ("list.com"," getkey.asi")
  1557. goto rdmenu40:
  1558. rdgekd40:
  1559. call ("list.com"," getkey.doc")
  1560. goto rdmenu40:
  1561. rdgepa40:
  1562. call ("list.com"," getpause.asi")
  1563. goto rdmenu40:
  1564. rdgepd40:
  1565. call ("list.com"," getpause.doc")
  1566. goto rdmenu40:
  1567.  
  1568. rdmen240:
  1569. cls
  1570. print "Here are more files you can view:"
  1571. print
  1572. print
  1573. print "A- LIST.DOC           J- START.ASI"
  1574. print
  1575. print "B- LOOSWARE.DOC       K- TIPS.ASI"
  1576. print
  1577. print "C- PRINT.ASI          L- TIPS.DOC"
  1578. print
  1579. print "D- PRINT.DOC          M- WIDTH.ASI"
  1580. print
  1581. print "E- READ.ASI           N- WIDTH.DOC"
  1582. print
  1583. print "F- READ.DOC"
  1584. print
  1585. print "G- SEEFILES.ASI"
  1586. print
  1587. print "H- SHELL.ASI          O- First Menu."
  1588. print
  1589. print "I- SHELL.DOC          Esc- Main Menu."
  1590. print
  1591. print
  1592. print "Please press the key corresponding to"
  1593. print "your choice. ";
  1594. gosub continue:
  1595. if a$=b$ then option40:
  1596. print a$;
  1597. if a$="o" then rdmenu40:
  1598. if a$="O" then rdmenu40:
  1599. if a$="n" then rdwidd40:
  1600. if a$="N" then rdwidd40:
  1601. if a$="m" then rdwida40:
  1602. if a$="M" then rdwida40:
  1603. if a$="l" then rdtipd40:
  1604. if a$="L" then rdtipd40:
  1605. if a$="k" then rdtipa40:
  1606. if a$="K" then rdtipa40:
  1607. if a$="j" then rdstar40:
  1608. if a$="J" then rdstar40:
  1609. if a$="i" then rdshed40:
  1610. if a$="I" then rdshed40:
  1611. if a$="h" then rdshea40:
  1612. if a$="H" then rdshea40:
  1613. if a$="g" then rdseef40:
  1614. if a$="G" then rdseef40:
  1615. if a$="f" then rdread40:
  1616. if a$="F" then rdread40:
  1617. if a$="e" then rdreaa40:
  1618. if a$="E" then rdreaa40:
  1619. if a$="d" then rdprid40:
  1620. if a$="D" then rdprid40:
  1621. if a$="c" then rdpria40:
  1622. if a$="C" then rdpria40:
  1623. if a$="b" then rdloos40:
  1624. if a$="B" then rdloos40:
  1625. if a$="a" then rdlist40:
  1626. if a$="A" then rdlist40:
  1627. goto rdmen240:
  1628.  
  1629. rdlist40:
  1630. call ("list.com"," list.doc")
  1631. goto rdmen240:
  1632. rdloos40:
  1633. call ("list.com"," loosware.doc")
  1634. goto rdmen240:
  1635. rdpria40:
  1636. call ("list.com"," print.asi")
  1637. goto rdmen240:
  1638. rdprid40:
  1639. call ("list.com"," print.doc")
  1640. goto rdmen240:
  1641. rdreaa40:
  1642. call ("list.com"," read.asi")
  1643. goto rdmen240:
  1644. rdread40:
  1645. call ("list.com"," read.doc")
  1646. goto rdmen240:
  1647.  
  1648. rdseef40:
  1649. if drivenum=2 then rdseef42:
  1650. cls
  1651. print "Please place disk 2 into your drive"
  1652. print "and press any key when ready. ";
  1653. gosub continue:
  1654. call ("list.com"," seefiles.asi")
  1655. print "Please place disk 1 into your drive"
  1656. print "and press any key when ready. ";
  1657. gosub continue:
  1658. goto rdmen240:
  1659.  
  1660. rdseef42:
  1661. cls
  1662. print "Please make sure disk 2 is in drive B"
  1663. print "and press any key when ready. ";
  1664. gosub continue:
  1665. call ("list.com"," b:seefiles.asi")
  1666. goto rdmen240:
  1667.  
  1668. rdshea40:
  1669. call ("list.com"," shell.asi")
  1670. goto rdmen240:
  1671. rdshed40:
  1672. call ("list.com"," shell.doc")
  1673. goto rdmen240:
  1674. rdstar40:
  1675. call ("list.com"," start.asi")
  1676. goto rdmen240:
  1677. rdtipa40:
  1678. call ("list.com"," tips.asi")
  1679. goto rdmen240:
  1680. rdtipd40:
  1681. call ("list.com"," tips.doc")
  1682. goto rdmen240:
  1683. rdwida40:
  1684. call ("list.com"," width.asi")
  1685. goto rdmen240:
  1686. rdwidd40:
  1687. call ("list.com"," width.doc")
  1688. goto rdmen240:
  1689.  
  1690.  
  1691. prntfl40:
  1692. width 40
  1693. print "Please ready your printer; press any"
  1694. print "key to see the menu of files. ";
  1695. gosub continue:
  1696.  
  1697. prmenu40:
  1698. cls
  1699. print "Here are some of the files you can"
  1700. print "print:"
  1701. print
  1702. print
  1703. print "A- ANYKEY.ASI         J- EXTENDED.DOC"
  1704. print
  1705. print "B- ANYKEY.DOC         K- FILE-MAN.ASI"
  1706. print
  1707. print "C- AUTOEXEC.BAS       L- FILE-MAN.DOC"
  1708. print
  1709. print "D- AUTOXC40.BAS       M- GETKEY.ASI"
  1710. print
  1711. print "E- CONFIG40.BAS       N- GETKEY.DOC"
  1712. print
  1713. print "F- CONFIG.BAS         O- GETPAUSE.ASI"
  1714. print
  1715. print "G- DARKSCRN.ASI       P- GETPAUSE.DOC"
  1716. print
  1717. print "H- DARKSCRN.DOC       Q- Next menu."
  1718. print
  1719. print "I- EXTENDED.ASI       Esc- Main Menu."
  1720. print
  1721. print
  1722. print "Please press the key corresponding to"
  1723. print "your choice. ";
  1724.  
  1725. wait7:
  1726. gosub continue:
  1727. if a$=b$ then option40:
  1728. if a$="q" then prmen240:
  1729. if a$="Q" then prmen240:
  1730. if a$="p" then prgepd40:
  1731. if a$="P" then prgepd40:
  1732. if a$="o" then prgepa40:
  1733. if a$="O" then prgepa40:
  1734. if a$="n" then prgekd40:
  1735. if a$="N" then prgekd40:
  1736. if a$="m" then prgeka40:
  1737. if a$="M" then prgeka40:
  1738. if a$="l" then prfild40:
  1739. if a$="L" then prfild40:
  1740. if a$="k" then prfila40:
  1741. if a$="K" then prfila40:
  1742. if a$="j" then prextd40:
  1743. if a$="J" then prextd40:
  1744. if a$="i" then prexta40:
  1745. if a$="I" then prexta40:
  1746. if a$="h" then prdard40:
  1747. if a$="H" then prdard40:
  1748. if a$="g" then prdara40:
  1749. if a$="G" then prdara40:
  1750. if a$="f" then prconf40:
  1751. if a$="F" then prconf40:
  1752. if a$="e" then prco4040:
  1753. if a$="E" then prco4040:
  1754. if a$="d" then prau4040:
  1755. if a$="D" then prau4040:
  1756. if a$="c" then prauto40:
  1757. if a$="C" then prauto40:
  1758. if a$="b" then pranyd40:
  1759. if a$="B" then pranyd40:
  1760. if a$="a" then pranya40:
  1761. if a$="A" then pranya40:
  1762. goto wait7:
  1763.  
  1764. pranya40:
  1765. file$="anykey.asi"
  1766. gosub prfile40:
  1767. goto prmenu40:
  1768.  
  1769. pranyd40:
  1770. file$="anykey.doc"
  1771. gosub prfile40:
  1772. goto prmenu40:
  1773.  
  1774. prauto40:
  1775. if drivenum=2 then prauto42:
  1776. cls
  1777. print "Please place disk 2 into your drive"
  1778. print "and press any key when ready. ";
  1779. gosub continue:
  1780. file$="autoexec.bas"
  1781. gosub prfile40:
  1782. cls
  1783. print "Please place disk 1 into your drive"
  1784. print "and press any key when ready. ";
  1785. gosub continue:
  1786. goto prmenu40:
  1787.  
  1788. prauto42:
  1789. cls
  1790. print "Please make sure disk 2 is in drive B"
  1791. print "and press any key when ready. ";
  1792. gosub continue:
  1793. file$="b:autoexec.bas"
  1794. gosub prfile40:
  1795. goto prmenu40:
  1796.  
  1797. prau4040:
  1798. if drivenum=2 then prau4240:
  1799. cls
  1800. print "Please place disk 2 into your drive"
  1801. print "and press any key when ready. ";
  1802. gosub continue:
  1803. file$="autoxc40.bas"
  1804. gosub prfile40:
  1805. cls
  1806. print "Please place disk 1 into your drive"
  1807. print "and press any key when ready. ";
  1808. gosub continue:
  1809. goto prmenu40:
  1810.  
  1811. prau4240:
  1812. cls
  1813. print "Please make sure disk 2 is in drive B"
  1814. print "and press any key when ready. ";
  1815. gosub continue:
  1816. file$="b:autoxc40.bas"
  1817. gosub prfile40:
  1818. goto prmenu40:
  1819.  
  1820. prco4040:
  1821. if drivenum=2 then prco4240:
  1822. cls
  1823. print "Please place disk 2 into your drive"
  1824. print "and press any key when ready. ";
  1825. gosub continue:
  1826. file$="config40.bas"
  1827. gosub prfile40:
  1828. cls
  1829. print "Please place disk 1 into your drive"
  1830. print "and press any key when ready. ";
  1831. gosub continue:
  1832. goto prmenu40:
  1833.  
  1834. prco4240:
  1835. cls
  1836. print "Please make sure disk 2 is in drive B"
  1837. print "and press any key when ready. ";
  1838. gosub continue:
  1839. file$="b:config40.bas"
  1840. gosub prfile40:
  1841. goto prmenu40:
  1842.  
  1843. prconf40:
  1844. if drivenum=2 then prconf42:
  1845. cls
  1846. print "Please place disk 2 into your drive"
  1847. print "and press any key when ready. ";
  1848. gosub continue:
  1849. file$="config.bas"
  1850. gosub prfile40:
  1851. cls
  1852. print "Please place disk 1 into your drive"
  1853. print "and press any key when ready. ";
  1854. gosub continue:
  1855. goto prmenu40:
  1856.  
  1857. prconf42:
  1858. cls
  1859. print "Please make sure disk 2 is in drive B"
  1860. print "and press any key when ready. ";
  1861. gosub continue:
  1862. file$="b:config.bas"
  1863. gosub prfile40:
  1864. goto prmenu40:
  1865.  
  1866. prdara40:
  1867. file$="darkscrn.asi"
  1868. gosub prfile40:
  1869. goto prmenu40:
  1870.  
  1871. prdard40:
  1872. file$="darkscrn.doc"
  1873. gosub prfile40:
  1874. goto prmenu40:
  1875.  
  1876. prexta40:
  1877. file$="extended.asi"
  1878. gosub prfile40:
  1879. goto prmenu40:
  1880.  
  1881. prextd40:
  1882. file$="extended.doc"
  1883. gosub prfile40:
  1884. goto prmenu40:
  1885.  
  1886. prfila40:
  1887. if drivenum=2 then prfila42:
  1888. cls
  1889. print "Please place disk 2 into your drive"
  1890. print "and press any key when ready. ";
  1891. gosub continue:
  1892. file$="file-man.asi"
  1893. gosub prfile40:
  1894. cls
  1895. print "Please place disk 1 into your drive"
  1896. print "and press any key when ready. ";
  1897. gosub continue:
  1898. goto prmenu40:
  1899.  
  1900. prfila42:
  1901. cls
  1902. print "Please make sure disk 2 is in drive B"
  1903. print "and press any key when ready. ";
  1904. gosub continue:
  1905. file$="b:file-man.asi"
  1906. gosub prfile40:
  1907. goto prmenu40:
  1908.  
  1909. prfild40:
  1910. if drivenum=2 then prfild42:
  1911. cls
  1912. print "Please place disk 2 into your drive"
  1913. print "and press any key when ready. ";
  1914. gosub continue:
  1915. file$="file-man.doc"
  1916. gosub prfile40:
  1917. cls
  1918. print "Please place disk 1 into your drive"
  1919. print "and press any key when ready. ";
  1920. gosub continue:
  1921. goto prmenu40:
  1922.  
  1923. prfild42:
  1924. cls
  1925. print "Please make sure disk 2 is in drive B"
  1926. print "and press any key when ready. ";
  1927. gosub continue:
  1928. file$="b:file-man.doc"
  1929. gosub prfile40:
  1930. goto prmenu40:
  1931.  
  1932. prgeka40:
  1933. file$="getkey.asi"
  1934. gosub prfile40:
  1935. goto prmenu40:
  1936.  
  1937. prgekd40:
  1938. file$="getkey.doc"
  1939. gosub prfile40:
  1940. goto prmenu40:
  1941.  
  1942. prgepa40:
  1943. file$="getpause.asi"
  1944. gosub prfile40:
  1945. goto prmenu40:
  1946.  
  1947. prgepd40:
  1948. file$="getpause.doc"
  1949. gosub prfile40:
  1950. goto prmenu40:
  1951.  
  1952. prmen240:
  1953. cls
  1954. print "Here are more files you can print:"
  1955. print
  1956. print
  1957. print "A- LIST.DOC           J- START.ASI"
  1958. print
  1959. print "B- LOOSWARE.DOC       K- TIPS.ASI"
  1960. print
  1961. print "C- PRINT.ASI          L- TIPS.DOC"
  1962. print
  1963. print "D- PRINT.DOC          M- WIDTH.ASI"
  1964. print
  1965. print "E- READ.ASI           N- WIDTH.DOC"
  1966. print
  1967. print "F- READ.DOC"
  1968. print
  1969. print "G- SEEFILES.ASI"
  1970. print
  1971. print "H- SHELL.ASI          O- First Menu."
  1972. print
  1973. print "I- SHELL.DOC          Esc- Main Menu."
  1974. print
  1975. print
  1976. print "Please press the key corresponding to"
  1977. print "your choice. ";
  1978.  
  1979. wait8:
  1980. gosub continue:
  1981. if a$=b$ then option40:
  1982. if a$="o" then prmenu40:
  1983. if a$="O" then prmenu40:
  1984. if a$="n" then prwidd40:
  1985. if a$="N" then prwidd40:
  1986. if a$="m" then prwida40:
  1987. if a$="M" then prwida40:
  1988. if a$="l" then prtipd40:
  1989. if a$="L" then prtipd40:
  1990. if a$="k" then prtipa40:
  1991. if a$="K" then prtipa40:
  1992. if a$="j" then prstar40:
  1993. if a$="J" then prstar40:
  1994. if a$="i" then prshed40:
  1995. if a$="I" then prshed40:
  1996. if a$="h" then prshea40:
  1997. if a$="H" then prshea40:
  1998. if a$="g" then prseef40:
  1999. if a$="G" then prseef40:
  2000. if a$="f" then prread40:
  2001. if a$="F" then prread40:
  2002. if a$="e" then prreaa40:
  2003. if a$="E" then prreaa40:
  2004. if a$="d" then prprid40:
  2005. if a$="D" then prprid40:
  2006. if a$="c" then prpria40:
  2007. if a$="C" then prpria40:
  2008. if a$="b" then prloos40:
  2009. if a$="B" then prloos40:
  2010. if a$="a" then prlist40:
  2011. if a$="A" then prlist40:
  2012. goto wait8:
  2013.  
  2014. prlist40:
  2015. file$="list.doc"
  2016. gosub prfile40:
  2017. goto prmen240:
  2018.  
  2019. prloos40:
  2020. file$="loosware.doc"
  2021. gosub prfile40:
  2022. goto prmen240:
  2023.  
  2024. prpria40:
  2025. file$="print.asi"
  2026. gosub prfile40:
  2027. goto prmen240:
  2028.  
  2029. prprid40:
  2030. file$="print.doc"
  2031. gosub prfile40:
  2032. goto prmen240:
  2033.  
  2034. prreaa40:
  2035. file$="read.asi"
  2036. gosub prfile40:
  2037. goto prmen240:
  2038.  
  2039. prread40:
  2040. file$="read.doc"
  2041. gosub prfile40:
  2042. goto prmen240:
  2043.  
  2044. prseef40:
  2045. if drivenum=2 then prseef42:
  2046. cls
  2047. print "Please place disk 2 into your drive"
  2048. print "and press any key when ready. ";
  2049. gosub continue:
  2050. file$="seefiles.asi"
  2051. gosub prfile40:
  2052. cls
  2053. print "Please place disk 1 into your drive"
  2054. print "and press any key when ready. ";
  2055. gosub continue:
  2056. goto prmen240:
  2057.  
  2058. prseef42:
  2059. cls
  2060. print "Please make sure disk 2 is in drive B"
  2061. print "and press any key when ready. ";
  2062. gosub continue:
  2063. file$="b:seefiles.asi"
  2064. gosub prfile40:
  2065. goto prmen240:
  2066.  
  2067. prshea40:
  2068. file$="shell.asi"
  2069. gosub prfile40:
  2070. goto prmen240:
  2071.  
  2072. prshed40:
  2073. file$="shell.doc"
  2074. gosub prfile40:
  2075. goto prmen240:
  2076.  
  2077. prstar40:
  2078. file$="start.asi"
  2079. gosub prfile40:
  2080. goto prmen240:
  2081.  
  2082. prtipa40:
  2083. file$="tips.asi"
  2084. gosub prfile40:
  2085. goto prmen240:
  2086.  
  2087. prtipd40:
  2088. file$="tips.doc"
  2089. gosub prfile40:
  2090. goto prmen240:
  2091.  
  2092. prwida40:
  2093. file$="width.asi"
  2094. gosub prfile40:
  2095. goto prmen240:
  2096.  
  2097. prwidd40:
  2098. file$="width.doc"
  2099. gosub prfile40:
  2100. goto prmen240:
  2101.  
  2102.  
  2103. rem Here is the routine for printing a file in 40-column mode.
  2104.  
  2105. prfile40:
  2106. cls
  2107. f$=chr$(12)
  2108. open "i",1,file$
  2109.  
  2110. if error=2 then
  2111. print ""
  2112. print ""
  2113. print "File not found."
  2114. print
  2115. print
  2116. print "Press any key to continue. ";
  2117. gosub continue:
  2118. close 1
  2119. return
  2120. endif
  2121.  
  2122. headng40:
  2123. cls
  2124. print "Printing...";
  2125. realfile$=ucase$(file$)
  2126. color 0,7
  2127. print realfile$
  2128. color 7,0
  2129. print
  2130. print
  2131. print "Press space bar to pause printing, or"
  2132. print "Esc to quit."
  2133. print
  2134. print
  2135.  
  2136. prntmr40:
  2137. input# 1, line$ crlf
  2138.  
  2139. if error=96 then
  2140. lprint line$
  2141. goto blnkln40:
  2142. endif
  2143.  
  2144. contpr40:
  2145. lprint line$
  2146.  
  2147. a$=inkey$
  2148.  
  2149. if a$=b$ then
  2150. print "Printing has been terminated.  The"
  2151. print "printer may still have data in its"
  2152. print "buffer.  If so, it will continue"
  2153. print "printing until the buffer is empty."
  2154. print
  2155. lprint f$
  2156. close 1
  2157. file$=""
  2158. print "Press any key to continue. ";
  2159. gosub continue:
  2160. return
  2161. endif
  2162.  
  2163. if a$=e$ then pause40: else nopaus40:
  2164.  
  2165. pause40:
  2166.  
  2167. print "Press any key to resume printing. ";
  2168.  
  2169. pausmr40:
  2170. a$=inkey$
  2171. if a$="" then pausmr40:
  2172. a$=""
  2173. goto headng40:
  2174.  
  2175. nopaus40:
  2176. if error=99 then eofp40:
  2177. goto prntmr40:
  2178.  
  2179. blnkln40:
  2180. input# 1, line$ crlf
  2181. if line$="" then prntmr40: else contpr40:
  2182.  
  2183. eofp40:
  2184. lprint line$
  2185. print "Finished."
  2186. print
  2187. close 1
  2188. lprint f$
  2189. print "Press any key to continue. ";
  2190. gosub continue:
  2191. return
  2192.  
  2193. rem This is the end of the routine for printing a file in 40-column mode.
  2194.  
  2195.  
  2196. rem Here is the routine for shelling to DOS in 40-column mode.
  2197.  
  2198. shell40:
  2199. cls
  2200. print "On which drive is your COMMAND.COM?"
  2201. print "Don't type the colon. ";
  2202. gosub continue:
  2203. print a$
  2204. path1$=a$+":"
  2205. path2$=path1$+"\"
  2206. path3$=path2$+"command.com"
  2207. cls
  2208. print "Use the DOS command EXIT to return to"
  2209. print "START.COM."
  2210. print
  2211. call path3$,""
  2212. goto option40:
  2213. width80:
  2214. width 80
  2215. goto options:
  2216.  
  2217.  
  2218. rem Here is the routine for calling TIPS.COM from the 40-column menu.
  2219.  
  2220. runtip40:
  2221. call ("tips.com"," /40")
  2222. goto option40:
  2223.  
  2224.  
  2225. help:
  2226. cls
  2227. print "You can use paramaters with START.COM; they may save you some time."
  2228. print
  2229. print
  2230. print "Typing START /V will let you view the files on the disk."
  2231. print
  2232. print "Typing START /R will let you view text files on the screen."
  2233. print
  2234. print "Typing START /P will let you print text files."
  2235. print
  2236. print "Typing START /40 will put you in 40-column mode."
  2237. print
  2238. print "Typing START /40 V will let you view a list of disk files in 40-"
  2239. print "column mode."
  2240. print
  2241. print "Typing START /40 R will let you view text files on the screen in 40-"
  2242. print "column mode."
  2243. print
  2244. print "Typing START /40 P will let you print text files from a 40-column"
  2245. print "menu."
  2246. print
  2247. print "Typing START /? will get you this help file."
  2248. print
  2249. print
  2250. print "Press any key to continue. ";
  2251. gosub continue:
  2252. cls
  2253. print "Typing START /40 ? will get you this help file in 40-column mode."
  2254. print
  2255. print "Either upper or lower case is fine."
  2256. print
  2257. print
  2258. print "Return to ";
  2259. color 0,15
  2260. print "D";
  2261. color 7,0
  2262. print "OS ";
  2263. print "or ";
  2264. color 0,15
  2265. print "C";
  2266. color 7,0
  2267. print "ontinue with START.COM? ";
  2268.  
  2269. wait3:
  2270. gosub continue:
  2271. if a$="d" then finish:
  2272. if a$="D" then finish:
  2273. if a$="c" then options:
  2274. if a$="C" then options:
  2275. goto wait3:
  2276.  
  2277. help40:
  2278. width 40
  2279. cls
  2280. print "You can use parameters with START.COM."
  2281. print "They may save you time."
  2282. print
  2283. print
  2284. print "The parameters listed here are for 40-"
  2285. print "column mode only.  To get the"
  2286. print "parameters for 80-column mode, use the"
  2287. print "command START /?"
  2288. print
  2289. print
  2290. print "Typing START /40 V will let you view a"
  2291. print "list of files on this disk."
  2292. print
  2293. print "Typing START /40 R will let you view"
  2294. print "files on the screen."
  2295. print
  2296. print "Typing START /P will let you print"
  2297. print "text files from a 40-column menu."
  2298. print
  2299. print "Typing START /40 ? will get you this"
  2300. print "help file."
  2301. print
  2302. print
  2303. print "Press any key to continue. ";
  2304. gosub continue:
  2305. cls
  2306. print "Either upper or lower case is fine."
  2307. print
  2308. print
  2309. print "Return to ";
  2310. color 0,15
  2311. print "D";
  2312. color 7,0
  2313. print "OS or ";
  2314. color 0,15
  2315. print "C";
  2316. color 7,0
  2317. print "ontinue with"
  2318. print "START.COM? ";
  2319.  
  2320. wait4:
  2321. gosub continue:
  2322. if a$="d" then finish:
  2323. if a$="D" then finish:
  2324. if a$="c" then option40:
  2325. if a$="C" then option40:
  2326. goto wait4:
  2327.  
  2328. continue:
  2329. wait:
  2330. a$=inkey$
  2331. if a$="" then wait:
  2332. return
  2333.  
  2334. rem Here is the routine for giving the address for donations.
  2335.  
  2336. donation:
  2337. cls
  2338. print "You can send donations to:"
  2339. print
  2340. print
  2341. print "Matt Roberts"
  2342. print "3 Cedar St., # 8"
  2343. print "Montpelier, Vt 05602-3006"
  2344. print
  2345. print
  2346. print "Thanks."
  2347. print
  2348. print
  2349. end
  2350.  
  2351. rem Here is the donations routine for 40-column mode.
  2352.  
  2353. donate40:
  2354. width 40
  2355. print "You can send donations to:"
  2356. print
  2357. print
  2358. print "Matt Roberts"
  2359. print "3 Cedar St., # 8"
  2360. print "Montpelier, Vt 05602-3006"
  2361. print
  2362. print
  2363. print "Thanks."
  2364. print
  2365. print
  2366. end
  2367.  
  2368. finish:
  2369. cls
  2370. end
  2371.