home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progbas / gwbsu102.arj / START.ASI < prev    next >
Text File  |  1992-01-29  |  19KB  |  952 lines
  1. start:
  2.  
  3. rem This version of START.COM is for the GW-BASIC 3.22 Support Disk.
  4.  
  5. rem It requires approximately 68K of available RAM.
  6.  
  7. rem First, initialize Esc key (necessary when parameters are used, since you 
  8. rem bypass the menus, where it would otherwise be initialized).
  9.  
  10. b$=chr$(27)
  11.  
  12. rem Next, intitialize the space bar.
  13.  
  14. e$=chr$(32)
  15.  
  16. rem Here are the parameters for accessing different parts of START.COM from
  17. rem the DOS prompt.
  18.  
  19. rem First, the 80-column parameters.
  20.  
  21. a$=command$
  22. if a$=" /?" then help:
  23. if a$=" /v" then listfile:
  24. if a$=" /V" then listfile:
  25. if a$=" /r" then readfile:
  26. if a$=" /R" then readfile:
  27. if a$=" /p" then printdoc:
  28. if a$=" /P" then printdoc:
  29. if a$=" /d" then donation:
  30. if a$=" /D" then donation:
  31.  
  32. rem Next, the parameters for 40-column mode.
  33.  
  34. if a$=" /40" then option40:
  35. if a$=" /40 ?" then help40:
  36. if a$=" /40 v" then listfl40:
  37. if a$=" /40 V" then listfl40:
  38. if a$=" /40 r" then rdfile40:
  39. if a$=" /40 R" then rdfile40:
  40. if a$=" /40 p" then prfile40:
  41. if a$=" /40 P" then prfile40:
  42. if a$=" /40 d" then donate40:
  43. if a$=" /40 D" then donate40:
  44.  
  45. rem If no parameters, begin from the beginning.
  46.  
  47. cls
  48. print "                      The GW-BASIC 3.22 Support Disk 1.00"
  49. print
  50. print
  51. print "                                by Matt Roberts"
  52. print "                               3 Cedar St., # 8"
  53. print "                           Montpelier, Vt 05602-3006"
  54. print "                                 (802)223-2553"
  55. print
  56. print
  57. print "If you have trouble running the files on this disk, and the documenta-"
  58. print "tion doesn't seem to help, you can call between 9AM and 9PM EST, and"
  59. print "I'll try to help."
  60. print
  61. print "If you find the files on this disk useful, a donation of $5.00 would"
  62. print "be greatly appreciated.  Thanks."
  63. print
  64. print "Of course, if there's work by other authors here, the $5.00 doesn't"
  65. print "cover them.  Thanks for your understanding."
  66. print
  67. print
  68. print
  69. print "Press any key to continue. ";
  70. gosub continue:
  71.  
  72. rem Here is the menu routine.
  73.  
  74. options:
  75. cls
  76. print "You have the following options:"
  77. print
  78. print
  79. print "F1- View a list of the files on this disk."
  80. print
  81. print "F2- View the text file(s) of your choice, on the screen."
  82. print
  83. print "F3- Print the text file(s) of your choice."
  84. print
  85. print "F4- Shell to DOS."
  86. print
  87. print "F5- Switch to 40-column mode (larger text, easier to read; probably"
  88. print "most useful to the visually impaired."
  89. print
  90. print "F6- See a list of the parameters you can use from the DOS prompt."
  91. print
  92. print "Esc- Return to DOS."
  93. print
  94. print
  95. print "Please press the key corresponding to your choice. ";
  96.  
  97. wait1:
  98. gosub continue:
  99. if a$=b$ then finish:
  100. if extended=1 then readext:
  101. goto wait1:
  102.  
  103. rem This routine reads the symbols returned by the Function (or other 
  104. rem extended) keys and initiates action based upon the key pressed.  In this 
  105. rem case, only the Function keys F1-F6 are accepted.  All other keypresses 
  106. rem are ignored.
  107.  
  108. readext:
  109. if a$=";" then listfile:
  110. if a$="<" then readfile:
  111. if a$="=" then printdoc:
  112. if a$=">" then shell:
  113. if a$="?" then option40:
  114. if a$="@" then help:
  115. goto wait1:
  116.  
  117. rem Here is the routine for viewing a list of disk files.
  118.  
  119. listfile:
  120. cls
  121. print "Here are the files on this disk:"
  122. print
  123. print
  124. print "COMPUTER.DOC- A short list of the computers used to test these files."
  125. print
  126. print "DARKSCRN.BAS- A screen blanking utility, run from within GW-BASIC."
  127. print
  128. print "DARKSCRN.DOC- The documentation for DARKSCRN.BAS"
  129. print
  130. print "FILE-MAN.BAS- The GW-BASIC 3.22 File Manager."
  131. print
  132. print "FILE-MAN.DOC- The documentation for FILE-MAN.BAS."
  133. print
  134. print "LIST.COM- A neat utility by Vern Buerg; displays files on the screen."
  135. print
  136. print "LOOSWARE.DOC- Notes on the looseware concept."
  137. print
  138. print
  139. print "Press any key to continue. ";
  140. gosub continue:
  141. cls
  142. print "START.ASI- The ASIC 3.01 source code for START.COM."
  143. print
  144. print "START.COM- The file you're using right now."
  145. print
  146. print
  147. print "Press any key to return to the Main Options Menu. ";
  148. gosub continue:
  149. goto options:
  150.  
  151. rem Here is the routine for viewing the text file of your choice, on the 
  152. rem screen.
  153.  
  154. readfile:
  155. cls
  156. print "To move ahead in the file(s) you are about to view, press PgDn."
  157. print
  158. print "To move back, press PgUp."
  159. print
  160. print "To exit the document, press Esc."
  161. print
  162. print
  163. print "Press any key to see the menu of files. ";
  164. gosub continue:
  165.  
  166. readmenu:
  167. cls
  168. print "Here are the files you can view:"
  169. print
  170. print
  171. print "A- COMPUTER.DOC"
  172. print
  173. print "B- DARKSCRN.BAS"
  174. print
  175. print "C- DARKSCRN.DOC"
  176. print
  177. print "D- FILE-MAN.BAS"
  178. print
  179. print "E- FILE-MAN.DOC"
  180. print
  181. print "F- NOT IN USE"
  182. print
  183. print "G- LOOSWARE.DOC"
  184. print
  185. print "H- START.ASI"
  186. print
  187. print "Esc- Return to the Main Options Menu."
  188. print
  189. print
  190. print "Please press the key corresponding to your choice. ";
  191. gosub continue:
  192. if a$=b$ then options:
  193. print a$;
  194. if a$="h" then readstar:
  195. if a$="H" then readstar:
  196. if a$="g" then readloos:
  197. if a$="G" then readloos:
  198. if a$="f" then readmenu:
  199. if a$="F" then readmenu:
  200. if a$="e" then readfild:
  201. if a$="E" then readfild:
  202. if a$="d" then readfilb:
  203. if a$="D" then readfilb:
  204. if a$="c" then readdard:
  205. if a$="C" then readdard:
  206. if a$="b" then readdarb:
  207. if a$="B" then readdarb:
  208. if a$="a" then readcomp:
  209. if a$="A" then readcomp:
  210. goto readmenu:
  211.  
  212. readcomp:
  213. call ("list.com"," computer.doc")
  214. goto readmenu:
  215. readdarb:
  216. call ("list.com"," darkscrn.bas")
  217. goto readmenu:
  218. readdard:
  219. call ("list.com"," darkscrn.doc")
  220. goto readmenu:
  221. readfilb:
  222. call ("list.com"," file-man.bas")
  223. goto readmenu:
  224. readfild:
  225. call ("list.com"," file-man.doc")
  226. goto readmenu:
  227. readloos:
  228. call ("list.com"," loosware.doc")
  229. goto readmenu:
  230. readstar:
  231. call ("list.com"," start.asi")
  232. goto readmenu:
  233.  
  234.  
  235. rem Here is the routine for printing the text file of your choice.
  236.  
  237. printdoc:
  238. cls
  239. print "Please ready your printer; press any key to see the menu of files. ";
  240. gosub continue:
  241.  
  242. printmen:
  243. cls
  244. print "Here are the files you can print:"
  245. print
  246. print
  247. print "A- COMPUTER.DOC"
  248. print
  249. print "B- DARKSCRN.BAS"
  250. print
  251. print "C- DARKSCRN.DOC"
  252. print
  253. print "D- FILE-MAN.BAS"
  254. print
  255. print "E- FILE-MAN.DOC"
  256. print
  257. print "F- NOT IN USE"
  258. print
  259. print "G- LOOSWARE.DOC"
  260. print
  261. print "H- START.ASI"
  262. print
  263. print "Esc- Return to the Main Options Menu."
  264. print
  265. print
  266. print "Please press the key corresponding to your choice. ";
  267.  
  268. wait5:
  269. gosub continue:
  270. if a$=b$ then options:
  271. if a$="h" then printsta:
  272. if a$="H" then printsta:
  273. if a$="g" then printloo:
  274. if a$="G" then printloo:
  275. if a$="f" then printmen:
  276. if a$="F" then printmen:
  277. if a$="e" then printfid:
  278. if a$="E" then printfid:
  279. if a$="d" then printfib:
  280. if a$="D" then printfib:
  281. if a$="c" then printdad:
  282. if a$="C" then printdad:
  283. if a$="b" then printdab:
  284. if a$="B" then printdab:
  285. if a$="a" then printcom:
  286. if a$="A" then printcom:
  287. goto wait5:
  288.  
  289. printcom:
  290. file$="computer.doc"
  291. gosub printfil:
  292. goto printmen:
  293.  
  294. printdab:
  295. file$="darkscrn.bas"
  296. gosub printfil:
  297. goto printmen:
  298.  
  299. printdad:
  300. file$="darkscrn.doc"
  301. gosub printfil:
  302. goto printmen:
  303.  
  304. printfib:
  305. file$="file-man.bas"
  306. gosub printfil:
  307. goto printmen:
  308.  
  309. printfid:
  310. file$="file-man.doc"
  311. gosub printfil:
  312. goto printmen:
  313.  
  314. printloo:
  315. file$="loosware.doc"
  316. gosub printfil:
  317. goto printmen:
  318.  
  319. printsta:
  320. file$="start.asi"
  321. gosub printfil:
  322. goto printmen:
  323.  
  324.  
  325. rem Here is the routine for printing a file.
  326.  
  327. printfil:
  328. cls
  329. f$=chr$(12)
  330. open "i",1,file$
  331.  
  332. if error=2 then
  333. print ""
  334. print ""
  335. print "File not found."
  336. print
  337. print
  338. print "Press any key to continue. ";
  339. gosub continue:
  340. close 1
  341. return
  342. endif
  343.  
  344. heading:
  345. cls
  346. print "Printing...";
  347. realfile$=ucase$(file$)
  348. color 0,7
  349. print realfile$
  350. color 7,0
  351. print
  352. print
  353. print "Press space bar to pause printing, or Esc to quit."
  354. print
  355. print
  356.  
  357. printmor:
  358. input# 1, line$ crlf
  359.  
  360. if error=96 then
  361. lprint line$
  362. goto blanklin:
  363. endif
  364.  
  365. contlprn:
  366. lprint line$
  367.  
  368. a$=inkey$
  369.  
  370. if a$=b$ then
  371. print "Printing has been terminated.  The printer may still have data in its"
  372. print "buffer.  If so, it will continue printing until the buffer is empty."
  373. print
  374. lprint f$
  375. close 1
  376. file$=""
  377. print "Press any key to continue. ";
  378. gosub continue:
  379. return
  380. endif
  381.  
  382. if a$=e$ then pause: else nopause:
  383.  
  384. pause:
  385.  
  386. print "Press any key to resume printing. ";
  387.  
  388. pausemor:
  389. a$=inkey$
  390. if a$="" then pausemor:
  391. a$=""
  392. goto heading:
  393.  
  394. nopause:
  395. if error=99 then eofp:
  396. goto printmor:
  397.  
  398. blanklin:
  399. input# 1, line$ crlf
  400. if line$="" then printmor: else contlprn:
  401.  
  402. eofp:
  403. lprint line$
  404. print "Finished."
  405. print
  406. close 1
  407. lprint f$
  408. print "Press any key to continue. ";
  409. gosub continue:
  410. return
  411.  
  412.  
  413. rem This is the end of the routine for printing text files.
  414.  
  415.  
  416. rem Here is the routine for shelling to DOS.
  417.  
  418. shell:
  419. cls
  420. print "On which drive is your COMMAND.COM (don't type the colon)? ";
  421. gosub continue:
  422. path1$=a$+":"
  423. path2$=path1$+"\"
  424. path3$=path2$+"command.com"
  425. cls
  426. print "Use the DOS command EXIT to return to START.COM."
  427. call path3$,""
  428. goto options:
  429.  
  430. rem Here is the routine for changing to 40-column width.  In order to get
  431. rem decent screen writes, the program has to be rewritten for this mode.
  432. rem A routine could probably be written to change 80-column mode to legible
  433. rem 40-column writes, but it would probably slow down execution, and result in
  434. rem little or no time saved.  On the other foot, it would probably result in 
  435. rem less development time.  I'm more interested in performance than saving 
  436. rem time, so I'll do it the long way.
  437.  
  438. option40:
  439. width 40
  440. print "You have the following options:"
  441. print
  442. print
  443. print "F1- View a list of the files on this"
  444. print "disk."
  445. print
  446. print "F2- View the text file of your choice,"
  447. print "on the screen."
  448. print
  449. print "F3- Print the text file of your"
  450. print "choice."
  451. print
  452. print "F4- Shell to DOS."
  453. print
  454. print "F5- Return to 80-column mode."
  455. print
  456. print "F6- See a list of the parameters you"
  457. print "can use from the DOS prompt."
  458. print
  459. print "Esc- Return to DOS."
  460. print
  461. print
  462. print "Please press the key corresponding to"
  463. print "your choice. ";
  464.  
  465. wait2:
  466. gosub continue:
  467. if a$=b$ then finish:
  468. if extended=1 then rdext40:
  469. goto wait2:
  470.  
  471. rdext40:
  472. if a$=";" then listfl40:
  473. if a$="<" then rdfile40:
  474. if a$="=" then prfile40:
  475. if a$=">" then shell40:
  476. if a$="?" then width80:
  477. if a$="@" then help40:
  478. goto wait2:
  479.  
  480. listfl40:
  481. width 40
  482. print "Here are the files on this disk:"
  483. print
  484. print
  485. print "COMPUTER.DOC- Notes on the computers"
  486. print "used to test the files on this disk."
  487. print
  488. print "DARKSCRN.BAS- A screen blanker to be"
  489. print "used from within GW-BASIC."
  490. print
  491. print "DARKSCRN.DOC- The documentation for"
  492. print "DARKSCRN.BAS."
  493. print
  494. print "FILE-MAN.BAS- The GW-BASIC 3.22 File"
  495. print "Manager."
  496. print
  497. print "FILE-MAN.DOC- The documentation for"
  498. print "FILE-MAN.BAS."
  499. print
  500. print
  501. print "Press any key to continue. ";
  502. gosub continue:
  503. cls
  504. print "LIST.COM- A neat utility by Vern Buerg"
  505. print "that displays files on the screen."
  506. print
  507. print "LOOSWARE.DOC- Notes on the looseware"
  508. print "concept."
  509. print
  510. print "START.ASI- The documentation for"
  511. print "START.COM."
  512. print
  513. print "START.COM- The file you're using right"
  514. print "now."
  515. print
  516. print
  517. print "Press any key to return to the Main"
  518. print "Options Menu. ";
  519. gosub continue:
  520. goto option40:
  521.  
  522. rdfile40:
  523. width 40
  524. print "To move ahead in the file(s) you are"
  525. print "about to view, press PgDn."
  526. print
  527. print "To move back, press PgUp."
  528. print
  529. print "To move to the side, use the direction"
  530. print "keys."
  531. print
  532. print
  533. print "Press any key to see the menu of"
  534. print "files. ";
  535. gosub continue:
  536. rdmenu40:
  537. cls
  538. print "Here are the files you can view:"
  539. print
  540. print
  541. print "A- COMPUTER.DOC"
  542. print
  543. print "B- DARKSCRN.BAS"
  544. print
  545. print "C- DARKSCRN.DOC"
  546. print
  547. print "D- FILE-MAN.BAS"
  548. print
  549. print "E- FILE-MAN.DOC"
  550. print
  551. print "F- NOT IN USE"
  552. print
  553. print "G- LOOSWARE.DOC"
  554. print
  555. print "H- START.ASI"
  556. print
  557. print "Esc- Return to the Main Options Menu."
  558. print
  559. print
  560. print "Please press the key corresponding to"
  561. print "your choice. ";
  562. gosub continue:
  563. if a$=b$ then option40:
  564. print a$;
  565. if a$="h" then rdstar40:
  566. if a$="H" then rdstar40:
  567. if a$="g" then rdloos40:
  568. if a$="G" then rdloos40:
  569. if a$="f" then rdmenu40:
  570. if a$="F" then rdmenu40:
  571. if a$="e" then rdfild40:
  572. if a$="E" then rdfild40:
  573. if a$="d" then rdfilb40:
  574. if a$="D" then rdfilb40:
  575. if a$="c" then rddard40:
  576. if a$="C" then rddard40:
  577. if a$="b" then rddarb40:
  578. if a$="B" then rddarb40:
  579. if a$="a" then rdcomp40:
  580. if a$="A" then rdcomp40:
  581. goto rdmenu40:
  582.  
  583. rdcomp40:
  584. call ("list.com"," computer.doc")
  585. goto rdmenu40:
  586. rddarb40:
  587. call ("list.com"," darkscrn.bas")
  588. goto rdmenu40:
  589. rddard40:
  590. call ("list.com"," darkscrn.doc")
  591. goto rdmenu40:
  592. rdfilb40:
  593. call ("list.com"," file-man.bas")
  594. goto rdmenu40:
  595. rdfild40:
  596. call ("list.com"," file-man.doc")
  597. goto rdmenu40:
  598. rdloos40:
  599. call ("list.com"," loosware.doc")
  600. goto rdmenu40:
  601. rdstar40:
  602. call ("list.com"," start.asi")
  603. goto rdmenu40:
  604.  
  605.  
  606. rem Here is the routine for the file-printing menu.
  607.  
  608. prfile40:
  609. width 40
  610. print "Please ready your printer; press any"
  611. print "key to see the menu of files. ";
  612. gosub continue:
  613.  
  614. prmenu40:
  615. cls
  616. print "Here are the files you can print:"
  617. print
  618. print
  619. print "A- COMPUTER.DOC"
  620. print
  621. print "B- DARKSCRN.BAS"
  622. print
  623. print "C- DARKSCRN.DOC"
  624. print
  625. print "D- FILE-MAN.BAS"
  626. print
  627. print "E- FILE-MAN.DOC"
  628. print
  629. print "F- NOT IN USE"
  630. print
  631. print "G- LOOSWARE.DOC"
  632. print
  633. print "H- START.ASI"
  634. print
  635. print "Esc- Return to the Main Options Menu."
  636. print
  637. print
  638. print "Please press the key corresponding to"
  639. print "your choice. ";
  640.  
  641. wait6:
  642. gosub continue:
  643. if a$=b$ then option40:
  644. if a$="h" then prstar40:
  645. if a$="H" then prstar40:
  646. if a$="g" then prloos40:
  647. if a$="G" then prloos40:
  648. if a$="f" then prmenu40:
  649. if a$="F" then prmenu40:
  650. if a$="e" then prfild40:
  651. if a$="E" then prfild40:
  652. if a$="d" then prfilb40:
  653. if a$="D" then prfilb40:
  654. if a$="c" then prdard40:
  655. if a$="C" then prdard40:
  656. if a$="b" then prdarb40:
  657. if a$="B" then prdarb40:
  658. if a$="a" then prcomp40:
  659. if a$="A" then prcomp40:
  660. goto wait6:
  661.  
  662. prcomp40:
  663. file$="computer.doc"
  664. gosub prndoc40:
  665. goto prmenu40:
  666.  
  667. prdarb40:
  668. file$="darkscrn.bas"
  669. gosub prndoc40:
  670. goto prmenu40:
  671.  
  672. prdard40:
  673. file$="darkscrn.doc"
  674. gosub prndoc40:
  675. goto prmenu40:
  676.  
  677. prfilb40:
  678. file$="file-man.bas"
  679. gosub prndoc40:
  680. goto prmenu40:
  681.  
  682. prfild40:
  683. file$="file-man.doc"
  684. gosub prndoc40:
  685. goto prmenu40:
  686.  
  687. prloos40:
  688. file$="loosware.doc"
  689. gosub prndoc40:
  690. goto prmenu40:
  691.  
  692. prstar40:
  693. file$="start.asi"
  694. gosub prndoc40:
  695. goto prmenu40:
  696.  
  697.  
  698.  
  699. rem Here is the routine for printing a file in 40-column mode.
  700.  
  701. prndoc40:
  702. cls
  703. f$=chr$(12)
  704. open "i",1,file$
  705.  
  706. if error=2 then
  707. print ""
  708. print ""
  709. print "File not found."
  710. print
  711. print
  712. print "Press any key to continue. ";
  713. gosub continue:
  714. close 1
  715. return
  716. endif
  717.  
  718. headng40:
  719. cls
  720. print "Printing...";
  721. realfile$=ucase$(file$)
  722. color 0,7
  723. print realfile$
  724. color 7,0
  725. print
  726. print
  727. print "Press space bar to pause printing, or"
  728. print "Esc to quit."
  729. print
  730. print
  731.  
  732. prntmr40:
  733. input# 1, line$ crlf
  734.  
  735. if error=96 then
  736. lprint line$
  737. goto blnkln40:
  738. endif
  739.  
  740. contpr40:
  741. lprint line$
  742.  
  743. a$=inkey$
  744.  
  745. if a$=b$ then
  746. print "Printing has been terminated.  The"
  747. print "printer may still have data in its"
  748. print "buffer.  If so, it will continue"
  749. print "printing until the buffer is empty."
  750. print
  751. lprint f$
  752. close 1
  753. file$=""
  754. print "Press any key to continue. ";
  755. gosub continue:
  756. return
  757. endif
  758.  
  759. if a$=e$ then pause40: else nopaus40:
  760.  
  761. pause40:
  762.  
  763. print "Press any key to resume printing. ";
  764.  
  765. pausmr40:
  766. a$=inkey$
  767. if a$="" then pausmr40:
  768. a$=""
  769. goto headng40:
  770.  
  771. nopaus40:
  772. if error=99 then eofp40:
  773. goto prntmr40:
  774.  
  775. blnkln40:
  776. input# 1, line$ crlf
  777. if line$="" then prntmr40: else contpr40:
  778.  
  779. eofp40:
  780. lprint line$
  781. print "Finished."
  782. print
  783. close 1
  784. lprint f$
  785. print "Press any key to continue. ";
  786. gosub continue:
  787. return
  788.  
  789. rem This is the end of the routine for printing a file in 40-column mode.
  790.  
  791.  
  792. rem Here is the routine for shelling to DOS in 40-column mode.
  793.  
  794. shell40:
  795. cls
  796. print "On which drive is your COMMAND.COM?"
  797. print "Don't type the colon. ";
  798. gosub continue:
  799. path1$=a$+":"
  800. path2$=path1$+"\"
  801. path3$=path2$+"command.com"
  802. call path3$,""
  803. goto option40:
  804.  
  805. help40:
  806. width 40
  807. print "You can specify parameters with"
  808. print "START.COM; they may save you time."
  809. print
  810. print
  811. print "These parameters describe your options"
  812. print "in 40-column mode.  To get information"
  813. print "on parameters with an 80-column dis-"
  814. print "play, choose that option from the"
  815. print "80-column menu, or type START /? from"
  816. print "the DOS prompt."
  817. print
  818. print
  819. print "Press any key to continue. ";
  820. gosub continue:
  821. cls
  822. print "Typing START /40 ? will get you this"
  823. print "file."
  824. print
  825. print "Typing START /40 V will let you see a"
  826. print "list of the files on this disk."
  827. print
  828. print "Typing START /40 R will let you view"
  829. print "the text file of your choice, on the"
  830. print "screen."
  831. print ""
  832. print "Typing START /40 P will let you print"
  833. print "the text file of your choice."
  834. print
  835. print
  836. print "Either upper or lower case is fine."
  837. print
  838. print
  839. color 0,15
  840. print "C";
  841. color 7,0
  842. print "ontinue with START.COM or return to "
  843. color 0,15
  844. print "D";
  845. color 7,0
  846. print "OS? ";
  847.  
  848. wait3:
  849. gosub continue:
  850. if a$="c" then option40:
  851. if a$="C" then option40:
  852. if a$="d" then finish:
  853. if a$="D" then finish:
  854. goto wait3:
  855.  
  856. width80:
  857. width 80
  858. goto options:
  859.  
  860.  
  861. rem Here is the parameter-listing routine for 80-column mode.
  862.  
  863. help:
  864. cls
  865. print "You can specify parameters from the DOS prompt with START.COM; these"
  866. print "may save you time."
  867. print
  868. print
  869. print "These parameters describe your options in 80-column mode.  To get"
  870. print "information on parameters with a 40-column display, choose that option"
  871. print "from the 40-column menu, or type START /40 ? from the DOS prompt."
  872. print
  873. print
  874. print "Typing START /? will get you this file."
  875. print
  876. print "Typing START /V will let you see a list of the files on this disk."
  877. print
  878. print "Typing START /R will let you view the text file of your choice on the"
  879. print "screen."
  880. print
  881. print "Typing START /P will let you print the text file of your choice."
  882. print
  883. print
  884. print "Either upper or lower case is fine."
  885. print
  886. print
  887. print "Would you like to ";
  888. color 0,15
  889. print "C";
  890. color 7,0
  891. print "ontinue with START.COM or return to ";
  892. color 0,15
  893. print "D";
  894. color 7,0
  895. print "OS? ";
  896.  
  897. wait4:
  898. gosub continue:
  899. if a$="c" then options:
  900. if a$="C" then options:
  901. if a$="d" then finish:
  902. if a$="D" then finish:
  903. goto wait4:
  904.  
  905. rem Here is the routine for giving the address for donations.
  906.  
  907. donation:
  908. cls
  909. print "You can send donations to:"
  910. print
  911. print
  912. print "Matt Roberts."
  913. print "3 Cedar St., # 8"
  914. print "Montpelier, Vt 05602-3006"
  915. print
  916. print
  917. print "Thanks."
  918. print
  919. print
  920. end
  921.  
  922. rem Here is the donations routine for 40-column mode.
  923.  
  924. donate40:
  925. width 40
  926. print "You can send donations to:"
  927. print
  928. print
  929. print "Matt Roberts"
  930. print "3 Cedar St., # 8"
  931. print "Montpelier, Vt 05602-3006"
  932. print
  933. print
  934. print "Thanks."
  935. print
  936. print
  937. end
  938.  
  939. rem Here is the routine for continuing by pressing a key.
  940.  
  941. continue:
  942. wait:
  943. a$=inkey$
  944. if a$="" then wait:
  945. return
  946.  
  947. rem Here is the routine for leaving the program.
  948.  
  949. finish:
  950. cls
  951. end
  952.