APDL Public Domain 1

home *** CD-ROM | disk | FTP | other *** search

/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / armforth / !ARMforth / Manual / BasicSpecs < prev next >

Wrap

Text File | 1990-02-18 | 6.6 KB | 602 lines

BASIC Keywords -------------- BEAT ( ... n) n = current beat value BEATS= (n ... ) n = new value of beat counter BEATS ( ... n) n = current value of beat counter BGET# (n ... b) n = file handle b = byte read from file BPUT#1 (n\b ... ) n = file handle b = byte to write BPUT#2 (n\addr ... ) n = file handle addr = string to write CIRCLE (n1\n2\n3 ... ) n1 = centre x n2 = centre y n3 = radius CIRCLE-FILL (n1\n2\n3 ... ) n1 = centre x n2 = centre y n3 = radius CLG ( ... ) CLOSE# (n ... ) n = file handle CLS ( ... ) COLOUR1 (n ... ) n = logical colour COLOUR2 (n1\n2 ... ) n1 = logical colour n2 = physical colour COLOUR3 (n1\n2\n3\n4 ... ) n1 = logical colour n2 = red component n3 = green component n4 = blue component Only top 4 bits of n2,n3,n4 valid DRAW (n1\n2 ... ) n1 = x n2 = y DRAW-BY (n1\n2 ... ) n1 = x n2 = y ELLIPSE (n1\n2\n3\n4 ... ) n1 = centre x n2 = centre y n3 = semi-major axis length n4 = semi-minor axis length ELLIPSE-FILL (n1\n2\n3\n4 ... ) n1 = centre x n2 = centre y n3 = semi-major axis length n4 = semi-minor axis length EOF# (n ... b) n = file handle b = true if end of file EXT# (n1 ... n2) n1 = file handle n2 = extent of file EXT#= (n1\n2 ... ) n1 = file handle n2 = new extent FALSE ( ... b) b = 0 FLOOD-FILL (n1\n2 ... ) n1 = x n2 = y FLOOD-FILL-BY (n1\n2 ... ) n1 = x n2 = y GCOL1 (n ... ) n = logical colour GCOL2 (n1\n2 ... ) n1 = gcol action n2 = colour GET ( ... n) n = key value GET$ (addr ... addr) addr = string to receive char GET$# (addr\n ... addr) addr = string address n = file handle INKEY (n1 ... n2) n1 = centi-second time limit n2 = ascii code or &FF if timeout or n1 = INKEY key number n2 = &FF if key (or ESCAPE) pressed, else 0 INSTR (addr1\addr2\n1 ... n2) addr1 = string addr2 = substring n1 = search start pos INSTR" inline INSTR LEFT$ (addr1\addr2\n ... addr1) addr1 = destination string addr2 = source string n = number of chars LEN (addr ... n) addr = string n = length LINE (n1\n2\n3\n4 ... ) n1 = start x n2 = start y n3 = endx n4 = end y MID$ (addr1\addr2\n1\n2 ... addr1) addr1 = destination string addr2 = source string n1 = start pos n2 = length MODE (n ... ) n = new mode MOUSE ( ... n1\n2\n3) n1 = mouse x n2 = mouse y n3 = mouse buttons state MOUSE-ON ( ... ) MOUSE-ON1 (n ... ) n = mouse pointer number MOUSE-OFF ( ... ) MOUSE-COLOUR (n1\n2\n3\n4 ... ) n1 = logical colour n2 = red component n3 = green component n4 = blue component MOUSE-TO (n1\n2 ... ) n1 = new mouse x n2 = new mouse y MOUSE-STEP1 (n ... ) n = x and y multiplier MOUSE-STEP2 (n1\n2 ... ) n1 = x multiplier n2 = y multiplier MOUSE-RECTANGLE (n1\n2\n3\n4 ... ) n1 = left x n2 = bottom y n3 = right x n4 = top y MOVE (n1\n2 ... ) n1 = x n2 = y MOVE-BY (n1\n2 ... ) n1 = x n2 = y OPENIN (addr ... n) addr = file name n = file handle or 0 on failure OPENIN" Inline OPENIN OPENOUT (addr ... n) addr = file name n = file handle or 0 on failure OPENOUT" Inline OPENOUT OPENUP (addr ... n) addr = file name n = file handle or 0 on failure OPENUP" Inline OPENUP ORIGIN (n1\n2 ... ) n1 = x n2 = y PLOT (n1\n2\n3 ... ) n1 = plot action n2 = x n3 = y POINT (n1\n2 ... ) n1 = x n2 = y POINT-BY (n1\n2 ... ) n1 = x n2 = y POS ( ... n) n = cursor x PRINT#1 (n\addr ... ) n = file handle addr = string to write PRINT#1" Inline PRINT#1 PRINT#2 (n1\n2 ... ) n1 = file handle n2 = integer to write PTR# (n1 ... n2) n1 = file handle n2 = file pos PTR#= (n1\n2 ... ) n1 = file handle n2 = new file pos RECTANGLE (n1\n2\n3\n4 ... ) n1 = corner x n2 = corner y n3 = width n4 = height RECTANGLE-FILL (n1\n2\n3\n4 ... ) n1 = corner x n2 = corner y n3 = width n4 = height RECTANGLE-TO (n1\n2\n3\n4\n5\n6 ... ) n1 = corner x n2 = corner y n3 = width n4 = height n5 = destination lower left x n6 = destination lower left y RECTANGLE-FILL-TO (n1\n2\n3\n4\n5\n6 ... ) n1 = corner x n2 = corner y n3 = width n4 = height n5 = destination lower left x n6 = destination lower left y RIGHT$ (addr1\addr2\n ... addr1) addr1 = destination string addr2 = source string n = length SOUND-ON ( ... ) SOUND-OFF ( ... ) SOUND1 (n1\n2\n3\n4 ... ) n1 = channel number n2 = amplitude n3 = pitch n4 = duration SOUND2 (n1\n2\n3\n4\n5 ... ) n1 = channel number n2 = amplitude n3 = pitch n4 = duration n5 = delay STEREO (n1\n2 ... ) n1 = channel number n2 = stereo position STR$ (n\addr ... addr) n = number addr = destination string STR$~ (n\addr ... addr) n = number addr = destination string STRING$ (addr1\n\addr2 ... addr1) addr1 = destination string n = number of copies addr2 = source string STRING$" Inline STRING$ SUM1 (addr ... n) addr = numeric array n = sum of elements SUM2 (addr1\addr2 ... addr1) addr1 = destination string addr2 = source string array TAB1 (n ... ) n = new x cursor position TAB2 (n1\n2 ... ) n1 = new x cursor position n2 = new y cursor position TEMPO= (n ... ) n = new beat counter rate TEMPO ( ... n) n = current beat counter rate TIME= (n ... ) n = new time value TIME ( ... n) n = current time value TIME$= (addr ... ) addr = string containing new time TIME$ ( ... addr) addr = string to receive current time TINT= (n ... ) n = new tint value Only sets tint for graphics foreground TINT (n1\n2 ... n3) n1 = x coord n2 = y coord n3 = tint value TRUE ( ... b) b = 1 VAL (addr ... ) addr = string containing expression VDU1 (b ... ) b = output byte VDU2 (w ... ) w = output word VDU3 (n ... ) n = output long word VDU4 (b1\...\n ... ) b1... = output bytes n = number of bytes VDU5 (w1\...\n ... ) w1... = output words n = number of words VDU6 (n1\...\n2 ... ) n1... = output long words n2 = number of long words VOICES (n ... ) n = number of sound channels VPOS ( ... n) n = vertical cursor position WAIT ( ... )