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