64'er 1990 March/64er_Magazin_90-03_1990_Markt__Technik_de_Side_A.d64/extend

Commodore BASIC | 2022-10-26 | 16KB | 1,275 lines

10  +$91b2
15  step"part2,p,w"
20  tab(nib=$02c0
30  tab(bytes=$41
40  tab(kommand=$02ce
50  tab(data=$02d0
60  tab(masks=$0130
70  tab(work=$57
80  tab(dapo=$b0
90  tab(sure=$b4
100  tab(bypo=$b5
110  tab(texts=$0100
120  tab(pclo=$50
130  tab(pchi=$51
140  tab(tablo=$6e
150  tab(tabhi=$6f
160  tab(mnenr=$b1
170  tab(adrnr=$5e
180  tab(lenght=$5f
190  tab(oreg=$0100
200  tab(codo=$52
210  tab(ad=$02c8
220  tab(colhide=$0287
230  tab(tab=$d7
240  tab(inpli=$0200
250  tab(lacha=$ce
260  tab(tarlo=$5c
270  tab(tarhi=$5d
280  tab(llo=$4e
290  tab(lhi=$4f
300  tab(savepos=$a7
310  tab(jump=$92
320  tab(labpo=$a8
330  tab(callpo=$a9
340  tab(labels=$ce00
350  tab(calls=$cf00
360  tab(labon=$aa
370  tab(recon=$55
380  tab(wrcon=$56
390  tab(print=$02
391  tab(sost=$57
392  tab(soen=$59
393  tab(diff=$5b
400  tab(getdata=$0230
410  tab(stodata=getdata+15
420  tab(regstore=$0128
430  tab(bysixo=$8ff3
440  tab(dasto=$8d1d
450  tab(incpc=$87ee
460  tab(feda=$8414
470  tab(gerad=$85ab
480  tab(table=$9e80
490  tab(diso=$8767
500  tab(sesp=$819b
510  tab(sensp=$8b3d
520  tab(brech=$880f
530  tab(brasub=$882b
540  tab(adrset=$87fc
550  tab(linefeed=$8626
560  tab(crsrup=$862b
2000 hunt mid$dapo
2010  str$#$06
2020  (NULL)allright
2030  mid$texts
2040  (NULL)hute
2050  (NULL)
2060 hute (NULL)texttrans
2070  (NULL)
2080 allright (NULL)
2090  (NULL)#$06
2100  (NULL)sure
2110  (NULL)adrset
2120 msh mid$sure
2130  (NULL)
2140  (NULL)
2150  (NULL)
2160 ssh (NULL)getdata
2170  ascmasks+4,x
2180  str$data+4,x
2190  (NULL)next
2200  (NULL)
2210  (NULL)
2220  (NULL)
2230  (NULL)ssh
2240  (NULL)adrout
2250 next (NULL)increase
2260  (NULL)hunen
2261  (NULL)brech
2262  (NULL)msh
2270 hunen (NULL)crsrup
2290  (NULL)linefeed
2320 increase mid$pclo
2330  (NULL)
2340  val#$01
2350  (NULL)pclo
2360  mid$pchi
2370  val#$00
2380  (NULL)pchi
2390  str$tarhi
2400  (NULL)nono
2410  mid$pclo
2420  str$tarlo
2430  (NULL)nono
2440  (NULL)
2450  (NULL)
2510 nono (NULL)
2520  (NULL)
2530 adrout peekpchi
2540  lenpclo
2550  (NULL)bysixo
2650 texttrans len#$00
2660  peek#$04
2670 nechar mid$texts,y
2680  (NULL)ehute
2690  (NULL)data,x
2700  (NULL)
2710  (NULL)
2720  (NULL)
2730  atn#$10
2740  (NULL)nechar
2750 ehute (NULL)
4000 fill mid$dapo
4010  str$#$06
4020  (NULL)alright2
4030  mid$texts
4040  (NULL)tecon
4050  (NULL)
4060 tecon (NULL)texttrans
4070  (NULL)
4080 alright2 (NULL)
4090  (NULL)
4100  (NULL)#$06
4110  (NULL)sure
4120  (NULL)
4130  (NULL)
4140  (NULL)#$04
4150  (NULL)
4160  (NULL)lenght
4170  (NULL)adrset
4180 fms mid$sure
4190  (NULL)
4200  (NULL)
4210  (NULL)
4220 fss mid$data+4,x
4230  (NULL)stodata
4240  (NULL)
4250  (NULL)
4260  (NULL)
4270  (NULL)fss
4280  (NULL)incpc
4290  (NULL)endcheck
4300  (NULL)fms
4310  (NULL)
4320 endcheck mid$pchi
4330  str$tarhi
4340  (NULL)arr1
4350  (NULL)arr2
4360  mid$tarhi
4370  (NULL)arr3
4380  mid$pchi
4390  str$#$01
4400  (NULL)arr2
4410 arr3 (NULL)
4420  (NULL)
4430 arr1 mid$pclo
4440  str$tarlo
4450  (NULL)arr3
4460 arr2 (NULL)
4470  (NULL)
5000 transfer mid$dapo
5010  str$#$06
5020  (NULL)alright3
5030  (NULL)
5040 alright3 mid$#<(tablo)
5050  (NULL)stodata+8
5060  mid$data+5
5070  str$data+1
5080  (NULL)copy1
5090  (NULL)nech
5100  mid$data+4
5110  str$data
5120  (NULL)copy1
5130 nech mid$data+5
5140  str$data+3
5150  (NULL)copy2
5160  (NULL)copy1
5170  mid$data+4
5180  str$data+2
5190  (NULL)copy1
5200  (NULL)copy2
5210 copy1 (NULL)doco1
5220 copy2 peekdata+3
5230  lendata+2
5240  (NULL)pchi
5250  (NULL)pclo
5260  mid$data
5270  (NULL)
5280  (NULL)#$01
5290  (NULL)tarlo
5300  mid$data+1
5310  (NULL)#$00
5320  (NULL)tarhi
5330  mid$data+2
5340  (NULL)
5350  (NULL)data
5360  (NULL)llo
5370  mid$data+3
5380  (NULL)data+1
5390  (NULL)lhi
5400  mid$data+4
5410  (NULL)
5420  valllo
5430  (NULL)tablo
5440  mid$data+5
5450  vallhi
5460  (NULL)tabhi
5470  len#$00
5480 mtr2 (NULL)getdata
5490  (NULL)stodata
5500  mid$tablo
5510  (NULL)
5520  (NULL)#$01
5530  (NULL)tablo
5540  mid$tabhi
5550  (NULL)#$00
5560  (NULL)tabhi
5570  mid$pclo
5580  (NULL)
5590  (NULL)#$01
5600  (NULL)pclo
5610  mid$pchi
5620  (NULL)#$00
5630  (NULL)pchi
5640  str$tarhi
5650  (NULL)mtr2
5660  mid$pclo
5670  str$tarlo
5680  (NULL)mtr2
5690  (NULL)copend
5700 doco1 (NULL)adrset
5710  peekdata+5
5720  lendata+4
5730  (NULL)tabhi
5740  (NULL)tablo
5750  len#$00
5760 mtr1 (NULL)getdata
5770  (NULL)stodata
5780  (NULL)inctab
5790  (NULL)increase
5800  (NULL)mtr1
5810 copend mid$#<(pclo)
5820  (NULL)stodata+8
5830  (NULL)
5840 inctab mid$tablo
5850  (NULL)
5860  val#$01
5870  (NULL)tablo
5880  mid$tabhi
5890  val#$00
5900  (NULL)tabhi
5910  (NULL)
6000 adapt mid$dapo
6010  str$#$0a
6020  (NULL)alright4
6030  (NULL)
6040 alright4 (NULL)adrset
6050  (NULL)adrset2
6060  mid$sost
6070  (NULL)
6080  (NULL)data+8
6090  (NULL)diff
6100  mid$sost+1
6110  (NULL)data+9
6120  (NULL)diff+1
6130 adst len#$00
6140  (NULL)getdata
6150  (NULL)bypo
6160  (NULL)feda
6170  str$#$03
6180  (NULL)nosixteen
6190  lenbypo
6200  mid$table,y
6210  (NULL)nosixteen
6220  len#$01
6230  (NULL)getdata
6240  (NULL)tablo
6250  (NULL)
6260  (NULL)getdata
6270  (NULL)tabhi
6280  (NULL)checkit
6290  len#$01
6300  mid$tablo
6310  (NULL)stodata
6320  (NULL)
6330  mid$tabhi
6340  (NULL)stodata
6350 nosixteen (NULL)incpc
6360  (NULL)endcheck
6370  (NULL)adst
6380  (NULL)
6390 checkit mid$tabhi
6400  str$sost+1
6410  (NULL)exar
6420  (NULL)notequ1
6430  mid$tablo
6440  str$sost
6450  (NULL)exar
6460 notequ1 mid$soen+1
6470  str$tabhi
6480  (NULL)exar
6490  (NULL)notequ2
6500  mid$soen
6510  str$tablo
6520  (NULL)exar
6530 notequ2 mid$tablo
6540  (NULL)
6550  (NULL)diff
6560  (NULL)tablo
6570  mid$tabhi
6580  (NULL)diff+1
6590  (NULL)tabhi
6600  (NULL)
6610  (NULL)
6620 exar (NULL)
6630  (NULL)
6640 adrset2 peekdata+5
6650  lendata+4
6660  (NULL)sost+1
6670  (NULL)sost
6680  peekdata+7
6690  lendata+6
6700  (NULL)soen+1
6710  (NULL)soen
6720  (NULL)
7000 access mid$dapo
7010  str$#$08
7020  (NULL)alright5
7030  (NULL)
7040 alright5 (NULL)adrset
7050  (NULL)adrset2
7060 mslo (NULL)msa
7070  (NULL)noout
7080  (NULL)diso
7090  (NULL)linefeed
7110 noout (NULL)incpc
7120  (NULL)brech
7130  (NULL)endacc
7140  (NULL)endcheck
7150  (NULL)mslo
7160 endacc (NULL)linefeed
7190 msa (NULL)subrout
7200  str$#$01
7210  (NULL)nodir
7220  (NULL)notinc
7230 nodir str$#$0a
7240  (NULL)nobra
7250  (NULL)brasub
7260  (NULL)check
7270 nobra lenbypo
7280  mid$table,y
7290  (NULL)notinc
7300  mid$lenght
7310  str$#$02
7320  (NULL)notinc
7330  str$#$03
7340  (NULL)nozero
7350  len#$00
7360  (NULL)tabhi
7370  (NULL)
7380  (NULL)getdata
7390  (NULL)tablo
7400  (NULL)check
7410 nozero len#$01
7420  (NULL)getdata
7430  (NULL)tablo
7440  (NULL)
7450  (NULL)getdata
7460  (NULL)tabhi
7470 check (NULL)checkit
7480  (NULL)notinc
7490 pout (NULL)
7500  (NULL)
7510 notinc (NULL)
7520  (NULL)
8000 insert mid$dapo
8010  str$#$08
8020  (NULL)alright6
8030  (NULL)
8040 alright6 mid$#$00
8050  (NULL)diff
8060  (NULL)examine
8070  (NULL)ldwc
8080  (NULL)data+1
8090  (NULL)data
8100  (NULL)
8110  (NULL)
8120  valdata+6
8130  (NULL)data+4
8140  (NULL)
8150  val#$00
8160  (NULL)data+5
8170  (NULL)transfer
8180  peekdata+1
8190  lendata
8200  (NULL)pchi
8210  (NULL)pclo
8220  mid$data+6
8230  (NULL)
8240 doia mid$#$ea
8250  (NULL)
8260  atn#$ff
8270  (NULL)exin
8280  (NULL)stodata
8290  (NULL)doia
8300 exin (NULL)
8310 examine (NULL)regdef1
8320 iplus (NULL)msa
8330  (NULL)ipnot
8340  (NULL)subrout
8350  (NULL)ipnob
8360  mid$diff
8370  (NULL)kin1
8380  (NULL)subbrm
8390  (NULL)kch1
8400 kin1 (NULL)subbrp
8410 kch1 (NULL)nillbr1
8420  (NULL)brerror
8430 nillbr1 (NULL)ipnot
8440 ipnob mid$lenght
8450  str$#$03
8460  (NULL)ipnot
8470  len#$01
8480  mid$diff
8490  (NULL)kin2
8500  (NULL)sudx
8510  (NULL)ipnot
8520 kin2 (NULL)addx
8530 ipnot (NULL)incpc
8540  (NULL)endcheck
8550  (NULL)iplus
8560 exam2 (NULL)regdef2
8570 ibra (NULL)msa
8580  (NULL)imnot
8590  (NULL)subrout
8600  (NULL)imnot
8610  mid$diff
8620  (NULL)kin3
8630  (NULL)subbrp
8640  (NULL)kch2
8650 kin3 (NULL)subbrm
8660 kch2 (NULL)imnot
8670  (NULL)brerror
8680 imnot (NULL)incpc
8690  (NULL)endcheck
8700  (NULL)ibra
8710 exam3 (NULL)regdef4
8720 iabs (NULL)msa
8730  (NULL)ianot
8740  (NULL)subrout
8750  (NULL)ianot
8760  mid$lenght
8770  str$#$03
8780  (NULL)ianot
8790  len#$01
8800  mid$diff
8810  (NULL)kin4
8820  (NULL)sudx
8830  (NULL)ianot
8840 kin4 (NULL)addx
8850 ianot (NULL)incpc
8860  (NULL)endcheck
8870  (NULL)iabs
8880 exam4 (NULL)regdef3
8890 ilabs mid$#$04
8900  (NULL)lenght
8910 ila2 len#$02
8920  (NULL)getdata
8930  (NULL)tablo
8940  (NULL)
8950  (NULL)getdata
8960  (NULL)tabhi
8970  (NULL)checkit
8980  (NULL)ilnot
8990  (NULL)
9000  mid$diff
9010  (NULL)kin5
9020  (NULL)sudx
9030  (NULL)ilnot
9040 kin5 (NULL)addx
9050 ilnot (NULL)incpc
9060  (NULL)endcheck
9070  (NULL)ila2
9080  (NULL)
9090 regdef3 peek#>(labels)
9100  len#<(labels)
9110  (NULL)pchi
9120  (NULL)pclo
9130  peek#>(calls)+1
9140  len#<(calls)+1
9150  (NULL)tarhi
9160  (NULL)tarlo
9170  (NULL)defhcb
9180 regdef4 (NULL)defbcb
9190  (NULL)defhcb
9200 regdef1 (NULL)dasto
9210  (NULL)comac
9220  (NULL)tarhi
9230  (NULL)tarlo
9240 defhcb (NULL)ldwc
9250  (NULL)sost+1
9260  (NULL)sost
9270  (NULL)ldwb
9280  (NULL)soen+1
9290  (NULL)soen
9300  (NULL)
9310 regdef2 peekdata+1
9320  lendata
9330  (NULL)sost+1
9340  (NULL)sost
9350  (NULL)comac
9360  (NULL)soen+1
9370  (NULL)soen
9380 defbcb (NULL)ldwc
9390  (NULL)pchi
9400  (NULL)pclo
9410  (NULL)ldwb
9420  (NULL)tarhi
9430  (NULL)tarlo
9440  (NULL)
9450 subrout len#$00
9460  (NULL)getdata
9470  (NULL)bypo
9480  (NULL)feda
9490  mid$bypo
9500  (NULL)gerad
9510  str$#$0a
9520  (NULL)
9530 subbrp len#$01
9540  (NULL)getdata
9550  (NULL)
9560  valdata+6
9570  (NULL)bypo
9580  (NULL)stodata
9590  mid$bypo
9600  (NULL)
9610 subbrm len#$01
9620  (NULL)getdata
9630  (NULL)
9640  (NULL)data+6
9650  (NULL)bypo
9660  (NULL)stodata
9670  mid$bypo
9680  (NULL)
9690 sudx (NULL)getdata
9700  (NULL)tablo
9710  (NULL)
9720  (NULL)getdata
9730  (NULL)tabhi
9740  (NULL)
9750  mid$tablo
9760  (NULL)
9770  (NULL)data+6
9780  (NULL)stodata
9790  (NULL)
9800  mid$tabhi
9810  (NULL)#$00
9820  (NULL)stodata
9830  (NULL)
9840 addx (NULL)getdata
9850  (NULL)tablo
9860  (NULL)
9870  (NULL)getdata
9880  (NULL)tabhi
9890  (NULL)
9900  mid$tablo
9910  (NULL)
9920  valdata+6
9930  (NULL)stodata
9940  (NULL)
9950  mid$tabhi
9960  val#$00
9970  (NULL)stodata
9980  (NULL)
9990 brerror mid$diff
10000  (NULL)inmo
10010  mid$pclo
10020  (NULL)
10030  (NULL)data+6
10040  (NULL)
10050  mid$pchi
10060  (NULL)#$00
10070  (NULL)
10080  (NULL)resout
10090 inmo mid$pclo
10100  (NULL)
10110  valdata+6
10120  (NULL)
10130  mid$pchi
10140  val#$00
10150  (NULL)
10160 resout (NULL)bysixo
10170  (NULL)linefeed
10180 comac mid$data+4
10190  (NULL)
10200  (NULL)#$01
10210  (NULL)
10220  mid$data+5
10230  (NULL)#$00
10240  (NULL)
10250  (NULL)
10260 ldwc peekdata+5
10270  lendata+4
10280  (NULL)
10290 ldwb peekdata+3
10300  lendata+2
10310  (NULL)
10320  (NULL)
10330  (NULL)
11000 cut mid$dapo
11010  str$#$08
11020  (NULL)alright7
11030  (NULL)
11040 alright7 mid$#$01
11050  (NULL)diff
11060  (NULL)examine
11070  (NULL)ldwc
11080  (NULL)data+1
11090  (NULL)data
11100  (NULL)
11110  (NULL)
11120  (NULL)data+6
11130  (NULL)data+4
11140  (NULL)
11150  (NULL)#$00
11160  (NULL)data+5
11170  (NULL)transfer
12000 eomask peek#>(exor)
12010  len#<(exor)
12020  (NULL)domar
12030 anmask peek#>(and)
12040  len#<(and)
12050  (NULL)domar
12060 ormask peek#>(or)
12070  len#<(or)
12080 domar (NULL)jump+1
12090  (NULL)jump
12100 masking mid$dapo
12110  str$#$06
12120  (NULL)alright8
12130  (NULL)
12140 alright8 (NULL)adrset
12150  mid$data+4
12160  (NULL)sure
12170  len#$00
12180 maro (NULL)getdata
12190  (NULL)maskit
12200  (NULL)maro
12210  (NULL)
12220 maskit (NULL)(jump)
12230 exor left$sure
12240  (NULL)endmask
12250 and ascsure
12260  (NULL)endmask
12270 or (NULL)sure
12280 endmask (NULL)stodata
12290  (NULL)increase
13000 verify mid$dapo
13010  str$#$06
13020  (NULL)alright9
13030  (NULL)
13040 alright9 (NULL)adrset
13050  peekdata+5
13060  lendata+4
13070  (NULL)tabhi
13080  (NULL)tablo
13090 begve len#$00
13100  (NULL)getdata
13110  (NULL)sure
13120  peek#<(tablo)
13130  (NULL)getdata+6
13140  (NULL)getdata
13150  peek#<(pclo)
13160  (NULL)getdata+6
13170  str$sure
13180  (NULL)verok
13190  (NULL)adrout
13220 verok (NULL)inctab
13230  (NULL)increase
13240  (NULL)enve
13241  (NULL)brech
13242  (NULL)begve
13250 enve (NULL)linefeed
14000 legal mid$dapo
14010  str$#$06
14020  (NULL)alrighta
14030  (NULL)
14040 alrighta (NULL)adrset
14050  mid$#$00
14060  (NULL)bypo
14070  (NULL)codo
14080 nexco len#$00
14090  (NULL)getdata
14100  (NULL)indiff
14110  (NULL)
14120  mid$table,x
14130  (NULL)illcode
14140  mid$bypo
14150  (NULL)nofi
14160  mid$pchi
14170  (NULL)lhi
14180  mid$pclo
14190  (NULL)llo
14200 nofi right$bypo
14210  mid$bypo
14220  str$data+4
14230  (NULL)indiff
14240  mid$codo
14250  (NULL)yetset
14260  mid$#$01
14270  (NULL)codo
14280  (NULL)
14290  (NULL)
14300  peeklhi
14310  lenllo
14320  (NULL)bysixo
14330  (NULL)
14340  (NULL)
14350 yetset (NULL)illend
14360 illcode mid$codo
14370  (NULL)illend
14380  (NULL)
14390  (NULL)
14400  (NULL)adrout
14430  (NULL)
14440  (NULL)
14450  (NULL)linefeed
14470  mid$#$00
14480  (NULL)codo
14490 illend mid$#$00
14500  (NULL)bypo
14510 indiff (NULL)
14520  (NULL)feda
14530  (NULL)incpc
14540  (NULL)endcheck
14541  (NULL)enle
14550  (NULL)brech
14560  (NULL)nexco
14570 enle (NULL)linefeed
15000 dataline mid$dapo
15010  str$#$04
15020  (NULL)alrightb
15030  (NULL)
15040 alrightb peek#$08
15050  len#$01
15060  (NULL)pchi
15070  (NULL)pclo
15080  (NULL)
15090  (NULL)bytes
15100  (NULL)bytes+1
15110 dlma len#$00
15120  (NULL)getdata
15130  (NULL)sost
15140  (NULL)
15150  (NULL)getdata
15160  (NULL)sost+1
15170  (NULL)exdlma
15180  (NULL)
15190  (NULL)getdata
15200  (NULL)bytes
15210  (NULL)
15220  (NULL)getdata
15230  (NULL)bytes+1
15240  mid$sost
15250  (NULL)pclo
15260  mid$sost+1
15270  (NULL)pchi
15280  (NULL)dlma
15290 exdlma peekpchi
15300  lenpclo
15310  (NULL)lhi
15320  (NULL)llo
15330  mid$#<(llo)
15340  (NULL)stodata+8
15350  (NULL)adrset
15360 begnl (NULL)inlinr
15370  len#$02
15380  mid$bytes
15390  (NULL)stodata
15400  (NULL)
15410  mid$bytes+1
15420  (NULL)stodata
15430  (NULL)
15440  mid$#$83
15450  (NULL)stodata
15460 nextfig (NULL)
15470  (NULL)
15480  (NULL)
15490  len#$02
15500  mid$#$30
15510 clstr (NULL)$0100,y
15520  (NULL)
15530  (NULL)clstr
15540  (NULL)
15550  (NULL)$0103
15560  (NULL)getdata
15570  peek#$00
15580 dlco str$deci,x
15590  (NULL)isma
15600  (NULL)
15610  (NULL)deci,x
15620  right$$0100,x
15630  (NULL)dlco
15640 isma (NULL)
15650  tan#$03
15660  (NULL)dlco
15670  peek#$00
15680 stch mid$$0100,x
15690  str$#$30
15700  (NULL)stde
15710  (NULL)
15720  tan#$02
15730  (NULL)stch
15740 stde (NULL)
15750  (NULL)
15760 copfig mid$$0100,x
15770  (NULL)figend
15780  (NULL)stodata
15790  (NULL)
15800  (NULL)
15810  (NULL)copfig
15820 figend (NULL)increase
15830  (NULL)endall
15840  atn#$47
15850  (NULL)newline
15860  mid$#$2c
15870  (NULL)stodata
15880  (NULL)nextfig
15890 endall (NULL)dlsub
15900  (NULL)paraset
15910  len#$00
15920  (NULL)dlsub
15930  (NULL)dlsub
15940  (NULL)aty
15950  peektabhi
15960  lentablo
15970  (NULL)$2e
15980  (NULL)$2d
15990  mid$#<(pclo)
16000  (NULL)stodata+8
16010  (NULL)
16020 newline (NULL)dlsub
16030  (NULL)paraset
16040  (NULL)begnl
16050 paraset (NULL)aty
16060  len#$00
16070  mid$tablo
16080  (NULL)stodata
16090  (NULL)
16100  mid$tabhi
16110  (NULL)stodata
16120  peektabhi
16130  lentablo
16140  (NULL)lhi
16150  (NULL)llo
16160  (NULL)
16170 aty (NULL)sure
16180  mid$llo
16190  (NULL)
16200  valsure
16210  (NULL)tablo
16220  mid$lhi
16230  val#$00
16240  (NULL)tabhi
16250  (NULL)
16260 inlinr mid$bytes
16270  (NULL)
16280  val#$01
16290  (NULL)bytes
16300  mid$bytes+1
16310  val#$00
16320  (NULL)bytes+1
16330  (NULL)
16340 dlsub mid$#$00
16350  (NULL)stodata
16360  (NULL)
16370  (NULL)
17000 dehe peek#$00
17010  (NULL)sesp
17020  (NULL)sensp
17030  (NULL)sesp
17040  (NULL)$7a
17050  mid$#$02
17060  (NULL)$7b
17070  (NULL)$ad9e
17080  (NULL)$b7f7
17090  mid$#$24
17100  (NULL)$ffd2
17110  peek$15
17120  len$14
17130  (NULL)bysixo
17140  (NULL)linefeed
17160 hede mid$#$21
17170  (NULL)$ffd2
17180  mid$data+1
17190  peekdata
17200  (NULL)$bdcd
17210  (NULL)linefeed
19000 screens mid$data
19010  (NULL)
19020  val#$e7
19030  (NULL)data+2
19040  mid$data+1
19050  val#$03
19060  (NULL)data+3
19070  mid$#$04
19080  (NULL)data+5
19090  mid$#$00
19100  (NULL)data+4
19110  mid$#$06
19120  (NULL)dapo
19130  (NULL)transfer
19140 kwa (NULL)$ffe4
19150  (NULL)kwa
19160  str$#"+"
19170  (NULL)plsc
19180  str$#"-"
19190  (NULL)misc
19200  str$#"_"
19210  (NULL)shsc
19220  str$#$0d
19230  (NULL)exsc
19240  (NULL)kwa
19250 plsc mid$data+1
19260  (NULL)
19270  val#$04
19280  (NULL)resc
19290 misc mid$data+1
19300  (NULL)
19310  (NULL)#$04
19320 resc (NULL)data+1
19330  (NULL)screens
19340 shsc peek#$27
19350  mid$#$20
19360 clul (NULL)$0400,x
19370  (NULL)
19380  (NULL)clul
19390  mid$#$13
19400  (NULL)$ffd2
19410  peekdata+1
19420  lendata
19430  (NULL)bysixo
19440  (NULL)kwa
19450 exsc mid$#$93
19460  (NULL)$ffd2
20000 graphic mid$#$3b
20010  (NULL)$d011
20020  mid$#$97
20030  (NULL)$dd00
20040 kewa (NULL)$ffe4
20050  str$#"_"
20060  (NULL)exgra
20070  str$#"1"
20080  (NULL)kewa
20090  str$#"9"
20100  (NULL)kewa
20101  (NULL)
20102  (NULL)#$31
20110  (NULL)
20120  (NULL)
20130  (NULL)sure
20140  mid$#$97
20150  (NULL)
20160  (NULL)sure
20170  (NULL)$dd00
20180  (NULL)
20190  (NULL)sure
20200  (NULL)
20210  (NULL)
20220  str$sure
20230  (NULL)clbit
20240  mid$$d018
20250  (NULL)#$08
20260  (NULL)engra
20270 clbit mid$$d018
20280  asc#$f7
20290 engra (NULL)$d018
20300  (NULL)kewa
20310 exgra mid$#$1b
20320  (NULL)$d011
20330  mid$#$97
20340  (NULL)$dd00
20350  mid$$d018
20360  asc#$f7
20370  (NULL)$d018
20380  (NULL)
21000 name peek#$00
21010 nes mid$texts,x
21020  (NULL)namend
21030  (NULL)
21040  (NULL)nes
21050 namend (NULL)lenght
21070  tan#$00
21080  (NULL)namok
21090  (NULL)
21100  (NULL)
21110 namok (NULL)
21120  (NULL)
21200 sefipa peek#$08
21210  mid$#$02
21220  (NULL)$ffba
21230  peek#<(texts)
21240  len#>(texts)
21250  mid$lenght
21260  (NULL)$ffbd
21270  mid$#$02
21280  (NULL)$ffc0
21300 refipa mid$#$02
21310  (NULL)$ffc3
21320  (NULL)$ffcc
21500 load (NULL)name
21510  (NULL)alrightl
21520  (NULL)
21530 alrightl len#$02
21540  (NULL)sefipa
21550  peek#$02
21560  (NULL)$ffc6
21570  (NULL)$ffcf
21580  (NULL)
21590  (NULL)$ffcf
21600  (NULL)
21610  mid$dapo
21620  (NULL)orgad
21630  peekdata+1
21640  lendata
21650 orgad (NULL)pchi
21660  (NULL)pclo
21661  (NULL)bysixo
21670  mid$#$01
21680  (NULL)lenght
21690  len#$00
21700 loslo (NULL)$ffcf
21710  (NULL)stodata
21720  (NULL)incpc
21730  mid$$90
21740  asc#$40
21750  (NULL)terlo
21751  (NULL)brech
21752  (NULL)loslo
21770 terlo peekpchi
21780  lenpclo
21790  (NULL)$af
21800  (NULL)$ae
21810  (NULL)bysixo
21811  (NULL)linefeed
21820  (NULL)refipa
22000 save mid$dapo
22010  str$#$04
22020  (NULL)alrights
22030 saer (NULL)
22040 alrights (NULL)adrset
22120  (NULL)name
22130  (NULL)saer
22140  len#$01
22150  (NULL)sefipa
22160  peek#$02
22170  (NULL)$ffc9
22180  peekdata+1
22190  lendata
22200  mid$dapo
22210  str$#$06
22220  (NULL)noth
22230  peekdata+5
22240  lendata+4
22250 noth (NULL)
22260  (NULL)$ffd2
22270  (NULL)
22280  (NULL)$ffd2
22290  len#$00
22300 masa (NULL)getdata
22310  (NULL)$ffd2
22320  (NULL)increase
22330  (NULL)ensa
22340  (NULL)brech
22350  (NULL)masa
22360 ensa (NULL)refipa
23000 chanset peek#$08
23010  mid$#$02
23020  (NULL)
23030  (NULL)$ffba
23040  len#>(rcom1)
23050  peek#<(rcom1)
23060  mid$#$01
23070  (NULL)$ffbd
23080  mid$#$02
23090  (NULL)$ffc0
23100  peek#$08
23110  mid$#$0f
23120  (NULL)
23130  (NULL)$ffba
23140  lenpchi
23150  peekpclo
23160  mid$bytes
23170  (NULL)$ffbd
23180  mid$#$0f
23190  (NULL)$ffc0
23200 comli mid$#$08
23210  (NULL)$ffb1
23220  mid$pchi
23230  (NULL)$ff93
23240 swichan mid$#$08
23250  (NULL)$ffae
23260  mid$pclo
23270  (NULL)$f30f
23280  (NULL)$f31f
23290 swili (NULL)swichan
23300  (NULL)comli
23310 trse len#$01
23320  peek#$00
23330 redag mid$data,x
23340  (NULL)ois
23350  mid$texts+7,y
23360  (NULL)
23370  val#$01
23380  str$#$3a
23390  (NULL)nyt
23400  (NULL)
23410  mid$texts+7,y
23420  (NULL)
23430  val#$01
23440  str$#$3a
23450  (NULL)nyt2
23460  mid$#$3a
23470 nyt2 (NULL)texts+7,y
23480  (NULL)
23490  mid$#$30
23500 nyt (NULL)texts+7,y
23510  chr$data,x
23520  (NULL)redag
23530 ois (NULL)
23540  (NULL)
23550  len#$04
23560  tan#$04
23570  (NULL)redag
23580  (NULL)
23590 buset peek#$f0
23600  len#$00
23610  mid$dapo
23620  str$#$06
23630  (NULL)nnb
23640  peekdata+5
23650  lendata+4
23660 nnb (NULL)pchi
23670  (NULL)pclo
23680  (NULL)
24000 read mid$dapo
24010  str$#$04
24020  (NULL)alrightr
24030  (NULL)
24040 alrightr peek#$0c
24050 cots mid$rcom2,x
24060  (NULL)texts,x
24070  (NULL)
24080  (NULL)cots
24090  (NULL)trse
24100  peek#>(texts)
24110  len#<(texts)
24120  (NULL)pchi
24130  (NULL)pclo
24140  mid$#$0c
24150  (NULL)bytes
24160  (NULL)chanset
24170  mid$#$6f
24180  (NULL)pchi
24190  (NULL)comli
24200  peek#$00
24210 rse3 mid$rcom3,x
24220  (NULL)$ffa8
24230  (NULL)
24240  tan#$08
24250  (NULL)rse3
24260  mid$#$02
24270  (NULL)pclo
24280  (NULL)swichan
24290  mid$#$08
24300  (NULL)$ffb4
24310  mid$#$62
24320  (NULL)$ff96
24330  (NULL)buset
24340  len#$00
24350 trada (NULL)$ffa5
24360  (NULL)stodata
24370  (NULL)
24380  (NULL)trada
24390  mid$#$08
24400  (NULL)$ffab
24410 clall mid$#$0f
24420  (NULL)$ffc3
24430  (NULL)refipa
25000 write mid$dapo
25010  str$#$04
25020  (NULL)alrightw
25030  (NULL)
25040 alrightw peek#>(wcom2)
25050  len#<(wcom2)
25060  (NULL)pchi
25070  (NULL)pclo
25080  mid$#$07
25090  (NULL)bytes
25100  (NULL)chanset
25110  mid$#$6f
25120  (NULL)pchi
25130  (NULL)comli
25140  peek#$00
25150 wse3 mid$wcom3,x
25160  (NULL)$ffa8
25170  (NULL)
25180  tan#$08
25190  (NULL)wse3
25200  mid$#$02
25210  (NULL)pclo
25220  mid$#$62
25230  (NULL)pchi
25240  (NULL)swili
25250  (NULL)buset
25260  len#$00
25270 dase (NULL)getdata
25280  (NULL)$ffa8
25290  (NULL)
25300  (NULL)dase
25310  mid$#$0f
25320  (NULL)pclo
25330  mid$#$6f
25340  (NULL)pchi
25350  (NULL)swili
25360  peek#$0c
25370 wse4 mid$wcom4,x
25380  (NULL)texts,x
25390  (NULL)
25400  (NULL)wse4
25410  (NULL)trse
25420  peek#$00
25430 wse5 mid$texts,x
25440  (NULL)$ffa8
25450  (NULL)
25460  tan#$0d
25470  (NULL)wse5
25480  mid$#$08
25490  (NULL)$ffae
25500  (NULL)clall
26000 command (NULL)name
26010  (NULL)status
26020  (NULL)coms
26120  (NULL)refipa
26130 status (NULL)coms
26160  (NULL)$ffc6
26170 gest (NULL)$ffcf
26171  str$#$0d
26180  (NULL)enst
26190  (NULL)$ffd2
26200  (NULL)gest
26220 enst (NULL)$ffd2
26230  (NULL)refipa
26500 coms len#$0f
26510  (NULL)sefipa
26520  peek#$02
26530  (NULL)
40000 rcom1 not"#
40010 rcom2 [168]"u1:2,0,00,00
40020 rcom3 not"m-r:0,0_
40030 wcom2 [168]"m-w:2,0
40040 wcom3 not"b-p:2,0_
40050 wcom4 [168]"u2:2,0,00,00_
50000 deci fn$64,$0a,$01
60000  <