64'er

home *** CD-ROM | disk | FTP | other *** search

/ 64'er / 64ER_CD.iso / 88xx / 8809b.d64 / lupe.src (.txt) < prev next >

Wrap

Commodore BASIC | 1995-03-30 | 13.1 KB | 968 lines

99 ;.OBJECT "@:LUPE.FOX,P,W" 100 +$5400 105 (null)AUT 110 TOXL=$BB 120 TOXH=$BC 130 TOY=$BD 190 TOXQL=$BE 195 TOXQH=$BF 210 TOSUML=$8D 220 TOSUMH=$8E 230 TOZW1=$8F 231 TOQUELLSPL=$8B 232 TOQUELLSPH=$8C 240 ; 321 TOFAC1=$61; 322 TOFAC2=$69; 323 TOJOY=56320;JOY-PORT 324 TORAHMFARB=53280 325 TOSHIFT=653;S/CBM/CTR 326 TOBILD=$6000;BILD 330 ; 340 TOWORT=$B391;Y/A I.FAC 350 TOBYTE=$B3A2;Y IN FAC 360 TOMULTI=$BA30;FAC1*FAC2 370 TOCHKCOM=$AEFD;KOMMA ? 380 TOFORMEL=$AD9E;FORMEL 390 TOINTEGER=$B1AA;FAC1= Y/A 410 TOGETBYT=$B79E;BYTE=FAC 420 TOGETADR=$B7F7;WORT=FAC 430 TOFEHLER=$B248 440 TORUNDEN=$BC1B;FACRUNDEN 450 TOTASTE=$FFE4;INPUT 460 TODIVI=$BB0F;DIVISION 470 TOMFLPT=$BBD4;FAC=MFLPT 730 ; 740 ; 800 MULTLO FN0,$40,$80,$C0 801 FN0,$40,$80,$C0 802 FN0,$40,$80,$C0 804 FN0,$40,$80,$C0 806 FN0,$40,$80,$C0 810 FN0,$40,$80,$C0 812 FN0,$40,$80,$C0 813 FN0,$40,$80,$C0 814 FN0,$40,$80,$C0 815 FN0,$40,$80,$C0 816 FN0,$40,$80,$C0 817 FN0,$40,$80,$C0 818 FN0,$40;LOWBYTE 820 ; 835 MULTHI FN0,1,2,3,5,6,7,8 850 FN$0A,$0B,$0C,$0D 860 FN$0F,$10,$11,$12 870 FN$14,$15,$16,$17 880 FN$19,$1A,$1B,$1C 881 FN$1E 882 FN$1F,$20,$21,$23 883 FN$24,$25,$26,$28 884 FN$29,$2A,$2B,$2D 885 FN$2E,$2F,$30,$32 886 FN$33,$34,$35,$37 887 FN$38,$39,$3A,$3C 888 FN$3D;HIGHBYTE 895 ; 900 HOCHTAB FN128,64,32,16 902 FN8,4,2,1;HOCHZAHL 905 ; 930 RX1L FN150;ARBEITS- 932 RX1H FN0;SPEICHER 934 RY1 FN90 936 RX2L FN170 938 RX2H FN0 940 RY2 FN110 942 LO FN0,0 944 LU FN0,0 946 RO FN0,0 948 RU FN0,0 950 FLAG FN0 951 XQMINL FN0 952 XQMINH FN0 953 XMINL FN0 954 XMINH FN0 955 XMAXL FN0 956 XMAXH FN0 957 YQMIN FN0 958 YQMAX FN0 959 YMIN FN0 960 YMAX FN0 961 XQLANGL FN0 962 XQLANGH FN0 963 XLANGL FN0 964 XLANGH FN0 965 YLANG FN0 966 YQLANG FN0 970 XFAKTOR THEN7 971 YFAKTOR THEN7 972 XYFAKTOR THEN7 973 WAIT FN0 974 RRX1L FN0,0,0,63,1,199 994 FN0,0,0,159,0,199 995 FN0,0,0,159,0,99 996 FN150,0,90,170,0,110 997 ; 998 ; 999 ; 1000 TELE (null)$09C3;LOESCHEN 1003 (null)$0B52;PUNKTE 1008 LEN#0;ZIEL- 1009 PEEK#$80; BASIS 1010 (null)QUELLSPL; " 1015 [211]QUELLSPH; " 1020 (null)FLAG;X-KO.QU 1021 (null)Y;Y-KO.QU 1025 MID$#100;MAX. Y 1030 (null)YMAX; QUELLE 1035 (null)TELESUB;BILD 1 1040 MID$#$80;ZIEL- 1045 PEEK#$BE; BASIS 1050 (null)QUELLSPL; " 1055 [211]QUELLSPH; " 1060 MID$#200;MAX. Y 1065 (null)YMAX; QUELLE 1070 (null)TELESUB;BILD 2 1075 MID$#$40;ZIEL- 1080 PEEK#$81; BASIS 1085 (null)QUELLSPL; " 1090 [211]QUELLSPH; " 1095 MID$#160;X-START- 1100 (null)FLAG; QUELLE 1105 MID$#100;MAX. Y 1110 (null)YMAX;V.QUELLE 1111 (null)Y;Y-KOO.QU 1115 (null)TELESUB;BILD 3 1120 MID$#$C0;ZIEL- 1125 PEEK#$BF; BASIS 1130 (null)QUELLSPL; " 1135 [211]QUELLSPH; " 1140 MID$#200;MAX. Y 1145 (null)YMAX;V.QUELLE 1150 (null)TELESUB;BILD 4 1155 (null)$0A4C;_ $6000 1298 ; 1299 ; 1300 TELESUB (null)$0B46;RAM EIN 1302 (null)ZW1;X/YSTART 1305 TELELOP1 (null)XQL;VON 1310 (null)XQH;ZIEL 1315 MID$FLAG;QUELL- 1320 (null)XL;START 1325 (null)XH 1330 PEEK#0 1339 TELELOP2 MID$Y;Y-KO.QU 1340 (null)ADR320 1345 ASC(SUML),Y;GESETZT? 1350 (null)TELEJMP1;NEIN 1355 (null)PLOTTEN 1360 RIGHT$ZW1;ZIELY+1 1365 (null)PLOTTEN 1370 RIGHT$XQL;ZIELX+1 1375 (null)TNOC1 1380 RIGHT$XQH 1385 TNOC1 (null)PLOTTEN 1390 CHR$ZW1;ZIELY-1 1395 (null)PLOTTEN 1400 (null)TELEJMP2 1405 TELEJMP1 RIGHT$XQL 1410 (null)TELEJMP2 1415 RIGHT$XQH 1420 TELEJMP2 RIGHT$XQL 1425 (null)TNOC2 1430 RIGHT$XQH 1435 TNOC2 RIGHT$XL;X-KO.QU 1440 (null)TNOC3 1445 RIGHT$XH 1450 TNOC3 (null);ZAEHLER 1455 TAN#160;BIS 159 1460 (null)TELELOP2 1465 RIGHT$ZW1;Y-KO. 1470 RIGHT$ZW1;ZIEL+2 1475 PEEKY 1476 (null) 1477 (null)Y 1480 TANYMAX;ENDE Y? 1485 (null)TELELOP1 1486 RIGHT$RAHMFARB 1487 (null)$0B4C;ROM EIN 1898 ; 1899 ; 1901 PLOTTEN (null)SUMH 1902 MID$ZW1;Y-KOO. 1905 (null)ADR640; ZIEL 1910 (null)(SUML),Y 1915 (null)(SUML),Y 1920 (null) 2000 LUPE (null)$0B52;PUNKTE 2001 (null) 2005 RIGHT$RAHMFARB 2010 MID$XMAXL;MAX X 2015 PEEKXMAXH 2020 (null)XL 2025 (null)XH 2030 LENYMAX;MAX. Y 2035 (null)Y 2040 XLOP MID$JOY 2045 STR$#$7F 2050 (null)NOBACK 2055 (null)ENDTEST;ENDE 2060 NOBACK (null);X-QUELLE 2065 MID$XL;BERECHN 2070 (null)XMINL 2075 (null) 2080 MID$XH 2085 (null)XMINH 2090 (null)WORT 2095 PEEK#6 2100 LUPLOP2 MID$XFAKTOR,X;FAKTOR 2105 (null)FAC2-1,X;IN FAC2 2110 (null) 2115 (null)LUPLOP2 2120 (null)$70 2125 (null)MULTI;F1 * F2 2130 (null)INTEGER 2135 (null);X-HIGH 2140 (null);X-LOW 2145 (null) 2150 VALXQMINL 2155 (null)XQL 2160 (null);X-HIGH 2165 VALXQMINH 2170 (null)XQH 2175 LENY 2180 YLOP (null) 2185 (null) 2190 (null)YMIN 2195 (null) 2200 (null)BYTE;Y-WERT 2205 PEEK#6 2210 LUPLOP3 MID$YFAKTOR,X;FAKTOR 2215 (null)FAC2-1,X;IN FAC2 2220 (null) 2225 (null)LUPLOP3 2230 (null)$70 2235 (null)SUMH 2240 (null)MULTI;F1 * F2 2245 (null)INTEGER 2250 (null) 2255 (null) 2260 VALYQMIN 2265 PEEK#$34 2270 (null)1 2275 (null)ZW1 2280 (null)ADR640 2420 ASC(SUML),Y 2425 (null)PLOT;GESETZT 2430 (null)FLAG;MALEN? 2435 (null)ROMEIN;NEIN 2440 (null)ADR320;ZIEL 2445 LEFT$#%11111111 2450 ASC(SUML),Y 2455 (null)(SUML),Y 2460 ROMEIN MID$#$37 2465 (null)1 2470 LENY 2472 (null) 2474 (null)Y 2476 ATN#$FF 2478 (null)XTEST 2480 ATNYMIN 2481 (null)YLOP 2482 XTEST LENYMAX 2483 (null)Y 2484 LENXL 2486 (null) 2488 (null)XL 2490 ATN#$FF 2492 (null)XTEST1 2494 CHR$XH 2496 (null)ENDTEST 2498 XTEST1 ATNXMINL 2500 (null)XTEST2 2502 (null)XLOPHILF 2504 XTEST2 LENXH 2506 ATNXMINH 2508 (null)ENDTEST 2509 XLOPHILF (null)XLOP 2595 ENDTEST MID$#$37 2600 (null)1 2605 (null) 2606 (null)$0B52;PUNKTE 2615 PLOT (null)ADR320 2620 (null)(SUML),Y 2625 (null)(SUML),Y 2630 (null)ROMEIN 3000 ADR320 MID$Y 3010 (null) 3020 (null) 3030 (null) 3040 (null) 3050 (null) 3060 MID$Y 3070 ASC#7 3080 VALMULTLO,Y 3090 (null)SUML 3100 MID$XL 3110 ASC#248 3120 VALSUML 3130 (null)SUML 3140 MID$MULTHI,Y;X-HIGHBY 3150 VAL#>(BILD) 3160 VALXH 3170 (null)SUMH 3180 MID$XL 3190 ASC#7 3200 (null) 3210 MID$HOCHTAB,Y 3220 LEN#0 3230 (null) 3300 ADR640 (null) 3305 (null) 3310 ASC#%11111110 3315 (null) 3320 (null) 3325 MID$ZW1 3330 ASC#%00000111 3335 VALMULTLO,Y 3340 (null)SUML 3345 MID$XQL 3350 ASC#%11111000 3355 VALSUML 3360 (null)SUMH 3365 VALQUELLSPL 3370 (null)SUML 3375 (null)LUPLOP20 3380 RIGHT$SUMH 3385 (null) 3390 LUPLOP20 MID$MULTHI,Y;X-HIGHBY 3395 VALXQH 3400 VALQUELLSPH 3405 VALSUMH 3410 (null)SUMH 3415 MID$XQL 3420 ASC#%00000111 3425 (null) 3430 MID$HOCHTAB,Y 3435 LEN#0 3440 FERTIG (null) 4000 ABSOLUT (null);Y 4010 (null) 4020 (null) 4030 (null) 4040 (null) 4050 (null) 4060 (null);Y 4070 ASC#7 4080 VALMULTLO,Y 4090 (null)SUML 4100 (null);X-LOW 4110 ASC#%11111000 4120 VALSUML 4130 (null);LO IN X 4140 MID$MULTHI,Y 4150 VAL#>(BILD) 4160 VALXH;HI IN A 4170 (null) 4180 INVLINKS (null)SUML 4190 (null)SUMH 4210 ASC#%00000111 4220 (null) 4230 MID$#%11111111 4231 INVLLOP1 (null) 4232 (null)INVLEND 4233 (null) 4234 (null) 4235 (null)INVLLOP1 4240 INVLEND (null) 4250 LEFT$(SUML),Y 4260 (null)(SUML),Y 4270 (null) 4280 INVRECHTS (null)SUML 4290 (null)SUMH 4310 ASC#7 4320 (null) 4330 MID$#0 4340 INVRLOP1 (null) 4341 (null) 4342 (null) 4343 (null)INVRLOP1 4344 (null) 4350 LEFT$(SUML),Y 4360 (null)(SUML),Y 4370 WAAGEND (null) 4400 WAAGRECHT LEN#0 4410 WLOP1 (null) 4420 MID$SUML 4430 VAL#8 4440 (null)SUML 4450 (null)WNOC1 4460 RIGHT$SUMH 4470 WNOC1 STR$XL 4480 (null)VERGLEICH 4490 (null)INVERT 4500 VERGLEICH MID$SUMH 4510 STR$XH 4520 (null)WAAGEND 4530 INVERT MID$#$FF 4540 LEFT$(SUML),Y 4550 (null)(SUML),Y 4560 (null)WLOP1 4600 SENKRECHT ASC#7 4605 (null) 4610 MID$HOCHTAB,X 4615 (null) 4620 MID$RY2 4625 ASC#7 4626 (null)ZW1 4627 (null) 4628 (null) 4630 MID$SUML 4635 (null)ZW1 4640 (null)SUML 4641 (null) 4642 (null)ZW1 4645 (null)SENOC2 4650 CHR$SUMH 4655 SENOC2 (null) 4660 (null)SELOP1 4665 SELOP2 MID$(SUML),Y 4670 LEFT$ZW1 4675 (null)(SUML),Y 4680 (null)SENOC2 4685 SELOP1 LEN#7 4690 (null) 4695 MID$SUML 4700 (null)#<(320) 4705 (null)SUML 4710 MID$SUMH 4715 (null)#>(320) 4720 (null)SUMH 4725 STR$XH 4730 (null)SELOP3 4735 (null)SELOP2 4740 SELOP3 MID$SUML 4745 STR$XL 4750 (null)SELOP5 4755 (null)SELOP2 4760 SELOP5 MID$RY1 4765 ASC#7 4770 (null) 4775 SELOP4 (null) 4780 ATN#8 4785 (null)WAAGEND 4790 MID$(SUML),Y 4795 LEFT$ZW1 4800 (null)(SUML),Y 4805 (null)SELOP4 5009 RAHMEN MID$RX1H 5010 (null)XH 5020 PEEKRX1L 5030 MID$RY1 5040 (null)ABSOLUT;LINKS 5050 (null)LO;OBEN 5060 (null)LO+1 5070 MID$RX1H 5080 (null)XH 5090 PEEKRX1L 5100 MID$RY2 5110 (null)ABSOLUT;LINKS 5120 (null)LU;UNTEN 5130 (null)LU+1 5140 MID$RX2H 5150 (null)XH 5160 PEEKRX2L 5170 MID$RY1 5180 (null)ABSOLUT;RECHTS 5190 (null)RO;OBEN 5200 (null)RO+1 5210 MID$RX2H 5220 (null)XH 5230 PEEKRX2L 5240 MID$RY2 5250 (null)ABSOLUT;RECHTS 5260 (null)RU;UNTEN 5270 (null)RU+1 5280 LENLO 5290 PEEKLO+1 5300 MID$RX1L 5310 (null)INVLINKS 5320 LENLU 5330 PEEKLU+1 5340 MID$RX1L 5350 (null)INVLINKS 5360 LENRO 5370 PEEKRO+1 5380 MID$RX2L 5390 (null)INVRECHTS 5400 LENRU 5410 PEEKRU+1 5420 MID$RX2L 5430 (null)INVRECHTS 5440 MID$LO 5450 PEEKLO+1 5460 (null)SUML 5470 (null)SUMH 5480 MID$RO 5490 PEEKRO+1 5500 (null)XL 5510 (null)XH 5520 (null)WAAGRECHT 5530 MID$LU 5540 PEEKLU+1 5550 (null)SUML 5560 (null)SUMH 5570 MID$RU 5580 PEEKRU+1 5590 (null)XL 5600 (null)XH 5610 (null)WAAGRECHT 5620 MID$LU 5630 PEEKLU+1 5640 (null)SUML 5650 (null)SUMH 5660 MID$LO 5670 PEEKLO+1 5680 (null)XL 5690 (null)XH 5720 MID$RX1L 5730 (null)SENKRECHT 5740 MID$RU 5750 PEEKRU+1 5760 (null)SUML 5770 (null)SUMH 5780 MID$RO 5790 PEEKRO+1 5800 (null)XL 5810 (null)XH 5820 MID$RX2L 5830 (null)SENKRECHT 6000 JOYSTICK MID$JOY 6001 (null) 6005 LEFT$#$0F 6006 ASC#$0F;AKTION? 6015 (null)JOYSTICK1 6020 MID$#10 6025 (null)WAIT 6030 (null) 6035 JOYSTICK1 (null) 6036 (null) 6040 PEEKWAIT 6045 (null)JOYNOWAIT 6050 CHR$WAIT 6060 (null)ZW1 6065 JOYLOP0 LEN#50 6070 JOYYLOP PEEK#50 6075 JOYXLOP (null) 6080 (null)JOYXLOP 6085 (null) 6090 (null)JOYYLOP 6095 CHR$ZW1 6100 (null)JOYLOP0 6105 JOYNOWAIT (null)RAHMEN 6110 (null) 6115 (null) 6120 ASC#16;FEUER? 6125 (null)FEUER 6130 TESTING (null) 6135 (null);AUF 6140 (null)JOYAB1 6145 LENRY1 6150 (null)JOYAB1 6155 CHR$RY1 6160 CHR$RY2 6165 JOYAB1 (null);AB 6170 (null)JOYLINKS1 6175 LENRY2 6180 ATN#199 6185 (null)JOYLINKS1 6190 RIGHT$RY1 6195 RIGHT$RY2 6200 JOYLINKS1 (null);LINKS 6205 (null)JOYRECHT1 6210 LENRX1L 6215 (null) 6220 ATN#$FF 6225 (null)NOUNDERF 6230 PEEKRX1H 6235 (null) 6240 TAN#$FF 6245 (null)JOYRECHT1 6250 (null)RX1H 6255 NOUNDERF (null)RX1L 6260 LENRX2L 6265 (null) 6270 ATN#$FF 6275 (null)NOUNDER 6280 CHR$RX2H 6285 NOUNDER (null)RX2L 6290 JOYRECHT1 (null);RECHTS 6295 (null)FERTIG1 6300 LENRX2L 6305 (null) 6310 (null)NUEBERL2 6315 RIGHT$RX2H 6320 NUEBERL2 ATN#<(320) 6325 (null)NOGRENZ2 6330 PEEKRX2H 6335 (null)FERTIG1 6340 NOGRENZ2 (null)RX2L 6345 LENRX1L 6350 (null) 6355 (null)JMP1 6360 RIGHT$RX1H 6365 JMP1 (null)RX1L 6370 FERTIG1 (null)ZEICHNEN 6375 FEUER (null)FLAG 6380 (null)MITSHIFT;=QUELLE 6385 MID$SHIFT 6390 (null) 6395 (null)MITSHIFT;=MIT SH 6400 (null);OHNE SH 6405 LEFT$#$FF 6410 (null);OHNE SH 6415 LENRY2 6420 ASC#10;AB/RECHT 6425 (null)AUFLINK 6430 (null) 6435 ATN#200 6440 (null)FERTIG2 6445 (null)ZEHNMINUS 6450 AUFLINK (null) 6455 ASC#5;AUF/LINK 6460 (null)FERTIG2 6465 (null) 6470 ZEHNMINUS (null) 6475 (null) 6480 (null)RY1 6485 (null);YLAENGE 6490 (null) 6495 (null)#10 6500 (null)FERTIG3 6505 (null)BYTE 6510 PEEK#6 6515 JOYLOP11 MID$XYFAKTOR,X 6520 (null)FAC2-1,X 6525 (null) 6530 (null)JOYLOP11 6535 (null)$70 6540 (null)MULTI 6545 (null)INTEGER 6550 (null) 6555 (null)MOEGLICH2 6560 ATN#10;X<10? 6565 (null)FERTIG3 6570 MOEGLICH2 (null);X- HIGH 6575 (null);X-LOW 6580 (null) 6585 VALRX1L 6590 (null) 6595 (null);X-HIGH 6600 VALRX1H 6605 (null)MOEGLICH 6610 ATN#<(320) 6615 (null)FERTIG3;>= 6620 MOEGLICH (null) 6625 (null) 6630 (null) 6635 VALRY1 6640 STR$#200 6645 (null)FERTIG2 6650 (null)RY2 6655 (null)RX2L 6660 (null)RX2H 6665 FERTIG2 (null)ZEICHNEN 6670 (null)MOEGLICH 6675 FERTIG3 (null) 6680 (null)ZEICHNEN 6685 MITSHIFT (null) 6690 (null);AUFWARTS 6695 (null) 6700 (null)JOY5 6705 MID$RY2 6710 (null) 6715 (null)#10 6720 STR$RY1 6725 (null)JOY5 6730 CHR$RY2 6735 JOY5 (null) 6740 (null);ABWAERTS 6745 (null)JOY6 6750 LENRY2 6755 ATN#199 6760 (null)JOY6 6765 RIGHT$RY2 6770 JOY6 (null);LINKS 6775 (null) 6780 (null)JOY7 6785 LENRX2H 6790 MID$RX2L 6795 (null) 6800 (null) 6805 (null)#10 6810 (null)JOYJMP6 6815 (null) 6820 JOYJMP6 STR$RX1L 6825 (null)JOYJMP5 6830 ATNRX1H 6835 (null)JOY7 6840 JOYJMP5 (null) 6845 TAN#$FF 6850 (null)JOYJMP4 6855 CHR$RX2H 6860 JOYJMP4 (null)RX2L 6865 JOY7 (null) 6870 (null);RECHTS 6875 (null)ZEICHNEN 6880 PEEKRX2L 6885 LENRX2H 6890 TAN#<(319) 6895 (null)JOYJMP7 6900 ATN#>(319) 6905 (null)ZEICHNEN 6910 JOYJMP7 RIGHT$RX2L 6915 (null)ZEICHNEN 6920 RIGHT$RX2H 6925 ZEICHNEN (null)RAHMEN 7000 AUT MID$$D015 7002 (null) 7004 MID$RAHMFARB 7006 (null) 7008 (null)ISTLUPE 7030 (null)TELE 7031 (null)ENDE 7040 ISTLUPE (null)$0A50;6000 ==> 7050 (null)$0B52;PUNKTE 7120 MID$#0 7130 (null)FLAG 7135 (null)$D015 7140 (null)RAHMEN 7150 FOXHILOP1 (null)AUTOLOP1 7160 MID$#%00000010 7170 (null)FLAG;FERTIG? 7180 (null)FOXHILOP1 7190 ENDE (null) 7200 (null)RAHMFARB 7210 (null) 7220 (null)$D015 7230 (null) 7240 ; 7250 AUTOLOP1 (null)JOYSTICK 7260 (null)TASTE 7270 (null)AUTOLOP1 7280 MID$SHIFT 7290 PEEK$CB 7300 (null)$23 7310 (null) 7320 PEEK#15 7330 TASTLOP1 STR$BEFEHL,X 7340 (null)GEFUNDEN 7350 (null) 7360 (null)TASTLOP1 7370 (null)AUTOLOP1 7380 GEFUNDEN (null) 7390 (null) 7400 (null) 7410 (null) 7420 MID$SPRUNG+1,X 7430 (null) 7440 MID$SPRUNG,X 7450 (null) 7460 (null) 7465 (null)$23 7470 (null) 7900 BEFEHL FN$01,$02,$07,$0D 7901 FN$38,$3B,$08,$0B,$0A 7902 FN$3F,$33,$2C,$04,$05 7903 FN$06,$03 7949 ; 7950 SPRUNG FN<(LOSGEHTS-1);0 7951 FN>(LOSGEHTS-1) 7952 FN<(SCROLL-1),>(SCROLL-1);1 7953 FN<(SCROLL-1),>(SCROLL-1);2 7954 FN<(STAMP-1),>(STAMP-1); 3 7955 FN<(SCHALT-1),>(SCHALT-1);4 7956 FN<(SCHALT-1),>(SCHALT-1);5 7957 FN<(SCHALT-1),>(SCHALT-1);6 7958 FN<(SCHALT-1),>(SCHALT-1);7 7959 FN<(APPEND-1),>(APPEND-1);8 7960 FN<(STOP-1),>(STOP-1); 9 7961 FN<(LOESCHEN-1),>(LOESCHEN-1) 7962 FN<($0B58-1),>($0B58-1); 10 7963 FN<(MEMORY-1),>(MEMORY-1);11 7964 FN<(MEMORY-1),>(MEMORY-1);12 7965 FN<(MEMORY-1),>(MEMORY-1);13 7966 FN<(MEMORY-1),>(MEMORY-1);14 8000 LOSGEHTS (null)FLAG 8005 (null)ISTZIEL 8010 MID$FLAG;QUELL- 8015 (null)#%10000000;RAHMEN- 8020 (null)FLAG;AUSWERT- 8025 RIGHT$RAHMFARB 8030 MID$RX1L 8035 PEEKRX1H 8040 (null)XQMINL 8045 (null)XQMINH 8050 (null) 8055 MID$RX2L 8060 (null)XQMINL 8065 (null)XQLANGL 8070 MID$RX2H 8075 (null)XQMINH 8080 (null)XQLANGH 8085 MID$RY1 8090 (null)YQMIN 8095 (null) 8100 MID$RY2 8105 (null)YQMIN 8110 (null)YQLANG 8115 LENXQLANGL;XYFAKT. 8120 MID$XQLANGH;BERECHN. 8125 (null)WORT 8130 PEEK#<(XYFAKTOR) 8135 LEN#>(XYFAKTOR) 8140 (null)MFLPT 8145 LENYQLANG 8150 (null)BYTE 8155 MID$#<(XYFAKTOR) 8160 LEN#>(XYFAKTOR) 8165 (null)DIVI 8170 PEEK#6 8175 AUTOLOP4 MID$$60,X 8180 (null)XYFAKTOR,X 8185 (null) 8190 (null)AUTOLOP4 8195 MID$#1; QUELL- 8200 PEEK#$33; ZEIGER 8205 (null)$19;$03/04 8210 (null)$0AF1;BERECHN 8215 MID$$03 8220 PEEK$04 8225 (null)QUELLSPL 8230 (null)QUELLSPH 8235 (null)AUTOLOP1 8240 ISTZIEL MID$FLAG 8245 (null)#%00000010 8246 (null)FLAG 8255 MID$RX1L;ZIEL- 8260 PEEKRX1H;RAHMEN- 8265 (null)XMINL;AUSWERT- 8270 (null)XMINH;UNG 8275 MID$RX2L 8280 PEEKRX2H 8285 (null)XMAXL 8290 (null)XMAXH 8295 (null) 8300 (null)XMINL 8305 (null)XLANGL 8310 (null) 8315 (null)XMINH 8320 (null)XLANGH 8325 MID$RY2 8330 PEEKRY1 8335 (null)YMAX 8340 (null)YMIN 8345 (null) 8350 (null)YMIN 8355 (null)YLANG 8360 LENXQLANGL;XFAKTOR 8365 MID$XQLANGH 8370 (null)WORT 8375 PEEK#<(XFAKTOR) 8380 LEN#>(XFAKTOR) 8385 (null)MFLPT 8390 LENXLANGL 8395 MID$XLANGH 8400 (null)WORT 8405 MID$#<(XFAKTOR) 8410 LEN#>(XFAKTOR) 8415 (null)DIVI 8420 PEEK#6 8425 AUTOLOP2 MID$$60,X 8430 (null)XFAKTOR,X 8435 (null) 8440 (null)AUTOLOP2 8445 LENYQLANG;YFAKTOR 8450 (null)BYTE 8455 PEEK#<(YFAKTOR) 8460 LEN#>(YFAKTOR) 8465 (null)MFLPT 8470 LENYLANG 8475 (null)BYTE 8480 MID$#<(YFAKTOR) 8485 LEN#>(YFAKTOR) 8490 (null)DIVI 8495 PEEK#6 8500 AUTOLOP3 MID$$60,X 8505 (null)YFAKTOR,X 8510 (null) 8515 (null)AUTOLOP3 8516 (null)RAHMEN 8517 (null)LUPE 9000 SCROLL (null) 9010 (null)RAHMEN 9020 (null) 9030 (null)$0A09;SCROLL 9040 (null)RAHMEN 9060 SCHALT (null) 9070 (null)RAHMEN 9080 (null) 9090 (null)$09E6;BITMAP 9100 (null)RAHMEN 9120 APPEND MID$#%10111111 9130 ASCFLAG 9140 (null)FLAG 9150 (null) 9160 STAMP MID$#%01000000 9170 (null)FLAG 9180 (null)FLAG 9190 NOSTOP (null) 9200 STOP MID$JOY 9210 (null)#%11100000 9220 LEFT$#%11111111 9230 (null)NOSTOP;RTS 9240 MID$#%00000010 9250 (null)FLAG 9260 (null)FLAG 9270 (null)RAHMEN 9290 LOESCHEN (null)NOSTOP 9300 (null)RAHMEN 9310 (null)$0A50;6000 ==> 9320 (null)$0B52;PUNKTE 9330 (null)$09BD;LOESCHEN 9340 (null)$0B52;PUNKTE 9350 (null)RAHMEN 9500 OLDRAHM PEEK#5 9505 OLDLOP MID$RRX1L,X 9510 (null)RX1L,X 9515 (null) 9520 (null)OLDLOP 9525 (null) 9600 MEMORY (null);ZEIGER 9605 (null)RAHMEN 9610 (null) 9615 (null)$23;SHIFT 9616 (null)$23;CBM ? 9620 (null) 9625 (null) 9630 (null)#11 9635 (null);=*2 9640 (null)ZW1 9645 (null);=*4 9650 VALZW1;=*6 9655 (null) 9656 (null) 9660 PEEK#5 9665 MEMLOP1 (null) 9670 (null) 9675 (null)WRITE 9680 MID$RX1L,X 9685 (null)RRX1L,Y 9690 (null)INCRX 9695 WRITE MID$RRX1L,Y 9700 (null)RX1L,X 9704 INCRX (null) 9705 (null) 9710 (null)MEMLOP1 9715 (null);STACKKOR. 9720 (null)RAHMEN 63000 <