home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 September / 64er_Magazin_88-09_1988_Markt__Technik_de_Side_B.d64 / lupe.src (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  13KB  |  968 lines
  1. 99 ;.object "@:lupe.fox,p,w"
  2. 100 +$5400
  3. 105  (NULL)aut
  4. 110 toxl=$bb
  5. 120 toxh=$bc
  6. 130 toy=$bd
  7. 190 toxql=$be
  8. 195 toxqh=$bf
  9. 210 tosuml=$8d
  10. 220 tosumh=$8e
  11. 230 tozw1=$8f
  12. 231 toquellspl=$8b
  13. 232 toquellsph=$8c
  14. 240 ;
  15. 321 tofac1=$61;
  16. 322 tofac2=$69;
  17. 323 tojoy=56320;joy-port
  18. 324 torahmfarb=53280
  19. 325 toshift=653;s/cbm/ctr
  20. 326 tobild=$6000;bild
  21. 330 ;
  22. 340 towort=$b391;y/a i.fac
  23. 350 tobyte=$b3a2;y in fac
  24. 360 tomulti=$ba30;fac1*fac2
  25. 370 tochkcom=$aefd;komma ?
  26. 380 toformel=$ad9e;formel
  27. 390 tointeger=$b1aa;fac1= y/a
  28. 410 togetbyt=$b79e;byte=fac
  29. 420 togetadr=$b7f7;wort=fac
  30. 430 tofehler=$b248
  31. 440 torunden=$bc1b;facrunden
  32. 450 totaste=$ffe4;input
  33. 460 todivi=$bb0f;division
  34. 470 tomflpt=$bbd4;fac=mflpt
  35. 730 ;
  36. 740 ;
  37. 800 multlo fn0,$40,$80,$c0
  38. 801  fn0,$40,$80,$c0
  39. 802  fn0,$40,$80,$c0
  40. 804  fn0,$40,$80,$c0
  41. 806  fn0,$40,$80,$c0
  42. 810  fn0,$40,$80,$c0
  43. 812  fn0,$40,$80,$c0
  44. 813  fn0,$40,$80,$c0
  45. 814  fn0,$40,$80,$c0
  46. 815  fn0,$40,$80,$c0
  47. 816  fn0,$40,$80,$c0
  48. 817  fn0,$40,$80,$c0
  49. 818  fn0,$40;lowbyte
  50. 820 ;
  51. 835 multhi fn0,1,2,3,5,6,7,8
  52. 850  fn$0a,$0b,$0c,$0d
  53. 860  fn$0f,$10,$11,$12
  54. 870  fn$14,$15,$16,$17
  55. 880  fn$19,$1a,$1b,$1c
  56. 881  fn$1e
  57. 882  fn$1f,$20,$21,$23
  58. 883  fn$24,$25,$26,$28
  59. 884  fn$29,$2a,$2b,$2d
  60. 885  fn$2e,$2f,$30,$32
  61. 886  fn$33,$34,$35,$37
  62. 887  fn$38,$39,$3a,$3c
  63. 888  fn$3d;highbyte
  64. 895 ;
  65. 900 hochtab fn128,64,32,16
  66. 902  fn8,4,2,1;hochzahl
  67. 905 ;
  68. 930 rx1l fn150;arbeits-
  69. 932 rx1h fn0;speicher
  70. 934 ry1 fn90
  71. 936 rx2l fn170
  72. 938 rx2h fn0
  73. 940 ry2 fn110
  74. 942 lo fn0,0
  75. 944 lu fn0,0
  76. 946 ro fn0,0
  77. 948 ru fn0,0
  78. 950 flag fn0
  79. 951 xqminl fn0
  80. 952 xqminh fn0
  81. 953 xminl fn0
  82. 954 xminh fn0
  83. 955 xmaxl fn0
  84. 956 xmaxh fn0
  85. 957 yqmin fn0
  86. 958 yqmax fn0
  87. 959 ymin fn0
  88. 960 ymax fn0
  89. 961 xqlangl fn0
  90. 962 xqlangh fn0
  91. 963 xlangl fn0
  92. 964 xlangh fn0
  93. 965 ylang fn0
  94. 966 yqlang fn0
  95. 970 xfaktor then7
  96. 971 yfaktor then7
  97. 972 xyfaktor then7
  98. 973 wait fn0
  99. 974 rrx1l fn0,0,0,63,1,199
  100. 994  fn0,0,0,159,0,199
  101. 995  fn0,0,0,159,0,99
  102. 996  fn150,0,90,170,0,110
  103. 997 ;
  104. 998 ;
  105. 999 ;
  106. 1000 tele (NULL)$09c3;loeschen
  107. 1003  (NULL)$0b52;punkte
  108. 1008  len#0;ziel-
  109. 1009  peek#$80; basis
  110. 1010  (NULL)quellspl; "
  111. 1015  [211]quellsph; "
  112. 1020  (NULL)flag;x-ko.qu
  113. 1021  (NULL)y;y-ko.qu
  114. 1025  mid$#100;max. y
  115. 1030  (NULL)ymax; quelle
  116. 1035  (NULL)telesub;bild   1
  117. 1040  mid$#$80;ziel-
  118. 1045  peek#$be; basis
  119. 1050  (NULL)quellspl; "
  120. 1055  [211]quellsph; "
  121. 1060  mid$#200;max. y
  122. 1065  (NULL)ymax; quelle
  123. 1070  (NULL)telesub;bild   2
  124. 1075  mid$#$40;ziel-
  125. 1080  peek#$81; basis
  126. 1085  (NULL)quellspl; "
  127. 1090  [211]quellsph; "
  128. 1095  mid$#160;x-start-
  129. 1100  (NULL)flag; quelle
  130. 1105  mid$#100;max. y
  131. 1110  (NULL)ymax;v.quelle
  132. 1111  (NULL)y;y-koo.qu
  133. 1115  (NULL)telesub;bild   3
  134. 1120  mid$#$c0;ziel-
  135. 1125  peek#$bf; basis
  136. 1130  (NULL)quellspl; "
  137. 1135  [211]quellsph; "
  138. 1140  mid$#200;max. y
  139. 1145  (NULL)ymax;v.quelle
  140. 1150  (NULL)telesub;bild   4
  141. 1155  (NULL)$0a4c;_ $6000
  142. 1298 ;
  143. 1299 ;
  144. 1300 telesub (NULL)$0b46;ram ein
  145. 1302  (NULL)zw1;x/ystart
  146. 1305 telelop1 (NULL)xql;von
  147. 1310  (NULL)xqh;ziel
  148. 1315  mid$flag;quell-
  149. 1320  (NULL)xl;start
  150. 1325  (NULL)xh
  151. 1330  peek#0
  152. 1339 telelop2 mid$y;y-ko.qu
  153. 1340  (NULL)adr320
  154. 1345  asc(suml),y;gesetzt?
  155. 1350  (NULL)telejmp1;nein
  156. 1355  (NULL)plotten
  157. 1360  right$zw1;ziely+1
  158. 1365  (NULL)plotten
  159. 1370  right$xql;zielx+1
  160. 1375  (NULL)tnoc1
  161. 1380  right$xqh
  162. 1385 tnoc1 (NULL)plotten
  163. 1390  chr$zw1;ziely-1
  164. 1395  (NULL)plotten
  165. 1400  (NULL)telejmp2
  166. 1405 telejmp1 right$xql
  167. 1410  (NULL)telejmp2
  168. 1415  right$xqh
  169. 1420 telejmp2 right$xql
  170. 1425  (NULL)tnoc2
  171. 1430  right$xqh
  172. 1435 tnoc2 right$xl;x-ko.qu
  173. 1440  (NULL)tnoc3
  174. 1445  right$xh
  175. 1450 tnoc3 (NULL);zaehler
  176. 1455  tan#160;bis 159
  177. 1460  (NULL)telelop2
  178. 1465  right$zw1;y-ko.
  179. 1470  right$zw1;ziel+2
  180. 1475  peeky
  181. 1476  (NULL)
  182. 1477  (NULL)y
  183. 1480  tanymax;ende y?
  184. 1485  (NULL)telelop1
  185. 1486  right$rahmfarb
  186. 1487  (NULL)$0b4c;rom ein
  187. 1898 ;
  188. 1899 ;
  189. 1901 plotten (NULL)sumh
  190. 1902  mid$zw1;y-koo.
  191. 1905  (NULL)adr640;  ziel
  192. 1910  (NULL)(suml),y
  193. 1915  (NULL)(suml),y
  194. 1920  (NULL)
  195. 2000 lupe (NULL)$0b52;punkte
  196. 2001  (NULL)
  197. 2005  right$rahmfarb
  198. 2010  mid$xmaxl;max x
  199. 2015  peekxmaxh
  200. 2020  (NULL)xl
  201. 2025  (NULL)xh
  202. 2030  lenymax;max. y
  203. 2035  (NULL)y
  204. 2040 xlop mid$joy
  205. 2045  str$#$7f
  206. 2050  (NULL)noback
  207. 2055  (NULL)endtest;ende
  208. 2060 noback (NULL);x-quelle
  209. 2065  mid$xl;berechn
  210. 2070  (NULL)xminl
  211. 2075  (NULL)
  212. 2080  mid$xh
  213. 2085  (NULL)xminh
  214. 2090  (NULL)wort
  215. 2095  peek#6
  216. 2100 luplop2 mid$xfaktor,x;faktor
  217. 2105  (NULL)fac2-1,x;in fac2
  218. 2110  (NULL)
  219. 2115  (NULL)luplop2
  220. 2120  (NULL)$70
  221. 2125  (NULL)multi;f1 * f2
  222. 2130  (NULL)integer
  223. 2135  (NULL);x-high
  224. 2140  (NULL);x-low
  225. 2145  (NULL)
  226. 2150  valxqminl
  227. 2155  (NULL)xql
  228. 2160  (NULL);x-high
  229. 2165  valxqminh
  230. 2170  (NULL)xqh
  231. 2175  leny
  232. 2180 ylop (NULL)
  233. 2185  (NULL)
  234. 2190  (NULL)ymin
  235. 2195  (NULL)
  236. 2200  (NULL)byte;y-wert
  237. 2205  peek#6
  238. 2210 luplop3 mid$yfaktor,x;faktor
  239. 2215  (NULL)fac2-1,x;in fac2
  240. 2220  (NULL)
  241. 2225  (NULL)luplop3
  242. 2230  (NULL)$70
  243. 2235  (NULL)sumh
  244. 2240  (NULL)multi;f1 * f2
  245. 2245  (NULL)integer
  246. 2250  (NULL)
  247. 2255  (NULL)
  248. 2260  valyqmin
  249. 2265  peek#$34
  250. 2270  (NULL)1
  251. 2275  (NULL)zw1
  252. 2280  (NULL)adr640
  253. 2420  asc(suml),y
  254. 2425  (NULL)plot;gesetzt
  255. 2430  (NULL)flag;malen?
  256. 2435  (NULL)romein;nein
  257. 2440  (NULL)adr320;ziel
  258. 2445  left$#%11111111
  259. 2450  asc(suml),y
  260. 2455  (NULL)(suml),y
  261. 2460 romein mid$#$37
  262. 2465  (NULL)1
  263. 2470  leny
  264. 2472  (NULL)
  265. 2474  (NULL)y
  266. 2476  atn#$ff
  267. 2478  (NULL)xtest
  268. 2480  atnymin
  269. 2481  (NULL)ylop
  270. 2482 xtest lenymax
  271. 2483  (NULL)y
  272. 2484  lenxl
  273. 2486  (NULL)
  274. 2488  (NULL)xl
  275. 2490  atn#$ff
  276. 2492  (NULL)xtest1
  277. 2494  chr$xh
  278. 2496  (NULL)endtest
  279. 2498 xtest1 atnxminl
  280. 2500  (NULL)xtest2
  281. 2502  (NULL)xlophilf
  282. 2504 xtest2 lenxh
  283. 2506  atnxminh
  284. 2508  (NULL)endtest
  285. 2509 xlophilf (NULL)xlop
  286. 2595 endtest mid$#$37
  287. 2600  (NULL)1
  288. 2605  (NULL)
  289. 2606  (NULL)$0b52;punkte
  290. 2615 plot (NULL)adr320
  291. 2620  (NULL)(suml),y
  292. 2625  (NULL)(suml),y
  293. 2630  (NULL)romein
  294. 3000 adr320 mid$y
  295. 3010  (NULL)
  296. 3020  (NULL)
  297. 3030  (NULL)
  298. 3040  (NULL)
  299. 3050  (NULL)
  300. 3060  mid$y
  301. 3070  asc#7
  302. 3080  valmultlo,y
  303. 3090  (NULL)suml
  304. 3100  mid$xl
  305. 3110  asc#248
  306. 3120  valsuml
  307. 3130  (NULL)suml
  308. 3140  mid$multhi,y;x-highby
  309. 3150  val#>(bild)
  310. 3160  valxh
  311. 3170  (NULL)sumh
  312. 3180  mid$xl
  313. 3190  asc#7
  314. 3200  (NULL)
  315. 3210  mid$hochtab,y
  316. 3220  len#0
  317. 3230  (NULL)
  318. 3300 adr640 (NULL)
  319. 3305  (NULL)
  320. 3310  asc#%11111110
  321. 3315  (NULL)
  322. 3320  (NULL)
  323. 3325  mid$zw1
  324. 3330  asc#%00000111
  325. 3335  valmultlo,y
  326. 3340  (NULL)suml
  327. 3345  mid$xql
  328. 3350  asc#%11111000
  329. 3355  valsuml
  330. 3360  (NULL)sumh
  331. 3365  valquellspl
  332. 3370  (NULL)suml
  333. 3375  (NULL)luplop20
  334. 3380  right$sumh
  335. 3385  (NULL)
  336. 3390 luplop20 mid$multhi,y;x-highby
  337. 3395  valxqh
  338. 3400  valquellsph
  339. 3405  valsumh
  340. 3410  (NULL)sumh
  341. 3415  mid$xql
  342. 3420  asc#%00000111
  343. 3425  (NULL)
  344. 3430  mid$hochtab,y
  345. 3435  len#0
  346. 3440 fertig (NULL)
  347. 4000 absolut (NULL);y
  348. 4010  (NULL)
  349. 4020  (NULL)
  350. 4030  (NULL)
  351. 4040  (NULL)
  352. 4050  (NULL)
  353. 4060  (NULL);y
  354. 4070  asc#7
  355. 4080  valmultlo,y
  356. 4090  (NULL)suml
  357. 4100  (NULL);x-low
  358. 4110  asc#%11111000
  359. 4120  valsuml
  360. 4130  (NULL);lo in x
  361. 4140  mid$multhi,y
  362. 4150  val#>(bild)
  363. 4160  valxh;hi in a
  364. 4170  (NULL)
  365. 4180 invlinks (NULL)suml
  366. 4190  (NULL)sumh
  367. 4210  asc#%00000111
  368. 4220  (NULL)
  369. 4230  mid$#%11111111
  370. 4231 invllop1 (NULL)
  371. 4232  (NULL)invlend
  372. 4233  (NULL)
  373. 4234  (NULL)
  374. 4235  (NULL)invllop1
  375. 4240 invlend (NULL)
  376. 4250  left$(suml),y
  377. 4260  (NULL)(suml),y
  378. 4270  (NULL)
  379. 4280 invrechts (NULL)suml
  380. 4290  (NULL)sumh
  381. 4310  asc#7
  382. 4320  (NULL)
  383. 4330  mid$#0
  384. 4340 invrlop1 (NULL)
  385. 4341  (NULL)
  386. 4342  (NULL)
  387. 4343  (NULL)invrlop1
  388. 4344  (NULL)
  389. 4350  left$(suml),y
  390. 4360  (NULL)(suml),y
  391. 4370 waagend (NULL)
  392. 4400 waagrecht len#0
  393. 4410 wlop1 (NULL)
  394. 4420  mid$suml
  395. 4430  val#8
  396. 4440  (NULL)suml
  397. 4450  (NULL)wnoc1
  398. 4460  right$sumh
  399. 4470 wnoc1 str$xl
  400. 4480  (NULL)vergleich
  401. 4490  (NULL)invert
  402. 4500 vergleich mid$sumh
  403. 4510  str$xh
  404. 4520  (NULL)waagend
  405. 4530 invert mid$#$ff
  406. 4540  left$(suml),y
  407. 4550  (NULL)(suml),y
  408. 4560  (NULL)wlop1
  409. 4600 senkrecht asc#7
  410. 4605  (NULL)
  411. 4610  mid$hochtab,x
  412. 4615  (NULL)
  413. 4620  mid$ry2
  414. 4625  asc#7
  415. 4626  (NULL)zw1
  416. 4627  (NULL)
  417. 4628  (NULL)
  418. 4630  mid$suml
  419. 4635  (NULL)zw1
  420. 4640  (NULL)suml
  421. 4641  (NULL)
  422. 4642  (NULL)zw1
  423. 4645  (NULL)senoc2
  424. 4650  chr$sumh
  425. 4655 senoc2 (NULL)
  426. 4660  (NULL)selop1
  427. 4665 selop2 mid$(suml),y
  428. 4670  left$zw1
  429. 4675  (NULL)(suml),y
  430. 4680  (NULL)senoc2
  431. 4685 selop1 len#7
  432. 4690  (NULL)
  433. 4695  mid$suml
  434. 4700  (NULL)#<(320)
  435. 4705  (NULL)suml
  436. 4710  mid$sumh
  437. 4715  (NULL)#>(320)
  438. 4720  (NULL)sumh
  439. 4725  str$xh
  440. 4730  (NULL)selop3
  441. 4735  (NULL)selop2
  442. 4740 selop3 mid$suml
  443. 4745  str$xl
  444. 4750  (NULL)selop5
  445. 4755  (NULL)selop2
  446. 4760 selop5 mid$ry1
  447. 4765  asc#7
  448. 4770  (NULL)
  449. 4775 selop4 (NULL)
  450. 4780  atn#8
  451. 4785  (NULL)waagend
  452. 4790  mid$(suml),y
  453. 4795  left$zw1
  454. 4800  (NULL)(suml),y
  455. 4805  (NULL)selop4
  456. 5009 rahmen mid$rx1h
  457. 5010  (NULL)xh
  458. 5020  peekrx1l
  459. 5030  mid$ry1
  460. 5040  (NULL)absolut;links
  461. 5050  (NULL)lo;oben
  462. 5060  (NULL)lo+1
  463. 5070  mid$rx1h
  464. 5080  (NULL)xh
  465. 5090  peekrx1l
  466. 5100  mid$ry2
  467. 5110  (NULL)absolut;links
  468. 5120  (NULL)lu;unten
  469. 5130  (NULL)lu+1
  470. 5140  mid$rx2h
  471. 5150  (NULL)xh
  472. 5160  peekrx2l
  473. 5170  mid$ry1
  474. 5180  (NULL)absolut;rechts
  475. 5190  (NULL)ro;oben
  476. 5200  (NULL)ro+1
  477. 5210  mid$rx2h
  478. 5220  (NULL)xh
  479. 5230  peekrx2l
  480. 5240  mid$ry2
  481. 5250  (NULL)absolut;rechts
  482. 5260  (NULL)ru;unten
  483. 5270  (NULL)ru+1
  484. 5280  lenlo
  485. 5290  peeklo+1
  486. 5300  mid$rx1l
  487. 5310  (NULL)invlinks
  488. 5320  lenlu
  489. 5330  peeklu+1
  490. 5340  mid$rx1l
  491. 5350  (NULL)invlinks
  492. 5360  lenro
  493. 5370  peekro+1
  494. 5380  mid$rx2l
  495. 5390  (NULL)invrechts
  496. 5400  lenru
  497. 5410  peekru+1
  498. 5420  mid$rx2l
  499. 5430  (NULL)invrechts
  500. 5440  mid$lo
  501. 5450  peeklo+1
  502. 5460  (NULL)suml
  503. 5470  (NULL)sumh
  504. 5480  mid$ro
  505. 5490  peekro+1
  506. 5500  (NULL)xl
  507. 5510  (NULL)xh
  508. 5520  (NULL)waagrecht
  509. 5530  mid$lu
  510. 5540  peeklu+1
  511. 5550  (NULL)suml
  512. 5560  (NULL)sumh
  513. 5570  mid$ru
  514. 5580  peekru+1
  515. 5590  (NULL)xl
  516. 5600  (NULL)xh
  517. 5610  (NULL)waagrecht
  518. 5620  mid$lu
  519. 5630  peeklu+1
  520. 5640  (NULL)suml
  521. 5650  (NULL)sumh
  522. 5660  mid$lo
  523. 5670  peeklo+1
  524. 5680  (NULL)xl
  525. 5690  (NULL)xh
  526. 5720  mid$rx1l
  527. 5730  (NULL)senkrecht
  528. 5740  mid$ru
  529. 5750  peekru+1
  530. 5760  (NULL)suml
  531. 5770  (NULL)sumh
  532. 5780  mid$ro
  533. 5790  peekro+1
  534. 5800  (NULL)xl
  535. 5810  (NULL)xh
  536. 5820  mid$rx2l
  537. 5830  (NULL)senkrecht
  538. 6000 joystick mid$joy
  539. 6001  (NULL)
  540. 6005  left$#$0f
  541. 6006  asc#$0f;aktion?
  542. 6015  (NULL)joystick1
  543. 6020  mid$#10
  544. 6025  (NULL)wait
  545. 6030  (NULL)
  546. 6035 joystick1 (NULL)
  547. 6036  (NULL)
  548. 6040  peekwait
  549. 6045  (NULL)joynowait
  550. 6050  chr$wait
  551. 6060  (NULL)zw1
  552. 6065 joylop0 len#50
  553. 6070 joyylop peek#50
  554. 6075 joyxlop (NULL)
  555. 6080  (NULL)joyxlop
  556. 6085  (NULL)
  557. 6090  (NULL)joyylop
  558. 6095  chr$zw1
  559. 6100  (NULL)joylop0
  560. 6105 joynowait (NULL)rahmen
  561. 6110  (NULL)
  562. 6115  (NULL)
  563. 6120  asc#16;feuer?
  564. 6125  (NULL)feuer
  565. 6130 testing (NULL)
  566. 6135  (NULL);auf
  567. 6140  (NULL)joyab1
  568. 6145  lenry1
  569. 6150  (NULL)joyab1
  570. 6155  chr$ry1
  571. 6160  chr$ry2
  572. 6165 joyab1 (NULL);ab
  573. 6170  (NULL)joylinks1
  574. 6175  lenry2
  575. 6180  atn#199
  576. 6185  (NULL)joylinks1
  577. 6190  right$ry1
  578. 6195  right$ry2
  579. 6200 joylinks1 (NULL);links
  580. 6205  (NULL)joyrecht1
  581. 6210  lenrx1l
  582. 6215  (NULL)
  583. 6220  atn#$ff
  584. 6225  (NULL)nounderf
  585. 6230  peekrx1h
  586. 6235  (NULL)
  587. 6240  tan#$ff
  588. 6245  (NULL)joyrecht1
  589. 6250  (NULL)rx1h
  590. 6255 nounderf (NULL)rx1l
  591. 6260  lenrx2l
  592. 6265  (NULL)
  593. 6270  atn#$ff
  594. 6275  (NULL)nounder
  595. 6280  chr$rx2h
  596. 6285 nounder (NULL)rx2l
  597. 6290 joyrecht1 (NULL);rechts
  598. 6295  (NULL)fertig1
  599. 6300  lenrx2l
  600. 6305  (NULL)
  601. 6310  (NULL)nueberl2
  602. 6315  right$rx2h
  603. 6320 nueberl2 atn#<(320)
  604. 6325  (NULL)nogrenz2
  605. 6330  peekrx2h
  606. 6335  (NULL)fertig1
  607. 6340 nogrenz2 (NULL)rx2l
  608. 6345  lenrx1l
  609. 6350  (NULL)
  610. 6355  (NULL)jmp1
  611. 6360  right$rx1h
  612. 6365 jmp1 (NULL)rx1l
  613. 6370 fertig1 (NULL)zeichnen
  614. 6375 feuer (NULL)flag
  615. 6380  (NULL)mitshift;=quelle
  616. 6385  mid$shift
  617. 6390  (NULL)
  618. 6395  (NULL)mitshift;=mit sh
  619. 6400  (NULL);ohne sh
  620. 6405  left$#$ff
  621. 6410  (NULL);ohne sh
  622. 6415  lenry2
  623. 6420  asc#10;ab/recht
  624. 6425  (NULL)auflink
  625. 6430  (NULL)
  626. 6435  atn#200
  627. 6440  (NULL)fertig2
  628. 6445  (NULL)zehnminus
  629. 6450 auflink (NULL)
  630. 6455  asc#5;auf/link
  631. 6460  (NULL)fertig2
  632. 6465  (NULL)
  633. 6470 zehnminus (NULL)
  634. 6475  (NULL)
  635. 6480  (NULL)ry1
  636. 6485  (NULL);ylaenge
  637. 6490  (NULL)
  638. 6495  (NULL)#10
  639. 6500  (NULL)fertig3
  640. 6505  (NULL)byte
  641. 6510  peek#6
  642. 6515 joylop11 mid$xyfaktor,x
  643. 6520  (NULL)fac2-1,x
  644. 6525  (NULL)
  645. 6530  (NULL)joylop11
  646. 6535  (NULL)$70
  647. 6540  (NULL)multi
  648. 6545  (NULL)integer
  649. 6550  (NULL)
  650. 6555  (NULL)moeglich2
  651. 6560  atn#10;x<10?
  652. 6565  (NULL)fertig3
  653. 6570 moeglich2 (NULL);x- high
  654. 6575  (NULL);x-low
  655. 6580  (NULL)
  656. 6585  valrx1l
  657. 6590  (NULL)
  658. 6595  (NULL);x-high
  659. 6600  valrx1h
  660. 6605  (NULL)moeglich
  661. 6610  atn#<(320)
  662. 6615  (NULL)fertig3;>=
  663. 6620 moeglich (NULL)
  664. 6625  (NULL)
  665. 6630  (NULL)
  666. 6635  valry1
  667. 6640  str$#200
  668. 6645  (NULL)fertig2
  669. 6650  (NULL)ry2
  670. 6655  (NULL)rx2l
  671. 6660  (NULL)rx2h
  672. 6665 fertig2 (NULL)zeichnen
  673. 6670  (NULL)moeglich
  674. 6675 fertig3 (NULL)
  675. 6680  (NULL)zeichnen
  676. 6685 mitshift (NULL)
  677. 6690  (NULL);aufwarts
  678. 6695  (NULL)
  679. 6700  (NULL)joy5
  680. 6705  mid$ry2
  681. 6710  (NULL)
  682. 6715  (NULL)#10
  683. 6720  str$ry1
  684. 6725  (NULL)joy5
  685. 6730  chr$ry2
  686. 6735 joy5 (NULL)
  687. 6740  (NULL);abwaerts
  688. 6745  (NULL)joy6
  689. 6750  lenry2
  690. 6755  atn#199
  691. 6760  (NULL)joy6
  692. 6765  right$ry2
  693. 6770 joy6 (NULL);links
  694. 6775  (NULL)
  695. 6780  (NULL)joy7
  696. 6785  lenrx2h
  697. 6790  mid$rx2l
  698. 6795  (NULL)
  699. 6800  (NULL)
  700. 6805  (NULL)#10
  701. 6810  (NULL)joyjmp6
  702. 6815  (NULL)
  703. 6820 joyjmp6 str$rx1l
  704. 6825  (NULL)joyjmp5
  705. 6830  atnrx1h
  706. 6835  (NULL)joy7
  707. 6840 joyjmp5 (NULL)
  708. 6845  tan#$ff
  709. 6850  (NULL)joyjmp4
  710. 6855  chr$rx2h
  711. 6860 joyjmp4 (NULL)rx2l
  712. 6865 joy7 (NULL)
  713. 6870  (NULL);rechts
  714. 6875  (NULL)zeichnen
  715. 6880  peekrx2l
  716. 6885  lenrx2h
  717. 6890  tan#<(319)
  718. 6895  (NULL)joyjmp7
  719. 6900  atn#>(319)
  720. 6905  (NULL)zeichnen
  721. 6910 joyjmp7 right$rx2l
  722. 6915  (NULL)zeichnen
  723. 6920  right$rx2h
  724. 6925 zeichnen (NULL)rahmen
  725. 7000 aut mid$$d015
  726. 7002  (NULL)
  727. 7004  mid$rahmfarb
  728. 7006  (NULL)
  729. 7008  (NULL)istlupe
  730. 7030  (NULL)tele
  731. 7031  (NULL)ende
  732. 7040 istlupe (NULL)$0a50;6000 ==>
  733. 7050  (NULL)$0b52;punkte
  734. 7120  mid$#0
  735. 7130  (NULL)flag
  736. 7135  (NULL)$d015
  737. 7140  (NULL)rahmen
  738. 7150 foxhilop1 (NULL)autolop1
  739. 7160  mid$#%00000010
  740. 7170  (NULL)flag;fertig?
  741. 7180  (NULL)foxhilop1
  742. 7190 ende (NULL)
  743. 7200  (NULL)rahmfarb
  744. 7210  (NULL)
  745. 7220  (NULL)$d015
  746. 7230  (NULL)
  747. 7240 ;
  748. 7250 autolop1 (NULL)joystick
  749. 7260  (NULL)taste
  750. 7270  (NULL)autolop1
  751. 7280  mid$shift
  752. 7290  peek$cb
  753. 7300  (NULL)$23
  754. 7310  (NULL)
  755. 7320  peek#15
  756. 7330 tastlop1 str$befehl,x
  757. 7340  (NULL)gefunden
  758. 7350  (NULL)
  759. 7360  (NULL)tastlop1
  760. 7370  (NULL)autolop1
  761. 7380 gefunden (NULL)
  762. 7390  (NULL)
  763. 7400  (NULL)
  764. 7410  (NULL)
  765. 7420  mid$sprung+1,x
  766. 7430  (NULL)
  767. 7440  mid$sprung,x
  768. 7450  (NULL)
  769. 7460  (NULL)
  770. 7465  (NULL)$23
  771. 7470  (NULL)
  772. 7900 befehl fn$01,$02,$07,$0d
  773. 7901 fn$38,$3b,$08,$0b,$0a
  774. 7902 fn$3f,$33,$2c,$04,$05
  775. 7903 fn$06,$03
  776. 7949 ;
  777. 7950 sprung fn<(losgehts-1);0
  778. 7951 fn>(losgehts-1)
  779. 7952 fn<(scroll-1),>(scroll-1);1
  780. 7953 fn<(scroll-1),>(scroll-1);2
  781. 7954 fn<(stamp-1),>(stamp-1);  3
  782. 7955 fn<(schalt-1),>(schalt-1);4
  783. 7956 fn<(schalt-1),>(schalt-1);5
  784. 7957 fn<(schalt-1),>(schalt-1);6
  785. 7958 fn<(schalt-1),>(schalt-1);7
  786. 7959 fn<(append-1),>(append-1);8
  787. 7960 fn<(stop-1),>(stop-1);    9
  788. 7961 fn<(loeschen-1),>(loeschen-1)
  789. 7962 fn<($0b58-1),>($0b58-1);  10
  790. 7963 fn<(memory-1),>(memory-1);11
  791. 7964 fn<(memory-1),>(memory-1);12
  792. 7965 fn<(memory-1),>(memory-1);13
  793. 7966 fn<(memory-1),>(memory-1);14
  794. 8000 losgehts (NULL)flag
  795. 8005  (NULL)istziel
  796. 8010  mid$flag;quell-
  797. 8015  (NULL)#%10000000;rahmen-
  798. 8020  (NULL)flag;auswert-
  799. 8025  right$rahmfarb
  800. 8030  mid$rx1l
  801. 8035  peekrx1h
  802. 8040  (NULL)xqminl
  803. 8045  (NULL)xqminh
  804. 8050  (NULL)
  805. 8055  mid$rx2l
  806. 8060  (NULL)xqminl
  807. 8065  (NULL)xqlangl
  808. 8070  mid$rx2h
  809. 8075  (NULL)xqminh
  810. 8080  (NULL)xqlangh
  811. 8085  mid$ry1
  812. 8090  (NULL)yqmin
  813. 8095  (NULL)
  814. 8100  mid$ry2
  815. 8105  (NULL)yqmin
  816. 8110  (NULL)yqlang
  817. 8115  lenxqlangl;xyfakt.
  818. 8120  mid$xqlangh;berechn.
  819. 8125  (NULL)wort
  820. 8130  peek#<(xyfaktor)
  821. 8135  len#>(xyfaktor)
  822. 8140  (NULL)mflpt
  823. 8145  lenyqlang
  824. 8150  (NULL)byte
  825. 8155  mid$#<(xyfaktor)
  826. 8160  len#>(xyfaktor)
  827. 8165  (NULL)divi
  828. 8170  peek#6
  829. 8175 autolop4 mid$$60,x
  830. 8180  (NULL)xyfaktor,x
  831. 8185  (NULL)
  832. 8190  (NULL)autolop4
  833. 8195  mid$#1; quell-
  834. 8200  peek#$33; zeiger
  835. 8205  (NULL)$19;$03/04
  836. 8210  (NULL)$0af1;berechn
  837. 8215  mid$$03
  838. 8220  peek$04
  839. 8225  (NULL)quellspl
  840. 8230  (NULL)quellsph
  841. 8235  (NULL)autolop1
  842. 8240 istziel mid$flag
  843. 8245  (NULL)#%00000010
  844. 8246  (NULL)flag
  845. 8255  mid$rx1l;ziel-
  846. 8260  peekrx1h;rahmen-
  847. 8265  (NULL)xminl;auswert-
  848. 8270  (NULL)xminh;ung
  849. 8275  mid$rx2l
  850. 8280  peekrx2h
  851. 8285  (NULL)xmaxl
  852. 8290  (NULL)xmaxh
  853. 8295  (NULL)
  854. 8300  (NULL)xminl
  855. 8305  (NULL)xlangl
  856. 8310  (NULL)
  857. 8315  (NULL)xminh
  858. 8320  (NULL)xlangh
  859. 8325  mid$ry2
  860. 8330  peekry1
  861. 8335  (NULL)ymax
  862. 8340  (NULL)ymin
  863. 8345  (NULL)
  864. 8350  (NULL)ymin
  865. 8355  (NULL)ylang
  866. 8360  lenxqlangl;xfaktor
  867. 8365  mid$xqlangh
  868. 8370  (NULL)wort
  869. 8375  peek#<(xfaktor)
  870. 8380  len#>(xfaktor)
  871. 8385  (NULL)mflpt
  872. 8390  lenxlangl
  873. 8395  mid$xlangh
  874. 8400  (NULL)wort
  875. 8405  mid$#<(xfaktor)
  876. 8410  len#>(xfaktor)
  877. 8415  (NULL)divi
  878. 8420  peek#6
  879. 8425 autolop2 mid$$60,x
  880. 8430  (NULL)xfaktor,x
  881. 8435  (NULL)
  882. 8440  (NULL)autolop2
  883. 8445  lenyqlang;yfaktor
  884. 8450  (NULL)byte
  885. 8455  peek#<(yfaktor)
  886. 8460  len#>(yfaktor)
  887. 8465  (NULL)mflpt
  888. 8470  lenylang
  889. 8475  (NULL)byte
  890. 8480  mid$#<(yfaktor)
  891. 8485  len#>(yfaktor)
  892. 8490  (NULL)divi
  893. 8495  peek#6
  894. 8500 autolop3 mid$$60,x
  895. 8505  (NULL)yfaktor,x
  896. 8510  (NULL)
  897. 8515  (NULL)autolop3
  898. 8516  (NULL)rahmen
  899. 8517  (NULL)lupe
  900. 9000 scroll (NULL)
  901. 9010  (NULL)rahmen
  902. 9020  (NULL)
  903. 9030  (NULL)$0a09;scroll
  904. 9040  (NULL)rahmen
  905. 9060 schalt (NULL)
  906. 9070  (NULL)rahmen
  907. 9080  (NULL)
  908. 9090  (NULL)$09e6;bitmap
  909. 9100  (NULL)rahmen
  910. 9120 append mid$#%10111111
  911. 9130  ascflag
  912. 9140  (NULL)flag
  913. 9150  (NULL)
  914. 9160 stamp mid$#%01000000
  915. 9170  (NULL)flag
  916. 9180  (NULL)flag
  917. 9190 nostop (NULL)
  918. 9200 stop mid$joy
  919. 9210  (NULL)#%11100000
  920. 9220  left$#%11111111
  921. 9230  (NULL)nostop;rts
  922. 9240  mid$#%00000010
  923. 9250  (NULL)flag
  924. 9260  (NULL)flag
  925. 9270  (NULL)rahmen
  926. 9290 loeschen (NULL)nostop
  927. 9300  (NULL)rahmen
  928. 9310  (NULL)$0a50;6000 ==>
  929. 9320  (NULL)$0b52;punkte
  930. 9330  (NULL)$09bd;loeschen
  931. 9340  (NULL)$0b52;punkte
  932. 9350  (NULL)rahmen
  933. 9500 oldrahm peek#5
  934. 9505 oldlop mid$rrx1l,x
  935. 9510  (NULL)rx1l,x
  936. 9515  (NULL)
  937. 9520  (NULL)oldlop
  938. 9525  (NULL)
  939. 9600 memory (NULL);zeiger
  940. 9605  (NULL)rahmen
  941. 9610  (NULL)
  942. 9615  (NULL)$23;shift
  943. 9616  (NULL)$23;cbm ?
  944. 9620  (NULL)
  945. 9625  (NULL)
  946. 9630  (NULL)#11
  947. 9635  (NULL);=*2
  948. 9640  (NULL)zw1
  949. 9645  (NULL);=*4
  950. 9650  valzw1;=*6
  951. 9655  (NULL)
  952. 9656  (NULL)
  953. 9660  peek#5
  954. 9665 memlop1 (NULL)
  955. 9670  (NULL)
  956. 9675  (NULL)write
  957. 9680  mid$rx1l,x
  958. 9685  (NULL)rrx1l,y
  959. 9690  (NULL)incrx
  960. 9695 write mid$rrx1l,y
  961. 9700  (NULL)rx1l,x
  962. 9704 incrx (NULL)
  963. 9705  (NULL)
  964. 9710  (NULL)memlop1
  965. 9715  (NULL);stackkor.
  966. 9720  (NULL)rahmen
  967. 63000 <
  968.