Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape31a_acorn_eu_1992_january.wav » HelpSrc

HelpSrc

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape31a_acorn_eu_1992_january.wav
Filename: HelpSrc
Read OK:
File size: 1BE2 bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10REM Basic System Help Utility
   20REM by Stephen Wade
   30REM (c) The Micro User
   40REM For Master/Compact and
   50REM any Electron/BBC B/BBC B+
   60REM fitted with sideways Ram
   70MODE 7
   80buffer=&A8:hexbuffer=&AA
   90osnewl=&FFE7:osasci=&FFE3
  100osbyte=&FFF4:oswrch=&FFEE
  110FOR pass=4 TO 7 STEP 3
  120P%=&8000:O%=&5000:[OPT pass
  130\ Standard Rom header data
  140OPT FNequw(0):OPT FNequb(0)
  150JMP srvc:OPT FNequb(&82):OPT FNequb(cpy MOD 256):OPT FNequb(1)
  160\ Title and version string
  170.ttl
  180OPT FNequs("Basic System Help Utility"):OPT FNequb(0):OPT FNequs(" 1.05"):OPT FNequb(0)
  190\ Copyright string
  200.cpy
  210OPT FNequb(0):OPT FNequs("(C) The Micro User"):OPT FNequb(0)
  220\ Service entry routine
  230.srvc
  240CMP #9:BEQ gh
  250CMP #3:BEQ prntttl
  260CMP #39:BEQ prntttl:RTS
  270\ Print title on Break
  280.prntttl
  290PHA:TXA:PHA:TYA:PHA:LDY #0
  300.lpr
  310LDA ttl,Y:BEQ tft
  320JSR osasci:INY:JMP lpr
  330.tft
  340JSR osnewl:JSR osnewl
  350PLA:TAY:PLA:TAX:PLA:TAY:RTS
  360\ *Help service routine
  370.gh
  380PHA:TXA:PHA:TYA:PHA:LDA (&F2),Y
  390CMP #13:BNE chk:JSR h:LDX #&FF
  400.dtls
  410INX:LDA cmmnd,X:BEQ dnt
  420JSR osasci:BNE dtls
  430.dnt
  440JSR osasci:JSR osnewl:JMP rstr
  450.chk
  460LDX #&FF:DEY
  470.gn
  480INX:INY:LDA (&F2),Y:AND #&DF
  490CMP com,X:BEQ gn:LDA com,X
  500CMP #&FE:BEQ main
  510.rstr
  520PLA:TAY:PLA:TAX:PLA:RTS
  530.h
  540JSR osnewl:LDX #&FF:JSR hlp
  550JSR hlp:JSR osnewl:RTS
  560.hlp
  570INX:LDA ttl,X:BEQ dn
  580JSR osasci:BNE hlp
  590.dn
  600RTS
  610.main
  620\ Start of extended help routine
  630\ Check if Basic first
  640LDA #187:LDX #0:LDY #&FF
  650JSR osbyte:STX buffer
  660LDA #252:LDX #0:LDY #&FF
  670JSR osbyte:CPX buffer:BNE isnot
  680JMP main2
  690.isnot
  700\ If not, print special message
  710LDA #notbas MOD 256:STA buffer
  720LDA #notbas DIV 256:STA buffer+1
  730JSR prnttxt:JMP tft
  740.main2
  750\ Beginning of main routine
  760\ if all is in order
  770JSR osnewl
  780\ Stack zero page workspace
  790LDA buffer:PHA:LDA buffer+1
  800PHA:LDA hexbuffer:PHA
  810LDA hexbuffer+1:PHA
  820.main3
  830\ PAGE
  840LDA htptrs:STA buffer
  850LDA htptrs+1:STA buffer+1
  860JSR prnttxt
  870LDX &18:LDY #0:JSR hxprnt
  880\ TOP
  890LDA htptrs+2:STA buffer
  900LDA htptrs+3:STA buffer+1
  910JSR prnttxt
  920LDX &13:LDY &12:JSR hxprnt
  930\ Program size
  940LDA htptrs+4:STA buffer
  950LDA htptrs+5:STA buffer+1
  960JSR prnttxt
  970LDA &12:SEC:SBC #0:TAY
  980LDA &13:SBC &18:TAX:CLC
  990JSR hxprnt
 1000\ LOMEM
 1010LDA htptrs+6:STA buffer
 1020LDA htptrs+7:STA buffer+1
 1030JSR prnttxt
 1040LDX &01:LDY &00:JSR hxprnt
 1050\ Bytes used
 1060LDA htptrs+8:STA buffer
 1070LDA htptrs+9:STA buffer+1
 1080JSR prnttxt
 1090LDA &04:SEC:SBC &02:STA buffer
 1100LDA &05:SBC &03:STA buffer+1
 1110CLC:LDA &06:SEC:SBC #0
 1120SBC buffer:TAY:LDA &07:SBC &18
 1130SBC buffer+1:TAX:CLC
 1140JSR hxprnt
 1150\ Heap
 1160LDA htptrs+10:STA buffer
 1170LDA htptrs+11:STA buffer+1
 1180JSR prnttxt
 1190LDX &03:LDY &02:JSR hxprnt
 1200\ Bytes free
 1210LDA htptrs+12:STA buffer
 1220LDA htptrs+13:STA buffer+1
 1230JSR prnttxt
 1240LDA &04:SEC:SBC &02:TAY
 1250LDA &05:SBC &03:TAX:CLC
 1260JSR hxprnt
 1270\ Stack
 1280LDA htptrs+14:STA buffer
 1290LDA htptrs+15:STA buffer+1
 1300JSR prnttxt
 1310LDX &05:LDY &04:JSR hxprnt
 1320\ Next location
 1330LDA htptrs+16:STA buffer
 1340LDA htptrs+17:STA buffer+1
 1350JSR prnttxt
 1360LDA &02:SEC:ADC #0:TAY
 1370LDA &03:ADC #0:TAX:CLC
 1380JSR hxprnt
 1390\ HIMEM
 1400LDA htptrs+18:STA buffer
 1410LDA htptrs+19:STA buffer+1
 1420JSR prnttxt
 1430LDX &07:LDY &06:JSR hxprnt
 1440\ WHENO
 1450LDA htptrs+20:STA buffer
 1460LDA htptrs+21:STA buffer+1
 1470JSR prnttxt
 1480LDA &1F:JSR hxprnt2
 1490\ REPEAT depth
 1500LDA htptrs+22:STA buffer
 1510LDA htptrs+23:STA buffer+1
 1520JSR prnttxt
 1530LDA &24:JSR hxprnt2
 1540\ TRACE
 1550LDA htptrs+24:STA buffer
 1560LDA htptrs+25:STA buffer+1
 1570JSR prnttxt:LDA #79:JSR oswrch
 1580LDA &20:CMP #0:BEQ off
 1590LDA #78:JSR oswrch
 1600LDA #32:JSR oswrch:JMP main4
 1610.off
 1620LDA #70:JSR oswrch:JSR oswrch
 1630.main4
 1640\ GOSUB depth
 1650LDA htptrs+26:STA buffer
 1660LDA htptrs+27:STA buffer+1
 1670JSR prnttxt
 1680LDA &25:JSR hxprnt2
 1690\ WIDTH
 1700LDA htptrs+28:STA buffer
 1710LDA htptrs+29:STA buffer+1
 1720JSR prnttxt
 1730LDA &23:JSR hxprnt2
 1740\ FOR depth
 1750LDA htptrs+30:STA buffer
 1760LDA htptrs+31:STA buffer+1
 1770JSR prnttxt
 1780LDA &26:JSR hxprnt2
 1790\ Tidy screen with CR's
 1800JSR osnewl:JSR osnewl
 1810\ Restore registers and exit
 1820.lldn
 1830PLA:STA hexbuffer+1
 1840PLA:STA hexbuffer
 1850PLA:STA buffer+1
 1860PLA:STA buffer
 1870PLA:TAY:PLA:TAX:PLA:RTS
 1880\ Text printing routine
 1890.prnttxt
 1900LDY #0
 1910.prnttxt2
 1920LDA (buffer),Y:CMP #&FF
 1930BEQ prnttxt3:JSR osasci
 1940INY:JMP prnttxt2
 1950.prnttxt3
 1960RTS
 1970\ Two-part hex number sorter
 1980.hxprnt
 1990STX hexbuffer:STY hexbuffer+1
 2000LDA hexbuffer:JSR hxprnt2
 2010LDA hexbuffer+1:JSR hxprnt2:RTS
 2020\ Hex number printer
 2030.hxprnt2
 2040PHA:AND #240
 2050LSR A:ROR A:ROR A:ROR A
 2060JSR hxprnt3:PLA:AND #15
 2070.hxprnt3
 2080CLC:ADC #48:CMP #58
 2090BCC hxprnt4:CLC:ADC #7
 2100.hxprnt4
 2110JMP oswrch
 2120\ Message if not Basic language
 2130.notbas
 2140OPT FNequs("This language is not Basic."):OPT FNequb(&FF)
 2150\ Extended *Help test string
 2160.com
 2170OPT FNequs("SYSTVARS")
 2180OPT FNequb(&FE)
 2190\ Additional help information
 2200.cmmnd
 2210OPT FNequs("  SystVars")
 2220OPT FNequb(0)
 2230\ Table of pointers to the
 2240\ extended help texts
 2250.htptrs
 2260OPT FNequw(ht1)
 2270OPT FNequw(ht2)
 2280OPT FNequw(ht3)
 2290OPT FNequw(ht4)
 2300OPT FNequw(ht5)
 2310OPT FNequw(ht6)
 2320OPT FNequw(ht7)
 2330OPT FNequw(ht8)
 2340OPT FNequw(ht9)
 2350OPT FNequw(ht10)
 2360OPT FNequw(ht11)
 2370OPT FNequw(ht12)
 2380OPT FNequw(ht13)
 2390OPT FNequw(ht14)
 2400OPT FNequw(ht15)
 2410OPT FNequw(ht16)
 2420.ht1
 2430OPT FNequs("System variables are as follows:-")
 2440OPT FNequb(13):OPT FNequb(13)
 2450OPT FNequs("PAGE  = &")
 2460OPT FNequb(&FF)
 2470.ht2
 2480OPT FNequb(13)
 2490OPT FNequs("TOP   = &")
 2500OPT FNequb(&FF)
 2510.ht3
 2520OPT FNspaces(3)
 2530OPT FNequs("Program size = &")
 2540OPT FNequb(&FF)
 2550.ht4
 2560OPT FNequb(13)
 2570OPT FNequs("LOMEM = &")
 2580OPT FNequb(&FF)
 2590.ht5
 2600OPT FNspaces(3)
 2610OPT FNequs("Bytes used = &")
 2620OPT FNequb(&FF)
 2630.ht6
 2640OPT FNequb(13)
 2650OPT FNequs("Heap  = &")
 2660OPT FNequb(&FF)
 2670.ht7
 2680OPT FNspaces(3)
 2690OPT FNequs("Bytes free = &")
 2700OPT FNequb(&FF)
 2710.ht8
 2720OPT FNequb(13)
 2730OPT FNequs("Stack = &")
 2740OPT FNequb(&FF)
 2750.ht9
 2760OPT FNspaces(3)
 2770OPT FNequs("Next location = &")
 2780OPT FNequb(&FF)
 2790.ht10
 2800OPT FNequb(13)
 2810OPT FNequs("HIMEM = &")
 2820OPT FNequb(&FF)
 2830.ht11
 2840OPT FNequb(13):OPT FNequb(13)
 2850OPT FNequs("LISTO = &")
 2860OPT FNequb(&FF)
 2870.ht12
 2880OPT FNspaces(5)
 2890OPT FNequs("REPEAT depth = &")
 2900OPT FNequb(&FF)
 2910.ht13
 2920OPT FNequb(13)
 2930OPT FNequs("TRACE ")
 2940OPT FNequb(&FF)
 2950.ht14
 2960OPT FNspaces(7)
 2970OPT FNequs("GOSUB depth = &")
 2980OPT FNequb(&FF)
 2990.ht15
 3000OPT FNequb(13)
 3010OPT FNequs("WIDTH = &")
 3020OPT FNequb(&FF)
 3030.ht16
 3040OPT FNspaces(5)
 3050OPT FNequs("FOR depth = &")
 3060OPT FNequb(&FF)
 3070]:NEXT
 3080REM Auto-save code
 3090$&700="SAVE BasHelp 5000 "+STR$~O%+" 8000 8000"
 3100X%=0:Y%=7:CALL &FFF7
 3110PRINT ''"Code saved under the name of BasHelp."''"To use, load into Sideways Ram and type *H. SystVars."'':END
 3120REM Various subroutines
 3130DEF FNequb(S%)
 3140?P%=S%:P%=P%+1
 3150?O%=S%:O%=O%+1:=pass
 3160DEF FNequw(S%)
 3170!P%=S%:P%=P%+2
 3180!O%=S%:O%=O%+2:=pass
 3190DEF FNequs(S$)
 3200$P%=S$:P%=P%+LEN(S$)
 3210$O%=S$:O%=O%+LEN(S$):=pass
 3220DEF FNspaces(S%)
 3230FOR N%=1 TO S%
 3240?P%=32:P%=P%+1
 3250?O%=32:O%=O%+1:NEXT:=pass

