home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / LABELMAG / LABELMAG.a7ae (.txt)
Encoding:
Commodore BASIC  |  2019-04-13  |  48.6 KB  |  407 lines
  1. 0 GOTO 2000
  2. 1 DIM F$(144)
  3. 2 POKE 53280,0:POKE53281,0:PRINT CHR$(14)
  4. 3 PRINT"[147]";
  5. 5 FOR T=1TO4
  6. 10 PRINT"             [158][164][175][185][162][184][184][184][146][162][185][175][164] "
  7. 20 PRINT"             [158][204][193][194][197][204][160][205][193][199][201][203]"
  8. 30 PRINT"             [158][164][175][185][162][162][162][162][162][185][175][164][146]"
  9. 40 PRINT"[155][195])[212][210][207][217][160][210][213][212][212][197][210]"
  10. 42 PRINT" [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  11. 43 FOR T=1TO18
  12. 44 PRINT" [221][146]                 [221][146]                  [221][146]"
  13. 45 NEXT T
  14. 46 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  15. 48 IF B=1 THEN 162
  16. 49 IF B=2 THEN 280
  17. 50 IF B=0 THEN GOTO 280
  18. 51 IF B=4 THEN 400
  19. 52 IF B=5 THEN 1090
  20. 53 IF B=6 THEN 1000
  21. 58 SYS 49152
  22. 59 PRINT""
  23. 60 FOR I=1TO143
  24. 61 IF I=18 THEN 120
  25. 70 PRINT TAB(2);"";
  26. 80 PRINT F$(I)
  27. 90 IF F$(I)=""THEN 260
  28. 100 NEXT I
  29. 103 PRINT"";
  30. 110 GOTO 70
  31. 120 PRINT""
  32. 121 FORI=18 TO 144
  33. 122 PRINT TAB(20);"";
  34. 123 IF I=35 THEN152
  35. 130 PRINT F$(I)
  36. 140 IF F$(I)="" THEN 260
  37. 141 NEXTI
  38. 150 GOTO 120
  39. 152 GET A$:IF A$=""THEN152
  40. 153 GOTO 160
  41. 160 B=1
  42. 161 GOTO 3
  43. 162 PRINT""
  44. 163 FOR I=36 TO 144
  45. 164 IF I=54 THEN 180
  46. 165 PRINT TAB(2);"";
  47. 166 PRINT F$(I)
  48. 167 IF F$(I)=""THEN 260
  49. 168 NEXT I
  50. 169 GOTO 164
  51. 180 PRINT""
  52. 190 FORI=72 TO 144
  53. 200 PRINT TAB(20);"";
  54. 210 IF I=90 THEN260
  55. 220 PRINT F$(I)
  56. 230 IF F$(I)=""THEN 260
  57. 240 NEXTI
  58. 250 GOTO 220
  59. 260 GET A$:IF A$=""THEN260
  60. 262 FOR H=1 TO 144
  61. 263 LET F$(H)=""
  62. 264 NEXT H
  63. 270 B=2:GOTO 3
  64. 280 PRINT""
  65. 285 PRINT"[198]1:[195]ATALOG [196]ISK":PRINT
  66. 290 PRINT"[198]3:[205]AKE [204]ABEL":PRINT
  67. 295 PRINT"[198]5:[196]ISK [213]TILITIES":PRINT
  68. 300 PRINT"[198]7:[195]HANGE [195]OLORS":PRINT
  69. 301 PRINT"[198]8:[209]UIT":PRINT
  70. 305 PRINT:PRINT
  71. 310 PRINT"[154][208]LEASE [211]ELECT [193]N"
  72. 315 PRINT"[154]    [207]PTION."
  73. 320 PRINT"[155][204]ABEL [205]AGIK:"
  74. 321 GOTO 2200
  75. 325 GET Y$:IFY$=""THEN 325
  76. 326 IF Y$="[133]"THEN B=3:GOTO3
  77. 327 IFY$="[134]"THEN B=4:GOTO 3
  78. 328 IF Y$="[135]"THEN B=5:GOTO 1090
  79. 329 IF Y$="[136]"THEN B=6:GOTO3
  80. 330 IF Y$="[140]"THEN GOTO 332
  81. 331 GOTO 325
  82. 332 PRINT:PRINT"[193]RE YOU SURE YOU"
  83. 333 PRINT"[215]ANT TO QUIT?"
  84. 334 GETY$:IFY$=""THEN334
  85. 335 IFY$="Y"THEN PRINT"[147][212]HANKS TO WHOEVER HAD AN IMPACT.":SYS64738
  86. 336 IFY$="[217]"THEN SYS 64738
  87. 337 GOTO 3
  88. 340 GOTO 325
  89. 400 PRINT""
  90. 401 PRINT"[153]  [208]RINT [211]TYLES":PRINT
  91. 402 PRINT"[205] : [205]AIN [205]ENU":PRINT
  92. 406 PRINT"[154][198]2:[197]XPANDED":PRINT
  93. 407 PRINT"[198]4:[206]ORMAL":PRINT
  94. 408 PRINT"[198]6:[195]ONDENSED":PRINT
  95. 409 PRINT"";
  96. 410 PRINTTAB(20);"[154]  [208]LEASE MAKE A"
  97. 411 PRINTTAB(20);"[154]     CHOICE   "
  98. 412 GETB$:IFB$=""THEN412
  99. 413 IF B$="[137]"THEN 500
  100. 414 IF B$="[138]"THEN 600
  101. 415 IF B$="[139]"THEN 700
  102. 416 IF B$="M"THEN B=0:GOTO3
  103. 417 GOTO 412
  104. 500 PRINT CHR$(14):PRINT"[147]";:PRINT"[155][195])[212][210][207][217][160][210][213][212][212][197][210][151]":CLOSE 1,4,7:CLOSE4,4
  105. 501 PRINT"[176][178][178][178][178][178][178][178][178][178][178][178][178][178][151][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]"
  106. 502 PRINT"[171][219][219][219][219][219][219][219][219][219][219][219][219][219][155][197][216][208][193][206][196][197][196][151][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][179]"
  107. 503 PRINT"[151][173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189]"
  108. 505 PRINTCHR$(8):PRINT"[152][145][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  109. 506 PRINT"[146][221][159][217]OU CAN HAVE 13 LETTERS, AND 3 LINES.[152][221]"
  110. 507 PRINT"[152][221][159]  [208]LEASE USE THE NUMBERS AS A GUIDE. [152][221]"
  111. 508 PRINT"[152][221][159]     [193]LL CHARACTERS ARE ACCEPTED.    [152][221]"
  112. 510 PRINT "[152][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  113. 511 PRINT"[152]         [208]LEASE [212]YPE [217]OUR [204]ABEL"
  114. 512 PRINT:PRINTTAB(13);"1234567890[193][194][195]":PRINT"";
  115. 519 J=13:L=3:C=L:K=13
  116. 520 GOTO 3000
  117. 521 GOSUB 9020
  118. 530 PRINT:PRINT"       [152]PLEASE MAKE SURE PRINTER IS"
  119. 531 PRINT"           READY AND HIT 'Y'."
  120. 532 GETV$:IFV$=""THEN532
  121. 533 IF V$<>"Y" THEN 532
  122. 535 PRINT#1,CHR$(15);CHR$(14);"";I$
  123. 536 PRINT#1,CHR$(15);CHR$(14);"";J$
  124. 537 PRINT#1,CHR$(15);CHR$(14);"";K$
  125. 538 CLOSE 1,4,7
  126. 539 C$="":D$="":E$=""
  127. 540 GOTO 3
  128. 600 PRINT"[147]";:PRINT"[155][195])[212][210][207][217][160][210][213][212][212][197][210][151]":CLOSE1,4,7:CLOSE4,4
  129. 601 PRINT"[176][178][178][178][178][178][178][178][178][178][178][178][178][178][151][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]"
  130. 602 PRINT"[171][219][219][219][219][219][219][219][219][219][219][219][219][219][219][155][206][207][210][205][193][204][151][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][179]"
  131. 603 PRINT"[151][173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189]"
  132. 605 PRINTCHR$(8):PRINT"[152][145][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  133. 606 PRINT"[221][159][217]OU CAN HAVE 29 LETTERS, AND 4 LINES.[152][221]"
  134. 607 PRINT"[221][159]  [208]LEASE USE THE NUMBERS AS A GUIDE  [152][221]"
  135. 608 PRINT"[221][159]     [193]LL CHARACTERS ARE ACCEPTED     [152][221]"
  136. 609 PRINT"[152][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  137. 611 PRINT:PRINT"[152]       [208]LEASE TYPE IN YOUR LABEL."
  138. 612 PRINT:PRINT"[152]     123456789[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212]";:PRINT""
  139. 613 J=29:L=4:C=4:K=5
  140. 615 GOTO 3000
  141. 620 GOSUB 9020
  142. 630 PRINT:PRINT"[152]      [208]LEASE MAKE SURE PRINTER IS"
  143. 631 PRINT"           READY AND HIT 'Y'."
  144. 632 GETV$:IFV$=""THEN632
  145. 633 IF V$<>"Y"THEN 632
  146. 634 PRINT#1,CHR$(146);"";I$
  147. 635 PRINT#1,CHR$(146);"";J$
  148. 636 PRINT#1,CHR$(146);"";K$
  149. 637 PRINT#1,CHR$(146);"";L$
  150. 638 CLOSE 1,4,7
  151. 639 I$="":J$="":K$="":L$=""
  152. 649 B=4:GOTO 3
  153. 700 PRINT"[147]";:PRINT"[155][195])[212][210][207][217][160][210][213][212][212][197][210][151]":CLOSE1,4,7:CLOSE4,4
  154. 701 PRINT"[176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]"
  155. 702 PRINT"[171][219][219][219][219][219][219][219][219][219][219][219][219][219][155][195][207][206][196][197][206][211][197][196][151][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][179]"
  156. 703 PRINT"[151][173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189]"
  157. 705 PRINT"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  158. 706 PRINT"[221][159][217]OU CAN HAVE 50 LETTERS, AND 5 LINES.[152][221]"
  159. 707 PRINT"[221][159]  [208]LEASE [213]SE THE [206]UMBERS AS A [199]UIDE. [152][221]"
  160. 708 PRINT"[221][159]      [193]LL [195]HRACTERS [193]RE [193]CCEPTED     [152][221]"
  161. 709 PRINT"[152][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  162. 711 PRINT:PRINT"[152]       PLEASE TYPE IN YOUR LABEL."
  163. 712 PRINT:PRINT"[152]123456789[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]ABCDEFGHIJKLMNO":PRINT"";
  164. 720 CLR:J=50:L=5:C=5
  165. 721 GOTO 3000
  166. 725 GOSUB 9020
  167. 730 PRINT:PRINT"[152]     [208]LEASE MAKE SURE PRINTER IS"
  168. 731 PRINT"         READY AND HIT 'Y'."
  169. 732 GETD$:IFD$=""THEN732
  170. 733 IF D$<>"Y"THEN 732
  171. 734 PRINT#1,CHR$(29);"";I$
  172. 735 PRINT#1,CHR$(29);"";J$
  173. 736 PRINT#1,CHR$(29);"";K$
  174. 737 PRINT#1,CHR$(29);"";L$
  175. 738 PRINT#1,CHR$(29);"";M$
  176. 739 CLOSE 1,4,7
  177. 740 I$="":J$="":K$="":L$="":M$=""
  178. 749 B=4:GOTO 3
  179. 1000 PRINT"[156]  BORDER CHANGE"
  180. 1001 PRINT"       ONLY"
  181. 1002 PRINT"1. BLACK"
  182. 1003 PRINT"2. WHITE"
  183. 1004 PRINT"3. RED"
  184. 1005 PRINT"4. CYAN"
  185. 1006 PRINT"5. PURPLE"
  186. 1007 PRINT"6. GREEN"
  187. 1008 PRINT"7. BLUE"
  188. 1009 PRINT"8. YELLOW"
  189. 1010 PRINT"9. ORANGE"
  190. 1011 PRINT"+. BROWN"
  191. 1012 PRINT"-. LT. RED"
  192. 1013 PRINT"\. DK. GREY"
  193. 1014 PRINT"@. MD. GREY"
  194. 1015 PRINT"*. LT. GREEN"
  195. 1016 PRINT"^. LT. BLUE"
  196. 1017 PRINT":. LT. GREY"
  197. 1018 PRINT"":PRINTTAB(20);"[154]   PLEASE MAKE A"
  198. 1019 PRINTTAB(20);"       CHOICE"
  199. 1020 GETJ$:IFJ$=""THEN1020
  200. 1021 IFJ$="1"THEN POKE 53280,0
  201. 1022 IFJ$="2"THEN POKE 53280,1
  202. 1023 IFJ$="3"THEN POKE 53280,2
  203. 1024 IFJ$="4"THEN POKE 53280,3
  204. 1025 IFJ$="5"THEN POKE 53280,4
  205. 1026 IFJ$="6"THEN POKE 53280,5
  206. 1027 IFJ$="7"THEN POKE 53280,6
  207. 1028 IFJ$="8"THEN POKE 53280,7
  208. 1029 IFJ$="9"THEN POKE 53280,8
  209. 1030 IFJ$="+"THEN POKE 53280,9
  210. 1031 IFJ$="-"THEN POKE 53280,10
  211. 1032 IFJ$="\"THEN POKE 53280,11
  212. 1033 IFJ$="@"THEN POKE 53280,12
  213. 1034 IFJ$="*"THEN POKE 53280,13
  214. 1035 IFJ$="^"THEN POKE 53280,14
  215. 1036 IFJ$=":"THEN POKE 53280,15
  216. 1037 B=0:GOTO3
  217. 1090 PRINT"[147]":CLOSE15,8,15:CLOSE3
  218. 1103 PRINT""
  219. 1104 PRINT"[152]        [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  220. 1105 PRINT"[152]        [221]   [198]:[198]ORMAT DISK   [221]"
  221. 1106 PRINT"[152]        [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  222. 1107 PRINT"[152]        [221]   [210]:[210]ENAME FILE   [221]"
  223. 1108 PRINT"[152]        [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  224. 1109 PRINT"[152]        [221]   [214]:[214]ALIDATE [196]ISK [221]"
  225. 1110 PRINT"[152]        [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  226. 1111 PRINT"[152]        [221]   [211]:[211]CRATCH [198]ILE  [221]"
  227. 1112 PRINT"[152]        [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  228. 1113 PRINT"[152]        [221]   [200]:[195]HANGE [200]EADER [221]"
  229. 1114 PRINT"[152]        [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  230. 1115 PRINT"[152]        [221]   [205]:[205]AIN [205]ENU     [221]"
  231. 1116 PRINT"[152]        [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  232. 1130 GETK$:IFK$=""THEN1130
  233. 1131 IF K$="F"THEN 1160
  234. 1132 IF K$="R"THEN 1190
  235. 1133 IF K$="S"THEN 2100
  236. 1134 IF K$="V"THEN 2120
  237. 1135 IF K$="M" THEN B=0:GOTO3
  238. 1136 IF K$="H" THEN GOTO 8000
  239. 1137 GOTO 1130
  240. 1160 PRINT
  241. 1161 OPEN 15,8,15:OPEN 3,8,15
  242. 1170 PRINTTAB(3);"[196]ISK NAME ";:J=15:L=1:I=1:GOTO 3000
  243. 1172 N$=I$:PRINTTAB(3);"[196]ISK ID ";:J=5:L=1:I=0:K=1:GOTO 3000
  244. 1174 K=0:ID$=I$:PRINT#3,"NEW:"+N$+","+ID$:GOSUB 1177
  245. 1175 CLOSE 3
  246. 1176 GOTO 1090
  247. 1177 INPUT#15,A$,B$,C$,D$
  248. 1178 IF A$="00"THEN RETURN
  249. 1179 PRINT:PRINTA$;",";B$;","C$;","=D$:CLOSE15:GOTO 1090
  250. 1190 PRINT
  251. 1191 A$="":PRINTTAB(3);"[207]LD NAME ";:J=15:L=1:M=1:GOTO 3000
  252. 1193 O$=I$:PRINTTAB(3);"[206]EW NAME ";:J=15:L=1:M=0:N=1:GOTO 3000
  253. 1195 N$=I$
  254. 1196 OPEN15,8,15:PRINT#15,"R0:"N$"="O$"
  255. 1197 [160]15
  256. 1198 [137] 1090
  257. 2000 [153] [199](14):[153] [199](8)
  258. 2001 [151] 251,64:[151]252,224:[151]253,204
  259. 2002 [158] 51456:[158]51459:[151]198,0
  260. 2003 [161]A$:[139]A$[178]""[167]2003
  261. 2004 [158] 51459:[137]1
  262. 2099 L[178]3
  263. 2100 [153]
  264. 2101 N[178]0:[153][163]3);"FILENAME ";:J[178]15:L[178]1:O[178]1:[137] 3000
  265. 2103 S$[178]I$:[159] 15,8,15:[152]15,"S0:";S$"
  266. 2104 CLOSE15
  267. 2105 GOTO 1090
  268. 2120 OPEN 15,8,15,"V0:":CLOSE 15:GOTO1090
  269. 2200 PRINTTAB(20);"WRITTEN BY:"
  270. 2201 PRINTTAB(20);"[150][212]ROY [210]UTTER":PRINT
  271. 2202 PRINTTAB(20);"[153][195]) 1991":PRINT
  272. 2203 PRINTTAB(20);"[156][198]OR [209]-[204]INK([212][205])":PRINT
  273. 2211 GOTO 325
  274. 2999 L=3
  275. 3000 FOR B=1TOL
  276. 3001 PRINTTAB(K);"[164][157]";
  277. 3010 FOR A=1TOJ
  278. 3020 GETZ$:IFZ$=""THEN3020
  279. 3021 IF Z$=CHR$(20) AND A=1 THEN GOTO 3020
  280. 3022 IF Z$=CHR$(17) THEN GOTO 3020
  281. 3023 IF Z$=CHR$(29) THEN GOTO 3020
  282. 3024 IF Z$=CHR$(13) THEN PRINT" ";:GOTO 3070
  283. 3025 IF Z$=CHR$(145) THEN GOTO 3020
  284. 3026 IF Z$=CHR$(157) THEN GOTO 3020
  285. 3030 IF Z$=CHR$(20) AND A<J+1THEN A$=LEFT$((A$),A-2):GOTO 7000
  286. 3040 PRINTTAB(K);"";Z$;"[164][157]";
  287. 3050 A$=A$+Z$
  288. 3060 NEXT A
  289. 3061 PRINT" ";
  290. 3070 IF B=1 THEN I$=A$:GOTO 3130
  291. 3080 IF B=2 THEN J$=A$:GOTO 3130
  292. 3090 IF B=3 THEN K$=A$:GOTO 3130
  293. 3100 IF B=4 THEN L$=A$:GOTO 3130
  294. 3110 IF B=5 THEN M$=A$:GOTO 3130
  295. 3130 A$="":PRINT
  296. 3133 NEXT B
  297. 3140 IF C=3THEN GOTO 521
  298. 3143 IF I=1THEN GOTO 1172
  299. 3144 IF K=1THEN GOTO 1174
  300. 3145 IF M=1THEN GOTO 1193
  301. 3146 IF N=1THEN GOTO 1195
  302. 3147 IF O=1THEN GOTO 2103
  303. 3150 IF C=4 THEN GOTO 620
  304. 3160 IF C=5 THEN GOTO 725
  305. 4007 POKE252,XR:POKE253,DR
  306. 7000 PRINTTAB(K);"";Z$;:A=A-1:GOTO 3020
  307. 8000 GOTO 8005
  308. 8001 GOTO 3
  309. 8005 DR=PEEK(251):IFDR<>8ANDDR<>9THENDR=PEEK(186)
  310. 8006 XR=17-DR:OPEN15,XR,15:CLOSE15:IFST<>0THENXR=DR
  311. 8007 POKE252,XR:POKE253,DR
  312. 8008 FORI=54272TO54296:POKEI,0:NEXT
  313. 8009 XR=8:DR=PEEK(253):PRINT"[147][151]":POKE2,0
  314. 8010 GOTO 9000
  315. 8014 GETA$:IFA$="M"THEN B=2:GOTO 3
  316. 8015 IFA$=""ORA$<"A"ORA$>"C"THEN 8014
  317. 8017 IFA$="A"THENGOSUB8044:CLOSE8
  318. 8018 IFA$="B"THENGOSUB8059:CLOSE8
  319. 8019 IFA$="C"THENGOSUB8044:CLOSE8:GOSUB8059
  320. 8020 PRINT#15,"I0":CLOSE15
  321. 8021 GOTO8009
  322. 8025 RETURN
  323. 8026 REM READ $
  324. 8027 OPEN1,XR,0,"$":GET#1,X$,X$
  325. 8028 GET#1,X$,X$
  326. 8029 GET#1,X$,Y$:Z$=MID$(STR$(ASC(X$+CHR$(0))+ASC(Y$+CHR$(0))*256),2)+CHR$(32)
  327. 8030 GET#1,X$:IFX$=""THEN8032
  328. 8031 W$=W$+X$:GOTO8030
  329. 8032 W$=Z$+W$:PRINT" [195]URRENT [200]DR:";W$;"[151]"
  330. 8033 CLOSE1:RETURN
  331. 8034 INPUT#15,EN,EM$,ET,ES
  332. 8035 IFEN>20ORZ=1THEN8037
  333. 8036 RETURN
  334. 8037 PRINT:PRINT"[145]       "EN;EM$;ET;ES;"[145][151]"
  335. 8038 GOSUB8025
  336. 8039 IFEN<21THENGOTO8042
  337. 8040 POKE2,77:PRINT"           [208]RESS [193]NY [203]EY":POKE198,0:WAIT198,1
  338. 8041 LE=99:RETURN
  339. 8042 FORI=1TO2500:NEXT
  340. 8043 RETURN
  341. 8044 PRINT"[152]          [201]NSERT [196]ISK [212]O [195]HANGE":POKE198,0:WAIT198,1:Z=0
  342. 8045 OPEN15,XR,15,"I0":GOSUB8034:IFPEEK(2)=77THENRETURN
  343. 8046 GOSUB8026
  344. 8047 PRINT"[152] [197]NTER [200]DR [206]AME:";
  345. 8048 K=1:GOSUB8076:IFLE=99THENPRINT:PRINT"[145]":RETURN
  346. 8049 OPEN8,XR,8,"#"
  347. 8050 PRINT#15,"U1";8;0;18;0:GOSUB8034:IFPEEK(2)=77THENRETURN
  348. 8051 PRINT#15,"B-P:"8;144
  349. 8052 FORI=1TOLE
  350. 8053 XX=ASC(MID$(NN$,I,1)):PRINT#8,CHR$(XX);
  351. 8054 NEXT:IFLE=16THEN8058
  352. 8055 FORI=LE+1TO16
  353. 8056 PRINT#8,CHR$(160);
  354. 8057 NEXT
  355. 8058 PRINT#15,"U2";8;0;18;0:Z=1:GOSUB8034:RETURN
  356. 8059 IFA$="B"THEN PRINT"[152]         [201]NSERT [196]ISK [212]O [195]HANGE":POKE198,0:WAIT198,1
  357. 8060 IFA$="B"THENOPEN15,XR,15,"I0":GOSUB8034:IFPEEK(2)=77THENRETURN
  358. 8061 IFA$="B"THENGOSUB8026
  359. 8062 IFLE=99THENRETURN
  360. 8063 PRINT"[152] [197]NTER [201][196] (5 [195]HAR. [205]AX):";
  361. 8064 K=2:Z=0:GOSUB8076:IFLE=99THENRETURN
  362. 8065 OPEN8,XR,8,"#"
  363. 8066 PRINT#15,"U1";8;0;18;0:GOSUB8034:IFPEEK(2)=77THENRETURN
  364. 8067 PRINT#15,"B-P:"8;162
  365. 8068 FORI=1TOLE
  366. 8069 XX=ASC(MID$(NN$,I,1)):PRINT#8,CHR$(XX);
  367. 8070 NEXT
  368. 8071 IFLE=5THEN8075
  369. 8072 FORI=LE+1TO5
  370. 8073 PRINT#8,CHR$(32);
  371. 8074 NEXT
  372. 8075 PRINT#15,"U2";8;0;18;0:Z=1:GOSUB8034:RETURN
  373. 8076 LE=0:NN$="":POKE198,0:REM  INPUT
  374. 8077 POKE204,0:POKE207,0
  375. 8078 GETX$
  376. 8079 IFPEEK(653)=2THENPRINT" ";:POKE204,1:LE=99:RETURN
  377. 8080 IFX$=""THEN8078
  378. 8081 IFX$=CHR$(13)THENPRINT" ";:POKE204,1:GOTO8088
  379. 8082 IFASC(X$)=20ANDLEN(NN$)>0THENNN$=LEFT$(NN$,LEN(NN$)-1):GOTO8087
  380. 8083 IFNOT((X$>CHR$(31)ANDX$<CHR$(128))OR(X$>CHR$(159)))THEN8077
  381. 8084 IFK=1THENIFLEN(NN$)<16THENNN$=NN$+X$:GOTO8087
  382. 8085 IFK=2THENIFLEN(NN$)<5THENNN$=NN$+X$:GOTO8087
  383. 8086 GOTO8077
  384. 8087 PRINTX$;:GOTO8077
  385. 8088 LE=LEN(NN$):IFLE<1THENPRINT"[157]";:GOTO8077
  386. 8089 PRINT:PRINT"[145]"
  387. 8090 RETURN
  388. 9000 PRINT"[147][152]       [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  389. 9001 PRINT"       [221] [195]HOOSE [207]PTION [194]Y [204]ETTER[221]"
  390. 9002 PRINT"       [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  391. 9003 PRINT"       [221]   [193].[195]HANGE [200]EADER      [221]"
  392. 9004 PRINT"       [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  393. 9005 PRINT"       [221]   [194].[195]HANGE [201][196] (5 [195]HARS)[221]"
  394. 9006 PRINT"       [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  395. 9007 PRINT"       [221]   [195].[195]HANGE [200]EADER & [201][196] [221]"
  396. 9008 PRINT"       [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  397. 9009 PRINT"       [221]   [205].[205]AIN [205]ENU          [221]"
  398. 9010 PRINT"       [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  399. 9011 X$="":W$="":GOTO 8014
  400. 9020 OPEN 4,4
  401. 9021 PRINT
  402. 9030 PRINT#4:IFNOTPEEK(144)AND128THENCLOSE4:GOTO 9050
  403. 9040 PRINT"[145]      [208]LEASE [212]URN [208]RINTER [207]N.":GOTO 9030
  404. 9050 OPEN 1,4,7
  405. 9061 PRINT#1,CHR$(27);"@"
  406. 9070 RETURN
  407.