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
/
DEMO.S2M
< prev
next >
Wrap
Text File
|
1984-04-29
|
1KB
|
82 lines
#$#$0 (+-*/)
C0 $#
.."$10"#
#
C1 $#
.."$11"#
#
C2 $#
.."$12"#
#
C4 $#
.."$14"#
#
C5 $#
.."$15"#
#
C6 $#
YOUR STRING REPLACED BY THIS$16#
.."$10"#
#
C7 $#
$10$27,;#
.."$20" "$23"#
$F8#
#
C8 $#
.."$18"#
#
S#
.."$01"#
#
F0#
$F0#
#
F1#
..OUTPUT REQUEST#
#
F3 $=$#
$F3#
#
F7 $#
$10$F7#
..REPEAT $10 TIMES#
$F8#
#
FE#
$FE#
# -----------------
HELP#
..S - SYMBOL GEN C - CONVERSION F - PROCESSOR FUNCTION#
.L S/REQUEST NEXT SYMBOL FROM GENERATOR#
.L C0 $$/PARAMETER AS IS#
.L C1 $$/GET FROM MEMORY USING PARAMETER#
.L C2 $$/GET FROM MEMORY USING PARAMETER - GEN IF UNDEFINED#
.L C4 $$/EVALUATE EXPRESSION#
.L C5 $$/GET LENGTH OF EXPRESSION#
.L C6 $$/REPLACE PARAMETER#
.L C7 $$/CONTEXT CONTROLLED ITERATION - BREAK ON , ;#
.L C8 $$/GET INTERNAL CODE FOR CHARACTER#
.L F0/TERMINATE PROCESSING#
.L F1/OUTPUT REQUEST#
.L F3 $$=$$/STORE INTO MEMORY#
.L F7 $$/COUNT CONTROLLED ITERATION#
.L FE/FORCE ERROR TRACE BACK#
# ----------------
.L $/$#
$F15#
111111112222222222222222222222222222222222222222222222222222
# ----------------
..$#
$10$F15#
#
$#
..>>> NO EXAMPLE PREPARED#
#
.CONSOLE#
5$F2#
##
HELP#
..READY FOR INPUT FROM CONSOLE#
.CONSOLE#