home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 June / 64er_Magazin_85-06_1985_Markt__Technik_de.d64 / scroll-editor (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  10.7 KB  |  592 lines
  1. 0 rem************ editor **************
  2. 1 rem*--------------------------------*
  3. 2 rem*                                *
  4. 3 rem*   (c) 1985 by thilo herrmann   *
  5. 4 rem*         poststr. 6             *
  6. 5 rem*         7321 b\rtlingen        *
  7. 6 rem*                                *
  8. 7 rem*         tel. 07161/52592       *
  9. 8 rem*--------------------------------*
  10. 9 rem**********************************
  11. 10 :
  12. 100 ifpeek(50000)=56andpeek(50001)=253then160
  13. 110 print"scroll-machine laden !"
  14. 120 end
  15. 130 :
  16. 140 :
  17. 150 rem erweiterung ein
  18. 160 sys49152
  19. 170 rem basic-speicher ueber 20000
  20. 180 rem       freihalten
  21. 190 poke56,78:poke55,32:clr
  22. 200 ze=160:v=53248:as=1024:sp=53240:m=1
  23. 210 sx=40:sy=180:tt=197:nt=64
  24. 220 xk=64:yk=8
  25. 230 h1=8:h2=16:h3=255:h4=256
  26. 240 uf=55296: rem zwischenspeicher
  27. 250 a(0)=1:a(1)=0:a(2)=128
  28. 260 pokev+21,0
  29. 270 a=3:gosub2240
  30. 280 gosub2280
  31. 290 :
  32. 300 rem *** eingabe ***
  33. 310 gosub2500:_us0
  34. 320 print"[147]"
  35. 330 sa=40960:xd=128:yd=64
  36. 340 gosub4860
  37. 350 :
  38. 360 :
  39. 370 rem zeichensatz kopieren
  40. 380 print"[147]":gosub5010
  41. 390 :
  42. 400 rem *** parameter setzen ***
  43. 410 _rs:_zf14
  44. 420 s2=sa-19-7*xd:gosub2130
  45. 430 _mts2,xd,yd
  46. 440 _js1,64,64
  47. 450 _gm1:_grxd*8,xd*16-8,0,yd*8-8
  48. 460 df=3*xd
  49. 470 :
  50. 480 rem textfenster verlegen
  51. 490 _rz40,50,164
  52. 500 _su0:_1r31,23,16
  53. 510 _rf6,6,6:_vi52224,15
  54. 520 :
  55. 530 ifwhthen760
  56. 540 _fu52224,53223,32
  57. 550 _us1:gosub2500:gosub3080
  58. 560 f(1)=14:f(4)=6
  59. 570 ifc=1thenf(1)=0:f(2)=7:f(3)=8:f(4)=10
  60. 580 gosub2500:gosub2930
  61. 590 :
  62. 600 rem palette erstellen
  63. 610 a=52867:b=40:c=32
  64. 620 fori=0to7
  65. 630 fort=0to31
  66. 640 pokea+i*b+t,i*c+t
  67. 650 nextt,i
  68. 660 :
  69. 670 rem *** loeschen ***
  70. 680 gosub2500:print"loeschen (j/n)?"
  71. 690 gosub2060:onagoto700,760
  72. 700 print"[145]wirklich (j/n)?"
  73. 710 gosub2060:onagoto720,760
  74. 720 _fusa,ea,32
  75. 730 :
  76. 740 :
  77. 750 rem *** sprites ***
  78. 760 _fuas,as+62,.
  79. 770 fort=as+6tot+21step3:poket,3:next
  80. 780 fort=as+8tot+21step3:poket,192:next
  81. 790 pokeas+31,255:pokeas+4,255
  82. 800 _ut as,as+64,55296,48,48
  83. 810 pokesp,96:pokesp+1,96
  84. 820 pokev,175:pokev+1,100
  85. 830 pokev+2,0:pokev+3,180
  86. 840 pokev+40,7
  87. 850 pokev+21,3
  88. 860 :
  89. 870 _fu960,1023,0
  90. 880 _fu1024,2023,32
  91. 890 _fu2040,2047,15
  92. 900 gosub2570
  93. 910 :
  94. 920 ifwhthen970
  95. 930 wh=1:rem flag setzen
  96. 940 :
  97. 950 rem auf 0,0 -position setzen
  98. 960 _poxd*8,0
  99. 970 _tm1:_us1:print
  100. 980 e$="[255]":gosub4760:goto1070
  101. 990 :
  102. 1000 :
  103. 1010 rem ***** hauptroutine *****
  104. 1020 :
  105. 1030 rem *** tastaturabfrage ***
  106. 1040 rem cursortasten abfragen
  107. 1050 gete$:ife$=""then1490
  108. 1060 ife$="[145]"ore$=""ore$="[157]"ore$=""thengosub2730:goto1410
  109. 1070 e=val(e$)
  110. 1080 rem zeichen unter cursor loeschen
  111. 1090 ifpeek(tt)=.ore$=chr$(20)thenpokepo,32:goto1490
  112. 1100 ife$=" "thengosub4300
  113. 1105 ife$="@"then5430
  114. 1110 ife$="r"thengosub4370
  115. 1120 ife>0then:_ase-1
  116. 1130 ife$=""thenze=32
  117. 1140 gosub2500
  118. 1150 _fu1024,2023,32
  119. 1160 ife$="l"then680
  120. 1170 :
  121. 1180 :
  122. 1190 gosub2690
  123. 1200 ife$="[136]"thengosub2250
  124. 1210 ife$="k"thengosub2200
  125. 1220 ife$="m"thengosub4820
  126. 1230 ife$="[205]"thengosub5230
  127. 1240 ife$="[133]"then1790
  128. 1250 ife$="[134]"then1890
  129. 1260 ife$=""thenpoke648,4:_us0:print"[147]";:end
  130. 1270 ife$="f"thengosub2910
  131. 1280 ife$="z"then3140
  132. 1290 ife$="[215]"thengosub3420
  133. 1300 ife$="s"thengosub3230
  134. 1310 ife$="c"thengosub5010
  135. 1320 ife$="w"thengosub4700
  136. 1330 ife$="a"then5080
  137. 1340 ife$="u"thengosub3570
  138. 1350 ife$="t"then5540
  139. 1360 ife$="[203]"thengosub3700
  140. 1370 ife$="^"thengosub5360
  141. 1390 ife$="_"thengosub4760
  142. 1400 rem bildschirm zuruecksetzen
  143. 1410 gosub2570:print
  144. 1420 _fu55896,56295,fs
  145. 1430 _fu55296,55855,f(4)
  146. 1440 pokev+39,1:poke198,0
  147. 1450 xc=zeand31:yc=int(ze/32)
  148. 1460 ut=1:gosub2780:ut=0
  149. 1470 printtab(26)"[145]nr. :"ze"[157]  "
  150. 1480 :
  151. 1490 gosub1580
  152. 1500 ifm2thengosub1630
  153. 1510 ifusr(4)then:gosub1540:pokepo,ze
  154. 1520 _sy1
  155. 1530 gosub1690:goto1050
  156. 1540 ifm1thenze=k(paand7,km):pa=usr(kd)
  157. 1550 ifwethenze=ze+1:ifze>w2thenze=w1
  158. 1560 return
  159. 1565 :
  160. 1570 rem adresse berechnen
  161. 1580 po=usr(3)-df
  162. 1590 ifpo<.thenpo=65536+po
  163. 1600 return
  164. 1610 :
  165. 1620 rem micro-punkt berechnen
  166. 1630 pu=p2((p1and1)+(p2and1)*2)
  167. 1640 ze=s(r(usr(po))orpu)
  168. 1650 p1=usr(1)/4:p2=usr(2)/4
  169. 1660 return
  170. 1670 :
  171. 1680 rem x- und y-koordinaten printen
  172. 1690 gosub1750
  173. 1700 print"[145]x:"xp;
  174. 1710 print"[157] y:"yp;
  175. 1720 print"[157] addr:"po"[157]   "
  176. 1730 return
  177. 1740 :
  178. 1750 xp=int(usr(1)/8-xd)
  179. 1760 yp=int(usr(2)/8):return
  180. 1770 :
  181. 1780 rem *** abspeichern ***
  182. 1790 print"abspeichern (j/n)?"
  183. 1800 gosub2060:onagoto1810,1410
  184. 1810 gosub5780:ifa$="k"then3960
  185. 1820 _mtsa,xd,yd
  186. 1830 _us0
  187. 1840 open1,8,15,"s:"+n$:gosub1990
  188. 1850 _sv n$,ea
  189. 1860 gosub1980:goto420
  190. 1870 :
  191. 1880 rem *** laden ***
  192. 1890 print"laden (j/n)?"
  193. 1900 gosub2060:onagoto1910,1410
  194. 1910 gosub5780:ifa$="k"then4190
  195. 1920 _ld n$
  196. 1930 gosub1980:ifenthen1950
  197. 1940 sa=usr(10):xd=usr(11):yd=usr(12)
  198. 1950 goto420
  199. 1960 :
  200. 1970 rem floppymeldung
  201. 1980 _us0:open1,8,15
  202. 1990 input#1,en,er$,et,es
  203. 2000 close1:_us1
  204. 2010 if er$="ok"then return
  205. 2020 print""en;er$;et;es
  206. 2030 wait197,63:poke198,0:return
  207. 2040 :
  208. 2050 rem j/n eingabe
  209. 2060 poke198,0
  210. 2070 geta$
  211. 2080 ifa$="j"thena=1:return
  212. 2090 ifa$<>"n"then2070
  213. 2100 a=2:return
  214. 2110 :
  215. 2120 rem endadresse berechnen
  216. 2130 ea=sa+xd*yd-1:return
  217. 2140 :
  218. 2150 :
  219. 2160 rem hi/lo-byte umrechnung
  220. 2170 h=int(a/256):l=a-h*256:return
  221. 2180 :
  222. 2190 rem kontur einstellen
  223. 2200 gosub3880
  224. 2210 input"geschwindigkeit:8[157][157][157]";ge
  225. 2220 ifa<3then:xk=ge:yk=64:goto2240
  226. 2230 yk=ge:xk=64
  227. 2240 km=a:kd=(a-1)/2+1
  228. 2250 we=0:m1=1:m2=0:_js1,xk,yk:return
  229. 2260 :
  230. 2270 rem micro-datas
  231. 2280 data 32,108,123,98,124,225,255,254,126,127,97,252,226,251,236,160
  232. 2290 dimr(255),s(15)
  233. 2300 restore
  234. 2310 fori=0to15
  235. 2320 reada:s(i)=a:r(a)=i:next
  236. 2330 :
  237. 2340 fori=0to3:p2(i)=2^(3-i):next
  238. 2350 :
  239. 2360 rem y - datas
  240. 2370 data100,111,121,98,248,247,227,160
  241. 2380 fori=7to0step-1:reada:k(i,3)=a
  242. 2390 k(i,4)=a+128and255:next
  243. 2400 :
  244. 2410 rem x - datas
  245. 2420 data101,116,117,97,246,234,231,160
  246. 2430 fori=0to7:reada:k(i,1)=a
  247. 2440 k(i,2)=a+128and255:next
  248. 2450 :
  249. 2460 return
  250. 2470 :
  251. 2480 :
  252. 2490 rem normal schalten
  253. 2500 poke648,4
  254. 2510 _mc21,52,52
  255. 2520 _ci151,148,148
  256. 2530 gosub2650
  257. 2540 return
  258. 2550 :
  259. 2560 rem palette einschalten
  260. 2570 _mc52,52,52
  261. 2580 _ci148,148,148
  262. 2590 poke648,204
  263. 2600 poke214,14:print
  264. 2610 _fu55856,55895,6:rem hin.far.
  265. 2620 return
  266. 2630 :
  267. 2640 rem cursor setzen + zeile loeschen
  268. 2650 poke214,14:print:print"                                       [145]"
  269. 2660 return
  270. 2670 :
  271. 2680 rem auf vielfaches von 8 setzen
  272. 2690 gosub1750:_poxd*8+xp*8,yp*8:return
  273. 2700 :
  274. 2710 :
  275. 2720 rem wahl des characters
  276. 2730 ife$="[145]"thenyc=yc-1:ifyc<0thenyc=7
  277. 2740 ife$=""thenyc=yc+1:ifyc>7thenyc=0
  278. 2750 ife$="[157]"thenxc=xc-1:ifxc<0thenxc=31
  279. 2760 ife$=""thenxc=xc+1:ifxc>31thenxc=0
  280. 2770 rem spritesteuerung
  281. 2780 cx=xc*h1+sx
  282. 2790 pokev+2,cxandh3
  283. 2800 pokev+h2,sgn(cxandh4)*2
  284. 2810 pokev+3,sy+yc*h1
  285. 2820 :
  286. 2830 ifutthen2860
  287. 2840 ifpeek(tt)<>ntthengete$:goto2730
  288. 2850 gosub2570:print
  289. 2860 ze=yc*32+xc:rem zeichen berechnen
  290. 2870 return
  291. 2880 :
  292. 2890 :
  293. 2900 rem farbeneingabe
  294. 2910 gosub3080
  295. 2920 :
  296. 2930 print
  297. 2940 a=1:gosub3050:
  298. 2950 oncgoto2960,2980
  299. 2960 a=2:gosub3050:pokev+34,f(2)
  300. 2970 a=3:gosub3050:pokev+35,f(3)
  301. 2980 _2r200+b,200,192+b
  302. 2990 a=4:gosub3050:_hf6,6,f(1)
  303. 3000 :
  304. 3010 fs=f(4)
  305. 3020 ifb=0thenfs=f(1)
  306. 3030 gosub2570:return
  307. 3040 :
  308. 3050 print"[145]farbe"a":  "f(a)"[157] "
  309. 3060 print"[145]"tab(10);:inputf(a):return
  310. 3070 :
  311. 3080 print"multicolor (j/n)?"
  312. 3090 gosub2060:gosub2500:b=(1-(a-1))*16:c=a
  313. 3100 return
  314. 3110 :
  315. 3120 :
  316. 3130 rem zeichensatz laden
  317. 3140 print"zeichensatz laden (j/n)?"
  318. 3150 gosub2060:onagoto3160,3190
  319. 3160 input"name: ";n$
  320. 3170 rem laden an 53248 - 2
  321. 3180 _ld n$,53246:gosub1980
  322. 3190 goto420
  323. 3200 :
  324. 3210 :
  325. 3220 rem schreiben
  326. 3230 _sy0:_tm0:_js0:rt=usr(1)
  327. 3240 x=usr(1):y=usr(2)
  328. 3250 geta$:ifa$="[136]"then:_tm1:_js1:return
  329. 3260 ifa$=""then3250
  330. 3270 a=asc(a$)
  331. 3280 rem cursorsteuercodes beachten
  332. 3290 ifa=32then3360
  333. 3300 ifa=20ora=157thenx=x-8:goto3380
  334. 3310 ifa=29thenx=x+8:goto3380
  335. 3320 ifa=17theny=y+8:goto3380
  336. 3330 ifa=145theny=y-8:goto3380
  337. 3340 ifa=13theny=y+8:x=rt:goto3380
  338. 3350 ifa=18ora=146thenprinta$;:goto3250
  339. 3360 print""a$;:a=peek(1024)
  340. 3370 pokeusr(3)-df,a:x=x+8
  341. 3380 _pox,y:goto3240
  342. 3390 :
  343. 3400 :
  344. 3410 rem wechsel
  345. 3420 gosub2570:gosub2650
  346. 3430 print"wechsel von":gosub3500
  347. 3440 w1=ze
  348. 3450 print"[145]wechsel bis":gosub3500
  349. 3460 w2=ze:ifw2<w1then3450
  350. 3470 we=1:return
  351. 3480 :
  352. 3490 rem waehlen des zeichens
  353. 3500 gosub2730
  354. 3510 gete$:ife$=chr$(13)thenreturn
  355. 3520 ife$=""then3510
  356. 3530 goto3500
  357. 3540 :
  358. 3550 :
  359. 3560 rem uebertragen
  360. 3570 gosub2570:gosub2650
  361. 3580 y2=yc:x2=xc:ut=1
  362. 3590 print"uebertragen !"
  363. 3600 gete$:ife$=chr$(13)thenut=.:return
  364. 3610 ife$=""then3600
  365. 3620 gosub2730
  366. 3630 a=usr(3)-df+xc-x2+yc*xd-y2*xd
  367. 3640 ifa>=saanda<=eathenpokea,ze
  368. 3650 _sy1
  369. 3660 goto3600
  370. 3670 :
  371. 3680 :
  372. 3690 rem konturen definieren
  373. 3700 gosub3880:a2=a
  374. 3710 gosub2570:gosub2650
  375. 3720 print"erstes element ?"
  376. 3730 gosub3500
  377. 3740 gosub2650
  378. 3750 :
  379. 3760 rem austeigend oder fallend
  380. 3770 print"1...[-1] / 2...[+1]"
  381. 3780 geta$:a=val(a$)*2-3
  382. 3790 ifa<-1ora>1then3780
  383. 3800 a3=0
  384. 3810 rem in variablen schreiben
  385. 3820 fori=-3.5*ato3.5*astepa
  386. 3830 k(i+4,a2)=ze+a3:a3=a3+1:next
  387. 3840 a=a2:gosub2650:goto2210
  388. 3850 :
  389. 3860 :
  390. 3870 rem wahl des konturmodes
  391. 3880 print"1...x+ [194] 2...x- [194] 3...y+ [194] 4...y-
  392. 3890 [161]a$:a[178][197](a$)
  393. 3900 [139]a[179]1[176]a[177]4[167]3890
  394. 3910 [142]
  395. 3920 :
  396. 3930 :
  397. 3940 [143] abspeichern auf kassette
  398. 3950 [143] schreiben von sa,xd,yd
  399. 3960 _of:[159]1,1,1,n$:[152]1,sa","xd","yd:[160]1
  400. 3970 [143] schreiben des schirms
  401. 3980 [141]4050:a[178]sa:[141]2170
  402. 3990 [151]251,l:[151]252,h
  403. 4000 a[178]ea[170]1:[141]2170
  404. 4010 [151]780,251:[151]781,l:[151]782,h
  405. 4020 [158]65496:[160]1:[158]49152:[137]410
  406. 4030 :
  407. 4040 [143] oeffnen des kassettenkanals
  408. 4050 l[178][195](n$):[151]183,l
  409. 4060 s[178]256[172]204
  410. 4070 [139]l[178]0[167]4100
  411. 4080 [129]x[178]1[164]l
  412. 4090 [151]s[170]x[171]1,[198]([202](n$,x,1)):[130]
  413. 4100 [151]780,1:[151]781,1:[151]782,0
  414. 4110 [158]65466
  415. 4120 [151]780,l:[151]781,0
  416. 4130 [151]782,204:[158]65469
  417. 4140 [142]
  418. 4150 :
  419. 4160 :
  420. 4170 [143] laden von kassette
  421. 4180 [143] lesen von sa,xd,yd
  422. 4190 _of:[159]1,1,0,n$:[132]1,s2,x2,y2:[160]1
  423. 4200 [143] lesen des schirms
  424. 4210 [141]4050:a[178]s2:[141]2170
  425. 4220 [151]780,0:[151]781,l:[151]782,h
  426. 4230 [158]65493
  427. 4240 [139](st [175] 48)[167][153]"band fehler !":[160]1:[146]197,63:[137]410
  428. 4250 sa[178]s2:xd[178]x2:yd[178]y2:[158]49152:[137]410
  429. 4260 :
  430. 4270 :
  431. 4280 [143] schnellgang
  432. 4290 [143] syncronisation aus + hf=gruen
  433. 4300 _sy0:_rf6,6,5:[151]v[170]39,1
  434. 4310 [141]1580:[141]1690
  435. 4320 [161]e$:[139]e$[178]""[167]4310
  436. 4330 e$[178]"":_rf6,6,6:[142]
  437. 4340 :
  438. 4350 :
  439. 4360 [143] rechteck ausfuellen
  440. 4370 [141]4480:[143] bereich waehlen
  441. 4380 [139]e$[178]"_"[167][142]
  442. 4390 :
  443. 4400 [143] rechteck fuellen
  444. 4410 [129]i[178]ys[164]yp
  445. 4420 br[178]ps[170](yp[171]i)[172]xd
  446. 4430 _fu br,br[170](xp[171]xs),ze
  447. 4440 [130]
  448. 4450 e$[178]"":[142]
  449. 4460 :
  450. 4470 [143] bereich waehlen
  451. 4480 xs[178]xp:ys[178]yp:ps[178]po:g[178][183](ps)
  452. 4490 [151]ps,([183](ps)[170]128)[175]h3
  453. 4500 [151]v[170]39,[194](v[170]39)[170]1[175]h3
  454. 4510 _sy1
  455. 4520 [141]1580:[141]1690
  456. 4530 [139][183](4)[167]4590
  457. 4540 [161]e$
  458. 4550 [139]e$[178]""[167]4490
  459. 4560 [139]e$[178]" "[167][141]4300
  460. 4570 [139]e$[178]"_"[167][151]ps,g:[137]4760
  461. 4580 [137]4490
  462. 4590 [151]ps,g
  463. 4600 :
  464. 4610 [143] normalisieren
  465. 4620 [139]xp[171]xs[179]0[167]a[178]xp:xp[178]xs:xs[178]a
  466. 4630 [139]yp[171]ys[179]0[167]a[178]yp:yp[178]ys:ys[178]a
  467. 4640 ps[178]sa[170]ys[172]xd[170]xs
  468. 4650 [142]
  469. 4660 :
  470. 4670 :
  471. 4680 :
  472. 4690 [143] umschalten auf wechselmodus
  473. 4700 we[178]we[170]1[175]1
  474. 4710 [139]we[167]ze[178]w1:[142]
  475. 4720 [137]2860
  476. 4730 :
  477. 4740 :
  478. 4750 [143] reset
  479. 4760 m1[178]0:m2[178]0:[141]2690:_js1,64,64
  480. 4770 we[178]0:ze[178]160
  481. 4780 [142]
  482. 4790 :
  483. 4800 :
  484. 4810 [143] micro - mode setzen
  485. 4820 m2[178]1:m1[178]0:we[178]0:_js1,32,32:[142]
  486. 4830 :
  487. 4840 :
  488. 4850 [143] eingabe von aa,xd,yd
  489. 4860 [141]2650
  490. 4870 [153]"x- und y-ausdehnung   "xd","yd
  491. 4880 [153]"on"[166]23);:[133]xd,yd
  492. 4890 [153]"startadresse   "sa
  493. 4900 [153]"on"[166]16);:[133]sa
  494. 4910 [139]xd[179]1[176]yd[179]1[167]4860
  495. 4920 [141]2130
  496. 4930 [153]"start:"sa"  ende:"ea
  497. 4940 [139]sa[179]20000[176](sa[177]49152[175]sa[179]57344)[176]sa[177]65530[167]4860
  498. 4950 [139](ea[177]49152[175]ea[179]57344)[176]ea[177]65535[167]4860
  499. 4960 [153]"richtig (j/n)?"
  500. 4970 [141]2060:[145]a[137]4980,4860
  501. 4980 [142]
  502. 4990 :
  503. 5000 [143] zeichensatz vom rom ins ram
  504. 5010 [141]2500:[153]"zeichensatz kopieren (j/n)?"
  505. 5020 [141]2060:[145]a[137]5030,5040
  506. 5030 _cp
  507. 5040 [142]
  508. 5050 :
  509. 5060 :
  510. 5070 [143] umformatieren eines schirms
  511. 5080 sf[178]sa:ef[178]ea:xf[178]xd:yf[178]yd
  512. 5090 [141]4860:_us0:l[178]48
  513. 5100 l1[178]0:l2[178]yf[171]1:l3[178]1
  514. 5110 [139]xd[177]xf[167]l1[178]yf[171]1:l2[178]0:l3[178][171]1
  515. 5120 :
  516. 5122 [153]"load schirm an neue adresse kopieren (j/n)?"
  517. 5123 [141] 2060:[145] a [137] 5140,5190
  518. 5130 :
  519. 5140 [129]i[178] l1 [164] l2 [169] l3
  520. 5150 a[178]sf[170]xf[172]i:b[178]sf[170]xf[172](i[170]1)[171]1:c[178]b[171]a
  521. 5160 _ut a,b,uf,l,l
  522. 5170 _ut uf,uf[170]c,sa[170]xd[172]i,l,l
  523. 5180 [130]
  524. 5190 [137]420
  525. 5200 :
  526. 5210 :
  527. 5220 [143] micro-zeichen definieren
  528. 5230 [141]2570:[141]2650
  529. 5240 [153]"erstes element ?"
  530. 5250 [141]3500:[143] zeichen waehlen
  531. 5260 [139]ze[177]240[167]5250
  532. 5270 [141]5320
  533. 5280 [129]i[178]0[164]15:s(i)[178]i[170]ze:r(i[170]ze)[178]i
  534. 5290 [130]
  535. 5300 [137]4820
  536. 5310 :
  537. 5320 [129]i[178]0[164]255:r(i)[178].:[130]:[142]
  538. 5330 :
  539. 5340 :
  540. 5350 [143] kontur und micro reset
  541. 5360 [153]"kontur und micro zuruecksetzen (j/n)?"
  542. 5370 [141]2060:[145]a[137]5380,5390
  543. 5380 [141]5320:[141]2300
  544. 5390 [142]
  545. 5400 :
  546. 5410 :
  547. 5420 [143] micro-mode umschalten
  548. 5430 r(32)[178]15[171]r(32)
  549. 5440 [129]i[178]0[164]15
  550. 5450 r(s(i))[178]15[171]i
  551. 5460 [130]
  552. 5470 [129]i[178]0[164]7
  553. 5480 a[178]s(i):s(i)[178]s(15[171]i):s(15[171]i)[178]a
  554. 5490 [130]
  555. 5500 [137]1490
  556. 5510 :
  557. 5520 :
  558. 5530 [143] transfer eines bereiches
  559. 5540 [141]4480:[143] bereich waehlen
  560. 5550 [139]e$[178]"_"[167]420
  561. 5560 [141]2650:[153]"wohin (linker oberer punkt) ?on"
  562. 5570 [139][183](4)[167]5570
  563. 5580 pt[178]ps:xt[178]xs:yt[178]ys
  564. 5590 xr[178]xp:yr[178]yp:[141]4480
  565. 5600 [139]e$[178]"_"[167]420
  566. 5610 :
  567. 5620 [143] rechteck uebertragen
  568. 5630 _us0
  569. 5640 [139]po[177]pt[167]l1[178]yt:l2[178]yr:l3[178]1:[137]5660
  570. 5650 l1[178]yr:l2[178]yt:l3[178][171]1
  571. 5660 l[178]48
  572. 5670 [129]i[178]l1[164]l2[169]l3
  573. 5680 br[178](yr[171]i)[172]xd
  574. 5690 a[178](xr[171]xt)
  575. 5700 _ut pt[170]br,pt[170]br[170]a,uf,l,l
  576. 5710 [139]po[170]br[170]a[177]ea[167]5730
  577. 5720 _ut uf,uf[170]a,po[170]br,l,l
  578. 5730 [130]
  579. 5740 [137]420
  580. 5750 :
  581. 5760 :
  582. 5770 [143] eingabe fuer disk & kassette
  583. 5780 n$[178]"":[133]"name: ";n$
  584. 5790 [153]"dwaitisk oder kwaitassette ?
  585. 5800 geta$:ifa$<>"k"anda$<>"d"then5800
  586. 5810 return
  587. 5820 gosub2280:restore
  588. 5830 fori=0to15
  589. 5840 r(s(i))=15-i:reada:s(15-i)=a+128and255
  590. 5850 next
  591. 5860 fori=0to15:prints(i);:next
  592.