0000 DO = $0AD6 0002 LOOP = $0AE7 0004 REPEAT = $0D84 0006 UNTIL = $0AC2 0008 WHILE = $0AC2 000A WEND = $0AD1 000C PROCEDURE = $11FE 000E ENDPROC = $0B06 0010 IF = $0AB7 0012 ENDIF = $0D84 0014 FUNCTION = $1206 0016 ENDFUNC = $0D84 0018 SWITCH = $0BA9 001A ENDSWITCH = $0BBE 001C ELSE = $0AF4 001E DEFAULT = $0BB9 0020 ELSE IF = $0AF4 0022 RETURN = $0B06 0026 FOR = $0B15 003E ENDFOR = $0B6B 0056 EXIT IF = $0AFB 0058 SELECT = $0D84 0060 MONITOR = $142E 0062 DO WHILE = $0D84 0064 DO UNTIL = $0D84 0066 LOOP WHILE = $0D84 0068 LOOP UNTIL = $0D84 006A LOCAL = $13C3 006C PROCEDURE = $0D84 006E EXIT IF = $0AFB 0070 CASE = $0B73 0072 DEFFN = $1216 0074 GOTO = $12C1 0076 RESTORE = $12BF 007A GOSUB = $1274 007C @ = $1274 0080 LET = $099D 00B0 PLOT = $0D7E 00B2 PSET = $0D7B 00B4 ALINE = $0D97 00B6 HLINE = $0D97 00B8 ARECT = $0D94 00BA APOLY = $0DA4 00BC ACHAR = $0D9A 00BE ACLIP = $0DAA 00C0 COLOR = $0D81 00C2 POKE = $0D7E 00C4 DPOKE = $0D7E 00C6 LPOKE = $0D7E 00C8 SPOKE = $0D7E 00CA SDPOKE = $0D7E 00CC SLPOKE = $0D7E 00CE RESERVE = $1434 00D0 00D2 RESUME = $11F1 00D4 00D6 00D8 00DA RECORD = $110C 00DC DELAY = $0D81 00DE BGET = $143C 00E0 BPUT = $143C 00E2 ATEXT = $1AD1 00E4 REM = $0F78 00E6 ' = $0F78 00E8 ==> = $0F78 00EA DATA = $0F78 00EC SWAP = $12C6 00EE 00F0 00F2 * = $0DDA 00F4 00F6 SINGLE{ = $0A83 00F8 END = $0D84 00FA LOCATE = $0D7E 00FC ON = $1147 0100 ON ERROR = $1147 0102 ON ERROR GOSUB = $1147 0104 ON BREAK = $1147 0106 ON BREAK CONT = $1147 0108 ON BREAK GOSUB = $1147 010A ON MENU GOSUB = $1147 010C ON MENU MESSAGE GOSUB = $1147 010E ON MENU KEY GOSUB = $1147 0110 ON MENU BUTTON = $1147 0112 ON MENU = $1147 0116 MENU = $135A 0118 MENU OFF = $135A 011A MENU KILL = $135A 011C MENU = $135A 011E TRON = $0F30 0124 TROFF = $0D84 0126 PRINT = $1B44 012A TEXT = $1AC5 012E RCALL = $1389 0130 CALL = $1BD5 0132 FORM INPUT = $0B1C 0134 LINE INPUT = $0D53 0136 LINE = $0D53 0138 013A 013C 013E 0140 INC = $0C4B 0150 DEC = $0C4B 0160 ADD = $0BDE 0170 SUB = $0BC0 0180 MUL = $0C01 0190 DIV = $0C16 01A0 SEEK = $1105 01A2 RELSEEK = $1105 01A4 DIM = $1116 01A6 SETCOLOR = $1484 01AA BMOVE = $0D7B 01AC VDISYS = $148E 01AE 01B0 01B2 01B4 GEMSYS = $14A2 01B8 PTSIN( = $0A6C 01BA PTSOUT( = $0A6C 01BC INTIN( = $0A6C 01BE INTOUT( = $0A6C 01C0 ADDRIN( = $0A6C 01C2 ADDROUT( = $0A6C 01C4 GINTIN( = $0A6C 01C6 GINTOUT( = $0A6C 01C8 CONTRL( = $0A6C 01CA GCONTRL( = $0A6C 01CC { = $0A83 01CE LONG{ = $0A83 01D0 INT{ = $0A83 01D2 CARD{ = $0A83 01D4 BYTE{ = $0A83 01D6 CHAR{ = $0A8F 01D8 FLOAT{ = $0A83 01DA DOUBLE{ = $0A83 01DC ON MENU IBOX = $1147 01DE ON MENU OBOX = $1147 01E0 VOID = $0998 01E2 ~ = $0D81 01E4 OB_NEXT( = $0A69 01E6 OB_HEAD( = $0A69 01E8 OB_TAIL( = $0A69 01EA OB_TYPE( = $0A69 01EC OB_FLAGS( = $0A69 01EE OB_STATE( = $0A69 01F0 OB_SPEC( = $0A69 01F2 OB_X( = $0A69 01F4 OB_Y( = $0A69 01F6 OB_W( = $0A69 01F8 OB_H( = $0A69 01FA ABSOLUTE = $192B 01FC . = $0F78 01FE RANDOMIZE = $142E 0200 ALERT = $13E1 0202 GET = $102E 0204 0206 0208 PUT = $1048 020A 020C 020E 0210 0212 OPEN = $0EED 0214 OPENW = $0D81 0216 OPENW # = $0D81 0218 CLOSE = $0F1D 021A CLOSEW = $0D81 021C CLOSEW # = $0D81 021E CLEAR = $0F4A 0220 CLEARW = $0D81 0222 CLEARW # = $0D81 0224 TOPW = $0F67 0226 TITLEW = $0F6E 0228 INFOW = $0F6E 022A DEFLINE = $1407 022C GRAPHMODE = $0D81 022E DEFMOUSE = $1BBE 0232 DEFLIST = $0D81 0234 DEFMARK = $1418 0236 DEFNUM = $0D81 0238 DEFTEXT = $13FB 023A DEFFILL = $1070 023E BOX = $0D78 0240 PBOX = $0D78 0242 RBOX = $0D78 0244 PRBOX = $0D78 0246 CIRCLE = $0F95 024A PCIRCLE = $0F95 024E ELLIPSE = $0F8A 0252 PELLIPSE = $0F8A 0256 ERROR = $0D81 0258 FILL = $0DB9 025C HIDEM = $0D84 025E LPRINT = $1B5D 0260 LSET = $0A9B 0262 MID$( = $0F7C 0264 NEW = $0D84 0266 OUT = $10DB 026A QUIT = $142E 026E CHDIR = $0E66 0270 CHDRIVE = $0DAE 0274 CLR = $13C3 0276 CLS = $0F29 027A CONT = $0A78 027E DIR = $0E3A 0280 HTAB = $0D81 0282 VTAB = $0D81 0284 ERASE = $0D37 0286 EXEC = $0DF2 0288 FIELD = $1007 028A FILES = $0E24 028C TOUCH = $0F67 0290 EDIT = $0D84 0292 FILESELECT = $0E24 0294 NAME = $0E80 0296 MKDIR = $0E66 0298 MOUSE = $13D4 029A KILL = $0E66 029C RMDIR = $0E66 029E RSET = $0A9B 02A0 SETTIME = $0EE0 02A2 SGET = $0B28 02A4 SHOWM = $0D84 02A6 SPUT = $0B28 02A8 STOP = $0D84 02AA SYSTEM = $142E 02AC VSYNC = $0D84 02AE HARDCOPY = $0D84 02B0 PAUSE = $0D81 02B2 QSORT = $094B 02B4 SSORT = $094B 02B6 POLYLINE = $13AE 02B8 POLYFILL = $13AE 02BA POLYMARK = $13AE 02BC INSERT = $0A38 02BE DELETE = $0A30 02C0 RENAME = $0E80 02C2 STICK = $0D81 02C4 SOUND = $10B8 02C6 WAVE = $10C3 02C8 CLIP = $107E 02CA 02CC 02CE 02D0 02D2 FULLW = $0F5E 02D4 EVERY = $11D1 02D6 02D8 02DA AFTER = $11D1 02DC 02DE 02E0 INPUT = $1AF0 02E4 DRAW = $0FB6 02E8 READ = $1B17 02EC SETMOUSE = $0DC4 02EE KEYPAD = $0D81 02F0 KEYTEST = $13DC 02F2 KEYGET = $13DC 02F4 KEYLOOK = $13DC 02F6 KEYPRESS = $0D81 02F8 KEYDEF = $13F4 02FA DEFINT = $0E6F 02FC DEFDBL = $0E6F 02FE DEFBYT = $0E6F 0300 DEFWRD = $0E6F 0302 DEFBIT = $0E6F 0304 DEFSTR = $0E6F 0306 BOUNDARY = $0D81 0308 LIST = $0E66 030A LLIST = $0E66 030C SAVE = $0E66 030E PSAVE = $0E66 0310 CHAIN = $0E66 0312 RUN = $0E61 0316 LOAD = $0E66 0318 SETDRAW = $0D7B 031A ARRAYFILL = $1380 031C DUMP = $0E3A 031E BITBLT = $1392 0324 STORE = $1444 0326 RECALL = $1451 0328 BSAVE = $0FF0 032A BLOAD = $0FFB 032C V~H= = $0D81 032E TIME$= = $0E66 0330 DATE$= = $0E66 0332 SPRITE = $1BC8 0334 OPTION = $0E59 0336 $ = $0F78 0338 WINDTAB( = $0A69 033A RC_COPY = $1476 033C MODE = $0D81 0340 WRITE = $1B1B 0342 INLINE = $0D86 0344 WORD{ = $0A83 0346 VSETCOLOR = $0DCC 0348 OUT& = $10DB 034A OUT% = $10DB 034C CURVE = $0D94 034E _DATA= = $0D81 0350 MAT ADD = $07EC 0354 MAT SUB = $07EC 0358 MAT CPY = $07EC 035A MAT XCPY = $07EC 035C MAT DET = $07EC 035E MAT NEG = $07EC 0360 MAT ABS = $07EC 0362 MAT NORM = $07EC 0364 MAT READ = $07EC 0366 MAT PRINT = $07EC 0368 MAT TRANS = $07EC 036A MAT CLR = $07EC 036C MAT SET = $07EC 036E MAT ONE = $07EC 0370 MAT BASE = $07EC 0372 MAT QDET = $07EC 0374 MAT INPUT = $07EC 0376 MAT RANG = $07EC 0378 MAT MUL = $07EC 0380 MAT INV = $07EC 0382 FUNCTION = $0D84 0384 DMASOUND = $10B0 0386 DMACONTROL = $0D81 0388 MW_OUT = $0D7E //arguments ---------------------------- 0000 AND 0001 OR 0002 XOR 0003 IMP 0004 EQV 0005 - 0006 + 0007 * 0008 / 0009 ^ 000A MOD 000B DIV 000C <> 000D <= 000E =< 000F >= 0010 => 0011 < 0012 > 0013 = 0014 <> 0015 <= 0016 =< 0017 >= 0018 => 0019 < 001A > 001B = 001C + 001E - 001F NOT 0020 ) 0021 , 0022 ; 0023 ( 0024 ERR$( 0025 INT( 0026 TRUNC( 0027 FRAC( 0028 ABS( 0029 SIN( 002A COS( 002B TAN( 002C ATN( 002D == 002E ( 002F EXP( 0030 LOG( 0031 LOG10( 0032 VAR 0033 ) 0034 INPAUX$ 0035 VAL( 0036 INPMID$ 0038 TIME$ 0039 )= 003A LEFT$( 003C RIGHT$( 003E MID$( 0040 , 0041 ASIN( 0042 CHR$( 0043 }= 0044 ]= 0045 = 0046 ^M 0047 TO 0048 STEP 0049 DOWNTO 004A THEN 004B GOTO 004C GOSUB 004D # 004E SQR( 004F PI 0050 [ 0051 ] 0052 ACOS( 0053 INKEY$ 0054 RND( 0055 RND 0056 RANDOM( 0057 ' 0058 } 0059 AT( 005A IF 005B \ 005C FLOAT{ 005D DOUBLE{ 005E INPUT$( 0060 INPUT 0061 CHAR{ 0062 MKI$( 0063 MKL$( 0064 MKS$( 0065 MKF$( 0066 MKD$( 0067 DEG( 0068 RAD( 0069 CVS( 006A CVF( 006B CVD( 006C AS 006D OFFSET 006E CFLOAT( 006F TRACE$ 0070 ROUND( 0072 WITH 0073 BIN$( 0075 MIN( 0077 MAX( 0079 SINGLE{ 007A AT( 007B SINQ( 007C : 007D COSQ( 007E DATE$ 007F UPPER$( 0080 SPACE$( 0081 STRING$( 0083 SUCC( 0084 DIR$( 0085 PRED( 0086 DRAW( 0087 TRIM$( 008A L: 008B W: 008C FACT( 008D COMBIN( 008F VARIAT( 0090 0091 0092 0093 0094 0095 0096 0097 ERROR 0098 STOP 0099 BREAK 009A CONT 009B FIX( 009C , 009D ( 009E FN 009F @ 00A1 TAB( 00A2 SPC( 00A3 USING 00A7 MENU 00A8 NEXT 00AA KEY 00AB BUTTON 00AC IBOX 00AD OBOX 00AE MESSAGE 00AF OFF 00B0 KILL 00B1 00B2 00B3 00B4 00B5 00B6 BASE 00B8 0 00B9 1 00BA 2 00BB 3 00BC TRUE 00BD FALSE 00BE STR$( 00C1 HEX$( 00C3 OCT$( 00C4 //extended args------------------------------- D000 MUL( D001 DIV( D002 ADD( D003 SUB( D004 MOD( D005 AND( D006 OR( D007 XOR( D008 EQV( D009 IMP( D00A SHL( D00B SHR( D00C ROL( D00D ROR( D00E WORD( D00F CARD( D010 BYTE( D011 SWAP( D012 ADDRIN( D013 ADDRIN D014 ADDROUT( D015 ADDROUT D016 CONTRL( D017 CONTRL D018 GCONTRL( D019 GCONTRL D01A GINTIN( D01B GINTIN D01C GINTOUT( D01D GINTOUT D01E HIMEM D01F BASEPAGE D020 INTIN( D021 INTIN D022 INTOUT( D023 INTOUT D024 PTSIN( D025 PTSIN D026 PTSOUT( D027 PTSOUT D028 VDIBASE D029 WINDTAB( D02A WINDTAB D02B PTST( D02C BTST( D02D BSET( D02E BCLR( D02F BCHG( D030 SHL&( D031 SHR&( D032 ROL&( D033 ROR&( D034 SHL|( D035 SHR|( D036 ROL|( D037 ROR|( D038 CRSLIN D039 CRSCOL D03A MOUSEX D03B MOUSEY D03C MOUSEK D03D GB D03E TIMER D03F PEEK( D040 DPEEK( D041 LPEEK( D042 LEN( D043 ASC( D044 INSTR( D047 FRE( D048 POINT( D049 VAL?( D04A INP( D04B CVI( D04C CVL( D04D INP(# D04E EOF( D04F LOF( D050 LOC( D051 DIM?( D052 RAND( D053 DFREE( D054 EXIST( D055 BIOS( D056 XBIOS( D057 GEMDOS( D058 ERR D059 FATAL D05A POS( D05B LPOS( D05C MENU( D05D INP?( D05E OUT?( D05F EXEC( D060 SUCC( D061 PRED( D062 W_HAND(# D063 W_INDEX(# D064 SGN( D065 EVEN( D066 ODD( D067 CINT( D068 GDOS? D069 V_OPNWK( D06A V_CLSWK() D06B V_OPNVWK( D06C V_CLSVWK() D06D V_UPDWK() D06E VST_LOAD_FONTS( D06F VST_UNLOAD_FONTS( D070 { D071 LONG{ D072 INT{ D073 CARD{ D074 BYTE{ D075 C: D076 EVNT_KEYBD() D077 EVNT_BUTTON( D078 EVNT_MOUSE( D079 EVNT_MESAG( D07A EVNT_TIMER( D07B EVNT_MULTI( D07C RSRC_LOAD( D07D RSRC_FREE() D07E RSRC_GADDR( D07F RSRC_SADDR( D080 RSRC_OBFIX( D081 SHEL_READ( D082 SHEL_WRITE( D083 SHEL_GET( D084 SHEL_PUT( D085 SHEL_FIND( D086 SHEL_ENVRN( D087 APPL_INIT() D088 APPL_READ( D089 APPL_WRITE( D08A APPL_FIND( D08B APPL_TPLAY( D08C APPL_TRECORD( D08D APPL_EXIT() D08E EVNT_DCLICK( D08F MENU_BAR( D090 MENU_ICHECK( D091 MENU_IENABLE( D092 MENU_TNORMAL( D093 MENU_TEXT( D094 MENU_REGISTER( D095 OBJC_ADD( D096 OBJC_DELETE( D097 OBJC_DRAW( D098 OBJC_FIND( D099 OBJC_OFFSET( D09A OBJC_ORDER( D09B OBJC_EDIT( D09C OBJC_CHANGE( D09D FORM_DO( D09E FORM_DIAL( D09F FORM_ALERT( D0A0 FORM_ERROR( D0A1 FORM_CENTER( D0A2 GRAF_RUBBERBOX( D0A3 GRAF_DRAGBOX( D0A4 GRAF_MOVEBOX( D0A5 GRAF_GROWBOX( D0A6 GRAF_SHRINKBOX( D0A7 GRAF_WATCHBOX( D0A8 GRAF_SLIDEBOX( D0A9 GRAF_HANDLE( D0AA GRAF_MOUSE( D0AB GRAF_MKSTATE( D0AC SCRP_READ( D0AD SCRP_WRITE( D0AE FSEL_INPUT( D0AF WIND_CREATE( D0B0 WIND_OPEN( D0B1 WIND_CLOSE( D0B2 WIND_DELETE( D0B3 WIND_GET( D0B4 WIND_SET( D0B5 WIND_FIND( D0B6 WIND_UPDATE( D0B7 WIND_CALC( D0B8 MALLOC( D0B9 MFREE( D0BA MSHRINK( D0BB VARPTR( D0BC ARRPTR( D0BD * D0BE TYPE( D0BF OB_ADR( D0C0 OB_NEXT( D0C1 OB_HEAD( D0C2 OB_TAIL( D0C3 OB_TYPE( D0C4 OB_FLAGS( D0C5 OB_STATE( D0C6 OB_SPEC( D0C7 OB_X( D0C8 OB_Y( D0C9 OB_W( D0CA OB_H( D0CB V: D0CC FORM_KEYBD( D0CD FORM_BUTTON( D0CE STICK( D0CF STRIG( D0D0 WORK_OUT( D0D1 RINSTR( D0D4 L~A D0D5 V~H D0D6 V_CLRWK() D0D7 VQT_NAME( D0D8 VQT_EXTENT( D0D9 RC_INTERSECT( D0DA FSFIRST( D0DB FSNEXT() D0DC FSETDTA( D0DD FGETDTA() D0DE WORD{ D0DF INP&( D0E0 INP&(# D0E1 INP%( D0E2 INP%(# D0E3 _DATA D0E4 PADX( D0E5 PADY( D0E6 PADT( D0E7 LPENX D0E8 LPENY D0E9 STE? D0EA TT? D0EB SCALE(