10  +$8000
20  STEP"PART1,P,W"
30  TAB(NIB=$02C0
40  TAB(BYTES=$41
50  TAB(KOMMAND=$02CE
60  TAB(DATA=$02D0
70  TAB(MASKS=$0130
80  TAB(WORK=$57
90  TAB(DAPO=$B0
100  TAB(SURE=$B4
110  TAB(BYPO=$B5
120  TAB(TEXTS=$0100
130  TAB(PCLO=$50
140  TAB(PCHI=$51
150  TAB(TABLO=$6E
160  TAB(TABHI=$6F
170  TAB(MNENR=$B1
180  TAB(ADRNR=$5E
190  TAB(LENGHT=$5F
200  TAB(OREG=$0100
210  TAB(CODO=$52
220  TAB(AD=$02C8
230  TAB(COLHIDE=$0287
240  TAB(TAB=$D7
250  TAB(INPLI=$0200
260  TAB(LACHA=$CE
270  TAB(TARLO=$5C
280  TAB(TARHI=$5D
290  TAB(LLO=$4E
300  TAB(LHI=$4F
310  TAB(SAVEPOS=$A7
320  TAB(JUMP=$92
330  TAB(LABPO=$A8
340  TAB(CALLPO=$A9
350  TAB(LABELS=$CE00
360  TAB(CALLS=$CF00
370  TAB(LABON=$AA
380  TAB(RECON=$55
390  TAB(WRCON=$56
400  TAB(PRINT=$02
410  TAB(GETDATA=$0230
420  TAB(STODATA=GETDATA+15
430  TAB(REGSTORE=$0128
500  TAB(HEADL1=$9C57
510  TAB(LAB1=$9C7F
520  TAB(LAB2=$9C87
530  TAB(OUTCODES=$9C91
540  TAB(COMMANDOS=$9C96
550  TAB(SCRUCODES=$9CD8
560  TAB(SCRDCODES=$9CE2
570  TAB(INTCODES=$9CEC
580  TAB(LISTCODES=$9CF6
590  TAB(INPCODES=$9D00
600  TAB(MNEMONICS=$9D42
610  TAB(ADDRESSES=$9E20
620  TAB(TABLE=$9E80
630  TAB(ADRTAB=$9F80
640  TAB(HEADL2=$9C2F
900  SPC(STARTMON,$FE5E
910  FN$C3,$C2,$CD,$38,$30
920 MONVEC SPC(IRQ,BREAK
1000 STARTMON (null)
1010  (null)
1020  PEEK#$F6
1030  (null)
1040  MID$$DC01
1050  ASC#$02
1060  (null)NOSAVE
1070  LEN#$00
1080  PEEK#$E0
1090  (null)$FF
1100  (null)$FE
1110  (null)$FC
1120  (null)$FD
1130  PEEK#$08
1140 SATHI MID$($FE),Y
1150  (null)($FC),Y
1160  (null)
1170  (null)SATHI
1180  RIGHT$$FF
1190  RIGHT$$FD
1200  (null)
1210  (null)SATHI
1220  PEEK#$04
1230  MID$$FF
1240  (null)COYECO
1250  MID$#$D8
1260  (null)$FF
1270  (null)SATHI
1280 COYECO PEEK#$2B
1290 COSFD MID$SAFD,X
1300  (null)TEXTS,X
1310  (null)
1320  (null)COSFD
1330  (null)TEXTS
1340 NOSAVE (null)$FDA3
1350  (null)$FD50
1360  (null)$FD15
1370  (null)$FF5B
1380  (null)$E453
1390  (null)$E3BF
1400  MID$#$FF
1410  (null)$028A
1420  PEEK#$00
1430  (null)LABPO
1440  (null)CALLPO
1450 SHHE1 MID$HEADL2,X
1460  (null)$FFD2
1470  (null)
1480  TAN#$28
1490  (null)SHHE1
1500  PEEK#$03
1510 SEVEC MID$MONVEC,X
1520  (null)$0314,X
1530  (null)
1540  (null)SEVEC
1550  (null)
1560  (null)
1570  (null)
1580  VAL#$02
1590  (null)REGSTORE
1600  (null)
1610  VAL#$00
1620  (null)REGSTORE+1
1630  (null)
1640  MID$#$30
1650  (null)REGSTORE+6
1660 REENTER (null)DADEF
1670  MID$#$00
1680  (null)RECON
1690  (null)WRCON
1700  (null)PRINT
1710  (null)
1720  (null)REGSTORE+5
1730  (null)
1740  (null)REGISTER
1750 MAIN (null)
1760  (null)
1770  MID$#$00
1780  (null)DAPO
1790  PEEK#$27
1800 CLDA MID$#$00
1810  (null)DATA,X
1820  (null)TEXTS,X
1830  MID$#$FF
1840  (null)MASKS,X
1850  (null)
1860  (null)CLDA
1870  (null)GETKOM
1880  (null)
1890  (null)
1900 NOINT PEEK#$00
1910  (null)SESP
1920  MID$INPLI,X
1930  (null)KOMMAND
1940  MID$INPLI+1,X
1950  (null)COTE
1960  (null)SILE
1970  STR$#$22
1980  (null)SILE
1990  (null)
2000  (null)
2010  (null)SIME
2020 SILE (null)
2030  MID$#$20
2040 SIME (null)KOMMAND+1
2050 SEDA (null)SESP
2060  (null)INPEND
2070  LEN#$00
2080 CDIW MID$INPLI,X
2090  (null)WORK,Y
2100  (null)
2110  (null)
2120  ATN#$04
2130  (null)CDIW
2140  (null)COMPUTE
2150  (null)ILLEG
2160  (null)SURE
2170  (null)
2180  (null)
2190  VALSURE
2200  VAL#$FC
2210  (null)
2220  LENDAPO
2230  MID$BYTES+1
2240  (null)DATA,Y
2250  MID$BYTES
2260  (null)DATA+1,Y
2270  MID$BYTES+3
2280  (null)MASKS,Y
2290  MID$BYTES+2
2300  (null)MASKS+1,Y
2310  RIGHT$DAPO
2320  RIGHT$DAPO
2330  (null)SEDA
2340 INPEND MID$KOMMAND+1
2350  STR$#$3B
2360  (null)INTCO
2370  (null)KOMCH2
2380  (null)NOTHING
2390  MID$INPCODES,Y
2400  (null)JUMP
2410  MID$INPCODES+1,Y
2420  (null)JUMP+1
2430  (null)COMMEX
2440  (null)MAIN
2450 NOTHING MID$KOMMAND
2460  (null)NOILEN
2470  (null)INPERR
2480 NOILEN (null)MAIN
2490 ILLEG MID$KOMMAND+1
2500  STR$#$3B
2510  (null)INTCO
2520 CONTILL (null)CRSRUP
2530  (null)
2540  (null)
2550  (null)POSGET
2560  (null)
2570  (null)
2580  (null)#$04
2590  (null)NOTOSM
2600  MID$#$00
2610 NOTOSM (null)
2620  PEEK#$04
2630 SHTER MID$($FE),Y
2640  LEFT$#$80
2650  (null)($FE),Y
2660  (null)
2670  (null)
2680  (null)SHTER
2690  (null)MAIN
2700 INTCO MID$DAPO
2710  (null)CONTILL
2720  MID$KOMMAND
2730  STR$#$52
2740  (null)DEFREGS
2750  (null)KOMCHECK
2760  (null)ECHE
2770  MID$INTCODES,Y
2780  (null)JUMP
2790  MID$INTCODES+1,Y
2800  (null)JUMP+1
2810  (null)COMMEX
2820 ECHE (null)MAIN
2830 DEFREGS (null)CONFIGS
2840  (null)MAIN
2850 SESP MID$INPLI,X
2860  (null)ERROR
2870  STR$#$22
2880  (null)NOTXT
2890  (null)TEXT
2900 NOTXT (null)COTE
2910  (null)SENE
2920  (null)
2930  (null)
2940 SENE (null)
2950  TAN#$28
2960  (null)SESP
2970 ERROR (null)
2980  (null)
2990 COMPUTE MID$#$00
3000  (null)BYPO
3010  (null)BYTES
3020  (null)BYTES+1
3030  MID$#$FF
3040  (null)BYTES+2
3050  (null)BYTES+3
3060  LEN#$00
3070 BECO MID$#$FF
3080  (null)LENGHT
3090  MID$WORK,Y
3100  (null)COTE
3110  (null)NF
3120  STR$#$58
3130  (null)NOX1
3140  MID$#$0F
3150  (null)LENGHT
3160  MID$#$30
3170 NOX1 (null)CHECK
3180  (null)ERROR
3190  (null)
3200  (null)
3210  (null)
3220  (null)
3230  (null)SURE
3240  (null)
3250  MID$WORK,Y
3260  (null)COTE
3270  (null)NF
3280  STR$#$58
3290  (null)NOX2
3300  MID$LENGHT
3310  ASC#$F0
3320  (null)LENGHT
3330  MID$#$30
3340 NOX2 (null)CHECK
3350  (null)ERROR
3360  (null)SURE
3370  (null)SURE
3380  (null)
3390  (null)
3400  LENBYPO
3410  MID$SURE
3420  (null)BYTES,Y
3430  MID$LENGHT
3440  (null)BYTES+2,Y
3450  (null)
3460  (null)
3470  RIGHT$BYPO
3480  (null)
3490  ATN#$04
3500  (null)BECO
3510  (null)
3520  (null)
3530 NF MID$BYTES
3540  (null)BYTES+1
3550  MID$BYTES+2
3560  (null)BYTES+3
3570  MID$#$00
3580  (null)BYTES
3590  MID$#$FF
3600  (null)BYTES+2
3610  (null)
3620  (null)
3630 CHECK STR$#$30
3640  (null)INPOK3
3650  (null)ERROR
3660 INPOK3 STR$#$47
3670  (null)INPOK2
3680  (null)ERROR
3690 INPOK2 STR$#$3A
3700  (null)FIG
3710  STR$#$41
3720  (null)INPOK
3730  (null)ERROR
3740 INPOK (null)
3750  (null)#$37
3760  (null)
3770  (null)
3780 FIG (null)
3790  (null)#$30
3800  (null)
3810  (null)
3820 TEXT (null)
3830  LEN#$00
3840 TEGE MID$INPLI,X
3850  (null)TEND
3860  STR$#$22
3870  (null)TEND
3880  (null)TEXTS,Y
3890  (null)
3900  (null)
3910  ATN#$20
3920  (null)TEGE
3930  (null)LTA
3940 TEND MID$#$00
3950  (null)TEXTS,Y
3960 LTA (null)
3970  (null)SESP
3980 COTE (null)IOOT
3990  STR$#$20
4000  (null)IOOT
4010  STR$#$2C
4020  (null)IOOT
4030  STR$#$2D
4040  (null)IOOT
4050  STR$#$2E
4060  (null)IOOT
4070  STR$#$24
4080  (null)IOOT
4090  STR$#$2A
4100  (null)IOOT
4110  (null)
4120  (null)
4130 IOOT (null)
4140  (null)
4150 COMMEX PEEK#$1D
4160 CZERR MID$ZEROUT,X
4170  (null)GETDATA,X
4180  (null)
4190  (null)CZERR
4200 SPECIAL (null)(JUMP)
4210 EXMON (null)
4220  PEEK#$EA
4230  LEN#$31
4240  (null)$0315
4250  (null)$0314
4260  PEEK#$F8
4270  (null)
4280  (null)
4290  (null)
4300  (null)$FF5B
4310  (null)$A474
4320 SAFD MID$#$2F
4330  (null)$00
4340  MID$#$35
4350  (null)$01
4360  PEEK#$3F
4370 SAVALL MID$$FD30,X
4380  (null)$EC00,X
4390  MID$$D000,X
4400  (null)$EC40,X
4410  MID$$DC00,X
4420  (null)$EC80,X
4430  MID$$DD00,X
4440  (null)$ECC0,X
4450  (null)
4460  (null)SAVALL
4470  MID$#$37
4480  (null)$01
4490  (null)
5000 GETKOM (null)CURSET
5010 KEY PEEK#$19
5020 RESLI MID$$D9,X
5030  (null)#$80
5040  (null)$D9,X
5050  (null)
5060  (null)RESLI
5070  (null)$FFE4
5080  (null)KEY
5090  (null)
5100  (null)CURCL
5110  (null)
5120  (null)
5130  STR$#$91
5140  (null)UP
5150  STR$#$11
5160  (null)NECH
5170  (null)DOWN
5180 NECH STR$#$0D
5190  (null)NECH3
5200  (null)ENTER
5210 NECH3 STR$#$93
5220  (null)NECH2
5230  (null)HOME
5240 NECH2 STR$#$94
5250  (null)NECH4
5260  (null)DELETE
5270 NECH4 STR$#$85
5280  (null)GOON
5290  (null)SWITCHSC
5300 GOON (null)
5310  (null)$FFD2
5320  (null)CURSET
5330  MID$#$00
5340  (null)$D4
5350  (null)$D8
5360  (null)KEY
5370 UP MID$$D6
5380  (null)NOUP
5390  (null)SCRUP
5400  (null)NOUP
5410  (null)KOMCHECK
5420  (null)NOUP
5430  MID$SCRUCODES,Y
5440  (null)JUMP
5450  MID$SCRUCODES+1,Y
5460  (null)JUMP+1
5470  (null)COMMEX
5480 NOUP (null)GOON
5490 SCRUP PEEK#$F0
5500 ST1 MID$$06CF,X
5510  (null)$06F7,X
5520  MID$$DACF,X
5530  (null)$DAF7,X
5540  (null)
5550  (null)ST1
5560  PEEK#$F0
5570 ST2 MID$$05DF,X
5580  (null)$0607,X
5590  MID$$D9DF,X
5600  (null)$DA07,X
5610  (null)
5620  (null)ST2
5630  PEEK#$F0
5640 ST3 MID$$04EF,X
5650  (null)$0517,X
5660  MID$$D8EF,X
5670  (null)$D917,X
5680  (null)
5690  (null)ST3
5700  PEEK#$F0
5710 ST4 MID$$03FF,X
5720  (null)$0427,X
5730  MID$$D7FF,X
5740  (null)$D827,X
5750  (null)
5760  (null)ST4
5770  PEEK#$27
5780  MID$#$20
5790 CLLI (null)$0400,X
5800  (null)
5810  (null)CLLI
5820  MID$$D3
5830  (null)SAVEPOS
5840  (null)LINEFEED
5850  (null)LANALYSE
5860  (null)
5870 SCRUASS MID$BYTES+1
5880  (null)
5890  (null)#$20
5900  (null)PCLO
5910  MID$BYTES
5920  (null)#$00
5930  (null)PCHI
5940 ASSYM (null)FEDA
5950  MID$PCLO
5960  (null)LLO
5970  MID$PCHI
5980  (null)LHI
5990  (null)INCPC
6000  STR$BYTES
6010  (null)CHEKLO
6020  (null)ERROU
6030  (null)ASSYM
6040 CHEKLO MID$PCLO
6050  STR$BYTES+1
6060  (null)ASSYM
6070 ERROU MID$LLO
6080  (null)PCLO
6090  MID$LHI
6100  (null)PCHI
6110  (null)CRSRUP
6120  MID$KOMMAND
6130  STR$#$44
6140  (null)UDIS
6150  (null)ASSO
6160  (null)UEND
6170 UDIS (null)DISO
6180 UEND (null)LINEFEED
6190 NIC2 MID$SAVEPOS
6200  (null)$D3
6210  (null)
6220 SCRUMEM MID$#$08
6230  (null)SCRUEV
6240  (null)MEMORY
6250  (null)UEND
6260 SCRUCHAR MID$#$01
6270  (null)SCRUEV
6280  (null)CHARACTER
6290  (null)UEND
6300 SCRUSPR MID$#$03
6310  (null)SCRUEV
6320  (null)SPRITES
6330  (null)UEND
6340 FEDA LEN#$00
6350  (null)GETDATA
6360 SPGEL (null)GERAD
6370 CONI1 (null)
6380  (null)
6390  (null)
6400  (null)
6410  MID$ADDRESSES,Y
6420  (null)LENGHT
6430  (null)
6440 ENTER (null)POSGET
6450  LEN#$27
6460 DOC MID$($FE),Y
6470  ASC#$7F
6480  STR$#$20
6490  (null)CHAR
6500  MID$#$00
6510  (null)INPLI,Y
6520  (null)
6530  (null)LACHA
6540  (null)DOC
6550  (null)ENDENT
6560 CHAR MID$($FE),Y
6570  ASC#$7F
6580  (null)ASCII
6590  (null)INPLI,Y
6600  (null)
6610  (null)CHAR
6620 ENDENT MID$$D6
6630  STR$#$18
6640  (null)NODO2
6650  (null)SCRDO
6660 NODO2 (null)
6670  (null)$FFD2
6680 DOWN MID$$D6
6690  STR$#$18
6700  (null)NODO
6710  (null)SCRDO
6720  (null)NODO
6730  (null)KOMCHECK
6740  (null)NODO
6750  MID$SCRDCODES,Y
6760  (null)JUMP
6770  MID$SCRDCODES+1,Y
6780  (null)JUMP+1
6790  (null)COMMEX
6800 NODO (null)GOON
6810 SCRDO (null)$E8EA
6820  MID$$D3
6830  (null)SAVEPOS
6840  (null)CRSRUP
6850  (null)LANALYSE
6860  (null)
6870 SCRDASS PEEKBYTES
6880  LENBYTES+1
6890  (null)PCHI
6900  (null)PCLO
6910  (null)FEDA
6920  (null)SCRDEV
6930  MID$KOMMAND
6940  STR$#$44
6950  (null)DDIS
6960  (null)ASSO
6970  (null)DEND
6980 DDIS (null)DISO
6990 DEND (null)CRSRUP
7000 NIC1 MID$SAVEPOS
7010  (null)$D3
7020  (null)
7030 SCRDMEM MID$#$08
7040  (null)SCRDEV
7050  (null)MEMORY
7060  (null)DEND
7070 SCRDCHAR MID$#$01
7080  (null)SCRDEV
7090  (null)CHARACTER
7100  (null)DEND
7110 SCRDSPR MID$#$03
7120  (null)SCRDEV
7130  (null)SPRITES
7140  (null)DEND
7150 HOME MID$$028D
7160  ASC#$02
7170  (null)NOCOM
7180  (null)
7190  MID$#$00
7200  (null)
7210  (null)$D3
7220  MID$#$18
7230  (null)$D6
7240  MID$#$C0
7250  (null)$D1
7260  MID$#$07
7270  (null)$D2
7280 NOCOM (null)GOON
7290 DELETE MID$$028D
7300  ASC#$02
7310  (null)NOCOM2
7320  (null)
7330  MID$#$00
7340  (null)
7350  (null)POSGET
7360  LENTAB
7370  MID$#$20
7380 CLLI3 (null)($FE),Y
7390  (null)
7400  ATN#$28
7410  (null)CLLI3
7420 NOCOM2 (null)GOON
7430 CURSET (null)POSGET
7440  LENTAB
7450  MID$($FE),Y
7460  LEFT$#$80
7470  (null)($FE),Y
7480  MID$$FF
7490  (null)
7500  VAL#$D4
7510  (null)$FF
7520  MID$($FE),Y
7530  (null)COLHIDE
7540  MID$$0286
7550  (null)($FE),Y
7560  (null)
7570 POSGET PEEK$D2
7580  LEN$D1
7590  (null)$FF
7600  (null)$FE
7610  MID$$D3
7620  STR$#$28
7630  (null)NORM
7640  (null)
7650  (null)#$28
7660  (null)
7670  MID$$FE
7680  (null)
7690  VAL#$28
7700  (null)$FE
7710  MID$$FF
7720  VAL#$00
7730  (null)$FF
7740  (null)
7750 NORM (null)TAB
7760  (null)
7770 CURCL (null)POSGET
7780  LENTAB
7790  MID$($FE),Y
7800  LEFT$#$80
7810  (null)($FE),Y
7820  MID$$FF
7830  (null)
7840  VAL#$D4
7850  (null)$FF
7860  MID$COLHIDE
7870  (null)($FE),Y
7880  (null)
7890 ASCII STR$#$20
7900  (null)FI
7910  STR$#$40
7920  (null)SE
7930  STR$#$60
7940  (null)TH
7950 FI (null)
7960  VAL#$40
7970 SE (null)CIO
7980 TH (null)
7990  VAL#$20
8000 CIO (null)
8010 LANALYSE (null)POSGET
8020  LEN#$00
8030 GOCH MID$($FE),Y
8040  (null)COTE
8050  (null)BEGGO
8060  (null)
8070  ATN#$28
8080  (null)GOCH
8090  (null)NINCO
8100 BEGGO (null)ASCII
8110  (null)KOMMAND
8120  (null)
8130  MID$($FE),Y
8140  STR$#$3B
8150  (null)INTERN
8160 NINCO (null)
8170  (null)
8180 INTERN PEEK#$00
8190  (null)
8200 CLIW MID$($FE),Y
8210  (null)ASCII
8220  (null)WORK,X
8230  (null)
8240  (null)
8250  TAN#$04
8260  (null)CLIW
8270  (null)COMPUTE
8280 GERAD (null)SURE
8290  (null)
8300  (null)
8310  MID$ADRTAB,Y
8320  (null)
8330  (null)
8340  (null)
8350  STR$SURE
8360  (null)TTH
8370  (null)
8380  ASC#$0F
8390  (null)CONI
8400 TTH (null)
8410  (null)
8420  (null)
8430  (null)
8440  (null)
8450 CONI (null)
8460 SCRUEV (null)LENGHT
8470  MID$BYTES+1
8480  (null)
8490  (null)LENGHT
8500  (null)PCLO
8510  MID$BYTES
8520  (null)#$00
8530  (null)PCHI
8540  (null)CRSRUP
8550 SCRDEV (null)LENGHT
8560  (null)LINEFEED
8570  MID$BYTES+1
8580  (null)PCLO
8590  MID$BYTES
8600  (null)PCHI
8610  (null)INCPC
8620 SWITCHSC PEEK#$27
8630 CSS MID$SWISO,X
8640  (null)TEXTS,X
8650  (null)
8660  (null)CSS
8670  PEEK#$04
8680  LEN#$00
8690  MID$#$F4
8700  (null)$FF
8710  (null)$FE
8720  (null)PCHI
8730  (null)PCLO
8740  PEEK#$04
8750  (null)TEXTS
8760 SWISO (null)
8770  MID$#$00
8780  (null)$01
8790 DOTSW MID$($FE),Y
8800  (null)
8810  MID$(PCLO),Y
8820  (null)($FE),Y
8830  (null)
8840  (null)(PCLO),Y
8850  (null)
8860  (null)DOTSW
8870  RIGHT$PCHI
8880  RIGHT$$FF
8890  (null)
8900  (null)DOTSW
8910  MID$#$37
8920  (null)$01
8930  (null)
8940  (null)GOON
8950 LINEFEED MID$#$0D
8960  (null)$FFD2
8970 CRSRUP MID$#$91
8980  (null)$FFD2
10000 OUTPUT (null)DASTO2
10010  (null)CHANNEL
10020  (null)CRSRUP
10040 REDO (null)LINEFEED
10060  MID$KOMMAND
10070  STR$#$4D
10080  (null)PRON
10090  MID$PRINT
10100  (null)PRON
10110  (null)PREMORY
10120  (null)DONEST
10130 PRON (null)KOMCHECK
10140  MID$LISTCODES,Y
10150  (null)JUMP
10160  MID$LISTCODES+1,Y
10170  (null)JUMP+1
10180  (null)COMMEX
10190 DONEST (null)INCPC
10200  (null)EDA
10210  (null)BRECH
10220  (null)EDA
10230  (null)ENDCHECK
10240  (null)REDO
10250 EDA (null)CRSRUP
10270  (null)LINEFEED
10290  (null)CLALL
10300 DISASS (null)LINEOUT
10310  LEN#$00
10320  (null)GETDATA
10330  (null)TABLO
10340  (null)COLE
10350  MID$NIB
10360  (null)OREG+9
10370  MID$NIB+1
10380  (null)OREG+10
10390  LENTABLO
10400  MID$TABLE,Y
10410  (null)MNENR
10420  MID$TABLO
10430  (null)GERAD
10440  (null)ADRNR
10450  MID$MNENR
10460  (null)ILL
10470  MID$#$20
10480  (null)WWW1
10490 ILL MID$#$2A
10500 WWW1 (null)OREG+19
10510  MID$MNENR
10520  ASC#$7F
10530  (null)MNENR
10540  (null)
10550  (null)
10560  VALMNENR
10570  (null)
10580  PEEK#$00
10590 MNOUT MID$MNEMONICS,Y
10600  (null)OREG+20,X
10610  (null)
10620  (null)
10630  TAN#$03
10640  (null)MNOUT
10650  MID$ADRNR
10660  (null)
10670  (null)
10680  (null)
10690  (null)
10700  (null)
10710  MID$ADDRESSES,Y
10720  (null)LENGHT
10730  STR$#$01
10740  (null)CHENE
10750  (null)CONTINUE
10760 CHENE STR$#$03
10770  (null)LONG
10780  MID$ADRNR
10790  STR$#$0A
10800  (null)BRANCH
10810  LEN#$01
10820  (null)GETDATA
10830  (null)COLE
10840  MID$NIB
10850  (null)AD
10860  (null)OREG+12
10870  MID$NIB+1
10880  (null)AD+1
10890  (null)OREG+13
10900  (null)CONTINUE
10910 LONG LEN#$02
10920  (null)GETDATA
10930  (null)TABHI
10940  (null)
10950  (null)GETDATA
10960  (null)TABLO
10970  (null)COMPSIX
10980  MID$AD
10990  (null)OREG+15
11000  MID$AD+1
11010  (null)OREG+16
11020  MID$AD+2
11030  (null)OREG+12
11040  MID$AD+3
11050  (null)OREG+13
11060  (null)CONTINUE
11070 BRANCH LEN#$01
11080  (null)GETDATA
11090  (null)COLE
11100  MID$NIB
11110  (null)OREG+12
11120  MID$NIB+1
11130  (null)OREG+13
11140  (null)BRASUB
11150  (null)COMPSIX
11160 CONTINUE (null)
11170  (null)
11180  PEEK#$00
11190  (null)MNENR
11200  (null)ADRNR
11210  MID$#$07
11220  (null)CODO
11230 ADROUT MID$ADDRESSES+1,Y
11240  (null)WWW2
11250  PEEKMNENR
11260  MID$AD,X
11270  RIGHT$MNENR
11280 WWW2 PEEKADRNR
11290  (null)OREG+24,X
11300  (null)
11310  RIGHT$ADRNR
11320  CHR$CODO
11330  (null)ADROUT
11340  (null)
11350 DISO (null)DISASS
11360  (null)LISHOW
11370 LINEOUT MID$#$2E
11380  (null)OREG
11390  MID$KOMMAND
11400  (null)OREG+1
11410  MID$#$3B
11420  (null)OREG+2
11430  MID$PCHI
11440  (null)COLE
11450  MID$NIB
11460  (null)OREG+3
11470  MID$NIB+1
11480  (null)OREG+4
11490  MID$PCLO
11500  (null)COLE
11510  MID$NIB
11520  (null)OREG+5
11530  MID$NIB+1
11540  (null)OREG+6
11550  PEEK#$20
11560  MID$#$20
11570 CLOUT (null)OREG+7,X
11580  (null)
11590  (null)CLOUT
11600  (null)
11610 COLE (null)
11620  (null)
11630  (null)
11640  (null)
11650  (null)
11660  (null)CHANGE
11670  (null)NIB
11680  (null)
11690  ASC#$0F
11700  (null)CHANGE
11710  (null)NIB+1
11720  (null)
11730 CHANGE STR$#$0A
11740  (null)LETTER
11750  (null)
11760  VAL#$30
11770  (null)
11780 LETTER (null)
11790  VAL#$37
11800  (null)
11810 COMPSIX MID$TABHI
11820  (null)COLE
11830  MID$NIB
11840  (null)AD
11850  MID$NIB+1
11860  (null)AD+1
11870  MID$TABLO
11880  (null)COLE
11890  MID$NIB
11900  (null)AD+2
11910  MID$NIB+1
11920  (null)AD+3
11930  (null)
11940 INCPC MID$PCLO
11950  (null)
11960  VALLENGHT
11970  (null)PCLO
11980  MID$PCHI
11990  VAL#$00
12000  (null)PCHI
12010  (null)
12020 DASTO2 (null)DASTO
12030  MID$DATA+2
12040  (null)
12050  VAL#$01
12060  (null)TARLO
12070  MID$DATA+3
12080  VAL#$00
12090  (null)TARHI
12100  (null)
12110 BRECH MID$$CB
12120  STR$#$3F
12130  (null)BKNP
12140  (null)
12150  (null)
12160 BKNP (null)
12170  (null)
12180 ENDCHECK MID$PCHI
12190  STR$TARHI
12200  (null)CHELO
12210  (null)ENOA
12220 TANOR (null)
12230  (null)
12240 CHELO MID$PCLO
12250  STR$TARLO
12260  (null)TANOR
12270 ENOA (null)
12280  (null)
12290 BRASUB MID$PCLO
12300  (null)
12310  VAL#$02
12320  (null)LLO
12330  MID$PCHI
12340  VAL#$00
12350  (null)LHI
12360  LEN#$01
12370  (null)GETDATA
12380  (null)SUB
12390  (null)TABLO
12400  MID$LLO
12410  (null)
12420  VALTABLO
12430  (null)TABLO
12440  MID$LHI
12450  VAL#$00
12460  (null)TABHI
12470  (null)
12480 SUB LEFT$#$FF
12490  (null)TABLO
12500  MID$LLO
12510  (null)
12520  (null)#$01
12530  (null)TABLO
12540  (null)TABLO
12550  MID$LHI
12560  (null)#$00
12570  (null)TABHI
12580 WWW3 (null)
15000 LLOUT MID$DAPO
15010  (null)ELOUT
15020  (null)DASTO
15030  (null)LINEOUT
15040  PEEK#$00
15050 LLLL MID$OREG+1,X
15060  (null)$FFD2
15070  (null)
15080  TAN#$0A
15090  (null)LLLL
15140  MID$#$0A
15150  (null)$D3
15160 ELOUT (null)
15170 LASS1 PEEK#$00
15180  (null)SESP
15190  (null)
15200  (null)
15210  VAL#$06
15220  (null)
15230  MID$INPLI,X
15240  STR$#$5A
15250  (null)LABEL
15260  (null)LASS2
15270 LABEL (null)DASTO
15280  MID$INPLI+1,X
15290  (null)TABLO
15300  MID$INPLI+2,X
15310  (null)TABHI
15320  (null)
15330  (null)
15340  PEEKLABPO
15350  (null)EXPAND
15360  PEEK#$00
15370 DOIEY MID$LABELS,X
15380  STR$TABLO
15390  (null)DONOP
15400  MID$LABELS+1,X
15410  STR$TABHI
15420  (null)DONOP
15430  (null)INSTALL
15440 DONOP (null)
15450  (null)
15460  (null)
15470  (null)
15480  TANLABPO
15490  (null)DOIEY
15500 EXPAND MID$LABPO
15510  (null)
15520  VAL#$04
15530  (null)LABPO
15540 INSTALL MID$TABLO
15550  (null)LABELS,X
15560  MID$TABHI
15570  (null)LABELS+1,X
15580  MID$PCLO
15590  (null)LABELS+2,X
15600  (null)LLO
15610  MID$PCHI
15620  (null)LABELS+3,X
15630  (null)LHI
15640  MID$CALLPO
15650  (null)RRRREEEE
15660  PEEK#$00
15670 CHECA MID$CALLS,X
15680  STR$TABLO
15690  (null)DONOFI
15700  MID$CALLS+1,X
15710  STR$TABHI
15720  (null)DONOFI
15730  (null)
15740  (null)
15750  MID$CALLS+2,X
15760  (null)PCLO
15770  MID$CALLS+3,X
15780  (null)PCHI
15790  LEN#$00
15800  (null)GETDATA
15810  (null)
15820  (null)GERAD
15830  (null)ADRNR
15840  MID$LLO
15850  (null)BYTES+1
15860  MID$LHI
15870  (null)BYTES
15880  (null)THACO
15890  (null)
15900  (null)TWAI
15910  (null)
15920  (null)
15930  (null)
15940 RUECK MID$CALLS+4,X
15950  (null)CALLS,X
15960  (null)
15970  TANCALLPO
15980  (null)RUECK
15990  MID$CALLPO
16000  (null)
16010  (null)#$04
16020  (null)CALLPO
16030  (null)
16040  (null)
16050  (null)ROUTEND
16060 DONOFI (null)
16070  (null)
16080  (null)
16090  (null)
16100 ROUTEND TANCALLPO
16110  (null)CHECA
16120 RRRREEEE (null)
16130  (null)
16140  (null)
16150  (null)
16160  (null)
16170  MID$LLO
16180  (null)DATA
16190  MID$LHI
16200  (null)DATA+1
16210 LASS2 MID$#$00
16220  (null)LABON
16230  (null)DASTO
16240  (null)SESP
16250  (null)SHACCO
16260  (null)CODO
16270  LEN#$00
16280  (null)MNENR
16290 NENE MID$#$03
16300  (null)TABLO
16310 MNCH MID$INPLI,X
16320  STR$MNEMONICS,Y
16330  (null)OCO
16340  (null)
16350  (null)
16360  CHR$TABLO
16370  (null)MNCH
16380  (null)MNFO
16390 OCO MID$MNENR
16400  STR$#$4A
16410  (null)EOCH1
16420  RIGHT$MNENR
16430  MID$MNENR
16440  (null)
16450  (null)
16460  VALMNENR
16470  (null)
16480  PEEKCODO
16490  (null)NENE
16500 EOCH1 (null)INPERR
16510 SHACCO (null)CRSRUP
16530  (null)ASSO
16540  MID$#$0A
16550  (null)$D3
16560  (null)
16570  (null)
16580 MNFO (null)SESP
16590  (null)NOEO
16600  (null)EOCH4
16610 NOEO (null)CODO
16620  MID$CALLPO
16630  (null)TABHI
16640  LEN#$00
16650  (null)ADRNR
16660 NNNEEE1 MID$#$07
16670  (null)TABLO
16680  MID$#$20
16690  (null)WORK
16700  (null)WORK+1
16710  (null)WORK+2
16720  (null)WORK+3
16730  MID$#$00
16740  (null)BYPO
16750 NNNEEE2 MID$INPLI,X
16760  (null)INZ
16770  MID$#$20
16780  (null)INZ2
16790 INZ STR$#$5A
16800  (null)INZ2
16810  MID$ADDRESSES+1,Y
16820  STR$#$24
16830  (null)NEAD
16840  MID$INPLI+1,X
16850  (null)LLO
16860  MID$INPLI+2,X
16870  (null)LHI
16880  MID$#$FF
16890  (null)LABON
16900  (null)CHECKEX
16910  (null)
16920  (null)
16930  (null)
16940  (null)
16950  (null)
16960  (null)
16970  (null)
16980  (null)
16990  MID$ADDRESSES-1,Y
17000  (null)NEAD
17010  MID$TABLO
17020  (null)
17030  (null)#$05
17040  (null)TABLO
17050  (null)NNNEEE2
17060 INZ2 (null)SURE
17070  (null)CHECK
17080  (null)TET
17090  (null)LENGHT
17100  LENBYPO
17110  MID$SURE
17120  (null)WORK,Y
17130  RIGHT$BYPO
17140  LENLENGHT
17150  MID$#$00
17160 TET STR$ADDRESSES+1,Y
17170  (null)IGNORE
17180  MID$ADDRESSES+1,Y
17190  STR$#$24
17200  (null)NEAD
17210  CHR$BYPO
17220  (null)IGNORE2
17230 IGNORE (null)
17240 IGNORE2 (null)
17250  CHR$TABLO
17260  (null)NNNEEE2
17270  (null)ADRFO
17280 NEAD RIGHT$ADRNR
17290  MID$ADRNR
17300  STR$#$0C
17310  (null)EOCH2
17320  (null)
17330  (null)
17340  (null)
17350  (null)
17360  PEEKCODO
17370  (null)NNNEEE1
17380 EOCH2 (null)INPERR
17390 EOCH4 MID$#$00
17400  (null)ADRNR
17410  (null)DOIA
17420 ADRFO MID$TABHI
17430  (null)CALLPO
17440  MID$LABON
17450  (null)DOIA
17460  (null)COMPUTE
17470  (null)EOCH2
17480 DOIA LEN#$00
17490 CORRAD MID$TABLE,Y
17500  ASC#$7F
17510  STR$MNENR
17520  (null)TINC
17530  (null)TABLO
17540  (null)
17550  (null)GERAD
17560 EECC LENTABLO
17570  STR$ADRNR
17580  (null)THACO
17590 TINC (null)
17600  (null)CORRAD
17610  MID$ADRNR
17620  STR$#$06
17630  (null)NDC
17640  MID$#$0A
17650  (null)ADRNR
17660  (null)DOIA
17670 NDC (null)INPERR
17680 THACO MID$ADRNR
17690  STR$#$0A
17700  (null)NOBRA
17710  MID$PCLO
17720  (null)
17730  VAL#$02
17740  (null)TARLO
17750  MID$PCHI
17760  VAL#$00
17770  (null)TARHI
17780 BACK MID$TARLO
17790  (null)
17800  (null)#$01
17810  (null)BYTES+1
17820  (null)SURE
17830  (null)AHEAD
17840  MID$TARHI
17850  (null)BYTES
17860  (null)AHEAD
17870  MID$SURE
17880  LEFT$#$FF
17890  (null)BYTES+1
17900  (null)NOBRA
17910 AHEAD MID$BYTES+1
17920  (null)
17930  (null)TARLO
17940  (null)SURE
17950  (null)BRERR
17960  MID$BYTES
17970  (null)TARHI
17980  (null)BRERR
17990  MID$SURE
18000  (null)BYTES+1
18010  (null)NOBRA
18020 BRERR (null)INPERR
18030 NOBRA (null)
18040  (null)
18050  (null)
18060 ASS (null)LASS1
18070  (null)TWAR
18080  (null)TWAI
18090  (null)INCPC
18100  MID$PCLO
18110  (null)DATA
18120  MID$PCHI
18130  (null)DATA+1
18140  MID$#$01
18150  (null)DAPO
18160  (null)LLOUT
18170 TWAR (null)
18180 TWAI LEN#$00
18190  (null)STODATA
18200  MID$ADRNR
18210  (null)
18220  (null)
18230  (null)
18240  (null)
18250  MID$ADDRESSES,Y
18260  (null)LENGHT
18270  MID$LENGHT
18280  STR$#$01
18290  (null)SINGLE
18300  LEN#$01
18310  MID$BYTES+1
18320  (null)STODATA
18330  MID$LENGHT
18340  STR$#$02
18350  (null)SINGLE
18360  (null)
18370  MID$BYTES
18380  (null)STODATA
18390 SINGLE (null)
18400 ASSO (null)DISASS
18410  PEEK#$00
18420 REBY MID$OREG+19,X
18430  (null)OREG+10,X
18440  (null)
18450  TAN#$0D
18460  (null)REBY
18470  MID$#$20
18480 GIO (null)OREG+10,X
18490  (null)
18500  TAN#$1D
18510  (null)GIO
18520  MID$#$20
18530  (null)OREG+9
18540  (null)LISHOW
18550 INPERR (null)CRSRUP
18570  (null)POSGET
18580  LEN#$27
18590 INVLI MID$($FE),Y
18600  LEFT$#$80
18610  (null)($FE),Y
18620  (null)
18630  (null)INVLI
18640  (null)
18650  (null)
18660 SENSP MID$INPLI,X
18670  (null)COTE
18680  (null)FOO
18690  (null)
18700  TAN#$28
18710  (null)SENSP
18720  (null)
18730  (null)
18740 FOO (null)
18750  (null)
18760 INDIS PEEK#$00
18770  LEN#$00
18780 RREE1 (null)SESP
18790  (null)ALAL
18800  (null)SENSP
18810  (null)ALAL
18820  TAN#$12
18830  (null)FFFOOO
18840  (null)
18850  (null)SURE
18860  (null)RREE1
18870 FFFOOO ATN#$02
18880  (null)AALL
18890 ALAL (null)CRSRUP
18910 ALAL3 (null)DASTO
18920 ALAL2 (null)SHCON
18930 AALL (null)
18940  (null)
18950  (null)DAPO
18960  PEEKSURE
18970  (null)LASS2
18980  (null)ALAL3
18990  (null)WORK
19000  MID$BYTES+1
19010  (null)WORK+1
19020  MID$BYTES
19030  (null)WORK+2
19040  (null)CRSRUP
19060  MID$DATA+2
19070  (null)SPGEL
19080  (null)
19090  (null)#$01
19100  STR$DAPO
19110  (null)NOBI
19120  (null)DAPO
19130 NOBI MID$DAPO
19140  (null)
19150  (null)
19160  (null)
19170 TTTEEE1 (null)GETDATA
19180  STR$DATA+2,X
19190  (null)CHAN1
19200  (null)
19210  (null)
19220  (null)
19230  (null)TTTEEE1
19240  MID$WORK
19250  (null)SPGEL
19260  LENLENGHT
19270  (null)
19280 TTTEEE2 (null)GETDATA
19290  STR$WORK,Y
19300  (null)CHAN2
19310  (null)
19320  (null)TTTEEE2
19330  (null)SHCON2
19340 CHAN1 MID$DATA+2,X
19350  (null)STODATA
19360  (null)
19370  (null)
19380  (null)
19390  (null)CHAN1
19400  (null)SHCON2
19410 CHAN2 ATN#$00
19420  (null)INTC
19430  (null)GETDATA
19440  (null)BYPO
19450  (null)
19460  MID$TABLE,Y
19470  ASC#$7F
19480  STR$MNENR
19490  (null)INTC2
19500  MID$BYPO
19510  (null)GERAD
19520  STR$ADRNR
19530  (null)INTC2
19540  (null)SHCON2
19550 INTC2 LEN#$00
19560 INTC MID$WORK,Y
19570  (null)STODATA
19580  (null)
19590  (null)CHAN2
19600  (null)SHCON2
19610 SHCON MID$#$00
19620  (null)SAVEPOS
19630  (null)GSHC
19640 SHCON2 MID$#$FF
19650  (null)SAVEPOS
19660 GSHC (null)DISO
19670  MID$SAVEPOS
19680  (null)JUOL
19690  (null)LINEFEED
19710  (null)INCPC
19720  (null)DISO
19730  (null)CRSRUP
19750  (null)LINEFEED
19770 JUOL MID$#$08
19780  (null)$D3
19790 EODI (null)
19800 CHECKEX (null)
19810  (null)
19820  MID$LABPO
19830  (null)NOLEX3
19840  PEEK#$00
19850 BEWCH MID$LABELS,X
19860  STR$LLO
19870  (null)DONOFI2
19880  MID$LABELS+1,X
19890  STR$LHI
19900  (null)DONOFI2
19910  MID$LABELS+2,X
19920  (null)BYTES+1
19930  MID$LABELS+3,X
19940  (null)BYTES
19950  (null)EALL
19960 DONOFI2 (null)
19970  (null)
19980  (null)
19990  (null)
20000  TANLABPO
20010  (null)BEWCH
20020 NOLEX3 PEEKCALLPO
20030  (null)BENOLEX
20040  PEEK#$00
20050 ALCALL MID$CALLS+2,X
20060  STR$PCLO
20070  (null)NALCALL
20080  MID$CALLS+3,X
20090  STR$PCHI
20100  (null)NALCALL
20110  (null)NOLEX2
20120 NALCALL (null)
20130  (null)
20140  (null)
20150  (null)
20160  TANCALLPO
20170  (null)ALCALL
20180 BENOLEX MID$CALLPO
20190  (null)
20200  VAL#$04
20210  (null)TABHI
20220 NOLEX2 MID$LLO
20230  (null)CALLS,X
20240  MID$LHI
20250  (null)CALLS+1,X
20260  MID$PCLO
20270  (null)CALLS+2,X
20280  (null)BYTES+1
20290  MID$PCHI
20300  (null)CALLS+3,X
20310  (null)BYTES
20320 EALL (null)
20330  (null)
20340  (null)
21000 MEMORY (null)LINEOUT
21010  PEEK#$00
21020  LEN#$00
21030 NECO (null)GETDATA
21040  (null)SURE
21050  ASC#$7F
21060  STR$#$0D
21070  (null)CONOK
21080  STR$#$14
21090  (null)CONOK
21100  MID$SURE
21110  (null)STCO
21120 CONOK MID$#$2E
21130 STCO (null)OREG+32,Y
21140  MID$SURE
21150  (null)COLE
21160  MID$NIB
21170  (null)OREG+8,X
21180  MID$NIB+1
21190  (null)OREG+9,X
21200  (null)
21210  (null)
21220  (null)
21230  (null)
21240  ATN#$08
21250  (null)NECO
21260  MID$#$08
21270  (null)LENGHT
21280  PEEK#$00
21290 GITLIO MID$OREG+1,X
21300  (null)$FFD2
21310  MID$#$01
21320  (null)$D4
21330  (null)
21340  TAN#$27
21350  (null)GITLIO
21360  MID$#$00
21370  (null)$D4
21380  (null)
21390 INMEM MID$DAPO
21400  STR$#$12
21410  (null)IMER
21420  PEEK#$0E
21430  LEN#$07
21440  (null)DASTO
21450 STLIM MID$DATA+2,X
21460  (null)STODATA
21470  (null)
21480  (null)
21490  (null)
21500  (null)STLIM
21510  (null)CRSRUP
21530  (null)MEMORY
21540  (null)LINEFEED
21560  MID$#$08
21570  (null)LENGHT
21580  (null)INCPC
21590  (null)BINEND
21600  MID$#$07
21610  (null)$D3
21620  (null)
21630 IMER (null)CRSRUP
21650  (null)MEMORY
21660  MID$#$07
21670  (null)$D3
21680  (null)
21690 DASTO MID$DATA
21700  (null)PCLO
21710  MID$DATA+1
21720  (null)PCHI
21730  (null)
25000 KOMCHECK LEN#$04
25010  MID$KOMMAND
25020 DOIF STR$OUTCODES,Y
25030  (null)HITIT
25040  (null)
25050  (null)DOIF
25060  (null)
25070  (null)
25080 HITIT (null)
25090  (null)
25100  (null)
25110  (null)
25120  (null)
25130 KOMCH2 LEN#$40
25140 SETRC MID$KOMMAND
25150  STR$COMMANDOS,Y
25160  (null)NOTRC
25170  MID$KOMMAND+1
25180  STR$COMMANDOS+1,Y
25190  (null)NOTRC
25200  (null)
25210  (null)
25220 NOTRC (null)
25230  (null)
25240  (null)SETRC
25250  (null)
25260  (null)
26000 CHARACTER (null)LINEOUT
26010  LEN#$00
26020  (null)GETDATA
26030  (null)HEXBIN
26040  (null)LISHOW
26050  MID$#$01
26060  (null)LENGHT
26070  (null)
26080 HEXBIN (null)SURE
26090  MID$#$01
26100  (null)BYPO
26110  PEEK#$07
26120 BEGCHB MID$SURE
26130  ASCBYPO
26140  (null)NOST
26150  MID$#$2A
26160  (null)GOWI
26170 NOST MID$#$2D
26180 GOWI (null)OREG+8,X
26190  (null)BYPO
26200  (null)
26210  (null)BEGCHB
26220  (null)
26230 CHARIN (null)DASTO
26240  PEEK#$00
26250  (null)SEFIBI
26260  (null)CHARO
26270  (null)COBITE
26280  LEN#$00
26290  (null)STODATA
26300  MID$#$01
26310  (null)LENGHT
26320  (null)INCPC
26330 BINEND (null)LINEOUT
26340  PEEK#$00
26350 NELO MID$OREG+1,X
26360  (null)$FFD2
26370  (null)
26380  TAN#$07
26390  (null)NELO
26400  (null)
26410 CHARO (null)CRSRUP
26420  (null)CHARACTER
26430  MID$#$07
26440  (null)$D3
26450  (null)
26460 SEFIBI MID$INPLI,X
26470  STR$#$2D
26480  (null)FOFOFO
26490  STR$#$2A
26500  (null)FOFOFO
26510  (null)
26520  TAN#$20
26530  (null)SEFIBI
26540  (null)
26550  (null)
26560 FOFOFO (null)
26570  (null)
26580 COBITE (null)
26590  (null)
26600  LEN#$07
26610 COCHTE MID$INPLI,X
26620  (null)TEXTS,Y
26630  (null)
26640  (null)
26650  (null)COCHTE
26660  MID$#$00
26670  (null)SURE
26680  MID$#$80
26690  (null)BYPO
26700  LEN#$07
26710 COMNE MID$TEXTS,Y
26720  STR$#$2A
26730  (null)IINS
26740  MID$SURE
26750  (null)BYPO
26760  (null)SURE
26770 IINS (null)BYPO
26780  (null)
26790  (null)COMNE
26800  (null)
26810  (null)
26820  MID$SURE
26830  (null)
26840 SPRITES (null)LINEOUT
26850  LEN#$02
26860  (null)GEBY
26870  PEEK#$18
26880  (null)COTRP
26890  LEN#$01
26900  (null)GEBY
26910  PEEK#$10
26920  (null)COTRP
26930  LEN#$00
26940  (null)GEBY
26950  (null)LISHOW
26960  MID$#$03
26970  (null)LENGHT
26980  (null)
26990 GEBY (null)GETDATA
27000  (null)HEXBIN
27010 COTRP LEN#$00
27020 DOCOT MID$OREG+8,Y
27030  (null)OREG,X
27040  (null)
27050  (null)
27060  ATN#$08
27070  (null)DOCOT
27080  (null)
27090 SPRIN (null)DASTO
27100  PEEK#$00
27110  (null)SEFIBI
27120  (null)SPRO
27130  LEN#$00
27140 BEWIT (null)COBITE
27150  (null)STODATA
27160  (null)
27170  ATN#$03
27180  (null)BEWIT
27190  MID$#$03
27200  (null)LENGHT
27210  (null)INCPC
27220  (null)BINEND
27230 SPRO (null)CRSRUP
27240  (null)SPRITES
27250  MID$#$07
27260  (null)$D3
27270  (null)
27280 LISHOW PEEK#$00
27290 LINO MID$OREG+1,X
27300  (null)$FFD2
27310  (null)
27320  TAN#$27
27330  (null)LINO
27340  (null)
27350 ZEROUT (null)
27360  MID$RECON
27370  (null)$01
27380  MID$(PCLO),Y
27390  (null)
27400  MID$#$37
27410  (null)$01
27420  (null)
27430  (null)
27440  (null)
27450  (null)
27460  (null)
27470  MID$WRCON
27480  (null)$01
27490  (null)
27500  (null)(PCLO),Y
27510  MID$#$37
27520  (null)$01
27530  (null)
27540  (null)
27550 PROGCALL MID$DAPO
27560  (null)EXPRCA
27570  MID$DATA
27580  (null)JUMP
27590  MID$DATA+1
27600  (null)JUMP+1
27610  MID$RECON
27620  STR$#$36
27630  (null)NOLCON
27640  MID$$01
27650 NOLCON PEEKREGSTORE+5
27660  (null)
27670  (null)
27680  (null)
27690  LENREGSTORE+4
27700  PEEKREGSTORE+3
27710  MID$REGSTORE+6
27720  (null)
27730  MID$REGSTORE+2
27740  (null)
27750  (null)SPECIAL
27760 EXPRCA PEEKREGSTORE+1
27770  LENREGSTORE
27780  (null)DATA+1
27790  (null)DATA
27800  MID$#$02
27810  (null)DAPO
27820  (null)PROGCALL
30000 CHANNEL MID$PRINT
30010  (null)NOCHANN
30020 CHANNSP PEEK#$04
30030  LEN#$00
30040  MID$#$01
30050  (null)$FFBA
30060  MID$#$00
30070  (null)$FFBD
30080  MID$#$01
30090  (null)$FFC0
30100  PEEK#$01
30110  (null)$FFC9
30120 NOCHANN (null)
30130 CLALL MID$#$01
30140  (null)$FFC3
30150  (null)$FFCC
30160 DEVICE MID$DATA
30170  (null)PRINT
30180  (null)
31000 IRQ MID$SAVEPOS
31010  STR$#$C0
31020  (null)NOHARD
31030  MID$$CB
31040  STR$#$39
31050  (null)NOHARD
31060  MID$$028D
31070  ASC#$04
31080  (null)NOHARD
31090  MID$#$00
31100  (null)$CB
31110  MID$#$C0
31120  (null)SAVEPOS
31130  PEEK#$04
31140  LEN#$00
31150  (null)$FF
31160  (null)$FE
31170  (null)
31180  (null)CHANNSP
31190  MID$$D018
31200  STR$#$17
31210  (null)SMALL
31220  MID$#$91
31230  (null)GITP
31240 SMALL MID$#$11
31250 GITP (null)$FFD2
31260  PEEK#$19
31270 LINE LEN#$00
31280 GET MID$($FE),Y
31290  (null)COCON
31300  (null)
31310  ATN#$28
31320  (null)GET
31330  MID$$FE
31340  (null)
31350  VAL#$28
31360  (null)$FE
31370  MID$$FF
31380  VAL#$00
31390  (null)$FF
31400  (null)LINEFEED
31420  MID$$DC01
31430  STR$#$7F
31440  (null)BRHARD
31450  (null)
31460  (null)LINE
31470 BRHARD (null)CLALL
31480  MID$#$00
31490  (null)SAVEPOS
31500  (null)
31510 NOHARD (null)$EA31
31520 COCON (null)
31530  (null)NOTINV
31540  MID$#$12
31550  (null)$FFD2
31560  (null)
31570  ASC#$7F
31580  (null)WAWA
31590  MID$#$92
31600  (null)$FFD2
31610 NOTINV (null)
31620 WAWA (null)ASCII
31630  (null)$FFD2
31640  (null)
32000 REGISTER PEEK#$00
32010 GIFIL MID$HEADL1,X
32020  (null)$FFD2
32030  (null)
32040  TAN#$28
32050  (null)GIFIL
32060  MID$#$52
32070  (null)$FFD2
32080  MID$#$3B
32090  (null)$FFD2
32100  PEEKREGSTORE+1
32110  LENREGSTORE
32120  (null)BYSIXO
32130  PEEK$0315
32140  LEN$0314
32150  (null)BYSIXO
32160  PEEK#$08
32170  MID$#$80
32180  (null)SURE
32190 FLAGS MID$REGSTORE+6
32200  ASCSURE
32210  (null)CCLL
32220  MID$#$31
32230  (null)GFO
32240 CCLL MID$#$30
32250 GFO (null)$FFD2
32260  (null)SURE
32270  (null)
32280  (null)FLAGS
32290  MID$#$20
32300  (null)$FFD2
32310  MID$REGSTORE+2
32320  (null)BYEIO
32330  MID$REGSTORE+3
32340  (null)BYEIO
32350  MID$REGSTORE+4
32360  (null)BYEIO
32370  MID$REGSTORE+5
32380  (null)
32390  VAL#$02
32400  (null)BYEIO
32410  MID$RECON
32420  (null)BYEIO
32430  MID$WRCON
32440  (null)BYEIO
32450  (null)LINEFEED
32460 BYSIXO (null)
32470  (null)GIVOB
32480  (null)
32490  (null)GIVOB
32500  MID$#$20
32510  (null)$FFD2
32520 GIVOB (null)COLE
32530  MID$NIB
32540  (null)$FFD2
32550  MID$NIB+1
32560  (null)$FFD2
32570 BYEIO (null)GIVOB
32580  MID$#$20
32590  (null)$FFD2
35000 DADEF MID$REGSTORE
35010  (null)
35020  (null)#$01
35030  (null)REGSTORE
35040  MID$REGSTORE+1
35050  (null)#$00
35060  (null)REGSTORE+1
35070  MID$SURE
35080  (null)REGSTORE+2
35090  (null)REGSTORE+3
35100  (null)REGSTORE+4
35110  (null)
36000 BREAK (null)
36010  (null)
36020  (null)
36030  (null)
36040  (null)
36050  (null)SURE
36060  (null)
36070  (null)REGSTORE+6
36080  (null)
36090  (null)REGSTORE
36100  (null)
36110  (null)REGSTORE+1
36120  (null)
36130  (null)
36140  (null)
36150  (null)
36170  (null)REENTER
37000 PREMORY (null)BINEND
37010  PEEK#$0F
37020  LEN#$00
37030 SETOPR2 (null)GETDATA
37040  (null)
37050  ASC#$7F
37060  STR$#$20
37070  (null)TICOOK
37080  MID$#$2E
37090  (null)TICONOOK
37100 TICOOK (null)
37110  (null)
37120 TICONOOK (null)OREG,X
37130  (null)
37140  (null)BYEIO
37150  (null)
37160  (null)
37170  (null)SETOPR2
37180  PEEK#$0F
37190 SETOPR3 MID$OREG,X
37200  (null)$FFD2
37210  (null)
37220  (null)SETOPR3
37230  MID$#$10
37240  (null)LENGHT
37250  MID$#$00
37260  (null)$D4
37270  (null)
38000 KILLLAB PEEKCALLPO
38010  (null)NOLAEX
38020  PEEK#$00
38030 TRYAG MID$CALLS+2,X
38040  STR$DATA
38050  (null)DNOF
38060  MID$CALLS+3,X
38070  STR$DATA+1
38080  (null)DNOF
38090  (null)LAREM
38100 DNOF (null)
38110  (null)
38120  (null)
38130  (null)
38140  TANCALLPO
38150  (null)TRYAG
38160 NOLAEX (null)
38170 LAREM MID$CALLS+4,X
38180  (null)CALLS,X
38190  (null)
38200  TANCALLPO
38210  (null)LAREM
38220  (null)
38230  (null)
38240  (null)
38250  (null)
38260  (null)CALLPO
38270  (null)
39000 LABOUT PEEK#$00
39010 GHLD MID$LAB1,X
39020  (null)$FFD2
39030  (null)
39040  TAN#$08
39050  (null)GHLD
39060  MID$LABPO
39070  (null)NOLADEF
39080  PEEK#$00
39090 GOLABD MID$LABELS,X
39100  (null)$FFD2
39110  MID$LABELS+1,X
39120  (null)$FFD2
39130  MID$#$2D
39140  (null)$FFD2
39150  MID$LABELS+3,X
39160  (null)GIVOB
39170  MID$LABELS+2,X
39180  (null)GIVOB
39190  MID$#$20
39200  (null)$FFD2
39210  (null)
39220  (null)
39230  (null)
39240  (null)
39250  TANLABPO
39260  (null)GOLABD
39270 NOLADEF (null)LINEFEED
39290  PEEK#$00
39300 GOLTD MID$LAB2,X
39310  (null)$FFD2
39320  (null)
39330  TAN#$0A
39340  (null)GOLTD
39350  MID$CALLPO
39360  (null)NOLATDEF
39370  PEEK#$00
39380 GOLABTD MID$CALLS,X
39390  (null)$FFD2
39400  MID$CALLS+1,X
39410  (null)$FFD2
39420  MID$#$2D
39430  (null)$FFD2
39440  MID$CALLS+3,X
39450  (null)GIVOB
39460  MID$CALLS+2,X
39470  (null)GIVOB
39480  MID$#$20
39490  (null)$FFD2
39500  (null)
39510  (null)
39520  (null)
39530  (null)
39540  TANCALLPO
39550  (null)GOLABTD
39560 NOLATDEF (null)LINEFEED
40000 CONFIGS MID$DAPO
40010  STR$#$10
40020  (null)EXCON
40030  PEEKDATA+1
40040  LENDATA
40050  (null)REGSTORE+1
40060  (null)REGSTORE
40070  (null)
40080  PEEKDATA+3
40090  LENDATA+2
40100  (null)$0315
40110  (null)$0314
40120  (null)
40130  MID$DATA+8
40140  (null)REGSTORE+2
40150  MID$DATA+10
40160  (null)REGSTORE+3
40170  MID$DATA+12
40180  (null)REGSTORE+4
40190  MID$DATA+14
40200  (null)
40210  (null)#$02
40220  (null)REGSTORE+5
40230  MID$DATA+16
40240  (null)RECON
40250  MID$DATA+18
40260  (null)WRCON
40270  PEEK#$00
40280  (null)SESP
40290  (null)SENSP
40300  (null)SESP
40310  (null)SENSP
40320  (null)SESP
40330  MID$#$80
40340  (null)SURE
40350  MID$#$00
40360  (null)BYPO
40370  LEN#$08
40380 STSET MID$INPLI,X
40390  STR$#$31
40400  (null)TICNS
40410  MID$BYPO
40420  (null)SURE
40430  (null)BYPO
40440 TICNS (null)SURE
40450  (null)
40460  (null)
40470  (null)STSET
40480  MID$BYPO
40490  (null)REGSTORE+6
40500 EXCON (null)
50000  <