home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:COLUMNIST / STARTUP.bas < prev    next >
BASIC Source File  |  2010-05-14  |  3KB  |  60 lines
  1. 10  REM <CTRL-M><CTRL-M> Menu Menu<CTRL-M><CTRL-J>
  2. 20 D$ =  CHR$(4): PRINT D$"PREFIX": INPUT P$: PRINT D$"PREFIX"P$
  3. 30  PRINT  CHR$(21): TEXT : HOME 
  4. 40  INVERSE : PRINT "\" SPC( 38)"/";
  5. 50  PRINT " ";: NORMAL : PRINT  SPC( 38);: INVERSE : PRINT " ";
  6. 60  PRINT " ";: NORMAL : PRINT "          Columnist (etcetera)        ";: INVERSE : PRINT " ";
  7. 70  PRINT " ";: NORMAL : PRINT  SPC( 38);: INVERSE : PRINT " ";
  8. 80  PRINT " ";: NORMAL : PRINT "            By Karl Bunker            ";: INVERSE : PRINT " ";
  9. 90  PRINT " ";: NORMAL : PRINT  SPC( 38);: INVERSE : PRINT " ";
  10. 100  PRINT "/" SPC( 38)"\";: NORMAL 
  11. 110  VTAB 11: HTAB 10: PRINT "<1>-About this disk"
  12. 120  VTAB 13: HTAB 10: PRINT "<2>-Columnist menu"
  13. 130  VTAB 15: HTAB 10: PRINT "<3>-Encryptor menu"
  14. 140  VTAB 17: HTAB 10: PRINT "<4>-Dogpaw menu"
  15. 150  VTAB 19: HTAB 10: PRINT "<5>-Print a shareware envelope"
  16. 160  VTAB 21: HTAB 10: PRINT "<esc>-Quit to BASIC"
  17. 170  HTAB 10: VTAB 24: PRINT "< >-?";: HTAB 11: GET G$
  18. 180  IF G$ =  CHR$(27)  THEN  VTAB 23: END 
  19. 190  IF G$ <"1"  OR G$ >"5" GOTO 170
  20. 200  IF G$ = "1"  THEN PR$ = "This Disk":DC$ = "ABOUT.THIS.DISK":RN = 0: GOTO 330
  21. 210  IF G$ = "2"  THEN PR$ = "Columnist":DC$ = "COLUMNIST.DOCS":RN = 1
  22. 220  IF G$ = "3"  THEN PR$ = "Encryptor":DC$ = "ENCRYPTOR.DOCS":RN = 1
  23. 230  IF G$ = "4"  THEN PR$ = "Dogpaw":DC$ = "DOGPAW.DOCS.C":RN = 0
  24. 240  IF G$ = "5"  THEN  PRINT D$"RUN S.WARE.ENV"
  25. 250  REM <CTRL-M><CTRL-M> Level 2 Menu<CTRL-M><CTRL-M>
  26. 260  PRINT  CHR$(21): HOME : INVERSE : PRINT "\" SPC( 38)"/";
  27. 270  PRINT " ";: NORMAL : PRINT  SPC( 38);: INVERSE : PRINT "  ";: NORMAL 
  28. 280  HTAB 21 -( LEN(PR$)/2): PRINT PR$;: HTAB 40: INVERSE : PRINT " ";
  29. 290  PRINT " ";: NORMAL : PRINT  SPC( 38);: INVERSE : PRINT " ";
  30. 300  PRINT " ";: NORMAL : PRINT "            By Karl Bunker            ";: INVERSE : PRINT " ";
  31. 310  PRINT " ";: NORMAL : PRINT  SPC( 38);: INVERSE : PRINT " ";
  32. 320  PRINT "/" SPC( 38)"\";
  33. 330  VTAB 11: HTAB 1: NORMAL : CALL  -958: PRINT " About "PR$"..."
  34. 340  VTAB 13: HTAB 6: PRINT "<1>-Text to screen"
  35. 350  VTAB 15: HTAB 6: PRINT "<2>-Scan text for a word or phrase"
  36. 360  VTAB 17: HTAB 6: PRINT "<3>-Text to printer"
  37. 370  IF RN  THEN  VTAB 19: PRINT " <4>-Run "PR$
  38. 380  PRINT : PRINT " <esc>-Back to main menu
  39. 390  PRINT : PRINT : PRINT " < >-?<CTRL-H><CTRL-H><CTRL-H><CTRL-H>";: GET G$
  40. 400  IF  ASC(G$) >32  THEN  PRINT G$;
  41. 410  IF G$ =  CHR$(27) GOTO 30
  42. 420  IF G$ = "4"  AND RN  THEN  PRINT D$"-"PR$
  43. 430  IF G$ <"1"  OR G$ >"3" GOTO 330
  44. 440 AP$ = "":SC$ = ""
  45. 450  IF  PEEK(49249) >127  AND  PEEK(64435) = 6  THEN AP$ = "%"
  46. 460  IF   NOT DP  THEN DP = 1: PRINT D$"-DOGPAW"
  47. 470  IF G$ = "3" GOTO 510
  48. 480  IF G$ = "2"  THEN  VTAB 22: HTAB 1: CALL  -958: PRINT : PRINT "Enter the string to scan for:": INPUT "";SC$:SC$ = "$" +SC$
  49. 490  PRINT D$"PR#3": PRINT : PRINT "One moment -"
  50. 500  PRINT D$"DOGPAW"DC$SC$: GOTO 580
  51. 510  REM  Print
  52. 520  IF  PEEK(64435) = 6  AND  PEEK(64448) = 0  THEN PS = 1: GOTO 570
  53. 530  VTAB 24: HTAB 1: PRINT "Please enter your printer slot number 1<CTRL-H>";
  54. 540  GET PS$: IF PS$ =  CHR$(13)  THEN PS$ = "1"
  55. 550 PS =  VAL(PS$): IF PS <1  OR PS >7 GOTO 530
  56. 560 HD$ = PR$ +" Instructions": IF PR$ = "This Disk"  THEN HD$ = "About /Columnist/"
  57. 570  PRINT D$"PR#"PS: PRINT D$"DOGPAW"DC$AP$"\\"HD$"; page #"
  58. 580  REM  Re-display menu
  59. 590  IF PR$ = "This Disk" GOTO 30
  60. 600  GOTO 250