REM > Basic4/src
REM Source code for 6502 BBC BASIC IV for the BBC
:
P=P:IF P=0:CLEAR:P=0:DIM mcode% &11FF
OS_CLI=&FFF7:OSBYTE=&FFF4:OSWORD=&FFF1:OSWRCH=&FFEE
OSWRCR=&FFEC:OSNEWL=&FFE7:OSASCI=&FFE3:OSRDCH=&FFE0
OSFILE=&FFDD:OSARGS=&FFDA:OSBGET=&FFD7:OSBPUT=&FFD4
OSGBPB=&FFD1:OSFIND=&FFCE
:
load%=&8000   :REM load%=&B800
fixDIM%=FALSE :REM fixDIM%=TRUE
:
tknAND=&80   :tknEOR=&82     :tknOR=&84
tknERROR=&85 :tknLINE=&86    :tknELSE=&8B :tknMissing=&8D
tknERL=&9E   :tknEXT=&A2     :tknFN=&A4   :tknTO=&B8
tknDATA=&DC  :tknRENUMBER=&CC:tknDIM=&DE  :tknEND=&E0
tknFOR=&E3   :tknGOSUB=&E4   :tknIF=&E7   :tknLOCAL=&EA
tknMODE=&EB  :tknON=&EE      :tknPRINT=&F1:tknPROC=&F2
tknREPEAT=&F5:tknREPORT=&F6  :tknSTOP=&FA
:
S%=&3000:IFPAGE>&8000:S%=&30000
R%=load%-S%:IFP=0:FORP=0 TO 1
P%=load%:O%=mcode%:Q%=P%-R%
[OPT P*3+4
.L8000
CMP #&01:BEQ L802B:RTS        :\ LANGUAGE ENTRY
NOP
EQUB &60                      :\ ROM type=Lang+6502 BASIC
EQUB L800E-L8000              :\ Copyright offset
EQUB &04                      :\ ROM version
EQUS "BASIC"                  :\ ROM title
.L800E
EQUB &00:EQUS "(C)1984 Acorn" :\ ROM copyright string
EQUB &0A:EQUB &0D:EQUB &00
EQUD load%                    :\ Second processor transfer address
:
.L8023
EQUB &00:EQUB &03:EQUB &27:EQUB &01
EQUB &0A:EQUB &64:EQUB &E8:EQUB &10

\ LANGUAGE STARTUP
\ ================
.L802B
AND &11:ORA &0D:ORA &0E             :\ Check RND seed
ORA &0F:ORA &10:BNE L8043           :\ If nonzero, skip past
LDA #&41:STA &0D                    :\ Set RND seed to &575241
EOR #&13:STA &0E:EOR #&05:STA &0F
.L8043
LDA #&84:JSR OSBYTE:STX &06:STY &07 :\ Read bottom of memory, set HIMEM
DEC A:JSR OSBYTE:STY &18            :\ Read top of memory, set PAGE
STZ &1F                             :\ Set LISTO to 0
STZ &0402:STZ &0403                 :\ Set @% to &0000xxxx
LDX #&FF:STX &23                    :\ Set WIDTH to &FF
LDX #&0A:STX &0400:DEX:STX &0401    :\ Set @% to &0000090A
LDA #LB278 AND 255:STA &0202        :\ Set up error handler
LDA #LB278 DIV 256:STA &0203
CLI:JMP L8F2D                       :\ Enable IRQs, jump to immediate loop

\ Look up FN/PROC address
\ =======================
.L8075
STY &39                  :\ Store length of name
LDY #&01:LDA (&37),Y     :\ Get FN/PROC character
LDY #&F6                 :\ Preload with offset to PROC list
CMP #tknPROC:BEQ L808D   :\ If PROC, follow PROC list
LDY #&F8:BRA L808D       :\ Otherwise, follow FN list

\ Look up variable address
\ ========================
.L8085
STY &39                  :\ Store length of name
LDY #&01:LDA (&37),Y     :\ Get initial letter
ASL A:TAY                :\ Convert into offset to variable list

\ Follow linked variable list to find named item
\ ----------------------------------------------
.L808D
LDA &0401,Y:BEQ L80CC    :\ If list empty, jump to exit
STA &2B                  :\ Store high byte of list start
LDA &0400,Y:BRA L80A4    :\ Get low byte of list start, jump forward

\ Follow list to next item
\ ------------------------
.L8099
LDY #&01:LDA (&2A),Y     :\ Get high byte of next address
BEQ L80CC                :\ Exit if at end of list
TAY:LDA (&2A):STY &2B    :\ Get low byte of next address
.L80A4
STA &2A                  :\ Store low byte of list address
LDY #&02:LDA (&2A),Y     :\ Get first character of stored name
BNE L80B6                :\ Jump if not null name
CPY &39:BNE L8099        :\ Name length not 2, no match, follow list to next item
BRA L80C3                :\ Jump to return address of matched item

.L80B2
LDA (&2A),Y:BEQ L8099    :\ End of stored name, no match, follow list to next item
.L80B6
CMP (&37),Y:BNE L8099    :\ Name doesn't match, follow list to next item
INY                      :\ Step to next character
CPY &39:BNE L80B2        :\ Not end of name, loop to continue checking
LDA (&2A),Y:BNE L8099    :\ Not at end of stored name, follow list to next item

\ Stored name matches supplied name, return address of variable
\ -------------------------------------------------------------
.L80C3
TYA:ADC &2A:STA &2A      :\ Update &2A/B to point to after end of stored name
BCC L80CC:INC &2B
.L80CC
RTS                      :\ A=0 - no match, A<>0 - matched, &2A/B=>data block

.L80CD
STZ &3D:LDA &18:STA &3E  :\ &3D/E=PAGE
.L80D3
LDY #&01:LDA (&3D),Y
CMP &2B:BCS L80E9
.L80DB
LDY #&03:LDA (&3D),Y
ADC &3D:STA &3D
BCC L80D3:INC &3E
BRA L80D3

.L80E9
BNE L80F5
INY:LDA (&3D),Y
CMP &2A:BCC L80DB
BNE L80F5
RTS

.L80F5
LDY #&02
CLC
RTS

.L80F9
JSR L96BE
LDA &2D
PHA
JSR LACBE
JSR LA00F
STX &27
JSR L96BE
PLA
STA &38
EOR &2D
STA &37
JSR LACBE
LDX #&39
JSR LBD08
STZ &3D
STZ &3E
STZ &3F
STZ &40
LDA &2D
ORA &2A
ORA &2B
ORA &2C
BEQ L8172
LDY #&20
.L812D
DEY
BEQ L8171
ASL &39
ROL &3A
ROL &3B
ROL &3C
BPL L812D
.L813A
ROL &39
ROL &3A
ROL &3B
ROL &3C
ROL &3D
ROL &3E
ROL &3F
ROL &40
SEC
LDA &3D
SBC &2A
PHA
LDA &3E
SBC &2B
PHA
LDA &3F
SBC &2C
TAX
LDA &40
SBC &2D
BCC L816C
STA &40
STX &3F
PLA
STA &3E
PLA
STA &3D
BCS L816E
.L816C
PLA
PLA
.L816E
DEY
BNE L813A
.L8171
RTS

.L8172
BRK:EQUB &12:EQUS "Division by zero":BRK

.L8185
STZ &35:STZ &2F
.L8189
LDA &2D:STA &2E:BPL L8194
JSR LACDE
LDA &2D
.L8194
BNE L81BC
STZ &34:LDA &2C:BNE L81B0
STZ &33:LDA &2B:BNE L81A8
STZ &32:LDA &2A:BRA L81E0

.L81A8
LDY &2A:STY &32
LDY #&90
BRA L81E2

.L81B0
LDY &2B:STY &32
LDY &2A:STY &33
LDY #&98
BRA L81E2

.L81BC
LDY &2C:STY &32
LDY &2B:STY &33
LDY &2A:STY &34
LDY #&A0
BRA L81E2

.L81CC
STZ &2E:STZ &30
STZ &2F:STZ &31
.L81D4
RTS

.L81D5
JSR LA6B4
TAY
BPL L81E0
STA &2E
EOR #&FF
INC A
.L81E0
LDY #&88
.L81E2
ORA #&00
BMI L81F2
BEQ L81CC
.L81E8
DEY
ASL &34
ROL &33
ROL &32
ROL A
BPL L81E8
.L81F2
STA &31
STY &30
RTS

.L81F7
LDA &31
.L81F9
BMI L81D4
.L81FB
BNE L822A
ORA &32:ORA &33
ORA &34:ORA &35
BEQ L81CC
LDA &30
.L8209
LDY &32:STY &31
LDY &33:STY &32
LDY &34:STY &33
LDY &35:STY &34
STZ &35
SEC
SBC #&08
BCS L8222
DEC &2F
.L8222
LDY &31
BEQ L8209
BMI L823F
BRA L822C

.L822A
LDA &30
.L822C
CLC
.L822D
SBC #&00
BCS L8233
DEC &2F
.L8233
ASL &35
ROL &34
ROL &33
ROL &32
ROL &31
BPL L822D
.L823F
STA &30
RTS

.L8242
LDA &30
BPL L8272
LDY &31
BEQ L827E
.L824A
LSR &31
ROR &32
ROR &33
ROR &34
INC A
BEQ L82BD
.L8255
CMP #&A0:BCS L82C0
CMP #&99:BCS L824A
ADC #&08
LDY &33:STY &34
LDY &32:STY &33
LDY &31:STY &32
STZ &31
BRA L8255

.L826F
JSR LA40B
.L8272
JMP LA6B4

.L8275
LDA &30
BPL L826F
JSR LA570
LDY &31
.L827E
BEQ L82C4
.L8280
LSR &31
ROR &32
ROR &33
ROR &34
ROR &3D
ROR &3E
ROR &3F
ROR &40
INC A
BEQ L82BD
.L8293
CMP #&A0:BCS L82C0
CMP #&99:BCS L8280
ADC #&08
LDY &3F:STY &40
LDY &3E:STY &3F
LDY &3D:STY &3E
LDY &34:STY &3D
LDY &33:STY &34
LDY &32:STY &33
LDY &31:STY &32
STZ &31
BRA L8293

.L82BD
JMP LA6C5

.L82C0
BNE L82BD
STA &30
.L82C4
LDA &2E
BPL L82DF
.L82C8
SEC
LDY #&00
TYA:SBC &34:STA &34
TYA:SBC &33:STA &33
TYA:SBC &32:STA &32
TYA:SBC &31:STA &31
.L82DF
RTS

.L82E0
LDA &30
BMI L82E9
STZ &49
JMP LA3F2

.L82E9
JSR L8275
LDA &34
STA &49
JSR L8353
LDA #&80
STA &30
LDX &31
BPL L830A
EOR &2E
STA &2E
BPL L8305
INC &49
BRA L8307

.L8305
DEC &49
.L8307
JSR L82C8
.L830A
JMP L81F7

.L830D
INC &34:BNE L831D
INC &33:BNE L831D
INC &32:BNE L831D
INC &31:BEQ L82BD
.L831D
RTS

.L831E
LDY #&04
.L8320
ROR &11
LDA &10
TAX
ROR A
STA &11
LDA &0F
STA &10
LSR A
EOR &0E
AND #&0F
EOR &0E
ROR A
ROR A
ROR A
ROR A
EOR &11:STX &11
LDX &0E:STX &0F
LDX &0D:STX &0E
STA &0D
DEY
BNE L8320
RTS

.L8349
LDA &3B
STA &2E
STZ &2F
LDA &3C
STA &30
.L8353
LDA &3D:STA &31
LDA &3E:STA &32
LDA &3F:STA &33
LDA &40:STA &34
LDA &41:STA &35
.L8367
RTS

.L8368
LDA &31
BEQ L8349
SEC
LDA &30
SBC &3C
BEQ L83E2
BCC L83A9
CMP #&25:BCS L8367
TAY
AND #&38
BEQ L8395
SEC
.L837F
LDX &40:STX &41
LDX &3F:STX &40
LDX &3E:STX &3F
LDX &3D:STX &3E
STZ &3D
SBC #&08
BNE L837F
.L8395
TYA
AND #&07
BEQ L83E2
.L839A
LSR &3D
ROR &3E
ROR &3F
ROR &40
ROR &41
DEC A
BNE L839A
BRA L83E2

.L83A9
EOR #&FF
INC A
CMP #&25:BCS L8349
LDY &3C
STY &30
TAY
AND #&38
BEQ L83D0
SEC
.L83BA
LDX &34:STX &35
LDX &33:STX &34
LDX &32:STX &33
LDX &31:STX &32
STZ &31
SBC #&08
BNE L83BA
.L83D0
TYA
AND #&07
BEQ L83E2
.L83D5
LSR &31
ROR &32
ROR &33
ROR &34
ROR &35
DEC A
BNE L83D5
.L83E2
LDA &2E
EOR &3B
BMI L83EC
CLC
JMP LA447

.L83EC
LDA &31:CMP &3D:BNE L840D
LDA &32:CMP &3E:BNE L840D
LDA &33:CMP &3F:BNE L840D
LDA &34:CMP &40:BNE L840D
LDA &35:CMP &41:BNE L840D
JMP LA6B4

.L840D
BCS L8435
LDA &3B:STA &2E
SEC
LDA &41:SBC &35:STA &35
LDA &40:SBC &34:STA &34
LDA &3F:SBC &33:STA &33
LDA &3E:SBC &32:STA &32
LDA &3D:SBC &31:STA &31
JMP L81F9

.L8435
LDA &35:SBC &41:STA &35
LDA &34:SBC &40:STA &34
LDA &33:SBC &3F:STA &33
LDA &32:SBC &3E:STA &32
LDA &31:SBC &3D:STA &31
JMP L81F9


\ TOKEN TABLE
\ ===========
\ string, token (b7=1), flag
\
\ Token flag:
\ Bit 0 - Conditional tokenisation (don't tokenise if followed by an alphabetic character).
\ Bit 1 - Go into "Middle of Statement" mode.
\ Bit 2 - Go into "Start of Statement" mode.
\ Bit 3 - FN/PROC keyword - don't tokenise the name of the subroutine.
\ Bit 4 - Start tokenising a line number now (after a GOTO, etc...).
\ Bit 5 - Pseudo variable flag - add &40 to token if at the start of a statement/hex number
\ Bit 6 - Don't tokenise rest of line (REM, DATA, etc...)
\ Bit 7 - Unused - externally used for quote toggle.

.L8456
EQUS "AND"     :EQUB &80:EQUB &00 :\ 00000000
EQUS "ABS"     :EQUB &94:EQUB &00 :\ 00000000
EQUS "ACS"     :EQUB &95:EQUB &00 :\ 00000000
EQUS "ADVAL"   :EQUB &96:EQUB &00 :\ 00000000
EQUS "ASC"     :EQUB &97:EQUB &00 :\ 00000000
EQUS "ASN"     :EQUB &98:EQUB &00 :\ 00000000
EQUS "ATN"     :EQUB &99:EQUB &00 :\ 00000000
EQUS "AUTO"    :EQUB &C6:EQUB &10 :\ 00010000
EQUS "BGET"    :EQUB &9A:EQUB &01 :\ 00000001
EQUS "BPUT"    :EQUB &D5:EQUB &03 :\ 00000011
EQUS "COLOUR"  :EQUB &FB:EQUB &02 :\ 00000010
EQUS "CALL"    :EQUB &D6:EQUB &02 :\ 00000010
EQUS "CHAIN"   :EQUB &D7:EQUB &02 :\ 00000010
EQUS "CHR$"    :EQUB &BD:EQUB &00 :\ 00000000
EQUS "CLEAR"   :EQUB &D8:EQUB &01 :\ 00000001
EQUS "CLOSE"   :EQUB &D9:EQUB &03 :\ 00000011
EQUS "CLG"     :EQUB &DA:EQUB &01 :\ 00000001
EQUS "CLS"     :EQUB &DB:EQUB &01 :\ 00000001
EQUS "COS"     :EQUB &9B:EQUB &00 :\ 00000000
EQUS "COUNT"   :EQUB &9C:EQUB &01 :\ 00000001
EQUS "COLOR"   :EQUB &FB:EQUB &02 :\ 00000010
EQUS "DATA"    :EQUB &DC:EQUB &20 :\ 00100000
EQUS "DEG"     :EQUB &9D:EQUB &00 :\ 00000000
EQUS "DEF"     :EQUB &DD:EQUB &00 :\ 00000000
EQUS "DELETE"  :EQUB &C7:EQUB &10 :\ 00010000
EQUS "DIV"     :EQUB &81:EQUB &00 :\ 00000000
EQUS "DIM"     :EQUB &DE:EQUB &02 :\ 00000010
EQUS "DRAW"    :EQUB &DF:EQUB &02 :\ 00000010
EQUS "ENDPROC" :EQUB &E1:EQUB &01 :\ 00000001
EQUS "END"     :EQUB &E0:EQUB &01 :\ 00000001
EQUS "ENVELOPE":EQUB &E2:EQUB &02 :\ 00000010
EQUS "ELSE"    :EQUB &8B:EQUB &14 :\ 00010100
EQUS "EVAL"    :EQUB &A0:EQUB &00 :\ 00000000
EQUS "ERL"     :EQUB &9E:EQUB &01 :\ 00000001
EQUS "ERROR"   :EQUB &85:EQUB &04 :\ 00000100
EQUS "EOF"     :EQUB &C5:EQUB &01 :\ 00000001
EQUS "EOR"     :EQUB &82:EQUB &00 :\ 00000000
EQUS "ERR"     :EQUB &9F:EQUB &01 :\ 00000001
EQUS "EXP"     :EQUB &A1:EQUB &00 :\ 00000000
EQUS "EXT"     :EQUB &A2:EQUB &01 :\ 00000001
EQUS "EDIT"    :EQUB &CE:EQUB &10 :\ 00010000
EQUS "FOR"     :EQUB &E3:EQUB &02 :\ 00000010
EQUS "FALSE"   :EQUB &A3:EQUB &01 :\ 00000001
EQUS "FN"      :EQUB &A4:EQUB &08 :\ 00001000
EQUS "GOTO"    :EQUB &E5:EQUB &12 :\ 00010010
EQUS "GET$"    :EQUB &BE:EQUB &00 :\ 00000000
EQUS "GET"     :EQUB &A5:EQUB &00 :\ 00000000
EQUS "GOSUB"   :EQUB &E4:EQUB &12 :\ 00010010
EQUS "GCOL"    :EQUB &E6:EQUB &02 :\ 00000010
EQUS "HIMEM"   :EQUB &93:EQUB &43 :\ 00100011
EQUS "INPUT"   :EQUB &E8:EQUB &02 :\ 00000010
EQUS "IF"      :EQUB &E7:EQUB &02 :\ 00000010
EQUS "INKEY$"  :EQUB &BF:EQUB &00 :\ 00000000
EQUS "INKEY"   :EQUB &A6:EQUB &00 :\ 00000000
EQUS "INT"     :EQUB &A8:EQUB &00 :\ 00000000
EQUS "INSTR("  :EQUB &A7:EQUB &00 :\ 00000000
EQUS "LIST"    :EQUB &C9:EQUB &10 :\ 00010000
EQUS "LINE"    :EQUB &86:EQUB &00 :\ 00000000
EQUS "LOAD"    :EQUB &C8:EQUB &02 :\ 00000010
EQUS "LOMEM"   :EQUB &92:EQUB &43 :\ 00100011
EQUS "LOCAL"   :EQUB &EA:EQUB &02 :\ 00000010
EQUS "LEFT$("  :EQUB &C0:EQUB &00 :\ 00000000
EQUS "LEN"     :EQUB &A9:EQUB &00 :\ 00000000
EQUS "LET"     :EQUB &E9:EQUB &04 :\ 00000100
EQUS "LOG"     :EQUB &AB:EQUB &00 :\ 00000000
EQUS "LN"      :EQUB &AA:EQUB &00 :\ 00000000
EQUS "MID$("   :EQUB &C1:EQUB &00 :\ 00000000
EQUS "MODE"    :EQUB &EB:EQUB &02 :\ 00000010
EQUS "MOD"     :EQUB &83:EQUB &00 :\ 00000000
EQUS "MOVE"    :EQUB &EC:EQUB &02 :\ 00000010
EQUS "NEXT"    :EQUB &ED:EQUB &02 :\ 00000010
EQUS "NEW"     :EQUB &CA:EQUB &01 :\ 00000001
EQUS "NOT"     :EQUB &AC:EQUB &00 :\ 00000000
EQUS "OLD"     :EQUB &CB:EQUB &01 :\ 00000001
EQUS "ON"      :EQUB &EE:EQUB &02 :\ 00000010
EQUS "OFF"     :EQUB &87:EQUB &00 :\ 00000000
EQUS "OR"      :EQUB &84:EQUB &00 :\ 00000000
EQUS "OPENIN"  :EQUB &8E:EQUB &00 :\ 00000000
EQUS "OPENOUT" :EQUB &AE:EQUB &00 :\ 00000000
EQUS "OPENUP"  :EQUB &AD:EQUB &00 :\ 00000000
EQUS "OSCLI"   :EQUB &FF:EQUB &02 :\ 00000010
EQUS "PRINT"   :EQUB &F1:EQUB &02 :\ 00000010
EQUS "PAGE"    :EQUB &90:EQUB &43 :\ 01000011
EQUS "PTR"     :EQUB &8F:EQUB &43 :\ 01000011
EQUS "PI"      :EQUB &AF:EQUB &01 :\ 00000001
EQUS "PLOT"    :EQUB &F0:EQUB &02 :\ 00000010
EQUS "POINT("  :EQUB &B0:EQUB &00 :\ 00000000
EQUS "PROC"    :EQUB &F2:EQUB &0A :\ 00001010
EQUS "POS"     :EQUB &B1:EQUB &01 :\ 00000001
EQUS "RETURN"  :EQUB &F8:EQUB &01 :\ 00000001
EQUS "REPEAT"  :EQUB &F5:EQUB &00 :\ 00000000
EQUS "REPORT"  :EQUB &F6:EQUB &01 :\ 00000001
EQUS "READ"    :EQUB &F3:EQUB &02 :\ 00000010
EQUS "REM"     :EQUB &F4:EQUB &20 :\ 00100000
EQUS "RUN"     :EQUB &F9:EQUB &01 :\ 00000001
EQUS "RAD"     :EQUB &B2:EQUB &00 :\ 00000000
EQUS "RESTORE" :EQUB &F7:EQUB &12 :\ 00010010
EQUS "RIGHT$(" :EQUB &C2:EQUB &00 :\ 00000000
EQUS "RND"     :EQUB &B3:EQUB &01 :\ 00000001
EQUS "RENUMBER":EQUB &CC:EQUB &10 :\ 00010000
EQUS "STEP"    :EQUB &88:EQUB &00 :\ 00000000
EQUS "SAVE"    :EQUB &CD:EQUB &02 :\ 00000010
EQUS "SGN"     :EQUB &B4:EQUB &00 :\ 00000000
EQUS "SIN"     :EQUB &B5:EQUB &00 :\ 00000000
EQUS "SQR"     :EQUB &B6:EQUB &00 :\ 00000000
EQUS "SPC"     :EQUB &89:EQUB &00 :\ 00000000
EQUS "STR$"    :EQUB &C3:EQUB &00 :\ 00000000
EQUS "STRING$(":EQUB &C4:EQUB &00 :\ 00000000
EQUS "SOUND"   :EQUB &D4:EQUB &02 :\ 00000010
EQUS "STOP"    :EQUB &FA:EQUB &01 :\ 00000001
EQUS "TAN"     :EQUB &B7:EQUB &00 :\ 00000000
EQUS "THEN"    :EQUB &8C:EQUB &14 :\ 00010100
EQUS "TO"      :EQUB &B8:EQUB &00 :\ 00000000
EQUS "TAB("    :EQUB &8A:EQUB &00 :\ 00000000
EQUS "TRACE"   :EQUB &FC:EQUB &12 :\ 00010010
EQUS "TIME"    :EQUB &91:EQUB &43 :\ 01000011
EQUS "TRUE"    :EQUB &B9:EQUB &01 :\ 00000001
EQUS "UNTIL"   :EQUB &FD:EQUB &02 :\ 00000010
EQUS "USR"     :EQUB &BA:EQUB &00 :\ 00000000
EQUS "VDU"     :EQUB &EF:EQUB &02 :\ 00000010
EQUS "VAL"     :EQUB &BB:EQUB &00 :\ 00000000
EQUS "VPOS"    :EQUB &BC:EQUB &01 :\ 00000001
EQUS "WIDTH"   :EQUB &FE:EQUB &02 :\ 00000010
EQUS "PAGE"    :EQUB &D0:EQUB &00 :\ 00000000
EQUS "PTR"     :EQUB &CF:EQUB &00 :\ 00000000
EQUS "TIME"    :EQUB &D1:EQUB &00 :\ 00000000
EQUS "LOMEM"   :EQUB &D2:EQUB &00 :\ 00000000
EQUS "HIMEM"   :EQUB &D3:EQUB &00 :\ 00000000
EQUS "Missing ":EQUB &8D:EQUB &00 :\ 00000000

\ FUNCTION/COMMAND DISPATCH TABLE
\ ===============================
.L8769
EQUW LAADF :\ &8E - OPENIN
EQUW LAAC9 :\ &8F - =PTR
EQUW LAE08 :\ &90 - =PAGE
EQUW LAE44 :\ &91 - =TIME
EQUW LAE29 :\ &92 - =LOMEM
EQUW LAE2F :\ &93 - =HIMEM
EQUW LACB7 :\ &94 - ABS
EQUW LA89C :\ &95 - ACS
EQUW LADEC :\ &96 - ADVAL
EQUW LABB3 :\ &97 - ASC
EQUW LA8A1 :\ &98 - ASN
EQUW LA8C3 :\ &99 - ATN
EQUW LAAD7 :\ &9A - BGET
EQUW LA90E :\ &9B - COS
EQUW LAE25 :\ &9C - COUNT
EQUW LA9D8 :\ &9D - DEG
EQUW LAE35 :\ &9E - ERL
EQUW LAE3B :\ &9F - ERR
EQUW LAB05 :\ &A0 - EVAL
EQUW LA9DF :\ &A1 - EXP
EQUW LAAC5 :\ &A2 - EXT
EQUW LABE8 :\ &A3 - FALSE
EQUW LB017 :\ &A4 - FN
EQUW LAE3F :\ &A5 - GET
EQUW LABC2 :\ &A6 - INKEY
EQUW LAC36 :\ &A7 - INSTR(
EQUW LAB8A :\ &A8 - INT
EQUW LAE11 :\ &A9 - LEN
EQUW LA746 :\ &AA - LN
EQUW LA9CF :\ &AB - LOG
EQUW LAA93 :\ &AC - NOT
EQUW LAAE7 :\ &AD - OPENUP
EQUW LAAE3 :\ &AE - OPENOUT
EQUW LAAFF :\ &AF - PI
EQUW LAC0E :\ &B0 - POINT(
EQUW LAAA3 :\ &B1 - POS
EQUW LA9C8 :\ &B2 - RAD
EQUW LAA73 :\ &B3 - RND
EQUW LABF5 :\ &B4 - SGN
EQUW LA90D :\ &B5 - SIN
EQUW LA7B5 :\ &B6 - SQR
EQUW LA59B :\ &B7 - TAN
EQUW LADF9 :\ &B8 - TO
EQUW LABDB :\ &B9 - TRUE
EQUW LAAA9 :\ &BA - USR
EQUW LAB49 :\ &BB - VAL
EQUW LAABC :\ &BC - VPOS
EQUW LB22F :\ &BD - CHR$
EQUW LAE69 :\ &BE - GET$
EQUW LAEB3 :\ &BF - INKEY$
EQUW LAE73 :\ &C0 - LEFT$(
EQUW LAEC5 :\ &C1 - MID$(
EQUW LAE74 :\ &C2 - RIGHT$(
EQUW LAF1C :\ &C3 - STR$(
EQUW LAF47 :\ &C4 - STRING$(
EQUW LABCF :\ &C5 - EOF
EQUW L9489 :\ &C6 - AUTO
EQUW L9317 :\ &C7 - DELETE
EQUW L8F20 :\ &C8 - LOAD
EQUW LB3DD :\ &C9 - LIST
EQUW L8F7D :\ &CA - NEW
EQUW L8F00 :\ &CB - OLD
EQUW L9384 :\ &CC - RENUMBER
EQUW LBE55 :\ &CD - SAVE
EQUW LB393 :\ &CE - EDIT
EQUW LBE97 :\ &CF - PTR=
EQUW L9634 :\ &D0 - PAGE=
EQUW L9679 :\ &D1 - TIME=
EQUW L9620 :\ &D2 - LOMEM=
EQUW L960F :\ &D3 - HIMEM=
EQUW LB2C8 :\ &D4 - SOUND
EQUW LBEBD :\ &D5 - BPUT
EQUW L92BE :\ &D6 - CALL
EQUW L8EFB :\ &D7 - CHAIN
EQUW L963E :\ &D8 - CLEAR
EQUW LBEAE :\ &D9 - CLOSE
EQUW L97E0 :\ &DA - CLG
EQUW L97E7 :\ &DB - CLS
EQUW L8FAE :\ &DC - DATA
EQUW L8FAE :\ &DD - DEF
EQUW L9534 :\ &DE - DIM
EQUW L97A6 :\ &DF - DRAW
EQUW L8F25 :\ &E0 - END
EQUW L9B9A :\ &E1 - ENDPROC
EQUW LB2EC :\ &E2 - ENVELOPE
EQUW LB618 :\ &E3 - FOR
EQUW LB6D9 :\ &E4 - GOSUB
EQUW LB71D :\ &E5 - GOTO
EQUW L9741 :\ &E6 - GCOL
EQUW L9C08 :\ &E7 - IF
EQUW LB8B6 :\ &E8 - INPUT
EQUW L904A :\ &E9 - LET
EQUW L9703 :\ &EA - LOCAL
EQUW L975F :\ &EB - MODE
EQUW L97A2 :\ &EC - MOVE
EQUW LB4F1 :\ &ED - NEXT
EQUW LB75B :\ &EE - ON
EQUW L980D :\ &EF - VDU
EQUW L97B1 :\ &F0 - PLOT
EQUW L918D :\ &F1 - PRINT
EQUW L96E4 :\ &F2 - PROC
EQUW LB97D :\ &F3 - READ
EQUW L8FAE :\ &F4 - REM
EQUW LBA58 :\ &F5 - REPEAT
EQUW L97F4 :\ &F6 - REPORT
EQUW LB94D :\ &F7 - RESTORE
EQUW LB707 :\ &F8 - RETURN
EQUW L8F12 :\ &F9 - RUN
EQUW L9086 :\ &FA - STOP
EQUW L9755 :\ &FB - COLOUR
EQUW L9646 :\ &FC - TRACE
EQUW LBA17 :\ &FD - UNTIL
EQUW LB317 :\ &FE - WIDTH
EQUW LBE87 :\ &FF - OSCLI

\ ASSEMBLER PACKED MNEMONIC TABLE
\ ===============================
.L884D
EQUB &4B:EQUB &83:EQUB &84:EQUB &89
EQUB &96:EQUB &B8:EQUB &B9:EQUB &D8
EQUB &D9:EQUB &F0:EQUB &01:EQUB &10
EQUB &81:EQUB &90:EQUB &89:EQUB &93
EQUB &A3:EQUB &A4:EQUB &A9:EQUB &38
EQUB &39:EQUB &78:EQUB &01:EQUB &13
EQUB &21:EQUB &A1:EQUB &C1:EQUB &19
EQUB &18:EQUB &99:EQUB &98:EQUB &63
EQUB &73:EQUB &B1:EQUB &A9:EQUB &C5
EQUB &0C:EQUB &C3:EQUB &D3:EQUB &41
EQUB &C4:EQUB &F2:EQUB &41:EQUB &83
EQUB &B0:EQUB &81:EQUB &43:EQUB &6C
EQUB &72:EQUB &EC:EQUB &F2:EQUB &A3
EQUB &C3:EQUB &92:EQUB &9A:EQUB &18
EQUB &19:EQUB &62:EQUB &42:EQUB &34
EQUB &B0:EQUB &72:EQUB &98:EQUB &99
EQUB &81:EQUB &98:EQUB &99:EQUB &14

.L8891
EQUB &35:EQUB &0A:EQUB &0D:EQUB &0D
EQUB &0D:EQUB &0D:EQUB &10:EQUB &10
EQUB &25:EQUB &25:EQUB &39:EQUB &41
EQUB &41:EQUB &41:EQUB &41:EQUB &4A
EQUB &4A:EQUB &4C:EQUB &4C:EQUB &4C
EQUB &50:EQUB &50:EQUB &52:EQUB &53
EQUB &53:EQUB &53:EQUB &10:EQUB &25
EQUB &41:EQUB &41:EQUB &41:EQUB &41
EQUB &08:EQUB &08:EQUB &08:EQUB &09
EQUB &09:EQUB &0A:EQUB &0A:EQUB &0A
EQUB &0A:EQUB &05:EQUB &15:EQUB &3E
EQUB &04:EQUB &0D:EQUB &30:EQUB &4C
EQUB &06:EQUB &32:EQUB &49:EQUB &49
EQUB &10:EQUB &25:EQUB &0D:EQUB &4E
EQUB &0E:EQUB &0E:EQUB &52:EQUB &52
EQUB &09:EQUB &29:EQUB &2A:EQUB &30
EQUB &30:EQUB &4E:EQUB &4E:EQUB &4E
EQUB &3E:EQUB &16:EQUB &00

\ ASSEMBLER OPCODE TABLE
\ ======================
.L88D8
CLC:CLD:CLI:CLV
DEX:DEY:INX:INY
NOP:PHA:PHP:PLA
PLP:RTI:RTS:SEC
SED:SEI:TAX:TAY
TSX:TXA:TXS:TYA
DEC A:INC A
PHY:PHX:PLY:PLX

EQUB &90:EQUB &B0 :\ BCC, BCS
EQUB &F0:EQUB &30 :\ BEQ, BMI
EQUB &D0:EQUB &10 :\ BNE, BPL
EQUB &50:EQUB &70 :\ BVC, BVS
EQUB &80          :\ BRA

.L88FF
EQUB &21:EQUB &41 :\ AND, EOR
EQUB &01:EQUB &61 :\ ORA, ADC
EQUB &C1:EQUB &A1 :\ CMP, LDA
EQUB &E1          :\ SBC

\ &8906
EQUB &06:EQUB &46 :\ ASL, LSR
EQUB &26:EQUB &66 :\ ROL, ROR
EQUB &C6:EQUB &E6 :\ DEC, INC
EQUB &9C:EQUB &9C :\ STZ, CLR

\ &890E
EQUB &E0:EQUB &C0 :\ CPX, CPY
EQUB &00:EQUB &10 :\ BRK, BPL
EQUB &24:EQUB &4C :\ BIT, JMP
EQUB &20:EQUB &A2 :\ JSR, LDX
EQUB &A0:EQUB &81 :\ LDY, STA
EQUB &86:EQUB &84 :\ STX, STY

.L891A
DEC A
STA &28
JMP L900B

.L8920
JSR L8EE0
EOR #&5D
BEQ L891A
JSR L9BBC
.L892A
DEC &0A
JSR L89EB
DEC &0A
LDA &28
LSR A
BCC L89AE
LDA &1E
ADC #&04
STA &3F
LDA &38
JSR LBD6C
LDA &37
JSR LBD8F
LDX #&FC
LDY &39
BPL L894E
LDY &36
.L894E
STY &38
BEQ L896B
LDY #&00
.L8954
INX
BNE L8961
JSR LBA92
LDX &3F
JSR LBDBF
LDX #&FD
.L8961
LDA (&3A),Y
JSR LBD8F
INY
DEC &38
BNE L8954
.L896B
TXA
TAY
.L896D
INY
.L896E
BEQ L8977
LDX #&03
JSR LBDBF
BRA L896D

.L8977
LDX #&0A
LDA (&0B)
CMP #&2E:BNE L898E
.L897F
JSR LBD37
DEX
BNE L8987
LDX #&01
.L8987
INY
LDA (&0B),Y
CPY &4E:BNE L897F
.L898E
JSR LBDBF
DEY
.L8992
INY
CMP (&0B),Y
BEQ L8992
.L8997
LDA (&0B),Y
CMP #&3A:BEQ L89A7
CMP #&0D:BEQ L89AB
.L89A1
JSR LBD37
INY
BRA L8997

.L89A7
CPY &0A:BCC L89A1
.L89AB
JSR LBA92
.L89AE
LDY &0A
DEY
.L89B1
INY
LDA (&0B),Y
CMP #&3A:BEQ L89BC
CMP #&0D:BNE L89B1
.L89BC
JSR L9BA8
LDA (&0B)
CMP #&3A:BEQ L89D1
LDA &0C
CMP #&07:BNE L89CE
JMP L8F86

.L89CE
JSR L9BDE
.L89D1
JMP L8920

.L89D4
JSR L98AE
BEQ L8A35
BCS L8A35
JSR LBC43
JSR LAD84
STA &27
JSR LB32B
JSR L9275
STY &4E
.L89EB
JSR L8EE0
LDY #&00
STZ &3D
CMP #&3A:BEQ L8A5E
CMP #&0D:BEQ L8A5E
CMP #&5C:BEQ L8A5E
CMP #&2E:BEQ L89D4
DEC &0A
LDX #&03
.L8A06
LDY &0A
INC &0A
LDA (&0B),Y
BMI L8A38
CMP #&20:BEQ L8A22
LDY #&05
ASL A
ASL A
ASL A
.L8A17
ASL A
ROL &3D
ROL &3E
DEY
BNE L8A17
DEX
BNE L8A06
.L8A22
LDX #&45
LDA &3D
.L8A26
CMP L884D-1,X
BNE L8A32
LDY L8891,X
CPY &3E:BEQ L8A53
.L8A32
DEX
BNE L8A26
.L8A35
JMP L9B69

.L8A38
LDX #&29
CMP #tknAND:BEQ L8A53
INX
CMP #tknEOR:BEQ L8A53
INX
CMP #tknOR:BNE L8A35
INC &0A
INY
LDA (&0B),Y
AND #&DF
CMP #&41:BNE L8A35
.L8A53
LDA L88FF-&29,X
STA &29
LDY #&01
CPX #&20:BCS L8AA6
.L8A5E
LDA &0440
STA &37
STY &39
LDX &28
CPX #&04:LDX &0441
STX &38
BCC L8A76
LDA &043C
LDX &043D
.L8A76
STA &3A
STX &3B
TYA
BEQ L8AA5
BPL L8A83
LDY &36
BEQ L8AA5
.L8A83
DEY
LDA &0029,Y
BIT &39
BPL L8A8E
LDA &0600,Y
.L8A8E
STA (&3A),Y
INC &0440
BNE L8A98
INC &0441
.L8A98
BCC L8AA2
INC &043C
BNE L8AA2
INC &043D
.L8AA2
TYA
BNE L8A83
.L8AA5
RTS

.L8AA6
CPX #&29:BCS L8AE6
JSR L926F
CLC:LDA &2A
SBC &0440:TAY
LDA &2B:SBC &0441
CPY #&01:DEY
SBC #&00:BEQ L8ADB
INC A:BNE L8AC6
TYA:BMI L8ADF
.L8AC6
LDA &28:AND #&02:BEQ L8ADE
BRK:EQUB &01:EQUS "Out of range":BRK

.L8ADB
TYA:BMI L8AC6
.L8ADE
TAY
.L8ADF
STY &2A
.L8AE1
LDY #&02
JMP L8A5E

.L8AE6
CPX #&30:BCS L8B00
JSR L8CDF:BNE L8B07
JSR L8CCC
.L8AF2
JSR L926F
.L8AF5
LDA &2B
.L8AF7
BEQ L8AE1
.L8AF9
BRK:EQUB &02:EQUS "Byte":BRK

.L8B00
CPX #&41:BNE L8B67
JSR L8EE0
.L8B07
CMP #&28:BNE L8B44
JSR L926F
JSR L8EE0
CMP #&29:BNE L8B2C
JSR L8CC9
JSR L8CE5
BEQ L8B21
INC &29
BRA L8AF5

.L8B21
JSR L8EE0
AND #&DF
CMP #&59:BEQ L8AF5
BRA L8B3C

.L8B2C
CMP #&2C:BNE L8B3C
JSR L8CD7
BNE L8B3C
JSR L8EE0
CMP #&29:BEQ L8AF5
.L8B3C
BRK:EQUB &03:EQUS "Index":BRK

.L8B44
JSR L926D
JSR L8CE5
BNE L8B5E
JSR L8CC9
JSR L8CD7
BEQ L8B5E
CMP #&59:BNE L8B3C
.L8B58
JSR L8CCC
JMP L8BFE

.L8B5E
JSR L8CCF
.L8B61
LDA &2B
BNE L8B58
BRA L8AF7

.L8B67
CPX #&36:BCS L8BA1
JSR L8EE0
AND #&DF
CMP #ASC"A":BEQ L8B86
.L8B74
JSR L926D
JSR L8CE5
BNE L8B61
JSR L8CC9
JSR L8CD7
BEQ L8B61
.L8B84
BRA L8B3C

.L8B86
INY
LDA (&0B),Y
JSR L8D84
BCS L8B74
LDY #&16
CPX #&34:BCC L8B9A
BNE L8B98
LDY #&36
.L8B98
STY &29
.L8B9A
JSR L8CCF
LDY #&01
BRA L8C00

.L8BA1
CPX #&38:BCS L8BCA
JSR L926F
LDY #&03
LDX #&01
LDA &2B
BNE L8BB7
LDX #&0F
LDA #&64
STA &29
DEY
.L8BB7
PHY
JSR L8CE5
BNE L8BC7
JSR L8CD7
BNE L8B84
TXA
ADC &29
STA &29
.L8BC7
PLY
BRA L8C00

.L8BCA
CPX #&3C:BCS L8BEA
CPX #&3A:BCS L8BD9
JSR L8CDF
BEQ L8BE7
DEC &0A
.L8BD9
JSR L926F
.L8BDC
BRA L8B5E

.L8BDE
JSR L8CDF
BNE L8B74
LDY #&89
STY &29
.L8BE7
JMP L8AF2

.L8BEA
BEQ L8BDE
CPX #&3E:BEQ L8BFB
BCS L8C29
JSR L8EE0
CMP #&28:BEQ L8C03
DEC &0A
.L8BFB
JSR L926F
.L8BFE
LDY #&03
.L8C00
JMP L8A5E

.L8C03
JSR L8CC9
JSR L8CC9
JSR L926F
JSR L8EE0
CMP #&29:BEQ L8BFE
CMP #&2C:BNE L8C26
JSR L8CC9
JSR L8CD7
BNE L8C26
JSR L8EE0
CMP #&29:BEQ L8BFE
.L8C26
JMP L8B3C

.L8C29
CPX #&44:BCS L8C7A
LDA &3D
EOR #&01
AND #&1F
PHA
CPX #&41:BCS L8C59
JSR L8CDF
BNE L8C40
PLA
BRA L8BE7

.L8C40
JSR L926D
PLA
STA &37
JSR L8CE5
BNE L8BDC
JSR L8EE0
AND #&1F
CMP &37:BNE L8C26
JSR L8CC9
BRA L8BDC

.L8C59
JSR L926F
PLA
STA &37
JSR L8CE5
BNE L8C77
JSR L8EE0
AND #&1F
CMP &37:BNE L8C26
JSR L8CC9
LDA &2B
BEQ L8C77
JMP L8AF9

.L8C77
JMP L8B61

.L8C7A
BNE L8C87
JSR L926F
LDA &2A
STA &28
LDY #&00
BRA L8CB1

.L8C87
LDX #&01
LDY &0A
INC &0A
LDA (&0B),Y
AND #&DF
CMP #&42:BEQ L8CA7
INX
CMP #&57:BEQ L8CA7
LDX #&04
CMP #&44:BEQ L8CA7
CMP #&53:BEQ L8CB7
JMP L9B69

.L8CA7
PHX
JSR L926F
LDX #&29
JSR LBDC6
PLY
.L8CB1
JMP L8A5E

.L8CB4
JMP L9092

.L8CB7
LDA &28
PHA
JSR L9D2F
BNE L8CB4
PLA
STA &28
JSR L9275
LDY #&FF
BRA L8CB1

.L8CC9
JSR L8CCC
.L8CCC
JSR L8CCF
.L8CCF
LDA &29
CLC
ADC #&04
STA &29
RTS

.L8CD7
JSR L8EE0
AND #&DF
CMP #&58
RTS

.L8CDF
JSR L8EE0
CMP #&23
RTS

.L8CE5
JSR L8EE0
CMP #&2C
RTS

.L8CEB
STA (&37)
CLC
TYA
ADC &37
STA &39
LDY #&00
TYA
ADC &38
STA &3A
.L8CFA
INY
LDA (&39),Y
STA (&37),Y
CMP #&0D:BNE L8CFA
RTS

.L8D04
AND #&0F
STA &3D
LDX #&00
LDY #&00
.L8D0C
INY
LDA (&37),Y
JSR L8D94
BCC L8D42
AND #&0F
PHA
STX &3E
LDA &3D
ASL A
ROL &3E
BMI L8D3F
ASL A
ROL &3E
BMI L8D3F
ADC &3D
STA &3D
TXA
ADC &3E
ASL &3D
ROL A
BMI L8D3F
BCS L8D3F
TAX
PLA
ADC &3D
STA &3D
BCC L8D0C
INX
BPL L8D0C
PHA
.L8D3F
PLA
SEC
RTS

.L8D42
DEY
LDA #&8D
JSR L8CEB
LDA &37
STA &39
LDA &38
STA &3A
JSR L8DA2
JSR L8DA2
JSR L8DA2
.L8D59
LDA (&39),Y
STA (&37),Y
DEY
BNE L8D59
LDY #&03
.L8D62
TXA
ORA #&40
STA (&39),Y
DEY
LDA &3D
AND #&3F
ORA #&40
STA (&39),Y
DEY
LDA #&3F
TRB &3D
TXA
AND #&C0
LSR A
LSR A
ORA &3D
LSR A
LSR A
EOR #&54
STA (&39),Y
.L8D82
CLC
RTS

.L8D84
CMP #&7B:BCS L8D82
CMP #&5F:BCS L8D9A
CMP #&5B:BCS L8D82
CMP #&41:BCS L8D9A
.L8D94
CMP #&3A:BCS L8D82
CMP #&30
.L8D9A
RTS

.L8D9B
CMP #&2E:BNE L8D94
RTS

.L8DA0
LDA (&37)
.L8DA2
INC &37:BNE L8DDF
INC &38:RTS

.L8DA9
JSR L8DA2
LDA (&37)
RTS

.L8DAF
JSR L8DA2           :\ Step past character
.L8DB2
LDA (&37)           :\ Get current character
CMP #&0D:BEQ L8DDF  :\ Exit with <cr>
CMP #&20:BEQ L8DAF  :\ Skip <spc>
CMP #&26:BNE L8DD0  :\ Jump if not '&'
.L8DC0
JSR L8DA9           :\ Get next character
JSR L8D94           :\ Is it a digit?
BCS L8DC0           :\ Loop back if a digit
CMP #&41:BCC L8DB2  :\ Loop back if <'A'
CMP #&47:BCC L8DC0  :\ Step to next if 'A'..'F'
.L8DD0
CMP #&22:BNE L8DE0  :\ Not quote, 
.L8DD4
JSR L8DA9           :\ Get next character
CMP #&22:BEQ L8DAF  :\ Jump back if closing quote
CMP #&0D:BNE L8DD4  :\ Loop until <cr> or quote
.L8DDF
RTS

.L8DE0
CMP #&3A:BNE L8DED
JSR L8DA2
.L8DE7
STZ &3B
.L8DE9
STZ &3C
BRA L8DB2

.L8DED
CMP #&2C:BEQ L8DAF
CMP #&2A:BNE L8E01
LDA &3B:BEQ L8DDF
.L8DF9
LDX #&FF
STX &3B
STZ &3C
BRA L8DAF

.L8E01
CMP #&2E:BEQ L8E13
JSR L8D94
BCC L8E36
LDX &3C
BEQ L8E13
JSR L8D04
BCC L8DAF
.L8E13
LDA (&37)
JSR L8D9B
BCC L8E1F
JSR L8DA2
BRA L8E13

.L8E1F
LDX #&FF
STX &3B
BRA L8DE9

.L8E25
JSR L8D84
BCC L8DF9
.L8E2A
LDA (&37)
JSR L8D84
BCC L8E1F
JSR L8DA2
BRA L8E2A

.L8E36
CMP #&41:BCC L8DF9
CMP #&58:BCS L8E25
LDX #L8456 AND 255:STX &39  :\ Point to token table
LDX #L8456 DIV 256:STX &3A
.L8E46
LDY #&00
CMP (&39):BCC L8E2A
BNE L8E5D
.L8E4E
INY
LDA (&39),Y:BMI L8E84
CMP (&37),Y:BEQ L8E4E
LDA (&37),Y
CMP #&2E:BEQ L8E68
.L8E5D
INY
LDA (&39),Y
BPL L8E5D
CMP #&FE:BNE L8E75
BCS L8E2A
.L8E68
INY
.L8E69
LDA (&39),Y
BMI L8E84
INC &39
BNE L8E69
INC &3A
BRA L8E69

.L8E75
SEC
INY
TYA
ADC &39
STA &39
BCC L8E80
INC &3A
.L8E80
LDA (&37)
BRA L8E46

.L8E84
TAX
INY
LDA (&39),Y
STA &3D
DEY
LSR A
BCC L8E95
LDA (&37),Y
JSR L8D84
BCS L8E2A
.L8E95
TXA
BIT &3D
BVC L8EA0
LDX &3B
BNE L8EA0
ADC #&40
.L8EA0
DEY
JSR L8CEB
LDX #&FF
LDA &3D
LSR A
LSR A
BCC L8EB0
STX &3B
STZ &3C
.L8EB0
LSR A
BCC L8EB7
STZ &3B
STZ &3C
.L8EB7
LSR A
BCC L8ECA
PHA
LDY #&01
.L8EBD
LDA (&37),Y
JSR L8D84
BCC L8EC9
JSR L8DA2
BRA L8EBD

.L8EC9
PLA
.L8ECA
LSR A
BCC L8ECF
STX &3C
.L8ECF
LSR A
BCS L8EDF
JMP L8DAF

.L8ED5
LDY &1B
INC &1B
LDA (&19),Y
CMP #&20:BEQ L8ED5
.L8EDF
RTS

.L8EE0
LDY &0A
INC &0A
LDA (&0B),Y
CMP #&20:BEQ L8EE0
.L8EEA
RTS

.L8EEB
JSR L8ED5
CMP #&2C
RTS

.L8EF1
JSR L8EEB
BEQ L8EEA
.L8EF6
BRK:EQUB &05:EQUS CHR$tknMissing+",":BRK

.L8EFB :\ CHAIN
JSR LBDD7
EQUB &80
EQUB &15

.L8F00 :\ OLD
JSR L9BA6
LDA &18
STA &38
STZ &37
LDA #&00
STA (&37),Y
JSR LBDE5
BRA L8F83

.L8F12 :\ RUN
JSR L9BA6
JSR LBBAC
LDA &18
STA &0C
STZ &0B
BRA L8F97

.L8F20 :\ LOAD
JSR LBDD7
BRA L8F83

.L8F25 :\ END
JSR L9BA6
JSR LBDE5
BRA L8F86

.L8F2D
LDA #&F2
JSR LAE18
JSR LBEE2
TAX
JSR LBEE2
STA &2B
STX &2A
LDX #&14
.L8F3F
DEX
BEQ L8F80
JSR LBEE2
CMP #&0D:BEQ L8F80
CMP #&40:BNE L8F3F
JSR LBEE2
CMP #&0D:BNE L8F80
JSR LBEFE
.L8F57
LDY #&00
STZ &0B
LDA #&07
STA &0C
.L8F5F
LDA (&00)
BEQ L8F83
STA (&0B),Y
INY
BEQ L8F80
INC &00
BNE L8F6E
INC &01
.L8F6E
CMP #&0D:BNE L8F5F
LDA &01
CMP &07:BCS L8F83
JSR LBAEB
BRA L8F57

.L8F7D :\ NEW
JSR L9BA6
.L8F80
JSR LBEFE
.L8F83
JSR LBBAC
.L8F86
LDY #&07:STY &0C:STZ &0B     :\ PtrA=&0700 - input buffer
JSR LB2A6                    :\ ON ERROR OFF
LDA #&3E:JSR &FFEE:JSR LBA74 :\ Print '>' prompt, read input to buffer at &0700
.L8F97
LDX #&FF:TXS:JSR LB2A6       :\ Clear machine stack, ON ERROR OFF
JSR LBAEB:BCS L8F83          :\ Tokenise, enter into program, loop back if program line
BRA L901E                    :\ Jump to execute immediate line

.L8FA4
JSR L9BBC
LDX &0B:LDY &0C
JSR OS_CLI

.L8FAE :\ DATA, DEF, REM
LDA #&0D
LDY &0A
DEY
.L8FB3
INY
CMP (&0B),Y:BNE L8FB3
.L8FB8
JSR L9BBC
BRA L8FC1

.L8FBD
CMP #&0D:BNE L8FAE
.L8FC1
LDA &0C
CMP #&07:BEQ L8F86
LDY #&01
LDA (&0B),Y
BMI L8F86
LDX &20
BEQ L8FDB
STA &2B
INY
LDA (&0B),Y
STA &2A
JSR L9C4B
.L8FDB
LDY #&04
STY &0A
BRA L900D

.L8FE1
LDA #&03
STA &28
JMP L8920

.L8FE8
JMP LBE93

]:OS."SAVE BAS4A "+STR$~mcode%+" "+STR$~O%+" "+STR$~Q%+" "+STR$~Q%:O%=mcode%:Q%=P%-R%
[OPT P*3+4

.L8FEB
LDY &0A
DEY
LDA (&0B),Y
CMP #ASC"*":BEQ L8FA4
CMP #ASC"[":BEQ L8FE1
CMP #tknEXT:BEQ L8FE8
CMP #ASC"=":BEQ L9060
.L9000
DEC &0A
.L9002
JSR L9BA6
.L9005
LDA (&0B)
CMP #&3A:BNE L8FBD
.L900B
LDY &0A
.L900D
INC &0A
LDA (&0B),Y
CMP #&20:BEQ L900B
CMP #&CF:BCC L9025        :\ Not command token, try variable assignment

\ Dispatch function/command
\ -------------------------
.L9019
ASL A:TAX:JMP (L8769-&1C,X) :\ Index into dispatch table and jump to routine

\ Command entered at immediate prompt
\ -----------------------------------
.L901E
JSR L8EE0                 :\ Skip spaces at PtrA
CMP #&C6:BCS L9019        :\ If command token, jump to execute command
                          :\ Not command token, try variable assignment
.L9025
LDX &0B
STX &19
LDX &0C
STX &1A
STY &1B
JSR L9909
BNE L904F
BCS L8FEB
STX &1B
JSR L9B86
JSR L9854
LDX #&05
CPX &2C:BNE L9045
INX
.L9045
JSR L9883
DEC &0A
.L904A :\ LET
JSR L98AE
BEQ L9083
.L904F
BCC L9072
JSR LBC26
JSR L9B52
LDA &27
BNE L9092
JSR L90AB
BRA L9005

.L9060
TSX
CPX #&FC:BCS L908C
LDA &01FF
CMP #tknFN:BNE L908C
JSR L9D2F
JMP L9B91

.L9072
LDA &2A:PHA
LDA &2B:PHA
LDA &2C:PHA
JSR L9B52
JSR LB32B
BRA L9005

.L9083
JMP L9B69

.L9086 :\ STOP
JSR L9BA6
BRK:EQUB &00:EQUS CHR$tknSTOP
.L908C
BRK:EQUB &07:EQUS "No "+CHR$tknFN
.L9092
BRK:EQUB &06:EQUS "Type mismatch"
.L90A1
BRK:EQUB &00:EQUS "No room":BRK

.L90AB
JSR LBCE6
.L90AE
LDA &2C
CMP #&80:BEQ L912C
LDY #&02
LDA (&2A),Y
CMP &36:BCS L910E
LDA &02:STA &2C
LDA &03:STA &2D
LDA &36
CMP #&08:BCC L90D0
ADC #&07:BCC L90D0
LDA #&FF
.L90D0
CLC
PHA
TAX
LDA (&2A),Y
ADC (&2A)
EOR &02
BNE L90EA
DEY
ADC (&2A),Y
EOR &03
BNE L90EA
STA &2D
TXA
INY
SEC
SBC (&2A),Y
TAX
.L90EA
TXA:CLC:ADC &02:TAY
LDA &03:ADC #&00:TAX
CPY &04:SBC &05:BCS L90A1
STY &02:STX &03
PLA
LDY #&02
STA (&2A),Y
DEY
LDA &2D
BEQ L910E
STA (&2A),Y
LDA &2C
STA (&2A)
.L910E
LDY #&03
LDA &36:STA (&2A),Y
BEQ L912B
LDY #&01
LDA (&2A),Y:STA &2D
LDA (&2A):STA &2C
DEY
.L9121
LDA &0600,Y:STA (&2C),Y
INY:CPY &36:BNE L9121
.L912B
RTS

.L912C
JSR LBE2B
CPY #&00:BEQ L913E
.L9133
LDA &0600,Y:STA (&2A),Y
DEY:BNE L9133
LDA &0600
.L913E
STA (&2A)
RTS

.L9141
JSR LBA3C
.L9144
PHY
JSR L8EEB
BNE L9187
JSR L9D3B
JSR LA511
PLY
LDA &27
JSR OSBPUT
TAX
BEQ L9174
BMI L9167
LDX #&03
.L915D
LDA &2A,X
JSR OSBPUT
DEX
BPL L915D
BRA L9144

.L9167
LDX #&04
.L9169
LDA &046C,X
JSR OSBPUT
DEX
BPL L9169
BRA L9144

.L9174
LDA &36
JSR OSBPUT
TAX
BEQ L9144
.L917C
LDA &05FF,X
JSR OSBPUT
DEX
BNE L917C
BRA L9144

.L9187
PLA
STY &0A
JMP L9002

.L918D :\ PRINT
JSR L8CDF
BEQ L9141
DEC &0A
BRA L91AB

.L9196
LDA &0400
BEQ L91AB
.L919B
LDA &1E
.L919D
BEQ L91AB
SBC &0400
BCS L919D
TAY
.L91A5
JSR LBD92
INY
BNE L91A5
.L91AB
CLC
LDA &0400
STA &14
.L91B1
ROR &15
.L91B3
JSR L8EE0
CMP #&3A:BEQ L91C2
CMP #&0D:BEQ L91C2
CMP #&8B:BNE L91DB
.L91C2
JSR LBA92
.L91C5
JMP L9000

.L91C8
STZ &14
STZ &15
JSR L8EE0
CMP #&3A:BEQ L91C5
CMP #&0D:BEQ L91C5
CMP #&8B:BEQ L91C5
.L91DB
CMP #&7E:BEQ L91B1
CMP #&2C:BEQ L9196
CMP #&3B:BEQ L91C8
JSR L927A
BCC L91B3
LDA &14:PHA
LDA &15:PHA
DEC &1B
JSR L9D3B
PLA:STA &15
PLA:STA &14
LDA &1B:STA &0A
TYA
BEQ L9217
JSR LA118
LDA &14
SEC
SBC &36
BCC L9217
BEQ L9217
TAY
.L9211
JSR LBD92
DEY
BNE L9211
.L9217
LDA &36
BEQ L91B3
LDY #&00
.L921D
LDA &0600,Y
JSR LBD98
INY
CPY &36:BNE L921D
BRA L91B3

.L922A
JMP L8EF6

.L922D
LDA &2A:PHA
JSR L96A7
LDA #&1F:JSR OSWRCH
PLA:JSR OSWRCH
JSR L9840
BRA L926A

.L9241
JSR L96AF
JSR L8EEB
BEQ L922D
CMP #&29:BNE L922A
LDA &2A
SBC &1E
BEQ L926A
TAX
BCS L9262
JSR LBA92
BRA L925E

.L925B
JSR L96B4
.L925E
LDX &2A
BEQ L926A
.L9262
JSR LBDBF
BRA L926A

.L9267
JSR LBA92
.L926A
CLC
BRA L9275

.L926D
DEC &0A
.L926F
JSR L9D2F
JSR L96BF
.L9275
LDY &1B
STY &0A
RTS

.L927A
LDX &0B:STX &19
LDX &0C:STX &1A
LDX &0A:STX &1B
CMP #&27:BEQ L9267
CMP #&8A:BEQ L9241
CMP #&89:BEQ L925B
.L9292
SEC
.L9293
RTS

.L9294
BRK:EQUB &09:EQUS CHR$tknMissing+CHR$34:BRK

.L9299
JSR L8EE0
JSR L927A
BCC L9293
CMP #&22:BNE L9292
.L92A5
INY
LDA (&19),Y
CMP #&0D:BEQ L9294
CMP #&22:BNE L92B9
INY
STY &1B
LDA (&19),Y
CMP #&22:BNE L926A
.L92B9
JSR LBD98
BRA L92A5

.L92BE :\ CALL
JSR L9D2F
JSR L96BC
JSR LBC26
STZ &0600
LDY #&00
.L92CC
PHY
JSR L8EEB
BNE L92F1
LDY &1B
JSR L9901
BEQ L9301
PLY
INY
LDA &2A
STA &0600,Y
INY
LDA &2B
STA &0600,Y
INY
LDA &2C
STA &0600,Y
INC &0600
BRA L92CC

.L92F1
PLY
DEC &1B
JSR L9B96
JSR LBCE6
JSR L9304
CLD
JMP L9005

.L9301
JMP LAD8C

.L9304
LDA &040C
LSR A
LDA &0404
LDX &0460
LDY &0464
JMP (&002A)

.L9314
JMP L9B69

.L9317 :\ DELETE
JSR L9B1E
BCC L9314
JSR LBC26
JSR L8CE5
BNE L9314
JSR L9B1E
BCC L9314
JSR L9BA6
LDA &2A
STA &39
LDA &2B
STA &3A
JSR LBCE6
.L9337
JSR LBA98
JSR L9BCA
JSR LBEEF
LDA &39:CMP &2A
LDA &3A:SBC &2B
BCS L9337
JMP L8F83

.L934D
LDA #&0A
JSR LAE18
JSR L9B1E
JSR LBC26
LDA #&0A
JSR LAE18
JSR L8CE5
BNE L9370
JSR L9B1E
LDA &2B
BNE L93BC
LDA &2A
BEQ L93BC
JMP L9BA6

.L9370
JMP L9BB0

.L9373
LDA &12
STA &3B
LDA &13
STA &3C
.L937B
LDA &18
STA &38
LDY #&01
STY &37
RTS

.L9384 :\ RENUMBER
JSR L934D
LDX #&39
JSR LBD08
JSR LBDE5
JSR L9373
.L9392
LDA (&37)
BMI L93C4
STA (&3B)
LDA (&37),Y
STA (&3B),Y
SEC
TYA
ADC &3B
STA &3B
BCC L93A6
INC &3C
.L93A6
CMP &06:LDA &3C
SBC &07:BCS L93B3
JSR L947A
BRA L9392

.L93B3
BRK:EQUB &00:EQUS CHR$tknRENUMBER+" space"
.L93BC
BRK:EQUB &00:EQUS "Silly":BRK

.L93C4
JSR L937B
.L93C7
LDA (&37):BMI L93E7
LDA &3A:STA (&37)
LDA &39:STA (&37),Y
CLC:LDA &39:ADC &2A:STA &39
LDA #&00:ADC &3A:AND #&7F:STA &3A
JSR L947A
BRA L93C7

.L93E7
LDA &18:STA &0C:STZ &0B
.L93ED
LDY #&01
LDA (&0B),Y
BMI L945A
LDY #&04
STZ &2C
.L93F7
LDA (&0B),Y
LDX &2C
BNE L9405
CMP #&8D:BEQ L941B
CMP #&F4:BEQ L9412
.L9405
INY
CMP #&22:BNE L940E
EOR &2C:STA &2C
.L940E
CMP #&0D:BNE L93F7
.L9412
LDY #&03
LDA (&0B),Y
JSR L9BF4
BRA L93ED

.L941B
JSR L9B2A
JSR L9373
.L9421
LDA (&37):BMI L945C
LDA (&3B):CMP &2B:BNE L944A
LDA (&3B),Y:CMP &2A:BNE L944A
LDA (&37),Y:STA &3D
LDA (&37)
TAX
LDY &0A
DEY
LDA &0B:STA &39
LDA &0C:STA &3A
JSR L8D62
.L9446
LDY &0A
BRA L93F7

.L944A
CLC
JSR L947A
LDA &3B:ADC #&02:STA &3B
BCC L9421
INC &3C
BRA L9421

.L945A
BRA L94B6

.L945C
JSR LBECF
EQUS "Failed at "
LDA (&0B),Y:STA &2B:INY
LDA (&0B),Y:STA &2A
JSR LA081
JSR LBA92
BRA L9446

.L947A
INY
LDA (&37),Y
LDY #&01
ADC &37
STA &37
BCC L9488
INC &38
CLC
.L9488
RTS

.L9489 :\ AUTO
JSR L934D
LDA &2A
PHA
JSR LBCE6
.L9492
JSR LBC26
JSR LA085
JSR LBA74
JSR LBCE6
JSR L8DE7
LDY #&00
JSR LBB08
JSR LBBAC
PLA
PHA
CLC
ADC &2A
STA &2A
BCC L9492
INC &2B
BPL L9492
.L94B6
JMP L8F83

.L94B9
JMP L9605

.L94BC
DEC &0A
JSR L98AE
BEQ L952C
BCS L952C
JSR LBC43
JSR L96AF
JSR LBEEF
LDA &2D
ORA &2C
BNE L952C
CLC
LDA &2A:ADC &02:TAY
LDA &2B:ADC &03:TAX
CPY &04:SBC &05
BCS L94B9
LDA &02:STA &2A
LDA &03:STA &2B
STY &02:STX &03
LDA #&40
STA &27
JSR LB32B
JSR L9275
.L94FB
JSR L8CE5
BEQ L9534
JMP L9000

.L9503
LDX #&3F
JSR LBD08
.L9508
LDX #&00
LDY #&00
.L950C
LSR &40
ROR &3F
BCC L951D
CLC
TYA
ADC &2A
TAY
TXA
ADC &2B
TAX
BCS L952C
.L951D
ASL &2A:ROL &2B
.z%
BCS L952C            :\ Added to HiBasic4
]:IFNOTfixDIM%:z%=P%-z%:P%=P%-z%:O%=O%-z%
[OPT P*3+4
LDA &3F:ORA &40:BNE L950C
STY &2A:STX &2B
RTS

.L952C
BRK:EQUB &0A:EQUS "Bad "+CHR$tknDIM:BRK

.L9534 :\ DIM
JSR L8EE0
TYA
CLC
ADC &0B
LDX &0C
BCC L9541
INX
CLC
.L9541
SBC #&00
STA &37
TXA
SBC #&00
STA &38
LDX #&05
STX &3F
LDX &0A
JSR L9AF6
CPY #&01:BEQ L952C
CMP #&28:BEQ L9570
CMP #&24:BEQ L9563
CMP #&25:BNE L956D
.L9563
DEC &3F
INY
INX
LDA (&37),Y
CMP #&28:BEQ L9570
.L956D
JMP L94BC

.L9570
INY
STX &0A
JSR L8085
.L9576
BNE L952C
JSR L9854
LDX #&01
JSR L9883
LDA &3F
PHA
LDA #&01
PHA
JSR LAE18
.L9589
JSR LBC26
JSR L926F
LDA &2B
AND #&C0
ORA &2C
ORA &2D
BNE L952C
JSR LBEEF
PLY
LDA &2A
STA (&02),Y
INY
LDA &2B
STA (&02),Y
INY
PHY
JSR L9503
JSR L8CE5
BEQ L9589
CMP #&29:BNE L9576
PLX
PLA
PHX
STA &3F
STZ &40
JSR L9508
PLA
PHA
ADC &2A
STA &2A
BCC L95C8
INC &2B
.L95C8
LDA &03
STA &38
LDA &02
STA &37
CLC
ADC &2A
TAY
LDA &2B
ADC &03
BCS L9605
TAX
CPY &04:SBC &05:BCS L9605
STY &02:STX &03
PLA:STA (&37)
ADC &37:TAY
LDA #&00
STZ &37
BCC L95F3
INC &38
.L95F3
STA (&37),Y
INY
BNE L95FA
INC &38
.L95FA
CPY &02:BNE L95F3
CPX &38:BNE L95F3
JMP L94FB

.L9605
BRK:EQUB &0B:EQUS CHR$tknDIM+" space":BRK

.L960F :\ HIMEM=
JSR L96B9
LDA &2A:STA &06
STA &04:LDA &2B
STA &07:STA &05
BRA L963B

.L9620 :\ LOMEM=
JSR L96B9
LDA &2A:STA &00
STA &02:LDA &2B
STA &01:STA &03
JSR LBBBB
BRA L963B

.L9634 :\ PAGE=
JSR L96B9
LDA &2B:STA &18
.L963B
JMP L9005

.L963E :\ CLEAR
JSR L9BA6
JSR LBBAC
BRA L963B

.L9646 :\ TRACE
JSR L9B1E
BCS L9656
CMP #&EE:BEQ L9667
CMP #&87:BEQ L9670
JSR L926F
.L9656
JSR L9BA6
LDA &2A
STA &21
LDA &2B
.L965F
STA &22
LDA #&FF
.L9663
STA &20
BRA L963B

.L9667
INC &0A
JSR L9BA6
LDA #&FF
BNE L965F
.L9670
INC &0A
JSR L9BA6
LDA #&00
BRA L9663

.L9679 :\ TIME=
INY
LDA (&0B),Y
CMP #ASC"$":BEQ L968E
JSR L96B9
STZ &2E
LDX #&2A
LDY #&00
LDA #&02
.L968B
JMP LB312

.L968E
INC &0A
JSR L9B46
LDA &27
BNE L96D7
LDA #&0F
LDY &36
STY &05FF
LDX #&FF
LDY #&05
BRA L968B

.L96A4
JSR LBC51
.L96A7
JSR LADAC
BRA L96BF

.L96AC
JSR L8EF1
.L96AF
JSR L9D3B
BRA L96BF

.L96B4
JSR LAD36
BRA L96BF

.L96B9
JSR L9B46
.L96BC
LDA &27
.L96BE
TAY
.L96BF
BEQ L96D7
BPL L96D6
.L96C3
JSR L8242
.L96C6
LDA &31:STA &2D
LDA &32:STA &2C
LDA &33:STA &2B
LDA &34:STA &2A
.L96D6
RTS

.L96D7
JMP L9092

.L96DA
JSR LAD36
.L96DD
BEQ L96D7
BMI L96D6
JMP L8185

.L96E4 :\ PROC
LDA &0B:STA &19
LDA &0C:STA &1A
LDA &0A:STA &1B
LDA #tknPROC
JSR LB019
JSR L9B96
JMP L9005

.L96FB
LDY #&03
LDA #&00
STA (&2A),Y
BEQ L971F
.L9703 :\ LOCAL
TSX
CPX #&FC:BCS L9732
JSR L98AE
BEQ L972F
JSR LB181
LDY &2C
BMI L96FB
JSR LBC43
JSR LABE8
STA &27
JSR LB32B
.L971F
TSX
INC &0106,X
LDY &1B
STY &0A
JSR L8CE5
BEQ L9703
JMP L9000

.L972F
JMP L9002

.L9732
BRK:EQUB &0C:EQUS "Not "+CHR$tknLOCAL
.L9739
BRK:EQUB &19:EQUS "Bad "+CHR$tknMODE:BRK

.L9741 :\ GCOL
JSR L926F
LDA &2A
PHA
JSR L96AC
JSR L9B96
LDA #&12
JSR OSWRCH
PLA
BRA L979B

.L9755 :\ COLOUR
JSR L926F
JSR L9BA6
LDA #&11
BRA L979B

.L975F :\ MODE
JSR L926F
JSR L9BA6
JSR LBE4B
INX
BNE L9797
INY
BNE L9797
LDA &04:CMP &06:BNE L9739
LDA &05:CMP &07:BNE L9739
LDX &2A
LDA #&85
JSR OSBYTE
CPX &02:TYA
SBC &03:BCC L9739
CPX &12:TYA
SBC &13:BCC L9739
STX &06:STX &04
STY &07:STY &05
.L9797
STZ &1E
LDA #&16
.L979B
JSR OSWRCH
LDA &2A
BRA L97EE

.L97A2 :\ MOVE
LDA #&04
BRA L97A8

.L97A6 :\ DRAW
LDA #&05
.L97A8
PHA
JSR L9D2F
JSR L96BC
BRA L97BA

.L97B1 :\ PLOT
JSR L926F
LDA &2A
PHA
JSR L96AC
.L97BA
JSR LBC26
JSR L96AC
JSR L9B96
LDA #&19
JSR OSWRCH
PLA
JSR OSWRCH
JSR LBD06
LDA &37
JSR OSWRCH
LDA &38
JSR OSWRCH
JSR L9840
LDA &2B
BRA L97EE

.L97E0 :\ CLG
JSR L9BA6
LDA #&10
BRA L97EE

.L97E7 :\ CLS
JSR L9BA6
STZ &1E
LDA #&0C
.L97EE
JSR OSWRCH
.L97F1
JMP L9005

.L97F4 :\ REPORT
JSR L9BA6
JSR LBA92
LDY #&01
.L97FC
LDA (&FD),Y
BEQ L97F1
JSR LBD37
INY
BNE L97FC
BRA L97F1

.L9808
LDA &2B
JSR OSWRCH
.L980D :\ VDU
JSR L8EE0
.L9810
CMP #&3A:BEQ L983D
CMP #&0D:BEQ L983D
CMP #&8B:BEQ L983D
DEC &0A
JSR L926F
JSR L9840
JSR L8CE5
BEQ L980D
CMP #&3B:BEQ L9808
CMP #&7C:BNE L9810
LDA #&00
LDY #&09
.L9835
JSR OSWRCH
DEY
BNE L9835
BRA L980D

.L983D
JMP L9000

.L9840
LDA &2A
JMP (&020E)

.L9845
LDY #&01:LDA (&37),Y
TAX:LDA #&F6
CPX #&F2:BEQ L9859
LDA #&F8:BRA L9859

.L9854
LDY #&01
LDA (&37),Y
ASL A
.L9859
LDX #&04
.L985B
STA &3A
STX &3B
LDA (&3A),Y
BEQ L9868
TAX
LDA (&3A)
BRA L985B

.L9868
LDA &03
STA (&3A),Y
LDA &02
STA (&3A)
LDA #&00
STA (&02),Y
INY
CPY &39:BEQ L98AA
.L9879
LDA (&37),Y:STA (&02),Y
INY:CPY &39:BNE L9879
RTS

.L9883
LDA #&00
.L9885
STA (&02),Y
INY
DEX
BNE L9885
.L988B
CLC
TYA
ADC &02
BCC L9893
INC &03
.L9893
LDY &03
CPY &05:BCC L98A8
BNE L989F
CMP &04:BCC L98A8
.L989F
LDA #&00
LDY #&01
STA (&3A),Y
JMP L90A1

.L98A8
STA &02
.L98AA
RTS

.L98AB
JSR L9883
.L98AE
JSR L98F5
BNE L98D0
BCS L98D0
JSR L9854
LDX #&05
CPX &2C:BNE L98AB
INX:BRA L98AB

.L98C1
CMP #&21:BEQ L98D1
CMP #&24:BEQ L98DC
EOR #&3F:BEQ L98D3
LDA #&00:SEC
.L98D0
RTS

.L98D1
LDA #&04
.L98D3
PHA
INC &1B
JSR L96B4
JMP L99CE

.L98DC
INC &1B
JSR L96B4
LDA &2B
BEQ L98EB
LDA #&80
STA &2C
SEC
RTS

.L98EB
BRK:EQUB &08:EQUS "$ range":BRK

.L98F5
LDA &0B
STA &19
LDA &0C
STA &1A
LDY &0A
DEY
.L9900
INY
.L9901
STY &1B
LDA (&19),Y
CMP #&20:BEQ L9900
.L9909
CMP #&40:BCC L98C1
CMP #&5B:BCS L992B
ASL A
ASL A
STA &2A
INY
LDA (&19),Y
CMP #&25:BNE L992B
LDA #&04:STA &2B
LDX #&04:STX &2C
INY:LDA (&19),Y
CMP #&28:BNE L9998
.L992B
LDX #&05
STX &2C
CLC
LDY &1A
LDA &1B
TAX
BNE L993F
DEC A
ADC &19
BCS L9945
DEY
BRA L9945

.L993F
DEC A
ADC &19
BCC L9945
INY
.L9945
STA &37
STY &38
LDY #&01
LDA (&37),Y
CMP #&41:BCS L996B
CMP #&30:BCC L9977
CMP #&3A:BCS L9977
.L9959
INX
INY
LDA (&37),Y
CMP #&41:BCS L996B
CMP #&30:BCC L9977
CMP #&3A:BCC L9959
BRA L9977

.L996B
CMP #&5B:BCC L9959
CMP #&5F:BCC L9977
CMP #&7B:BCC L9959
.L9977
CPY #&01:BEQ L99A6
CMP #&24:BEQ L99DA
CMP #&25:BNE L9989
DEC &2C
INX
INY
LDA (&37),Y
.L9989
CMP #&28:BEQ L99D5
JSR L8085
BEQ L99AA
STX &1B
.L9994
LDY &1B
LDA (&19),Y
.L9998
CMP #&21:BEQ L99AE
EOR #&3F:BEQ L99B0
CLC
STY &1B
LDA #&FF
RTS

.L99A6
LDA #&00:SEC:RTS

.L99AA
LDA #&00:CLC:RTS

.L99AE
LDA #&04
.L99B0
PHA
INY
STY &1B
JSR LB1A0
JSR L96BF
LDA &2B
PHA
LDA &2A
PHA
JSR L96B4
CLC
PLA
ADC &2A
STA &2A
PLA
ADC &2B
STA &2B
.L99CE
PLA
STA &2C
CLC
LDA #&FF
RTS

.L99D5
JSR L99FE
BRA L9994

.L99DA
DEC &2C
INX
INY
LDA (&37),Y
CMP #&28:BEQ L99F1
JSR L8085
BEQ L99AA
STX &1B
.L99EB
LDA #&81
STA &2C
SEC
RTS

.L99F1
JSR L99FE
BRA L99EB

.L99F6
BRK:EQUB &0E:EQUS "Array":BRK

.L99FE
EQUB &E8
INY
JSR L8085
BEQ L99F6
STX &1B
LDA &2C:PHA
LDA &2A:PHA
LDA &2B:PHA
LDA (&2A)
CMP #&04:BCC L9A85
JSR LABE8
LDA #&01
STA &2D
.L9A1D
JSR LBC26
JSR L96AF
INC &1B
CPX #&2C:BNE L99F6
LDX #&39
JSR LBD08
LDY &3C
PLA:STA &38
PLA:STA &37
PHA:LDA &38
PHA
JSR L9AD3
STY &2D
LDA (&37),Y
STA &3F
INY
LDA (&37),Y
STA &40
LDA &2A:ADC &39:STA &2A
LDA &2B:ADC &3A:STA &2B
JSR L9508
SEC
LDA (&37)
SBC &2D
CMP #&03:BCS L9A1D
JSR LBC26
JSR L96A7
PLA:STA &38
PLA:STA &37
LDX #&39
JSR LBD08
LDY &3C
JSR L9AD3
CLC
LDA &39
ADC &2A
STA &2A
LDA &3A
ADC &2B
STA &2B
BCC L9A96
.L9A85
JSR LADAC
JSR L96BF
PLA
STA &38
PLA
STA &37
LDY #&01
JSR L9AD3
.L9A96
PLA
STA &2C
CMP #&05:BNE L9AB4
LDX &2B
LDA &2A
ASL &2A
ROL &2B
ASL &2A
ROL &2B
ADC &2A
STA &2A
TXA
ADC &2B
STA &2B
BRA L9ABC

.L9AB4
ASL &2A
ROL &2B
ASL &2A
ROL &2B
.L9ABC
TYA
ADC &2A
STA &2A
BCC L9AC6
INC &2B
CLC
.L9AC6
LDA &37
ADC &2A
STA &2A
LDA &38
ADC &2B
STA &2B
RTS

.L9AD3
LDA &2B
AND #&C0
ORA &2C
ORA &2D
BNE L9AEA
LDA &2A
CMP (&37),Y
INY
LDA &2B
SBC (&37),Y
BCS L9AEA
INY
RTS

.L9AEA
BRK:EQUB &0F:EQUS "Subscript":BRK

.L9AF6
LDY #&01
.L9AF8
LDA (&37),Y
CMP #&30:BCC L9B16
CMP #&40:BCS L9B0E
CMP #&3A:BCS L9B16
CPY #&01:BEQ L9B16
.L9B0A
INX:INY:BNE L9AF8
.L9B0E
CMP #&5F:BCS L9B17
CMP #&5B:BCC L9B0A
.L9B16
RTS

.L9B17
CMP #&7B:BCC L9B0A
RTS

.L9B1C
INC &0A
.L9B1E
LDY &0A
LDA (&0B),Y
CMP #&20:BEQ L9B1C
CMP #&8D:BNE L9B44
.L9B2A
INY
LDA (&0B),Y
ASL A
ASL A
TAX
AND #&C0
INY
EOR (&0B),Y
STA &2A
TXA
ASL A
ASL A
INY
EOR (&0B),Y
STA &2B
INY
STY &0A
SEC
RTS

.L9B44
CLC
RTS

.L9B46
LDA &0B
STA &19
LDA &0C
STA &1A
LDA &0A
STA &1B
.L9B52
LDY &1B
INC &1B
LDA (&19),Y
CMP #&20:BEQ L9B52
CMP #&3D:BEQ L9B8E
.L9B60
BRK:EQUB &04:EQUS "Mistake"
.L9B69
BRK:EQUB &10:EQUS "Syntax error"
.L9B77
BRK:EQUB &0D:EQUS "No "+CHR$tknPROC
.L9B7D
BRK:EQUB &11:EQUS "Escape":BRK

.L9B86
JSR L8ED5
CMP #&3D:BNE L9B60
RTS

.L9B8E
JSR L9D3B
.L9B91
TXA
LDY &1B
BRA L9BB0

.L9B96
LDY &1B
BRA L9BA8

.L9B9A :\ ENDPROC
TSX
CPX #&FC:BCS L9B77
LDA &01FF
CMP #tknPROC:BNE L9B77
.L9BA6
LDY &0A
.L9BA8
DEY
.L9BA9
INY
LDA (&0B),Y
CMP #&20:BEQ L9BA9
.L9BB0
CMP #&3A:BEQ L9BBC
CMP #&0D:BEQ L9BBC
CMP #&8B:BNE L9B69
.L9BBC
CLC
TYA
ADC &0B
STA &0B
BCC L9BC6
INC &0C
.L9BC6
LDY #&01
STY &0A
.L9BCA
BIT &FF
BMI L9B7D
.L9BCE
RTS

.L9BCF
JSR L9BA6
LDA (&0B)
CMP #&3A:BEQ L9BCE
LDA &0C
CMP #&07:BEQ L9C02
.L9BDE
LDY #&01
LDA (&0B),Y
BMI L9C02
LDX &20
BEQ L9BF2
STA &2B
INY
LDA (&0B),Y
STA &2A
JSR L9C4B
.L9BF2
LDA #&03
.L9BF4
CLC
ADC &0B
STA &0B
BCC L9BFD
INC &0C
.L9BFD
LDY #&01
STY &0A
.L9C01
RTS

.L9C02
JMP L8F86

.L9C05
JMP L9092

.L9C08
JSR L9D2F
BEQ L9C05
BPL L9C12
JSR L96C3
.L9C12
LDY &1B
STY &0A
LDA &2A
ORA &2B
ORA &2C
ORA &2D
BEQ L9C37
CPX #&8C:BEQ L9C27
.L9C24
JMP L900B

.L9C27
INC &0A
.L9C29
JSR L9B1E
BCC L9C24
JSR LB836
JSR L9BC6
JMP LB723

.L9C37
LDY &0A
.L9C39
LDA (&0B),Y
CMP #&0D:BEQ L9C48
INY
CMP #&8B:BNE L9C39
STY &0A:BEQ L9C29
.L9C48
JMP L8FB8

.L9C4B
LDA &2A
CMP &21:LDA &2B
SBC &22:BCS L9C01
LDA #&5B
JSR LBD98
JSR LA081
LDA #&5D
JSR LBD98
JMP LBD92

.L9C65
PLA
STA &2A
PLA
STA &2B
PLA
STA &2C
PLA
STA &2D
JSR LBBFA
JSR L8185
JSR LA40B
JSR LBBE8
JSR LA541
BRA L9C92

.L9C82
JSR LBBFA
JSR L9E4C
TAY
JSR L96DD
JSR LBBE8
.L9C8F
JSR LA4E0
.L9C92
LDY #&00
LDA #&7F
TRB &3B
LDA &2E:AND #&80
CMP &3B:BNE L9CBE
LDA &3C:CMP &30:BNE L9CBF
LDA &3D:CMP &31:BNE L9CBF
LDA &3E:CMP &32:BNE L9CBF
LDA &3F:CMP &33:BNE L9CBF
LDA &40:CMP &34:BNE L9CBF
.L9CBE
RTS

.L9CBF
ROR A
EOR &3B
ROL A
LDA #&01
RTS

.L9CC6
JMP L9092

.L9CC9
TXA
.L9CCA
BEQ L9D02
BMI L9C82
LDA &2D
PHA
LDA &2C
PHA
LDA &2B
PHA
LDA &2A
PHA
JSR L9E4C
TAY
BEQ L9CC6
BMI L9C65
LDA &2D
EOR #&80
STA &2D
SEC
PLA
SBC &2A
STA &2A
PLA
SBC &2B
TSB &2A
PLA
SBC &2C
TSB &2A
PLA
LDY #&00
EOR #&80
SBC &2D
ORA &2A
RTS

.L9D02
JSR LBC51
JSR L9E4C
TAY
BNE L9CC6
LDA (&04)
CMP &36:BCC L9D13
LDA &36
.L9D13
STA &37
.L9D15
CPY &37:BEQ L9D23
INY:LDA (&04),Y
CMP &05FF,Y:BEQ L9D15
BRA L9D27

.L9D23
LDA (&04)
CMP &36
.L9D27
PHP
JSR LBCE1
LDY #&00
PLP
RTS

.L9D2F
LDA &0B
STA &19
LDA &0C
STA &1A
LDA &0A
STA &1B
.L9D3B
JSR L9D81
.L9D3E
CPX #&84:BEQ L9D4C
CPX #&82:BEQ L9D66
DEC &1B
TAY
STA &27
RTS

.L9D4C
JSR L9D7B
JSR L96BE
LDY #&03
.L9D54
LDA (&04),Y
ORA &002A,Y
STA &002A,Y
DEY
BPL L9D54
.L9D5F
JSR LBCFA
LDA #&40
BRA L9D3E

.L9D66
JSR L9D7B
JSR L96BE
LDY #&03
.L9D6E
LDA (&04),Y
EOR &002A,Y
STA &002A,Y
DEY
BPL L9D6E
BRA L9D5F

.L9D7B
JSR L96BE
JSR LBC26
.L9D81
JSR L9DA9
.L9D84
CPX #&80:BEQ L9D89
RTS

.L9D89
JSR L96BE
JSR LBC26
JSR L9DA9
JSR L96BE
LDY #&03
.L9D97
LDA (&04),Y
AND &002A,Y
STA &002A,Y
DEY
BPL L9D97
JSR LBCFA
LDA #&40
BRA L9D84

.L9DA9
JSR L9E4C
CPX #&3F:BCS L9DB4
CPX #&3C:BCS L9DB5
.L9DB4
RTS

.L9DB5
BEQ L9DCD
CPX #&3E:BEQ L9DF5
TAX
JSR L9CCA
BNE L9DC2
.L9DC1
DEY
.L9DC2
STY &2A
STY &2B
STY &2C
STY &2D
LDA #&40
RTS

.L9DCD
TAX
LDY &1B
LDA (&19),Y
CMP #&3D:BEQ L9DE1
CMP #&3E:BEQ L9DEC
JSR L9CC9
BCC L9DC1
BRA L9DC2

.L9DE1
INC &1B
JSR L9CC9
BEQ L9DC1
BCC L9DC1
BRA L9DC2

.L9DEC
INC &1B
JSR L9CC9
BNE L9DC1
BRA L9DC2

.L9DF5
TAX
LDY &1B
LDA (&19),Y
CMP #&3D:BEQ L9E07
JSR L9CC9
BEQ L9DC2
BCS L9DC1
BRA L9DC2

.L9E07
INC &1B
JSR L9CC9
BCS L9DC1
BRA L9DC2

.L9E10
BRK:EQUB &13:EQUS "String too long":BRK

.L9E22
JSR LBC51
JSR LA012
TAY
BNE L9E91
CLC
PHX
LDA (&04)
ADC &36
BCS L9E10
TAX
PHA
LDY &36
.L9E37
LDA &05FF,Y
STA &05FF,X
DEX
DEY
BNE L9E37
JSR LBCD2
PLA
STA &36
PLX
LDA #&00
BRA L9E4F

.L9E4C
JSR L9FC7
.L9E4F
CPX #&2B:BEQ L9E58
CPX #&2D:BEQ L9EBD
RTS

.L9E58
TAY
BEQ L9E22
BMI L9E94
JSR L9FC4
TAY
BEQ L9E91
BMI L9EB0
CLC
LDA (&04)
ADC &2A
STA &2A
LDY #&01
LDA (&04),Y
ADC &2B
STA &2B
INY
LDA (&04),Y
ADC &2C
STA &2C
INY
LDA (&04),Y
ADC &2D
.L9E80
STA &2D
CLC
LDA &04
ADC #&04
STA &04
LDA #&40
BCC L9E4F
INC &05
BRA L9E4F

.L9E91
JMP L9092

.L9E94
JSR LBBFA
JSR L9FC7
TAY
BEQ L9E91
STX &27
BMI L9EA4
JSR L8185
.L9EA4
JSR LBBE8
JSR LA68D
.L9EAA
LDX &27
LDA #&FF
BRA L9E4F

.L9EB0
STX &27
JSR LBCE6
JSR LBBFA
JSR L8185
BRA L9EA4

.L9EBD
TAY
BEQ L9E91
BMI L9EE7
JSR L9FC4
TAY
BEQ L9E91
BMI L9EFF
SEC
LDA (&04)
SBC &2A
STA &2A
LDY #&01
LDA (&04),Y
SBC &2B
STA &2B
INY
LDA (&04),Y
SBC &2C
STA &2C
INY
LDA (&04),Y
SBC &2D
BRA L9E80

.L9EE7
JSR LBBFA
JSR L9FC7
TAY
BEQ L9E91
STX &27
BMI L9EF7
JSR L8185
.L9EF7
JSR LBBE8
JSR LA68A
BRA L9EAA

.L9EFF
STX &27
JSR LBCE6
JSR LBBFA
JSR L8185
JSR LBBE8
JSR LACC7
BRA L9EAA

.L9F12
JSR L8185
.L9F15
JSR LBCE6
JSR LBBFA
JSR L8185
BRA L9F2D

.L9F20
JSR L8185
.L9F23
JSR LBBFA
JSR LA012
TAY
JSR L96DD
.L9F2D
JSR LBBE8
JSR LA6A6
LDA #&FF
JMP L9FCA

.L9F38
JMP L9092

.L9F3B
TAY
BEQ L9F38
BMI L9F23
LDY &2D
CPY &2C:BNE L9F20
LDA &2B
ASL A
TYA
ADC #&00
BNE L9F20
JSR LA00F
TAY
BEQ L9F38
BMI L9F15
LDY &2D
CPY &2C:BNE L9F12
LDA &2B
ASL A
TYA
ADC #&00
BNE L9F12
PHY
JSR LACBE
STX &27
LDX #&39
JSR LBDC6
JSR LBCE6
PLA
EOR &2D
STA &37
JSR LACBE
LDY #&00
LDX #&00
STZ &3F
STZ &40
.L9F82
LSR &3A
ROR &39
BCC L9F9D
CLC
TYA
ADC &2A
TAY
TXA
ADC &2B
TAX
LDA &3F
ADC &2C
STA &3F
LDA &40
ADC &2D
STA &40
.L9F9D
ASL &2A
ROL &2B
ROL &2C
ROL &2D
LDA &39
ORA &3A
BNE L9F82
STY &3D
STX &3E
LDA &37
PHP
.L9FB2
LDX #&3D
.L9FB4
JSR LAA80
PLP
BPL L9FBD
JSR LACDE
.L9FBD
LDX &27
BRA L9FCA

.L9FC1
JMP L9F3B

.L9FC4
JSR LBC26
.L9FC7
JSR LA012
.L9FCA
CPX #&2A:BEQ L9FC1
CPX #&2F:BEQ L9FDB
CPX #&83:BEQ L9FF5
CPX #&81:BEQ L9FFD
RTS

.L9FDB
TAY
JSR L96DD
JSR LBBFA
JSR LA012
STX &27
TAY
JSR L96DD
JSR LBBE8
JSR LA5EE
LDA #&FF
BRA L9FBD

.L9FF5
JSR L80F9
LDA &38
PHP
BRA L9FB2

.L9FFD
JSR L80F9
ROL &39
ROL &3A
ROL &3B
ROL &3C
BIT &37
PHP
LDX #&39
BRA L9FB4


]:OS."SAVE BAS4B "+STR$~mcode%+" "+STR$~O%+" "+STR$~Q%+" "+STR$~Q%:O%=mcode%:Q%=P%-R%
[OPT P*3+4

.LA00F
JSR LBC26
.LA012
JSR LAD36
.LA015
PHA
.LA016
LDY &1B
INC &1B
LDA (&19),Y
CMP #&20:BEQ LA016
TAX
PLA
CPX #&5E:BEQ LA027
RTS

.LA027
TAY
JSR L96DD
JSR LBBFA
JSR L96DA
LDA &30
CMP #&87:BCS LA079
JSR L82E0
BNE LA049
JSR LBBE8
JSR LA541
LDA &49
JSR LA5BE
BRA LA075

.LA049
JSR LA50D
LDA &04
STA &4A
LDA &05
STA &4B
JSR LA541
LDA &49
JSR LA5BE
.LA05C
LDA #&71
JSR LA513
JSR LBBE8
JSR LA541
JSR LA749
JSR LA99F
JSR LA9E2
LDA #&71
JSR LA9A1
.LA075
LDA #&FF
BRA LA015

.LA079
JSR LA50D
JSR LA5D8
BRA LA05C

.LA081
LDA #&00
BRA LA087

.LA085
LDA #&05
.LA087
STA &14
LDX #&04
.LA08B
STZ &3F,X
SEC
.LA08E
LDA &2A
SBC L8023+3,X
TAY
LDA &2B
SBC L8023-2,X
BCC LA0A3
STA &2B
STY &2A
INC &3F,X
BRA LA08E

.LA0A3
DEX
BPL LA08B
LDX #&05
.LA0A8
DEX
BEQ LA0AF
LDA &3F,X
BEQ LA0A8
.LA0AF
STX &37
LDA &14
BEQ LA0BF
SBC &37
BEQ LA0BF
TAX
JSR LBDBF
LDX &37
.LA0BF
LDA &3F,X
ORA #&30
JSR LBD94
DEX
BPL LA0BF
RTS

.LA0CA
TYA
BPL LA0D0
JSR L96C3
.LA0D0
LDX #&00
LDY #&00
.LA0D4
LDA &002A,Y
PHA
AND #&0F
STA &3F,X
PLA
LSR A
LSR A
LSR A
LSR A
INX
STA &3F,X
INX
INY
CPY #&04:BNE LA0D4
.LA0EA
DEX:BEQ LA0F1
LDA &3F,X:BEQ LA0EA
.LA0F1
LDA &3F,X
CMP #&0A:BCC LA0F9
ADC #&06
.LA0F9
ADC #&30
JSR LA2D0
DEX
BPL LA0F1
RTS

.LA102
BPL LA10B
LDA #&2D
STZ &2E
JSR LA2D0
.LA10B
LDA &30
CMP #&81:BCS LA15C
JSR LA436
DEC &48
BRA LA10B

.LA118
LDX &0402
CPX #&03:BCC LA121
LDX #&00
.LA121
STX &37
LDA &0401
BEQ LA12E
CMP #&0A:BCS LA132
BRA LA134

.LA12E
CPX #&02:BEQ LA134
.LA132
LDA #&0A
.LA134
STA &38:STA &4D
STZ &36:STZ &48
BIT &15
BMI LA0CA
TYA
BMI LA146
JSR L8185
.LA146
JSR LA3F2
BNE LA102
LDA &37
BNE LA154
LDA #&30
JMP LA2D0

.LA154
JMP LA1D0

.LA157
JSR LA5D8
BRA LA16B

.LA15C
CMP #&84:BCC LA16F
BNE LA168
LDA &31
CMP #&A0:BCC LA16F
.LA168
JSR LA478
.LA16B
INC &48
BRA LA10B

.LA16F
LDA &35:STA &27
JSR LA511
LDA &4D:STA &38
LDX &37
CPX #&02:BNE LA190
ADC &48
BMI LA1D4
STA &38
CMP #&0B:BCC LA190
LDA #&0A
STA &38
STZ &37
.LA190
JSR LA6B8
LDA #&A0
STA &31
LDA #&83
STA &30
LDX &38
BEQ LA1A5
.LA19F
JSR LA478
DEX
BNE LA19F
.LA1A5
JSR LA592
JSR LA4E0
LDA &27
STA &41
JSR L8368
.LA1B2
LDA &30
CMP #&84:BCS LA1C6
ROR &31
ROR &32
ROR &33
ROR &34
ROR &35
INC &30
BNE LA1B2
.LA1C6
LDA &31
CMP #&A0:BCS LA157
LDA &38
BNE LA1DE
.LA1D0
CMP #&01:BEQ LA215
.LA1D4
JSR LA6B4
STZ &48
LDA &4D
INC A
STA &38
.LA1DE
LDA #&01
CMP &37:BEQ LA215
LDY &48:BMI LA1F2
CPY &38:BCS LA215
STZ &48
INY
TYA
BNE LA215
.LA1F2
LDA &37
CMP #&02:BEQ LA1FE
LDA #&01
CPY #&FF:BNE LA215
.LA1FE
LDA #&30
JSR LA2D0
LDA #&2E
JSR LA2D0
LDA #&30
.LA20A
INC &48
BEQ LA213
JSR LA2D0
BRA LA20A

.LA213
LDA #&80
.LA215
STA &4D
.LA217
JSR LA26C
DEC &4D
BNE LA223
LDA #&2E
.LA220
JSR LA2D0
.LA223
DEC &38
BNE LA217
LDY &37
DEY
BEQ LA244
DEY
BEQ LA240
LDY &36
.LA231
DEY
LDA &0600,Y
CMP #&30:BEQ LA231
CMP #&2E:BEQ LA23E
INY
.LA23E
STY &36
.LA240
LDA &48
BEQ LA26B
.LA244
LDA #&45
JSR LA2D0
LDA &48
BPL LA257
LDA #&2D
JSR LA2D0
SEC
LDA #&00
SBC &48
.LA257
JSR LA2BC
LDA &37
BEQ LA26B
LDA #&20
LDY &48
BMI LA267
JSR LA2D0
.LA267
CPX #&00:BEQ LA2D0
.LA26B
RTS

.LA26C
LDA &31
LSR A
LSR A
LSR A
LSR A
JSR LA2CE
LDA #&F0
TRB &31
.LA279
PHA
LDX &34
LDA &31
PHA
LDA &32
PHA
LDA &33
PHA
LDA &35
ASL A
ROL &34
ROL &33
ROL &32
ROL &31
ASL A
ROL &34
ROL &33
ROL &32
ROL &31
ADC &35
STA &35
TXA
ADC &34
STA &34
PLA
ADC &33
STA &33
PLA
ADC &32
STA &32
PLA
ADC &31
ASL &35
ROL &34
ROL &33
ROL &32
ROL A
STA &31
PLA
RTS

.LA2BC
LDX #&FF
SEC
.LA2BF
INX
SBC #&0A
BCS LA2BF
ADC #&0A
PHA
TXA
BEQ LA2CD
JSR LA2CE
.LA2CD
PLA
.LA2CE
ORA #&30
.LA2D0
PHX
LDX &36
STA &0600,X
PLX
INC &36
RTS

.LA2DA
JSR LA404
CLC
LDA #&FF
RTS

.LA2E1
STZ &31
STZ &32
STZ &33
STZ &34
STZ &35
STZ &47
STZ &48
CMP #&2E:BEQ LA31C
CMP #&3A:BCS LA2DA
SBC #&2F:BMI LA2DA
STA &35
INY
LDA (&19),Y
CMP #&3A:BCS LA324
SBC #&2F:BCC LA316
STA &2E
LDA &35
ASL A
ASL A
ADC &35
ASL A
ADC &2E
STA &35
.LA315
INY
.LA316
LDA (&19),Y
CMP #&2E:BNE LA324
.LA31C
LDA &47
BNE LA364
INC &47
BRA LA315

.LA324
CMP #&45:BEQ LA35D
CMP #&3A:BCS LA364
SBC #&2F:BCC LA364
LDX &31
CPX #&18:BCC LA33E
LDX &47:BNE LA315
INC &48:BRA LA315

.LA33E
LDX &47
BEQ LA344
DEC &48
.LA344
JSR LA279
ADC &35
STA &35
BCC LA315
INC &34
BNE LA315
INC &33
BNE LA315
INC &32
BNE LA315
INC &31
BRA LA315

.LA35D
JSR LA3BA
ADC &48
STA &48
.LA364
STY &1B
LDA &48
ORA &47
BEQ LA399
JSR LA3F2
BEQ LA395
.LA371
LDA #&A8
STA &30
STZ &2F
STZ &2E
JSR L81F7
LDA &48
BMI LA38B
BEQ LA392
.LA382
JSR LA436
DEC &48
BNE LA382
BRA LA392

.LA38B
JSR LA478
INC &48
BNE LA38B
.LA392
JSR LA695
.LA395
SEC
LDA #&FF
RTS

.LA399
LDA &32
STA &2D
AND #&80
ORA &31
BNE LA371
LDA &35
STA &2A
LDA &34
STA &2B
LDA &33
STA &2C
LDA #&40
SEC
RTS

.LA3B3
JSR LA3C5
EOR #&FF
SEC
RTS

.LA3BA
INY
LDA (&19),Y
CMP #&2D:BEQ LA3B3
CMP #&2B:BNE LA3C8
.LA3C5
INY:LDA (&19),Y
.LA3C8
CMP #&3A:BCS LA3EE
SBC #&2F:BCC LA3EE
STA &49
INY
LDA (&19),Y
CMP #&3A:BCS LA3EA
SBC #&2F:BCC LA3EA
INY
STA &42
LDA &49
ASL A
ASL A
ADC &49
ASL A
ADC &42
RTS

.LA3EA
LDA &49
CLC
RTS

.LA3EE
LDA #&00
CLC
RTS

.LA3F2
LDA &31
ORA &32
ORA &33
ORA &34
ORA &35
BEQ LA404
LDA &2E
BNE LA40A
INC A
RTS

.LA404
STZ &2E
STZ &30
STZ &2F
.LA40A
RTS

.LA40B
LDA &2E
STA &3B
LDA &30
STA &3C
LDA &31
STA &3D
LDA &32
STA &3E
LDA &33
STA &3F
LDA &34
STA &40
LDA &35
STA &41
RTS

.LA428
JSR LA40B
.LA42B
LSR &3D
ROR &3E
ROR &3F
ROR &40
ROR &41
RTS

.LA436
CLC
LDA &30
ADC #&03
STA &30
BCC LA441
INC &2F
.LA441
JSR LA428
JSR LA42B
.LA447
LDA &35
ADC &41
STA &35
LDA &34
ADC &40
STA &34
LDA &33
ADC &3F
STA &33
LDA &32
ADC &3E
STA &32
LDA &31
ADC &3D
STA &31
BCC LA477
.LA467
ROR &31
ROR &32
ROR &33
ROR &34
ROR &35
INC &30
BNE LA477
INC &2F
.LA477
RTS

.LA478
SEC
LDA &30
SBC #&04
STA &30
BCS LA483
DEC &2F
.LA483
JSR LA428
JSR LA447
JSR LA428
JSR LA42B
JSR LA42B
JSR LA42B
JSR LA447
STZ &3D
LDA &31
STA &3E
LDA &32
STA &3F
LDA &33
STA &40
LDA &34
STA &41
LDA &35
ROL A
JSR LA447
STZ &3E
LDA &31
STA &3F
LDA &32
STA &40
LDA &33
STA &41
LDA &34
ROL A
JSR LA447
LDA &32
ROL A
LDA &31
ADC &35
STA &35
BCC LA4DF
INC &34
BNE LA4DF
.LA4D3
INC &33
BNE LA4DF
INC &32
BNE LA4DF
INC &31
BEQ LA467
.LA4DF
RTS

.LA4E0
STZ &41
LDY #&04
LDA (&4A),Y
STA &40
DEY
LDA (&4A),Y
STA &3F
DEY
LDA (&4A),Y
STA &3E
DEY
LDA (&4A),Y
STA &3B
TAY
LDA (&4A)
STA &3C
BNE LA507
TYA
ORA &3E
ORA &3F
ORA &40
BEQ LA50A
.LA507
TYA
ORA #&80
.LA50A
STA &3D
RTS

.LA50D
LDA #&76
BRA LA513

.LA511
LDA #&6C
.LA513
STA &4A
LDA #&04
STA &4B
.LA519
LDA &30
STA (&4A)
LDY #&01
LDA &2E
EOR &31
AND #&80
EOR &31
STA (&4A),Y
LDA &32
INY
STA (&4A),Y
LDA &33
INY
STA (&4A),Y
LDA &34
INY
STA (&4A),Y
RTS

.LA539
LDA #&6C
.LA53B
STA &4A
LDA #&04
STA &4B
.LA541
STZ &35
STZ &2F
LDY #&04
LDA (&4A),Y
STA &34
DEY
LDA (&4A),Y
STA &33
DEY
LDA (&4A),Y
STA &32
DEY
LDA (&4A),Y
STA &2E
TAY
LDA (&4A)
STA &30
BNE LA56A
TYA
ORA &32
ORA &33
ORA &34
BEQ LA56D
.LA56A
TYA
ORA #&80
.LA56D
STA &31
RTS

.LA570
STZ &3B
STZ &3C
STZ &3D
.LA576
STZ &3E
STZ &3F
STZ &40
STZ &41
RTS

.LA57F
CLC
LDA &4C
ADC #&05
STA &4C
STA &4A
RTS

.LA589
LDA #LBF2E AND 255
.LA58B
STA &4A
LDA #LBF2E DIV 256
STA &4B
RTS

.LA592
LDA #&6C
.LA594
STA &4A
LDA #&04
STA &4B
RTS

.LA59B :\ =TAN
JSR LA93A
LDA #&7B
JSR LA513
JSR LA917
LDA #&76
JSR LA513
LDA #&7B
JSR LA53B
JSR LA915
.LA5B3
LDA #&76
JSR LA594
JSR LA5EE
LDA #&FF
RTS

.LA5BE
TAX
BPL LA5C9
DEC A
EOR #&FF
PHA
JSR LA5E9
PLX
.LA5C9
BEQ LA5D8
JSR LA511
DEX
BEQ LA5D7
.LA5D1
JSR LA6A6
DEX
BNE LA5D1
.LA5D7
RTS

.LA5D8
LDA #&80
STA &31
INC A
STA &30
JMP LA6B8

.LA5E2
JMP L8172

.LA5E5
EQUB &02:EQUB &08:EQUB &08:EQUB &08
.LA5E9
LDA #LBF92 AND 255
JSR LA58B
.LA5EE
LDA &31
BEQ LA5E2
JSR LA4E0
BNE LA5FA
JMP LA6B4

.LA5FA
LDA &3B
EOR &2E
STA &2E
SEC
LDA &3C
ADC #&81
ROL &2F
SBC &30
BCS LA60D
DEC &2F
.LA60D
STA &30
LDY #&04
STY &3C
LDA &3D
LDX #&08
BRA LA622

.LA619
STX &43,Y      :\ Dis65 gives STX &43,X
LDX LA5E5,Y    :\ Dis65 gives LDX LA5E5,X
STY &3C
.LA620
BCS LA638
.LA622
CMP &31:BNE LA636
LDY &3E:CPY &32:BNE LA636
LDY &3F:CPY &33:BNE LA636
LDY &40:CPY &34
.LA636
BCC LA64F
.LA638
TAY
LDA &40
SBC &34
STA &40
LDA &3F
SBC &33
STA &3F
LDA &3E
SBC &32
STA &3E
TYA
SBC &31
SEC
.LA64F
ROL &3B
ASL &40
ROL &3F
ROL &3E
ROL A
DEX
BNE LA620
LDX &3B
LDY &3C
DEY
BPL LA619
ORA &3E
ORA &3F
ORA &40
BEQ LA66B
SEC
.LA66B
TXA
ROR A
ROR A
ROR A
AND #&E0
STA &35
LDA &43
STA &34
LDA &44
STA &33
LDA &45
STA &32
LDA &46
STA &31
BMI LA695
JSR L822A
BRA LA695

.LA68A
JSR LACCA
.LA68D
JSR LA4E0
BEQ LA6C4
.LA692
JSR L8368
.LA695
LDA &35
CMP #&80:BCC LA6AE
BEQ LA6AB
INC &34
BNE LA6AE
JSR LA4D3
BRA LA6AE

.LA6A6
JSR LA6CF
BRA LA695

.LA6AB
ROL A
TSB &34
.LA6AE
LDA &2F
BEQ LA6C2
BPL LA6C5
.LA6B4
STZ &30
STZ &31
.LA6B8
STZ &2E
STZ &2F
STZ &32
STZ &33
STZ &34
.LA6C2
STZ &35
.LA6C4
RTS

.LA6C5
BRK:EQUB &14:EQUS "Too big":BRK

.LA6CF
LDA &31
BEQ LA6C4
JSR LA4E0
BEQ LA6B4
CLC
LDA &30
ADC &3C
ROL &2F
SBC #&7F
STA &30
BCS LA6E7
DEC &2F
.LA6E7
LDA &2E
EOR &3B
STA &2E
PHX
LDX #&F8
LDY #&04
.LA6F2
LDA &39,X
STZ &39,X
STA &0041,Y
INX
DEY
BNE LA6F2
STZ &3C
STZ &3B
STZ &3A
BRA LA735

.LA705
PHX
LSR &3D
ROR &3E
ROR &3F
ROR &40
ROR &41
.LA710
ASL &46,X
BCC LA731
CLC
TYA
ADC &42,X
TAY
LDA &34
ADC &41,X
STA &34
LDA &33
ADC &40,X
STA &33
LDA &32
ADC &3F,X
STA &32
LDA &31
ADC &3E,X
STA &31
.LA731
INX
BMI LA710
PLX
.LA735
LDA &46,X
BNE LA705
INX
BMI LA735
PLX
STY &35
LDA &31
BMI LA6C4
JMP L81FB

.LA746 :\ =LN
JSR L96DA
.LA749
JSR LA3F2
BEQ LA750
BPL LA766
.LA750
BRK:EQUB &16:EQUS "Log range"
.LA75B
BRK:EQUB &15:EQUS "-ve root":BRK

.LA766
JSR LA576
LDY #&80
STY &3B
STY &3D
INY
STY &3C
LDX &30
BEQ LA77C
LDA &31
CMP #&B5:BCC LA77E
.LA77C
INX
DEY
.LA77E
PHX
STY &30
JSR LA692
LDA #&7B
JSR LA513
LDX #LBF51 AND 255
LDA #LBF6F AND 255
LDY #&02
JSR LA861
LDA #&7B
JSR LA9A1
JSR LA6A6
JSR LA68D
JSR LA511
PLA
SEC
SBC #&81
JSR L81D5
LDA #LBF4C AND 255
JSR LA9D4
JSR LA592
JSR LA68D
.LA7B2
LDA #&FF
RTS

.LA7B5 :\ =SQR
JSR L96DA
.LA7B8
JSR LA3F2
BEQ LA7B2
BMI LA75B
LDA &30
LSR A
PHP
ADC #&41
STA &30
PLP
BCC LA7D4
LSR &31
ROR &32
ROR &33
ROR &34
ROR &35
.LA7D4
JSR LA570
STZ &43
STZ &44
STZ &45
STZ &46
LDA #&40
STA &3D
STA &42
LDX #&FB
LDY #&10
SEC
LDA &31
SBC #&40
STA &31
.LA7F0
TYA
EOR &42,X
STA &47,X
LDA &31
CMP &42:BNE LA808
PHX:LDX #&FC
.LA7FE
LDA &36,X:CMP &47,X:BNE LA807
INX:BNE LA7FE
.LA807
PLX
.LA808
BCC LA833
LDA &35
SBC &46
STA &35
LDA &34
SBC &45
STA &34
LDA &33
SBC &44
STA &33
LDA &32
SBC &43
STA &32
LDA &31
SBC &42
STA &31
TYA
ASL A
BCC LA837
INC A
EOR &41,X
STA &41,X
STA &46,X
.LA833
LDA &42,X
BRA LA83B

.LA837
EOR &42,X
STA &42,X
.LA83B
STA &47,X
ASL &35
ROL &34
ROL &33
ROL &32
ROL &31
TYA
LSR A
TAY
BCC LA7F0
LDY #&80
INX
BNE LA7F0
JSR L8353
.LA854
LDA &31
BMI LA85B
JSR L81FB
.LA85B
JSR LA695
LDA #&FF
RTS

.LA861
STY &47
STX &4C
LDX &30
CPX #&40:BCC LA896
JSR LA5E9
JSR LA511
LDA &4C
JSR LA58B
JSR LA68D
.LA879
JSR LA886
JSR LA592
JSR LA68D
DEC &47
BNE LA879
.LA886
LDA #LBF2E DIV 256
STA &4B
JSR LA57F
JSR LA5EE
JSR LA57F
JMP LA68D

.LA896
JSR LA58B
JMP LA541

.LA89C :\ =ACS
JSR LA8A1
BRA LA8E1

.LA8A1
JSR L96DA
LDA &2E
BPL LA8AF
STZ &2E
JSR LA8AF
BRA LA8D2

.LA8AF
JSR LA50D
JSR LA929
LDA &31
BEQ LA8BE
JSR LA5B3
BRA LA8C6

.LA8BE
LDA #LBF2E AND 255
JMP LA896

.LA8C3 :\ =ATN
JSR L96DA
.LA8C6
JSR LA3F2
BEQ LA926
BPL LA8D5
STZ &2E
JSR LA8D5
.LA8D2
STA &2E
RTS

.LA8D5
LDA &30
CMP #&81:BCC LA8EA
JSR LA5E9
JSR LA8EA
.LA8E1
JSR LA589
JSR LA68A
LDA #&FF
RTS

.LA8EA
LDA &30
CMP #&73:BCC LA926
JSR LA50D
JSR LA576
LDA #&80
STA &3C
STA &3D
STA &3B
JSR LA692
LDX #LBF97 AND 255
LDA #LBFC9 AND 255
LDY #&04
JSR LA861
JMP LA99F

.LA90D :\ =SIN
CLC
.LA90E :\ =COS
PHP
JSR LA93A
PLP
BCC LA917
.LA915
INC &49
.LA917
LDA &49
BIT #&02
BEQ LA923
JSR LA923
JMP LACCA

.LA923
LSR A
BCS LA929
.LA926
LDA #&FF
RTS

.LA929
JSR LA511
JSR LA6A6
LDA #LBF92 AND 255
JSR LA58B
JSR LA68A
JMP LA7B8

.LA93A
JSR L96DA
LDA &30
CMP #&98:BCS LA9AD
JSR LA511
JSR LA589
JSR LA4E0
LDA &2E
STA &3B
DEC &3C
JSR LA692
LDA #LBF33 AND 255
JSR LA9D4
JSR L96C3
STA &49
ORA &2B
ORA &2C
BEQ LA98D
JSR L8189
LDA #&71
JSR LA513
LDA #LBF24 AND 255
JSR LA9D4
JSR LA592
JSR LA68D
JSR LA519
LDA #&71
JSR LA53B
LDA #LBF29 AND 255
JSR LA9D4
JSR LA592
JSR LA68D
BRA LA990

.LA98D
JSR LA539
.LA990
JSR LA50D
JSR LA6A6
LDX #LBF74 AND 255
LDA #LBF92 AND 255
LDY #&02
JSR LA861
.LA99F
LDA #&76
.LA9A1
LDY #&04
.LA9A3
STY &4B
STA &4A
JSR LA6A6
LDA #&FF
RTS

.LA9AD
BRK:EQUB &17:EQUS "Accuracy lost"
.LA9BC
BRK:EQUB &18:EQUS "Exp range":BRK

.LA9C8 :\ =RAD
JSR L96DA
LDA #LBF38 AND 255
BRA LA9D4

.LA9CF :\ =LOG
JSR LA746
LDA #LBF42 AND 255
.LA9D4
LDY #LBF42 DIV 256
BRA LA9A3

.LA9D8 :\ =DEG
JSR L96DA
LDA #LBF3D AND 255
BRA LA9D4

.LA9DF :\ =EXP
JSR L96DA
.LA9E2
LDA &30
CMP #&87:BCC LA9F7
BNE LA9F0
LDY &31
CPY #&B3:BCC LA9F7
.LA9F0
LDA &2E
BPL LA9BC
JMP LA6B4

.LA9F7
JSR L82E0
LDX #LBFCE AND 255
LDA #LBFF6 AND 255
LDY #&03
JSR LA861
JSR LA50D
LDA #LBF47 AND 255
JSR LA896
LDA &49
JSR LA5BE
BRA LA99F

.LAA12
JSR L96B4
LDA #&81
LDX &2A
LDY &2B
JMP OSBYTE

.LAA1E
JSR L831E
.LAA21
STZ &2E
STZ &2F
STZ &35
LDA #&80
STA &30
LDY #&00
LDX #&03
.LAA2F
EOR &000D,Y
STA &31,X
INY
DEX
BPL LAA2F
JMP LA854

.LAA3B
INC &1B
JSR L96A7
LDA &2D
BMI LAA69
ORA &2C
ORA &2B
BNE LAA52
LDA &2A
BEQ LAA21
.LAA4E
CMP #&01:BEQ LAA1E
.LAA52
JSR L8185
JSR LBBFA
JSR LAA1E
JSR LBBE8
JSR LA6CF
JSR L96C3
JSR LBEEF
BRA LAA90

.LAA69
LDX #&0D
JSR LBDC6
LDA #&40
STA &11
RTS

.LAA73 :\ =RND
LDY &1B
LDA (&19),Y
CMP #&28:BEQ LAA3B
JSR L831E
LDX #&0D
.LAA80
LDA &00,X:STA &2A
LDA &01,X:STA &2B
LDA &02,X:STA &2C
LDA &03,X:STA &2D
.LAA90
LDA #&40
RTS

.LAA93 :\ =NOT
JSR L96B4
LDX #&03
.LAA98
LDA &2A,X
EOR #&FF
STA &2A,X
DEX
BPL LAA98
BRA LAA90

.LAAA3 :\ =POS
JSR LAABC
STX &2A
RTS

.LAAA9 :\ =USR
JSR L96B4
JSR L9304
STA &2A
STX &2B
STY &2C
PHP
PLA
STA &2D
CLD
BRA LAA90

.LAABC :\ =VPOS
LDA #&86
JSR OSBYTE
TYA
.LAAC2
JMP LAE18

.LAAC5 :\ =EXT
LDA #&02
BRA LAACB

.LAAC9 :\ =PTR
LDA #&00
.LAACB
PHA
JSR LBA4A
LDX #&2A
PLA
JSR OSARGS
BRA LAA90

.LAAD7 :\ =BGET
JSR LBA4A
JSR OSBGET
BRA LAAC2

.LAADF :\ =OPENIN
LDA #&40
BRA LAAE9

.LAAE3 :\ =OPENOUT
LDA #&80
BRA LAAE9

.LAAE7 :\ =OPENUP
LDA #&C0
.LAAE9
PHA
JSR LAD36
BNE LAAFC
JSR LBE2B
LDX #&00
LDY #&06
PLA
JSR OSFIND
BRA LAAC2

.LAAFC
JMP L9092

.LAAFF :\ =PI
JSR LA8BE
INC &30
RTS

.LAB05 :\ =EVAL
JSR LAD36
BNE LAB46
INC &36
LDY &36
LDA #&0D
STA &05FF,Y
JSR LBC51
LDA &19
PHA
LDA &1A
PHA
LDA &1B
PHA
LDY &04
LDX &05
INY
STY &19
STY &37
BNE LAB2B
INX
.LAB2B
STX &1A
STX &38
JSR L8E1F
STZ &1B
JSR L9D3B
JSR LBCE1
.LAB3A
PLA
STA &1B
PLA
.LAB3E
STA &1A
PLA
STA &19
LDA &27
RTS

.LAB46
JMP L9092

.LAB49 :\ =VAL
JSR LAD36
BNE LAB46
.LAB4E
LDX &36
STZ &0600,X
LDA &19
PHA
LDA &1A
PHA
LDA &1B
PHA
STZ &1B
STZ &19
LDA #&06
STA &1A
JSR L8ED5
CMP #&2D:BEQ LAB79
CMP #&2B:BNE LAB72
JSR L8ED5
.LAB72
DEC &1B
JSR LA2E1
BRA LAB86

.LAB79
JSR L8ED5
DEC &1B
JSR LA2E1
BCC LAB86
JSR LACDA
.LAB86
STA &27
BRA LAB3A

.LAB8A :\ =INT
JSR LAD36
BEQ LABCC
BPL LABB2
LDA &2E
PHP
JSR L8275
PLP
BPL LABAD
LDA &3D
ORA &3E
ORA &3F
ORA &40
BEQ LABAD
JSR L82C8
JSR L830D
JSR L82C8
.LABAD
JSR L96C6
LDA #&40
.LABB2
RTS

.LABB3 :\ =ASN
JSR LAD36
BNE LABCC
LDA &36
BEQ LABDB
LDA &0600
.LABBF
JMP LAE18

.LABC2 :\ =INKEY
JSR LAA12
TYA
BNE LABDB
TXA
JMP LAE1A

.LABCC
JMP L9092

.LABCF :\ =EOF
JSR LBA4A
TAX
LDA #&7F
JSR OSBYTE
TXA
BEQ LABDD

.LABDB :\ =TRUE
LDX #&FF
.LABDD
STX &2A
STX &2B
STX &2C
STX &2D
.LABE5
LDA #&40
RTS

.LABE8 :\ =FALSE
LDX #&00
BRA LABDD

.LABEC
JSR LA3F2
BEQ LABE8
BPL LAC0A
BRA LABDB

.LABF5 :\ =SGN
JSR LAD36
BEQ LABCC
BMI LABEC
LDA &2D
ORA &2C
ORA &2B
ORA &2A
BEQ LABE5
LDA &2D
BMI LABDB
.LAC0A
LDA #&01
.LAC0C
BRA LABBF

.LAC0E :\ =POINT
JSR L96AF
JSR LBC26
JSR L8EF1
JSR L96A7
LDA &2A
PHA
LDX &2B
JSR LBCE6
STX &2D
PLA
STA &2C
LDY #&00
LDX #&2A
LDA #&09
JSR OSWORD
LDA &2E
BMI LABDB
BRA LAC0C

.LAC36 :\ =INSTR
JSR L9D3B
BNE LABCC
CPX #&2C:BNE LAC57
INC &1B
JSR LBC51
JSR L9D3B
BNE LABCC
LDA #&01
STA &2A
INC &1B
CPX #&29:BEQ LAC60
CPX #&2C:BEQ LAC5A
.LAC57
JMP L8EF6

.LAC5A
JSR L96A4
JSR LBCD2
.LAC60
LDX &2A
BNE LAC66
LDX #&01
.LAC66
STX &2A
TXA
DEX
STX &2D
CLC
ADC &04
STA &37
LDA #&00
ADC &05
STA &38
LDA (&04)
SEC
SBC &2D
BCC LAC9F
SBC &36
BCC LAC9F
ADC #&00
STA &2B
JSR LBCE1
.LAC89
LDY #&00
LDX &36
BEQ LAC9A
.LAC8F
LDA (&37),Y
CMP &0600,Y:BNE LACA6
INY:DEX:BNE LAC8F
.LAC9A
LDA &2A
.LAC9C
JMP LAE18

.LAC9F
JSR LBCE1
.LACA2
LDA #&00
BRA LAC9C

.LACA6
INC &2A
DEC &2B
BEQ LACA2
INC &37
BNE LAC89
INC &38
BRA LAC89

.LACB4
JMP L9092

.LACB7 :\ =ABS
JSR LAD36
BEQ LACB4
BMI LACC4
.LACBE
BIT &2D
BMI LACDE
BRA LACF5

.LACC4
STZ &2E
RTS

.LACC7
JSR LA68A
.LACCA
LDA &31
BEQ LACD4
LDA &2E
EOR #&80
STA &2E
.LACD4
LDA #&FF
RTS

.LACD7
JSR LAD4C
.LACDA
BEQ LACB4
BMI LACCA
.LACDE
SEC
LDA #&00
TAY
SBC &2A
STA &2A
TYA
SBC &2B
STA &2B
TYA
SBC &2C
STA &2C
TYA
SBC &2D
STA &2D
.LACF5
LDA #&40
RTS

.LACF8
JSR L8ED5
CMP #&22:BEQ LAD19
LDX #&00
.LAD01
LDA (&19),Y
STA &0600,X
INY
INX
CMP #&0D:BEQ LAD10
CMP #&2C:BNE LAD01
.LAD10
DEY
.LAD11
DEX
STX &36
STY &1B
LDA #&00
RTS

.LAD19
LDX #&00
.LAD1B
INY
.LAD1C
LDA (&19),Y
CMP #&0D:BEQ LAD33
STA &0600,X
INY
INX
CMP #&22:BNE LAD1C
LDA (&19),Y
CMP #&22:BEQ LAD1B
BNE LAD11
.LAD33
JMP L9294

.LAD36
LDY &1B
INC &1B
LDA (&19),Y
CMP #&20:BEQ LAD36
CMP #&2D:BEQ LACD7
CMP #&22:BEQ LAD19
CMP #&2B:BNE LAD4F
.LAD4C
JSR L8ED5
.LAD4F
CMP #&8E:BCC LAD5A
CMP #&C6:BCS LAD8C
JMP L9019

.LAD5A
CMP #&3F:BCS LAD6A
CMP #&2E:BCS LAD74
CMP #&26:BEQ LADB7
CMP #&28:BEQ LADAC
.LAD6A
DEC &1B
JSR L9909
BEQ LAD7A
JMP LB1A0

.LAD74
JSR LA2E1
BCC LAD8C
RTS

.LAD7A
LDA &28
AND #&02
BNE LAD8C
BCS LAD8C
STX &1B
.LAD84
LDA &0440
LDY &0441
BRA LADF7

.LAD8C
BRK:EQUB &1A:EQUS "No such variable"
.LAD9E
BRK:EQUB &1B:EQUS CHR$tknMissing+")"
.LADA2
BRK:EQUB &1C:EQUS "Bad Hex":BRK

.LADAC
JSR L9D3B
INC &1B
CPX #&29:BNE LAD9E
TAY
RTS

.LADB7
JSR LABE8
INY
.LADBB
LDA (&19),Y
CMP #&30:BCC LADE4
CMP #&3A:BCC LADCF
SBC #&37
CMP #&0A:BCC LADE4
CMP #&10:BCS LADE4
.LADCF
ASL A
ASL A
ASL A
ASL A
LDX #&03
.LADD5
ASL A
ROL &2A
ROL &2B
ROL &2C
ROL &2D
DEX
BPL LADD5
INY
BNE LADBB
.LADE4
TXA
BPL LADA2
STY &1B
LDA #&40
RTS

.LADEC :\ =ADVAL
JSR L96B4
LDX &2A
LDA #&80
JSR OSBYTE
TXA
.LADF7
BRA LAE1A

.LADF9 :\ =TOP
INY
LDA (&19),Y
CMP #&50:BNE LAD8C
INC &1B
LDA &12
LDY &13
BRA LAE1A

.LAE08 :\ =PAGE
LDY &18
LDA #&00
BRA LAE1A

.LAE0E
JMP L9092

.LAE11 :\ =LEN
JSR LAD36
BNE LAE0E
LDA &36
.LAE18
LDY #&00
.LAE1A
STA &2A
STY &2B
STZ &2C
STZ &2D
LDA #&40
RTS

.LAE25 :\ =COUNT
LDA &1E
BRA LAE18

.LAE29 :\ =LOMEM
LDA &00
LDY &01
BRA LAE1A

.LAE2F :\ =HIMEM
LDA &06
LDY &07
BRA LAE1A

.LAE35 :\ =ERL
LDY &09
LDA &08
BRA LAE1A

.LAE3B :\ =ERR
LDA (&FD)
BRA LAE18

.LAE3F :\ =GET
JSR OSRDCH
BRA LAE18

.LAE44 :\ =TIME
INY
LDA (&19),Y
CMP #&24:BEQ LAE57
LDX #&2A
LDY #&00
LDA #&01
JSR OSWORD
LDA #&40
RTS

.LAE57
INC &1B
LDA #&0E
LDX #&00
LDY #&06
STZ &0600
JSR OSWORD
LDA #&18
BRA LAE8F

.LAE69 :\ =GET$
JSR OSRDCH
.LAE6C
STA &0600
LDA #&01
BRA LAE8F

.LAE73 :\ =LEFT$
CLC
.LAE74 :\ =RIGHT$
PHP
JSR L9D3B
BNE LAEBF
CPX #&2C:BNE LAEC2
INC &1B
JSR L96A4
JSR LBCD2
PLP
BCS LAE94
LDA &2A
CMP &36:BCS LAE91
.LAE8F
STA &36
.LAE91
LDA #&00
.LAE93
RTS

.LAE94
LDA &36
SBC &2A
BCC LAE91
BEQ LAE93
TAX
LDA &2A
STA &36
BEQ LAE93
LDY #&00
.LAEA5
LDA &0600,X
STA &0600,Y
INX
INY
DEC &2A
BNE LAEA5
BRA LAE91

.LAEB3 :\ =INKEY$
JSR LAA12
TXA
CPY #&00:BEQ LAE6C
.LAEBB
LDA #&00
BRA LAE8F

.LAEBF
JMP L9092

.LAEC2
JMP L8EF6

.LAEC5 :\ =MID$
JSR L9D3B
BNE LAEBF
CPX #&2C:BNE LAEC2
JSR LBC51
INC &1B
JSR L96AF
LDA &2A
PHA
LDA #&FF
STA &2A
INC &1B
CPX #&29:BEQ LAEEA
CPX #&2C:BNE LAEC2
JSR L96A7
.LAEEA
JSR LBCD2
PLA
TAY
CLC
BEQ LAEF8
SBC &36
BCS LAEBB
DEY
TYA
.LAEF8
STA &2C
TAX
LDY #&00
LDA &36
SEC
SBC &2C
CMP &2A:BCS LAF08
STA &2A
.LAF08
LDA &2A
BEQ LAEBB
.LAF0C
LDA &0600,X
STA &0600,Y
INY
INX
CPY &2A:BNE LAF0C
STY &36
BRA LAF7A

.LAF1C :\ =STR$
JSR L8ED5
LDY #&FF
CMP #&7E:BEQ LAF29
LDY #&00
DEC &1B
.LAF29
PHY
JSR LAD36
BEQ LAF44
TAY
PLA
STA &15
LDA &0403
BNE LAF3F
STA &37
JSR LA132
BRA LAF7A

.LAF3F
JSR LA118
BRA LAF7A

.LAF44
JMP L9092

.LAF47 :\ =STRING$
JSR L96AF
JSR LBC26
JSR L8EF1
JSR LADAC
BNE LAF44
JSR LBCE6
LDY &36
BEQ LAF7A
LDA &2A
BEQ LAF7D
DEC &2A
BEQ LAF7A
.LAF64
LDX #&00
.LAF66
LDA &0600,X
STA &0600,Y
INX
INY
BEQ LAF80
CPX &36:BCC LAF66
DEC &2A:BNE LAF64
STY &36
.LAF7A
LDA #&00
RTS

.LAF7D
STA &36
RTS

.LAF80
JMP L9E10

.LAF83
PLA:STA &0C:PLA:STA &0B
BRK:EQUB &1D:EQUS "No such "+CHR$tknFN+"/"+CHR$tknPROC:BRK

.LAF97
LDA &18
STA &0C
STZ &0B
.LAF9D
LDY #&01
LDA (&0B),Y
BMI LAF83
LDY #&03
.LAFA5
INY
LDA (&0B),Y
CMP #&20:BEQ LAFA5
CMP #&DD:BEQ LAFBF
.LAFB0
LDY #&03
LDA (&0B),Y
CLC
ADC &0B
STA &0B
BCC LAF9D
INC &0C
BRA LAF9D

.LAFBF
INY
STY &0A
JSR L8EE0
TYA
TAX
CLC
ADC &0B
LDY &0C
BCC LAFD0
INY
CLC
.LAFD0
SBC #&00
STA &3C
TYA
SBC #&00
STA &3D
LDY #&01
.LAFDB
INX:LDA (&3C),Y
CMP (&37),Y:BNE LAFB0
INY
CPY &39:BNE LAFDB
LDA (&3C),Y
JSR L8D84
BCS LAFB0
TXA
TAY
JSR L9BBC
JSR L9845
LDX #&01
JSR L9883
LDA &0B
STA (&02)
LDY #&01
LDA &0C
STA (&02),Y
INY
JSR L988B
JMP LB072


]:OS."SAVE BAS4C "+STR$~mcode%+" "+STR$~O%+" "+STR$~Q%+" "+STR$~Q%:O%=mcode%:Q%=P%-R%
[OPT P*3+4

.LB00C
BRK:EQUB &1E:EQUS "Bad call":BRK

.LB017 :\ =FN
LDA #tknFN
.LB019
STA &27
TSX
TXA
CLC
ADC &04
JSR LBD1E
TXA
STA (&04)
LDY #&00
.LB028
INX
INY
LDA &0100,X
STA (&04),Y
CPX #&FF:BNE LB028
TXS
LDA &27:PHA
LDA &0A:PHA
LDA &0B:PHA
LDA &0C:PHA
LDA &1B:TAX
CLC:ADC &19
LDY &1A
BCC LB04C
INY:CLC
.LB04C
SBC #&01
STA &37
TYA
SBC #&00
STA &38
LDY #&02
JSR L9AF8
CPY #&02:BEQ LB00C
STX &1B
JSR L8075
BNE LB068
JMP LAF97

.LB068
LDA (&2A)
STA &0B
LDY #&01
LDA (&2A),Y
STA &0C
.LB072
LDA #&00
PHA
STZ &0A
JSR L8EE0
CMP #&28:BEQ LB0CB
DEC &0A
.LB080
LDA &1B
PHA
LDA &19
PHA
LDA &1A
PHA
JSR L900B
PLA
STA &1A
PLA
STA &19
PLA
STA &1B
PLA
BEQ LB0A4
STA &3F
.LB09A
JSR LBD06
JSR LBC6A
DEC &3F
BNE LB09A
.LB0A4
PLA
STA &0C
PLA
STA &0B
PLA
STA &0A
PLA
LDA (&04)
TAX
TXS
LDY #&00
.LB0B4
INY
INX
LDA (&04),Y
STA &0100,X
CPX #&FF:BNE LB0B4
TYA:ADC &04
STA &04:BCC LB0C8
INC &05
.LB0C8
LDA &27
RTS

.LB0CB
LDA &1B
PHA
LDA &19
PHA
LDA &1A
PHA
JSR L98AE
BEQ LB12B
LDA &1B
STA &0A
PLA
STA &1A
PLA
STA &19
PLA
STA &1B
PLX
LDA &2C
PHA
LDA &2B
PHA
LDA &2A
PHA
INX
PHX
JSR LB181
JSR L8CE5
BEQ LB0CB
CMP #&29:BNE LB12B
LDA #&00
PHA
JSR L8ED5
CMP #&28:BNE LB12B
.LB108
JSR L9D3B
JSR LBC22
LDA &27
STA &2D
JSR LBC26
PLX
INX
PHX
JSR L8EEB
BEQ LB108
CMP #&29:BNE LB12B
PLA:PLA
STA &4C:STA &4D
CPX &4C:BEQ LB140

.LB12B
LDX #&FB:TXS
PLA:STA &0C
PLA:STA &0B
BRK:EQUB &1F:EQUS "Arguments":BRK

.LB140
JSR LBCE6
PLA
STA &2A
PLA
STA &2B
PLA
STA &2C
BMI LB16D
LDA &2D
BEQ LB12B
STA &27
LDX #&37
JSR LBDC6
LDA &27
BPL LB165
JSR LBBE8
JSR LA541
BRA LB168

.LB165
JSR LBCE6
.LB168
JSR LB338
BRA LB177

.LB16D
LDA &2D
BNE LB12B
JSR LBCD2
JSR L90AE
.LB177
DEC &4C
BNE LB140
LDA &4D
PHA
JMP LB080

.LB181
LDY &2C
CPY #&05:BCS LB18C
LDX #&37
JSR LBDC6
.LB18C
JSR LB1A0
PHP
JSR LBC22
PLP
BEQ LB19D
BMI LB19D
LDX #&37
JSR LAA80
.LB19D
JMP LBC26

.LB1A0
LDY &2C
BMI LB1F7
BEQ LB1C2
CPY #&05:BEQ LB1C7
LDY #&03
LDA (&2A),Y
STA &2D
DEY
LDA (&2A),Y
STA &2C
DEY
LDA (&2A),Y
TAX
LDA (&2A)
STA &2A
STX &2B
LDA #&40
RTS

.LB1C2
LDA (&2A),Y
JMP LAE1A

.LB1C7
STZ &35
STZ &2F
DEY
LDA (&2A),Y
STA &34
DEY
LDA (&2A),Y
STA &33
DEY
LDA (&2A),Y
STA &32
DEY
LDA (&2A),Y
STA &2E
TAY
LDA (&2A)
STA &30
BNE LB1EF
TYA
ORA &32
ORA &33
ORA &34
BEQ LB1F2
.LB1EF
TYA
ORA #&80
.LB1F2
STA &31
LDA #&FF
RTS

.LB1F7
CPY #&80:BEQ LB219
LDY #&03
LDA (&2A),Y
STA &36
BEQ LB218
LDY #&01
LDA (&2A),Y
STA &38
LDA (&2A)
STA &37
LDY &36
.LB20F
DEY
LDA (&37),Y
STA &0600,Y
TYA
BNE LB20F
.LB218
RTS

.LB219
LDA &2B
BEQ LB232
LDY #&00
.LB21F
LDA (&2A),Y
STA &0600,Y
EOR #&0D
BEQ LB22C
INY
BNE LB21F
TYA
.LB22C
STY &36
RTS

.LB22F :\ =CHR$
JSR L96B4
.LB232
LDA &2A
JMP LAE6C

.LB237
LDY &0A
BEQ LB23C
DEY
.LB23C
JSR L9BBC
STZ &08
STZ &09
LDX &18
STX &38
STZ &37
LDY &0C
CPY #&07:BEQ LB277
LDX &0B
.LB251
JSR L8DA0
CMP #&0D:BNE LB270
CPX &37:TYA
SBC &38:BCC LB277
JSR L8DA0
ORA #&00
BMI LB277
STA &09
JSR L8DA0
STA &08
JSR L8DA0
.LB270
CPX &37:TYA
SBC &38:BCS LB251
.LB277
RTS

.LB278
LDX #&FF
STX &28
TXS
INX
LDY #&00
LDA #&DA
JSR OSBYTE
LDA #&7E
JSR OSBYTE
JSR LB237
STZ &20
LDA (&FD)
BNE LB296
JSR LB2A6
.LB296
LDA &16
STA &0B
LDA &17
STA &0C
STZ &0A
JSR LBBCF
JMP L900B

.LB2A6
LDA #LB2AF AND 255:STA &16 :\ ON ERROR OFF
LDA #LB2AF DIV 256:STA &17
RTS

\ Default error handler
\ ---------------------
.LB2AF
EQUS CHR$tknREPORT+":"+CHR$tknIF+CHR$tknERL+CHR$tknPRINT+""" at line "";"
EQUS CHR$tknERL+":"+CHR$tknEND+CHR$tknELSE+CHR$tknPRINT+":"+CHR$tknEND
EQUB 13

.LB2C8 :\ SOUND
JSR L926F
LDX #&03
.LB2CD
LDA &2A
PHA
LDA &2B
PHA
PHX
JSR L96AC
PLX
DEX
BNE LB2CD
JSR L9B96
LDA &2A
STA &3D
LDA &2B
STA &3E
LDY #&07
LDX #&05
BRA LB307

.LB2EC :\ ENVELOPE
JSR L926F
LDX #&0D
.LB2F1
LDA &2A
PHA
PHX
JSR L96AC
PLX
DEX
BNE LB2F1
JSR L9B96
LDA &2A
STA &44
LDX #&0C
LDY #&08
.LB307
PLA
STA &37,X
DEX
BPL LB307
TYA
LDX #&37
LDY #&00
.LB312
JSR OSWORD
BRA LB322

.LB317 :\ WIDTH
JSR L926F
JSR L9B96
LDY &2A
DEY
STY &23
.LB322
JMP L9005

.LB325
JMP L9092

.LB328
JSR L9D3B
.LB32B
PLY:PLX
PLA:STA &39
PLA:STA &38
PLA:STA &37
PHX:PHY
.LB338
LDA &39
CMP #&05:BEQ LB360
LDA &27:BEQ LB325
BPL LB347
JSR L96C3
.LB347
LDA &2A:STA (&37)
LDA &39:BEQ LB35F
LDA &2B
LDY #&01:STA (&37),Y
LDA &2C
INY:STA (&37),Y:LDA &2D
INY:STA (&37),Y
.LB35F
RTS

.LB360
LDA &27
BEQ LB325
BMI LB369
JSR L8185
.LB369
LDA &30:STA (&37)
LDY #&01
LDA &2E:EOR &31
AND #&80:EOR &31
STA (&37),Y
INY:LDA &32:STA (&37),Y
INY:LDA &33:STA (&37),Y
INY:LDA &34:STA (&37),Y
RTS

.LB389
EQUS "EDIT 12,2":EQUB 13
.LB393 :\ EDIT
JSR LBBAC
LDA #&80:STA &1F
.LB39A
STZ &3B:STZ &3C
JSR LABE8
JSR L9B1E
PHP
JSR LBC26
JSR LABDB
LSR &2B
.LB3AD
PLP
BCC LB3BF
JSR L8CE5:BEQ LB3C6
JSR LBCE6
JSR LBC26
DEC &0A
BRA LB3C9

.LB3BF
JSR L8CE5
BEQ LB3C6
DEC &0A
.LB3C6
JSR L9B1E
.LB3C9
LDX #&31
JSR LBDC6
JSR L8EE0
CMP #&E7:BNE LB3F3
JSR L8EE0
JSR L9BBC
BRA LB3F6

.LB3DD :\ LIST
INY:LDA (&0B),Y
CMP #&4F:BNE LB39A
INC &0A
JSR L926F
JSR L9BA6
LDA &2A:STA &1F
.LB3F0
JMP L8F86

.LB3F3
JSR L9BB0
.LB3F6
LDA &0B:STA &19
JSR LBDE5
JSR LBCE6
JSR L80CD
LDA &3D:STA &0B
LDA &3E:STA &0C
BCS LB428
DEY:BRA LB41F

.LB410
JSR LBD94
BIT &1F:BMI LB41C
LDA #&0A:JSR OSWRCH
.LB41C
JSR L9BBC
.LB41F
LDA (&0B),Y:STA &2B
INY:LDA (&0B),Y:STA &2A
.LB428
LDA &2A:CLC:SBC &31
LDA &2B:SBC &32
BCC LB43E
BIT &1F:BPL LB3F0
LDX #LB389 AND 255
LDY #LB389 DIV 256
JMP OS_CLI

.LB43E
STZ &4C:STZ &4D
LDY #&04
STY &0A:STY &1B
BIT &3B:BPL LB44E
STZ &3B
.LB44E
BIT &3C:BPL LB454
STZ &3C
.LB454
LDA (&0B),Y
CMP #&0D:BEQ LB491
CMP #&F4:BEQ LB464
CMP #&22:BNE LB466
EOR &4C
.LB464
STA &4C
.LB466
LDX &4C:BNE LB476
CMP #&ED:BNE LB470
DEC &3B
.LB470
CMP #&FD:BNE LB476
DEC &3C
.LB476
LDX &19
.LB478
LDA &0700,X
CMP #&0D:BEQ LB489
CMP (&0B),Y:BNE LB48B
INY:INX:BRA LB478

.LB487
BRA LB410

.LB489
STA &4D
.LB48B
INC &1B
LDY &1B
BRA LB454

.LB491
LDA &4D
BEQ LB41C
JSR LA085
LDA #&01
INX
SEC
JSR LBDB4
LDX &3B
LDA #&02
JSR LBDB3
LDX &3C
LDA #&04
JSR LBDB3
STZ &4C
.LB4AF
LDY &0A
.LB4B1
LDA (&0B),Y
CMP #&0D:BEQ LB487
CMP #&22:BNE LB4C7
EOR &4C:STA &4C
LDA #&22
.LB4C1
JSR LBD94
INY
BRA LB4B1

.LB4C7
LDX &4C
BNE LB4C1
CMP #&8D:BNE LB4D9
JSR L9B2A
STY &0A
JSR LA081
BRA LB4AF

.LB4D9
CMP #&E3:BNE LB4DF
INC &3B
.LB4DF
CMP #&F5:BNE LB4E5
INC &3C
.LB4E5
CMP #&F4:BNE LB4EB
STA &4C
.LB4EB
JSR LBD37
INY
BRA LB4B1

.LB4F1 :\ NEXT
JSR L98F5
BNE LB4FF
LDX &26
BEQ LB532
BCS LB539
.LB4FC
JMP L9B69

.LB4FF
BCS LB4FC
LDX &26
BEQ LB532
.LB505
LDA &2A:CMP &0519,X:BNE LB51A
LDA &2B:CMP &051A,X:BNE LB51A
LDA &2C:CMP &051B,X:BEQ LB539

.LB51A
TXA
SEC
SBC #&0F
TAX
STX &26
BNE LB505
BRK:EQUB &21:EQUS "Can't match "+CHR$tknFOR
.LB532
BRK:EQUB &20:EQUS "No "+CHR$tknFOR:BRK

.LB539
LDA &0519,X:STA &2A
LDA &051A,X:STA &2B
LDY &051B,X:CPY #&05:BEQ LB5C0
LDA (&2A):ADC &051C,X:STA (&2A)
STA &37
LDY #&01
LDA (&2A),Y:ADC &051D,X:STA (&2A),Y
STA &38
INY
LDA (&2A),Y:ADC &051E,X:STA (&2A),Y
STA &39
INY
LDA (&2A),Y:ADC &051F,X:STA (&2A),Y
TAY
LDA &37
SEC
SBC &0521,X
STA &37
LDA &38:SBC &0522,X:TSB &37
LDA &39:SBC &0523,X:TSB &37
TYA
SBC &0524,X
ORA &37
BEQ LB59E
TYA
EOR &051F,X
EOR &0524,X
BPL LB59C
BCS LB59E
BRA LB5AE

.LB59C
BCS LB5AE
.LB59E
LDY &0526,X
LDA &0527,X
STY &0B
STA &0C
JSR L9BC6
JMP L900B

.LB5AE
TXA
SEC
SBC #&0F
STA &26
LDY &1B
STY &0A
JSR L8CE5
BNE LB5F5
JMP LB4F1

.LB5C0
JSR LB1C7
TXA
CLC
ADC #&1C
STA &4A
LDA #&05
STA &4B
JSR LA68D
LDA &2A
STA &37
LDA &2B
STA &38
JSR LB369
LDX &26
TXA
CLC
ADC #&21
STA &4A
JSR L9C8F
BEQ LB59E
LDA &051D,X
BMI LB5F1
BCS LB59E
BRA LB5AE

.LB5F1
BCC LB59E
BRA LB5AE

.LB5F5
JMP L9000

.LB5F8
BRK:EQUB &22:EQUS CHR$tknFOR+" variable"
.LB604
BRK:EQUB &23:EQUS "Too many "+CHR$tknFOR+"s"
.LB611
BRK:EQUB &24:EQUS "No "+CHR$tknTO:BRK

.LB618 :\ FOR
JSR L98AE
BEQ LB5F8
BCS LB5F8
JSR LBC43
JSR L9B86
JSR LB328
JSR L8ED5
CMP #&B8:BNE LB611
LDY &26
CPY #&96:BCS LB604
TYA
ADC #&0F
STA &26
LDA &37
STA &0528,Y
LDA &38
STA &0529,Y
LDA &39
STA &052A,Y
CMP #&05:BEQ LB6A1
JSR L96AF
LDY &26
LDA &2A
STA &0521,Y
LDA &2B
STA &0522,Y
LDA &2C
STA &0523,Y
LDA &2D
STA &0524,Y
LDA #&01
JSR LAE18
JSR L8ED5
CMP #&88:BNE LB677
JSR L96AF
LDY &1B
.LB677
STY &0A
LDY &26
LDA &2A
STA &051C,Y
LDA &2B
STA &051D,Y
LDA &2C
STA &051E,Y
LDA &2D
STA &051F,Y
.LB68F
JSR L9BCF
LDY &26
LDA &0B
STA &0526,Y
LDA &0C
STA &0527,Y
JMP L900B

.LB6A1
JSR L9D3B
JSR L96DD
LDA &26
CLC
ADC #&21
STA &4A
LDA #&05
STA &4B
JSR LA519
JSR LA5D8
JSR L8ED5
CMP #&88:BNE LB6C7
JSR L9D3B
JSR L96DD
LDY &1B
.LB6C7
STY &0A
LDA &26
CLC
ADC #&1C
STA &4A
LDA #&05
STA &4B
JSR LA519
BRA LB68F

.LB6D9 :\ GOSUB
JSR LB82A
.LB6DC
JSR L9BA6
LDY &25
CPY #&1A:BCS LB6F3
LDA &0B:STA &05CC,Y
LDA &0C:STA &05E6,Y
INC &25
BRA LB723

.LB6F3
BRK:EQUB &25:EQUS "Too many "+CHR$tknGOSUB+"s"
.LB700
BRK:EQUB &26:EQUS "No "+CHR$tknGOSUB:BRK

.LB707 :\ RETURN
JSR L9BA6
LDX &25
BEQ LB700
DEC &25
LDY &05CB,X
LDA &05E5,X
STY &0B
STA &0C
.LB71A
JMP L9005

.LB71D :\ GOTO
JSR LB82A
JSR L9BA6
.LB723
LDA &20
BEQ LB72A
JSR L9C4B
.LB72A
LDY #&04
STY &0A
LDY &3D
LDA &3E
.LB732
STY &0B
STA &0C
JMP L900B

.LB739
JSR L9BA6
JSR LB2A6
BRA LB71A

.LB741
JSR L8EE0
CMP #&87:BEQ LB739
LDY &0A
DEY
JSR L9BBC
STZ &0A
LDA &0B:STA &16
LDA &0C:STA &17
JMP L8FAE

.LB75B :\ ON
JSR L8EE0
CMP #tknERROR:BEQ LB741
DEC &0A
JSR L926F
CPX #tknPROC:BEQ LB774
INY
CPX #&E5:BEQ LB774
CPX #&E4:BNE LB7EA
.LB774
PHX
LDA &2B
ORA &2C
ORA &2D
BNE LB7D5
DEC &2A
BEQ LB7B6
BMI LB7D5
.LB783
LDA (&0B),Y
CMP #&0D:BEQ LB7D5
CMP #&3A:BEQ LB7D5
CMP #&8B:BEQ LB7D5
INY
CMP #&22:BNE LB79A
EOR &2B:STA &2B
.LB79A
LDX &2B
BNE LB783
CMP #&29:BNE LB7A4
DEC &2C
.LB7A4
CMP #&28:BNE LB7AA
INC &2C
.LB7AA
CMP #&2C:BNE LB783
LDX &2C:BNE LB783
DEC &2A:BNE LB783
.LB7B6
PLA
CMP #&F2:BEQ LB803
STY &0A
CMP #&E4:BEQ LB7CA
JSR LB82A
JSR L9BC6
JMP LB723

.LB7CA
JSR LB82A
LDY &0A
JSR LB81D
JMP LB6DC

.LB7D5
PLA
.LB7D6
LDA (&0B),Y
INY
CMP #&8B:BEQ LB817
CMP #&0D:BNE LB7D6
BRK:EQUB &28:EQUS CHR$tknON+" range"
.LB7EA
BRK:EQUB &27:EQUS CHR$tknON+" syntax"
.LB7F4
BRK:EQUB &29:EQUS "No such line":BRK
.LB803
STY &1B
JSR L8ED5
CMP #&F2:BNE LB7EA
JSR LB019
LDY &1B
JSR LB81D
JMP L9002

.LB817
STY &0A
JMP L9C29

.LB81C
INY
.LB81D
LDA (&0B),Y
CMP #&0D:BEQ LB827
CMP #&3A:BNE LB81C
.LB827
STY &0A
RTS

.LB82A
JSR L9B1E
BCS LB836
JSR L926F
LDA #&80
TRB &2B
.LB836
JSR L80CD
BCC LB7F4
RTS

.LB83C
JMP L9092

.LB83F
JMP L9B69

.LB842
STY &0A
.LB844
JMP L9002

.LB847
JSR LBA3C
STY &4C
JSR L9275
.LB84F
JSR L8CE5
BNE LB842
LDA &4C
PHA
JSR L98AE
BEQ LB83F
JSR L9275
PLA
STA &4C
PHP
JSR LBC26
LDY &4C
JSR OSBGET
STA &27
PLP
BCC LB88A
LDA &27
BNE LB83C
JSR OSBGET
STA &36
TAX
BEQ LB885
.LB87C
JSR OSBGET
STA &05FF,X
DEX
BNE LB87C
.LB885
JSR L90AB
BRA LB84F

.LB88A
LDA &27
BEQ LB83C
BMI LB89C
LDX #&03
.LB892
JSR OSBGET
STA &2A,X
DEX
BPL LB892
BRA LB8AA

.LB89C
LDX #&04
.LB89E
JSR OSBGET
STA &046C,X
DEX
BPL LB89E
JSR LA539
.LB8AA
JSR LBD06
JSR LB338
BRA LB84F

.LB8B2
PLA
PLA
BRA LB844

.LB8B6 :\ INPUT
JSR L8CDF
BEQ LB847
CMP #&86:BEQ LB8C2
DEC &0A
CLC
.LB8C2
ROR &4C
LSR &4C
LDA #&FF
STA &4D
.LB8CA
JSR L9299
BCS LB8D9
.LB8CF
JSR L9299
BCC LB8CF
LDX #&FF
STX &4D
CLC
.LB8D9
PHP
ASL &4C
PLP
ROR &4C
CMP #&2C:BEQ LB8CA
CMP #&3B:BEQ LB8CA
DEC &0A
LDA &4C
PHA
LDA &4D
PHA
JSR L98AE
BEQ LB8B2
PLA
STA &4D
PLA
STA &4C
JSR L9275
PHP
BIT &4C
BVS LB908
LDA &4D
CMP #&FF:BNE LB91F
.LB908
BIT &4C
BPL LB911
LDA #&3F
JSR OSWRCH
.LB911
JSR LBA70
STY &36
ASL &4C
CLC
ROR &4C
BIT &4C
BVS LB938
.LB91F
STA &1B
STZ &19
LDA #&06
STA &1A
JSR LACF8
.LB92A
JSR L8EEB
BEQ LB935
CMP #&0D:BNE LB92A
LDY #&FE
.LB935
INY
STY &4D
.LB938
PLP
BCS LB946
JSR LBC43
JSR LAB4E
JSR LB32B
.LB944
BRA LB8CA

.LB946
STZ &27
JSR L90AE
BRA LB944

.LB94D :\ RESTORE
STZ &3D
LDY &18
STY &3E
JSR L8EE0
DEC &0A
CMP #&3A:BEQ LB967
CMP #&0D:BEQ LB967
CMP #&8B:BEQ LB967
JSR LB82A
.LB967
JSR L9BA6
LDA &3D
STA &1C
LDA &3E
STA &1D
JMP L9005

.LB975
JSR L8CE5
BEQ LB97D
JMP L9000

.LB97D :\ READ
JSR L98AE
BEQ LB975
BCS LB98F
JSR LB9AC
JSR LBC43
JSR LB328
BRA LB99D

.LB98F
JSR LB9AC
JSR LBC26
JSR LACF8
STA &27
JSR L90AB
.LB99D
CLC
LDA &1B
ADC &19
STA &1C
LDA &1A
ADC #&00
STA &1D
BRA LB975

.LB9AC
JSR L9275
LDA &1C
STA &19
LDA &1D
STA &1A
STZ &1B
JSR L8EEB
BEQ LBA16
CMP #&DC:BEQ LBA16
CMP #&0D:BEQ LB9CF
.LB9C6
JSR L8EEB
BEQ LBA16
CMP #&0D:BNE LB9C6
.LB9CF
LDY &1B
LDA (&19),Y
BMI LB9F1
INY
INY
LDA (&19),Y
TAX
.LB9DA
INY
LDA (&19),Y
CMP #&20:BEQ LB9DA
CMP #&DC:BEQ LBA13
TXA
CLC
ADC &19
STA &19
BCC LB9CF
INC &1A
BRA LB9CF

.LB9F1
BRK:EQUB &2A:EQUS "Out of "+CHR$tknDATA
.LB9FB
BRK:EQUB &2B:EQUS "No "+CHR$tknREPEAT
.LBA01
BRK:EQUB &2D:EQUS CHR$tknMissing+"#"
.LBA05
BRK:EQUB &2C:EQUS "Too many "+CHR$tknREPEAT+"s":BRK

.LBA13
INY:STY &1B
.LBA16
RTS

.LBA17 :\ UNTIL
JSR L9D2F
JSR L9B91
JSR L96BC
LDX &24
BEQ LB9FB
LDA &2A
ORA &2B
ORA &2C
ORA &2D
BEQ LBA33
DEC &24
JMP L9005

.LBA33
LDY &04FF,X:LDA &0513,X
JMP LB732

.LBA3C
DEC &0A
.LBA3E
LDA &0A:STA &1B
LDA &0B:STA &19
LDA &0C:STA &1A
.LBA4A
JSR L8ED5
CMP #&23:BNE LBA01
JSR L96B4
LDY &2A
TYA
RTS

.LBA58 :\ REPEAT
LDX &24
CPX #&14:BCS LBA05
JSR L9BBC
LDA &0B:STA &0500,X
LDA &0C:STA &0514,X
INC &24
JMP L900B

.LBA70
LDA #&06
BRA LBA76

.LBA74
LDA #&07
.LBA76
STZ &37:STA &38
LDA #&EE:STA &39
LDA #&20:STA &3A
LDY #&FF:STY &3B
INY:LDX #&37
TYA:JSR OSWORD
BCC LBA95
JMP L9B7D

.LBA92
JSR OSNEWL
.LBA95
STZ &1E
RTS

.LBA98
JSR L80CD
BCC LBAEA
LDA &3D:STA &37:STA &12
LDA &3E:STA &38:STA &13
LDY #&03:LDA (&37),Y
CLC:ADC &37:STA &37
BCC LBAB6
INC &38
.LBAB6
LDY #&00
.LBAB8
LDA (&37),Y:STA (&12),Y
CMP #&0D:BNE LBAD3
INY:BNE LBAC7
INC &38:INC &13
.LBAC7
LDA (&37),Y:STA (&12),Y
BMI LBADC
JSR LBADF
JSR LBADF
.LBAD3
INY
BNE LBAB8
INC &38:INC &13
BRA LBAB8

.LBADC
JMP LBE05

.LBADF
INY:BNE LBAE6
INC &13:INC &38
.LBAE6
LDA (&37),Y:STA (&12),Y
.LBAEA
RTS

\ Tokenise line, enter into program if program line
.LBAEB
LDX #&FF:STX &28:STX &3C
JSR LBBCF
LDA &0B:STA &37
LDA &0C:STA &38
STZ &3B:STZ &0A
JSR L8DB2
JSR L9B1E
BCC LBAEA
.LBB08
LDA &1F:BEQ LBB15
.LBB0C
LDA &0700,Y:INY
CMP #&20:BEQ LBB0C
DEY
.LBB15
STY &3B
JSR LBA98
LDY #&07:STY &3C
LDY #&00:LDA #&0D
CMP (&3B):BEQ LBAEA
.LBB26
INY
CMP (&3B),Y:BNE LBB26
LDA #&20
.LBB2D
DEY:BEQ LBB34
CMP (&3B),Y:BEQ LBB2D
.LBB34
INY
LDA #&0D
STA (&3B),Y
INY
INY
INY
INY
STY &3F
LDA &12:STA &39
LDA &13:STA &3A
JSR LBE04
STA &37
LDA &13:STA &38
DEY
LDA &06:CMP &12:LDA &07
SBC &13:BCS LBB6B
JSR LBDE5
JSR LBBAC
BRK:EQUB &00:EQUS CHR$tknLINE+" space":BRK

.LBB6B
LDA (&39),Y:STA (&37),Y
TYA:BNE LBB76
DEC &3A:DEC &38
.LBB76
DEY
TYA
ADC &39
LDX &3A
BCC LBB7F
INX
.LBB7F
CMP &3D
TXA
SBC &3E:BCS LBB6B
LDY #&01
LDA &2B:STA (&3D),Y:INY
LDA &2A:STA (&3D),Y:INY
LDA &3F:STA (&3D),Y:SEC
TYA:ADC &3D:STA &3D
BCC LBBA0
INC &3E
.LBBA0
LDY #&FF
.LBBA2
INY
LDA (&3B),Y:STA (&3D),Y
CMP #&0D:BNE LBBA2
RTS

.LBBAC
LDA &12:STA &00:STA &02
LDA &13:STA &01:STA &03
JSR LBBCF
.LBBBB
LDX #&10
.LBBBD
LDA LBF14-1,X
STA &07F0-1,X
DEX:BNE LBBBD
LDX #&80
.LBBC8
STZ &047F,X
DEX:BNE LBBC8
RTS

.LBBCF
LDA &18:STA &1D
LDA &06:STA &04
LDA &07:STA &05
LDA #&80:TRB &1F
STZ &24:STZ &26
STZ &25:STZ &1C
RTS

.LBBE8
LDA &04:CLC:STA &4A:ADC #&05:STA &04
LDA &05:STA &4B:ADC #&00:STA &05
RTS

.LBBFA
LDA &04:SEC:SBC #&05
JSR LBD1E
LDA &30:STA (&04)
LDY #&01
LDA &2E:EOR &31:AND #&80
EOR &31:STA (&04),Y:INY
LDA &32:STA (&04),Y:INY
LDA &33:STA (&04),Y:INY
LDA &34:STA (&04),Y
RTS

.LBC22
BEQ LBC51
BMI LBBFA
.LBC26
LDA &04
SEC
SBC #&04
JSR LBD1E
LDY #&03
LDA &2D:STA (&04),Y:DEY
LDA &2C:STA (&04),Y:DEY
LDA &2B:STA (&04),Y
LDA &2A:STA (&04)
RTS

.LBC43
PLY
PLX
LDA &2A:PHA
LDA &2B:PHA
LDA &2C:PHA
PHX
PHY
RTS

.LBC51
CLC
LDA &04
SBC &36
JSR LBD1E
LDY &36
BEQ LBC65
.LBC5D
LDA &05FF,Y:STA (&04),Y
DEY:BNE LBC5D
.LBC65
LDA &36:STA (&04)
RTS

.LBC6A
LDA &39
CMP #&80:BEQ LBC95
BCC LBCAA
LDA (&04)
TAX
BEQ LBC8D
LDA (&37)
SBC #&01
STA &39
LDY #&01
LDA (&37),Y
SBC #&00
STA &3A
.LBC85
LDA (&04),Y
STA (&39),Y
INY
DEX
BNE LBC85
.LBC8D
LDA (&04)
LDY #&03
.LBC91
STA (&37),Y
BRA LBCE1

.LBC95
LDA (&04)
TAX
BEQ LBCA6
LDY #&01
.LBC9C
LDA (&04),Y:DEY
STA (&37),Y:INY
INY:DEX:BNE LBC9C
.LBCA6
LDA #&0D
BNE LBC91
.LBCAA
LDA (&04):STA (&37)
LDY #&04
LDA &39:BEQ LBCCE
LDY #&01
LDA (&04),Y:STA (&37),Y:INY
LDA (&04),Y:STA (&37),Y:INY
LDA (&04),Y:STA (&37),Y:INY
CPY &39:BCS LBCCE
LDA (&04),Y:STA (&37),Y:INY
.LBCCE
TYA:CLC
BRA LBCFD

.LBCD2
LDA (&04):STA &36
BEQ LBCE3
TAY
.LBCD9
LDA (&04),Y:STA &05FF,Y
DEY:BNE LBCD9
.LBCE1
LDA (&04)
.LBCE3
SEC
BRA LBCFD

.LBCE6
LDY #&03
LDA (&04),Y:STA &2D:DEY
LDA (&04),Y:STA &2C:DEY
LDA (&04),Y:STA &2B
LDA (&04):STA &2A
.LBCFA
CLC
LDA #&04
.LBCFD
ADC &04:STA &04:BCC LBD05
INC &05
.LBD05
RTS

.LBD06
LDX #&37
.LBD08
LDY #&03
LDA (&04),Y:STA &03,X:DEY
LDA (&04),Y:STA &02,X:DEY
LDA (&04),Y:STA &01,X
LDA (&04):STA &00,X
BRA LBCFA

.LBD1E
STA &04
BCS LBD24
DEC &05
.LBD24
LDY &05
CPY &03:BCC LBD34
BNE LBD30
CMP &02:BCC LBD34
.LBD30
RTS

.LBD31
JSR LBBAC
.LBD34
JMP L90A1

.LBD37
STA &37
CMP #&80:BCC LBD94
LDA #L8456 AND 255:STA &38
LDA #L8456 DIV 256:STA &39
PHY
.LBD46
LDY #&00
.LBD48
INY
LDA (&38),Y
BPL LBD48
CMP &37:BEQ LBD5E
INY
TYA
SEC
ADC &38
STA &38
BCC LBD46
INC &39
BRA LBD46

.LBD5E
LDY #&00
.LBD60
LDA (&38),Y
BMI LBD6A
JSR LBD94
INY
BNE LBD60
.LBD6A
PLY
RTS

.LBD6C
PHA
LSR A
LSR A
LSR A
LSR A
JSR LBD77
PLA
AND #&0F
.LBD77
CMP #&0A:BCC LBD7D
ADC #&06
.LBD7D
ADC #&30
.LBD7F
PHA
LDA &23
CMP &1E:BCS LBD89
JSR LBA92
.LBD89
PLA
INC &1E
JMP (&020E)

.LBD8F
JSR LBD6C
.LBD92
LDA #&20
.LBD94
BIT &1F
BMI LBDA2
.LBD98
CMP #&0D:BNE LBD7F
JSR OSWRCH
JMP LBA95

.LBDA2
STA (&02)
INC &02
BNE LBDC5
INC &03
PHA
LDA &03
EOR &07
BEQ LBD31
PLA
RTS

.LBDB3
CLC
.LBDB4
AND &1F
BEQ LBDC5
TXA
BMI LBDC5
ROL A
TAX
BEQ LBDC5
.LBDBF
JSR LBD92
DEX
BNE LBDBF
.LBDC5
RTS

.LBDC6
LDA &2A:STA &00,X
LDA &2B:STA &01,X
LDA &2C:STA &02,X
LDA &2D:STA &03,X
RTS

\ Load program to PAGE
.LBDD7
JSR LBE41 :\ get cr-string, FILE_NAME=STRA, FILE_LOAD=PAGE/memhigh
STZ &3D   :\ FILE_EXEC=0 to load to specified address
LDY #&00  :\ Point to OSFILE block
LDA #&FF
LDX #&37
JSR OSFILE
\ Continue into FindTOP

.LBDE5
LDA &18:STA &13
STZ &12
LDY #&01
.LBDED
LDA (&12)
CMP #&0D:BNE LBE11
LDA (&12),Y:BMI LBE03
LDY #&03
LDA (&12),Y:BEQ LBE11
CLC
JSR LBE06
BRA LBDED

.LBE03
INY
.LBE04
CLC
.LBE05
TYA
.LBE06
ADC &12
STA &12
BCC LBE0E
INC &13
.LBE0E
LDY #&01
RTS

.LBE11
JSR LBECF
EQUB 13:EQUS "Bad program":EQUB 13
NOP
JMP L8F86

.LBE25
STZ &37
LDA #&06:STA &38
.LBE2B
LDY &36
LDA #&0D
STA &0600,Y
RTS

.LBE33
JMP L9092 :\ Error

.LBE36
JSR L9D2F :\ Call expression evaluator
BNE LBE33
JSR LBE25 :\ Point 37/8 to STRA, put terminating <cr> in
JMP L9B91 :\ Check for end of statement

.LBE41
JSR LBE36 :\ Get CR-string
DEY       :\ Y=0
STY &39
LDA &18
STA &3A   :\ 39/A=PAGE
.LBE4B
LDA #&82
JSR OSBYTE
STX &3B   :\ 3B/C=memhigh
STY &3C
RTS

.LBE55 :\ SAVE
JSR LBDE5
JSR LBE41
STX &3F:STY &40
STX &43:STY &44
STX &47:STY &48
STZ &41
LDX &12:STX &45
LDX &13:STX &46
LDX #L802B AND 255:STX &3D
LDX #L802B DIV 256:STX &3E
LDX &18:STX &42
LDA #&00:TAY
LDX #&37
JSR OSFILE
BRA LBEAB

.LBE87 :\ OSCLI
JSR LBE36
LDX #&00:LDY #&06
JSR OS_CLI
BRA LBEAB

.LBE93 :\ EXT=
LDA #&03
BRA LBE99

.LBE97 :\ PTR=
LDA #&01
.LBE99
PHA
JSR LBA3E
PHY
JSR L9B52
JSR L96BC
PLY
LDX #&2A
PLA
JSR OSARGS
.LBEAB
JMP L9005

.LBEAE :\ CLOSE
JSR LBA3E
JSR L9B96
LDY &2A
LDA #&00
JSR OSFIND
BRA LBEAB

.LBEBD :\ BPUT
JSR LBA3E
PHA
JSR L96AC
JSR L9B96
PLY
LDA &2A
JSR OSBPUT
BRA LBEAB

\ PRINT INLINE TEXT
\ =================
.LBECF
PLA:STA &37:PLA:STA &38  :\ Pop address to &37/8
BRA LBEDA                :\ Jump into printout loop
.LBED7
JSR OSASCI               :\ Print character
.LBEDA
JSR L8DA9                :\ Update address and fetch byte
BPL LBED7                :\ If b7=0, jump back to print
JMP (&0037)              :\ Return to code

.LBEE2
LDA #&05
PHX
LDX #&2A
LDY #&00
JSR OSWORD
PLX
LDA &2E
.LBEEF
INC &2A:BNE LBEFD
INC &2B:BNE LBEFD
INC &2C:BNE LBEFD
INC &2D
.LBEFD
RTS

.LBEFE
LDA #&0D
LDY &18:STY &13
STZ &12:STZ &20
STA (&12)
LDA #&FF
LDY #&01
STA (&12),Y
INY
STY &12
.LBF13
RTS

.LBF14
EQUW LA7B8:EQUW LA5EE
EQUW LA6A6:EQUW LA68D
EQUW LACCA:EQUW LA541
EQUW LA519:EQUB &4A:EQUB &2E

.LBF24
EQUB &81:EQUB &C9:EQUB &10:EQUB &00:EQUB &00 :\ -PI/2
.LBF29
EQUB &6F:EQUB &15:EQUB &77:EQUB &7A:EQUB &61 :\
.LBF2E
EQUB &81:EQUB &49:EQUB &0F:EQUB &DA:EQUB &A2 :\  PI/2
.LBF33
EQUB &80:EQUB &22:EQUB &F9:EQUB &83:EQUB &6E :\
.LBF38
EQUB &7B:EQUB &0E:EQUB &FA:EQUB &35:EQUB &12 :\ 1.74E-2 - 1 deg in rads
.LBF3D
EQUB &86:EQUB &65:EQUB &2E:EQUB &E0:EQUB &D3 :\ 57.29 - 1 rad in degrees
.LBF42
EQUB &7F:EQUB &5E:EQUB &5B:EQUB &D8:EQUB &AA :\
.LBF47
EQUB &82:EQUB &2D:EQUB &F8:EQUB &54:EQUB &58 :\
.LBF4C
EQUB &80:EQUB &31:EQUB &72:EQUB &17:EQUB &F8 :\
.LBF51
EQUB &80:EQUB &0B:EQUB &D7:EQUB &50:EQUB &29 :\
EQUB &7C:EQUB &D2:EQUB &7C:EQUB &86:EQUB &05 :\
EQUB &80:EQUB &15:EQUB &52:EQUB &B6:EQUB &36 :\
\ &BF60
EQUB &7C:EQUB &99:EQUB &98:EQUB &36:EQUB &04 :\
EQUB &80:EQUB &40:EQUB &00:EQUB &01:EQUB &10 :\  3/4
EQUB &7F:EQUB &2A:EQUB &AA:EQUB &AA:EQUB &E3 :\  1/3
.LBF6F
EQUB &7F:EQUB &FF:EQUB &FF:EQUB &FF:EQUB &FF :\ -1/2
.LBF74
EQUB &7A:EQUB &C3:EQUB &1E:EQUB &18:EQUB &BE :\
EQUB &73:EQUB &61:EQUB &71:EQUB &55:EQUB &2D :\
EQUB &7B:EQUB &8C:EQUB &9B:EQUB &91:EQUB &88 :\
EQUB &77:EQUB &2B:EQUB &A4:EQUB &C4:EQUB &53 :\
EQUB &7C:EQUB &4C:EQUB &CC:EQUB &CA:EQUB &B7 :\
EQUB &7E:EQUB &AA:EQUB &AA:EQUB &AA:EQUB &A6 :\
.LBF92
EQUB &81:EQUB &00:EQUB &00:EQUB &00:EQUB &00 :\  1
.LBF97
EQUB &7D:EQUB &A3:EQUB &F2:EQUB &EF:EQUB &44 :\
EQUB &7E:EQUB &1F:EQUB &01:EQUB &A1:EQUB &4D :\
EQUB &7F:EQUB &61:EQUB &6D:EQUB &F4:EQUB &3F :\
EQUB &7E:EQUB &5C:EQUB &91:EQUB &23:EQUB &AC :\
EQUB &7E:EQUB &76:EQUB &B8:EQUB &8D:EQUB &1A :\
\ &BFB0
EQUB &7D:EQUB &1D:EQUB &3E:EQUB &AB:EQUB &2C :\
EQUB &81:EQUB &09:EQUB &41:EQUB &81:EQUB &D2 :\
EQUB &80:EQUB &74:EQUB &DF:EQUB &BD:EQUB &20 :\
EQUB &80:EQUB &83:EQUB &8B:EQUB &1F:EQUB &B5 :\
EQUB &7F:EQUB &82:EQUB &59:EQUB &AD:EQUB &AB :\
.LBFC9
EQUB &80:EQUB &6D:EQUB &63:EQUB &38:EQUB &2C :\
.LBFCE
EQUB &7D:EQUB &11:EQUB &D4:EQUB &B1:EQUB &D1 :\
EQUB &79:EQUB &68:EQUB &BC:EQUB &4F:EQUB &59 :\
EQUB &75:EQUB &05:EQUB &2C:EQUB &9E:EQUB &39 :\
EQUB &7B:EQUB &08:EQUB &88:EQUB &3B:EQUB &A6 :\
EQUB &6C:EQUB &31:EQUB &CF:EQUB &D1:EQUB &8C :\
EQUB &7D:EQUB &2A:EQUB &AA:EQUB &AA:EQUB &89 :\  8.33
EQUB &7F:EQUB &FF:EQUB &FF:EQUB &FF:EQUB &E8 :\ -0.5
EQUB &81:EQUB &00:EQUB &00:EQUB &00:EQUB &00 :\  1.0
.LBFF6
EQUB &81:EQUB &00:EQUB &00:EQUB &00:EQUB &00 :\  1.0

.z%
EQUS "Roger"
]:IFfixDIM%:z%=P%-z%:P%=P%-z%:O%=O%-z%
[OPT P*3+4
EQUS STRING$(((P%+255)AND&FF00)-P%,CHR$0)
]:OS."SAVE BAS4D "+STR$~mcode%+" "+STR$~O%+" "+STR$~Q%+" "+STR$~Q%:O%=mcode%:Q%=P%-R%
[OPT P*3+4

]:NEXT
P=P+1:IFP>1:OS."LOAD BAS4A":OS."LOAD BAS4B":OS."LOAD BAS4C":OS."LOAD BAS4D":OS."SAVE BAS4 "+STR$~S%+"+4000"