10 + $C000 20 ; 30 ;*********************** 40 ;* LABELS * 50 ;*********************** 60 ; 70 TO SCREEN = $0288 80 TO EXESTA = $A7E7 90 TO PAINT = $D800 100 TO INTERP = $A7AE 110 TO GETIN = $FFE4 120 TO GETSTR1 = $AD9E 130 TO CHKCOM = $AEFD 140 TO GETSTR2 = $B6A3 150 TO GETBYT = $B79E 160 TO GETBY = $B79B 170 TO GETVAR = $B08B 180 TO PRINTA = $E716 190 TO ERESTR = $B47D 200 TO COLOR = $0286 210 TO CHRGET = $0073 220 TO CHRGOT = $0079 230 TO PARBACK = $A7 240 TO INDIZ = $A9 250 TO INDIZ1 = $AB 260 TO STRLEN = $AD 270 TO STRPOS = $AE 280 TO CADR = $F7 290 TO AADR = $F9 300 TO PAINTP = $B4 310 TO VARPNT = $47 320 TO STRPTR = $FB 330 TO CRSLIN = $D1 340 TO CRSCOL = $F3 350 TO LCODE = 820 360 TO LAUS = 821 370 TO X1 = 822 380 TO Y1 = 823 390 TO HELP = 824 400 TO CNTI = 826 410 TO CNTJ = 827 420 TO COL = 828 430 TO LINE = 829 440 TO BREITE = 830 450 TO LAENGE = 831 460 TO FARBE = 832 470 TO FLAG = 833 480 TO PUFNR = 834 490 TO ROUTIN = 836 500 TO SCREENP = INDIZ 510 TO PUFFERP = INDIZ1 520 TO PUFPOI = $0293 530 TO PUFSTART = $F000 540 TO Y = 214 550 TO X = 211 560 TO INTCTRL = $DC0E 570 TO LINEPOI = $FB 580 TOCHROUT=$F1CA 590 TOMVYFAC=$B3A2 600 TOMFACYA=$B7F7 610 TOSTRFAC=$B7B5 620 TOFACSTR=$BDDD 630 TOMEMFAC=$BBA2 640 TOFACMEM=$BBD4 650 TOAMEMF1=$B867 660 TOSMEMF1=$B850 670 TOMMEMF1=$BA28 680 TODMEMF1=$BB0F 690 TOINTFAC=$BCCC 700 TOABSFAC=$BC58 710 TOLNG=$FC 720 TOSTRD1=$FD 730 ; 740 ;*********************** 750 ;* BEFEHLSEINBINDUNG * 760 ;*********************** 770 ; 780 MID$#<(BEFCHK) 790 (null)$308 800 MID$#>(BEFCHK) 810 (null)$309 820 MID$#<(SONDERZS) 830 (null)$326 840 MID$#>(SONDERZS) 850 (null)$327 860 MID$#255 870 (null)PUFNR 880 (null) 890 ; 900 BEFCHK (null)CHRGET 910 STR$#"_" 920 (null)NOBEF 930 (null)CHRGET 940 STR$#"W" 950 (null)OKW 960 STR$#"C" 970 (null)OKC 980 STR$#"R" 990 (null)OKR 1000 STR$#"F" 1010 (null)OKF 1020 STR$#"S" 1030 (null)OKS 1040 STR$#"I" 1050 (null)OKI 1060 STR$#"A" 1070 (null)OKA 1080 STR$#"O" 1090 (null)OKO 1100 STR$#"D" 1110 (null)OKD 1120 NOBEF (null)CHRGOT 1130 (null)EXESTA 1140 ; 1150 OKW (null)WINDOW 1160 OKC (null)CLOSE 1170 OKR (null)RESET 1180 OKF (null)FETCH 1190 OKS (null)SET 1200 OKI (null)INVERT 1210 OKA (null)ARRAY 1220 OKO (null)ORDCHAR 1230 OKD (null)SCHNITT 1240 ; 1250 ;*********************** 1260 ;* WINDOW * 1270 ;*********************** 1280 ; 1290 WINDOW (null)PSHCUR 1300 MID$#5 1310 (null)PARAM 1320 MID$PUFNR 1330 STR$#63 1340 (null)WI2 1350 MID$#0 1360 (null)FLAG 1370 RIGHT$PUFNR 1380 (null)WINCOP 1390 (null)PUFFER 1400 (null)SETCUR2 1410 MID$COL 1420 (null) 1430 VALBREITE 1440 (null)BREITE 1450 CHR$BREITE 1460 CHR$LAENGE 1470 (null)MALEN 1480 RIGHT$FLAG 1490 WI1 (null)CURPOS 1500 (null)MALEN 1510 RIGHT$LINE 1520 MID$LINE 1530 STR$LAENGE 1540 (null)WI1 1550 RIGHT$FLAG 1560 (null)MALEN 1570 WI2 (null)PULCUR 1580 (null)INTERP 1590 ; 1600 MALEN LENCOL 1610 PEEKFLAG 1620 MID$LINKS,X 1630 (null)CHRCOL 1640 (null) 1650 MID$MITTE,X 1660 WM1 (null)CHRCOL 1670 (null) 1680 ATNBREITE 1690 (null)WM1 1700 MID$RECHTS,X 1710 (null)CHRCOL 1720 LINKS FN112,93,109 1730 MITTE FN64,32,64 1740 RECHTS FN110,93,125 1750 ; 1760 ;*********************** 1770 ;* CLOSE * 1780 ;*********************** 1790 ; 1800 CLOSE MID$PUFNR 1810 (null)EXE 1820 (null)PSHCUR 1830 MID$#1 1840 (null)FLAG 1850 (null)WINCOP 1860 (null)PUFFER 1870 (null)PULCUR 1880 EXE (null)CHRGET 1890 (null)EXESTA 1900 ; 1910 ;*********************** 1920 ;* RESET * 1930 ;*********************** 1940 ; 1950 RESET MID$PUFNR 1960 (null)R2 1970 (null)PSHCUR 1980 MID$#1 1990 (null)FLAG 2000 R3 (null)WINCOP 2010 (null)PUFFER 2020 (null)R3 2030 R2 (null)PULCUR 2040 (null)EXE 2050 ; 2060 ;*********************** 2070 ;* ARRAY * 2080 ;*********************** 2090 ; 2100 ARRAY (null)PSHCUR 2110 MID$#3 2120 (null)PARAM 2130 (null)SETCUR2 2140 MID$COL 2150 (null)HELP 2160 (null)CHKCOM 2170 (null)GETVAR 2180 (null) 2190 (null) 2200 (null) 2210 (null)CHKCOM 2220 (null)GETBYT 2230 (null) 2240 (null)$48 2250 (null) 2260 (null)$47 2270 LOP2 LEN#$02 2280 COP2 MID$($47),Y 2290 (null)STRPTR,Y 2300 (null) 2310 (null)COP2 2320 LENSTRPTR 2330 (null)NXT2 2340 (null) 2350 (null) 2360 (null) 2370 VALHELP 2380 (null)HELP 2390 STROUT MID$(STRPTR+1),Y 2400 (null)781 2410 (null)ASCCON 2420 TAN#0 2430 (null)AR1 2440 (null)2 2450 LENHELP 2460 (null)(CRSLIN),Y 2470 MID$BREITE 2480 (null)(CRSCOL),Y 2490 CHR$HELP 2500 AR1 PEEK781 2510 LEN2 2520 (null) 2530 (null)STROUT 2540 RIGHT$HELP 2550 NXT2 (null)CURPOS 2560 MID$$47 2570 (null) 2580 VAL#$03 2590 (null)$47 2600 (null)NXT1 2610 RIGHT$$48 2620 NXT1 (null) 2630 (null)LOP2 2640 (null)PULCUR 2650 (null)INTERP 2660 ; 2670 ;*********************** 2680 ;* INVERT * 2690 ;*********************** 2700 ; 2710 INVERT (null)PSHCUR 2720 MID$#5 2730 (null)PARAM 2740 (null)SETCUR2 2750 MID$COL 2760 (null) 2770 VALBREITE 2780 (null)BREITE 2790 MID$LINE 2800 (null) 2810 VALLAENGE 2820 (null)LAENGE 2830 PEEKLINE 2840 NXTY LENCOL 2850 NXTX MID$FARBE 2860 (null)IN1 2870 MID$(CRSLIN),Y 2880 LEFT$#128 2890 (null)IN2 2900 IN1 MID$#32 2910 IN2 (null)(CRSLIN),Y 2920 (null) 2930 ATNBREITE 2940 (null)NXTX 2950 (null) 2960 TANLAENGE 2970 (null)ENDI 2980 (null)CURPOS 2990 (null)NXTY 3000 ENDI (null)PULCUR 3010 (null)INTERP 3020 ; 3030 ;*********************** 3040 ;* SET * 3050 ;*********************** 3060 ; 3070 SET MID$#2 3080 (null)PARAM 3090 (null)SETCUR2 3100 (null)CHKCOM 3110 (null)$AAA4 3120 (null)INTERP 3130 ; 3140 ;*********************** 3150 ;* ORDCHAR * 3160 ;*********************** 3170 ; 3180 ORDCHAR (null)CHRGET 3190 (null)STRVAR 3200 MID$(VARPNT),Y 3210 (null)$FF 3220 (null)CHKCOM 3230 (null)STRVAR 3240 (null)2 3250 O1 MID$(VARPNT),Y 3260 STR$$FF 3270 (null)O2 3280 (null) 3290 ATN2 3300 (null)O1 3310 LEN#255 3320 O2 (null) 3330 (null)$FF 3340 (null)CHKCOM 3350 (null)GETVAR 3360 MID$#$80 3370 STR$$0E 3380 (null)O3 3390 (null)TYPMIS 3400 O3 LEN#1 3410 MID$$FF 3420 (null)(VARPNT),Y 3430 (null) 3440 MID$#0 3450 (null)(VARPNT),Y 3460 (null)INTERP 3470 ; 3480 STRVAR (null)GETSTR1 3490 (null)GETSTR2 3500 (null)VARPNT 3510 (null)VARPNT+1 3520 STR$#0 3530 (null)O4 3540 (null)ILQUAN 3550 O4 LEN#0 3560 (null) 3570 ; 3580 ;*********************** 3590 ;* FETCH * 3600 ;*********************** 3610 ; 3620 ILQUAN (null)$B248 3630 FETCH (null)PSHCUR 3640 MID$#3 3650 (null)PARAM 3660 MID$COL 3670 (null) 3680 VALBREITE 3690 STR$#41 3700 (null)ILQUAN 3710 (null)HELP 3720 CHR$HELP 3730 MID$#<(CODE) 3740 (null)CADR 3750 MID$#>(CODE) 3760 (null)CADR+1 3770 (null)CHKCOM 3780 (null)GETSTR1 3790 (null)GETSTR2 3800 (null)$F9 3810 (null)$FA 3820 (null)STRCHK 3830 (null)LCODE 3840 P4 MID$($F9),Y 3850 (null)(CADR),Y 3860 (null) 3870 (null)P4 3880 (null)CHKCOM 3890 (null)GETSTR1 3900 (null)GETSTR2 3910 (null)AADR 3920 (null)AADR+1 3930 (null)STRCHK 3940 (null)LAUS 3950 (null)CHKCOM 3960 (null)GETVAR 3970 PEEK$0D 3980 (null)P7 3990 (null)TYPMIS 4000 P7 (null)SETCUR2 4010 LEN#2 4020 P8 MID$(VARPNT),Y 4030 (null)$44,Y 4040 (null) 4050 (null)P8 4060 MID$(VARPNT),Y 4070 (null)2 4080 RIGHT$2 4090 PEEKHELP 4100 LEN#0 4110 P9 MID$($45),Y 4120 (null) 4130 ATN2 4140 (null)P10 4150 MID$#32 4160 P10 (null)PRINTA 4170 TANX 4180 (null)P9 4190 HOME MID$COL 4200 (null)X 4210 WAIT LENX 4220 MID$(CRSLIN),Y 4230 (null)#128 4240 (null)(CRSLIN),Y 4250 W1 PEEK198 4260 (null)W1 4270 MID$630,X 4280 (null)2 4290 CHR$198 4300 LENX 4310 MID$(CRSLIN),Y 4320 ASC#127 4330 (null)(CRSLIN),Y 4340 LENLAUS 4350 L1 MID$(AADR),Y 4360 STR$#"" 4370 (null)L2 4380 MID$#13 4390 L2 STR$2 4400 (null)ENDER 4410 (null) 4420 (null)L1 4430 (null)L3 4440 ENDER (null)ENDEA 4450 L3 MID$2 4460 STR$#32 4470 (null)LB1 4480 (null)PRINT 4490 LB1 STR$#"" 4500 (null)LB2 4510 RIGHT MID$HELP 4520 STR$X 4530 (null)WAIT 4540 RIGHT$X 4550 (null)WAIT 4560 LB2 STR$#"[157]" 4570 (null)LB3 4580 MID$COL 4590 STR$X 4600 (null)WAIT 4610 LEFT CHR$X 4620 (null)WAIT 4630 LB3 STR$#"" 4640 (null)LB4 4650 (null)HOME 4660 LB4 STR$#"[147]" 4670 (null)LB5 4680 MID$#32 4690 LENHELP 4700 C1 (null)(CRSLIN),Y 4710 (null) 4720 (null)HOME 4730 ATNCOL 4740 (null)C1 4750 (null)HOME 4760 LB5 STR$#20 4770 (null)LB6 4780 LENX 4790 ATNCOL 4800 (null)WAIT2 4810 RIGHT$HELP 4820 D1 MID$(CRSLIN),Y 4830 (null) 4840 (null)(CRSLIN),Y 4850 (null) 4860 (null) 4870 ATNHELP 4880 (null)D1 4890 CHR$HELP 4900 (null) 4910 MID$#32 4920 (null)(CRSLIN),Y 4930 (null)LEFT 4940 LB6 STR$#148 4950 (null)LB7 4960 LENHELP 4970 ATNX 4980 (null)WAIT2 4990 MID$(CRSLIN),Y 5000 STR$#32 5010 (null)WAIT2 5020 LENHELP 5030 (null) 5040 I1 MID$(CRSLIN),Y 5050 (null) 5060 (null)(CRSLIN),Y 5070 (null) 5080 (null) 5090 (null)I2 5100 ATNX 5110 (null)I1 5120 I2 (null) 5130 MID$#32 5140 (null)(CRSLIN),Y 5150 (null)WAIT2 5160 LB7 LENLCODE 5170 L4 MID$(CADR),Y 5180 STR$#"" 5190 (null)CTRLA 5200 STR$#"" 5210 (null)CTRLZ 5220 STR$#"" 5230 (null)CTRLB 5240 STR$2 5250 (null)CHR 5260 L10 (null) 5270 (null)L4 5280 WAIT2 (null)WAIT 5290 ; 5300 CHR (null)ASCCON 5310 TAN#0 5320 (null)WAIT2 5330 PRINT LEN$D3 5340 (null)(CRSLIN),Y 5350 (null)RIGHT 5360 CTRLA MID$2 5370 (null)CHR 5380 CTRLB MID$2 5390 STR$#64 5400 (null)L10 5410 STR$#91 5420 (null)CHR 5430 STR$#192 5440 (null)L10 5450 STR$#224 5460 (null)CHR 5470 STR$#255 5480 (null)CHR 5490 (null)L10 5500 CTRLZ MID$2 5510 STR$#34 5520 (null)CHR 5530 STR$#45 5540 (null)CHR 5550 STR$#46 5560 (null)CHR 5570 STR$#48 5580 (null)L10 5590 STR$#58 5600 (null)CHR 5610 (null)L10 5620 ; 5630 ENDEA (null) 5640 MID$#1 5650 (null)FLAG 5660 MID$BREITE 5670 (null)ERESTR 5680 (null)2 5690 CHR$2 5700 LENHELP 5710 (null)$FF 5720 E9 LEN$FF 5730 MID$(CRSLIN),Y 5740 CHR$$FF 5750 STR$#32 5760 (null)E10 5770 PEEK#0 5780 (null)FLAG 5790 STR$#33 5800 (null)E6 5810 (null)#$40 5820 (null)E7 5830 E10 PEEKFLAG 5840 (null)E7 5850 CHR$$61 5860 (null)E11 5870 (null)E12 5880 E6 STR$#63 5890 (null)E7 5900 STR$#96 5910 (null)E8 5920 (null)#$60 5930 (null)E7 5940 E8 LEFT$#$C0 5950 E7 LEN2 5960 (null)($62),Y 5970 E11 CHR$2 5980 (null)E9 5990 E12 LEN#2 6000 E13 MID$$61,Y 6010 (null)(VARPNT),Y 6020 (null) 6030 (null)E13 6040 (null) 6050 (null)2 6060 MID$#44 6070 LEN#0 6080 STR$($7A),Y 6090 (null)RT 6100 (null)CHKCOM 6110 (null)GETVAR 6120 MID$$0D 6130 (null)E3 6140 (null)TYPMIS 6150 E3 MID$#1 6160 (null)ERESTR 6170 LEN#2 6180 E4 MID$$61,Y 6190 (null)(VARPNT),Y 6200 (null) 6210 (null)E4 6220 MID$2 6230 (null) 6240 (null)($62),Y 6250 RT (null)PULCUR 6260 (null)INTERP 6270 ; 6280 ;*********************** 6290 ;* DURCHSCHNITT * 6300 ;*********************** 6310 ; 6320 SCHNITT (null)CHRGET 6330 (null)GETVAR 6340 (null)DZSL 6350 (null)DZSH 6360 (null)CHKCOM 6370 (null)GETBYT 6380 (null)NCNT 6390 (null)CHKCOM 6400 (null)GETBYT 6410 (null)PNFLG 6420 (null)CHKCOM 6430 (null)GETVAR 6440 (null)FPDL 6450 (null)FPDH 6460 LEN#0 6470 (null)ANZ 6480 (null)MVYFAC 6490 LXYCLOSETEMP1 6500 (null)FACMEM 6510 MID$DZSL 6520 (null)$47 6530 MID$DZSH 6540 (null)$48 6550 NXTBER LEN#2 6560 DCO1 MID$($47),Y 6570 (null)$FC,Y 6580 (null) 6590 (null)DCO1 6600 (null) 6610 (null)NXTSTR 6620 LEN#0 6630 CHKZ MID$(STRD1),Y 6640 STR$#"#" 6650 (null)ZOK 6660 (null) 6670 ATNLNG 6680 (null)CHKZ 6690 MID$#0 6700 (null)ZFLG 6710 (null)ON1 6720 ZOK MID$#1 6730 (null)ZFLG 6740 (null) 6750 MID$LNG 6760 (null)LNG 6770 (null) 6780 (null)LNG 6790 (null)LNG 6800 (null) 6810 (null) 6820 VALSTRD1 6830 (null)STRD1 6840 MID$#0 6850 VALSTRD1+1 6860 (null)STRD1+1 6870 ON1 MID$STRD1 6880 (null)$22 6890 MID$STRD1+1 6900 (null)$23 6910 MID$LNG 6920 PEEKPNFLG 6930 (null)PNKT 6940 PEEKZFLG 6950 (null)ON2 6960 (null)PUNO 6970 ON2 (null)SUMM 6980 PNKT PEEKZFLG 6990 (null)SUMM 7000 (null)NOPU 7010 SUMM (null)STRFAC 7020 LAYCLOSETEMP1 7030 (null)AMEMF1 7040 LXYCLOSETEMP1 7050 (null)FACMEM 7060 RIGHT$ANZ 7070 NXTSTR CHR$NCNT 7080 (null)ENDSUM 7090 MID$#3 7100 (null) 7110 VALDZSL 7120 (null)DZSL 7130 (null)$47 7140 MID$#0 7150 VALDZSH 7160 (null)DZSH 7170 (null)$48 7180 (null)NXTBER 7190 ENDSUM LENANZ 7200 (null)MVYFAC 7210 LAYCLOSETEMP1 7220 (null)DMEMF1 7230 PEEKFPDL 7240 LENFPDH 7250 (null)FACMEM 7260 (null)INTERP 7270 ; 7280 ;*********************** 7290 ;* DRUCKERZEICHEN * 7300 ;*********************** 7310 ; 7320 SONDERZS (null)2 7330 (null) 7340 (null) 7350 (null) 7360 (null) 7370 MID$19 7380 STR$#4 7390 (null)PZ3 7400 PEEK#6 7410 MID$2 7420 PZ1 STR$BLDZS,X 7430 (null)PZ2 7440 (null) 7450 (null)PZ1 7460 (null)PZ3 7470 PZ2 MID$PRTZS,X 7480 (null)2 7490 PZ3 (null) 7500 (null) 7510 (null) 7520 (null) 7530 MID$2 7540 (null)CHROUT 7550 ; 7560 ;*********************** 7570 ;* UNTERPROGRAMME * 7580 ;*********************** 7590 ; 7600 PUFFER MID$#<(PUFSTART) 7610 PEEK#>(PUFSTART) 7620 (null)PUFPOI 7630 (null)PUFPOI+1 7640 MID$PUFNR 7650 (null) 7660 (null) 7670 MID$PUFPOI,X 7680 (null)PUFFERP 7690 MID$PUFPOI+1,X 7700 (null)PUFFERP+1 7710 (null)ENDZEI 7720 (null)SETCUR2 7730 WEITER MID$#0 7740 PEEKSCREEN 7750 (null)LINEPOI 7760 (null)LINEPOI+1 7770 PEEKY 7780 (null)LINEPTR3 7790 LINEPTR1 MID$LINEPOI 7800 (null) 7810 VAL#40 7820 (null)LINEPOI 7830 (null)LINEPTR2 7840 RIGHT$LINEPOI+1 7850 LINEPTR2 (null) 7860 (null)LINEPTR1 7870 LINEPTR3 MID$LINEPOI+1 7880 (null)SCREENP+1 7890 MID$LINEPOI 7900 (null) 7910 VALCOL 7920 (null)SCREENP 7930 (null)OKAY 7940 RIGHT$SCREENP+1 7950 OKAY MID$SCREENP 7960 (null)PAINTP 7970 MID$SCREENP+1 7980 ASC#$03 7990 (null)#>(PAINT) 8000 (null)PAINTP+1 8010 LENBREITE 8020 (null) 8030 COPY (null) 8040 (null) 8050 VALBREITE 8060 (null)HELP 8070 MID$FLAG 8080 (null)WRITE 8090 MID$(PAINTP),Y 8100 (null)HELP+1 8110 LENHELP 8120 (null)(PUFFERP),Y 8130 LENHELP+1 8140 MID$(SCREENP),Y 8150 (null)(PUFFERP),Y 8160 (null)JUMP 8170 WRITE (null)HELP+1 8180 LENHELP 8190 (null)RAM 8200 MID$(PUFFERP),Y 8210 (null) 8220 (null)ROM 8230 (null) 8240 LENHELP+1 8250 (null)(PAINTP),Y 8260 (null)RAM 8270 MID$(PUFFERP),Y 8280 (null)(SCREENP),Y 8290 (null)ROM 8300 JUMP (null) 8310 (null)COPY 8320 MID$BREITE 8330 (null) 8340 (null) 8350 VALPUFFERP 8360 (null)PUFFERP 8370 (null)NOINCR 8380 RIGHT$PUFFERP+1 8390 NOINCR (null)CURPOS 8400 RIGHT$Y 8410 MID$Y 8420 STR$LAENGE 8430 (null)END1 8440 (null)WEITER 8450 END1 PEEKPUFNR 8460 (null) 8470 (null) 8480 (null) 8490 (null) 8500 MID$PUFFERP 8510 (null)PUFPOI,X 8520 MID$PUFFERP+1 8530 (null)PUFPOI+1,X 8540 MID$FLAG 8550 (null)NOLIES 8560 CHR$PUFNR 8570 NOLIES (null) 8580 RAM (null)NOINT 8590 MID$#$34 8600 (null)1 8610 (null)INTEIN 8620 ROM (null)NOINT 8630 MID$#$37 8640 (null)1 8650 (null)INTEIN 8660 NOINT MID$INTCTRL 8670 ASC#$FE 8680 (null)INTCTRL 8690 (null) 8700 INTEIN MID$INTCTRL 8710 (null)#$01 8720 (null)INTCTRL 8730 (null) 8740 ;----------------------- 8750 PARAM (null)CNTI 8760 PEEK#0 8770 LESEN (null)CNTJ 8780 (null)LES2 8790 (null)GETBY 8800 (null)PA1 8810 LES2 (null)CHKCOM 8820 (null)GETBYT 8830 PA1 (null) 8840 PEEKCNTJ 8850 (null)COL,X 8860 (null) 8870 TANCNTI 8880 (null)LESEN 8890 (null) 8900 ;----------------------- 8910 ENDZEI MID$LINE 8920 (null) 8930 VALLAENGE 8940 (null)LAENGE 8950 (null) 8960 ;----------------------- 8970 WINCOP MID$PUFNR 8980 (null) 8990 (null) 9000 (null) 9010 VAL#3 9020 (null) 9030 LEN#3 9040 WT1 MID$FLAG 9050 (null)WT2 9060 MID$WINTAB,X 9070 (null)COL,Y 9080 (null)WT3 9090 WT2 MID$COL,Y 9100 (null)WINTAB,X 9110 WT3 (null) 9120 (null) 9130 (null)WT1 9140 (null) 9150 ;----------------------- 9160 PSHCUR MID$X 9170 (null)X1 9180 MID$Y 9190 (null)Y1 9200 (null) 9210 ;----------------------- 9220 PULCUR LENX1 9230 PEEKY1 9240 (null)SETCUR 9250 ;----------------------- 9260 CURPOS MID$#40 9270 (null) 9280 VALCRSLIN 9290 (null)CRSLIN 9300 MID$#0 9310 VALCRSLIN+1 9320 (null)CRSLIN+1 9330 MID$#40 9340 (null) 9350 VALCRSCOL 9360 (null)CRSCOL 9370 MID$#0 9380 VALCRSCOL+1 9390 (null)CRSCOL+1 9400 (null) 9410 ;----------------------- 9420 STRCHK (null) 9430 (null) 9440 ATN#80 9450 (null)ILLEG 9460 (null) 9470 ILLEG (null)ILQUAN 9480 ;----------------------- 9490 TYPMIS PEEK#22 9500 (null)$A437 9510 ;----------------------- 9520 SETCUR2 LENCOL 9530 PEEKLINE 9540 (null)SETCUR 9550 ;----------------------- 9560 CHRCOL (null) 9570 (null)(CRSLIN),Y 9580 MID$FARBE 9590 (null)(CRSCOL),Y 9600 (null) 9610 (null) 9620 ;----------------------- 9630 SETCUR (null)X 9640 (null)Y 9650 (null)$E9F0 9660 (null)$EA24 9670 (null) 9680 ;----------------------- 9690 ASCCON STR$#32 9700 (null)CNOT 9710 STR$#96 9720 (null)L5 9730 ASC#$3F 9740 (null)COK 9750 L5 STR$#128 9760 (null)L6 9770 LEFT$#$20 9780 (null)COK 9790 L6 STR$#160 9800 (null)CNOT 9810 STR$#192 9820 (null)L7 9830 LEFT$#$C0 9840 (null)COK 9850 L7 STR$#224 9860 (null)L8 9870 ASC#$7F 9880 (null)COK 9890 L8 STR$#255 9900 (null)L9 9910 LEFT$#$80 9920 (null)COK 9930 L9 MID$#94 9940 COK PEEK#0 9950 (null) 9960 CNOT PEEK#1 9970 (null) 9980 ;------------------- 9990 NOPU PEEK$22 10000 (null)814 10010 PEEK$23 10020 (null)815 10030 (null)2 10040 LEN#6 10050 (null)MVYFAC 10060 LXYCLOSETEMP2 10070 (null)FACMEM 10080 MID$814 10090 (null)$22 10100 MID$815 10110 (null)$23 10120 MID$2 10130 (null)STRFAC 10140 LAYCLOSETEMP2 10150 (null)SMEMF1 10160 LXYCLOSETEMP2 10170 (null)FACMEM 10180 LEN#3 10190 (null)MVYFAC 10200 LAYCLOSETEMP2 10210 (null)MMEMF1 10220 LXYCLOSETEMP2 10230 (null)FACMEM 10240 LAYCLOSE$BF11 10250 (null)MEMFAC 10260 LAYCLOSETEMP2 10270 (null)SMEMF1 10280 (null)ABSFAC 10290 (null)INTFAC 10300 (null)FACSTR 10310 (null)$22 10320 (null)$23 10330 MID$#3 10340 (null) 10350 ;------------------- 10360 PUNO (null)STRFAC 10370 (null)MFACYA 10380 (null) 10390 (null) 10400 (null) 10410 (null) 10420 VAL#<(NTAB) 10430 (null)$22 10440 MID$#>(NTAB) 10450 VAL#0 10460 (null)$23 10470 MID$#4 10480 (null) 10490 ; 10500 ; 10510 ;-------- MAKROS --------- 10520 ; 10530 GETLAYCLOSEADR 10540 MID$#<(ADR) 10550 LEN#>(ADR) 10560 NEW 10570 ; 10580 GETLXYCLOSEADR 10590 PEEK#<(ADR) 10600 LEN#>(ADR) 10610 NEW 10620 ; 10630 ;*********************** 10640 ;* TABELLEN * 10650 ;*********************** 10660 ; 10670 CODE NOT"........................................" 10680 NOT"........................................" 10690 ; 10700 NTAB NOT"6.0 5.255.0 4.75" 10710 NOT"4.254.0 3.753.25" 10720 NOT"3.0 2.752.252.0 " 10730 NOT"1.751.251.0 0.75" 10740 ; 10750 ANZ FN0 10760 NCNT FN0 10770 PNFLG FN0 10780 ZFLG FN0 10790 DZSL FN0 10800 DZSH FN0 10810 FPDL FN0 10820 FPDH FN0 10830 TEMP1 FN0,0,0,0,0 10840 TEMP2 FN0,0,0,0,0 10850 ; 10860 BLDZS FN186,169,255 10870 FN64,92,94,93 10880 PRTZS FN91,92,93 10890 FN123,124,125,126 10900 ; 10910 WINTAB THEN15