home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 February / 64er_Magazin_89-02_1989_Markt__Technik_de_Disk_1_of_2_Side_B.d64 / font-editor (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.