� Basic System Help Utility
� by Stephen Wade
� (c) The Micro User
(� For Master/Compact and
2� any Electron/BBC B/BBC B+
<� fitted with sideways Ram
F� 7
Pbuffer=&A8:hexbuffer=&AA
Zosnewl=&FFE7:osasci=&FFE3
dosbyte=&FFF4:oswrch=&FFEE
n� pass=4 � 7 � 3
xP%=&8000:O%=&5000:[OPT pass
�\ Standard Rom header data
�OPT �equw(0):OPT �equb(0)
�=JMP srvc:OPT �equb(&82):OPT �equb(cpy � 256):OPT �equb(1)
�\ Title and version string
�.ttl
�WOPT �equs("Basic System Help Utility"):OPT �equb(0):OPT �equs(" 1.05"):OPT �equb(0)
�\ Copyright string
�.cpy
�=OPT �equb(0):OPT �equs("(C) The Micro User"):OPT �equb(0)
�\ Service entry routine
�	.srvc
�CMP #9:BEQ gh
�CMP #3:BEQ prntttl
CMP #39:BEQ prntttl:RTS
\ Print title on Break
.prntttl
"PHA:TXA:PHA:TYA:PHA:LDY #0
,.lpr
6LDA ttl,Y:BEQ tft
@JSR osasci:INY:JMP lpr
J.tft
TJSR osnewl:JSR osnewl
^PLA:TAY:PLA:TAX:PLA:TAY:RTS
h\ *Help service routine
r.gh
|#PHA:TXA:PHA:TYA:PHA:LDA (&F2),Y
�"CMP #13:BNE chk:JSR h:LDX #&FF
�	.dtls
�INX:LDA cmmnd,X:BEQ dnt
�JSR osasci:BNE dtls
�.dnt
�"JSR osasci:JSR osnewl:JMP rstr
�.chk
�LDX #&FF:DEY
�.gn
�INX:INY:LDA (&F2),Y:� #&DF
�CMP com,X:BEQ gn:LDA com,X
�CMP #&FE:BEQ main
�	.rstr
PLA:TAY:PLA:TAX:PLA:RTS
.h
JSR osnewl:LDX #&FF:JSR hlp
&JSR hlp:JSR osnewl:RTS
0.hlp
:INX:LDA ttl,X:BEQ dn
DJSR osasci:BNE hlp
N.dn
XRTS
b	.main
l$\ Start of extended help routine
v\ Check if Basic first
�LDA #187:LDX #0:LDY #&FF
�JSR osbyte:STX buffer
�LDA #252:LDX #0:LDY #&FF
�#JSR osbyte:CPX buffer:BNE isnot
�
JMP main2
�
.isnot
�#\ If not, print special message
� LDA #notbas � 256:STA buffer
�"LDA #notbas � 256:STA buffer+1
�JSR prnttxt:JMP tft
�
.main2
�\ Beginning of main routine
�\ if all is in order
JSR osnewl
\ Stack zero page workspace
LDA buffer:PHA:LDA buffer+1
 PHA:LDA hexbuffer:PHA
*LDA hexbuffer+1:PHA
4
.main3
>\ �
HLDA htptrs:STA buffer
RLDA htptrs+1:STA buffer+1
\JSR prnttxt
fLDX &18:LDY #0:JSR hxprnt
p\ �P
zLDA htptrs+2:STA buffer
�LDA htptrs+3:STA buffer+1
�JSR prnttxt
�LDX &13:LDY &12:JSR hxprnt
�\ Program size
�LDA htptrs+4:STA buffer
�LDA htptrs+5:STA buffer+1
�JSR prnttxt
�LDA &12:SEC:SBC #0:TAY
�LDA &13:SBC &18:TAX:CLC
�JSR hxprnt
�\ �
�LDA htptrs+6:STA buffer
�LDA htptrs+7:STA buffer+1
JSR prnttxt
LDX &01:LDY &00:JSR hxprnt
\ Bytes used
$LDA htptrs+8:STA buffer
.LDA htptrs+9:STA buffer+1
8JSR prnttxt
B"LDA &04:SEC:SBC &02:STA buffer
L LDA &05:SBC &03:STA buffer+1
VCLC:LDA &06:SEC:SBC #0
`"SBC buffer:TAY:LDA &07:SBC &18
jSBC buffer+1:TAX:CLC
tJSR hxprnt
~
\ Heap
�LDA htptrs+10:STA buffer
�LDA htptrs+11:STA buffer+1
�JSR prnttxt
�LDX &03:LDY &02:JSR hxprnt
�\ Bytes free
�LDA htptrs+12:STA buffer
�LDA htptrs+13:STA buffer+1
�JSR prnttxt
�LDA &04:SEC:SBC &02:TAY
�LDA &05:SBC &03:TAX:CLC
�JSR hxprnt
�\ Stack
LDA htptrs+14:STA buffer

LDA htptrs+15:STA buffer+1
JSR prnttxt
LDX &05:LDY &04:JSR hxprnt
(\ Next location
2LDA htptrs+16:STA buffer
<LDA htptrs+17:STA buffer+1
FJSR prnttxt
PLDA &02:SEC:ADC #0:TAY
ZLDA &03:ADC #0:TAX:CLC
dJSR hxprnt
n\ �
xLDA htptrs+18:STA buffer
�LDA htptrs+19:STA buffer+1
�JSR prnttxt
�LDX &07:LDY &06:JSR hxprnt
�\ �O
�LDA htptrs+20:STA buffer
�LDA htptrs+21:STA buffer+1
�JSR prnttxt
�LDA &1F:JSR hxprnt2
�
\ � depth
�LDA htptrs+22:STA buffer
�LDA htptrs+23:STA buffer+1
�JSR prnttxt
�LDA &24:JSR hxprnt2
\ �
LDA htptrs+24:STA buffer
LDA htptrs+25:STA buffer+1
""JSR prnttxt:LDA #79:JSR oswrch
,LDA &20:CMP #0:BEQ off
6LDA #78:JSR oswrch
@ LDA #32:JSR oswrch:JMP main4
J.off
T!LDA #70:JSR oswrch:JSR oswrch
^
.main4
h
\ � depth
rLDA htptrs+26:STA buffer
|LDA htptrs+27:STA buffer+1
�JSR prnttxt
�LDA &25:JSR hxprnt2
�\ �
�LDA htptrs+28:STA buffer
�LDA htptrs+29:STA buffer+1
�JSR prnttxt
�LDA &23:JSR hxprnt2
�
\ � depth
�LDA htptrs+30:STA buffer
�LDA htptrs+31:STA buffer+1
�JSR prnttxt
�LDA &26:JSR hxprnt2
�\ Tidy screen with CR's
JSR osnewl:JSR osnewl
 \ Restore registers and exit
	.lldn
&PLA:STA hexbuffer+1
0PLA:STA hexbuffer
:PLA:STA buffer+1
DPLA:STA buffer
NPLA:TAY:PLA:TAX:PLA:RTS
X\ Text printing routine
b.prnttxt
l
LDY #0
v
.prnttxt2
�LDA (buffer),Y:CMP #&FF
�BEQ prnttxt3:JSR osasci
�INY:JMP prnttxt2
�
.prnttxt3
�RTS
� \ Two-part hex number sorter
�.hxprnt
�!STX hexbuffer:STY hexbuffer+1
�LDA hexbuffer:JSR hxprnt2
�#LDA hexbuffer+1:JSR hxprnt2:RTS
�\ Hex number printer
�.hxprnt2
�PHA:� #240
LSR A:ROR A:ROR A:ROR A
JSR hxprnt3:PLA:� #15
.hxprnt3
 CLC:ADC #48:CMP #58
*BCC hxprnt4:CLC:ADC #7
4.hxprnt4
>JMP oswrch
H#\ Message if not Basic language
R.notbas
\;OPT �equs("This language is not Basic."):OPT �equb(&FF)
f \ Extended *Help test string
p.com
zOPT �equs("SYSTVARS")
�OPT �equb(&FE)
�!\ Additional help information
�
.cmmnd
�OPT �equs("  SystVars")
�OPT �equb(0)
�\ Table of pointers to the
�\ extended help texts
�.htptrs
�OPT �equw(ht1)
�OPT �equw(ht2)
�OPT �equw(ht3)
�OPT �equw(ht4)
�OPT �equw(ht5)
	OPT �equw(ht6)
	OPT �equw(ht7)
	OPT �equw(ht8)
	$OPT �equw(ht9)
	.OPT �equw(ht10)
	8OPT �equw(ht11)
	BOPT �equw(ht12)
	LOPT �equw(ht13)
	VOPT �equw(ht14)
	`OPT �equw(ht15)
	jOPT �equw(ht16)
	t.ht1
	~2OPT �equs("System variables are as follows:-")
	�OPT �equb(13):OPT �equb(13)
	�OPT �equs("PAGE  = &")
	�OPT �equb(&FF)
	�.ht2
	�OPT �equb(13)
	�OPT �equs("TOP   = &")
	�OPT �equb(&FF)
	�.ht3
	�OPT �spaces(3)
	�!OPT �equs("Program size = &")
	�OPT �equb(&FF)
	�.ht4
OPT �equb(13)

OPT �equs("LOMEM = &")
OPT �equb(&FF)
.ht5
(OPT �spaces(3)
2OPT �equs("Bytes used = &")
<OPT �equb(&FF)
F.ht6
POPT �equb(13)
ZOPT �equs("Heap  = &")
dOPT �equb(&FF)
n.ht7
xOPT �spaces(3)
�OPT �equs("Bytes free = &")
�OPT �equb(&FF)
�.ht8
�OPT �equb(13)
�OPT �equs("Stack = &")
�OPT �equb(&FF)
�.ht9
�OPT �spaces(3)
�"OPT �equs("Next location = &")
�OPT �equb(&FF)
�	.ht10
�OPT �equb(13)
�OPT �equs("HIMEM = &")
OPT �equb(&FF)
	.ht11
OPT �equb(13):OPT �equb(13)
"OPT �equs("LISTO = &")
,OPT �equb(&FF)
6	.ht12
@OPT �spaces(5)
J!OPT �equs("REPEAT depth = &")
TOPT �equb(&FF)
^	.ht13
hOPT �equb(13)
rOPT �equs("TRACE ")
|OPT �equb(&FF)
�	.ht14
�OPT �spaces(7)
� OPT �equs("GOSUB depth = &")
�OPT �equb(&FF)
�	.ht15
�OPT �equb(13)
�OPT �equs("WIDTH = &")
�OPT �equb(&FF)
�	.ht16
�OPT �spaces(5)
�OPT �equs("FOR depth = &")
�OPT �equb(&FF)
�]:�
� Auto-save code
0$&700="SAVE BasHelp 5000 "+�~O%+" 8000 8000"
X%=0:Y%=7:� &FFF7
&l� ''"Code saved under the name of BasHelp."''"To use, load into Sideways Ram and type *H. SystVars."'':�
0� Various subroutines
:� �equb(S%)
D?P%=S%:P%=P%+1
N?O%=S%:O%=O%+1:=pass
X� �equw(S%)
b!P%=S%:P%=P%+2
l!O%=S%:O%=O%+2:=pass
v� �equs(S$)
�$P%=S$:P%=P%+�(S$)
�$O%=S$:O%=O%+�(S$):=pass
�� �spaces(S%)
�� N%=1 � S%
�?P%=32:P%=P%+1
�?O%=32:O%=O%+1:�:=pass
�
00000000  0d 00 0a 1f f4 20 42 61  73 69 63 20 53 79 73 74  |..... Basic Syst|
00000010  65 6d 20 48 65 6c 70 20  55 74 69 6c 69 74 79 0d  |em Help Utility.|
00000020  00 14 15 f4 20 62 79 20  53 74 65 70 68 65 6e 20  |.... by Stephen |
00000030  57 61 64 65 0d 00 1e 18  f4 20 28 63 29 20 54 68  |Wade..... (c) Th|
00000040  65 20 4d 69 63 72 6f 20  55 73 65 72 0d 00 28 1c  |e Micro User..(.|
00000050  f4 20 46 6f 72 20 4d 61  73 74 65 72 2f 43 6f 6d  |. For Master/Com|
00000060  70 61 63 74 20 61 6e 64  0d 00 32 1f f4 20 61 6e  |pact and..2.. an|
00000070  79 20 45 6c 65 63 74 72  6f 6e 2f 42 42 43 20 42  |y Electron/BBC B|
00000080  2f 42 42 43 20 42 2b 0d  00 3c 1e f4 20 66 69 74  |/BBC B+..<.. fit|
00000090  74 65 64 20 77 69 74 68  20 73 69 64 65 77 61 79  |ted with sideway|
000000a0  73 20 52 61 6d 0d 00 46  07 eb 20 37 0d 00 50 1c  |s Ram..F.. 7..P.|
000000b0  62 75 66 66 65 72 3d 26  41 38 3a 68 65 78 62 75  |buffer=&A8:hexbu|
000000c0  66 66 65 72 3d 26 41 41  0d 00 5a 1d 6f 73 6e 65  |ffer=&AA..Z.osne|
000000d0  77 6c 3d 26 46 46 45 37  3a 6f 73 61 73 63 69 3d  |wl=&FFE7:osasci=|
000000e0  26 46 46 45 33 0d 00 64  1d 6f 73 62 79 74 65 3d  |&FFE3..d.osbyte=|
000000f0  26 46 46 46 34 3a 6f 73  77 72 63 68 3d 26 46 46  |&FFF4:oswrch=&FF|
00000100  45 45 0d 00 6e 14 e3 20  70 61 73 73 3d 34 20 b8  |EE..n.. pass=4 .|
00000110  20 37 20 88 20 33 0d 00  78 1f 50 25 3d 26 38 30  | 7 . 3..x.P%=&80|
00000120  30 30 3a 4f 25 3d 26 35  30 30 30 3a 5b 4f 50 54  |00:O%=&5000:[OPT|
00000130  20 70 61 73 73 0d 00 82  1e 5c 20 53 74 61 6e 64  | pass....\ Stand|
00000140  61 72 64 20 52 6f 6d 20  68 65 61 64 65 72 20 64  |ard Rom header d|
00000150  61 74 61 0d 00 8c 1d 4f  50 54 20 a4 65 71 75 77  |ata....OPT .equw|
00000160  28 30 29 3a 4f 50 54 20  a4 65 71 75 62 28 30 29  |(0):OPT .equb(0)|
00000170  0d 00 96 3d 4a 4d 50 20  73 72 76 63 3a 4f 50 54  |...=JMP srvc:OPT|
00000180  20 a4 65 71 75 62 28 26  38 32 29 3a 4f 50 54 20  | .equb(&82):OPT |
00000190  a4 65 71 75 62 28 63 70  79 20 83 20 32 35 36 29  |.equb(cpy . 256)|
000001a0  3a 4f 50 54 20 a4 65 71  75 62 28 31 29 0d 00 a0  |:OPT .equb(1)...|
000001b0  1e 5c 20 54 69 74 6c 65  20 61 6e 64 20 76 65 72  |.\ Title and ver|
000001c0  73 69 6f 6e 20 73 74 72  69 6e 67 0d 00 aa 08 2e  |sion string.....|
000001d0  74 74 6c 0d 00 b4 57 4f  50 54 20 a4 65 71 75 73  |ttl...WOPT .equs|
000001e0  28 22 42 61 73 69 63 20  53 79 73 74 65 6d 20 48  |("Basic System H|
000001f0  65 6c 70 20 55 74 69 6c  69 74 79 22 29 3a 4f 50  |elp Utility"):OP|
00000200  54 20 a4 65 71 75 62 28  30 29 3a 4f 50 54 20 a4  |T .equb(0):OPT .|
00000210  65 71 75 73 28 22 20 31  2e 30 35 22 29 3a 4f 50  |equs(" 1.05"):OP|
00000220  54 20 a4 65 71 75 62 28  30 29 0d 00 be 16 5c 20  |T .equb(0)....\ |
00000230  43 6f 70 79 72 69 67 68  74 20 73 74 72 69 6e 67  |Copyright string|
00000240  0d 00 c8 08 2e 63 70 79  0d 00 d2 3d 4f 50 54 20  |.....cpy...=OPT |
00000250  a4 65 71 75 62 28 30 29  3a 4f 50 54 20 a4 65 71  |.equb(0):OPT .eq|
00000260  75 73 28 22 28 43 29 20  54 68 65 20 4d 69 63 72  |us("(C) The Micr|
00000270  6f 20 55 73 65 72 22 29  3a 4f 50 54 20 a4 65 71  |o User"):OPT .eq|
00000280  75 62 28 30 29 0d 00 dc  1b 5c 20 53 65 72 76 69  |ub(0)....\ Servi|
00000290  63 65 20 65 6e 74 72 79  20 72 6f 75 74 69 6e 65  |ce entry routine|
000002a0  0d 00 e6 09 2e 73 72 76  63 0d 00 f0 11 43 4d 50  |.....srvc....CMP|
000002b0  20 23 39 3a 42 45 51 20  67 68 0d 00 fa 16 43 4d  | #9:BEQ gh....CM|
000002c0  50 20 23 33 3a 42 45 51  20 70 72 6e 74 74 74 6c  |P #3:BEQ prntttl|
000002d0  0d 01 04 1b 43 4d 50 20  23 33 39 3a 42 45 51 20  |....CMP #39:BEQ |
000002e0  70 72 6e 74 74 74 6c 3a  52 54 53 0d 01 0e 1a 5c  |prntttl:RTS....\|
000002f0  20 50 72 69 6e 74 20 74  69 74 6c 65 20 6f 6e 20  | Print title on |
00000300  42 72 65 61 6b 0d 01 18  0c 2e 70 72 6e 74 74 74  |Break.....prnttt|
00000310  6c 0d 01 22 1e 50 48 41  3a 54 58 41 3a 50 48 41  |l..".PHA:TXA:PHA|
00000320  3a 54 59 41 3a 50 48 41  3a 4c 44 59 20 23 30 0d  |:TYA:PHA:LDY #0.|
00000330  01 2c 08 2e 6c 70 72 0d  01 36 15 4c 44 41 20 74  |.,..lpr..6.LDA t|
00000340  74 6c 2c 59 3a 42 45 51  20 74 66 74 0d 01 40 1a  |tl,Y:BEQ tft..@.|
00000350  4a 53 52 20 6f 73 61 73  63 69 3a 49 4e 59 3a 4a  |JSR osasci:INY:J|
00000360  4d 50 20 6c 70 72 0d 01  4a 08 2e 74 66 74 0d 01  |MP lpr..J..tft..|
00000370  54 19 4a 53 52 20 6f 73  6e 65 77 6c 3a 4a 53 52  |T.JSR osnewl:JSR|
00000380  20 6f 73 6e 65 77 6c 0d  01 5e 1f 50 4c 41 3a 54  | osnewl..^.PLA:T|
00000390  41 59 3a 50 4c 41 3a 54  41 58 3a 50 4c 41 3a 54  |AY:PLA:TAX:PLA:T|
000003a0  41 59 3a 52 54 53 0d 01  68 1b 5c 20 2a 48 65 6c  |AY:RTS..h.\ *Hel|
000003b0  70 20 73 65 72 76 69 63  65 20 72 6f 75 74 69 6e  |p service routin|
000003c0  65 0d 01 72 07 2e 67 68  0d 01 7c 23 50 48 41 3a  |e..r..gh..|#PHA:|
000003d0  54 58 41 3a 50 48 41 3a  54 59 41 3a 50 48 41 3a  |TXA:PHA:TYA:PHA:|
000003e0  4c 44 41 20 28 26 46 32  29 2c 59 0d 01 86 22 43  |LDA (&F2),Y..."C|
000003f0  4d 50 20 23 31 33 3a 42  4e 45 20 63 68 6b 3a 4a  |MP #13:BNE chk:J|
00000400  53 52 20 68 3a 4c 44 58  20 23 26 46 46 0d 01 90  |SR h:LDX #&FF...|
00000410  09 2e 64 74 6c 73 0d 01  9a 1b 49 4e 58 3a 4c 44  |..dtls....INX:LD|
00000420  41 20 63 6d 6d 6e 64 2c  58 3a 42 45 51 20 64 6e  |A cmmnd,X:BEQ dn|
00000430  74 0d 01 a4 17 4a 53 52  20 6f 73 61 73 63 69 3a  |t....JSR osasci:|
00000440  42 4e 45 20 64 74 6c 73  0d 01 ae 08 2e 64 6e 74  |BNE dtls.....dnt|
00000450  0d 01 b8 22 4a 53 52 20  6f 73 61 73 63 69 3a 4a  |..."JSR osasci:J|
00000460  53 52 20 6f 73 6e 65 77  6c 3a 4a 4d 50 20 72 73  |SR osnewl:JMP rs|
00000470  74 72 0d 01 c2 08 2e 63  68 6b 0d 01 cc 10 4c 44  |tr.....chk....LD|
00000480  58 20 23 26 46 46 3a 44  45 59 0d 01 d6 07 2e 67  |X #&FF:DEY.....g|
00000490  6e 0d 01 e0 1e 49 4e 58  3a 49 4e 59 3a 4c 44 41  |n....INX:INY:LDA|
000004a0  20 28 26 46 32 29 2c 59  3a 80 20 23 26 44 46 0d  | (&F2),Y:. #&DF.|
000004b0  01 ea 1e 43 4d 50 20 63  6f 6d 2c 58 3a 42 45 51  |...CMP com,X:BEQ|
000004c0  20 67 6e 3a 4c 44 41 20  63 6f 6d 2c 58 0d 01 f4  | gn:LDA com,X...|
000004d0  15 43 4d 50 20 23 26 46  45 3a 42 45 51 20 6d 61  |.CMP #&FE:BEQ ma|
000004e0  69 6e 0d 01 fe 09 2e 72  73 74 72 0d 02 08 1b 50  |in.....rstr....P|
000004f0  4c 41 3a 54 41 59 3a 50  4c 41 3a 54 41 58 3a 50  |LA:TAY:PLA:TAX:P|
00000500  4c 41 3a 52 54 53 0d 02  12 06 2e 68 0d 02 1c 1f  |LA:RTS.....h....|
00000510  4a 53 52 20 6f 73 6e 65  77 6c 3a 4c 44 58 20 23  |JSR osnewl:LDX #|
00000520  26 46 46 3a 4a 53 52 20  68 6c 70 0d 02 26 1a 4a  |&FF:JSR hlp..&.J|
00000530  53 52 20 68 6c 70 3a 4a  53 52 20 6f 73 6e 65 77  |SR hlp:JSR osnew|
00000540  6c 3a 52 54 53 0d 02 30  08 2e 68 6c 70 0d 02 3a  |l:RTS..0..hlp..:|
00000550  18 49 4e 58 3a 4c 44 41  20 74 74 6c 2c 58 3a 42  |.INX:LDA ttl,X:B|
00000560  45 51 20 64 6e 0d 02 44  16 4a 53 52 20 6f 73 61  |EQ dn..D.JSR osa|
00000570  73 63 69 3a 42 4e 45 20  68 6c 70 0d 02 4e 07 2e  |sci:BNE hlp..N..|
00000580  64 6e 0d 02 58 07 52 54  53 0d 02 62 09 2e 6d 61  |dn..X.RTS..b..ma|
00000590  69 6e 0d 02 6c 24 5c 20  53 74 61 72 74 20 6f 66  |in..l$\ Start of|
000005a0  20 65 78 74 65 6e 64 65  64 20 68 65 6c 70 20 72  | extended help r|
000005b0  6f 75 74 69 6e 65 0d 02  76 1a 5c 20 43 68 65 63  |outine..v.\ Chec|
000005c0  6b 20 69 66 20 42 61 73  69 63 20 66 69 72 73 74  |k if Basic first|
000005d0  0d 02 80 1c 4c 44 41 20  23 31 38 37 3a 4c 44 58  |....LDA #187:LDX|
000005e0  20 23 30 3a 4c 44 59 20  23 26 46 46 0d 02 8a 19  | #0:LDY #&FF....|
000005f0  4a 53 52 20 6f 73 62 79  74 65 3a 53 54 58 20 62  |JSR osbyte:STX b|
00000600  75 66 66 65 72 0d 02 94  1c 4c 44 41 20 23 32 35  |uffer....LDA #25|
00000610  32 3a 4c 44 58 20 23 30  3a 4c 44 59 20 23 26 46  |2:LDX #0:LDY #&F|
00000620  46 0d 02 9e 23 4a 53 52  20 6f 73 62 79 74 65 3a  |F...#JSR osbyte:|
00000630  43 50 58 20 62 75 66 66  65 72 3a 42 4e 45 20 69  |CPX buffer:BNE i|
00000640  73 6e 6f 74 0d 02 a8 0d  4a 4d 50 20 6d 61 69 6e  |snot....JMP main|
00000650  32 0d 02 b2 0a 2e 69 73  6e 6f 74 0d 02 bc 23 5c  |2.....isnot...#\|
00000660  20 49 66 20 6e 6f 74 2c  20 70 72 69 6e 74 20 73  | If not, print s|
00000670  70 65 63 69 61 6c 20 6d  65 73 73 61 67 65 0d 02  |pecial message..|
00000680  c6 20 4c 44 41 20 23 6e  6f 74 62 61 73 20 83 20  |. LDA #notbas . |
00000690  32 35 36 3a 53 54 41 20  62 75 66 66 65 72 0d 02  |256:STA buffer..|
000006a0  d0 22 4c 44 41 20 23 6e  6f 74 62 61 73 20 81 20  |."LDA #notbas . |
000006b0  32 35 36 3a 53 54 41 20  62 75 66 66 65 72 2b 31  |256:STA buffer+1|
000006c0  0d 02 da 17 4a 53 52 20  70 72 6e 74 74 78 74 3a  |....JSR prnttxt:|
000006d0  4a 4d 50 20 74 66 74 0d  02 e4 0a 2e 6d 61 69 6e  |JMP tft.....main|
000006e0  32 0d 02 ee 1f 5c 20 42  65 67 69 6e 6e 69 6e 67  |2....\ Beginning|
000006f0  20 6f 66 20 6d 61 69 6e  20 72 6f 75 74 69 6e 65  | of main routine|
00000700  0d 02 f8 18 5c 20 69 66  20 61 6c 6c 20 69 73 20  |....\ if all is |
00000710  69 6e 20 6f 72 64 65 72  0d 03 02 0e 4a 53 52 20  |in order....JSR |
00000720  6f 73 6e 65 77 6c 0d 03  0c 1f 5c 20 53 74 61 63  |osnewl....\ Stac|
00000730  6b 20 7a 65 72 6f 20 70  61 67 65 20 77 6f 72 6b  |k zero page work|
00000740  73 70 61 63 65 0d 03 16  1f 4c 44 41 20 62 75 66  |space....LDA buf|
00000750  66 65 72 3a 50 48 41 3a  4c 44 41 20 62 75 66 66  |fer:PHA:LDA buff|
00000760  65 72 2b 31 0d 03 20 19  50 48 41 3a 4c 44 41 20  |er+1.. .PHA:LDA |
00000770  68 65 78 62 75 66 66 65  72 3a 50 48 41 0d 03 2a  |hexbuffer:PHA..*|
00000780  17 4c 44 41 20 68 65 78  62 75 66 66 65 72 2b 31  |.LDA hexbuffer+1|
00000790  3a 50 48 41 0d 03 34 0a  2e 6d 61 69 6e 33 0d 03  |:PHA..4..main3..|
000007a0  3e 07 5c 20 90 0d 03 48  19 4c 44 41 20 68 74 70  |>.\ ...H.LDA htp|
000007b0  74 72 73 3a 53 54 41 20  62 75 66 66 65 72 0d 03  |trs:STA buffer..|
000007c0  52 1d 4c 44 41 20 68 74  70 74 72 73 2b 31 3a 53  |R.LDA htptrs+1:S|
000007d0  54 41 20 62 75 66 66 65  72 2b 31 0d 03 5c 0f 4a  |TA buffer+1..\.J|
000007e0  53 52 20 70 72 6e 74 74  78 74 0d 03 66 1d 4c 44  |SR prnttxt..f.LD|
000007f0  58 20 26 31 38 3a 4c 44  59 20 23 30 3a 4a 53 52  |X &18:LDY #0:JSR|
00000800  20 68 78 70 72 6e 74 0d  03 70 08 5c 20 b8 50 0d  | hxprnt..p.\ .P.|
00000810  03 7a 1b 4c 44 41 20 68  74 70 74 72 73 2b 32 3a  |.z.LDA htptrs+2:|
00000820  53 54 41 20 62 75 66 66  65 72 0d 03 84 1d 4c 44  |STA buffer....LD|
00000830  41 20 68 74 70 74 72 73  2b 33 3a 53 54 41 20 62  |A htptrs+3:STA b|
00000840  75 66 66 65 72 2b 31 0d  03 8e 0f 4a 53 52 20 70  |uffer+1....JSR p|
00000850  72 6e 74 74 78 74 0d 03  98 1e 4c 44 58 20 26 31  |rnttxt....LDX &1|
00000860  33 3a 4c 44 59 20 26 31  32 3a 4a 53 52 20 68 78  |3:LDY &12:JSR hx|
00000870  70 72 6e 74 0d 03 a2 12  5c 20 50 72 6f 67 72 61  |prnt....\ Progra|
00000880  6d 20 73 69 7a 65 0d 03  ac 1b 4c 44 41 20 68 74  |m size....LDA ht|
00000890  70 74 72 73 2b 34 3a 53  54 41 20 62 75 66 66 65  |ptrs+4:STA buffe|
000008a0  72 0d 03 b6 1d 4c 44 41  20 68 74 70 74 72 73 2b  |r....LDA htptrs+|
000008b0  35 3a 53 54 41 20 62 75  66 66 65 72 2b 31 0d 03  |5:STA buffer+1..|
000008c0  c0 0f 4a 53 52 20 70 72  6e 74 74 78 74 0d 03 ca  |..JSR prnttxt...|
000008d0  1a 4c 44 41 20 26 31 32  3a 53 45 43 3a 53 42 43  |.LDA &12:SEC:SBC|
000008e0  20 23 30 3a 54 41 59 0d  03 d4 1b 4c 44 41 20 26  | #0:TAY....LDA &|
000008f0  31 33 3a 53 42 43 20 26  31 38 3a 54 41 58 3a 43  |13:SBC &18:TAX:C|
00000900  4c 43 0d 03 de 0e 4a 53  52 20 68 78 70 72 6e 74  |LC....JSR hxprnt|
00000910  0d 03 e8 07 5c 20 92 0d  03 f2 1b 4c 44 41 20 68  |....\ .....LDA h|
00000920  74 70 74 72 73 2b 36 3a  53 54 41 20 62 75 66 66  |tptrs+6:STA buff|
00000930  65 72 0d 03 fc 1d 4c 44  41 20 68 74 70 74 72 73  |er....LDA htptrs|
00000940  2b 37 3a 53 54 41 20 62  75 66 66 65 72 2b 31 0d  |+7:STA buffer+1.|
00000950  04 06 0f 4a 53 52 20 70  72 6e 74 74 78 74 0d 04  |...JSR prnttxt..|
00000960  10 1e 4c 44 58 20 26 30  31 3a 4c 44 59 20 26 30  |..LDX &01:LDY &0|
00000970  30 3a 4a 53 52 20 68 78  70 72 6e 74 0d 04 1a 10  |0:JSR hxprnt....|
00000980  5c 20 42 79 74 65 73 20  75 73 65 64 0d 04 24 1b  |\ Bytes used..$.|
00000990  4c 44 41 20 68 74 70 74  72 73 2b 38 3a 53 54 41  |LDA htptrs+8:STA|
000009a0  20 62 75 66 66 65 72 0d  04 2e 1d 4c 44 41 20 68  | buffer....LDA h|
000009b0  74 70 74 72 73 2b 39 3a  53 54 41 20 62 75 66 66  |tptrs+9:STA buff|
000009c0  65 72 2b 31 0d 04 38 0f  4a 53 52 20 70 72 6e 74  |er+1..8.JSR prnt|
000009d0  74 78 74 0d 04 42 22 4c  44 41 20 26 30 34 3a 53  |txt..B"LDA &04:S|
000009e0  45 43 3a 53 42 43 20 26  30 32 3a 53 54 41 20 62  |EC:SBC &02:STA b|
000009f0  75 66 66 65 72 0d 04 4c  20 4c 44 41 20 26 30 35  |uffer..L LDA &05|
00000a00  3a 53 42 43 20 26 30 33  3a 53 54 41 20 62 75 66  |:SBC &03:STA buf|
00000a10  66 65 72 2b 31 0d 04 56  1a 43 4c 43 3a 4c 44 41  |fer+1..V.CLC:LDA|
00000a20  20 26 30 36 3a 53 45 43  3a 53 42 43 20 23 30 0d  | &06:SEC:SBC #0.|
00000a30  04 60 22 53 42 43 20 62  75 66 66 65 72 3a 54 41  |.`"SBC buffer:TA|
00000a40  59 3a 4c 44 41 20 26 30  37 3a 53 42 43 20 26 31  |Y:LDA &07:SBC &1|
00000a50  38 0d 04 6a 18 53 42 43  20 62 75 66 66 65 72 2b  |8..j.SBC buffer+|
00000a60  31 3a 54 41 58 3a 43 4c  43 0d 04 74 0e 4a 53 52  |1:TAX:CLC..t.JSR|
00000a70  20 68 78 70 72 6e 74 0d  04 7e 0a 5c 20 48 65 61  | hxprnt..~.\ Hea|
00000a80  70 0d 04 88 1c 4c 44 41  20 68 74 70 74 72 73 2b  |p....LDA htptrs+|
00000a90  31 30 3a 53 54 41 20 62  75 66 66 65 72 0d 04 92  |10:STA buffer...|
00000aa0  1e 4c 44 41 20 68 74 70  74 72 73 2b 31 31 3a 53  |.LDA htptrs+11:S|
00000ab0  54 41 20 62 75 66 66 65  72 2b 31 0d 04 9c 0f 4a  |TA buffer+1....J|
00000ac0  53 52 20 70 72 6e 74 74  78 74 0d 04 a6 1e 4c 44  |SR prnttxt....LD|
00000ad0  58 20 26 30 33 3a 4c 44  59 20 26 30 32 3a 4a 53  |X &03:LDY &02:JS|
00000ae0  52 20 68 78 70 72 6e 74  0d 04 b0 10 5c 20 42 79  |R hxprnt....\ By|
00000af0  74 65 73 20 66 72 65 65  0d 04 ba 1c 4c 44 41 20  |tes free....LDA |
00000b00  68 74 70 74 72 73 2b 31  32 3a 53 54 41 20 62 75  |htptrs+12:STA bu|
00000b10  66 66 65 72 0d 04 c4 1e  4c 44 41 20 68 74 70 74  |ffer....LDA htpt|
00000b20  72 73 2b 31 33 3a 53 54  41 20 62 75 66 66 65 72  |rs+13:STA buffer|
00000b30  2b 31 0d 04 ce 0f 4a 53  52 20 70 72 6e 74 74 78  |+1....JSR prnttx|
00000b40  74 0d 04 d8 1b 4c 44 41  20 26 30 34 3a 53 45 43  |t....LDA &04:SEC|
00000b50  3a 53 42 43 20 26 30 32  3a 54 41 59 0d 04 e2 1b  |:SBC &02:TAY....|
00000b60  4c 44 41 20 26 30 35 3a  53 42 43 20 26 30 33 3a  |LDA &05:SBC &03:|
00000b70  54 41 58 3a 43 4c 43 0d  04 ec 0e 4a 53 52 20 68  |TAX:CLC....JSR h|
00000b80  78 70 72 6e 74 0d 04 f6  0b 5c 20 53 74 61 63 6b  |xprnt....\ Stack|
00000b90  0d 05 00 1c 4c 44 41 20  68 74 70 74 72 73 2b 31  |....LDA htptrs+1|
00000ba0  34 3a 53 54 41 20 62 75  66 66 65 72 0d 05 0a 1e  |4:STA buffer....|
00000bb0  4c 44 41 20 68 74 70 74  72 73 2b 31 35 3a 53 54  |LDA htptrs+15:ST|
00000bc0  41 20 62 75 66 66 65 72  2b 31 0d 05 14 0f 4a 53  |A buffer+1....JS|
00000bd0  52 20 70 72 6e 74 74 78  74 0d 05 1e 1e 4c 44 58  |R prnttxt....LDX|
00000be0  20 26 30 35 3a 4c 44 59  20 26 30 34 3a 4a 53 52  | &05:LDY &04:JSR|
00000bf0  20 68 78 70 72 6e 74 0d  05 28 13 5c 20 4e 65 78  | hxprnt..(.\ Nex|
00000c00  74 20 6c 6f 63 61 74 69  6f 6e 0d 05 32 1c 4c 44  |t location..2.LD|
00000c10  41 20 68 74 70 74 72 73  2b 31 36 3a 53 54 41 20  |A htptrs+16:STA |
00000c20  62 75 66 66 65 72 0d 05  3c 1e 4c 44 41 20 68 74  |buffer..<.LDA ht|
00000c30  70 74 72 73 2b 31 37 3a  53 54 41 20 62 75 66 66  |ptrs+17:STA buff|
00000c40  65 72 2b 31 0d 05 46 0f  4a 53 52 20 70 72 6e 74  |er+1..F.JSR prnt|
00000c50  74 78 74 0d 05 50 1a 4c  44 41 20 26 30 32 3a 53  |txt..P.LDA &02:S|
00000c60  45 43 3a 41 44 43 20 23  30 3a 54 41 59 0d 05 5a  |EC:ADC #0:TAY..Z|
00000c70  1a 4c 44 41 20 26 30 33  3a 41 44 43 20 23 30 3a  |.LDA &03:ADC #0:|
00000c80  54 41 58 3a 43 4c 43 0d  05 64 0e 4a 53 52 20 68  |TAX:CLC..d.JSR h|
00000c90  78 70 72 6e 74 0d 05 6e  07 5c 20 93 0d 05 78 1c  |xprnt..n.\ ...x.|
00000ca0  4c 44 41 20 68 74 70 74  72 73 2b 31 38 3a 53 54  |LDA htptrs+18:ST|
00000cb0  41 20 62 75 66 66 65 72  0d 05 82 1e 4c 44 41 20  |A buffer....LDA |
00000cc0  68 74 70 74 72 73 2b 31  39 3a 53 54 41 20 62 75  |htptrs+19:STA bu|
00000cd0  66 66 65 72 2b 31 0d 05  8c 0f 4a 53 52 20 70 72  |ffer+1....JSR pr|
00000ce0  6e 74 74 78 74 0d 05 96  1e 4c 44 58 20 26 30 37  |nttxt....LDX &07|
00000cf0  3a 4c 44 59 20 26 30 36  3a 4a 53 52 20 68 78 70  |:LDY &06:JSR hxp|
00000d00  72 6e 74 0d 05 a0 08 5c  20 c9 4f 0d 05 aa 1c 4c  |rnt....\ .O....L|
00000d10  44 41 20 68 74 70 74 72  73 2b 32 30 3a 53 54 41  |DA htptrs+20:STA|
00000d20  20 62 75 66 66 65 72 0d  05 b4 1e 4c 44 41 20 68  | buffer....LDA h|
00000d30  74 70 74 72 73 2b 32 31  3a 53 54 41 20 62 75 66  |tptrs+21:STA buf|
00000d40  66 65 72 2b 31 0d 05 be  0f 4a 53 52 20 70 72 6e  |fer+1....JSR prn|
00000d50  74 74 78 74 0d 05 c8 17  4c 44 41 20 26 31 46 3a  |ttxt....LDA &1F:|
00000d60  4a 53 52 20 68 78 70 72  6e 74 32 0d 05 d2 0d 5c  |JSR hxprnt2....\|
00000d70  20 f5 20 64 65 70 74 68  0d 05 dc 1c 4c 44 41 20  | . depth....LDA |
00000d80  68 74 70 74 72 73 2b 32  32 3a 53 54 41 20 62 75  |htptrs+22:STA bu|
00000d90  66 66 65 72 0d 05 e6 1e  4c 44 41 20 68 74 70 74  |ffer....LDA htpt|
00000da0  72 73 2b 32 33 3a 53 54  41 20 62 75 66 66 65 72  |rs+23:STA buffer|
00000db0  2b 31 0d 05 f0 0f 4a 53  52 20 70 72 6e 74 74 78  |+1....JSR prnttx|
00000dc0  74 0d 05 fa 17 4c 44 41  20 26 32 34 3a 4a 53 52  |t....LDA &24:JSR|
00000dd0  20 68 78 70 72 6e 74 32  0d 06 04 07 5c 20 fc 0d  | hxprnt2....\ ..|
00000de0  06 0e 1c 4c 44 41 20 68  74 70 74 72 73 2b 32 34  |...LDA htptrs+24|
00000df0  3a 53 54 41 20 62 75 66  66 65 72 0d 06 18 1e 4c  |:STA buffer....L|
00000e00  44 41 20 68 74 70 74 72  73 2b 32 35 3a 53 54 41  |DA htptrs+25:STA|
00000e10  20 62 75 66 66 65 72 2b  31 0d 06 22 22 4a 53 52  | buffer+1..""JSR|
00000e20  20 70 72 6e 74 74 78 74  3a 4c 44 41 20 23 37 39  | prnttxt:LDA #79|
00000e30  3a 4a 53 52 20 6f 73 77  72 63 68 0d 06 2c 1a 4c  |:JSR oswrch..,.L|
00000e40  44 41 20 26 32 30 3a 43  4d 50 20 23 30 3a 42 45  |DA &20:CMP #0:BE|
00000e50  51 20 6f 66 66 0d 06 36  16 4c 44 41 20 23 37 38  |Q off..6.LDA #78|
00000e60  3a 4a 53 52 20 6f 73 77  72 63 68 0d 06 40 20 4c  |:JSR oswrch..@ L|
00000e70  44 41 20 23 33 32 3a 4a  53 52 20 6f 73 77 72 63  |DA #32:JSR oswrc|
00000e80  68 3a 4a 4d 50 20 6d 61  69 6e 34 0d 06 4a 08 2e  |h:JMP main4..J..|
00000e90  6f 66 66 0d 06 54 21 4c  44 41 20 23 37 30 3a 4a  |off..T!LDA #70:J|
00000ea0  53 52 20 6f 73 77 72 63  68 3a 4a 53 52 20 6f 73  |SR oswrch:JSR os|
00000eb0  77 72 63 68 0d 06 5e 0a  2e 6d 61 69 6e 34 0d 06  |wrch..^..main4..|
00000ec0  68 0d 5c 20 e4 20 64 65  70 74 68 0d 06 72 1c 4c  |h.\ . depth..r.L|
00000ed0  44 41 20 68 74 70 74 72  73 2b 32 36 3a 53 54 41  |DA htptrs+26:STA|
00000ee0  20 62 75 66 66 65 72 0d  06 7c 1e 4c 44 41 20 68  | buffer..|.LDA h|
00000ef0  74 70 74 72 73 2b 32 37  3a 53 54 41 20 62 75 66  |tptrs+27:STA buf|
00000f00  66 65 72 2b 31 0d 06 86  0f 4a 53 52 20 70 72 6e  |fer+1....JSR prn|
00000f10  74 74 78 74 0d 06 90 17  4c 44 41 20 26 32 35 3a  |ttxt....LDA &25:|
00000f20  4a 53 52 20 68 78 70 72  6e 74 32 0d 06 9a 07 5c  |JSR hxprnt2....\|
00000f30  20 fe 0d 06 a4 1c 4c 44  41 20 68 74 70 74 72 73  | .....LDA htptrs|
00000f40  2b 32 38 3a 53 54 41 20  62 75 66 66 65 72 0d 06  |+28:STA buffer..|
00000f50  ae 1e 4c 44 41 20 68 74  70 74 72 73 2b 32 39 3a  |..LDA htptrs+29:|
00000f60  53 54 41 20 62 75 66 66  65 72 2b 31 0d 06 b8 0f  |STA buffer+1....|
00000f70  4a 53 52 20 70 72 6e 74  74 78 74 0d 06 c2 17 4c  |JSR prnttxt....L|
00000f80  44 41 20 26 32 33 3a 4a  53 52 20 68 78 70 72 6e  |DA &23:JSR hxprn|
00000f90  74 32 0d 06 cc 0d 5c 20  e3 20 64 65 70 74 68 0d  |t2....\ . depth.|
00000fa0  06 d6 1c 4c 44 41 20 68  74 70 74 72 73 2b 33 30  |...LDA htptrs+30|
00000fb0  3a 53 54 41 20 62 75 66  66 65 72 0d 06 e0 1e 4c  |:STA buffer....L|
00000fc0  44 41 20 68 74 70 74 72  73 2b 33 31 3a 53 54 41  |DA htptrs+31:STA|
00000fd0  20 62 75 66 66 65 72 2b  31 0d 06 ea 0f 4a 53 52  | buffer+1....JSR|
00000fe0  20 70 72 6e 74 74 78 74  0d 06 f4 17 4c 44 41 20  | prnttxt....LDA |
00000ff0  26 32 36 3a 4a 53 52 20  68 78 70 72 6e 74 32 0d  |&26:JSR hxprnt2.|
00001000  06 fe 1b 5c 20 54 69 64  79 20 73 63 72 65 65 6e  |...\ Tidy screen|
00001010  20 77 69 74 68 20 43 52  27 73 0d 07 08 19 4a 53  | with CR's....JS|
00001020  52 20 6f 73 6e 65 77 6c  3a 4a 53 52 20 6f 73 6e  |R osnewl:JSR osn|
00001030  65 77 6c 0d 07 12 20 5c  20 52 65 73 74 6f 72 65  |ewl... \ Restore|
00001040  20 72 65 67 69 73 74 65  72 73 20 61 6e 64 20 65  | registers and e|
00001050  78 69 74 0d 07 1c 09 2e  6c 6c 64 6e 0d 07 26 17  |xit.....lldn..&.|
00001060  50 4c 41 3a 53 54 41 20  68 65 78 62 75 66 66 65  |PLA:STA hexbuffe|
00001070  72 2b 31 0d 07 30 15 50  4c 41 3a 53 54 41 20 68  |r+1..0.PLA:STA h|
00001080  65 78 62 75 66 66 65 72  0d 07 3a 14 50 4c 41 3a  |exbuffer..:.PLA:|
00001090  53 54 41 20 62 75 66 66  65 72 2b 31 0d 07 44 12  |STA buffer+1..D.|
000010a0  50 4c 41 3a 53 54 41 20  62 75 66 66 65 72 0d 07  |PLA:STA buffer..|
000010b0  4e 1b 50 4c 41 3a 54 41  59 3a 50 4c 41 3a 54 41  |N.PLA:TAY:PLA:TA|
000010c0  58 3a 50 4c 41 3a 52 54  53 0d 07 58 1b 5c 20 54  |X:PLA:RTS..X.\ T|
000010d0  65 78 74 20 70 72 69 6e  74 69 6e 67 20 72 6f 75  |ext printing rou|
000010e0  74 69 6e 65 0d 07 62 0c  2e 70 72 6e 74 74 78 74  |tine..b..prnttxt|
000010f0  0d 07 6c 0a 4c 44 59 20  23 30 0d 07 76 0d 2e 70  |..l.LDY #0..v..p|
00001100  72 6e 74 74 78 74 32 0d  07 80 1b 4c 44 41 20 28  |rnttxt2....LDA (|
00001110  62 75 66 66 65 72 29 2c  59 3a 43 4d 50 20 23 26  |buffer),Y:CMP #&|
00001120  46 46 0d 07 8a 1b 42 45  51 20 70 72 6e 74 74 78  |FF....BEQ prnttx|
00001130  74 33 3a 4a 53 52 20 6f  73 61 73 63 69 0d 07 94  |t3:JSR osasci...|
00001140  14 49 4e 59 3a 4a 4d 50  20 70 72 6e 74 74 78 74  |.INY:JMP prnttxt|
00001150  32 0d 07 9e 0d 2e 70 72  6e 74 74 78 74 33 0d 07  |2.....prnttxt3..|
00001160  a8 07 52 54 53 0d 07 b2  20 5c 20 54 77 6f 2d 70  |..RTS... \ Two-p|
00001170  61 72 74 20 68 65 78 20  6e 75 6d 62 65 72 20 73  |art hex number s|
00001180  6f 72 74 65 72 0d 07 bc  0b 2e 68 78 70 72 6e 74  |orter.....hxprnt|
00001190  0d 07 c6 21 53 54 58 20  68 65 78 62 75 66 66 65  |...!STX hexbuffe|
000011a0  72 3a 53 54 59 20 68 65  78 62 75 66 66 65 72 2b  |r:STY hexbuffer+|
000011b0  31 0d 07 d0 1d 4c 44 41  20 68 65 78 62 75 66 66  |1....LDA hexbuff|
000011c0  65 72 3a 4a 53 52 20 68  78 70 72 6e 74 32 0d 07  |er:JSR hxprnt2..|
000011d0  da 23 4c 44 41 20 68 65  78 62 75 66 66 65 72 2b  |.#LDA hexbuffer+|
000011e0  31 3a 4a 53 52 20 68 78  70 72 6e 74 32 3a 52 54  |1:JSR hxprnt2:RT|
000011f0  53 0d 07 e4 18 5c 20 48  65 78 20 6e 75 6d 62 65  |S....\ Hex numbe|
00001200  72 20 70 72 69 6e 74 65  72 0d 07 ee 0c 2e 68 78  |r printer.....hx|
00001210  70 72 6e 74 32 0d 07 f8  0e 50 48 41 3a 80 20 23  |prnt2....PHA:. #|
00001220  32 34 30 0d 08 02 1b 4c  53 52 20 41 3a 52 4f 52  |240....LSR A:ROR|
00001230  20 41 3a 52 4f 52 20 41  3a 52 4f 52 20 41 0d 08  | A:ROR A:ROR A..|
00001240  0c 19 4a 53 52 20 68 78  70 72 6e 74 33 3a 50 4c  |..JSR hxprnt3:PL|
00001250  41 3a 80 20 23 31 35 0d  08 16 0c 2e 68 78 70 72  |A:. #15.....hxpr|
00001260  6e 74 33 0d 08 20 17 43  4c 43 3a 41 44 43 20 23  |nt3.. .CLC:ADC #|
00001270  34 38 3a 43 4d 50 20 23  35 38 0d 08 2a 1a 42 43  |48:CMP #58..*.BC|
00001280  43 20 68 78 70 72 6e 74  34 3a 43 4c 43 3a 41 44  |C hxprnt4:CLC:AD|
00001290  43 20 23 37 0d 08 34 0c  2e 68 78 70 72 6e 74 34  |C #7..4..hxprnt4|
000012a0  0d 08 3e 0e 4a 4d 50 20  6f 73 77 72 63 68 0d 08  |..>.JMP oswrch..|
000012b0  48 23 5c 20 4d 65 73 73  61 67 65 20 69 66 20 6e  |H#\ Message if n|
000012c0  6f 74 20 42 61 73 69 63  20 6c 61 6e 67 75 61 67  |ot Basic languag|
000012d0  65 0d 08 52 0b 2e 6e 6f  74 62 61 73 0d 08 5c 3b  |e..R..notbas..\;|
000012e0  4f 50 54 20 a4 65 71 75  73 28 22 54 68 69 73 20  |OPT .equs("This |
000012f0  6c 61 6e 67 75 61 67 65  20 69 73 20 6e 6f 74 20  |language is not |
00001300  42 61 73 69 63 2e 22 29  3a 4f 50 54 20 a4 65 71  |Basic."):OPT .eq|
00001310  75 62 28 26 46 46 29 0d  08 66 20 5c 20 45 78 74  |ub(&FF)..f \ Ext|
00001320  65 6e 64 65 64 20 2a 48  65 6c 70 20 74 65 73 74  |ended *Help test|
00001330  20 73 74 72 69 6e 67 0d  08 70 08 2e 63 6f 6d 0d  | string..p..com.|
00001340  08 7a 19 4f 50 54 20 a4  65 71 75 73 28 22 53 59  |.z.OPT .equs("SY|
00001350  53 54 56 41 52 53 22 29  0d 08 84 12 4f 50 54 20  |STVARS")....OPT |
00001360  a4 65 71 75 62 28 26 46  45 29 0d 08 8e 21 5c 20  |.equb(&FE)...!\ |
00001370  41 64 64 69 74 69 6f 6e  61 6c 20 68 65 6c 70 20  |Additional help |
00001380  69 6e 66 6f 72 6d 61 74  69 6f 6e 0d 08 98 0a 2e  |information.....|
00001390  63 6d 6d 6e 64 0d 08 a2  1b 4f 50 54 20 a4 65 71  |cmmnd....OPT .eq|
000013a0  75 73 28 22 20 20 53 79  73 74 56 61 72 73 22 29  |us("  SystVars")|
000013b0  0d 08 ac 10 4f 50 54 20  a4 65 71 75 62 28 30 29  |....OPT .equb(0)|
000013c0  0d 08 b6 1e 5c 20 54 61  62 6c 65 20 6f 66 20 70  |....\ Table of p|
000013d0  6f 69 6e 74 65 72 73 20  74 6f 20 74 68 65 0d 08  |ointers to the..|
000013e0  c0 19 5c 20 65 78 74 65  6e 64 65 64 20 68 65 6c  |..\ extended hel|
000013f0  70 20 74 65 78 74 73 0d  08 ca 0b 2e 68 74 70 74  |p texts.....htpt|
00001400  72 73 0d 08 d4 12 4f 50  54 20 a4 65 71 75 77 28  |rs....OPT .equw(|
00001410  68 74 31 29 0d 08 de 12  4f 50 54 20 a4 65 71 75  |ht1)....OPT .equ|
00001420  77 28 68 74 32 29 0d 08  e8 12 4f 50 54 20 a4 65  |w(ht2)....OPT .e|
00001430  71 75 77 28 68 74 33 29  0d 08 f2 12 4f 50 54 20  |quw(ht3)....OPT |
00001440  a4 65 71 75 77 28 68 74  34 29 0d 08 fc 12 4f 50  |.equw(ht4)....OP|
00001450  54 20 a4 65 71 75 77 28  68 74 35 29 0d 09 06 12  |T .equw(ht5)....|
00001460  4f 50 54 20 a4 65 71 75  77 28 68 74 36 29 0d 09  |OPT .equw(ht6)..|
00001470  10 12 4f 50 54 20 a4 65  71 75 77 28 68 74 37 29  |..OPT .equw(ht7)|
00001480  0d 09 1a 12 4f 50 54 20  a4 65 71 75 77 28 68 74  |....OPT .equw(ht|
00001490  38 29 0d 09 24 12 4f 50  54 20 a4 65 71 75 77 28  |8)..$.OPT .equw(|
000014a0  68 74 39 29 0d 09 2e 13  4f 50 54 20 a4 65 71 75  |ht9)....OPT .equ|
000014b0  77 28 68 74 31 30 29 0d  09 38 13 4f 50 54 20 a4  |w(ht10)..8.OPT .|
000014c0  65 71 75 77 28 68 74 31  31 29 0d 09 42 13 4f 50  |equw(ht11)..B.OP|
000014d0  54 20 a4 65 71 75 77 28  68 74 31 32 29 0d 09 4c  |T .equw(ht12)..L|
000014e0  13 4f 50 54 20 a4 65 71  75 77 28 68 74 31 33 29  |.OPT .equw(ht13)|
000014f0  0d 09 56 13 4f 50 54 20  a4 65 71 75 77 28 68 74  |..V.OPT .equw(ht|
00001500  31 34 29 0d 09 60 13 4f  50 54 20 a4 65 71 75 77  |14)..`.OPT .equw|
00001510  28 68 74 31 35 29 0d 09  6a 13 4f 50 54 20 a4 65  |(ht15)..j.OPT .e|
00001520  71 75 77 28 68 74 31 36  29 0d 09 74 08 2e 68 74  |quw(ht16)..t..ht|
00001530  31 0d 09 7e 32 4f 50 54  20 a4 65 71 75 73 28 22  |1..~2OPT .equs("|
00001540  53 79 73 74 65 6d 20 76  61 72 69 61 62 6c 65 73  |System variables|
00001550  20 61 72 65 20 61 73 20  66 6f 6c 6c 6f 77 73 3a  | are as follows:|
00001560  2d 22 29 0d 09 88 1f 4f  50 54 20 a4 65 71 75 62  |-")....OPT .equb|
00001570  28 31 33 29 3a 4f 50 54  20 a4 65 71 75 62 28 31  |(13):OPT .equb(1|
00001580  33 29 0d 09 92 1a 4f 50  54 20 a4 65 71 75 73 28  |3)....OPT .equs(|
00001590  22 50 41 47 45 20 20 3d  20 26 22 29 0d 09 9c 12  |"PAGE  = &")....|
000015a0  4f 50 54 20 a4 65 71 75  62 28 26 46 46 29 0d 09  |OPT .equb(&FF)..|
000015b0  a6 08 2e 68 74 32 0d 09  b0 11 4f 50 54 20 a4 65  |...ht2....OPT .e|
000015c0  71 75 62 28 31 33 29 0d  09 ba 1a 4f 50 54 20 a4  |qub(13)....OPT .|
000015d0  65 71 75 73 28 22 54 4f  50 20 20 20 3d 20 26 22  |equs("TOP   = &"|
000015e0  29 0d 09 c4 12 4f 50 54  20 a4 65 71 75 62 28 26  |)....OPT .equb(&|
000015f0  46 46 29 0d 09 ce 08 2e  68 74 33 0d 09 d8 12 4f  |FF).....ht3....O|
00001600  50 54 20 a4 73 70 61 63  65 73 28 33 29 0d 09 e2  |PT .spaces(3)...|
00001610  21 4f 50 54 20 a4 65 71  75 73 28 22 50 72 6f 67  |!OPT .equs("Prog|
00001620  72 61 6d 20 73 69 7a 65  20 3d 20 26 22 29 0d 09  |ram size = &")..|
00001630  ec 12 4f 50 54 20 a4 65  71 75 62 28 26 46 46 29  |..OPT .equb(&FF)|
00001640  0d 09 f6 08 2e 68 74 34  0d 0a 00 11 4f 50 54 20  |.....ht4....OPT |
00001650  a4 65 71 75 62 28 31 33  29 0d 0a 0a 1a 4f 50 54  |.equb(13)....OPT|
00001660  20 a4 65 71 75 73 28 22  4c 4f 4d 45 4d 20 3d 20  | .equs("LOMEM = |
00001670  26 22 29 0d 0a 14 12 4f  50 54 20 a4 65 71 75 62  |&")....OPT .equb|
00001680  28 26 46 46 29 0d 0a 1e  08 2e 68 74 35 0d 0a 28  |(&FF).....ht5..(|
00001690  12 4f 50 54 20 a4 73 70  61 63 65 73 28 33 29 0d  |.OPT .spaces(3).|
000016a0  0a 32 1f 4f 50 54 20 a4  65 71 75 73 28 22 42 79  |.2.OPT .equs("By|
000016b0  74 65 73 20 75 73 65 64  20 3d 20 26 22 29 0d 0a  |tes used = &")..|
000016c0  3c 12 4f 50 54 20 a4 65  71 75 62 28 26 46 46 29  |<.OPT .equb(&FF)|
000016d0  0d 0a 46 08 2e 68 74 36  0d 0a 50 11 4f 50 54 20  |..F..ht6..P.OPT |
000016e0  a4 65 71 75 62 28 31 33  29 0d 0a 5a 1a 4f 50 54  |.equb(13)..Z.OPT|
000016f0  20 a4 65 71 75 73 28 22  48 65 61 70 20 20 3d 20  | .equs("Heap  = |
00001700  26 22 29 0d 0a 64 12 4f  50 54 20 a4 65 71 75 62  |&")..d.OPT .equb|
00001710  28 26 46 46 29 0d 0a 6e  08 2e 68 74 37 0d 0a 78  |(&FF)..n..ht7..x|
00001720  12 4f 50 54 20 a4 73 70  61 63 65 73 28 33 29 0d  |.OPT .spaces(3).|
00001730  0a 82 1f 4f 50 54 20 a4  65 71 75 73 28 22 42 79  |...OPT .equs("By|
00001740  74 65 73 20 66 72 65 65  20 3d 20 26 22 29 0d 0a  |tes free = &")..|
00001750  8c 12 4f 50 54 20 a4 65  71 75 62 28 26 46 46 29  |..OPT .equb(&FF)|
00001760  0d 0a 96 08 2e 68 74 38  0d 0a a0 11 4f 50 54 20  |.....ht8....OPT |
00001770  a4 65 71 75 62 28 31 33  29 0d 0a aa 1a 4f 50 54  |.equb(13)....OPT|
00001780  20 a4 65 71 75 73 28 22  53 74 61 63 6b 20 3d 20  | .equs("Stack = |
00001790  26 22 29 0d 0a b4 12 4f  50 54 20 a4 65 71 75 62  |&")....OPT .equb|
000017a0  28 26 46 46 29 0d 0a be  08 2e 68 74 39 0d 0a c8  |(&FF).....ht9...|
000017b0  12 4f 50 54 20 a4 73 70  61 63 65 73 28 33 29 0d  |.OPT .spaces(3).|
000017c0  0a d2 22 4f 50 54 20 a4  65 71 75 73 28 22 4e 65  |.."OPT .equs("Ne|
000017d0  78 74 20 6c 6f 63 61 74  69 6f 6e 20 3d 20 26 22  |xt location = &"|
000017e0  29 0d 0a dc 12 4f 50 54  20 a4 65 71 75 62 28 26  |)....OPT .equb(&|
000017f0  46 46 29 0d 0a e6 09 2e  68 74 31 30 0d 0a f0 11  |FF).....ht10....|
00001800  4f 50 54 20 a4 65 71 75  62 28 31 33 29 0d 0a fa  |OPT .equb(13)...|
00001810  1a 4f 50 54 20 a4 65 71  75 73 28 22 48 49 4d 45  |.OPT .equs("HIME|
00001820  4d 20 3d 20 26 22 29 0d  0b 04 12 4f 50 54 20 a4  |M = &")....OPT .|
00001830  65 71 75 62 28 26 46 46  29 0d 0b 0e 09 2e 68 74  |equb(&FF).....ht|
00001840  31 31 0d 0b 18 1f 4f 50  54 20 a4 65 71 75 62 28  |11....OPT .equb(|
00001850  31 33 29 3a 4f 50 54 20  a4 65 71 75 62 28 31 33  |13):OPT .equb(13|
00001860  29 0d 0b 22 1a 4f 50 54  20 a4 65 71 75 73 28 22  |)..".OPT .equs("|
00001870  4c 49 53 54 4f 20 3d 20  26 22 29 0d 0b 2c 12 4f  |LISTO = &")..,.O|
00001880  50 54 20 a4 65 71 75 62  28 26 46 46 29 0d 0b 36  |PT .equb(&FF)..6|
00001890  09 2e 68 74 31 32 0d 0b  40 12 4f 50 54 20 a4 73  |..ht12..@.OPT .s|
000018a0  70 61 63 65 73 28 35 29  0d 0b 4a 21 4f 50 54 20  |paces(5)..J!OPT |
000018b0  a4 65 71 75 73 28 22 52  45 50 45 41 54 20 64 65  |.equs("REPEAT de|
000018c0  70 74 68 20 3d 20 26 22  29 0d 0b 54 12 4f 50 54  |pth = &")..T.OPT|
000018d0  20 a4 65 71 75 62 28 26  46 46 29 0d 0b 5e 09 2e  | .equb(&FF)..^..|
000018e0  68 74 31 33 0d 0b 68 11  4f 50 54 20 a4 65 71 75  |ht13..h.OPT .equ|
000018f0  62 28 31 33 29 0d 0b 72  17 4f 50 54 20 a4 65 71  |b(13)..r.OPT .eq|
00001900  75 73 28 22 54 52 41 43  45 20 22 29 0d 0b 7c 12  |us("TRACE ")..|.|
00001910  4f 50 54 20 a4 65 71 75  62 28 26 46 46 29 0d 0b  |OPT .equb(&FF)..|
00001920  86 09 2e 68 74 31 34 0d  0b 90 12 4f 50 54 20 a4  |...ht14....OPT .|
00001930  73 70 61 63 65 73 28 37  29 0d 0b 9a 20 4f 50 54  |spaces(7)... OPT|
00001940  20 a4 65 71 75 73 28 22  47 4f 53 55 42 20 64 65  | .equs("GOSUB de|
00001950  70 74 68 20 3d 20 26 22  29 0d 0b a4 12 4f 50 54  |pth = &")....OPT|
00001960  20 a4 65 71 75 62 28 26  46 46 29 0d 0b ae 09 2e  | .equb(&FF).....|
00001970  68 74 31 35 0d 0b b8 11  4f 50 54 20 a4 65 71 75  |ht15....OPT .equ|
00001980  62 28 31 33 29 0d 0b c2  1a 4f 50 54 20 a4 65 71  |b(13)....OPT .eq|
00001990  75 73 28 22 57 49 44 54  48 20 3d 20 26 22 29 0d  |us("WIDTH = &").|
000019a0  0b cc 12 4f 50 54 20 a4  65 71 75 62 28 26 46 46  |...OPT .equb(&FF|
000019b0  29 0d 0b d6 09 2e 68 74  31 36 0d 0b e0 12 4f 50  |).....ht16....OP|
000019c0  54 20 a4 73 70 61 63 65  73 28 35 29 0d 0b ea 1e  |T .spaces(5)....|
000019d0  4f 50 54 20 a4 65 71 75  73 28 22 46 4f 52 20 64  |OPT .equs("FOR d|
000019e0  65 70 74 68 20 3d 20 26  22 29 0d 0b f4 12 4f 50  |epth = &")....OP|
000019f0  54 20 a4 65 71 75 62 28  26 46 46 29 0d 0b fe 07  |T .equb(&FF)....|
00001a00  5d 3a ed 0d 0c 08 14 f4  20 41 75 74 6f 2d 73 61  |]:...... Auto-sa|
00001a10  76 65 20 63 6f 64 65 0d  0c 12 30 24 26 37 30 30  |ve code...0$&700|
00001a20  3d 22 53 41 56 45 20 42  61 73 48 65 6c 70 20 35  |="SAVE BasHelp 5|
00001a30  30 30 30 20 22 2b c3 7e  4f 25 2b 22 20 38 30 30  |000 "+.~O%+" 800|
00001a40  30 20 38 30 30 30 22 0d  0c 1c 15 58 25 3d 30 3a  |0 8000"....X%=0:|
00001a50  59 25 3d 37 3a d6 20 26  46 46 46 37 0d 0c 26 6c  |Y%=7:. &FFF7..&l|
00001a60  f1 20 27 27 22 43 6f 64  65 20 73 61 76 65 64 20  |. ''"Code saved |
00001a70  75 6e 64 65 72 20 74 68  65 20 6e 61 6d 65 20 6f  |under the name o|
00001a80  66 20 42 61 73 48 65 6c  70 2e 22 27 27 22 54 6f  |f BasHelp."''"To|
00001a90  20 75 73 65 2c 20 6c 6f  61 64 20 69 6e 74 6f 20  | use, load into |
00001aa0  53 69 64 65 77 61 79 73  20 52 61 6d 20 61 6e 64  |Sideways Ram and|
00001ab0  20 74 79 70 65 20 2a 48  2e 20 53 79 73 74 56 61  | type *H. SystVa|
00001ac0  72 73 2e 22 27 27 3a e0  0d 0c 30 19 f4 20 56 61  |rs."'':...0.. Va|
00001ad0  72 69 6f 75 73 20 73 75  62 72 6f 75 74 69 6e 65  |rious subroutine|
00001ae0  73 0d 0c 3a 0f dd 20 a4  65 71 75 62 28 53 25 29  |s..:.. .equb(S%)|
00001af0  0d 0c 44 12 3f 50 25 3d  53 25 3a 50 25 3d 50 25  |..D.?P%=S%:P%=P%|
00001b00  2b 31 0d 0c 4e 18 3f 4f  25 3d 53 25 3a 4f 25 3d  |+1..N.?O%=S%:O%=|
00001b10  4f 25 2b 31 3a 3d 70 61  73 73 0d 0c 58 0f dd 20  |O%+1:=pass..X.. |
00001b20  a4 65 71 75 77 28 53 25  29 0d 0c 62 12 21 50 25  |.equw(S%)..b.!P%|
00001b30  3d 53 25 3a 50 25 3d 50  25 2b 32 0d 0c 6c 18 21  |=S%:P%=P%+2..l.!|
00001b40  4f 25 3d 53 25 3a 4f 25  3d 4f 25 2b 32 3a 3d 70  |O%=S%:O%=O%+2:=p|
00001b50  61 73 73 0d 0c 76 0f dd  20 a4 65 71 75 73 28 53  |ass..v.. .equs(S|
00001b60  24 29 0d 0c 80 16 24 50  25 3d 53 24 3a 50 25 3d  |$)....$P%=S$:P%=|
00001b70  50 25 2b a9 28 53 24 29  0d 0c 8a 1c 24 4f 25 3d  |P%+.(S$)....$O%=|
00001b80  53 24 3a 4f 25 3d 4f 25  2b a9 28 53 24 29 3a 3d  |S$:O%=O%+.(S$):=|
00001b90  70 61 73 73 0d 0c 94 11  dd 20 a4 73 70 61 63 65  |pass..... .space|
00001ba0  73 28 53 25 29 0d 0c 9e  0f e3 20 4e 25 3d 31 20  |s(S%)..... N%=1 |
00001bb0  b8 20 53 25 0d 0c a8 12  3f 50 25 3d 33 32 3a 50  |. S%....?P%=32:P|
00001bc0  25 3d 50 25 2b 31 0d 0c  b2 1a 3f 4f 25 3d 33 32  |%=P%+1....?O%=32|
00001bd0  3a 4f 25 3d 4f 25 2b 31  3a ed 3a 3d 70 61 73 73  |:O%=O%+1:.:=pass|
00001be0  0d ff                                             |..|
00001be2
HelpSrc.m0
HelpSrc.m1
HelpSrc.m2
HelpSrc.m4
HelpSrc.m5