home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG051.ARK
/
INTERACT.S2M
< prev
next >
Wrap
Text File
|
1984-04-29
|
2KB
|
74 lines
#$#$0 (+-*/) SPECIAL SYMBOL SELECTION FOR FOLLOWING MACROS
.SAVE $=$#
$F3#
:CAT KLIST $10# ADD ITEM TO DIRECTORY LIST
# ------------------------------------------
.CLEAR $#
:STO $10=#
# ------------------------------------------
.RESAVE $=$#
$F3#
# -----------------------------------------
.DUMP#
.DUMP KLIST#
# ------------------------------------------
.DUMP $#
$11$47;#
:IF $40= SKIP 4#
$F15#
............ $40$F15#
$F15#
.RECALL $40#
$F8#
# ------------------------------------------
.STOP#
$F0#
# ------------------------------------------
.WRITE#
KLIST$16 $11$47;#
:IF $40= SKIP 1#
.SAVE $40=$41$F13#
$F8#
# ------------------------------------------
.RECALL $#
$11$27;#
$20$F15#
$F8#
# -------------------------------------------
.ADD $=$#
:CAT $10 $20#
# -------------------------------------------
:CAT $ $#
:STO $10=$11;$20#
# -------------------------------------------
:STO $=$#
$F3#
# ----------------------------------------
:IF $=$ SKIP $#
$F50#
# -----------------------------------------
.$#
WHAT IS THE MEANING OF THIS ??? $10$F15#
# -------------------------------------------
$#
.$10#
][ ................................................][$F15#
# -----------------------------------------
.DIR$#
.RECALL KLIST#
# ----------------------------------------
.HELP#
.RECALL HELP#
# ---------------------------------------
.CONSOLE#
5$F2#
#
DISK#
1$F2#
## ----------- END OF MACROS -------------------------
:STO HELP=ADD <ID>=<INFO>;DIR;HELP;RECALL <ID>;SAVE <ID>=<INFO>;WRITE;RESAVE <ID>=<INFO>;CLEAR <ID>;STOP;DUMP
.ADD HELP= <INFO> IS STRINGS SEPERATED BY SEMICOLONS
:STO KLIST=
HELP
.CONSOLE