INSTRUCTIONS0.14
FILE INFORMATION
FILENAME(S): INSTRUCTIONS0.14
FILE TYPE(S): SEQ
FILE SIZE: 10.3K
FIRST SEEN: 2025-11-02 16:54:41
APPEARS ON: 2 disk(s)
FILE HASH
345a9303f5c795e1e2271bc6540c469aaab31e72eb73d616ca78b55dd97b332b
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMAL | INSTRUCTIONS0.14 | SEQ | Treasure Chest - Reamigation | 22 | 0 | DOWNLOAD FILE |
| PD DISK 15 | INSTRUCTIONS0.14 | SEQ | Treasure Chest - Wolfgang Rauprich | 22 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 11 C3 CF CD C1 CC 20 CB C5 D9 D7 CF D2 C4 D3 3A |...... ........:| 00000010: 20 28 56 45 52 53 49 4F 4E 20 30 2E 31 34 29 0D | (VERSION 0.14).| 00000020: 11 0D 11 2F 2F 20 2D 2D 20 41 4C 4C 4F 57 53 20 |...// -- ALLOWS | 00000030: 43 4F 4D 4D 45 4E 54 53 20 49 4E 20 41 20 50 52 |COMMENTS IN A PR| 00000040: 4F 47 52 41 4D 0D 11 2F 2F DB 3C 41 4E 59 54 48 |OGRAM..//.<ANYTH| 00000050: 49 4E 47 3E DD 0D 11 0D 11 C1 C2 D3 20 2D 2D 20 |ING>........ -- | 00000060: 47 49 56 45 53 20 54 48 45 20 41 42 53 4F 4C 55 |GIVES THE ABSOLU| 00000070: 54 45 20 56 41 4C 55 45 0D 11 C1 C2 D3 28 3C 4E |TE VALUE.....(<N| 00000080: 55 4D 45 52 49 43 20 45 58 50 52 45 53 53 49 4F |UMERIC EXPRESSIO| 00000090: 4E 3E 29 0D 11 0D 11 C1 CE C4 20 2D 2D 20 4C 4F |N>)....... -- LO| 000000A0: 47 49 43 41 4C 20 C1 CE C4 0D 11 3C 45 58 50 52 |GICAL .....<EXPR| 000000B0: 45 53 53 49 4F 4E 3E 20 C1 CE C4 20 3C 45 58 50 |ESSION> ... <EXP| 000000C0: 52 45 53 53 49 4F 4E 3E 0D 11 0D 11 C1 D0 D0 C5 |RESSION>........| 000000D0: CE C4 20 2D 2D 20 53 54 41 52 54 20 41 54 20 45 |.. -- START AT E| 000000E0: 4E 44 20 4F 46 20 53 45 51 20 46 49 4C 45 0D 11 |ND OF SEQ FILE..| 000000F0: CF D0 C5 CE 20 DB C6 C9 CC C5 DD 20 3C 46 49 4C |.... ...... <FIL| 00000100: 45 23 3E 2C 3C 46 49 4C 45 4E 41 4D 45 3E 2C C1 |E#>,<FILENAME>,.| 00000110: D0 D0 C5 CE C4 0D 11 0D 11 C1 D4 CE 20 2D 2D 20 |............ -- | 00000120: 41 52 43 54 41 4E 47 45 4E 54 20 49 4E 20 52 41 |ARCTANGENT IN RA| 00000130: 44 49 41 4E 53 0D 11 C1 D4 CE 28 3C 4E 55 4D 45 |DIANS.....(<NUME| 00000140: 52 49 43 20 45 58 50 52 45 53 53 49 4F 4E 3E 29 |RIC EXPRESSION>)| 00000150: 0D 11 0D 11 C1 D5 D4 CF 20 2D 2D 20 41 55 54 4F |........ -- AUTO| 00000160: 4D 41 54 49 43 20 4C 49 4E 45 20 4E 55 4D 42 45 |MATIC LINE NUMBE| 00000170: 52 49 4E 47 0D 11 C1 D5 D4 CF 20 DB 3C 53 54 41 |RING...... .<STA| 00000180: 52 54 20 4C 49 4E 45 3E DD DB 2C 3C 49 4E 43 52 |RT LINE>..,<INCR| 00000190: 45 4D 45 4E 54 3E DD 0D 11 0D 11 C2 C1 D3 C9 C3 |EMENT>..........| 000001A0: 20 2D 2D 20 42 41 43 4B 20 49 4E 54 4F 20 C2 C1 | -- BACK INTO ..| 000001B0: D3 C9 C3 20 4D 4F 44 45 0D 11 C2 C1 D3 C9 C3 0D |... MODE........| 000001C0: 11 0D 11 C3 C1 D3 C5 20 2D 2D 20 4D 55 4C 54 49 |....... -- MULTI| 000001D0: 50 4C 45 20 43 48 4F 49 43 45 20 44 45 43 49 53 |PLE CHOICE DECIS| 000001E0: 49 4F 4E 53 0D 11 C3 C1 D3 C5 20 3C 43 4F 4E 54 |IONS...... <CONT| 000001F0: 52 4F 4C 20 45 58 50 52 45 53 53 49 4F 4E 3E 20 |ROL EXPRESSION> | 00000200: DB CF C6 DD 0D 11 0D 11 C3 C1 D4 20 2D 2D 20 47 |........... -- G| 00000210: 49 56 45 53 20 44 49 53 4B 20 44 49 52 45 43 54 |IVES DISK DIRECT| 00000220: 4F 52 59 0D 11 C3 C1 D4 20 DB 3C 44 52 49 56 45 |ORY..... .<DRIVE| 00000230: 20 4E 55 4D 42 45 52 3E DD 0D 11 0D 11 C3 C8 C1 | NUMBER>........| 00000240: C9 CE 20 2D 2D 20 4C 4F 41 44 20 26 20 52 55 4E |.. -- LOAD & RUN| 00000250: 20 50 52 4F 47 52 41 4D 20 4F 4E 20 44 49 53 4B | PROGRAM ON DISK| 00000260: 0D 11 C3 C8 C1 C9 CE 20 3C 46 49 4C 45 4E 41 4D |....... <FILENAM| 00000270: 45 3E 0D 11 0D 11 C3 C8 D2 24 20 2D 2D 20 47 49 |E>.......$ -- GI| 00000280: 56 45 53 20 54 48 41 54 20 4E 55 4D 42 45 52 53 |VES THAT NUMBERS| 00000290: 20 43 48 41 52 41 43 54 45 52 0D 11 C3 C8 D2 24 | CHARACTER.....$| 000002A0: 28 3C 4E 55 4D 45 52 49 43 20 45 58 50 52 45 53 |(<NUMERIC EXPRES| 000002B0: 53 49 4F 4E 3E 29 0D 11 0D 11 C3 CC CF D3 C5 20 |SION>)......... | 000002C0: 2D 2D 20 43 4C 4F 53 45 53 20 46 49 4C 45 53 0D |-- CLOSES FILES.| 000002D0: 11 C3 CC CF D3 C5 20 DB DB C6 C9 CC C5 DD 20 3C |...... ....... <| 000002E0: 46 49 4C 45 4E 55 4D 3E DD 0D 11 0D 11 C3 CC CF |FILENUM>........| 000002F0: D3 C5 C4 20 2D 2D 20 41 4C 4C 20 50 52 4F 43 2F |... -- ALL PROC/| 00000300: 46 55 4E 43 20 56 41 52 49 41 42 4C 45 53 20 4C |FUNC VARIABLES L| 00000310: 4F 43 41 4C 0D 11 D0 D2 CF C3 20 3C 50 52 4F 43 |OCAL...... <PROC| 00000320: 4E 41 4D 45 3E DB 28 50 41 52 41 4D 53 29 DD 20 |NAME>.(PARAMS). | 00000330: DB C3 CC CF D3 C5 C4 DD 0D 11 C6 D5 CE C3 20 3C |.............. <| 00000340: 46 55 4E 43 4E 41 4D 45 3E DB 28 50 41 52 41 4D |FUNCNAME>.(PARAM| 00000350: 53 29 DD 20 DB C3 CC CF D3 C5 C4 DD 0D 11 0D 11 |S). ............| 00000360: C3 CF CE 20 2D 2D 20 43 4F 4E 54 49 4E 55 45 20 |... -- CONTINUE | 00000370: 50 52 4F 47 52 41 4D 20 45 58 45 43 55 54 49 4F |PROGRAM EXECUTIO| 00000380: 4E 0D 11 C3 CF CE 0D 11 0D 11 C3 CF D3 20 2D 2D |N............ --| 00000390: 20 43 4F 53 49 4E 45 20 49 4E 20 52 41 44 49 41 | COSINE IN RADIA| 000003A0: 4E 53 0D 11 C3 CF D3 28 3C 4E 55 4D 45 52 49 43 |NS.....(<NUMERIC| 000003B0: 20 45 58 50 52 45 53 53 49 4F 4E 3E 29 0D 11 0D | EXPRESSION>)...| 000003C0: 11 C4 C1 D4 C1 20 2D 2D 20 50 52 4F 56 49 44 45 |..... -- PROVIDE| 000003D0: 53 20 44 41 54 41 20 46 4F 52 20 41 20 D2 C5 C1 |S DATA FOR A ...| 000003E0: C4 0D 11 C4 C1 D4 C1 20 3C 56 41 4C 55 45 3E DB |....... <VALUE>.| 000003F0: 2C 3C 56 41 4C 55 45 3E DD DB 2C 2E 2E 2E DD 0D |,<VALUE>..,.....| 00000400: 11 0D 11 C4 C5 CC 20 2D 2D 20 44 45 4C 45 54 45 |...... -- DELETE| 00000410: 53 20 4C 49 4E 45 53 0D 11 C4 C5 CC 20 3C 52 41 |S LINES..... <RA| 00000420: 4E 47 45 3E 0D 11 0D 11 C4 C5 CC C5 D4 C5 20 2D |NGE>.......... -| 00000430: 2D 20 44 45 4C 45 54 45 53 20 41 20 46 49 4C 45 |- DELETES A FILE| 00000440: 20 46 52 4F 4D 20 44 49 53 4B 0D 11 C4 C5 CC C5 | FROM DISK......| 00000450: D4 C5 20 3C 46 49 4C 45 4E 41 4D 45 3E 0D 11 0D |.. <FILENAME>...| 00000460: 11 C4 C9 CD 20 2D 2D 20 41 4C 4C 4F 43 41 54 45 |.... -- ALLOCATE| 00000470: 53 20 53 54 52 49 4E 47 20 26 20 41 52 52 41 59 |S STRING & ARRAY| 00000480: 20 53 50 41 43 45 0D 11 C4 C9 CD 20 3C 53 54 52 | SPACE..... <STR| 00000490: 49 4E 47 20 56 41 52 3E 20 CF C6 20 3C 4D 41 58 |ING VAR> .. <MAX| 000004A0: 20 43 48 41 52 3E 0D 11 C4 C9 CD 20 3C 53 54 52 | CHAR>..... <STR| 000004B0: 20 41 52 52 41 59 3E 28 3C 49 4E 44 45 58 3E 29 | ARRAY>(<INDEX>)| 000004C0: 20 CF C6 20 3C 4D 41 58 20 43 48 41 52 3E 0D 11 | .. <MAX CHAR>..| 000004D0: C4 C9 CD 20 3C 41 52 52 41 59 20 4E 41 4D 45 3E |... <ARRAY NAME>| 000004E0: 28 3C 41 52 52 41 59 20 49 4E 44 45 58 3E 29 0D |(<ARRAY INDEX>).| 000004F0: 11 0D 11 C4 C9 D6 20 2D 2D 20 44 49 56 49 53 49 |...... -- DIVISI| 00000500: 4F 4E 20 57 49 54 48 20 49 4E 54 45 47 45 52 20 |ON WITH INTEGER | 00000510: 41 4E 53 57 45 52 0D 11 3C 44 49 56 49 44 45 4E |ANSWER..<DIVIDEN| 00000520: 44 3E 20 C4 C9 D6 20 3C 44 49 56 49 53 4F 52 3E |D> ... <DIVISOR>| 00000530: 0D 11 0D 11 C4 CF 20 2D 2D 20 44 4F 20 54 48 45 |...... -- DO THE| 00000540: 20 46 4F 4C 4C 4F 57 49 4E 47 20 53 54 41 54 45 | FOLLOWING STATE| 00000550: 4D 45 4E 54 53 0D 11 C4 CF 20 3C 53 54 41 54 45 |MENTS.... <STATE| 00000560: 4D 45 4E 54 53 3E 0D 11 0D 11 C5 C4 C9 D4 20 2D |MENTS>........ -| 00000570: 2D 20 4C 49 53 54 20 4C 49 4E 45 53 20 57 49 54 |- LIST LINES WIT| 00000580: 48 4F 55 54 20 49 4E 44 45 4E 54 41 54 49 4F 4E |HOUT INDENTATION| 00000590: 53 0D 11 C5 C4 C9 D4 20 DB 3C 52 41 4E 47 45 3E |S...... .<RANGE>| 000005A0: DD 0D 11 0D 11 C5 CC C9 C6 20 2D 2D 20 53 48 4F |......... -- SHO| 000005B0: 52 54 20 46 4F 52 20 C5 CC D3 C5 20 C9 C6 20 43 |RT FOR .... .. C| 000005C0: 4F 4E 44 49 54 49 4F 4E 0D 11 C5 CC C9 C6 20 3C |ONDITION...... <| 000005D0: 45 58 50 52 45 53 53 49 4F 4E 3E 20 DB D4 C8 C5 |EXPRESSION> ....| 000005E0: CE DD 0D 11 0D 11 C5 CC D3 C5 20 2D 2D 20 C9 C6 |.......... -- ..| 000005F0: 20 53 54 52 55 43 20 41 4C 54 45 52 4E 41 54 49 | STRUC ALTERNATI| 00000600: 56 45 20 53 54 41 54 45 4D 45 4E 54 53 0D 11 C5 |VE STATEMENTS...| 00000610: CC D3 C5 0D 11 0D 11 C5 CE C4 20 2D 2D 20 48 41 |.......... -- HA| 00000620: 4C 54 20 50 52 4F 47 52 41 4D 20 45 58 45 43 55 |LT PROGRAM EXECU| 00000630: 54 49 4F 4E 0D 11 C5 CE C4 0D 11 0D 11 C5 CE C4 |TION............| 00000640: C3 C1 D3 C5 20 2D 2D 20 45 4E 44 20 4F 46 20 C3 |.... -- END OF .| 00000650: C1 D3 C5 20 53 54 52 55 43 54 55 52 45 0D 11 C5 |... STRUCTURE...| 00000660: CE C4 C3 C1 D3 C5 0D 11 0D 11 C5 CE C4 C6 CF D2 |................| 00000670: 20 2D 2D 20 45 4E 44 20 4F 46 20 C6 CF D2 20 53 | -- END OF ... S| 00000680: 54 52 55 43 54 55 52 45 0D 11 C5 CE C4 C6 CF D2 |TRUCTURE........| 00000690: 20 DB 3C 43 4F 4E 54 52 4F 4C 20 56 41 52 49 41 | .<CONTROL VARIA| 000006A0: 42 4C 45 3E DD 0D 11 0D 11 C5 CE C4 C6 D5 CE C3 |BLE>............| 000006B0: 20 2D 2D 20 45 4E 44 20 4F 46 20 46 55 4E 43 54 | -- END OF FUNCT| 000006C0: 49 4F 4E 0D 11 C5 CE C4 C6 D5 CE C3 20 DB 3C 46 |ION......... .<F| 000006D0: 55 4E 43 54 49 4F 4E 20 4E 41 4D 45 3E DD 0D 11 |UNCTION NAME>...| 000006E0: 0D 11 C5 CE C4 C9 C6 20 2D 2D 20 45 4E 44 20 4F |....... -- END O| 000006F0: 46 20 C9 C6 20 53 54 52 55 43 54 55 52 45 0D 11 |F .. STRUCTURE..| 00000700: C5 CE C4 C9 C6 0D 11 0D 11 C5 CE C4 D0 D2 CF C3 |................| 00000710: 20 2D 2D 20 45 4E 44 20 4F 46 20 50 52 4F 43 45 | -- END OF PROCE| 00000720: 44 55 52 45 0D 11 C5 CE C4 D0 D2 CF C3 20 DB 3C |DURE......... .<| 00000730: 50 52 4F 43 45 44 55 52 45 20 4E 41 4D 45 3E DD |PROCEDURE NAME>.| 00000740: 0D 11 0D 11 C5 CE C4 D7 C8 C9 CC C5 20 2D 2D 20 |............ -- | 00000750: 45 4E 44 20 4F 46 20 D7 C8 C9 CC C5 20 53 54 52 |END OF ..... STR| 00000760: 55 43 54 55 52 45 0D 11 C5 CE C4 D7 C8 C9 CC C5 |UCTURE..........| 00000770: 0D 11 0D 11 C5 CE D4 C5 D2 20 2D 2D 4D 45 52 47 |......... --MERG| 00000780: 45 20 50 52 4F 47 52 41 4D 20 53 45 47 4D 45 4E |E PROGRAM SEGMEN| 00000790: 54 20 46 52 4F 4D 20 44 49 53 4B 0D 11 C5 CE D4 |T FROM DISK.....| 000007A0: C5 D2 20 3C 46 49 4C 45 4E 41 4D 45 3E 0D 11 0D |.. <FILENAME>...| 000007B0: 11 C5 CF C4 20 2D 2D 20 C5 4E 44 20 CF 46 20 C4 |.... -- .ND .F .| 000007C0: 41 54 41 20 46 4C 41 47 0D 11 C5 CF C4 0D 11 0D |ATA FLAG........| 000007D0: 11 C5 CF C6 20 2D 2D 20 C5 4E 44 20 CF 46 20 C6 |.... -- .ND .F .| 000007E0: 49 4C 45 20 46 4C 41 47 0D 11 C5 CF C6 28 3C 46 |ILE FLAG.....(<F| 000007F0: 49 4C 45 4E 55 4D 3E 29 0D 11 0D 11 C5 D3 C3 20 |ILENUM>)....... | 00000800: 2D 2D 20 53 54 4F 50 20 4B 45 59 20 50 52 45 53 |-- STOP KEY PRES| 00000810: 53 45 44 20 46 4C 41 47 0D 11 C5 D3 C3 0D 11 D4 |SED FLAG........| 00000820: D2 C1 D0 20 C5 D3 C3 3C 54 59 50 45 3E 0D 11 0D |... ...<TYPE>...| 00000830: 11 C5 D8 C5 C3 20 2D 2D 20 45 58 45 43 55 54 45 |..... -- EXECUTE| 00000840: 20 41 20 50 52 4F 43 45 44 55 52 45 0D 11 DB C5 | A PROCEDURE....| 00000850: D8 C5 C3 DD 20 3C 4E 41 4D 45 3E DB 28 3C 41 43 |.... <NAME>.(<AC| 00000860: 54 55 41 4C 20 50 41 52 41 4D 20 4C 49 53 54 3E |TUAL PARAM LIST>| 00000870: 29 DD 0D 11 0D 11 C5 D8 D0 20 2D 2D 20 4E 41 54 |)........ -- NAT| 00000880: 55 52 41 4C 20 4C 4F 47 20 45 20 54 4F 20 4E 0D |URAL LOG E TO N.| 00000890: 11 C5 D8 D0 28 3C 4E 55 4D 45 52 49 43 20 45 58 |....(<NUMERIC EX| 000008A0: 50 52 45 53 53 49 4F 4E 3E 29 0D 11 0D 11 C6 C1 |PRESSION>)......| 000008B0: CC D3 C5 20 2D 2D 20 50 52 45 44 45 46 49 4E 45 |... -- PREDEFINE| 000008C0: 44 20 56 41 4C 55 45 20 3D 20 30 0D 11 C6 C1 CC |D VALUE = 0.....| 000008D0: D3 C5 0D 11 0D 11 C6 C9 CC C5 20 2D 2D 20 53 50 |.......... -- SP| 000008E0: 45 43 49 46 49 45 53 20 54 48 41 54 20 41 20 46 |ECIFIES THAT A F| 000008F0: 49 4C 45 20 49 53 20 55 53 45 44 0D 11 C9 CE D0 |ILE IS USED.....| 00000900: D5 D4 20 C6 C9 CC C5 20 3C 46 49 4C 45 23 3E DB |.. .... <FILE#>.| 00000910: 2C 3C 52 45 43 23 3E DD 3A 20 3C 56 41 52 20 4C |,<REC#>.: <VAR L| 00000920: 49 53 54 3E 0D 11 D0 D2 C9 CE D4 20 C6 C9 CC C5 |IST>....... ....| 00000930: 20 3C 46 49 4C 45 23 3E DB 2C 3C 52 45 43 23 3E | <FILE#>.,<REC#>| 00000940: DD 3A 20 3C 56 41 4C 20 4C 49 53 54 3E 0D 11 D2 |.: <VAL LIST>...| 00000950: C5 C1 C4 20 C6 C9 CC C5 20 3C 46 49 4C 45 23 3E |... .... <FILE#>| 00000960: DB 2C 3C 52 45 43 23 3E DD 3A 20 3C 56 41 52 20 |.,<REC#>.: <VAR | 00000970: 4C 49 53 54 3E 0D 11 D7 D2 C9 D4 C5 20 C6 C9 CC |LIST>....... ...| 00000980: C5 20 3C 46 49 4C 45 23 3E DB 2C 3C 52 45 43 23 |. <FILE#>.,<REC#| 00000990: 3E DD 3A 20 3C 56 41 52 20 4C 49 53 54 3E 0D 11 |>.: <VAR LIST>..| 000009A0: CF D0 C5 CE 20 DB C6 C9 CC C5 DD 20 3C 46 49 4C |.... ...... <FIL| 000009B0: 45 23 3E 2C 3C 46 49 4C 45 4E 41 4D 45 3E DB 2C |E#>,<FILENAME>.,| 000009C0: 3C 54 59 50 45 3E DD 0D 11 C3 CC CF D3 C5 20 DB |<TYPE>........ .| 000009D0: DB C6 C9 CC C5 DD 20 3C 46 49 4C 45 23 3E DD 0D |...... <FILE#>..| 000009E0: 11 0D 11 C6 CF D2 20 2D 2D 20 53 54 41 52 54 20 |...... -- START | 000009F0: 4F 46 20 C6 CF D2 20 4C 4F 4F 50 20 53 54 52 55 |OF ... LOOP STRU| 00000A00: 43 54 55 52 45 0D 11 C6 CF D2 20 3C 56 41 52 3E |CTURE..... <VAR>| 00000A10: 3D 3C 53 54 3E 20 D4 CF 20 3C 45 3E 20 DB D3 D4 |=<ST> .. <E> ...| 00000A20: C5 D0 20 3C 53 54 50 3E DD 20 DB C4 CF DD 0D 11 |.. <STP>. ......| 00000A30: 0D 11 C6 D5 CE C3 20 2D 2D 20 53 54 41 52 54 20 |...... -- START | 00000A40: 4F 46 20 41 20 4D 55 4C 54 49 4C 49 4E 45 20 46 |OF A MULTILINE F| 00000A50: 55 4E 43 54 49 4F 4E 0D 11 C6 D5 CE C3 20 3C 4E |UNCTION...... <N| 00000A60: 41 4D 45 3E DB 28 3C 50 41 52 4D 3E 29 DD 20 DB |AME>.(<PARM>). .| 00000A70: C5 D8 D4 C5 D2 CE C1 CC 20 3C 4E 41 4D 45 3E DD |........ <NAME>.| 00000A80: 0D 11 C6 D5 CE C3 20 3C 4E 41 4D 45 3E DB 28 3C |...... <NAME>.(<| 00000A90: 50 41 52 4D 3E 29 DD 20 DB C3 CC CF D3 C5 C4 DD |PARM>). ........| 00000AA0: 0D 11 0D 11 C7 CF D4 CF 20 2D 2D 20 47 4F 20 54 |........ -- GO T| 00000AB0: 4F 20 4C 49 4E 45 20 57 49 54 48 20 54 48 49 53 |O LINE WITH THIS| 00000AC0: 20 4E 41 4D 45 0D 11 C7 CF D4 CF 20 3C 4C 41 42 | NAME...... <LAB| 00000AD0: 45 4C 20 4E 41 4D 45 3E 0D 11 0D 11 C9 C6 20 2D |EL NAME>...... -| 00000AE0: 2D 20 53 54 41 52 54 20 4F 46 20 43 4F 4E 44 49 |- START OF CONDI| 00000AF0: 54 49 4F 4E 41 4C 20 C9 C6 20 53 54 52 55 43 54 |TIONAL .. STRUCT| 00000B00: 55 52 45 0D 11 C9 C6 20 3C 43 4F 4E 44 49 54 49 |URE.... <CONDITI| 00000B10: 4F 4E 3E 20 DB D4 C8 C5 CE DD 0D 11 C9 C6 20 3C |ON> .......... <| 00000B20: 43 4F 4E 44 49 54 49 4F 4E 3E 20 D4 C8 C5 CE 20 |CONDITION> .... | 00000B30: 3C 53 54 41 54 45 4D 45 4E 54 3E 0D 11 0D 11 C9 |<STATEMENT>.....| 00000B40: CE 20 2D 2D 4C 4F 43 41 54 45 20 53 54 52 49 4E |. --LOCATE STRIN| 00000B50: 47 31 20 50 4F 53 49 54 49 4F 4E 20 49 4E 20 53 |G1 POSITION IN S| 00000B60: 54 52 49 4E 47 32 0D 11 3C 53 54 52 49 4E 47 31 |TRING2..<STRING1| 00000B70: 3E 20 C9 CE 20 3C 53 54 52 49 4E 47 32 3E 0D 11 |> .. <STRING2>..| 00000B80: 0D 11 C9 CE D0 D5 D4 20 2D 2D 20 49 4E 50 55 54 |....... -- INPUT| 00000B90: 20 46 52 4F 4D 20 4B 45 59 42 4F 41 52 44 20 4F | FROM KEYBOARD O| 00000BA0: 52 20 46 49 4C 45 0D 11 C9 CE D0 D5 D4 20 DB 3C |R FILE....... .<| 00000BB0: 50 52 4F 4D 50 54 3E 3A DD 20 3C 56 41 52 20 4C |PROMPT>:. <VAR L| 00000BC0: 49 53 54 3E 0D 11 C9 CE D0 D5 D4 20 C6 C9 CC C5 |IST>....... ....| 00000BD0: 20 3C 46 49 4C 45 23 3E DB 2C 3C 52 45 43 23 3E | <FILE#>.,<REC#>| 00000BE0: DD 3A 3C 56 41 52 20 4C 49 53 54 3E 0D 11 0D 11 |.:<VAR LIST>....| 00000BF0: C9 CE D4 20 2D 4E 45 41 52 45 53 54 20 49 4E 54 |... -NEAREST INT| 00000C00: 45 47 45 52 20 4C 45 53 53 20 54 48 41 4E 20 4F |EGER LESS THAN O| 00000C10: 52 20 45 51 55 41 4C 0D 11 C9 CE D4 28 3C 4E 55 |R EQUAL.....(<NU| 00000C20: 4D 45 52 49 43 20 45 58 50 52 45 53 53 49 4F 4E |MERIC EXPRESSION| 00000C30: 3E 29 0D 11 0D 11 CB C5 D9 24 20 2D 2D 20 53 43 |>).......$ -- SC| 00000C40: 41 4E 53 20 4B 45 59 42 4F 41 52 44 20 28 4E 4F |ANS KEYBOARD (NO| 00000C50: 54 20 D0 C5 D4 20 30 2E 31 34 29 0D 11 CB C5 D9 |T ... 0.14).....| 00000C60: 24 0D 11 0D 11 CC C1 C2 C5 CC 20 2D 2D 20 41 53 |$......... -- AS| 00000C70: 53 49 47 4E 53 20 4C 41 42 45 4C 20 4E 41 4D 45 |SIGNS LABEL NAME| 00000C80: 20 54 4F 20 4C 49 4E 45 0D 11 3C 4C 41 42 45 4C | TO LINE..<LABEL| 00000C90: 20 4E 41 4D 45 3E 3A 0D 11 0D 11 CC C5 CE 20 2D | NAME>:....... -| 00000CA0: 2D 20 47 49 56 45 53 20 54 48 45 20 4C 45 4E 47 |- GIVES THE LENG| 00000CB0: 54 48 20 4F 46 20 53 54 52 49 4E 47 0D 11 CC C5 |TH OF STRING....| 00000CC0: CE 28 3C 53 54 52 49 4E 47 20 45 58 50 52 45 53 |.(<STRING EXPRES| 00000CD0: 53 49 4F 4E 3E 29 0D 11 0D 11 CC C5 D4 20 2D 2D |SION>)....... --| 00000CE0: 20 41 53 53 49 47 4E 20 56 41 4C 55 45 20 54 4F | ASSIGN VALUE TO| 00000CF0: 20 56 41 52 49 41 42 4C 45 0D 11 3A 3D 0D 11 0D | VARIABLE..:=...| 00000D00: 11 CC C9 D3 D4 20 2D 2D 20 4C 49 53 54 20 50 52 |..... -- LIST PR| 00000D10: 4F 47 52 41 4D 0D 11 CC C9 D3 D4 20 DB 3C 52 41 |OGRAM...... .<RA| 00000D20: 4E 47 45 3E DD 20 DB 3C 46 49 4C 45 4E 41 4D 45 |NGE>. .<FILENAME| 00000D30: 3E DD 0D 11 0D 11 CC CF C1 C4 20 2D 2D 20 4C 4F |>......... -- LO| 00000D40: 41 44 20 41 20 50 52 4F 47 52 41 4D 20 46 52 4F |AD A PROGRAM FRO| 00000D50: 4D 20 44 49 53 4B 0D 11 CC CF C1 C4 20 3C 46 49 |M DISK...... <FI| 00000D60: 4C 45 4E 41 4D 45 3E 0D 11 0D 11 CC CF C7 20 2D |LENAME>....... -| 00000D70: 2D 20 4E 41 54 55 52 41 4C 20 4C 4F 47 41 52 49 |- NATURAL LOGARI| 00000D80: 54 48 4D 20 4F 46 20 4E 0D 11 CC CF C7 28 3C 4E |THM OF N.....(<N| 00000D90: 55 4D 45 52 49 43 20 45 58 50 52 45 53 53 49 4F |UMERIC EXPRESSIO| 00000DA0: 4E 3E 29 0D 11 0D 11 CD CF C4 20 2D 2D 20 44 49 |N>)....... -- DI| 00000DB0: 56 49 53 49 4F 4E 20 52 45 4D 41 49 4E 44 45 52 |VISION REMAINDER| 00000DC0: 20 28 4D 4F 44 55 4C 4F 29 0D 11 3C 44 49 56 49 | (MODULO)..<DIVI| 00000DD0: 44 45 4E 44 3E 20 CD CF C4 20 3C 44 49 56 49 53 |DEND> ... <DIVIS| 00000DE0: 4F 52 3E 0D 11 0D 11 CE C5 D7 20 2D 2D 20 43 4C |OR>....... -- CL| 00000DF0: 45 41 52 53 20 50 52 4F 47 52 41 4D 20 46 52 4F |EARS PROGRAM FRO| 00000E00: 4D 20 4D 45 4D 4F 52 59 0D 11 CE C5 D7 0D 11 0D |M MEMORY........| 00000E10: 11 CE CF D4 20 2D 2D 20 4C 4F 47 49 43 41 4C 20 |.... -- LOGICAL | 00000E20: CE CF D4 0D 11 CE CF D4 20 3C 43 4F 4E 44 49 54 |........ <CONDIT| 00000E30: 49 4F 4E 3E 0D 11 0D 11 CE D5 CC CC 20 2D 2D 20 |ION>........ -- | 00000E40: 44 4F 45 53 20 4E 4F 54 48 49 4E 47 20 28 4E 4F |DOES NOTHING (NO| 00000E50: 20 4F 50 29 0D 11 CE D5 CC CC 0D 11 0D 11 CF C6 | OP)............| 00000E60: 20 2D 2D 20 50 41 52 54 20 4F 46 20 C4 C9 CD 20 | -- PART OF ... | 00000E70: 4F 52 20 C3 C1 D3 C5 20 53 54 52 55 43 54 55 52 |OR .... STRUCTUR| 00000E80: 45 0D 11 C3 C1 D3 C5 20 3C 45 58 50 52 45 53 53 |E...... <EXPRESS| 00000E90: 49 4F 4E 3E 20 DB CF C6 DD 0D 11 C4 C9 CD 20 3C |ION> ......... <| 00000EA0: 53 54 52 49 4E 47 56 41 52 3E 20 CF C6 20 3C 4D |STRINGVAR> .. <M| 00000EB0: 41 58 20 43 48 41 52 3E 0D 11 C4 C9 CD 20 3C 53 |AX CHAR>..... <S| 00000EC0: 54 52 49 4E 47 41 52 52 41 59 3E 28 49 4E 44 45 |TRINGARRAY>(INDE| 00000ED0: 58 29 20 CF C6 20 3C 4D 41 58 20 43 48 41 52 3E |X) .. <MAX CHAR>| 00000EE0: 0D 11 0D 11 CF D0 C5 CE 20 2D 2D 20 4F 50 45 4E |........ -- OPEN| 00000EF0: 20 41 20 46 49 4C 45 0D 11 CF D0 C5 CE 20 DB C6 | A FILE...... ..| 00000F00: C9 CC C5 DD 20 3C 46 49 4C 45 23 3E 2C 3C 46 49 |.... <FILE#>,<FI| 00000F10: 4C 45 4E 41 4D 45 3E DB 2C 3C 54 59 50 45 3E DD |LENAME>.,<TYPE>.| 00000F20: 0D 11 0D 11 CF D2 20 2D 2D 20 4C 4F 47 49 43 41 |...... -- LOGICA| 00000F30: 4C 20 CF D2 0D 11 3C 43 4F 4E 44 49 54 49 4F 4E |L ....<CONDITION| 00000F40: 3E 20 CF D2 20 3C 43 4F 4E 44 49 54 49 4F 4E 3E |> .. <CONDITION>| 00000F50: 0D 11 0D 11 CF D2 C4 20 2D 2D 20 49 4E 54 45 47 |....... -- INTEG| 00000F60: 45 52 20 52 45 50 52 45 53 45 4E 54 49 4E 47 20 |ER REPRESENTING | 00000F70: 54 48 45 20 43 48 41 52 0D 11 CF D2 C4 28 3C 53 |THE CHAR.....(<S| 00000F80: 54 52 49 4E 47 20 45 58 50 52 45 53 53 49 4F 4E |TRING EXPRESSION| 00000F90: 3E 29 0D 11 0D 11 CF D4 C8 C5 D2 D7 C9 D3 C5 20 |>)............. | 00000FA0: 2D 2D 20 44 45 46 41 55 4C 54 20 46 4F 52 20 C3 |-- DEFAULT FOR .| 00000FB0: C1 D3 C5 0D 11 CF D4 C8 C5 D2 D7 C9 D3 C5 0D 11 |................| 00000FC0: 0D 11 CF D5 D4 D0 D5 D4 20 2D 2D 20 53 45 4C 45 |........ -- SELE| 00000FD0: 43 54 20 4F 55 54 50 55 54 20 4C 4F 43 41 54 49 |CT OUTPUT LOCATI| 00000FE0: 4F 4E 0D 11 D3 C5 CC C5 C3 D4 20 DB CF D5 D4 D0 |ON........ .....| 00000FF0: D5 D4 DD 20 3C 54 59 50 45 3E 0D 11 0D 11 D0 C1 |... <TYPE>......| 00001000: D3 D3 20 2D 50 41 53 53 20 53 54 52 49 4E 47 20 |.. -PASS STRING | 00001010: 54 4F 20 44 49 53 4B 20 43 4F 4D 4D 41 4E 44 20 |TO DISK COMMAND | 00001020: 43 48 41 4E 4C 0D 11 D0 C1 D3 D3 20 3C 44 49 53 |CHANL...... <DIS| 00001030: 4B 20 43 4F 4D 4D 41 4E 44 3E 0D 11 0D 11 D0 C5 |K COMMAND>......| 00001040: C5 CB 20 2D 2D 20 4C 4F 4F 4B 20 41 54 20 4D 45 |.. -- LOOK AT ME| 00001050: 4D 4F 52 59 0D 11 D0 C5 C5 CB 28 3C 4D 45 4D 4F |MORY......(<MEMO| 00001060: 52 59 20 41 44 44 52 45 53 53 3E 29 0D 11 0D 11 |RY ADDRESS>)....| 00001070: D0 CF CB C5 20 2D 2D 20 43 48 41 4E 47 45 20 4D |.... -- CHANGE M| 00001080: 45 4D 4F 52 59 20 4C 4F 43 41 54 49 4F 4E 0D 11 |EMORY LOCATION..| 00001090: D0 CF CB C5 20 3C 4D 45 4D 4F 52 59 20 41 44 44 |.... <MEMORY ADD| 000010A0: 52 45 53 53 3E 2C 3C 43 4F 4E 54 45 4E 54 53 3E |RESS>,<CONTENTS>| 000010B0: 0D 11 0D 11 D0 D2 C9 CE D4 20 2D 50 52 49 4E 54 |......... -PRINT| 000010C0: 53 20 49 54 45 4D 53 20 54 4F 20 53 43 52 4E 2F |S ITEMS TO SCRN/| 000010D0: 50 52 49 4E 54 52 2F 46 49 4C 45 0D 11 D0 D2 C9 |PRINTR/FILE.....| 000010E0: CE D4 20 DB C6 C9 CC C5 20 3C 46 49 4C 45 4E 55 |.. ..... <FILENU| 000010F0: 4D 3E 3A DD 20 DB 3C 49 54 45 4D 53 3E DD 0D 11 |M>:. .<ITEMS>...| 00001100: D0 D2 C9 CE D4 20 DB C6 C9 CC C5 20 3C 46 49 4C |..... ..... <FIL| 00001110: 23 3E 3A DD 20 D5 D3 C9 CE C7 20 3C 46 4D 54 3E |#>:. ..... <FMT>| 00001120: 3A 3C 56 41 52 53 3E 0D 11 28 D2 C1 CE C4 CF CD |:<VARS>..(......| 00001130: 20 46 49 4C 45 20 55 53 45 3A DB C6 C9 CC C5 20 | FILE USE:..... | 00001140: 3C 46 49 4C 23 3E 2C 3C 52 45 43 23 3E 3A DD 29 |<FIL#>,<REC#>:.)| 00001150: 0D 11 0D 11 D0 D2 CF C3 20 2D 2D 20 53 54 41 52 |........ -- STAR| 00001160: 54 20 4F 46 20 4D 55 4C 54 49 4C 49 4E 45 20 50 |T OF MULTILINE P| 00001170: 52 4F 43 45 44 55 52 45 0D 11 D0 D2 CF C3 20 3C |ROCEDURE...... <| 00001180: 4E 41 4D 3E DB 28 3C 50 41 52 4D 3E 29 DD 20 DB |NAM>.(<PARM>). .| 00001190: C5 D8 D4 C5 D2 CE C1 CC 20 3C 4E 41 4D 45 3E DD |........ <NAME>.| 000011A0: 0D 11 D0 D2 CF C3 20 3C 4E 41 4D 3E DB 28 3C 50 |...... <NAM>.(<P| 000011B0: 41 52 4D 3E 29 DD 20 DB C3 CC CF D3 C5 C4 DD 0D |ARM>). .........| 000011C0: 11 0D 11 D2 C1 CE C4 CF CD 20 2D 2D 20 52 41 4E |......... -- RAN| 000011D0: 44 4F 4D 20 41 43 43 45 53 53 20 44 49 53 4B 20 |DOM ACCESS DISK | 000011E0: 46 49 4C 45 0D 11 CF D0 C5 CE 20 C6 C9 CC C5 20 |FILE...... .... | 000011F0: 3C 46 49 4C 23 3E 2C 3C 4E 41 4D 45 3E 2C D2 C1 |<FIL#>,<NAME>,..| 00001200: CE C4 CF CD 20 3C 52 45 43 4C 4E 3E 0D 11 0D 11 |.... <RECLN>....| 00001210: D2 C5 C1 C4 20 2D 52 45 41 44 20 44 41 54 41 20 |.... -READ DATA | 00001220: 46 52 4F 4D 20 C4 C1 D4 C1 20 4C 49 4E 45 20 4F |FROM .... LINE O| 00001230: 52 20 46 49 4C 45 0D 11 D2 C5 C1 C4 20 3C 56 41 |R FILE...... <VA| 00001240: 52 20 4C 49 53 54 3E 0D 11 D2 C5 C1 C4 20 C6 C9 |R LIST>...... ..| 00001250: CC C5 20 3C 46 49 4C 45 23 3E DB 2C 3C 52 45 43 |.. <FILE#>.,<REC| 00001260: 23 3E DD 3A 20 3C 56 41 52 20 4C 49 53 54 3E 0D |#>.: <VAR LIST>.| 00001270: 11 CF D0 C5 CE 20 DB C6 C9 CC C5 DD 20 3C 46 49 |..... ...... <FI| 00001280: 4C 45 4E 55 4D 3E 2C 3C 46 49 4C 45 4E 41 4D 45 |LENUM>,<FILENAME| 00001290: 3E 2C D2 C5 C1 C4 0D 11 0D 11 D2 C5 C6 20 2D 50 |>,........... -P| 000012A0: 41 52 4D 20 56 41 52 20 55 53 45 44 20 49 4E 20 |ARM VAR USED IN | 000012B0: 52 45 46 45 52 45 4E 43 45 20 49 4E 20 50 52 4F |REFERENCE IN PRO| 000012C0: 43 0D 11 D2 C5 C6 20 3C 56 41 52 3E 0D 11 0D 11 |C..... <VAR>....| 000012D0: D2 C5 CE D5 CD 20 2D 2D 20 52 45 4E 55 4D 42 45 |..... -- RENUMBE| 000012E0: 52 20 50 52 4F 47 52 41 4D 0D 11 D2 C5 CE D5 CD |R PROGRAM.......| 000012F0: 20 DB 3C 54 41 52 47 45 54 53 54 41 52 54 3E DD | .<TARGETSTART>.| 00001300: DB 2C 3C 49 4E 43 52 45 4D 45 4E 54 3E DD 0D 11 |.,<INCREMENT>...| 00001310: 0D 11 D2 C5 D0 C5 C1 D4 20 2D 2D 20 53 54 41 52 |........ -- STAR| 00001320: 54 20 4F 46 20 D2 C5 D0 C5 C1 D4 20 53 54 52 55 |T OF ...... STRU| 00001330: 43 54 55 52 45 0D 11 D2 C5 D0 C5 C1 D4 0D 11 0D |CTURE...........| 00001340: 11 D2 C5 D3 D4 CF D2 C5 20 2D 2D 20 52 45 55 53 |........ -- REUS| 00001350: 45 20 C4 C1 D4 C1 20 57 49 54 48 20 D2 C5 C1 C4 |E .... WITH ....| 00001360: 0D 11 D2 C5 D3 D4 CF D2 C5 0D 11 0D 11 D2 CE C4 |................| 00001370: 20 2D 2D 20 52 41 4E 44 4F 4D 20 4E 55 4D 42 45 | -- RANDOM NUMBE| 00001380: 52 0D 11 D2 CE C4 28 3C 4E 55 4D 3E 29 0D 11 D2 |R.....(<NUM>)...| 00001390: CE C4 28 3C 53 54 41 52 54 20 4E 55 4D 3E 3A 3C |..(<START NUM>:<| 000013A0: 45 4E 44 20 4E 55 4D 3E 29 0D 11 0D 11 D2 D5 CE |END NUM>).......| 000013B0: 20 2D 2D 20 52 55 4E 20 50 52 4F 47 52 41 4D 20 | -- RUN PROGRAM | 000013C0: 4E 4F 57 20 49 4E 20 4D 45 4D 4F 52 59 0D 11 D2 |NOW IN MEMORY...| 000013D0: D5 CE 0D 11 0D 11 D3 C1 D6 C5 20 2D 2D 20 52 45 |.......... -- RE| 000013E0: 43 4F 52 44 20 50 52 4F 47 52 41 4D 20 4F 4E 20 |CORD PROGRAM ON | 000013F0: 44 49 53 4B 0D 11 D3 C1 D6 C5 20 3C 46 49 4C 45 |DISK...... <FILE| 00001400: 4E 41 4D 45 3E 0D 11 0D 11 D3 C5 CC C5 C3 D4 20 |NAME>.......... | 00001410: 2D 2D 20 43 48 4F 4F 53 45 20 4F 55 54 50 55 54 |-- CHOOSE OUTPUT| 00001420: 20 4C 4F 43 41 54 49 4F 4E 0D 11 D3 C5 CC C5 C3 | LOCATION.......| 00001430: D4 20 DB CF D5 D4 D0 D5 D4 DD 20 3C 54 59 50 45 |. ........ <TYPE| 00001440: 3E 0D 11 0D 11 D3 C7 CE 20 2D 2D 20 2D 31 20 49 |>....... -- -1 I| 00001450: 46 20 4E 45 47 2C 20 30 20 49 46 20 30 2C 20 31 |F NEG, 0 IF 0, 1| 00001460: 20 49 46 20 50 4F 53 0D 11 D3 C7 CE 28 3C 4E 55 | IF POS.....(<NU| 00001470: 4D 45 52 49 43 20 45 58 50 52 45 53 53 49 4F 4E |MERIC EXPRESSION| 00001480: 3E 29 0D 11 0D 11 D3 C9 CE 20 2D 2D 20 47 49 56 |>)....... -- GIV| 00001490: 45 53 20 53 49 4E 45 20 49 4E 20 52 41 44 49 41 |ES SINE IN RADIA| 000014A0: 4E 53 0D 11 D3 C9 CE 28 3C 4E 55 4D 45 52 49 43 |NS.....(<NUMERIC| 000014B0: 20 45 58 50 52 45 53 53 49 4F 4E 3E 29 0D 11 0D | EXPRESSION>)...| 000014C0: 11 D3 C9 DA C5 20 2D 2D 20 4D 45 4D 4F 52 59 20 |..... -- MEMORY | 000014D0: 55 53 41 47 45 20 28 46 52 45 45 20 4D 45 4D 4F |USAGE (FREE MEMO| 000014E0: 52 59 29 0D 11 D3 C9 DA C5 0D 11 0D 11 D3 D1 D2 |RY).............| 000014F0: 20 2D 2D 20 47 49 56 45 53 20 53 51 55 41 52 45 | -- GIVES SQUARE| 00001500: 20 52 4F 4F 54 0D 11 D3 D1 D2 28 3C 4E 55 4D 45 | ROOT.....(<NUME| 00001510: 52 49 43 20 45 58 50 52 45 53 53 49 4F 4E 3E 29 |RIC EXPRESSION>)| 00001520: 0D 11 0D 11 D3 D4 C1 D4 D5 D3 24 20 2D 2D 20 53 |..........$ -- S| 00001530: 54 41 54 55 53 20 4F 46 20 44 49 53 4B 20 43 48 |TATUS OF DISK CH| 00001540: 41 4E 4E 45 4C 0D 11 D3 D4 C1 D4 D5 D3 24 0D 11 |ANNEL........$..| 00001550: 0D 11 D3 D4 C5 D0 20 2D 49 4E 43 52 45 4D 4E 54 |...... -INCREMNT| 00001560: 20 C6 CF D2 20 4C 4F 4F 50 20 56 41 52 20 54 48 | ... LOOP VAR TH| 00001570: 49 53 20 41 4D 4F 55 4E 54 0D 11 D3 D4 C5 D0 20 |IS AMOUNT...... | 00001580: 3C 4E 55 4D 45 52 49 43 20 45 58 50 52 45 53 53 |<NUMERIC EXPRESS| 00001590: 49 4F 4E 3E 0D 11 0D 11 D3 D4 CF D0 20 2D 2D 20 |ION>........ -- | 000015A0: 48 41 4C 54 20 50 52 4F 47 52 41 4D 20 45 58 45 |HALT PROGRAM EXE| 000015B0: 43 55 54 49 4F 4E 0D 11 D3 D4 CF D0 0D 11 0D 11 |CUTION..........| 000015C0: D3 D9 D3 20 2D 47 49 56 45 20 43 4F 4E 54 52 4F |... -GIVE CONTRO| 000015D0: 4C 20 54 4F 20 41 53 53 45 4D 42 4C 59 20 4C 41 |L TO ASSEMBLY LA| 000015E0: 4E 47 55 41 47 45 0D 11 D3 D9 D3 28 3C 4D 45 4D |NGUAGE.....(<MEM| 000015F0: 4F 52 59 20 41 44 44 52 45 53 53 3E 29 0D 11 0D |ORY ADDRESS>)...| 00001600: 11 D4 C1 C2 20 2D 2D 20 50 52 49 4E 54 20 53 50 |.... -- PRINT SP| 00001610: 41 43 45 53 20 55 50 20 54 4F 20 53 50 45 43 49 |ACES UP TO SPECI| 00001620: 46 49 45 44 20 43 4F 4C 0D 11 D4 C1 C2 28 3C 43 |FIED COL.....(<C| 00001630: 4F 4C 55 4D 4E 20 4E 55 4D 42 45 52 3E 29 0D 11 |OLUMN NUMBER>)..| 00001640: 0D 11 D4 C1 CE 20 2D 2D 20 47 49 56 45 53 20 54 |..... -- GIVES T| 00001650: 41 4E 47 45 4E 54 20 49 4E 20 52 41 44 49 41 4E |ANGENT IN RADIAN| 00001660: 53 0D 11 D4 C1 CE 28 3C 4E 55 4D 45 52 49 43 20 |S.....(<NUMERIC | 00001670: 45 58 50 52 45 53 53 49 4F 4E 3E 29 0D 11 0D 11 |EXPRESSION>)....| 00001680: D4 C8 C5 CE 20 2D 2D 20 50 41 52 54 20 4F 46 20 |.... -- PART OF | 00001690: C9 C6 20 53 54 52 55 43 54 55 52 45 0D 11 D4 C8 |.. STRUCTURE....| 000016A0: C5 CE 0D 11 0D 11 D4 CF 20 2D 49 4E 43 52 45 4D |........ -INCREM| 000016B0: 45 4E 54 20 C6 CF D2 20 56 41 52 49 41 42 4C 45 |ENT ... VARIABLE| 000016C0: 20 53 54 41 52 54 20 D4 CF 20 45 4E 44 0D 11 3C | START .. END..<| 000016D0: 53 54 41 52 54 20 4E 55 4D 3E 20 D4 CF 20 3C 45 |START NUM> .. <E| 000016E0: 4E 44 20 4E 55 4D 3E 0D 11 0D 11 D4 D2 C1 D0 20 |ND NUM>........ | 000016F0: 2D 2D 20 44 49 53 41 42 4C 45 20 53 54 4F 50 20 |-- DISABLE STOP | 00001700: 4B 45 59 0D 11 D4 D2 C1 D0 20 C5 D3 C3 3C 54 59 |KEY...... ...<TY| 00001710: 50 45 3E 0D 11 0D 11 D4 D2 D5 C5 20 2D 2D 20 50 |PE>........ -- P| 00001720: 52 45 44 45 46 49 4E 45 44 20 56 41 4C 55 45 20 |REDEFINED VALUE | 00001730: 4F 46 20 31 0D 11 D4 D2 D5 C5 0D 11 0D 11 D5 CE |OF 1............| 00001740: C9 D4 20 2D 2D 20 53 50 45 43 49 46 59 20 55 4E |.. -- SPECIFY UN| 00001750: 49 54 20 28 44 45 56 49 43 45 29 0D 11 CF D0 C5 |IT (DEVICE).....| 00001760: CE 20 C6 C9 CC C5 20 3C 23 3E 2C 3C 4E 3E 2C D5 |. .... <#>,<N>,.| 00001770: CE C9 D4 0D 11 3C 44 56 3E DB 2C 3C 53 43 3E DD |.....<DV>.,<SC>.| 00001780: DB 2C 3C 54 50 3E DD 0D 11 0D 11 D5 CE D4 C9 CC |.,<TP>..........| 00001790: 20 2D 2D 20 45 4E 44 20 4F 46 20 D2 C5 D0 C5 C1 | -- END OF .....| 000017A0: D4 20 4C 4F 4F 50 0D 11 D5 CE D4 C9 CC 20 3C 45 |. LOOP....... <E| 000017B0: 58 50 52 45 53 53 49 4F 4E 3E 0D 11 0D 11 D5 D3 |XPRESSION>......| 000017C0: C9 CE C7 20 2D 2D 46 4F 52 4D 41 54 54 45 44 20 |... --FORMATTED | 000017D0: 4F 55 54 50 55 54 20 28 4E 4F 54 20 D0 C5 D4 20 |OUTPUT (NOT ... | 000017E0: 30 2E 31 34 29 0D 11 D0 D2 C9 CE D4 20 D5 D3 C9 |0.14)....... ...| 000017F0: CE C7 20 3C 46 4F 52 4D 41 54 3E 3A 20 3C 56 41 |.. <FORMAT>: <VA| 00001800: 52 20 4C 49 53 54 3E 0D 11 0D 11 D7 C8 C5 CE 20 |R LIST>........ | 00001810: 2D 2D 20 43 48 4F 49 43 45 20 49 4E 20 C3 C1 D3 |-- CHOICE IN ...| 00001820: C5 20 53 54 52 55 43 54 55 52 45 0D 11 D7 C8 C5 |. STRUCTURE.....| 00001830: CE 20 3C 4C 49 53 54 20 4F 46 20 56 41 4C 55 45 |. <LIST OF VALUE| 00001840: 53 3E 0D 11 0D 11 D7 C8 C9 CC C5 20 2D 2D 20 53 |S>......... -- S| 00001850: 54 41 52 54 20 4F 46 20 D7 C8 C9 CC C5 20 53 54 |TART OF ..... ST| 00001860: 52 55 43 54 55 52 45 0D 11 D7 C8 C9 CC C5 20 3C |RUCTURE....... <| 00001870: 45 58 50 52 45 53 53 49 4F 4E 3E 20 DB C4 CF DD |EXPRESSION> ....| 00001880: 20 DB 3C 53 54 41 54 45 4D 45 4E 54 3E DD 0D 11 | .<STATEMENT>...| 00001890: 0D 11 D7 D2 C9 D4 C5 20 2D 2D 20 57 52 49 54 45 |....... -- WRITE| 000018A0: 20 54 4F 20 41 20 46 49 4C 45 0D 11 D7 D2 C9 D4 | TO A FILE......| 000018B0: C5 20 C6 C9 CC C5 20 3C 46 49 4C 45 23 3E DB 2C |. .... <FILE#>.,| 000018C0: 3C 52 45 43 23 3E DD 3A 20 3C 56 41 52 20 4C 49 |<REC#>.: <VAR LI| 000018D0: 53 54 3E 0D 11 CF D0 C5 CE 20 DB C6 C9 CC C5 DD |ST>...... ......| 000018E0: 20 3C 46 49 4C 45 4E 55 4D 3E 2C 3C 46 49 4C 45 | <FILENUM>,<FILE| 000018F0: 4E 41 4D 45 3E 2C D7 D2 C9 D4 C5 0D 11 0D 11 0D |NAME>,..........| 00001900: 11 DA CF CE C5 20 2D 2D 20 54 41 42 20 49 4E 43 |..... -- TAB INC| 00001910: 52 45 4D 45 4E 54 0D 11 DA CF CE C5 20 3C 54 41 |REMENT...... <TA| 00001920: 42 20 49 4E 54 45 52 56 41 4C 3E 0D 11 DA CF CE |B INTERVAL>.....| 00001930: C5 0D 11 0D 11 D4 D5 D2 D4 CC C5 20 C7 D2 C1 D0 |........... ....| 00001940: C8 C9 C3 D3 20 C3 C8 C1 D2 D4 20 20 20 20 C3 C2 |.... ..... ..| 00001950: CD 20 C3 CF CD C1 CC 0D 11 2D 2D 2D 2D 2D 2D 2D |. .......-------| 00001960: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001970: 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 11 D4 D5 D2 | ---------.....| 00001980: D4 CC C5 20 C3 CF CE D4 D2 CF CC 3A 0D 11 CD 4F |... .......:...O| 00001990: 56 45 20 46 4F 52 57 41 52 44 20 4C 45 4E 47 54 |VE FORWARD LENGT| 000019A0: 48 20 20 20 20 20 20 C6 CF D2 D7 C1 D2 C4 0D 11 |H .........| 000019B0: CD 4F 56 45 20 42 41 43 4B 57 41 52 44 20 4C 45 |.OVE BACKWARD LE| 000019C0: 4E 47 54 48 20 20 20 20 20 C2 C1 C3 CB 0D 11 C8 |NGTH .......| 000019D0: 4F 4D 45 20 54 55 52 54 4C 45 20 20 20 20 20 20 |OME TURTLE | 000019E0: 20 20 20 20 20 20 20 20 C8 CF CD C5 0D 11 D4 55 | .......U| 000019F0: 52 4E 20 54 55 52 54 4C 45 20 4C 45 46 54 20 20 |RN TURTLE LEFT | 00001A00: 20 20 20 20 20 20 20 CC C5 C6 D4 0D 11 D4 55 52 | .......UR| 00001A10: 4E 20 54 55 52 54 4C 45 20 52 49 47 48 54 20 20 |N TURTLE RIGHT | 00001A20: 20 20 20 20 20 20 D2 C9 C7 C8 D4 0D 11 CD 4F 56 | ........OV| 00001A30: 45 20 54 4F 20 41 20 50 4F 49 4E 54 20 20 20 20 |E TO A POINT | 00001A40: 20 20 20 20 20 20 D3 C5 D4 D8 D9 0D 11 D4 55 52 | ........UR| 00001A50: 4E 20 54 4F 20 53 50 45 43 49 46 49 43 20 48 45 |N TO SPECIFIC HE| 00001A60: 41 44 49 4E 47 20 D3 C5 D4 C8 C5 C1 C4 C9 CE C7 |ADING ..........| 00001A70: 0D 11 CD 41 4B 45 20 54 55 52 54 4C 45 20 56 49 |...AKE TURTLE VI| 00001A80: 53 49 42 4C 45 20 20 20 20 20 20 D3 C8 CF D7 D4 |SIBLE .....| 00001A90: D5 D2 D4 CC C5 0D 11 CD 41 4B 45 20 54 55 52 54 |........AKE TURT| 00001AA0: 4C 45 20 49 4E 56 49 53 49 42 4C 45 20 20 20 20 |LE INVISIBLE | 00001AB0: C8 C9 C4 C5 D4 D5 D2 D4 CC C5 0D 11 D0 45 4E 20 |.............EN | 00001AC0: 55 50 20 4F 46 46 20 50 41 50 45 52 20 20 20 20 |UP OFF PAPER | 00001AD0: 20 20 20 20 20 D0 C5 CE D5 D0 0D 11 D0 45 4E 20 | ........EN | 00001AE0: 44 4F 57 4E 20 4F 4E 20 50 41 50 45 52 20 20 20 |DOWN ON PAPER | 00001AF0: 20 20 20 20 20 D0 C5 CE C4 CF D7 CE 0D 11 D3 45 | ..........E| 00001B00: 54 20 50 45 4E 20 43 4F 4C 4F 52 20 20 20 20 20 |T PEN COLOR | 00001B10: 20 20 20 20 20 20 20 D0 C5 CE C3 CF CC CF D2 0D | .........| 00001B20: 11 CE 55 4D 42 45 52 20 4F 46 20 43 4F 4C 4F 52 |..UMBER OF COLOR| 00001B30: 53 20 20 20 20 20 20 20 20 20 31 36 0D 11 D3 45 |S 16...E| 00001B40: 54 20 53 49 5A 45 20 4F 46 20 54 55 52 54 4C 45 |T SIZE OF TURTLE| 00001B50: 20 20 20 20 20 20 20 D4 D5 D2 D4 CC C5 D3 C9 DA | .........| 00001B60: C5 0D 11 D0 4C 4F 54 20 41 20 50 4F 49 4E 54 20 |....LOT A POINT | 00001B70: 20 20 20 20 20 20 20 20 20 20 20 20 D0 CC CF D4 | ....| 00001B80: 0D 11 D0 52 49 4E 54 20 54 45 58 54 20 49 4E 20 |...RINT TEXT IN | 00001B90: 47 52 41 50 48 49 43 53 20 20 20 D0 CC CF D4 D4 |GRAPHICS .....| 00001BA0: C5 D8 D4 0D 11 0D 11 D3 C3 D2 C5 C5 CE 20 C1 CE |............. ..| 00001BB0: C4 20 C3 CF CC CF D2 20 C3 CF CE D4 D2 CF CC 3A |. ..... .......:| 00001BC0: 0D 11 D3 45 54 20 53 43 52 45 45 4E 20 57 49 4E |...ET SCREEN WIN| 00001BD0: 44 4F 57 20 20 20 20 20 20 20 20 C6 D2 C1 CD C5 |DOW .....| 00001BE0: 0D 11 C3 4C 45 41 52 20 47 52 41 50 48 49 43 53 |...LEAR GRAPHICS| 00001BF0: 20 53 43 52 45 45 4E 20 20 20 20 C3 CC C5 C1 D2 | SCREEN .....| 00001C00: 0D 11 D3 45 54 20 54 4F 20 47 52 41 50 48 49 43 |...ET TO GRAPHIC| 00001C10: 53 20 4D 4F 44 45 20 20 20 20 20 D3 C5 D4 C7 D2 |S MODE .....| 00001C20: C1 D0 C8 C9 C3 0D 11 D3 45 54 20 54 4F 20 54 45 |........ET TO TE| 00001C30: 58 54 20 53 43 52 45 45 4E 20 20 20 20 20 20 20 |XT SCREEN | 00001C40: D3 C5 D4 D4 C5 D8 D4 0D 11 D3 45 54 20 42 41 43 |..........ET BAC| 00001C50: 4B 47 52 4F 55 4E 44 20 43 4F 4C 4F 52 20 20 20 |KGROUND COLOR | 00001C60: 20 20 C2 C1 C3 CB C7 D2 CF D5 CE C4 0D 11 D3 45 | .............E| 00001C70: 54 20 42 4F 52 44 45 52 20 43 4F 4C 4F 52 20 20 |T BORDER COLOR | 00001C80: 20 20 20 20 20 20 20 C2 CF D2 C4 C5 D2 0D 11 C6 | .........| 00001C90: 49 4C 4C 20 49 4E 20 41 4E 20 41 52 45 41 20 20 |ILL IN AN AREA | 00001CA0: 20 20 20 20 20 20 20 20 C6 C9 CC CC 0D 11 C6 55 | .......U| 00001CB0: 4C 4C 20 53 43 52 45 45 4E 20 4D 4F 44 45 20 20 |LL SCREEN MODE | 00001CC0: 20 20 20 20 20 20 20 C6 D5 CC CC D3 C3 D2 C5 C5 | .........| 00001CD0: CE 0D 11 D3 50 4C 49 54 20 53 43 52 45 45 4E 20 |....PLIT SCREEN | 00001CE0: 4D 4F 44 45 20 20 20 20 20 20 20 20 D3 D0 CC C9 |MODE ....| 00001CF0: D4 D3 C3 D2 C5 C5 CE 0D 11 0D 11 C6 D5 CE C3 D4 |................| 00001D00: C9 CF CE 20 CB C5 D9 D3 20 D2 C5 D3 D5 CC D4 D3 |... .... .......| 00001D10: 3A 0D 11 C6 31 20 20 20 20 20 20 20 20 20 20 20 |:...1 | 00001D20: 20 20 20 20 20 20 20 20 20 20 20 20 D4 C5 D8 D4 | ....| 00001D30: 20 D3 C3 D2 C5 C5 CE 0D 11 C6 33 20 20 20 20 20 | .........3 | 00001D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001D50: 20 20 D3 D0 CC C9 D4 D3 C3 D2 C5 C5 CE 0D 11 C6 | ..............| 00001D60: 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |5 | 00001D70: 20 20 20 20 20 20 20 20 C6 D5 CC CC D3 C3 D2 C5 | ........| 00001D80: C5 CE 0D 11 0D 11 C3 CF CD CD CF C4 CF D2 C5 20 |............... | 00001D90: 36 34 20 C3 CF CD C1 CC 20 C3 CF CC CF D2 D3 20 |64 ..... ...... | 00001DA0: CC C9 D3 D4 0D 11 0D 11 C3 CF CC 20 20 C3 CF CC |........... ...| 00001DB0: CF D2 20 20 C3 C8 D2 24 20 21 20 20 C3 CF CC 20 |.. ...$ ! ... | 00001DC0: 20 C3 CF CC CF D2 20 20 20 20 20 C3 C8 D2 24 0D | ..... ...$.| 00001DD0: 11 CE D5 CD 20 20 CE C1 CD C5 20 20 20 20 20 20 |.... .... | 00001DE0: 20 20 21 20 20 CE D5 CD 20 20 CE C1 CD C5 0D 11 | ! ... ......| 00001DF0: 2D 2D 2D 20 20 2D 2D 2D 2D 2D 20 20 2D 2D 2D 20 |--- ----- --- | 00001E00: 20 21 20 20 2D 2D 2D 20 20 2D 2D 2D 2D 2D 2D 2D | ! --- -------| 00001E10: 20 20 20 2D 2D 2D 0D 11 20 30 20 20 20 C2 CC C1 | ---.. 0 ...| 00001E20: C3 CB 20 20 31 34 34 20 20 21 20 20 20 38 20 20 |.. 144 ! 8 | 00001E30: 20 CF D2 C1 CE C7 C5 20 20 20 20 31 32 39 0D 11 | ...... 129..| 00001E40: 20 31 20 20 20 D7 C8 C9 D4 C5 20 20 35 20 20 20 | 1 ..... 5 | 00001E50: 20 21 20 20 20 39 20 20 20 C2 D2 CF D7 CE 20 20 | ! 9 ..... | 00001E60: 20 20 20 31 34 39 0D 11 20 32 20 20 20 D2 C5 C4 | 149.. 2 ...| 00001E70: 20 20 20 20 32 38 20 20 20 21 20 20 31 30 20 20 | 28 ! 10 | 00001E80: 20 CC D4 20 D2 C5 C4 20 20 20 20 31 35 30 0D 11 | .. ... 150..| 00001E90: 20 33 20 20 20 C3 D9 C1 CE 20 20 20 31 35 39 20 | 3 .... 159 | 00001EA0: 20 21 20 20 31 31 20 20 20 C4 CB 20 C7 D2 C5 D9 | ! 11 .. ....| 00001EB0: 20 20 20 31 35 31 0D 11 20 34 20 20 20 D0 D5 D2 | 151.. 4 ...| 00001EC0: D0 CC 20 20 31 35 36 20 20 21 20 20 31 32 20 20 |.. 156 ! 12 | 00001ED0: 20 CD C4 20 C7 D2 C5 D9 20 20 20 31 35 32 0D 11 | .. .... 152..| 00001EE0: 20 35 20 20 20 C7 D2 C5 C5 CE 20 20 33 30 20 20 | 5 ..... 30 | 00001EF0: 20 21 20 20 31 33 20 20 20 CC D4 20 C7 D2 C5 C5 | ! 13 .. ....| 00001F00: CE 20 20 31 35 33 0D 11 20 36 20 20 20 C2 CC D5 |. 153.. 6 ...| 00001F10: C5 20 20 20 33 31 20 20 20 21 20 20 31 34 20 20 |. 31 ! 14 | 00001F20: 20 CC D4 20 C2 CC D5 C5 20 20 20 31 35 34 0D 11 | .. .... 154..| 00001F30: 20 37 20 20 20 D9 C5 CC CC D7 20 20 31 35 38 20 | 7 ..... 158 | 00001F40: 20 21 20 20 31 35 20 20 20 CC D4 20 C7 D2 C5 D9 | ! 15 .. ....| 00001F50: 20 20 20 31 35 35 0D 11 0D 11 D3 D0 D2 C9 D4 C5 | 155..........| 00001F60: D3 20 28 56 45 52 53 49 4F 4E 20 30 2E 31 34 29 |. (VERSION 0.14)| 00001F70: 0D 11 0D 11 C4 C1 D4 C1 C3 CF CC CC C9 D3 C9 CF |................| 00001F80: CE 20 2D 54 45 53 54 20 43 4F 4C 4C 49 53 49 4F |. -TEST COLLISIO| 00001F90: 4E 20 57 49 54 48 20 44 41 54 41 0D 11 C4 C1 D4 |N WITH DATA.....| 00001FA0: C1 C3 CF CC CC C9 D3 C9 CF CE 20 3C 53 50 52 54 |.......... <SPRT| 00001FB0: 23 3E 2C 3C 52 45 53 45 54 20 43 4F 4C 53 20 46 |#>,<RESET COLS F| 00001FC0: 4C 47 3F 3E 0D 11 0D 11 C4 C5 C6 C9 CE C5 20 2D |LG?>.......... -| 00001FD0: 53 45 54 20 55 50 20 53 50 52 49 54 45 20 49 4D |SET UP SPRITE IM| 00001FE0: 41 47 45 20 46 4F 52 20 4C 41 54 45 52 0D 11 C4 |AGE FOR LATER...| 00001FF0: C5 C6 C9 CE C5 20 3C 53 50 52 54 20 44 45 46 49 |..... <SPRT DEFI| 00002000: 4E 49 54 4E 23 3E 2C 3C 36 34 20 42 59 54 45 20 |NITN#>,<64 BYTE | 00002010: 44 45 46 24 3E 0D 11 0D 11 C8 C9 C4 C5 D3 D0 D2 |DEF$>...........| 00002020: C9 D4 C5 20 2D 2D 20 54 55 52 4E 20 4F 46 46 20 |... -- TURN OFF | 00002030: 53 50 45 43 49 46 49 45 44 20 53 50 52 49 54 45 |SPECIFIED SPRITE| 00002040: 0D 11 C8 C9 C4 C5 D3 D0 D2 C9 D4 C5 20 3C 53 50 |............ <SP| 00002050: 52 49 54 45 20 4E 55 4D 42 45 52 3E 0D 11 0D 11 |RITE NUMBER>....| 00002060: C9 C4 C5 CE D4 C9 C6 D9 20 2D 2D 20 41 53 53 49 |........ -- ASSI| 00002070: 47 4E 20 41 20 53 50 52 49 54 45 20 41 4E 20 49 |GN A SPRITE AN I| 00002080: 4D 41 47 45 0D 11 C9 C4 C5 CE D4 C9 C6 D9 20 3C |MAGE.......... <| 00002090: 53 50 52 49 54 45 20 4E 55 4D 42 45 52 3E 2C 3C |SPRITE NUMBER>,<| 000020A0: 44 45 46 49 4E 49 54 49 4F 4E 20 23 3E 0D 11 28 |DEFINITION #>..(| 000020B0: 4E 4F 54 45 3A 20 53 50 52 49 54 45 20 37 20 49 |NOTE: SPRITE 7 I| 000020C0: 53 20 55 53 45 44 20 46 4F 52 20 54 48 45 20 54 |S USED FOR THE T| 000020D0: 55 52 54 4C 45 29 0D 11 0D 11 D0 D2 C9 CF D2 C9 |URTLE)..........| 000020E0: D4 D9 20 2D 44 4F 45 53 20 44 41 54 41 20 50 52 |.. -DOES DATA PR| 000020F0: 49 4F 52 49 54 59 20 4F 56 45 52 20 53 50 52 54 |IORITY OVER SPRT| 00002100: 0D 11 D0 D2 C9 CF D2 C9 D4 D9 20 3C 53 50 52 49 |.......... <SPRI| 00002110: 54 45 20 23 3E 2C 3C 44 41 54 41 20 50 52 49 4F |TE #>,<DATA PRIO| 00002120: 52 49 54 59 3F 3E 0D 11 0D 11 D3 D0 D2 C9 D4 C5 |RITY?>..........| 00002130: C2 C1 C3 CB 20 2D 53 45 54 20 32 20 4D 55 4C 54 |.... -SET 2 MULT| 00002140: 49 43 4F 4C 4F 52 20 53 50 52 54 20 43 4F 4C 52 |ICOLOR SPRT COLR| 00002150: 53 0D 11 D3 D0 D2 C9 D4 C5 C2 C1 C3 CB 20 3C 43 |S............ <C| 00002160: 4F 4C 4F 52 31 3E 2C 3C 43 4F 4C 4F 52 32 3E 0D |OLOR1>,<COLOR2>.| 00002170: 11 0D 11 D3 C8 CF D7 D3 D0 D2 C9 D4 C5 20 2D 2D |............. --| 00002180: 20 54 55 52 4E 20 4F 4E 20 53 50 45 43 49 46 49 | TURN ON SPECIFI| 00002190: 45 44 20 53 50 52 49 54 45 0D 11 D3 C8 CF D7 D3 |ED SPRITE.......| 000021A0: D0 D2 C9 D4 C5 20 3C 53 50 52 49 54 45 20 4E 55 |..... <SPRITE NU| 000021B0: 4D 42 45 52 3E 0D 11 0D 11 D3 D0 D2 C9 D4 C5 C3 |MBER>...........| 000021C0: CF CC CC C9 D3 C9 CF CE 20 2D 54 45 53 54 20 53 |........ -TEST S| 000021D0: 50 52 49 54 45 20 43 4F 4C 4C 49 53 49 4F 4E 0D |PRITE COLLISION.| 000021E0: 11 D3 D0 D2 C9 D4 C5 C3 CF CC CC C9 D3 C9 CF CE |................| 000021F0: 20 3C 53 50 52 23 3E 2C 3C 52 45 53 45 54 20 43 | <SPR#>,<RESET C| 00002200: 4F 4C 20 46 4C 47 3F 3E 0D 11 0D 11 D3 D0 D2 C9 |OL FLG?>........| 00002210: D4 C5 C3 CF CC CF D2 20 2D 2D 20 53 45 54 20 43 |....... -- SET C| 00002220: 4F 4C 4F 52 20 4F 46 20 53 50 52 49 54 45 0D 11 |OLOR OF SPRITE..| 00002230: D3 D0 D2 C9 D4 C5 C3 CF CC CF D2 20 3C 53 50 52 |........... <SPR| 00002240: 49 54 45 20 23 3E 2C 3C 43 4F 4C 4F 52 20 4E 55 |ITE #>,<COLOR NU| 00002250: 4D 42 45 52 3E 0D 11 0D 11 D3 D0 D2 C9 D4 C5 D0 |MBER>...........| 00002260: CF D3 20 2D 2D 20 50 4F 53 49 54 49 4F 4E 20 53 |.. -- POSITION S| 00002270: 50 52 49 54 45 20 41 54 20 58 2C 59 20 4C 4F 43 |PRITE AT X,Y LOC| 00002280: 0D 11 D3 D0 D2 C9 D4 C5 D0 CF D3 20 3C 53 50 52 |........... <SPR| 00002290: 54 23 3E 2C 3C 58 20 43 4F 4F 52 44 3E 2C 3C 59 |T#>,<X COORD>,<Y| 000022A0: 20 43 4F 4F 52 44 3E 0D 11 0D 11 D3 D0 D2 C9 D4 | COORD>.........| 000022B0: C5 D3 C9 DA C5 20 2D 53 50 52 49 54 45 20 53 49 |..... -SPRITE SI| 000022C0: 5A 45 20 28 45 58 50 41 4E 44 20 4F 52 20 4E 4F |ZE (EXPAND OR NO| 000022D0: 54 29 0D 11 D3 D0 D2 C9 D4 C5 D3 C9 DA C5 20 3C |T)............ <| 000022E0: 53 50 52 23 3E 2C 3C 59 20 58 50 41 4E 44 3F 3E |SPR#>,<Y XPAND?>| 000022F0: 2C 3C 58 20 58 50 41 4E 44 3F 3E 0D 11 0D 11 C8 |,<X XPAND?>.....| 00002300: C9 C7 C8 20 D2 C5 D3 20 41 4E 44 20 D4 D5 D2 D4 |... ... AND ....| 00002310: CC C5 20 47 52 41 50 48 49 43 53 20 C3 CF CD C1 |.. GRAPHICS ....| 00002320: CC 20 30 2E 31 34 0D 11 0D 11 C2 C1 C3 CB 20 2D |. 0.14........ -| 00002330: 2D 20 4D 4F 56 45 20 54 55 52 54 4C 45 20 42 41 |- MOVE TURTLE BA| 00002340: 43 4B 57 41 52 44 53 0D 11 C2 C1 C3 CB 20 3C 4C |CKWARDS...... <L| 00002350: 45 4E 47 54 48 3E 0D 11 0D 11 C2 C1 C3 CB C7 D2 |ENGTH>..........| 00002360: CF D5 CE C4 20 2D 53 45 54 20 53 43 52 45 45 4E |.... -SET SCREEN| 00002370: 20 42 41 43 4B 47 52 4F 55 4E 44 20 43 4F 4C 4F | BACKGROUND COLO| 00002380: 52 0D 11 C2 C1 C3 CB C7 D2 CF D5 CE C4 20 3C 43 |R............ <C| 00002390: 4F 4C 4F 52 20 4E 55 4D 42 45 52 3E 0D 11 0D 11 |OLOR NUMBER>....| 000023A0: C2 CF D2 C4 C5 D2 20 2D 2D 20 53 45 54 20 54 48 |...... -- SET TH| 000023B0: 45 20 53 43 52 45 45 4E 20 42 4F 52 44 45 52 20 |E SCREEN BORDER | 000023C0: 43 4F 4C 4F 52 0D 11 C2 CF D2 C4 C5 D2 20 3C 43 |COLOR........ <C| 000023D0: 4F 4C 4F 52 20 4E 55 4D 42 45 52 3E 0D 11 0D 11 |OLOR NUMBER>....| 000023E0: C3 CC C5 C1 D2 20 2D 43 4C 45 41 52 20 47 52 41 |..... -CLEAR GRA| 000023F0: 50 48 49 43 53 20 53 43 52 45 45 4E 20 28 49 4E |PHICS SCREEN (IN| 00002400: 20 46 52 41 4D 45 29 0D 11 C3 CC C5 C1 D2 D3 C3 | FRAME).........| 00002410: D2 C5 C5 CE 0D 11 0D 11 C4 D2 C1 D7 D4 CF 20 2D |.............. -| 00002420: 2D 20 44 52 41 57 20 4C 49 4E 45 20 46 52 4F 4D |- DRAW LINE FROM| 00002430: 20 43 55 52 52 45 4E 54 20 50 4F 49 4E 54 0D 11 | CURRENT POINT..| 00002440: C4 D2 C1 D7 D4 CF 20 3C 58 20 43 4F 4F 52 44 49 |...... <X COORDI| 00002450: 4E 41 54 45 3E 2C 3C 59 20 43 4F 4F 52 44 49 4E |NATE>,<Y COORDIN| 00002460: 41 54 45 3E 0D 11 0D 11 C6 C9 CC CC 20 2D 2D 20 |ATE>........ -- | 00002470: 46 49 4C 4C 20 49 4E 20 41 52 45 41 20 57 49 54 |FILL IN AREA WIT| 00002480: 48 20 43 55 52 52 45 4E 54 20 43 4F 4C 4F 52 0D |H CURRENT COLOR.| 00002490: 11 C6 C9 CC CC 20 3C 58 20 43 4F 4F 52 44 49 4E |..... <X COORDIN| 000024A0: 41 54 45 3E 2C 3C 59 20 43 4F 4F 52 44 49 4E 41 |ATE>,<Y COORDINA| 000024B0: 54 45 3E 0D 11 0D 11 C6 CF D2 D7 C1 D2 C4 20 2D |TE>........... -| 000024C0: 2D 20 4D 4F 56 45 20 54 55 52 54 4C 45 20 46 4F |- MOVE TURTLE FO| 000024D0: 52 57 41 52 44 0D 11 C6 CF D2 D7 C1 D2 C4 20 3C |RWARD......... <| 000024E0: 4C 45 4E 47 54 48 3E 0D 11 0D 11 C6 D2 C1 CD C5 |LENGTH>.........| 000024F0: 20 2D 2D 20 53 45 54 20 55 50 20 41 20 53 43 52 | -- SET UP A SCR| 00002500: 45 45 4E 20 57 49 4E 44 4F 57 0D 11 C6 D2 C1 CD |EEN WINDOW......| 00002510: C5 20 3C 58 30 3E 2C 3C 58 31 3E 2C 3C 59 30 3E |. <X0>,<X1>,<Y0>| 00002520: 2C 3C 59 31 3E 0D 11 0D 11 C6 D5 CC CC D3 C3 D2 |,<Y1>...........| 00002530: C5 C5 CE 20 2D 2D 20 46 55 4C 4C 53 43 52 45 45 |... -- FULLSCREE| 00002540: 4E 20 47 52 41 50 48 49 43 53 20 28 46 35 29 0D |N GRAPHICS (F5).| 00002550: 11 C6 D5 CC CC D3 C3 D2 C5 C5 CE 0D 11 0D 11 C8 |................| 00002560: C9 C4 C5 D4 D5 D2 D4 CC C5 20 2D 2D 20 4D 41 4B |......... -- MAK| 00002570: 45 20 54 48 45 20 54 55 52 54 4C 45 20 49 4E 56 |E THE TURTLE INV| 00002580: 49 53 49 42 4C 45 0D 11 C8 C9 C4 C5 D4 D5 D2 D4 |ISIBLE..........| 00002590: CC C5 0D 11 0D 11 C8 CF CD C5 20 2D 50 55 54 20 |.......... -PUT | 000025A0: 54 55 52 54 4C 45 20 49 4E 20 49 54 53 20 48 4F |TURTLE IN ITS HO| 000025B0: 4D 45 20 50 4F 53 49 54 49 4F 4E 0D 11 C8 CF CD |ME POSITION.....| 000025C0: C5 0D 11 0D 11 CC C5 C6 D4 20 2D 2D 20 54 55 52 |......... -- TUR| 000025D0: 4E 20 54 55 52 54 4C 45 20 4C 45 46 54 0D 11 CC |N TURTLE LEFT...| 000025E0: C5 C6 D4 20 3C 44 45 47 52 45 45 53 3E 0D 11 0D |... <DEGREES>...| 000025F0: 11 CD CF D6 C5 D4 CF 20 2D 4D 4F 56 45 20 54 4F |....... -MOVE TO| 00002600: 20 50 4F 49 4E 54 20 57 49 54 48 4F 55 54 20 4C | POINT WITHOUT L| 00002610: 49 4E 45 0D 11 CD CF D6 C5 D4 CF 20 3C 58 20 43 |INE........ <X C| 00002620: 4F 4F 52 44 49 4E 41 54 45 3E 2C 3C 59 20 43 4F |OORDINATE>,<Y CO| 00002630: 4F 52 44 49 4E 41 54 45 3E 0D 11 0D 11 D0 C5 CE |ORDINATE>.......| 00002640: C3 CF CC CF D2 20 2D 53 45 54 20 43 55 52 52 45 |..... -SET CURRE| 00002650: 4E 54 20 54 55 52 54 4C 45 20 50 45 4E 20 43 4F |NT TURTLE PEN CO| 00002660: 4C 4F 52 0D 11 D0 C5 CE C3 CF CC CF D2 20 3C 43 |LOR.......... <C| 00002670: 4F 4C 4F 52 20 4E 55 4D 42 45 52 3E 0D 11 0D 11 |OLOR NUMBER>....| 00002680: D0 C5 CE C4 CF D7 CE 20 2D 50 55 54 20 50 45 4E |....... -PUT PEN| 00002690: 20 44 4F 57 4E 2D 54 55 52 54 4C 45 20 44 52 41 | DOWN-TURTLE DRA| 000026A0: 57 53 20 4C 49 4E 45 0D 11 D0 C5 CE C4 CF D7 CE |WS LINE.........| 000026B0: 0D 11 0D 11 D0 C5 CE D5 D0 20 2D 50 49 43 4B 20 |......... -PICK | 000026C0: 55 50 20 50 45 4E 2D 4E 4F 20 54 55 52 54 4C 45 |UP PEN-NO TURTLE| 000026D0: 20 4C 49 4E 45 53 0D 11 D0 C5 CE D5 D0 0D 11 0D | LINES..........| 000026E0: 11 D0 CC CF D4 20 2D 2D 20 50 4C 4F 54 20 41 20 |..... -- PLOT A | 000026F0: 50 4F 49 4E 54 20 49 4E 20 43 55 52 52 45 4E 54 |POINT IN CURRENT| 00002700: 20 43 4F 4C 4F 52 0D 11 D0 CC CF D4 20 3C 58 20 | COLOR...... <X | 00002710: 43 4F 4F 52 44 49 4E 41 54 45 3E 2C 3C 59 20 43 |COORDINATE>,<Y C| 00002720: 4F 4F 52 44 49 4E 41 54 45 3E 0D 11 0D 11 D0 CC |OORDINATE>......| 00002730: CF D4 D4 C5 D8 D4 20 2D 50 52 49 4E 54 20 54 45 |...... -PRINT TE| 00002740: 58 54 20 4F 4E 20 47 52 41 50 48 49 43 53 20 53 |XT ON GRAPHICS S| 00002750: 43 52 45 45 4E 0D 11 D0 CC CF D4 D4 C5 D8 D4 20 |CREEN.......... | 00002760: 3C 58 20 43 4F 4F 52 44 3E 2C 3C 59 20 43 4F 4F |<X COORD>,<Y COO| 00002770: 52 44 3E 2C 3C 54 45 58 54 24 3E 0D 11 0D 11 D2 |RD>,<TEXT$>.....| 00002780: C9 C7 C8 D4 20 2D 2D 20 54 55 52 4E 20 54 55 52 |.... -- TURN TUR| 00002790: 54 4C 45 20 52 49 47 48 54 0D 11 D2 C9 C7 C8 D4 |TLE RIGHT.......| 000027A0: 20 3C 44 45 47 52 45 45 53 3E 0D 11 0D 11 D3 C5 | <DEGREES>......| 000027B0: D4 C7 D2 C1 D0 C8 C9 C3 20 2D 2D 20 54 55 52 4E |........ -- TURN| 000027C0: 20 4F 4E 20 47 52 41 50 48 49 43 53 20 53 43 52 | ON GRAPHICS SCR| 000027D0: 45 45 4E 0D 11 D3 C5 D4 C7 D2 C1 D0 C8 C9 C3 20 |EEN............ | 000027E0: DB 3C 54 59 50 45 3E DD 0D 11 0D 11 D3 C5 D4 C8 |.<TYPE>.........| 000027F0: C5 C1 C4 C9 CE C7 20 2D 2D 20 53 45 54 20 54 55 |...... -- SET TU| 00002800: 52 54 4C 45 20 48 45 41 44 49 4E 47 0D 11 D3 C5 |RTLE HEADING....| 00002810: D4 C8 C5 C1 C4 C9 CE C7 20 3C 44 45 47 52 45 45 |........ <DEGREE| 00002820: 3E 0D 11 0D 11 D3 C5 D4 D4 C5 D8 D4 20 2D 2D 20 |>........... -- | 00002830: 54 55 52 4E 20 4F 4E 20 54 45 58 54 20 53 43 52 |TURN ON TEXT SCR| 00002840: 45 45 4E 20 28 46 31 29 0D 11 D3 C5 D4 D4 C5 D8 |EEN (F1)........| 00002850: D4 0D 11 0D 11 D3 C5 D4 D8 D9 20 2D 2D 20 53 45 |.......... -- SE| 00002860: 54 20 54 55 52 54 4C 45 20 58 20 41 4E 44 20 59 |T TURTLE X AND Y| 00002870: 20 43 4F 4F 52 44 49 4E 41 54 45 53 0D 11 D3 C5 | COORDINATES....| 00002880: D4 D8 D9 20 3C 58 20 43 4F 4F 52 44 49 4E 41 54 |... <X COORDINAT| 00002890: 45 3E 2C 3C 59 20 43 4F 4F 52 44 49 4E 41 54 45 |E>,<Y COORDINATE| 000028A0: 3E 0D 11 0D 11 D3 C8 CF D7 D4 D5 D2 D4 CC C5 20 |>.............. | 000028B0: 2D 2D 20 4D 41 4B 45 20 54 55 52 54 4C 45 20 56 |-- MAKE TURTLE V| 000028C0: 49 53 49 42 4C 45 0D 11 D3 C8 CF D7 D4 D5 D2 D4 |ISIBLE..........| 000028D0: CC C5 0D 11 0D 11 D3 D0 CC C9 D4 D3 C3 D2 C5 C5 |................| 000028E0: CE 20 2D 32 20 4C 49 4E 45 20 54 45 58 54 20 41 |. -2 LINE TEXT A| 000028F0: 42 4F 56 45 20 47 52 41 50 48 49 43 53 0D 11 D3 |BOVE GRAPHICS...| 00002900: D0 CC C9 D4 D3 C3 D2 C5 C5 CE 0D 11 0D 11 D4 D5 |................| 00002910: D2 D4 CC C5 D3 C9 DA C5 20 2D 2D 20 53 45 54 20 |........ -- SET | 00002920: 54 55 52 54 4C 45 20 53 49 5A 45 20 28 30 20 54 |TURTLE SIZE (0 T| 00002930: 4F 20 31 30 29 0D 11 D4 D5 D2 D4 CC C5 D3 C9 DA |O 10)...........| 00002940: C5 20 3C 53 49 5A 45 3E 0D 0D |. <SIZE>.. |
.COMAL KEYWORDS: (VERSION 0.14)....// --
ALLOWS COMMENTS IN A PROGRAM..//.<ANYTH
ING>.....ABS -- GIVES THE ABSOLUTE VALUE
..ABS(<NUMERIC EXPRESSION>)....AND -- LO
GICAL AND..<EXPRESSION> AND <EXPRESSION>
....APPEND -- START AT END OF SEQ FILE..
OPEN .FILE. <FILE#>,<FILENAME>,APPEND...
.ATN -- ARCTANGENT IN RADIANS..ATN(<NUME
RIC EXPRESSION>)....AUTO -- AUTOMATIC LI
NE NUMBERING..AUTO .<START LINE>..,<INCR
EMENT>.....BASIC -- BACK INTO BASIC MODE
..BASIC....CASE -- MULTIPLE CHOICE DECIS
IONS..CASE <CONTROL EXPRESSION> .OF.....
CAT -- GIVES DISK DIRECTORY..CAT .<DRIVE
NUMBER>.....CHAIN -- LOAD & RUN PROGRAM
ON DISK..CHAIN <FILENAME>....CHR$ -- GI
VES THAT NUMBERS CHARACTER..CHR$(<NUMERI
C EXPRESSION>)....CLOSE -- CLOSES FILES.
.CLOSE ..FILE. <FILENUM>.....CLOSED -- A
LL PROC/FUNC VARIABLES LOCAL..PROC <PROC
NAME>.(PARAMS). .CLOSED...FUNC <FUNCNAME
>.(PARAMS). .CLOSED.....CON -- CONTINUE
PROGRAM EXECUTION..CON....COS -- COSINE
IN RADIANS..COS(<NUMERIC EXPRESSION>)...
.DATA -- PROVIDES DATA FOR A READ..DATA
<VALUE>.,<VALUE>..,........DEL -- DELETE
S LINES..DEL <RANGE>....DELETE -- DELETE
S A FILE FROM DISK..DELETE <FILENAME>...
.DIM -- ALLOCATES STRING & ARRAY SPACE..
DIM <STRING VAR> OF <MAX CHAR>..DIM <STR
ARRAY>(<INDEX>) OF <MAX CHAR>..DIM <ARR
AY NAME>(<ARRAY INDEX>)....DIV -- DIVISI
ON WITH INTEGER ANSWER..<DIVIDEND> DIV <
DIVISOR>....DO -- DO THE FOLLOWING STATE
MENTS..DO <STATEMENTS>....EDIT -- LIST L
INES WITHOUT INDENTATIONS..EDIT .<RANGE>
.....ELIF -- SHORT FOR ELSE IF CONDITION
..ELIF <EXPRESSION> .THEN.....ELSE -- IF
STRUC ALTERNATIVE STATEMENTS..ELSE....E
ND -- HALT PROGRAM EXECUTION..END....END
CASE -- END OF CASE STRUCTURE..ENDCASE..
..ENDFOR -- END OF FOR STRUCTURE..ENDFOR
.<CONTROL VARIABLE>.....ENDFUNC -- END
OF FUNCTION..ENDFUNC .<FUNCTION NAME>...
..ENDIF -- END OF IF STRUCTURE..ENDIF...
.ENDPROC -- END OF PROCEDURE..ENDPROC .<
PROCEDURE NAME>.....ENDWHILE -- END OF W
HILE STRUCTURE..ENDWHILE....ENTER --MERG
E PROGRAM SEGMENT FROM DISK..ENTER <FILE
NAME>....EOD -- END OF DATA FLAG..EOD...
.EOF -- END OF FILE FLAG..EOF(<FILENUM>)
....ESC -- STOP KEY PRESSED FLAG..ESC..T
RAP ESC<TYPE>....EXEC -- EXECUTE A PROCE
DURE...EXEC. <NAME>.(<ACTUAL PARAM LIST>
).....EXP -- NATURAL LOG E TO N..EXP(<NU
MERIC EXPRESSION>)....FALSE -- PREDEFINE
D VALUE = 0..FALSE....FILE -- SPECIFIES
THAT A FILE IS USED..INPUT FILE <FILE#>.
,<REC#>.: <VAR LIST>..PRINT FILE <FILE#>
.,<REC#>.: <VAL LIST>..READ FILE <FILE#>
.,<REC#>.: <VAR LIST>..WRITE FILE <FILE#
>.,<REC#>.: <VAR LIST>..OPEN .FILE. <FIL
E#>,<FILENAME>.,<TYPE>...CLOSE ..FILE. <
FILE#>.....FOR -- START OF FOR LOOP STRU
CTURE..FOR <VAR>=<ST> TO <E> .STEP <STP>
. .DO.....FUNC -- START OF A MULTILINE F
UNCTION..FUNC <NAME>.(<PARM>). .EXTERNAL
<NAME>...FUNC <NAME>.(<PARM>). .CLOSED.
....GOTO -- GO TO LINE WITH THIS NAME..G
OTO <LABEL NAME>....IF -- START OF CONDI
TIONAL IF STRUCTURE..IF <CONDITION> .THE
N...IF <CONDITION> THEN <STATEMENT>....I
N --LOCATE STRING1 POSITION IN STRING2..
<STRING1> IN <STRING2>....INPUT -- INPUT
FROM KEYBOARD OR FILE..INPUT .<PROMPT>:
. <VAR LIST>..INPUT FILE <FILE#>.,<REC#>
.:<VAR LIST>....INT -NEAREST INTEGER LES
S THAN OR EQUAL..INT(<NUMERIC EXPRESSION
>)....KEY$ -- SCANS KEYBOARD (NOT PET 0.
14)..KEY$....LABEL -- ASSIGNS LABEL NAME
TO LINE..<LABEL NAME>:....LEN -- GIVES
THE LENGTH OF STRING..LEN(<STRING EXPRES
SION>)....LET -- ASSIGN VALUE TO VARIABL
E..:=....LIST -- LIST PROGRAM..LIST .<RA
NGE>. .<FILENAME>.....LOAD -- LOAD A PRO
GRAM FROM DISK..LOAD <FILENAME>....LOG -
- NATURAL LOGARITHM OF N..LOG(<NUMERIC E
XPRESSION>)....MOD -- DIVISION REMAINDER
(MODULO)..<DIVIDEND> MOD <DIVISOR>....N
EW -- CLEARS PROGRAM FROM MEMORY..NEW...
.NOT -- LOGICAL NOT..NOT <CONDITION>....
NULL -- DOES NOTHING (NO OP)..NULL....OF
-- PART OF DIM OR CASE STRUCTURE..CASE
<EXPRESSION> .OF...DIM <STRINGVAR> OF <M
AX CHAR>..DIM <STRINGARRAY>(INDEX) OF <M
AX CHAR>....OPEN -- OPEN A FILE..OPEN .F
ILE. <FILE#>,<FILENAME>.,<TYPE>.....OR -
- LOGICAL OR..<CONDITION> OR <CONDITION>
....ORD -- INTEGER REPRESENTING THE CHAR
..ORD(<STRING EXPRESSION>)....OTHERWISE
-- DEFAULT FOR CASE..OTHERWISE....OUTPUT
-- SELECT OUTPUT LOCATION..SELECT .OUTP
UT. <TYPE>....PASS -PASS STRING TO DISK
COMMAND CHANL..PASS <DISK COMMAND>....PE
EK -- LOOK AT MEMORY..PEEK(<MEMORY ADDRE
SS>)....POKE -- CHANGE MEMORY LOCATION..
POKE <MEMORY ADDRESS>,<CONTENTS>....PRIN
T -PRINTS ITEMS TO SCRN/PRINTR/FILE..PRI
NT .FILE <FILENUM>:. .<ITEMS>...PRINT .F
ILE <FIL#>:. USING <FMT>:<VARS>..(RANDOM
FILE USE:.FILE <FIL#>,<REC#>:.)....PROC
-- START OF MULTILINE PROCEDURE..PROC <
NAM>.(<PARM>). .EXTERNAL <NAME>...PROC <
NAM>.(<PARM>). .CLOSED.....RANDOM -- RAN
DOM ACCESS DISK FILE..OPEN FILE <FIL#>,<
NAME>,RANDOM <RECLN>....READ -READ DATA
FROM DATA LINE OR FILE..READ <VAR LIST>.
.READ FILE <FILE#>.,<REC#>.: <VAR LIST>.
.OPEN .FILE. <FILENUM>,<FILENAME>,READ..
..REF -PARM VAR USED IN REFERENCE IN PRO
C..REF <VAR>....RENUM -- RENUMBER PROGRA
M..RENUM .<TARGETSTART>..,<INCREMENT>...
..REPEAT -- START OF REPEAT STRUCTURE..R
EPEAT....RESTORE -- REUSE DATA WITH READ
..RESTORE....RND -- RANDOM NUMBER..RND(<
NUM>)..RND(<START NUM>:<END NUM>)....RUN
-- RUN PROGRAM NOW IN MEMORY..RUN....SA
VE -- RECORD PROGRAM ON DISK..SAVE <FILE
NAME>....SELECT -- CHOOSE OUTPUT LOCATIO
N..SELECT .OUTPUT. <TYPE>....SGN -- -1 I
F NEG, 0 IF 0, 1 IF POS..SGN(<NUMERIC EX
PRESSION>)....SIN -- GIVES SINE IN RADIA
NS..SIN(<NUMERIC EXPRESSION>)....SIZE --
MEMORY USAGE (FREE MEMORY)..SIZE....SQR
-- GIVES SQUARE ROOT..SQR(<NUMERIC EXPR
ESSION>)....STATUS$ -- STATUS OF DISK CH
ANNEL..STATUS$....STEP -INCREMNT FOR LOO
P VAR THIS AMOUNT..STEP <NUMERIC EXPRESS
ION>....STOP -- HALT PROGRAM EXECUTION..
STOP....SYS -GIVE CONTROL TO ASSEMBLY LA
NGUAGE..SYS(<MEMORY ADDRESS>)....TAB --
PRINT SPACES UP TO SPECIFIED COL..TAB(<C
OLUMN NUMBER>)....TAN -- GIVES TANGENT I
N RADIANS..TAN(<NUMERIC EXPRESSION>)....
THEN -- PART OF IF STRUCTURE..THEN....TO
-INCREMENT FOR VARIABLE START TO END..<
START NUM> TO <END NUM>....TRAP -- DISAB
LE STOP KEY..TRAP ESC<TYPE>....TRUE -- P
REDEFINED VALUE OF 1..TRUE....UNIT -- SP
ECIFY UNIT (DEVICE)..OPEN FILE <#>,<N>,U
NIT..<DV>.,<SC>..,<TP>.....UNTIL -- END
OF REPEAT LOOP..UNTIL <EXPRESSION>....US
ING --FORMATTED OUTPUT (NOT PET 0.14)..P
RINT USING <FORMAT>: <VAR LIST>....WHEN
-- CHOICE IN CASE STRUCTURE..WHEN <LIST
OF VALUES>....WHILE -- START OF WHILE ST
RUCTURE..WHILE <EXPRESSION> .DO. .<STATE
MENT>.....WRITE -- WRITE TO A FILE..WRIT
E FILE <FILE#>.,<REC#>.: <VAR LIST>..OPE
N .FILE. <FILENUM>,<FILENAME>,WRITE.....
.ZONE -- TAB INCREMENT..ZONE <TAB INTERV
AL>..ZONE....TURTLE GRAPHICS CHART CB
M COMAL..----------------------- ------
---..TURTLE CONTROL:..MOVE FORWARD LENGT
H FORWARD..MOVE BACKWARD LENGTH
BACK..HOME TURTLE HOME..TU
RN TURTLE LEFT LEFT..TURN TURTLE
RIGHT RIGHT..MOVE TO A POINT
SETXY..TURN TO SPECIFIC HEADING SE
THEADING..MAKE TURTLE VISIBLE SHOWT
URTLE..MAKE TURTLE INVISIBLE HIDETURT
LE..PEN UP OFF PAPER PENUP..PEN
DOWN ON PAPER PENDOWN..SET PEN CO
LOR PENCOLOR..NUMBER OF COLOR
S 16..SET SIZE OF TURTLE T
URTLESIZE..PLOT A POINT PLOT
..PRINT TEXT IN GRAPHICS PLOTTEXT....S
CREEN AND COLOR CONTROL:..SET SCREEN WIN
DOW FRAME..CLEAR GRAPHICS SCREEN
CLEAR..SET TO GRAPHICS MODE SETGR
APHIC..SET TO TEXT SCREEN SETTEXT.
.SET BACKGROUND COLOR BACKGROUND..SE
T BORDER COLOR BORDER..FILL IN A
N AREA FILL..FULL SCREEN MODE
FULLSCREEN..SPLIT SCREEN MODE
SPLITSCREEN....FUNCTION KEYS RESULTS
:..F1 TEXT SCREEN.
.F3 SPLITSCREEN..F
5 FULLSCREEN....CO
MMODORE 64 COMAL COLORS LIST....COL COL
OR CHR$ ! COL COLOR CHR$..NUM NA
ME ! NUM NAME..--- ----- ---
! --- ------- ---.. 0 BLACK 144
! 8 ORANGE 129.. 1 WHITE 5
! 9 BROWN 149.. 2 RED 28
! 10 LT RED 150.. 3 CYAN 159
! 11 DK GREY 151.. 4 PURPL 156
! 12 MD GREY 152.. 5 GREEN 30
! 13 LT GREEN 153.. 6 BLUE 31
! 14 LT BLUE 154.. 7 YELLW 158
! 15 LT GREY 155....SPRITES (VERSI
ON 0.14)....DATACOLLISION -TEST COLLISIO
N WITH DATA..DATACOLLISION <SPRT#>,<RESE
T COLS FLG?>....DEFINE -SET UP SPRITE IM
AGE FOR LATER..DEFINE <SPRT DEFINITN#>,<
64 BYTE DEF$>....HIDESPRITE -- TURN OFF
SPECIFIED SPRITE..HIDESPRITE <SPRITE NUM
BER>....IDENTIFY -- ASSIGN A SPRITE AN I
MAGE..IDENTIFY <SPRITE NUMBER>,<DEFINITI
ON #>..(NOTE: SPRITE 7 IS USED FOR THE T
URTLE)....PRIORITY -DOES DATA PRIORITY O
VER SPRT..PRIORITY <SPRITE #>,<DATA PRIO
RITY?>....SPRITEBACK -SET 2 MULTICOLOR S
PRT COLRS..SPRITEBACK <COLOR1>,<COLOR2>.
...SHOWSPRITE -- TURN ON SPECIFIED SPRIT
E..SHOWSPRITE <SPRITE NUMBER>....SPRITEC
OLLISION -TEST SPRITE COLLISION..SPRITEC
OLLISION <SPR#>,<RESET COL FLG?>....SPRI
TECOLOR -- SET COLOR OF SPRITE..SPRITECO
LOR <SPRITE #>,<COLOR NUMBER>....SPRITEP
OS -- POSITION SPRITE AT X,Y LOC..SPRITE
POS <SPRT#>,<X COORD>,<Y COORD>....SPRIT
ESIZE -SPRITE SIZE (EXPAND OR NOT)..SPRI
TESIZE <SPR#>,<Y XPAND?>,<X XPAND?>....H
IGH RES AND TURTLE GRAPHICS COMAL 0.14..
..BACK -- MOVE TURTLE BACKWARDS..BACK <L
ENGTH>....BACKGROUND -SET SCREEN BACKGRO
UND COLOR..BACKGROUND <COLOR NUMBER>....
BORDER -- SET THE SCREEN BORDER COLOR..B
ORDER <COLOR NUMBER>....CLEAR -CLEAR GRA
PHICS SCREEN (IN FRAME)..CLEARSCREEN....
DRAWTO -- DRAW LINE FROM CURRENT POINT..
DRAWTO <X COORDINATE>,<Y COORDINATE>....
FILL -- FILL IN AREA WITH CURRENT COLOR.
.FILL <X COORDINATE>,<Y COORDINATE>....F
ORWARD -- MOVE TURTLE FORWARD..FORWARD <
LENGTH>....FRAME -- SET UP A SCREEN WIND
OW..FRAME <X0>,<X1>,<Y0>,<Y1>....FULLSCR
EEN -- FULLSCREEN GRAPHICS (F5)..FULLSCR
EEN....HIDETURTLE -- MAKE THE TURTLE INV
ISIBLE..HIDETURTLE....HOME -PUT TURTLE I
N ITS HOME POSITION..HOME....LEFT -- TUR
N TURTLE LEFT..LEFT <DEGREES>....MOVETO
-MOVE TO POINT WITHOUT LINE..MOVETO <X C
OORDINATE>,<Y COORDINATE>....PENCOLOR -S
ET CURRENT TURTLE PEN COLOR..PENCOLOR <C
OLOR NUMBER>....PENDOWN -PUT PEN DOWN-TU
RTLE DRAWS LINE..PENDOWN....PENUP -PICK
UP PEN-NO TURTLE LINES..PENUP....PLOT --
PLOT A POINT IN CURRENT COLOR..PLOT <X
COORDINATE>,<Y COORDINATE>....PLOTTEXT -
PRINT TEXT ON GRAPHICS SCREEN..PLOTTEXT
<X COORD>,<Y COORD>,<TEXT$>....RIGHT --
TURN TURTLE RIGHT..RIGHT <DEGREES>....SE
TGRAPHIC -- TURN ON GRAPHICS SCREEN..SET
GRAPHIC .<TYPE>.....SETHEADING -- SET TU
RTLE HEADING..SETHEADING <DEGREE>....SET
TEXT -- TURN ON TEXT SCREEN (F1)..SETTEX
T....SETXY -- SET TURTLE X AND Y COORDIN
ATES..SETXY <X COORDINATE>,<Y COORDINATE
>....SHOWTURTLE -- MAKE TURTLE VISIBLE..
SHOWTURTLE....SPLITSCREEN -2 LINE TEXT A
BOVE GRAPHICS..SPLITSCREEN....TURTLESIZE
-- SET TURTLE SIZE (0 TO 10)..TURTLESIZ
E <SIZE>..
> CLICK IMAGE PREVIEW FOR FULL MODAL