home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib40a.dsk / DECEMBER.1990 / CASSETTE.LABEL.bas next >
BASIC Source File  |  2023-02-26  |  15KB  |  186 lines
  1. 1  REM  *************************
  2. 2  REM  * CASSETTE.LABEL        *
  3. 3  REM  * BY VERN L. MASTEL     *
  4. 4  REM  * COPYRIGHT (C) 1990    *
  5. 5  REM  * MINDCRAFT PUBL. CORP. *
  6. 6  REM  * CONCORD, MA 01742     *
  7. 7  REM  *************************
  8. 10  GOSUB 1770: GOSUB 1750
  9. 20  PRINT  CHR$(4)"PR#3": DIM A$(15),B$(15):EP = 1
  10. 30 TTL$(1) = "UNTITLED SIDE A":TTL$(2) = "UNTITLED SIDE B":DT$ = "NO DATE":DB$ = "C"
  11. 40  FOR X = 1 TO 15:A$(X) = "":B$(X) = "": NEXT : FOR X = 1 TO 39:L$ = L$ +"-": NEXT : FOR X = 1 TO 19:T$ = T$ +" ": NEXT 
  12. 50  HOME : PRINT : VTAB 1
  13. 60  FOR X = 1 TO 69: POKE 36,X: PRINT "-";: NEXT : PRINT : VTAB 1: POKE 36,0: PRINT  CHR$(124): VTAB 1: POKE 36,70: PRINT  CHR$(124)
  14. 70  FOR X = 2 TO 16: VTAB X: POKE 36,0: PRINT  CHR$(124): VTAB X: POKE 36,70: PRINT  CHR$(124): NEXT 
  15. 80  FOR X = 1 TO 69: POKE 36,X: PRINT "-";: NEXT : PRINT : VTAB 17: POKE 36,0: PRINT  CHR$(124): VTAB 17: POKE 36,70: PRINT  CHR$(124)
  16. 90  FOR X = 2 TO 16: POKE 36,35: VTAB X: PRINT  CHR$(124): NEXT 
  17. 100  VTAB 18: POKE 36,0: PRINT  CHR$(124);: PRINT TTL$(1);: POKE 36,70: PRINT  CHR$(124): VTAB 19: POKE 36,0: PRINT  CHR$(124);: PRINT TTL$(2);: POKE 36,70: PRINT  CHR$(124)
  18. 110  FOR X = 1 TO 69: POKE 36,X: PRINT "-";: NEXT : PRINT : VTAB 20: POKE 36,0: PRINT  CHR$(124): VTAB 20: POKE 36,70: PRINT  CHR$(124)
  19. 120  VTAB 21: POKE 36,0: PRINT  CHR$(124);: POKE 36,70: PRINT  CHR$(124): VTAB 22: POKE 36,0: PRINT  CHR$(124);: POKE 36,70: PRINT  CHR$(124)
  20. 130  FOR X = 1 TO 69: POKE 36,X: PRINT "-";: NEXT : PRINT : VTAB 23: POKE 36,0: PRINT  CHR$(124): VTAB 23: POKE 36,70: PRINT  CHR$(124)
  21. 140  FOR X = 1 TO 15: VTAB 2 +X: POKE 36,1: PRINT A$(X): NEXT : FOR X = 1 TO 15: VTAB 2 +X: POKE 36,36: PRINT B$(X): NEXT 
  22. 150  VTAB 2: POKE 36,14: PRINT "SIDE A": VTAB 2: POKE 36,49: PRINT "SIDE B": VTAB 21: POKE 36,1: PRINT "DATE RECORDED": VTAB 21: POKE 36,36: PRINT "DOLBY N/R ?"
  23. 160  VTAB 22: POKE 36,1: PRINT DT$;: VTAB 22: POKE 36,36: PRINT DB$
  24. 170  POKE 36,71: VTAB 1: PRINT "CTRL-P": POKE 36,71: PRINT "TO PRNT": PRINT : POKE 36,71: PRINT "CTRL-E": POKE 36,71: PRINT "CLR LINE": PRINT : POKE 36,71: PRINT "RTN TO": POKE 36,71: PRINT "ACCEPT"
  25. 180  PRINT : POKE 36,71: PRINT "CTRL-W": POKE 36,71: PRINT "TO CLEAR": PRINT : POKE 36,71: PRINT "LEFT &": POKE 36,71: PRINT "UP/DOWN": POKE 36,71: PRINT "ARROWS": POKE 36,71: PRINT "TO MOVE"
  26. 190  PRINT : POKE 36,71: PRINT "CTRL-O ": POKE 36,71: PRINT "FOR PRNT": POKE 36,71: PRINT "OPTIONS": PRINT : POKE 36,71: PRINT "CTRL-Q": POKE 36,71: PRINT "TO QUIT"
  27. 200 V = 3:CT = 0:IN$ = "":H = 1
  28. 210  VTAB V: POKE 36,H
  29. 220  GET A$
  30. 230  IF A$ =  CHR$(5)  THEN  VTAB V: POKE 36,H: FOR Z = 1 TO 33: PRINT " ";: NEXT :A$(V -2) = "": VTAB V: POKE 36,H:CT = 0:IN$ = "": GOTO 220
  31. 240  IF A$ =  CHR$(15)  THEN 1620
  32. 250  IF A$ =  CHR$(17)  THEN 1710
  33. 260  IF A$ =  CHR$(23)  THEN 1670
  34. 270  IF A$ =  CHR$(16)  THEN 1320
  35. 280  IF CT = 33  THEN  IF A$ =  CHR$(8)  OR A$ =  CHR$(127)  THEN 360
  36. 290  IF CT = 33  THEN  IF A$ < > CHR$(13)  THEN  GOSUB 1580: GOTO 220
  37. 300  IF (A$ =  CHR$(13)  OR A$ =  CHR$(10))  AND IN$ = ""  THEN  PRINT A$(V -2);: PRINT A$: GOTO 390
  38. 310  IF A$ =  CHR$(13)  OR A$ =  CHR$(10)  THEN A$(V -2) = IN$: GOSUB 1590: GOTO 390
  39. 320  IF A$ =  CHR$(11)  THEN  IF V >3  THEN IN$ = "": GOSUB 1590: POKE 36,H: PRINT A$(V -2):V = V -1: GOTO 210
  40. 330  IF A$ =  CHR$(11)  THEN  IF V = 3  THEN IN$ = "": GOSUB 1590: POKE 36,H: PRINT A$(V -2): GOTO 1140
  41. 340  IF (A$ =  CHR$(8)  OR A$ =  CHR$(127))  AND CT = 0  THEN IN$ = "": POKE 36,H: PRINT IN$;:A$(V -2) = IN$: GOSUB 1580: POKE 36,H: GOSUB 1590: POKE 36,H: GOTO 220
  42. 350  IF (A$ =  CHR$(8)  OR A$ =  CHR$(127))  AND CT = 1  THEN CT = CT -1:IN$ = "": POKE 36,H: PRINT IN$;: GOSUB 1590:A$(V -2) = IN$: POKE 36,H: GOTO 220
  43. 360  IF (A$ =  CHR$(8)  OR A$ =  CHR$(127))  THEN CT = CT -1:A$(V -2) =  LEFT$(A$(V -2),CT): POKE 36,H: PRINT A$(V -2);: GOSUB 1590:IN$ = A$(V -2): POKE 36,H +CT: GOTO 220
  44. 370  IF A$ < CHR$(32)  OR A$ > CHR$(122)  THEN  GOSUB 1580: GOTO 220
  45. 380  PRINT A$;:IN$ = IN$ +A$:A$(V -2) = IN$:CT = CT +1: GOTO 220
  46. 390 IN$ = "":CT = 0:V = V +1: IF V <17  THEN 210
  47. 400 V = 3:CT = 0:IN$ = "":H = 36
  48. 410  VTAB V: POKE 36,H
  49. 420  GET A$
  50. 430  IF A$ =  CHR$(5)  THEN  VTAB V: POKE 36,H: FOR Z = 1 TO 33: PRINT " ";: NEXT :B$(V -2) = "": VTAB V: POKE 36,H:CT = 0:IN$ = "": GOTO 420
  51. 440  IF A$ =  CHR$(15)  THEN 1620
  52. 450  IF A$ =  CHR$(17)  THEN 1710
  53. 460  IF A$ =  CHR$(16)  THEN  GOSUB 1320: GOTO 410
  54. 470  IF A$ =  CHR$(23)  THEN 1670
  55. 480  IF CT = 33  THEN  IF A$ =  CHR$(8)  OR A$ =  CHR$(127)  THEN 550
  56. 490  IF CT = 33  THEN  IF A$ < > CHR$(13)  THEN  GOSUB 1580: GOTO 420
  57. 500  IF (A$ =  CHR$(13)  OR A$ =  CHR$(10))  AND IN$ = ""  THEN  PRINT B$(V -2);: PRINT A$: GOTO 590
  58. 510  IF A$ =  CHR$(13)  OR A$ =  CHR$(10)  THEN B$(V -2) = IN$: GOSUB 1590: GOTO 590
  59. 520  IF A$ =  CHR$(11)  THEN  IF V >3  THEN IN$ = "": GOSUB 1590: POKE 36,H: PRINT B$(V -2):V = V -1: GOTO 410
  60. 530  IF A$ =  CHR$(11)  THEN  IF V = 3  THEN IN$ = "": GOSUB 1590: POKE 36,H: PRINT B$(V -2):V = 16:H = 1:CT = 0: GOTO 210
  61. 540  IF (A$ =  CHR$(8)  OR A$ =  CHR$(127))  AND CT = 0  THEN IN$ = "": POKE 36,H: PRINT IN$;:B$(V -2) = IN$: GOSUB 1580: POKE 36,H: GOSUB 1590: POKE 36,H: GOTO 420
  62. 550  IF (A$ =  CHR$(8)  OR A$ =  CHR$(127))  AND CT = 1  THEN CT = CT -1:IN$ = "": POKE 36,H: PRINT IN$;: GOSUB 1590:B$(V -2) = IN$: POKE 36,H: GOTO 420
  63. 560  IF (A$ =  CHR$(8)  OR A$ =  CHR$(127))  THEN CT = CT -1:B$(V -2) =  LEFT$(B$(V -2),CT): POKE 36,H: PRINT B$(V -2);: GOSUB 1590:IN$ = B$(V -2): POKE 36,H +CT: GOTO 420
  64. 570  IF A$ < CHR$(32)  OR A$ > CHR$(122)  THEN  GOSUB 1580: GOTO 420
  65. 580  PRINT A$;:IN$ = IN$ +A$:B$(V -2) = IN$:CT = CT +1: GOTO 420
  66. 590 IN$ = "":CT = 0:V = V +1: IF V <17  THEN 410
  67. 600 V = 18:CT = 0:IN$ = "":H = 1
  68. 610  VTAB V: POKE 36,H
  69. 620  GET A$
  70. 630  IF A$ =  CHR$(5)  THEN  VTAB V: POKE 36,H: FOR Z = 1 TO 39: PRINT " ";: NEXT :TTL$(1) = "": VTAB V: POKE 36,H:CT = 0:IN$ = "": GOTO 620
  71. 640  IF A$ =  CHR$(15)  THEN 1620
  72. 650  IF A$ =  CHR$(17)  THEN 1710
  73. 660  IF A$ =  CHR$(16)  THEN  GOSUB 1320: GOTO 610
  74. 670  IF A$ =  CHR$(23)  THEN 1670
  75. 680  IF CT = 39  THEN  IF A$ =  CHR$(8)  OR A$ =  CHR$(127)  THEN 740
  76. 690  IF CT = 39  THEN  IF A$ < > CHR$(13)  THEN  GOSUB 1580: GOTO 620
  77. 700  IF (A$ =  CHR$(13)  OR A$ =  CHR$(10))  AND IN$ = ""  THEN  PRINT TTL$(1);: PRINT A$: GOTO 780
  78. 710  IF A$ =  CHR$(13)  OR A$ =  CHR$(10)  THEN TTL$(1) = IN$: GOSUB 1600: GOTO 780
  79. 720  IF A$ =  CHR$(11)  THEN IN$ = "": GOSUB 1600: POKE 36,H: PRINT TTL$(1):V = 16:H = 36:CT = 0: GOTO 410
  80. 730  IF (A$ =  CHR$(8)  OR A$ =  CHR$(127))  AND CT = 0  THEN IN$ = "": POKE 36,H: PRINT IN$;:TTL$(1) = IN$: GOSUB 1580: POKE 36,H: GOSUB 1600: POKE 36,H: GOTO 620
  81. 740  IF (A$ =  CHR$(8)  OR A$ =  CHR$(127))  AND CT = 1  THEN CT = CT -1:IN$ = "": POKE 36,H: PRINT IN$;: GOSUB 1600:TTL$(1) = IN$: POKE 36,H: GOTO 620
  82. 750  IF (A$ =  CHR$(8)  OR A$ =  CHR$(127))  THEN CT = CT -1:TTL$(1) =  LEFT$(TTL$(1),CT): POKE 36,H: PRINT TTL$(1);: GOSUB 1600:IN$ = TTL$(1): POKE 36,H +CT: GOTO 620
  83. 760  IF A$ < CHR$(32)  OR A$ > CHR$(122)  THEN  GOSUB 1580: GOTO 620
  84. 770  PRINT A$;:IN$ = IN$ +A$:TTL$(1) = IN$:CT = CT +1: GOTO 620
  85. 780 V = 19:CT = 0:IN$ = "":H = 1
  86. 790  VTAB V: POKE 36,H
  87. 800  GET A$
  88. 810  IF A$ =  CHR$(5)  THEN  VTAB V: POKE 36,H: FOR Z = 1 TO 39: PRINT " ";: NEXT :TTL$(2) = "": VTAB V: POKE 36,H:CT = 0:IN$ = "": GOTO 800
  89. 820  IF A$ =  CHR$(15)  THEN 1620
  90. 830  IF A$ =  CHR$(17)  THEN 1710
  91. 840  IF A$ =  CHR$(16)  THEN  GOSUB 1320: GOTO 790
  92. 850  IF A$ =  CHR$(23)  THEN 1670
  93. 860  IF CT = 39  THEN  IF A$ =  CHR$(8)  OR A$ =  CHR$(127)  THEN 920
  94. 870  IF CT = 39  THEN  IF A$ < > CHR$(13)  THEN  GOSUB 1580: GOTO 800
  95. 880  IF (A$ =  CHR$(13)  OR A$ =  CHR$(10))  AND IN$ = ""  THEN  PRINT TTL$(2);: PRINT A$: GOTO 960
  96. 890  IF A$ =  CHR$(13)  OR A$ =  CHR$(10)  THEN TTL$(2) = IN$: GOSUB 1600: GOTO 960
  97. 900  IF A$ =  CHR$(11)  THEN IN$ = "": GOSUB 1600: POKE 36,H: PRINT TTL$(2): GOTO 590
  98. 910  IF (A$ =  CHR$(8)  OR A$ =  CHR$(127))  AND CT = 0  THEN IN$ = "": POKE 36,H: PRINT IN$;:TTL$(2) = IN$: POKE 36,H: GOSUB 1580: GOSUB 1600: POKE 36,H: GOTO 800
  99. 920  IF (A$ =  CHR$(8)  OR A$ =  CHR$(127))  AND CT = 1  THEN CT = CT -1:IN$ = "": POKE 36,H: PRINT IN$;: GOSUB 1600:TTL$(2) = IN$: POKE 36,H: GOTO 800
  100. 930  IF (A$ =  CHR$(8)  OR A$ =  CHR$(127))  THEN CT = CT -1:TTL$(2) =  LEFT$(TTL$(2),CT): POKE 36,H: PRINT TTL$(2);: GOSUB 1600:IN$ = TTL$(2): POKE 36,H +CT: GOTO 800
  101. 940  IF A$ < CHR$(32)  OR A$ > CHR$(122)  THEN  GOSUB 1580: GOTO 800
  102. 950  PRINT A$;:IN$ = IN$ +A$:TTL$(2) = IN$:CT = CT +1: GOTO 800
  103. 960 V = 22:CT = 0:IN$ = "":H = 1
  104. 970  VTAB V: POKE 36,H
  105. 980  GET A$
  106. 990  IF A$ =  CHR$(5)  THEN  VTAB V: POKE 36,H: FOR Z = 1 TO 16: PRINT " ";: NEXT :DT$ = "": VTAB V: POKE 36,H:CT = 0:IN$ = "": GOTO 980
  107. 1000  IF A$ =  CHR$(15)  THEN 1620
  108. 1010  IF A$ =  CHR$(17)  THEN 1710
  109. 1020  IF A$ =  CHR$(16)  THEN  GOSUB 1320: GOTO 970
  110. 1030  IF A$ =  CHR$(23)  THEN 1670
  111. 1040  IF CT = 16  THEN  IF A$ =  CHR$(8)  OR A$ =  CHR$(127)  THEN 1100
  112. 1050  IF CT = 16  THEN  IF A$ < > CHR$(13)  THEN  GOSUB 1580: GOTO 980
  113. 1060  IF (A$ =  CHR$(13)  OR A$ =  CHR$(10))  AND IN$ = ""  THEN  PRINT DT$;: PRINT A$: GOTO 1140
  114. 1070  IF A$ =  CHR$(13)  OR A$ =  CHR$(10)  THEN DT$ = IN$: GOSUB 1610: GOTO 1140
  115. 1080  IF A$ =  CHR$(11)  THEN IN$ = "": GOSUB 1610: POKE 36,H: PRINT DT$: GOTO 780
  116. 1090  IF (A$ =  CHR$(8)  OR A$ =  CHR$(127))  AND CT = 0  THEN IN$ = "": POKE 36,H: PRINT IN$;:DT$ = IN$: GOSUB 1580: POKE 36,H: GOSUB 1610: POKE 36,H: GOTO 980
  117. 1100  IF (A$ =  CHR$(8)  OR A$ =  CHR$(127))  AND CT = 1  THEN CT = CT -1:IN$ = "": POKE 36,H: PRINT IN$;: GOSUB 1610:DT$ = IN$: POKE 36,H: GOTO 980
  118. 1110  IF (A$ =  CHR$(8)  OR A$ =  CHR$(127))  THEN CT = CT -1:DT$ =  LEFT$(DT$,CT): POKE 36,H: PRINT DT$;: GOSUB 1610:IN$ = DT$: POKE 36,H +CT: GOTO 980
  119. 1120  IF A$ < CHR$(32)  OR A$ > CHR$(122)  THEN  GOSUB 1580: GOTO 980
  120. 1130  PRINT A$;:IN$ = IN$ +A$:DT$ = IN$:CT = CT +1: GOTO 980
  121. 1140 V = 22:CT = 0:IN$ = "":H = 36
  122. 1150  VTAB V: POKE 36,H
  123. 1160  GET A$
  124. 1170  IF A$ =  CHR$(5)  THEN  POKE 36,H: FOR Z = 1 TO 16: PRINT " ";: NEXT :DB$ = "": VTAB V: POKE 36,H:CT = 0:IN$ = "": GOTO 1160
  125. 1180  IF A$ =  CHR$(15)  THEN 1620
  126. 1190  IF A$ =  CHR$(17)  THEN 1710
  127. 1200  IF A$ =  CHR$(16)  THEN  GOSUB 1320: GOTO 1150
  128. 1210  IF A$ =  CHR$(23)  THEN 1670
  129. 1220  IF CT = 16  THEN  IF A$ =  CHR$(8)  OR A$ =  CHR$(127)  THEN 1280
  130. 1230  IF CT = 16  THEN  IF A$ < > CHR$(13)  THEN  GOSUB 1580: GOTO 1160
  131. 1240  IF (A$ =  CHR$(13)  OR A$ =  CHR$(10))  AND IN$ = ""  THEN  PRINT DB$;: PRINT A$: GOTO 200
  132. 1250  IF A$ =  CHR$(13)  OR A$ =  CHR$(10)  THEN DB$ = IN$: GOSUB 1610: GOTO 200
  133. 1260  IF A$ =  CHR$(11)  THEN  GOSUB 1610: POKE 36,H: PRINT DB$: GOTO 960
  134. 1270  IF (A$ =  CHR$(8)  OR A$ =  CHR$(127))  AND CT = 0  THEN IN$ = "": POKE 36,H: PRINT IN$;:DB$ = IN$: GOSUB 1580: POKE 36,H: GOSUB 1610: POKE 36,H: GOTO 1160
  135. 1280  IF (A$ =  CHR$(8)  OR A$ =  CHR$(127))  AND CT = 1  THEN CT = CT -1:IN$ = "": POKE 36,H: PRINT IN$;: GOSUB 1610:DB$ = IN$: POKE 36,H: GOTO 1160
  136. 1290  IF (A$ =  CHR$(8)  OR A$ =  CHR$(127))  THEN CT = CT -1:DB$ =  LEFT$(DB$,CT): POKE 36,H: PRINT DB$;: GOSUB 1610:IN$ = DB$: POKE 36,H +CT: GOTO 1160
  137. 1300  IF A$ < CHR$(32)  OR A$ > CHR$(122)  THEN  GOSUB 1580: GOTO 1160
  138. 1310  PRINT A$;:IN$ = IN$ +A$:DB$ = IN$:CT = CT +1: GOTO 1160
  139. 1320  PRINT  CHR$(12); CHR$(21): PRINT  CHR$(4)"PR#1": PRINT  CHR$(9)"80N": PRINT  CHR$(9)"K"
  140. 1330  IF EP  THEN  PRINT  CHR$(27)"@": GOSUB 1520: PRINT  CHR$(27)"U1": REM  SET EPSON FOR UNIDIRECTIONAL PRINT
  141. 1340  IF AP  THEN  PRINT  CHR$(27); CHR$(99): GOSUB 1530: PRINT  CHR$(27)">": REM  SET APPLE FOR UNIDIRECTIONAL PRINT
  142. 1350  PRINT  CHR$(124);: PRINT L$;: PRINT  CHR$(124);: PRINT  CHR$(10)
  143. 1360  PRINT  CHR$(124);: POKE 36,20: PRINT  CHR$(124);: POKE 36,40: PRINT  CHR$(124);
  144. 1370  PRINT  CHR$(13);: ON EP GOSUB 1540: ON AP GOSUB 1550: POKE 36,8: PRINT "SIDE A";: POKE 36,28: PRINT "SIDE B";: ON EP GOSUB 1560: ON AP GOSUB 1570: PRINT  CHR$(10)
  145. 1380  FOR X = 1 TO 14: PRINT  CHR$(124);: POKE 36,20: PRINT  CHR$(124);: POKE 36,40: PRINT  CHR$(124);
  146. 1390  PRINT  CHR$(13);: ON EP GOSUB 1500: ON AP GOSUB 1510: POKE 36,1 +AP: PRINT A$(X);: POKE 36,36: PRINT B$(X);: ON EP GOSUB 1520: ON AP GOSUB 1530: PRINT  CHR$(10): NEXT 
  147. 1400  PRINT  CHR$(124);: PRINT L$;: PRINT  CHR$(124);: PRINT  CHR$(10)
  148. 1410  PRINT  CHR$(124);: POKE 36,40: PRINT  CHR$(124);
  149. 1420  PRINT  CHR$(13): ON EP GOSUB 1540: ON AP GOSUB 1550: POKE 36,1 +AP: PRINT TTL$(1);: ON EP GOSUB 1560: ON AP GOSUB 1570: PRINT  CHR$(10)
  150. 1430  PRINT  CHR$(124);: POKE 36,40: PRINT  CHR$(124)
  151. 1440  PRINT  CHR$(13): ON EP GOSUB 1540: ON AP GOSUB 1550: POKE 36,1 +AP: PRINT TTL$(2);: ON EP GOSUB 1560: ON AP GOSUB 1570: PRINT  CHR$(10)
  152. 1450  PRINT  CHR$(124);: PRINT L$;: PRINT  CHR$(124);: PRINT  CHR$(10)
  153. 1460  PRINT  CHR$(124);: PRINT "DATE RECORDED";: POKE 36,22: PRINT "DOLBY NR";: POKE 36,40: PRINT  CHR$(124);: PRINT  CHR$(10)
  154. 1470  PRINT  CHR$(124);: PRINT DT$;: POKE 36,22: PRINT DB$;: POKE 36,40: PRINT  CHR$(124);: PRINT  CHR$(10)
  155. 1480  PRINT  CHR$(124);: PRINT L$;: PRINT  CHR$(124);: PRINT  CHR$(10)
  156. 1490  PRINT  CHR$(4)"PR#3": GOTO 50
  157. 1500  PRINT  CHR$(15): RETURN : REM  EPSON CONDENSED ON
  158. 1510  PRINT  CHR$(27)"Q";: RETURN : REM  APPLE CONDENSED ON
  159. 1520  PRINT  CHR$(18): RETURN : REM  EPSON CONDENSED OFF
  160. 1530  PRINT  CHR$(27)"N";: RETURN : REM  APPLE CONDENSED OFF
  161. 1540  PRINT  CHR$(27)"E": RETURN : REM  EPSON EMPHASIZED ON
  162. 1550  PRINT  CHR$(27)"!";: RETURN : REM  APPLE EMPHASIZE ON
  163. 1560  PRINT  CHR$(27)"F": RETURN : REM  EPSON EMPHASIZED OFF
  164. 1570  PRINT  CHR$(27); CHR$(34);: RETURN : REM  APPLE EMPHASIZED OFF
  165. 1580  PRINT  CHR$(7);: RETURN 
  166. 1590  POKE 36,H +CT: FOR Z = 1 TO (33 -CT): PRINT " ";: NEXT : RETURN 
  167. 1600  POKE 36,H +CT: FOR Z = 1 TO (39 -CT): PRINT " ";: NEXT : RETURN 
  168. 1610  POKE 36,H +CT: FOR Z = 1 TO (16 -CT): PRINT " ";: NEXT : RETURN 
  169. 1620  HOME : VTAB 10: POKE 36,15: PRINT "ARE YOU USING AN (E)PSON OR (A)PPLE TYPE PRINTER?"
  170. 1630  PRINT : POKE 36,30: INPUT "ENTER E OR A ====>";TP$
  171. 1640  IF TP$ = "E"  OR TP$ = "e"  THEN EP = 1:AP = 0
  172. 1650  IF TP$ = "A"  OR TP$ = "a"  THEN AP = 1:EP = 0
  173. 1660  GOTO 50
  174. 1670  HOME : VTAB 10: POKE 36,15: PRINT "YOU ARE ABOUT TO ERASE ALL ENTRIES...CONTINUE Y/N"
  175. 1680  PRINT : POKE 36,30: INPUT "ENTER Y OR N ====>";TP$
  176. 1690  IF TP$ = "Y"  OR TP$ = "y"  THEN  RUN 
  177. 1700  GOTO 50
  178. 1710  HOME : VTAB 10: POKE 36,15: PRINT "YOU ARE ABOUT TO EXIT THE PROGRAM...CONTINUE Y/N"
  179. 1720  PRINT : POKE 36,30: INPUT "ENTER Y OR N ====>";TP$
  180. 1730  IF TP$ = "Y"  OR TP$ = "y"  THEN  TEXT : HOME : END 
  181. 1740  GOTO 50
  182. 1750  TEXT : HOME : VTAB 9: HTAB 13: PRINT "CASSETTE LABEL": HTAB 11: PRINT "BY VERN L. MASTEL": HTAB 8: PRINT "(C) 1990 MINDCRAFT PUBL."
  183. 1760  VTAB 23: PRINT "PRESS <RETURN> TO BEGIN.";: INPUT "";YN$: RETURN 
  184. 1770  HOME : POKE 49153,0: POKE 49237,0: POKE 1024,123:F8 =  PEEK(1024) < >123: POKE 49236,0: POKE 49152,0: IF F8  THEN 1790: REM  CHECK FOR 80 COLUMN CARD
  185. 1780  RETURN 
  186. 1790  TEXT : HOME : VTAB 12: PRINT "SORRY, THIS PROGRAM REQUIRES AN 80": PRINT "COLUMN TEXT CARD."