home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504a.d64 / make-chr (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  14KB  |  596 lines
  1. 1 GOTO10
  2. 2 *************************************
  3. 3 *                                   *
  4. 4 *    RAINER BUESCH                  *
  5. 5 *    REISINGERSTR.6                 *
  6. 6 *    8000 MUENSCHEN 2               *
  7. 7 *    TEL. 537218                    *
  8. 8 *                                   *
  9. 9 *************************************
  10. 10 POKE 650,128 :REM TASTEN-REPEAT
  11. 20 PRINTCHR$(142);CHR$(8):REM LETTERS BLOCKED
  12. 30 POKE53280,11:POKE53281,12:REM FARBE
  13. 40 PRINTCHR$(144);
  14. 50 OPEN3,4,4
  15. 54 PRINT#3,CHR$(7) :REM BEEP
  16. 60 PRINT#3,CHR$(27);"U";CHR$(1);
  17. 98 GOTO200
  18. 99 :
  19. 200 REM WERTZUWEISUNGEN ***************
  20. 202 DIM ZA$(18) :REM READ RECORD
  21. 204 DIM ZA(18)  :REM DITO
  22. 206 DIM RC$(256):REM COP-VARIABLE
  23. 208 A=139:REM ATTRIBUTE A
  24. 210 PA=1348 :REM SCREENRAM
  25. 212 PO=1 :REM RECORD POSITION
  26. 214 N=18 :REM LAENGE DES RECORD
  27. 220 PC=55620:REM FARBRAM
  28. 230 XY=PA+X+Y*40 :REM SCREEN-POS
  29. 240 CO=PC+X+Y*40 :REM COLOR
  30. 244 FOR I=0TO7:READ F(I):NEXT
  31. 246 DATA 128,64,32,16,8,4,2,1
  32. 248 DIM P(11):REM OUT FOR PRINTER
  33. 260 AS=32              :REM ASCI-CODE
  34. 262 AB=32              :REM ASCI-ANFANG
  35. 264 AA=1               :REM ASCI-ANFANG
  36. 266 AE=254             :REM ASCI-ENDE
  37. 270 LS=12              :REM LINE-SPACE
  38. 272 SA=0               :REM SCHRIFTART
  39. 280 RO$=CHR$(5)+"ROM"+CHR$(144)+"/RAM"
  40. 282 RA$="ROM/"+CHR$(5)+"RAM"+CHR$(144)
  41. 284 RM$=RO$:FL=1
  42. 999 :
  43. 1000 REM MENUE ************************
  44. 1010 PRINT"[147]":GX$=""
  45. 1015 PRINTCHR$(31);" [169][213][192][192][192][192][192][201]                      [213][192][192][192][192][192][201][223][146]";CHR$(144)
  46. 1020 PRINTCHR$(31);"  *  *  [171][192][192][192][192][192] MAKE-CHR  [195][192][192][192][192][192][179]  *  * [146]";CHR$(144)
  47. 1025 PRINTCHR$(31);" [223]   [202][192][192][203]                      [202][192][192][203]   [146][169]";CHR$(144)
  48. 1030 PRINT:PRINT
  49. 1040 PRINTTAB(5);"(1) - ERSTELLE ZEICHENSATZ
  50. 1050 [153][163]5);"(2) - SENDE ZEICHENSATZ ZU DRUCKER"
  51. 1060 [153][163]5);"(3) - DRUCKER-HANDLING "
  52. 1070 [153][163]5);"(4) - ";[199](155);"OEFFNEN EINER REL-DATEI";[199](144)
  53. 1084 [153][163]5);"(5) - ";[199](155);"COPY SINGLE CHR ";[199](144)
  54. 1086 [153][163]5);"(6) - ";[199](155);"COPY CHR-DATEI ";[199](144)
  55. 1090 [153][163]5);"JOYSTICK IN PORT 2 !"
  56. 1100 [161]G$
  57. 1101 GZ[178]GZ[170]G
  58. 1102 [139] GZ[178]420[167]G[178][171]1:[153]""[166]14)"BY R.BUESCH"
  59. 1104 [139] GZ[178] 0 [167]G[178] 1:[153]""[166]14)" MAKE-CHR  "
  60. 1108 [139] G$[178]"" [137]1100
  61. 1110 [139] G$[178]"1" [167] 7000
  62. 1120 [139] G$[178]"2" [167] 6000
  63. 1130 [139] G$[178]"3" [167] 2000
  64. 1140 [139] G$[178]"4" [167] 5000
  65. 1160 [139] G$[178]"5" [167] 10500
  66. 1170 [139] G$[178]"6" [167] 12000
  67. 1190 [137]1100
  68. 1999 :
  69. 2000 [143] DRUCKER-HANDLING *************
  70. 2020 [153]"LOAD  ******* DRUCKER-HANDLING *********** WAIT"
  71. 2030 [153]:[153]
  72. 2040 [153][163]6);"(1) - COPY CHR ROM -> RAM"
  73. 2042 [153][163]6);"(2) - WAEHLE ";RM$
  74. 2050 [153][163]6);"(3) - WAEHLE LINE-SPACE"
  75. 2054 [153][163]6);"(4) - WAEHLE SCHRIFTART"
  76. 2060 [153][163]6);"(5) - ";[199](155);"TESTE DRUCKER ";[199](144)
  77. 2100 [161]G$:[139]G$[178]""[167]2100
  78. 2110 [139] G$[178]"1" [167] [141]9100:[137]2020
  79. 2120 [139] G$[178]"2" [167] [141]9120:[137]2020
  80. 2132 [139] G$[178]"3" [167] [141]9160:[137]2020
  81. 2134 [139] G$[178]"4" [167] [141]9180:[137]2020
  82. 2136 [139] G$[178]"5" [167] [141]6500:[137]2020
  83. 2140 [139] G$[178]"_" [167]1000 :[143] MENUE
  84. 2160 [137] 2000
  85. 4999 :
  86. 5000 [143] OEFFNE RECORD DATEI **********
  87. 5010 [153]"LOAD"
  88. 5020 [153]"  NAME DER RECORD DATEI ?"
  89. 5030 [153]"   ";NA$;" WAIT ";[199](5);
  90. 5040 GX$[178]NA$:[141]15000:[143] INPUT
  91. 5041 [139] GX$[178]"_" [137]1000
  92. 5042 NA$[178]GX$:[153][199](144)
  93. 5044 NX$[178]NA$
  94. 5050 [153]:[153][199](31);"   ";NA$;" WAIT ";[199](144);"WIRD ERSTELLT"
  95. 5060 [141] 10000
  96. 5064 [159]2,8,15
  97. 5070 [141]6700:[143] DISC-ERROR
  98. 5085 [160]2
  99. 5090 [137] 1000
  100. 5999 :
  101. 6000 [143] SEND RECORD TO PRINTER *******
  102. 6010 [153]"LOADWELCHER ZEICHENSATZ SOLL UEBERTRAGEN
  103. 6012 PRINT"  WERDEN  ?
  104. 6013 [153]"   ";NA$;" WAIT ";[199](5);
  105. 6020 GX$[178]NA$:[141]15000:[143] INPUT
  106. 6021 [139] GX$[178]"_" [137]1000
  107. 6022 NA$[178]GX$:[153][199](144)
  108. 6023 NX$[178]NA$
  109. 6024 [139] [200](NA$,3)[178]"BIG"[167]LS[178]8
  110. 6025 [153]"   WELCHE ASCI-CODES ?":[153]
  111. 6026 [153]"  VON  ";AA;"CMD WAIT ";[199](5);
  112. 6027 GA[178]1:GX$[178][196](AA):[141]15000:[143] INPUT
  113. 6028 [139] GX$[178]"_"[137]1000
  114. 6029 AA[178][197](GX$)
  115. 6030 [139] AA[177]256 [137]6027
  116. 6032 [153][199](144):[153]
  117. 6040 [153]"  BIS  ";AE;"CMD WAIT ";[199](5);
  118. 6042 GA[178]1:GX$[178][196](AE):[141]15000:[143] INPUT
  119. 6044 [139] GX$[178]"_"[137]1000
  120. 6046 AE[178][197](GX$)
  121. 6048 [139] AE[177]256 [137]6042
  122. 6050 [153][199](144):[153]
  123. 6054 [159]1,8,2,NA$
  124. 6056 [159]2,8,15
  125. 6058 [141]6700:[143] DISC-ERROR
  126. 6060 AS[178]AA
  127. 6070 [152]2,"P"[170][199](98)[170][199](AS)[170][199](0)[170][199](1)
  128. 6075 [129]I[178]1[164]17:[139]VA[178]1[167] [137]6180
  129. 6080 [161]#1,RC$:[139] RC$[178]""[167]RC$[178][199](0)
  130. 6120 [139] I[178]1 [167] [137]6300:[143] TESTE ZEICHEN
  131. 6150 [152]3,RC$;
  132. 6170 RC$[178]""
  133. 6180 [130]I
  134. 6182 [141]6700:[143] DISC-ERROR
  135. 6190 [153][199](5);"  ASCI = ";AS;"CMD WAIT                  ON";[199](144)
  136. 6195 RK$[178]"":VA[178]0
  137. 6198 AS[178]AS[170]1
  138. 6200 [139]AS[179][178]AE [137]6070
  139. 6220 [160]2:[160]1
  140. 6230 [141]9140:[143] SEL.RAM
  141. 6240 [141]6500:[143] TESTE PRINTER
  142. 6298 [137]1000:[143] MENUE
  143. 6300 [143] TESTE ZEICHEN ****************
  144. 6310 [139]RC$[178][199](255)[167] [153][166]17);"RECORD EMPTYON":RC$[178]"":VA[178]1:[137]6180
  145. 6320 [137]6150
  146. 6499 :
  147. 6500 [143] TEST DRUCKER *****************
  148. 6505 [141]9194:[143] SET SCHRIFT
  149. 6506 [141]9174:[143] SET LINE-SPACE
  150. 6510 [129]I[178]1 [164] 64 :[141]6540:[130]:[152]3,[199](10)
  151. 6512 [129]I[178]128[164]192:[141]6540:[130]:[152]3,[199](10)
  152. 6514 [129]I[178] 65[164] 96:[141]6540:[130]:[152]3,[199](10)
  153. 6516 [129]I[178]193[164]224:[141]6540:[130]:[152]3,[199](10)
  154. 6518 [129]I[178] 97[164]126:[141]6540:[130]:[152]3,[199](10)
  155. 6520 [129]I[178]225[164]254:[141]6540:[130]:[152]3,[199](10)
  156. 6530 [152]3,[199](13)
  157. 6532 [142]
  158. 6540 [139]I[178]7  [167] I[178]28
  159. 6542 [139]I[178]127[167] I[178]128
  160. 6544 [139]I[178]135[167] I[178]156
  161. 6580 [152]3,[199](I);
  162. 6590 [142]
  163. 6600 [143] BEEP *************************
  164. 6620 [129] I[178]1[164]3
  165. 6630 [152]3,[199](7);:[129] K[178]1[164]150:[130]
  166. 6640 [130]I
  167. 6660 [142]
  168. 6699 :
  169. 6700 [143] INPUT DISC-ERROR *************
  170. 6710 [132]2,E,E$,E1,E2
  171. 6720 [139] E[179][177]0 [167][160]1:[160]2:[137]6800
  172. 6730 [142]
  173. 6800 [153]"LOAD  ERROR ON DISC: ";[199](5);E$;[199](144)
  174. 6802 [153]"  PRESS ANY KEY TO RESTART !
  175. 6810 GETG$:IFG$=""GOTO6810
  176. 6820 RUN
  177. 6999 :
  178. 7000 REM ERSTELLE ZEICHEN *************
  179. 7010 PRINT"[147]"
  180. 7020 PRINT"  AUS WELCHER DATEI WILLST DU LESEN ?"
  181. 7022 PRINT"   ";NX$;" [146] ";CHR$(5);
  182. 7030 GX$=NX$:GOSUB15000:REM INPUT
  183. 7031 IF GX$="_" GOTO1000
  184. 7032 NX$=GX$:PRINTCHR$(144):PRINT:PRINT
  185. 7050 IF NY$=""THEN NY$=NX$
  186. 7052 PRINT"  IN WELCHE DATEI WILLST DU SCHREIBEN ?"
  187. 7054 PRINT"   ";NY$;" [146] ";CHR$(5);
  188. 7058 GX$=NY$:GOSUB15000:REM INPUT
  189. 7059 IF GX$="_" GOTO1000
  190. 7060 NY$=GX$:PRINTCHR$(144):PRINT
  191. 7070 PRINT"[147]"
  192. 7100 GOSUB10100:REM ZEICHENEINGABE
  193. 7110 IF GX$="_" GOTO1000:REM MENU
  194. 7199 :
  195. 7200 REM ABFRAGE **********************
  196. 7210 G$="":GETG$
  197. 7215 IF G$="N" THEN GOSUB9900:GOSUB 8700 :REM LOESCHE & ANFANGSPOS
  198. 7218 IF G$="9" THEN GOSUB8500            :REM 9-DOTS
  199. 7220 IF G$="_" GOTO1000:REM MENUE
  200. 7222 IF G$="F" THEN GOSUB11000:GOSUB8700:REM FILL & ANFANGSPOS
  201. 7230 IF G$=CHR$(13) THEN GOSUB10100:REM EINGABE
  202. 7348 IF G$=CHR$(136)THEN GOSUB9400:GOTO 8800:REM LESE NACHSTES ZEICHEN
  203. 7350 IF G$=CHR$(133)THEN GOTO 7400:REM SAVEN
  204. 7360 IF G$="[145]" THEN DY=-1:GOTO8400
  205. 7362 IF G$="" THEN DY= 1:GOTO8400
  206. 7364 IF G$="[157]" THEN DX=-1:GOTO8400
  207. 7366 IF G$="" THEN DX= 1:GOTO8400
  208. 7367 IF G$="[192]" THEN GOSUB9800
  209. 7368 IF G$="*" THEN GOSUB9800
  210. 7390 GOTO 7500: REM JOYSTICK
  211. 7399 :
  212. 7400 GOSUB9000 :REM ALTES FELD
  213. 7410 GOSUB8600 :REM WRITE RECORD
  214. 7415 A=139:GOSUB8550:REM RESET 9DOTS
  215. 7420 AS=AS+1:REM INCREM. ASCI
  216. 7450 GOTO 7100 :REM NEUE EINGABE
  217. 7499 :
  218. 7500 REM JOYSTICK *********************
  219. 7600 P =PEEK(56320)
  220. 7610 JU= PAND1
  221. 7620 JD= (PAND2)/2
  222. 7630 JL= (PAND4)/4
  223. 7640 JR= (PAND8)/8
  224. 7650 FR= (PAND16)/16
  225. 7680 FORI=1TO300:NEXT
  226. 7690 :
  227. 7720 IF JU=0   THEN DY=-1:GOTO8400
  228. 7730 IF JD=0   THEN DY= 1:GOTO8400
  229. 7740 IF JL=0   THEN DX=-1:GOTO8400
  230. 7750 IF JR=0   THEN DX= 1:GOTO8400
  231. 7755 IF FR=1 THEN FA=1
  232. 7760 IF FR=0 THEN GOSUB8200:REM TEST-FR
  233. 7790 GOTO7210 :REM ABFRAGE
  234. 7799 :
  235. 8200 REM TEST-FR **********************
  236. 8210 IF FR<>FA THEN FA=0:GOSUB9800:RETURN:REM STAR/BLANK
  237. 8220 IF M=0 THEN GOSUB9600:RETURN:REM STAR
  238. 8230 GOSUB9700:RETURN:REM BLANK
  239. 8299 :
  240. 8400 REM PRINT*************************
  241. 8410 IF Y+DY>7 THEN DY=0: GOTO7210
  242. 8415 IF Y+DY<0 THEN DY=0: GOTO7210
  243. 8420 IF X+DX>10THEN DX=0: GOTO7210
  244. 8425 IF X+DX<0 THEN DX=0: GOTO7210
  245. 8430 GOSUB 9400
  246. 8432 X=X+DX:Y=Y+DY
  247. 8440 XY=PA+X+Y*40
  248. 8442 CO=PC+X+Y*40
  249. 8450 GOSUB 9500
  250. 8455 DX=0:DY=0
  251. 8460 GOTO7210
  252. 8499 :
  253. 8500 REM ATTRIBUTE A ******************
  254. 8504 IFA=139THENA=11:GOSUB8550:RETURN
  255. 8508 IFA=11THENA=139:GOSUB8550:RETURN
  256. 8510 RETURN
  257. 8550 IF A=139 THENDO$="                  "
  258. 8560 IF A=11  THEN DO$=CHR$(5)+"    9DOT ACTIV  [146]"+CHR$(144)
  259. 8570 PRINT"";DO$
  260. 8590 RETURN
  261. 8599 :
  262. 8600 REM WRITE RECORD *****************
  263. 8604 NA$=NY$
  264. 8610 XR$=CHR$(27)+"&"+CHR$(0)+CHR$(AS)+CHR$(AS)+CHR$(A)
  265. 8640 FORI=0TO10:YR$=YR$+CHR$(P(I)):NEXT
  266. 8645 ZR$=XR$+YR$
  267. 8660 OPEN1,8,2,NA$
  268. 8662 OPEN2,8,15
  269. 8664 PRINT#2,"P"+CHR$(98)+CHR$(AS)+CHR$(0)+CHR$(1)
  270. 8666 PRINT#1,ZR$
  271. 8670 GOSUB6700:REM DISC-ERROR
  272. 8680 CLOSE1:CLOSE2
  273. 8682 FOR I=0TO10:P(I)=0:NEXT
  274. 8684 YR$=""
  275. 8690 RETURN
  276. 8699 :
  277. 8700 REM ANFANGSPOSITION **************
  278. 8710 X=0:Y=0
  279. 8712 XY=PA+X+Y*40
  280. 8714 CO=PC+X+Y*40
  281. 8750 GOSUB 9500:REM NEUES FELD
  282. 8760 RETURN
  283. 8799 :
  284. 8800 REM READ & DISPLAY ***************
  285. 8802 NA$=NX$
  286. 8804 GOSUB 9900: REM NEW
  287. 8810 OPEN1,8,2,NA$
  288. 8812 OPEN2,8,15
  289. 8820 PRINT#2,"P"+CHR$(98)+CHR$(AS)+CHR$(0)+CHR$(6)
  290. 8830 FOR I= 0TO11
  291. 8835 GOSUB6700:REM DISC-ERROR
  292. 8840 GET#1,ZA$
  293. 8841 ZA(I)=ASC(ZA$+CHR$(0))
  294. 8842 IF ZA(0)=139THENA=139:GOSUB8550
  295. 8843 IF ZA(0)=11 THENA=11 :GOSUB8550
  296. 8844 NEXT
  297. 8846 CLOSE1:CLOSE2
  298. 8847 :
  299. 8850 FOR X=0TO10
  300. 8852 FOR Y=0TO7
  301. 8854 XY=PA+X+Y*40
  302. 8856 CO=PC+X+Y*40
  303. 8860 IF F(Y)=(ZA(X+1)ANDF(Y)) THEN POKEXY,42:POKECO,1
  304. 8864 NEXTY
  305. 8868 NEXTX
  306. 8885 GOSUB8700:REM ANFANGSPOS
  307. 8890 GOTO7100:REM NEUEINGABE
  308. 8899 :
  309. 9000 REM UMRECHNUNG *******************
  310. 9004 GOSUB9400: REM ALTES FELD
  311. 9010 FOR X=0TO10
  312. 9020 FOR Y=0TO7
  313. 9022 XY=PA+X+Y*40
  314. 9030 IF PEEK(XY)=42 THEN P(X)=P(X)+F(Y)
  315. 9040 NEXTY:NEXTX
  316. 9090 RETURN
  317. 9100 REM COPY CHR-ROM TO RAM **********
  318. 9104 PRINT#3,CHR$(27);":";CHR$(0);CHR$(0);CHR$(0);CHR$(7);:RETURN
  319. 9120 REM SELECT CHR-ROM/RAM ***********
  320. 9124 IFFL=1GOTO9140
  321. 9126 RM$=RO$:FL=1
  322. 9130 PRINT#3,CHR$(27);"%";CHR$(0);CHR$(0);CHR$(7):RETURN
  323. 9140 RM$=RA$:FL=0:REM SEL.RAM
  324. 9144 PRINT#3,CHR$(27);"%";CHR$(1);CHR$(0);CHR$(7);:RETURN
  325. 9160 REM LINE-SPACE *******************
  326. 9164 PRINT"[147]  WELCHEN ZEILENABSTAND WILLST DU ?
  327. 9168 [153]"  (0-85) "LS"CMD WAIT "[199](5);
  328. 9170 GX$[178][196](LS):[141]15000:LS[178][197](GX$):[139]LS[177]85[167]9160
  329. 9172 [153][199](144):[153]
  330. 9174 [152]3,[199](27);"A";[199](LS);[199](7);
  331. 9178 [142]
  332. 9180 [143] SCHRIFTART *******************
  333. 9182 [153]"LOAD  WELCHE SCHRIFTART WILLST DU ?
  334. 9184 PRINT"  (0-64) "SA"[157] [146] "CHR$(5);
  335. 9186 GX$=STR$(SA):GOSUB15000:SA=VAL(GX$):IFSA>64THEN9180
  336. 9188 PRINTCHR$(144):PRINT
  337. 9194 PRINT#3,CHR$(27);"!";CHR$(SA);CHR$(7);
  338. 9198 RETURN
  339. 9398 END
  340. 9399 :
  341. 9400 REM ALTES FELD *******************
  342. 9410 IF PEEK(XY)=170 THEN POKEXY,42:POKECO,1
  343. 9420 IF PEEK(XY)=160 THEN POKEXY,32:POKECO,1
  344. 9450 RETURN
  345. 9499 :
  346. 9500 REM NEUES FELD *******************
  347. 9510 IF PEEK(XY)=42  THEN POKEXY,170:POKECO,1
  348. 9520 IF PEEK(XY)=32  THEN POKEXY,160:POKECO,1
  349. 9550 RETURN
  350. 9599 :
  351. 9600 REM PRINT STAR *******************
  352. 9610 POKEXY,170:POKEPC,1
  353. 9650 RETURN
  354. 9699 :
  355. 9700 REM PRINT BLANK ******************
  356. 9710 POKEXY,160:POKEPC,1
  357. 9750 RETURN
  358. 9799 :
  359. 9800 REM PRINT BLANK/STAR *************
  360. 9810 IF PEEK(XY)=170 THEN POKEXY,160:POKECO,1:M=1:RETURN
  361. 9820 IF PEEK(XY)=160 THEN POKEXY,170:POKECO,1:M=0:RETURN
  362. 9899 :
  363. 9900 REM NEW **************************
  364. 9910 FOR Y=0TO 7
  365. 9915 FOR X=0TO10
  366. 9916 XY=PA+X+Y*40
  367. 9918 CO=PC+X+Y*40
  368. 9920 POKEXY,32:POKECO,5
  369. 9930 NEXTX:NEXTY
  370. 9950 RETURN
  371. 9999 :
  372. 10000 REM OEFFNE RECORD DATEI *********
  373. 10010 OPEN1,8,2,NA$+",L,"+CHR$(18)
  374. 10020 OPEN2,8,15
  375. 10030 PRINT#2,"P"+CHR$(98)+CHR$(255)+CHR$(0)+CHR$(1)
  376. 10040 PRINT#1,CHR$(255):REM FREIGEBEN
  377. 10050 PRINT#2,"I"
  378. 10060 CLOSE1:CLOSE2
  379. 10070 RETURN
  380. 10099 :
  381. 10100 REM ZEICHENEINGABE **************
  382. 10104 GOSUB 9400 :REM ALTES FELD
  383. 10110 PRINT"  ";NX$;"->";NY$;" [146]";TAB(25);" ASCI [146]";TAB(33);" CHR [146]"
  384. 10111 PRINTCHR$(5);TAB(25);AS;"[157]   ";TAB(35);
  385. 10112 IFAS>32 AND AS<128 THEN PRINTCHR$(AS);:GOTO10120
  386. 10114 IFAS>160AND AS<256 THEN PRINTCHR$(AS);:GOTO10120
  387. 10116 PRINTTAB(34);"  ";
  388. 10120 PRINT:PRINTCHR$(144)
  389. 10130 PRINT"  WHICH ASCI-CODE         [157][157][157][157][157][157][157][157]";CHR$(5);
  390. 10140 GX$=STR$(AS):GA=1:GOSUB15000:REM INPUT
  391. 10142 IF GX$="_" THENRETURN
  392. 10144 AS=VAL(GX$):PRINTCHR$(144)
  393. 10146 IF AS=0 THEN 10100
  394. 10150 IF AS>255 GOTO 10100
  395. 10160 PRINT"";DO$;""
  396. 10180 PRINT"   [213][195][178][195][178][195][178][195][178][195][178][195][201]   [169]                [223][146]"
  397. 10190 PRINT"   [221]";SPC(11);"[221]     ** MAKE-CHR **  [146]"
  398. 10200 PRINT"   [221]";SPC(11);"[221]   [223]                [146][169]"
  399. 10220 PRINT"   [221]";SPC(11);"[221]
  400. 10230 [153]"   (null)";[166]11);"(null)      RET = ASCI
  401. 10240 PRINT"   [221]";SPC(11);"[221]        _ = MENUE
  402. 10250 [153]"   (null)";[166]11);"(null)        F = FILL
  403. 10260 PRINT"   [221]";SPC(11);"[221]        N = NEW
  404. 10270 [153]"   (null)";[166]11);"(null)        9 = 9DOTS
  405. 10280 PRINT"   [202][195][177][195][177][195][177][195][177][195][177][195][203]";CHR$(5);"       F7";CHR$(144);" = READ
  406. 10290 [153][163]23);[199](5);"F1";[199](144);" = SAVE
  407. 10292 PRINT"  PRINT YOUR CHARACTER
  408. 10294 [153]"  WITH";[199](5);" JOYSTIC 2";[199](144)
  409. 10296 [153]"  OR  ";[199](5);" CRSR/*";[199](144)
  410. 10310 [141] 8700:[143] ANFANGSPOSITION
  411. 10320 [142]
  412. 10399 :
  413. 10500 [143] COPY FILES ******************
  414. 10550 [153]"LOAD AUS WELCHER DATEI WIRD COPIERT ?
  415. 10560 PRINT"   ";NX$;" [146] ";CHR$(5);
  416. 10570 GX$=NX$:GOSUB15000:REM INPUT
  417. 10571 IF GX$="_" GOTO1000
  418. 10572 NX$=GX$:PRINTCHR$(144):PRINT
  419. 10574 IFNX$="_"THEN1000:REM MENUE
  420. 10580 PRINT"  VON ASCI "AA"[157] [146] ";CHR$(5);
  421. 10590 GA=1:GX$=STR$(AA):GOSUB15000:REM INPUT
  422. 10592 IF GX$="_"GOTO1000
  423. 10594 AA=VAL(GX$)
  424. 10596 IF AA>256 GOTO10590
  425. 10598 PRINTCHR$(144):PRINT
  426. 10600 PRINT"  BIS ASCI "AE"[157] [146] ";CHR$(5);
  427. 10605 GA=1:GX$=STR$(AE):GOSUB15000:REM INPUT
  428. 10606 IF GX$="_"GOTO1000
  429. 10607 AE=VAL(GX$)
  430. 10608 IF AE>256 GOTO10605
  431. 10610 PRINTCHR$(144):PRINT""
  432. 10620 PRINT"  IN WELCHE DATEI WIRD COPIERT ?"
  433. 10630 PRINT"   ";NY$;" [146] ";CHR$(5);
  434. 10640 GX$=NY$:GOSUB15000:REM INPUT
  435. 10641 IF GX$="_" GOTO1000
  436. 10642 NY$=GX$:PRINTCHR$(144):PRINT
  437. 10644 IFNY$="_"THEN1000:REM MENUE
  438. 10650 PRINT"  AB  ASCI "AB"[157] [146] ";CHR$(5);
  439. 10660 GA=1:GX$=STR$(AB):GOSUB15000:REM INPUT
  440. 10661 IF GX$="_"GOTO1000
  441. 10662 AB=VAL(GX$)
  442. 10666 IF AB>256 GOTO10590
  443. 10668 PRINTCHR$(144):PRINT
  444. 10670 PRINTCHR$(5);"       **** I'AM BUSY !! ****";CHR$(144)
  445. 10699 :
  446. 10700 REM COPY ************************
  447. 10730 YR$="":XR$=""
  448. 10740 OPEN2,8,15
  449. 10750 FOR I=AA TO AE
  450. 10760 OPEN1,8,2,NX$
  451. 10762 GOSUB6700:REM DISC-ERROR
  452. 10780 PRINT#2,"P"+CHR$(98)+CHR$(I)+CHR$(0)+CHR$(6)
  453. 10784 FOR K=0TO11
  454. 10790 GET#1,G$:IF G$=""THEN G$=CHR$(0)
  455. 10794 YR$=YR$+G$
  456. 10798 NEXT K
  457. 10800 GOSUB6700:REM DISC-ERROR
  458. 10806 CLOSE1
  459. 10808 :
  460. 10810 OPEN1,8,2,NY$
  461. 10812 GOSUB6700:REM DISC-ERROR
  462. 10814 AS=AB+I-AA
  463. 10816 XR$=CHR$(27)+"&"+CHR$(0)+CHR$(AS)+CHR$(AS)
  464. 10817 ZR$=XR$+YR$
  465. 10818 PRINT"         ASCI = "AS"[157] _"I"[157] [146][145]  "
  466. 10820 PRINT#2,"P"+CHR$(98)+CHR$(AS)+CHR$(0)+CHR$(1)
  467. 10830 PRINT#1,ZR$
  468. 10832 GOSUB6700:REM DISC-ERROR
  469. 10840 CLOSE1
  470. 10850 XR$="":YR$="":ZR$=""
  471. 10890 NEXT I
  472. 10894 CLOSE2
  473. 10910 GOTO1000:REM MENUE
  474. 10999 :
  475. 11000 REM FILL **********************
  476. 11010 FOR Y=0TO 7
  477. 11020 FOR X=0TO10 STEP 2
  478. 11030 XY=PA+X+Y*40
  479. 11040 CO=PC+X+Y*40
  480. 11044 POKEXY,42:POKECO,1
  481. 11050 NEXTX:NEXTY
  482. 11060 RETURN
  483. 12000 REM COPY-DATEI ******************
  484. 12050 PRINT"[147]  DU KANNST JETZT CHR-DATEIEN AUF EINE"
  485. 12060 PRINT"  ANDERE DISKETTE COPIEREN !
  486. 12070 [153]"  WELCHE DATEI WIRD COPIERT ?"
  487. 12080 [153]"   "NX$;" WAIT ";[199](5);
  488. 12090 GX$[178]NX$:[141]15000:[143] INPUT
  489. 12091 [139] GX$[178]"_" [137]1000
  490. 12092 NX$[178]GX$:[153][199](144):[153]:[153]
  491. 12094 [139] NY$[178]""[167]NY$[178]NX$
  492. 12100 [153]"  NEUER DATEINAME ?
  493. 12110 PRINT"   "NY$;" [146] ";CHR$(5);
  494. 12120 GX$=NY$:GOSUB15000:REM INPUT
  495. 12121 IF GX$="_" GOTO1000
  496. 12122 NY$=GX$:PRINTCHR$(144):PRINT
  497. 12130 PRINT"          READING ";CHR$(31);NX$;CHR$(5)
  498. 12140 PRINT"       **** COFFE-BREAK ****";CHR$(144)
  499. 12199 :
  500. 12210 OPEN1,8,2,NX$
  501. 12220 OPEN2,8,15
  502. 12222 GOSUB6700:REM DISC-ERROR
  503. 12224 FOR K=1 TO 255
  504. 12228 PRINTSPC(12);"ASCI = ";K;"[157] [145]"
  505. 12230 PRINT#2,"P"+CHR$(98)+CHR$(K)+CHR$(0)+CHR$(1)
  506. 12232 FOR I=0TO16
  507. 12240 GET#1,G$:IF G$=""THEN G$=CHR$(0)
  508. 12244 IF I=0 AND G$=CHR$(255) THEN RC$=CHR$(255):I=16
  509. 12250 RC$(K)=RC$(K)+G$
  510. 12260 NEXT I
  511. 12270 GOSUB 6700 :REM DISC-ERROR
  512. 12280 NEXT K
  513. 12290 CLOSE1:CLOSE2
  514. 12299 :
  515. 12300 REM WRITE
  516. 12310 GOSUB 6600:REM BEEP
  517. 12350 PRINT"[147]  BITTE ANDERE DISKETTE EINLEGEN ![145]"
  518. 12360 TD$="DISKETTE[145]"
  519. 12370 PRINT SPC(15);TD$
  520. 12372 FOR N=0TO 400
  521. 12380 GET G$:IFG$<>""THEN GOTO12500
  522. 12382 NEXT
  523. 12400 PRINT SPC(15);CHR$(5);TD$;CHR$(144)
  524. 12410 FOR N=0TO 400
  525. 12420 GET G$:IFG$<>""THEN GOTO12500
  526. 12430 NEXT
  527. 12440 GOTO12370
  528. 12499 :
  529. 12500 REM COPY ON NEW DISC ************
  530. 12550 PRINTCHR$(144)
  531. 12560 PRINT"[147]          WRITING ";CHR$(31);" ";NY$;" [146]"
  532. 12570 PRINTTAB(5);CHR$(5);"**** IT'S TEE TIME NOW ****";CHR$(144);""
  533. 12580 PRINTTAB(10);"CREATING  ";NY$;" [145]"
  534. 12582 NA$=NY$
  535. 12584 GOSUB 10000:REM OEFFNE RECORD DATEI
  536. 12599 :
  537. 12600 OPEN1,8,2,NY$
  538. 12604 OPEN2,8,15
  539. 12608 GOSUB 6700:REM DISC-ERROR
  540. 12610 FOR K=1TO255
  541. 12612 PRINTTAB(10);"   ASCI =";K;"[157]          [145]"
  542. 12620 PRINT#2,"P"+CHR$(98)+CHR$(K)+CHR$(0)+CHR$(1)
  543. 12650 PRINT#1,RC$(K)
  544. 12654 GOSUB 6700:REM DISC-ERROR
  545. 12660 NEXT K
  546. 12670 CLOSE1:CLOSE2
  547. 12680 GOSUB 6600:REM BEEP
  548. 12690 PRINT"             FERTIG !
  549. 12692 [161] G$:[139]G$[178]""[167]12692
  550. 12698 [138]
  551. 15000 [143] GET-INPUT *******************
  552. 15010 G$[178]" ? ":GY$[178]GX$:GX$[178]"":GZ$[178]" WAIT":G[178]1:[153]" ";
  553. 15020 [153]"CMD"G$;GZ$;
  554. 15030 [161] G$
  555. 15032 GZ[178]GZ[170]G
  556. 15033 [139] GZ[178]0[167]G[178]1:GZ$[178]" WAIT":[153][199](20);GZ$;
  557. 15034 [139] GZ[178]200 [167]G[178][171]1:GZ$[178][199](144)[170]" WAIT"[170][199](5):[153][199](20);GZ$;
  558. 15035 [139] G$[178]""[137]15030
  559. 15036 :
  560. 15038 [139] GA[178]1 [167] [137]15200
  561. 15040 [139] G$[178][199](13) [137]15180
  562. 15042 [139] G$[178]"_" [167]GX$[178]G$:[142]
  563. 15050 [139] G$[178][199](20)  [137]15150
  564. 15051 [139] [195](GX$)[177]9 [137]15030
  565. 15053 [139] G$[178][199](34) [137]15030
  566. 15060 [139] G$[178]"ON" [137]15030
  567. 15070 [139] G$[178]"" [137]15030
  568. 15080 [139] G$[178]"LOAD" [137]15030
  569. 15090 [139] G$[178]"" [137]15030
  570. 15100 [139] G$[178][199](141) [137]15030
  571. 15120 [139] G$[178][199](148) [137]15030
  572. 15130 GX$[178]GX$[170]G$
  573. 15140 [137]15020
  574. 15150 [139][195](GX$)[178]0[167]G$[178]"":[137]15030
  575. 15160 GX$[178][200](GX$,[195](GX$)[171]1)
  576. 15170 [137] 15020
  577. 15180 [153][199](20);
  578. 15185 [139] GX$[178]"" [167] GX$[178]GY$
  579. 15190 GA[178]0:[142]
  580. 15200 [143] EINGABE NUMERISCH ?
  581. 15201 [139]G$[178][199](13)[137]15180
  582. 15202 [139]G$[178]"_" [167] GX$[178]G$:GA[178]0:[142]
  583. 15203 [139] G$[178][199](20)  [137]15150
  584. 15209 [139] [195](GX$)[177][178]3 [137]15030
  585. 15210 [139]G$[178]"0" [137]15130
  586. 15211 [139]G$[178]"1" [137]15130
  587. 15212 [139]G$[178]"2" [137]15130
  588. 15213 [139]G$[178]"3" [137]15130
  589. 15214 [139]G$[178]"4" [137]15130
  590. 15215 [139]G$[178]"5" [137]15130
  591. 15216 [139]G$[178]"6" [137]15130
  592. 15217 [139]G$[178]"7" [137]15130
  593. 15218 [139]G$[178]"8" [137]15130
  594. 15219 [139]G$[178]"9" [137]15130
  595. 15230 [137] 15030:[143] GET
  596.