acme/ACME_Lib/cbm/basic3.5.a

127 lines
3.5 KiB
Plaintext

;ACME 0.94.4
!ifdef lib_cbm_basic3_5_a !eof
lib_cbm_basic3_5_a = 1
!source <cbm/basic2.a> ; from 0x80 to $cb
; token values
token_RGR = $cc
token_RCLR = $cd
; if this file gets included via "cbm/basic7.a" or "cbm/basic10.a", do not define RLUM
; (because v7 and higher use $ce as prefix byte for additional functions):
!ifndef lib_cbm_basic7_a {
!ifndef lib_cbm_basic10_a {
token_RLUM = $ce
}
}
token_JOY = $cf
token_RDOT = $d0
token_DEC = $d1
token_HEX_ = $d2 ; HEX$
token_ERR_ = $d3 ; ERR$
token_INSTR = $d4
token_ELSE = $d5
token_RESUME = $d6
token_TRAP = $d7
token_TRON = $d8
token_TROFF = $d9
token_SOUND = $da
token_VOL = $db
token_AUTO = $dc
token_PUDEF = $dd
token_GRAPHIC = $de
token_PAINT = $df
token_CHAR = $e0
token_BOX = $e1
token_CIRCLE = $e2
; if this file gets included via "cbm/basic10.a", do not define GSHAPE/SSHAPE/DRAW
; (because in v10, they are called PASTE/CUT/LINE):
!ifndef lib_cbm_basic10_a {
token_GSHAPE = $e3
token_SSHAPE = $e4
token_DRAW = $e5
}
token_LOCATE = $e6
token_COLOR = $e7
token_SCNCLR = $e8
token_SCALE = $e9
token_HELP = $ea
token_DO = $eb
token_LOOP = $ec
token_EXIT = $ed
; if this file gets included via "cbm/basic10.a", do not define DIRECTORY
; (because in v10, it is called DIR):
!ifndef lib_cbm_basic10_a {
token_DIRECTORY = $ee
}
token_DSAVE = $ef
token_DLOAD = $f0
token_HEADER = $f1
token_SCRATCH = $f2
token_COLLECT = $f3
token_COPY = $f4
token_RENAME = $f5
token_BACKUP = $f6
token_DELETE = $f7
token_RENUMBER = $f8
token_KEY = $f9
token_MONITOR = $fa
token_USING = $fb
token_UNTIL = $fc
token_WHILE = $fd
; Macros for inserting BASIC commands. Note that "#" and "$" characters in
; BASIC keywords have been converted to "_" in the macro names.
; *All* function macros already include the '(' character.
!macro b_RGR {!by token_RGR, $28} ; RGR(
!macro b_RCLR {!by token_RCLR, $28} ; RCLR(
!macro b_RLUM {!by token_RLUM, $28} ; RLUM(
!macro b_JOY {!by token_JOY, $28} ; JOY(
!macro b_RDOT {!by token_RDOT, $28} ; RDOT(
!macro b_DEC {!by token_DEC, $28} ; DEC(
!macro b_HEX_ {!by token_HEX_, $28} ; HEX$(
!macro b_ERR_ {!by token_ERR_, $28} ; ERR$(
!macro b_INSTR {!by token_INSTR, $28} ; INSTR(
!macro b_ELSE {!by token_ELSE}
!macro b_RESUME {!by token_RESUME}
!macro b_TRAP {!by token_TRAP}
!macro b_TRON {!by token_TRON}
!macro b_TROFF {!by token_TROFF}
!macro b_SOUND {!by token_SOUND}
!macro b_VOL {!by token_VOL}
!macro b_AUTO {!by token_AUTO}
!macro b_PUDEF {!by token_PUDEF}
!macro b_GRAPHIC {!by token_GRAPHIC}
!macro b_PAINT {!by token_PAINT}
!macro b_CHAR {!by token_CHAR}
!macro b_BOX {!by token_BOX}
!macro b_CIRCLE {!by token_CIRCLE}
!macro b_GSHAPE {!by token_GSHAPE}
!macro b_SSHAPE {!by token_SSHAPE}
!macro b_DRAW {!by token_DRAW}
!macro b_LOCATE {!by token_LOCATE}
!macro b_COLOR {!by token_COLOR}
!macro b_SCNCLR {!by token_SCNCLR}
!macro b_SCALE {!by token_SCALE}
!macro b_HELP {!by token_HELP}
!macro b_DO {!by token_DO}
!macro b_LOOP {!by token_LOOP}
!macro b_EXIT {!by token_EXIT}
!macro b_DIRECTORY {!by token_DIRECTORY}
!macro b_DSAVE {!by token_DSAVE}
!macro b_DLOAD {!by token_DLOAD}
!macro b_HEADER {!by token_HEADER}
!macro b_SCRATCH {!by token_SCRATCH}
!macro b_COLLECT {!by token_COLLECT}
!macro b_COPY {!by token_COPY}
!macro b_RENAME {!by token_RENAME}
!macro b_BACKUP {!by token_BACKUP}
!macro b_DELETE {!by token_DELETE}
!macro b_RENUMBER {!by token_RENUMBER}
!macro b_KEY {!by token_KEY}
!macro b_MONITOR {!by token_MONITOR}
!macro b_USING {!by token_USING}
!macro b_UNTIL {!by token_UNTIL}
!macro b_WHILE {!by token_WHILE}