64'er 1990 March

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

/ 64'er 1990 March / 64er_Magazin_90-03_1990_Markt__Technik_de_Side_A.d64 / extend (.txt) < prev next >

Wrap

Commodore BASIC | 1990-01-01 | 15.5 KB | 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 <