home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8902b.d64 / font-editor (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  13KB  |  665 lines
  1. 20 REM *** FONT-EDITOR ***
  2. 23 :
  3. 27 GN=PEEK(186):IFGN<8THENINPUT"FLOPPY-GERAETENUMMER ";GN:IFGN>11ORGN<8THEN27
  4. 32 IFPEEK(56)<95 THEN 40
  5. 35 SYS57812"GSF-KERN.OBJ",GN,1
  6. 37 POKE780,0:SYS65493
  7. 40 SYS57812"FONT-EDITOR.OBJ",GN,1
  8. 41 POKE780,0:SYS65493
  9. 55 SYS57812"SHAPE-LUPE.OBJ",GN,1
  10. 60 POKE780,0:SYS65493
  11. 70 SYS24000:(null)
  12. 80 POKE55,0:POKE 56,91:.MPS SCHUETZEN
  13. 90 CLR:GN=PEEK(186):!VORB
  14. 95 POKE 808,250:.RUN/STOP AUS
  15. 98 :
  16. 110 .LOOP:!MENUEFRAG
  17. 120 IFFTHEN:_LOOP
  18. 130 L=(null)XM,YM,XM+97,YM+41)
  19. 140 IFLTHEN:!MODEFRAG
  20. 160 L=(null)XZ,YZ,XZ+90,YZ+60+CY)
  21. 170 IFLAND(null)THEN:!ZEIERHOEH
  22. 180 IF(null)THEN:!WEITERWAEHL
  23. 200 :
  24. 500 REM *** EDITOR
  25. 520 .E:X=INT(((null)-XD)/PX)
  26. 525 Y=INT(((null)-YD)/PX)
  27. 530 IF X>CX OR Y>CY THEN:_EXITEDIT
  28. 540 IF (XORY)<0 THEN:_EXITEDIT
  29. 545 IFSP<S1THEN:(null)S1
  30. 550 IF MD THEN:_MAL
  31. 555 IF (null)=0 THEN:_E
  32. 558 XE=XD+PX*X:YE=YD+PX*Y
  33. 560 (null)XE,YE,XE+PX-G,YE+PX-G
  34. 562 (null) XP+X,YP+Y,2
  35. 563 !WAIT0:_E
  36. 565 .MAL:IF(null)THEN:!MODI
  37. 570 IFMOTHEN:_E
  38. 590 .PSET:XE=XD+PX*X:YE=YD+PX*Y
  39. 600 (null)XE,YE,XE+PX-G,YE+PX-G,D
  40. 610 (null)XP+X,YP+Y,S:_E
  41. 620 .EXITEDIT:(null)SP
  42. 630 (null) A$,XP,YP,XP+CX,YP+CY
  43. 640 (null) SH$(AZ),A$,0,0,1:(null) A$
  44. 650 _LOOP
  45. 670 :
  46. 1000 .ZEICHMENUE:IF F THENRETURN
  47. 1002 R=(null):!WAIT0
  48. 1005 FL=1:(null):.PD ZU
  49. 1010 IFR=1THEN:_ZEILOESCH
  50. 1020 IFR=2THEN:_ZEICHINVERT
  51. 1030 IFR=3THEN:_(null)
  52. 1035 IFR=6THEN:_SPIEGX
  53. 1037 IFR=7THEN:_SPIEGY
  54. 1040 :
  55. 1045 .*** SHIFTEN
  56. 1050 (null) SP,XZ+45,YZ+20
  57. 1060 .SHIFLOO
  58. 1070 L=(null)XZ,YZ,XZ+90,YZ+60+CY)
  59. 1080 IF L=0 THEN:_NEUDEF
  60. 1090 IF (null)=0 THEN:_SHIFLOO
  61. 1092 !WAIT0
  62. 1095 IF R=4 THEN:_SHIFTX
  63. 1098 IF (null)>XZ+45 THEN:_NACHUNT
  64. 1099 .NACHOBEN
  65. 1100 (null)A$,XP,YP,XP+CX,YP
  66. 1110 (null)U XP,YP,XP+CX,YP+CY,1
  67. 1120 (null) A$,XP,YP+CY,1:(null) A$
  68. 1140 _SHIFLOO
  69. 1145 .NACHUNT
  70. 1150 (null) A$,XP,YP+CY,XP+CX,YP+CY
  71. 1155 (null)D XP,YP,XP+CX,YP+CY,1
  72. 1160 (null) A$,XP,YP,1:(null) A$
  73. 1165 _SHIFLOO
  74. 1180 .SHIFTX
  75. 1185 IF(null)>XZ+45 THEN:_NARECHTS
  76. 1190 (null) A$,XP,YP,XP,YP+CY
  77. 1195 (null)L XP,YP,XP+CX,YP+CY,1
  78. 1200 (null) A$,XP+CX,YP,1:(null) A$
  79. 1205 _SHIFLOO
  80. 1210 .NARECHTS
  81. 1215 (null) A$,XP+CX,YP,XP+CX,YP+CY
  82. 1220 (null)R XP,YP,XP+CX,YP+CY,1
  83. 1225 (null) A$,XP,YP,1:(null) A$
  84. 1230 _SHIFLOO
  85. 1240 :
  86. 1260 .(null)
  87. 1270 (null) SP,LI+20,OB+20:!WAIT1
  88. 1280 X=INT(((null)-XD)/PX)
  89. 1290 Y=INT(((null)-YD)/PX)
  90. 1300 IF X>CX OR Y>CY THENRETURN
  91. 1310 IF (XORY)<0 THENRETURN
  92. 1320 (null) XP-1,YP-1,XP+CX+1,YP+CY+1
  93. 1330 (null) XP+X,YP+Y
  94. 1340 (null) XP-1,YP-1,XP+CX+1,YP+CY+1,0
  95. 1350 _NEUDEF
  96. 1360 :
  97. 1380 .SPIEGX
  98. 1390 FOR X=0 TO CX/2
  99. 1395 (null) A$,XP+X,YP,XP+X,YP+CY
  100. 1400 (null) B$,XP+CX-X,YP,XP+CX-X,YP+CY
  101. 1405 (null) A$,XP+CX-X,YP,1
  102. 1410 (null) B$,XP+X,YP,1:(null) B$,A$
  103. 1415 NEXT:_NEUDEF
  104. 1420 :
  105. 1425 .SPIEGY
  106. 1430 FOR Y=0 TO CY/2
  107. 1435 (null) A$,XP,YP+Y,XP+CX,YP+Y
  108. 1440 (null) B$,XP,YP+CY-Y,XP+CX,YP+CY-Y
  109. 1445 (null) A$,XP,YP+CY-Y,1
  110. 1450 (null) B$,XP,YP+Y,1:(null) B$,A$
  111. 1455 NEXT:_NEUDEF
  112. 1490 :
  113. 1500 .NEUE ZS-GROESSE
  114. 1510 FL=1:(null):!INPUT ZS-GROESSE
  115. 1520 (null) 37:(null) 30
  116. 1530 IF CX<XC AND CY<YC THEN:_NOWARN
  117. 1540 PRINT" [218][211]-[196]ATEN KOENNTEN
  118. 1550 [153]" EVTL. VERLORENGEHEN !
  119. 1560 .NOWARN:
  120. 1570 (null) (null)+6: (null) 20: !OK OR CANCEL
  121. 1580 (null): FL=1:(null) :.PD ZU
  122. 1590 IF OC=0 THEN RETURN
  123. 1610 FOR X=0 TO 95
  124. 1620 A$=SH$(X): (null) SH$(X),XC,YC
  125. 1630 (null) SH$(X),A$,0,0:(null) A$
  126. 1640 NEXT
  127. 1650 !NEUEDIT
  128. 5295 :
  129. 5300 .VERGROE:.***
  130. 5315 (null):(null) XD,YD,LX+3,LY+3
  131. 5316 SYS 23792,SH$(AZ),PX
  132. 5371 (null):RETURN
  133. 5372 :
  134. 5400 .MODEFRAG:.I,S-M ODER L-M
  135. 5405 (null)
  136. 5410 (null) XM+1,YM+1,96,25
  137. 5420 (null) ML,1
  138. 5430 IF (null) THEN ML=(null):GOTO 5450
  139. 5440 .MOWAE
  140. 5445 (null) 0,(ML-1)*(null),1E3,ML*8-1
  141. 5450 MD= ML<>1
  142. 5455 S= 3-ML :D=32+S*128
  143. 5460 MO=0:(null)
  144. 5462 .MODI: MO=1-MO
  145. 5463 (null):(null) XM+1,YM+1,96,41
  146. 5464 (null) XA:(null) YA
  147. 5465 IF MD=0 THEN PRINT"          ";
  148. 5467 IF MD THEN PRINT"[205]ODUS: "MD$(MO);
  149. 5470 (null):_WAIT0
  150. 5480 :
  151. 5500 .WEITERWAEHL:.MODUSWAHL
  152. 5507 (null):(null) XM+1,YM+1,96,25
  153. 5510 (null) 0,ML*8-8,1E3,ML*8-1
  154. 5520 ML =(ML+1)+3*(ML=3)
  155. 5530 _MOWAE
  156. 5540 :
  157. 5702 .ERROUT: (null) 0,13,1E3,13,32
  158. 5704 (null) 20:(null) 35
  159. 5706 PRINT E$:(null)7,1:!WAIT1
  160. 5710 (null):RETURN
  161. 5748 :
  162. 5750 .ZEIERHOEH: MD=(null)>XZ+45
  163. 5760 IF MD THEN AZ=-(AZ+1)*(AZ<95)
  164. 5765 IF MD=0 THEN AZ=AZ-1-96*(AZ=0)
  165. 5770 !EINTRA:!VERGROE
  166. 5775 _DEFAULTMODUS
  167. 5780 :
  168. 5800 .ZEILOESCH
  169. 5804 (null) SP,LI+20,OB+20:!WAIT1
  170. 5805 IF (null)LI,OB,RE,UN)=0 THEN RETURN
  171. 5810 (null) XP,YP,XP+CX,YP+CY,32
  172. 5820 _NEUDEF
  173. 5850 :
  174. 5860 .ZEICHINVERT
  175. 5880 (null) XP,YP,XP+CX,YP+CY
  176. 5890 _NEUDEF
  177. 5895 :
  178. 5900 .ANDERES ZEICH
  179. 5910 MK=AZ :.MERKEN
  180. 5920 !ZEIWAHL:AZ=MK
  181. 5930 .NEUDEF
  182. 5940 (null) A$,XP,YP,XP+CX,YP+CY
  183. 5950 (null) SH$(AZ),A$,0,0,1:(null) A$
  184. 5960 !EINTRA:_VERGROE
  185. 5963 :
  186. 6000 .EDITMENUE:
  187. 6001 IF F THEN IF (null)<>4 THENRETURN
  188. 6002 IF (null)=1 THEN:_ZEIWAHL
  189. 6005 IF (null)=3 THEN:_ANDERES ZEICH
  190. 6006 IF (null)=4 THEN:_NEUER ZEISA
  191. 6010 IF (null)=5 THEN:_NEUE ZS-GROESSE
  192. 6015 IF (null)=6 THEN:_EXIT PRG
  193. 6020 .*** VELOCITY
  194. 6050 (null)48,99,146,52
  195. 6060 (null)36:PRINT"SCHNELLER"
  196. 6070 (null)36:PRINT"LANGSAMER"
  197. 6075 PRINT"  [206]ORMALWERT"
  198. 6080 PRINT"   [215][197][201][212][197][210]"
  199. 6087 (null) 0,32,300,32
  200. 6090 (null) 20,38,122,46
  201. 6095 (null):R=0:_BALKEN
  202. 6100 .PFEILOO
  203. 6105 R=(null):IF R THEN:_BALKEN
  204. 6110 .WC:IF(null)1,1,300,300)=0 THEN:_WC
  205. 6115 (null):_PFEILOO
  206. 6120 .BALKEN
  207. 6121 (null):X=123-SP:Y=45
  208. 6122 (null) 21,Y-6,X,Y,160
  209. 6123 (null) X,Y-6,121,Y,32
  210. 6124 (null):(null)49,100,144,32
  211. 6125 IFR=0THEN6115
  212. 6126 IF R=4 THEN:_ENDPFEI
  213. 6130 IF R=1 THEN SP=SP+3*(SP>5)
  214. 6140 IF R=2 THEN SP=SP-3*(SP<97)
  215. 6150 IF R=3 THEN SP=45
  216. 6170 (null) SP:(null) R,1
  217. 6180 _PFEILOO
  218. 6190 .ENDPFEI:(null):(null)
  219. 6195 _WAIT0
  220. 6199 :
  221. 6200 .INPUT ZS-GROESSE
  222. 6210 IF CX>31 THEN FL=1:(null)
  223. 6230 (null)50,50,208,88
  224. 6240 (null) 2:PRINT"  [199][210][207][197][211][211][197] IN [208][201][216][197][204][206]
  225. 6250 [210] 0,10,300,10
  226. 6260 .[133]X: [237] 14:[236]0
  227. 6270 [153]" PEEKREITE (MAX. 40) :   CMDCMD";
  228. 6280 L[178]2:![133]
  229. 6290 XC[178][197](IP$)
  230. 6300 [139] XC[179]5 [176] XC[177]40 [167]:_[133]X
  231. 6310 .[133]Y: [237] 23:[236]0
  232. 6320 [153]" LEFT$OEHE  (MAX. 40) :   CMDCMD";
  233. 6330 L[178]2:![133]
  234. 6340 YC[178][197](IP$)
  235. 6350 [139] YC[179]3 [176] YC[177]40 [167]:_[133]Y
  236. 6370 [210] 0,32,300,32
  237. 6400 [142]
  238. 6405 :
  239. 6410 .EXIT PRG: [221] PL(3),75,210,30
  240. 6415 [237] 3:[236] 3
  241. 6420 [153]" ASCONT-STR$ISKETTE EINGELEGT?"
  242. 6430 [237] 16:[236] 55:!OK [176] CANCEL
  243. 6440 [139] OC[178]0 [167]:[219]:[142]
  244. 6450 [229]7,0
  245. 6455 [159]9,GN,15,"S:FONT-LISTE":[160]9
  246. 6460 [159]9,GN,2,"FONT-LISTE,S,W"
  247. 6470 [152]9,FA: [129] X[178]1 [164] FA
  248. 6480 [152]9,FM%(X):[152]9,FL$(X)
  249. 6485 [130]:[160] 9
  250. 6490 [151] 808,237:.[138][173][144] AKTIV
  251. 6495 [204] OFF:[128]
  252. 6499 :
  253. 6500 .NEUER ZEISA:.[172][172][172]
  254. 6540 ![133] ZS[171]GROESSE
  255. 6660 [237] 37:[236]30
  256. 6670 .NEUZEI1: [153]"(null)ATN(null)(null)(null)(null)CHR$:
  257. 6680 PRINT" [193]LLE EVTL. IM [211]PEICHER
  258. 6690 [153]" BEFINDLICHEN (null)S.-STR$ATEN
  259. 6700 PRINT" WERDEN GELOESCHT !
  260. 6710 [237] [245][170]6: [236] 20
  261. 6720 !OK [176] CANCEL:[219]
  262. 6725 FL[178]1: [219] :.PD ZU
  263. 6730 .[172][172][172] F[145]T ANLEGEN
  264. 6740 [139] OC[178]0 [167]:[142]
  265. 6755 [215] ZV$,1,21,1
  266. 6758 [220]:[213] ZV$,1,21,58,178
  267. 6764 [129] X[178]0 [164] 95
  268. 6767 [209] SH$(X),XC,YC
  269. 6770 [130]
  270. 6775 .NEUEDIT: [224] 0,10,320,200,223
  271. 6780 PX[178][181](190[173]XC)
  272. 6782 C[178][181](174[173]YC):[139] C[179]PX [167] PX[178]C
  273. 6785 [139] PX[177]20 [167] PX[178]20
  274. 6787 S1[178]425[173]PX
  275. 6790 LX[178]PX[172]XC:LY[178]PX[172]YC
  276. 6791 LI[178](210[171]LX[171]17)[173]2
  277. 6793 OB[178](191[171]LY[171]16)[173]2[170]9
  278. 6797 UN[178]LY[170]OB[170]16:RE[178]LX[170]LI[170]17
  279. 6800 [224] LI,OB,RE,UN,32
  280. 6810 [217] LI,OB,RE,UN
  281. 6813 XD[178]LI[170]7:YD[178]OB[170]6
  282. 6815 [218]:[153][199](6);
  283. 6817 [235] XD[171]1,YD[171]1,LX[170]12,LY[170]12
  284. 6818 G[178]2:[139] PX[179]5 [167] G[178]1
  285. 6820 [237] LY[170]3:.[172][172][172] GITTER
  286. 6821 [210] 0,0,0,LY
  287. 6822 [129] X[178]1 [164] XC:[236] PX[172]X[171]PX[170]1
  288. 6825 [210] PX[172]X,0,PX[172]X,LY,G[171]1
  289. 6828 [153][199](48[170]X[171][181](X[173]10)[172]10);
  290. 6829 [130]
  291. 6830 [210] 0,0,LX,0:[236] LX[170]3
  292. 6831 [129] X[178]1 [164] YC: [237] PX[172]X[171]PX[170]1
  293. 6835 [210] 0,PX[172]X,LX,PX[172]X,G[171]1
  294. 6836 [153][199](48[170]X[171][181](X[173]10)[172]10)"CMD";
  295. 6837 [130]
  296. 6838 [139]G[178]1[167]:[217]0,0,PX[172]XC[170]1,PX[172]YC[170]1
  297. 6839 [219]:.[172][172][172] ZEICHEN[171]ANZEIGE
  298. 6840 F[178]0:CX[178]XC[171]1:CY[178]YC[171]1
  299. 6843 XS[178](AZ[175]7)[172]24:YS[178][181](AZ[173]8)
  300. 6846 XZ[178]RE[170]15:YZ[178]OB
  301. 6850 [224] XZ,YZ,XZ[170]90,YZ[170]60[170]CY,32
  302. 6852 [217] XZ,YZ,XZ[170]90,YZ[170]60[170]CY
  303. 6855 XP[178]XZ[170](90[171]CX)[173]2 :YP[178]YZ[170]50
  304. 6857 [237] YP[170]CY[173]2[171]4:[236] XZ[170]3
  305. 6858 [153]"-";:[236] XZ[170]79:[153]"+"
  306. 6860 [217] XP[171]5,YP[171]4,XP[170]CX[170]5,YP[170]CY[170]4
  307. 6863 [218]
  308. 6864 .[172][172][172] MALMODUS
  309. 6865 XM [178]RE[170]10:YM [178]UN[171]42
  310. 6866 [139] YM[179]YZ[170]70[170]CY [167] YM[178]YZ[170]70[170]CY
  311. 6867 [217] XM,YM,XM[170]97,YM[170]42
  312. 6870 [235] XM[170]1,YM[170]1,96,41
  313. 6872 [153] "LOAD";:[236] 3
  314. 6873 [153] "INVERTIEREN"
  315. 6874 [236] 3:[153] "(null)KTE SETZEN"
  316. 6875 [236] 3:[153] [199](15)"  LOESCHEN"
  317. 6876 [210] 0,24,1E3,24
  318. 6877 YA[178][245][170]5:XA[178][244][170]9
  319. 6878 MD$(0)[178]"AN ":MD$(1)[178]"AUS"
  320. 6880 ML[178]1:!MOWAE
  321. 6883 [215] SH$(AZ),XP,YP,1
  322. 6885 [219]:_E[181]RA
  323. 6999 :
  324. 7000 .FARBMENUE: R[178][249]
  325. 7010 [207] FARBEN
  326. 7020 L[178]76:[221] 20,R[172]8[170]11,L,130
  327. 7030 [153][199](15);
  328. 7040 [129]X[178]0[164]15
  329. 7050 [135] A$:[236] (L[171]3[171][251]A$))[173]2
  330. 7060 [153]A$:[130]
  331. 7070 [216] F(R)[170]1
  332. 7080 .FARBFR: [139] [249][178]0 [167]:[219]:[142]
  333. 7090 F(R)[178][249][171]1:!FAERBEN
  334. 7100 [216] [249],1:_FARBFR
  335. 7195 :
  336. 7200 .DISKMENUE: R[178][249]
  337. 7205 [139] F [167] [139] R[177]3 [167] [142]
  338. 7207 [139] CX[177]31 [167] FL[178]1:[219]
  339. 7210 [139] R[178]2 [167]:_S[128]EBEFEHL
  340. 7211 [139] R[178]3 [167]:_ZS[147]
  341. 7212 [139] R[178]4 [167]:_ZS[148]
  342. 7213 [139] R[178]5 [167]:_[213][148]
  343. 7214 [139] R[178]6 [167]:_[213][147]
  344. 7215 .[172][172][172] [206]
  345. 7227 [204]0:[151]53281,F(2):[151]646,F(3)
  346. 7230 [153]"LOAD";:[206] GN:[146]56320,16,16
  347. 7235 [204]:_[146]0
  348. 7250 :
  349. 7400 .S[128]EBEFEHL
  350. 7410 [221]0,100,320,48
  351. 7420 [233] 1,0:[237] 3:[236]3
  352. 7430 [153]"ASCLOPPY-PEEKEFEHLSTEXT:"
  353. 7435 [233]0,0
  354. 7440 [217] 4,14,313,25
  355. 7450 [236] 7:[237] 16:L[178]37:![133]
  356. 7465 [236] 100:[237] 34:!OK [176] CANCEL
  357. 7480 [139] OC[178]0 [167]:[219]:[142]
  358. 7490 [229]7,0:[159]9,GN,15,IP$
  359. 7510 [236] 75:E$[178][241]:[153] E$;
  360. 7515 [229]7,1:![146]1
  361. 7520 [139] [197](E$)[171]1 [176] FA[178]0 [167]:_NO[147]
  362. 7525 [139] [202](E$,21,2)[178]"00"[167]:_NO[147]
  363. 7530 IP$[178][202](IP$,3,16)
  364. 7540 [129] X[178]1 [164] FA
  365. 7550 [139] IP$[179][177]FL$(X) [167] [130]:_NO[147]
  366. 7560 [129] Y[178]X [164] FA
  367. 7570 FM%(Y)[178]FM%(Y[170]1):FL$(Y)[178]FL$(Y[170]1)
  368. 7580 [130]: FA[178]FA[171]1
  369. 7590 [237]34:[236]10:[153]"VALINTRAG AUS ASCONT-(null)ISTE IST GELOESCHT.";:![146]1:_NO[147]
  370. 7595 :
  371. 7600 .ZS[147]:FL[178]1:[219]:.[172][172][172]
  372. 7610 FH$[178]"":L[178]13:!ASKNAME
  373. 7620 M$[178]"R":![159] FILE
  374. 7626 [139] [197](E$)[178]0 [167]:_[147]!
  375. 7627 .ERR: [153]:[153]""E$
  376. 7628 .NOLO1:[229]7,1:![146]1:_NO[147]
  377. 7630 .[147]!
  378. 7635 [161]#9,A$,A$
  379. 7640 [161]#9,A$:XC[178][198](A$[170][199](0))
  380. 7650 [139] XC[177]40 [167]:_NO[147]
  381. 7660 [161]#9,A$:YC[178][198](A$[170][199](0))
  382. 7670 [139] YC[179]3 [176] YC[177]40 [167]:_NO[147]
  383. 7675 [161]#9,A$:[161]#9,A$
  384. 7680 [237] 25:[236] 30:!NEUZEI1
  385. 7690 [139] OC[178]0 [167]:_NO[147]
  386. 7695 [229]7,0
  387. 7700 [129] X[178]0 [164] 95
  388. 7710 [161]#9,A$:ZL(X)[178][198](A$[170][199](0))
  389. 7720 [130]: .ZEI[171]LAENGEN LESEN
  390. 7730 [129] X[178]0 [164] 191
  391. 7740 [161]#9,A$:[130]:.ADR. UEBERLESEN
  392. 7750 [129] X[178]0 [164] 95
  393. 7757 [139] ZL(X)[178]0 [167]7810
  394. 7760 [158] 23465,ZL(X),SH$(X)
  395. 7810 [130]
  396. 7820 !E[181]RA:!VERGROE
  397. 7830 .NO[147]:[219]
  398. 7835 [160]9:[142]
  399. 7837 :
  400. 7840 .ZS[148]:.[172][172][172]
  401. 7842 FH$[178][201]([196](CY[170]101),2)[170]"."
  402. 7844 L[178]10:!ASKNAME:IP$[178]FH$[170]IP$
  403. 7846 [224] 0,20,1E3,1E3,32
  404. 7847 [236] 50:[237] 50:!OK [176] CANCEL
  405. 7848 [139] OC[178]0 [167]:_NO[147]
  406. 7856 [237] 23:[236] 8
  407. 7860 AD[178]3[172]96:MX[178]0:[153]"(null)EICHEN:"
  408. 7863 [129] X[178]0 [164] 95
  409. 7870 [158] 23456,SH$(X):ZL(X)[178][194](167)
  410. 7875 [139] X[178]32 [167] ZL(X)[178][181](CX[172].7)
  411. 7880 AD(X)[178]AD: [139] ZL(X)[178]0 [167]:_PCOD
  412. 7885 [158] 23459,ZL(X),SH$(X)
  413. 7887 AD[178]AD[170][194](252)[170]256[172][194](253)
  414. 7890 .PCOD: [153]"ON LENODE:"X;
  415. 7891 [153]" PEEKREITE:"ZL(X)"CMD "
  416. 7893 [139] ZL(X)[177]MX [167] MX[178]ZL(X)
  417. 7894 [130]
  418. 7900 M$[178]"W":![159] FILE
  419. 7902 [139] [197](E$) [167]:_ERR
  420. 7904 [152]9,[199](AD[175]255);
  421. 7905 [152]9,[199](AD[173]256);
  422. 7906 [152]9,[199](MX);[199](CY[170]1);
  423. 7907 [152]9,[199](0);[199](0);
  424. 7908 [129] X[178]0 [164] 95
  425. 7910 [152]9,[199](ZL(X));:[130]
  426. 7912 [129] X[178]0 [164] 95
  427. 7914 [152]9,[199](AD(X)[175]255);:[130]
  428. 7916 [129] X[178]0 [164] 95
  429. 7918 [152]9,[199](AD(X)[173]256);:[130]
  430. 7920 [224] 0,20,1E3,1E3,32
  431. 7925 [237]25:[153]" (null)EICHEN WERDEN"
  432. 7930 [153]" ABGESPEICHERT."
  433. 7935 [129] X[178]0 [164] 95
  434. 7937 [215] SH$(X),155,35,1
  435. 7938 [139] ZL(X)[178]0 [167]:_WEITER
  436. 7939 [158] 23462,ZL(X),SH$(X)
  437. 7940 .WEITER: [130]
  438. 7945 [224] 155,35,200,80,32
  439. 7950 [160]9
  440. 7952 E$[178][241]:[237][245][170]6:[153][163]5)E$
  441. 7953 [139] [197](E$) [167]:_NOLO1
  442. 7954 [139] FA[178]0 [167] X[178]1:[137] 7993
  443. 7955 [129] X[178]1 [164] FA
  444. 7960 [139] IP$[178]FL$(X) [167]:_NEU[195]
  445. 7965 [130]
  446. 7970 [129] X[178]1 [164] FA
  447. 7975 [139] AD[177]FM%(X) [167] [130]
  448. 7980 [129] Y[178]FA [164] X [169][171]1
  449. 7985 FM%(Y[170]1)[178]FM%(Y):FL$(Y[170]1)[178]FL$(Y)
  450. 7990 [130]
  451. 7993 FL$(X)[178]IP$:FA[178]FA[170]1
  452. 7994 .NEU[195]: FM%(X)[178]AD
  453. 7995 [153]"  (null)EUER VALINTRAG"
  454. 7996 [153]"  IN ASCONT-(null)ISTE.";
  455. 7997 _NOLO1
  456. 7999 :
  457. 8000 .MENUEFRAG:.LEISTE ABFRAGEN
  458. 8020 [139] [253][177]8 [167] [142]
  459. 8030 [129] P[178]1 [164] MN
  460. 8040 [139] [240]PL(P),0,PR(P),8)[167]8060
  461. 8050 [130]:[142]
  462. 8060 [224] PL(P),0,PR(P),7
  463. 8090 [221] PL(P),8,LM(P)[170]10,AN(P)[172]8[170]2
  464. 8092 [153]:[153] [199](14)[199](15)"";
  465. 8093 [129] Y[178]1 [164] AN(P): [236]3
  466. 8094 [153] MN$(P,Y):[130]
  467. 8100 [216]:[137]8120
  468. 8110 .FRAGLOOP: [216] [249],1
  469. 8120 [139] [249][178]0 [167]:_MENUEZU
  470. 8125 FL[178]0 :.PD[171]FLAG
  471. 8130 !(MJ$(P)):.[172][172][172] FKT. AUFRUFEN
  472. 8135 [229]7,1:[139] FL [167]:_MZU
  473. 8140 _FRAGLOOP
  474. 8160 .MENUEZU:[219]
  475. 8170 .MZU: [224] PL(P),0,PR(P),7
  476. 8180 [142]
  477. 8190 :
  478. 8200 .[146]1:[139][246][178]0[167]:_[146]1
  479. 8220 .[146]0:[139] [246] [167]:_[146]0
  480. 8230 [142]
  481. 8295 :
  482. 8300 .[133]:.ERSETZT [133][171]BEFEHL
  483. 8305 [151]198,0
  484. 8310 [153][199](15)[199](12);
  485. 8320 [129]X[178]0[164] L:.$[171]LAENGE
  486. 8330 IP$(X)[178]" "
  487. 8340 [130]:.  [174] [150]AULT
  488. 8350 [151]12[172]16[170]12,0:.CURS[176] AN
  489. 8360 PS[178]0:.CURS[176][185].
  490. 8370 .INPU
  491. 8380 [161]A$:[139]A$[178]""[167]8380
  492. 8390 [139]A$[179][177]""[167]:_CRSRLE
  493. 8400 [139] PS[178]L [167]:_INPU
  494. 8410 [236] [244][170][251]IP$(PS)):PS[178]PS[170]1
  495. 8420 _INPU
  496. 8430 .CRSRLE:[139]A$[179][177][199](20)[167]:_[153]
  497. 8440 [139] PS[178]0 [167] :_INPU
  498. 8450 PS[178]PS[171]1:[236] [244][171][251]IP$(PS))
  499. 8470 [153]"  ";: [236] [244][171][251]"  ")
  500. 8475 _INPU
  501. 8480 .[153]
  502. 8485 [139][198](A$)[178]13[167]:_AUSGABE
  503. 8487 [139] PS[178]L [167]:_INPU
  504. 8490 [139]([198](A$)[175]127)[179]32[167]:_INPU
  505. 8500 [153]A$;:IP$(PS)[178]A$:PS[178]PS[170]1
  506. 8510 _INPU
  507. 8520 .AUSGABE
  508. 8530 IP$[178]"":[129]X[178]0[164]PS[171]1
  509. 8540 IP$[178]IP$[170]IP$(X)
  510. 8560 [130]:[151]12[172]16[170]12,1
  511. 8570 [142]
  512. 8590 :
  513. 8600 .OK [176] CANCEL: [229]7,1:![146]0
  514. 8610 X1[178][244]:Y1[178][245]
  515. 8620 [153]"  (null)(null)  ";
  516. 8630 X2[178][244]:Y2[178][245]
  517. 8640 [217] X1[171]2,Y1[171]2,X2[170]2,Y2[170]8
  518. 8650 [236] [244][170]20
  519. 8660 [153]"ATNPEEKPEEK(null)(null)LENLEFT$";
  520. 8670 [217] X2[170]18,Y2[171]2,[244][170]2,Y2[170]8
  521. 8675 [224] X2[170]18,Y2[171]2,[244][170]2,Y2[170]8
  522. 8680 [223] SP,X1[170]4,Y1[170]4
  523. 8685 .BLINK
  524. 8690 [224] X2[170]18,Y2[171]2,[244][170]2,Y2[170]8
  525. 8692 [224] X1[171]2,Y1[171]2,X2[170]2,Y2[170]8
  526. 8695 [129] X[178]1 [164] 140
  527. 8697 [139] [246] [167]:![146]0:[137] 8700
  528. 8698 [130] :_BLINK
  529. 8700 OC [178] [240]X1,Y1,X2,Y2[170]8)
  530. 8705 [224] X1[171]2,Y1[171]2,[244][170]2,Y2[170]8,32
  531. 8710 [142]
  532. 8720 :
  533. 8750 .ASKNAME:.FUER ZS[147] UND [148]
  534. 8780 [221]60,90,208,88
  535. 8790 [237] 6:[153]" (null)(null)-(null)AME : "FH$;
  536. 8800 [217] 0,0,300,19
  537. 8810 _[133]
  538. 8820 .[159] FILE: SP$[178]"             "
  539. 8830 IP$[178][200](IP$[170]SP$,13)[170]".SH"
  540. 8835 [229]7,0
  541. 8840 [159]9,GN,2,IP$[170]",S,"[170]M$:E$[178][241]
  542. 8845 [237] [245][171]3:[142]
  543. 8850 :
  544. 8852 .KAESTCHEN
  545. 8854 Y[178][181](C[173]6):X[178]10[172](C[171]Y[172]6)
  546. 8856 [224]X,Y[172]10,X[170]9,Y[172]10[170]9
  547. 8858 [142]
  548. 8859 :
  549. 8861 .ZEIWAHL: FL[178]1:[219]
  550. 8865 [221] 8,15,64,174
  551. 8870 [153]:[153][199](6): [237]1
  552. 8875 [153]" (null)VALRIGHT$LENLEFT$VAL(null)(null)(null)(null)(null)ATN(null)"[199](7)
  553. 8880 [210] 0,9,1E3,9
  554. 8885 [235] 10,27,61,161
  555. 8890 [215] ZV$,1,1
  556. 8910 C[178]AZ:!KAESTCHEN
  557. 8915 [223] SP,X[170]5,Y[172]10[170]5
  558. 8920 .WA:[139] [240]1,1,1E3,1E3) [167]8940
  559. 8922 [219]:!VERGROE
  560. 8923 .[150]AULTMODUS: [218]
  561. 8925 [235] XM[170]1,YM[170]1,96,25
  562. 8930 [224] 0,ML[172]8[171]8,1E3,ML[172]8[171]1
  563. 8935 ML[178]1:_MOWAE
  564. 8940 [139] [246][178]0 [167]:_WA
  565. 8941 CN[178][181]([252][173]10)[170]6[172][181]([253][173]10)
  566. 8942 [139] CN[178]AZ [167]:_WA
  567. 8943 [139] CN[177]95 [167] CN[178]95
  568. 8945 C[178]AZ:!KAESTCHEN
  569. 8950 C[178]CN:!KAESTCHEN:AZ[178]C
  570. 8955 !E[181]RA:_WA
  571. 8965 :
  572. 8970 .E[181]RA: [218]
  573. 8973 [235] XZ,YZ,100,CY[170]70
  574. 8976 [233]0,1:[153][199](12);
  575. 8979 [236] 5: [237] 5
  576. 8981 [139] AZ[179]32 [167]C[178]AZ[170]64:_ZEI
  577. 8984 [139] AZ[179]64 [167]C[178]AZ   :_ZEI
  578. 8987 C[178]AZ[170]128
  579. 8990 .ZEI:[153]"(null)EICHEN: "[199](C)
  580. 8993 [236] 13: [237] 25
  581. 8995 [153]"LENODE:    CMDCMDCMD"AZ;
  582. 8997 [235] 0,0,320,200
  583. 8998 [215] SH$(AZ),XP,YP,1
  584. 9000 [219]:[142]
  585. 9001 :
  586. 9003 .MENUEDATEN:[131] 4,7
  587. 9010 [131] "STR$RIGHT$(null)(null)","DISKMENUE",4
  588. 9020 [131] "STR$IRECTORY","PEEKEFEHL SENDEN"
  589. 9030 [131] "ASCONT LADEN"
  590. 9040 [131] "ASCONT ABSPEICHERN"
  591. 9045 :
  592. 9050 [131] "ASCATN(null)PEEKVAL(null)","FARBMENUE",4
  593. 9060 [131] "(null)FEIL","LEFT$INTERGRUND"
  594. 9070 [131] "(null)CHRIFT","(null)AHMEN"
  595. 9075 :
  596. 9080 [131] "VALSTR$RIGHT$(null)(null)(null)","EDITMENUE",6
  597. 9082 [131] "(null). AUSWAEHLEN"
  598. 9084 [131] "(null)FEILGESCHW."
  599. 9086 [131] "(null). UEBERTRAGEN"
  600. 9088 [131] "(null)EUER ASCONT"
  601. 9090 [131] "CHR$ROESSE AENDERN"
  602. 9092 [131] "(null)RG VERLASSEN"
  603. 9095 :
  604. 9098 [131] "(null)VALRIGHT$LENLEFT$VAL(null)","ZEICHMENUE",7
  605. 9100 [131] "LOESCHEN","INVERTIEREN"
  606. 9103 [131] "ASCILL-ATNLGO"
  607. 9110 [131] " SHIFTEN/XR"," SHIFTEN/YR"
  608. 9120 [131] "SPIEGELN/XR","SPIEGELN/YR"
  609. 9152 :
  610. 9155 .FARBEN
  611. 9157 [131] SCHWARZ,WEISS,ROT,TUERKIS
  612. 9160 [131] "VIOLETT",GRUEN,BLAU,GELB
  613. 9163 [131] "ORANGE",BRAUN,HELLROT
  614. 9165 [131] GRAU 1,GRAU 2,HELLGRUEN
  615. 9167 [131] HELLBLAU,GRAU 3
  616. 9170 :
  617. 9175 .V[176]B:.[172][172][172]
  618. 9185 [204] 0,0,0
  619. 9190 [134] FL$(99),FM%(99)
  620. 9193 [159]1,GN,2,"FONT-LISTE,S,R"
  621. 9196 [132]1,FA
  622. 9200 [129] X[178]1 [164] FA
  623. 9203 [132]1,FM%(X),FL$(X):[130]
  624. 9206 [160] 1
  625. 9218 :
  626. 9225 [153]"LOAD";:[129] X[178]0 [164] 95
  627. 9227 Y[178] [181](X[173]6): [237] Y[172]10[170]1
  628. 9229 [236] (X[171]Y[172]6)[172]10[170]1
  629. 9231 [139] X[179]32 [167] [153][199](X[170]64);:[130]
  630. 9233 [139] X[179]64 [167] [153] [199](X);:[130]
  631. 9235 [153] [199](X[170]128);:[130]
  632. 9237 [213] ZV$,1,1,58,158
  633. 9240 :
  634. 9241 [207] MENUEDATEN
  635. 9244 [135] MN,MX:[134] MN$(MN,MX),MJ$(MN)
  636. 9247 [134] PL(MN),PR(MN),AN(MN),LM(MN)
  637. 9250 [153]:[153]"LOAD     ";
  638. 9253 [129] X[178]1 [164] MN
  639. 9256 [135] MN$(X,0),MJ$(X),AN(X)
  640. 9259 PL(X)[178][244]:[236] [244][170]4
  641. 9262 [153]MN$(X,0);
  642. 9265 [236] [244][170]4:PR(X)[178][244]
  643. 9268 [129] Y[178]1 [164] AN(X)
  644. 9271 [135] MN$(X,Y)
  645. 9274 L[178] [251]MN$(X,Y))
  646. 9277 [139] L[177]LM(X) [167] LM(X)[178]L
  647. 9280 [130]:[130]
  648. 9340 :
  649. 9390 [210] 0,8,319,8
  650. 9400 [224] 0,9,320,200,223
  651. 9405 F(4)[178]0:F(3)[178]1:F(2)[178]11:F(1)[178]7
  652. 9430 SP[178]45: [223] SP,PL(3)[170]10,5
  653. 9440 F[178]1:.FLAG, OB EDI[164]R DA IST
  654. 9450 [134]IP$(40):.FUER [133]
  655. 9525 AZ[178]1:. AKTUELLES ZEICHEN
  656. 9526 .ZEI[171][213]S,ZEI[171]LAENGEN,DATENADR.
  657. 9528 [134] SH$(95),ZL(95),AD(95)
  658. 9530 :
  659. 9531 .FAERBEN
  660. 9532 [218]:[235] 0,0,320,200
  661. 9534 [204] F(4),F(3),F(2)
  662. 9536 [228]0,0,319,7,F(3),F(4)
  663. 9538 [229] 6,1,F(3):[229] 7,1,F(1)
  664. 9540 [219]:[142]
  665.