home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:COLUMNIST / S.WARE.ENV.bas < prev    next >
BASIC Source File  |  2010-05-14  |  5KB  |  98 lines
  1. 10  PRINT  CHR$(21): HOME : POKE 49167,0:D$ =  CHR$(4)
  2. 20  VTAB 3: PRINT " ";: FOR I = 1 TO 38: PRINT "_";: NEXT : PRINT 
  3. 30  FLASH : PRINT "Z";: NORMAL : PRINT " ______" SPC( 21)"~~~~~~";: FLASH : PRINT "_";: NORMAL : PRINT "o";: FLASH : PRINT "_Z_";
  4. 40  PRINT "Z";: NORMAL : PRINT " ______" SPC( 21)"~~~~~~";: FLASH : PRINT "_IYZ_";
  5. 50  PRINT "Z";: NORMAL : PRINT " ______" SPC( 21)"~~~~~~";: FLASH : PRINT "_M";: NORMAL : PRINT " ";: FLASH : PRINT "Z_";
  6. 60  PRINT "Z";: NORMAL : PRINT  SPC( 34);: FLASH : PRINT "LLLL_";
  7. 70  PRINT "Z";: NORMAL : PRINT  SPC( 38);: FLASH : PRINT "_";
  8. 80  PRINT "Z";: NORMAL : PRINT "      Shareware Envelope Printer      ";: FLASH : PRINT "_";
  9. 90  PRINT "Z";: NORMAL : PRINT  SPC( 38);: FLASH : PRINT "_";
  10. 100  PRINT "Z";: NORMAL : PRINT "      Put a sheet of paper in         ";: FLASH : PRINT "_";
  11. 110  PRINT "Z";: NORMAL : PRINT "      your printer, enter your        ";: FLASH : PRINT "_";
  12. 120  PRINT "Z";: NORMAL : PRINT "      printer slot number, and        ";: FLASH : PRINT "_";
  13. 130  PRINT "Z";: NORMAL : PRINT "      press <return>:                 ";: FLASH : PRINT "_";
  14. 140  FOR J = 1 TO 2
  15. 150  PRINT "Z";: NORMAL : PRINT  SPC( 38);: FLASH : PRINT "_";
  16. 160  NEXT 
  17. 170  NORMAL : PRINT " ";: FLASH : FOR I = 1 TO 38: PRINT "L";: NEXT : PRINT 
  18. 180  NORMAL 
  19. 190  REM  Another SCLU-dunnit screen layout!
  20. 200  IF ( PEEK(64448) = 234  AND  PEEK(64447) = 193)  OR  PEEK(64435) < >6  THEN  POKE 35,8: HOME : TEXT : POKE 34,15: HOME : TEXT : POKE 33,4: HOME : POKE 32,36: HOME : TEXT :SY$ = "//e (unenhanced)"
  21. 210 G = 1
  22. 220  VTAB 14: HTAB 24: PRINT G;
  23. 230  HTAB 24: GET G$
  24. 240  IF G$ =  CHR$(13) GOTO 280
  25. 250  IF G$ =  CHR$(27) GOTO 970
  26. 260  IF G$ >"7"  OR G$ <"1" GOTO 230
  27. 270 G =  VAL(G$): GOTO 220
  28. 280  VTAB 15: HTAB 8: PRINT "Using an ImageWriter II? Y" CHR$(8);
  29. 290  GET IW$:IW$ =  CHR$( ASC(IW$) -32 *(IW$ >"Z"))
  30. 300  IF IW$ =  CHR$(13)  THEN IW$ = "Y"
  31. 310  IF IW$ = "N"  OR IW$ = "Y"  THEN  PRINT IW$: GOTO 330
  32. 320  GOTO 280
  33. 330  REM  <CTRL-J> Do the printing <CTRL-J>
  34. 340  PRINT D$"PR#"G
  35. 350  IF IW$ = "Y"  THEN  PRINT  CHR$(27)"N" CHR$(27)"A";
  36. 360  PRINT 
  37. 370  GOSUB 780: PRINT  SPC( 22)"Tape envelope closed here" SPC( 22)"|
  38. 380  GOSUB 760: GOSUB 760
  39. 390  GOSUB 780: PRINT  SPC( 25)"Step five: fold back" SPC( 24)"|
  40. 400  GOSUB 770: GOSUB 760
  41. 410  GOSUB 780: PRINT "  _____________________" SPC( 39)"place  |
  42. 420  GOSUB 780: PRINT  SPC( 62)"stamp  |"
  43. 430  GOSUB 780: PRINT "  _____________________" SPC( 39)"here   |
  44. 440  GOSUB 760
  45. 450  GOSUB 780: PRINT "  _____________________" SPC( 46)"|
  46. 460  FOR I = 1 TO 5: GOSUB 760: NEXT 
  47. 470  GOSUB 780: PRINT  SPC( 27)"Karl Bunker" SPC( 31)"|"
  48. 480  GOSUB 780: PRINT  SPC( 27)"321 S. Huntington Ave." SPC( 20)"|"
  49. 490  GOSUB 780: PRINT  SPC( 27)"Boston, MA 02130" SPC( 26)"|"
  50. 500  GOSUB 780: PRINT  SPC( 27)"USA" SPC( 39)"|"
  51. 510  GOSUB 760
  52. 520  PRINT "   S |" SPC( 69)"| S
  53. 530  PRINT "   t |" SPC( 69)"| t
  54. 540  PRINT "   e |" SPC( 69)"| e
  55. 550  PRINT "   p |" SPC( 69)"| p
  56. 560  GOSUB 770
  57. 570  PRINT "   t |" SPC( 25)"Step four: fold back" SPC( 24)"| t"
  58. 580  PRINT "   w |" SPC( 69)"| h
  59. 590  PRINT "   o |" SPC( 69)"| r
  60. 600  PRINT "     |" SPC( 69)"| e
  61. 610  PRINT "   f |" SPC( 69)"| e
  62. 620  PRINT "   o |" SPC( 69)"|"
  63. 630  PRINT "   l |" SPC( 69)"| f
  64. 640  PRINT "   d |" SPC( 69)"| o
  65. 650  PRINT "     |" SPC( 69)"| l
  66. 660  PRINT "   b |" SPC( 69)"| d
  67. 670  PRINT "   a |" SPC( 69)"|
  68. 680  PRINT "   c |" SPC( 69)"| b
  69. 690  PRINT "   k |" SPC( 69)"| a
  70. 700  GOSUB 780: PRINT  SPC( 69)"| c
  71. 710  GOSUB 780: PRINT  SPC( 69)"| k
  72. 720  FOR I = 1 TO 4: GOSUB 760: NEXT 
  73. 730  GOSUB 770
  74. 740  GOSUB 780: PRINT  SPC( 25)"Step one: fold back" SPC( 25)"|"
  75. 750  GOTO 800
  76. 760  GOSUB 780: PRINT  SPC( 69)"|": RETURN 
  77. 770  GOSUB 780: FOR I = 1 TO 69: PRINT "-";: NEXT : PRINT "|": RETURN 
  78. 780  PRINT "     |";: RETURN 
  79. 790  REM  <CTRL-J> What program? <CTRL-J>
  80. 800  PRINT : PRINT  SPC( 17)"Check one or both:
  81. 810  PRINT  SPC( 17)"[] Columnist, version 2.0 ($15.00)
  82. 820  PRINT  SPC( 17)"[] Encryptor, version 2.0 ($5.00)
  83. 830  REM  <CTRL-J> What machine? <CTRL-J>
  84. 840  IF  PEEK(64435) < >6  THEN SY$ = "][+": GOTO 880
  85. 850  IF  PEEK(64448) = 224  AND  PEEK(64447) = 0  THEN SY$ = "//e (enhanced)"
  86. 860  IF  PEEK(64448) = 0  THEN SY$ = "//c": IF  PEEK(64447) >4  AND  PEEK(64447) <128  THEN SY$ = SY$ +" plus"
  87. 870 A$ = "00169001141032003056032031254144005169000141032003096": FOR I = 1 TO 17: POKE 767 +I, VAL( MID$ (A$,I *3,3)): NEXT : CALL 768:GS =  PEEK(800): IF GS  THEN SY$ = "IIgs"
  88. 880  REM  <CTRL-J> Note & thank you <CTRL-J>
  89. 890  PRINT : PRINT  SPC( 17)"Your system: "SY$
  90. 900  PRINT  SPC( 17)"Enclose your check behind this panel.
  91. 910  PRINT  SPC( 17)"Be sure your name and address are on this
  92. 920  PRINT  SPC( 17)"envelope, so I can notify you of upgrades, etc.
  93. 930  PRINT  SPC( 17)"Feel free to enclose any comments you may have
  94. 940  PRINT  SPC( 17)"about these programs.
  95. 950  PRINT : PRINT  SPC( 17)"And thank you very, very much!
  96. 960  PRINT : PRINT  CHR$(12): PRINT D$"PR#0"
  97. 970  REM  <CTRL-J> Exit <CTRL-J>
  98. 980  PRINT D$"RUN STARTUP"