64'er 1989 December/64er_Magazin_89-12_1989_Markt__Technik_de_Side_A.d64/mas.ms.sc

Commodore BASIC | 2022-10-26 | 14KB | 1,092 lines

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