COMAL COMMANDS D
FILE INFORMATION
FILENAME(S): COMAL COMMANDS D
FILE TYPE(S): SEQ
FILE SIZE: 9.2K
FIRST SEEN: 2025-11-30 18:12:27
APPEARS ON: 1 disk(s)
FILE HASH
396cddc90c2b4b775451fa65367bac6211a40657dab1cc3417ae1e43a50cc3b3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DATARICH | COMAL COMMANDS D | SEQ | Sailor, Ganheden | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 2A 2F 2A 2F 2A 2F 2A 2F 2A 2F 2A 2F 2A 2F 2A 2F |*/*/*/*/*/*/*/*/| 00000010: 2A 2F 2A 2F 2A 2F 2A 2F 2A 2F 2A 2F 2A 2F 2A 2F |*/*/*/*/*/*/*/*/| 00000020: 2A 2F 2A 2F 2A 2F 2A 0D 2A 20 20 20 20 20 20 20 |*/*/*/*.* | 00000030: 20 20 20 20 20 20 20 C3 20 CF 20 CD 20 C1 20 CC | . . . . .| 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D | *.| 00000050: 2A 2F 2A 2F 2A 2F 2A 2F 2A 2F 2A 2F 2A 2F 2A 2F |*/*/*/*/*/*/*/*/| 00000060: 2A 2F 2A 2F 2A 2F 2A 2F 2A 2F 2A 2F 2A 2F 2A 2F |*/*/*/*/*/*/*/*/| 00000070: 2A 2F 2A 2F 2A 2F 2A 0D 0D C3 CF CD C1 CC 20 D3 |*/*/*/*....... .| 00000080: 59 4E 54 41 58 3A 20 20 C3 2D 36 34 20 2F 20 D6 |YNTAX: .-64 / .| 00000090: 45 52 53 49 4F 4E 20 30 2E 31 34 0D 0D CE 4F 54 |ERSION 0.14...OT| 000000A0: 45 3A 20 20 C9 54 45 4D 53 20 49 4E 20 42 52 41 |E: .TEMS IN BRA| 000000B0: 43 4B 45 54 53 20 28 5B 5D 29 20 41 52 45 0D 4F |CKETS ([]) ARE.O| 000000C0: 50 54 49 4F 4E 41 4C 2E 0D 0D 2F 2F 20 2D 2D 20 |PTIONAL...// -- | 000000D0: 41 4C 4C 4F 57 53 20 43 4F 4D 4D 45 4E 54 53 20 |ALLOWS COMMENTS | 000000E0: 49 4E 20 41 20 50 52 4F 47 52 41 4D 0D 2F 2F 5B |IN A PROGRAM.//[| 000000F0: 3C 41 4E 59 54 48 49 4E 47 3E 5D 0D 0D C1 C2 D3 |<ANYTHING>].....| 00000100: 20 2D 2D 20 52 45 54 55 52 4E 53 20 41 42 53 4F | -- RETURNS ABSO| 00000110: 4C 55 54 45 20 56 41 4C 55 45 0D C1 C2 D3 28 3C |LUTE VALUE....(<| 00000120: 4E 55 4D 45 52 49 43 20 45 58 50 52 45 53 53 49 |NUMERIC EXPRESSI| 00000130: 4F 4E 3E 29 0D 0D C1 CE C4 20 2D 2D 20 4C 4F 47 |ON>)..... -- LOG| 00000140: 49 43 41 4C 20 C1 CE C4 0D 3C 45 58 50 52 45 53 |ICAL ....<EXPRES| 00000150: 53 49 4F 4E 3E 20 C1 CE C4 20 3C 45 58 50 52 45 |SION> ... <EXPRE| 00000160: 53 53 49 4F 4E 3E 0D 0D C1 D0 D0 C5 CE C4 20 2D |SSION>........ -| 00000170: 2D 20 53 54 41 52 54 20 41 54 20 45 4E 44 20 4F |- START AT END O| 00000180: 46 20 53 45 51 20 46 49 4C 45 0D CF D0 C5 CE 20 |F SEQ FILE..... | 00000190: 5B C6 C9 CC C5 5D 20 3C 46 49 4C 45 23 3E 2C 3C |[....] <FILE#>,<| 000001A0: 46 49 4C 45 4E 41 4D 45 3E 2C C1 D0 D0 C5 CE C4 |FILENAME>,......| 000001B0: 0D 0D C1 D4 CE 20 2D 2D 20 52 45 54 55 52 4E 53 |..... -- RETURNS| 000001C0: 20 41 52 43 54 41 4E 47 45 4E 54 20 49 4E 20 52 | ARCTANGENT IN R| 000001D0: 41 44 49 41 4E 53 0D C1 D4 CE 28 3C 4E 55 4D 45 |ADIANS....(<NUME| 000001E0: 52 49 43 20 45 58 50 52 45 53 53 49 4F 4E 3E 29 |RIC EXPRESSION>)| 000001F0: 0D 0D C1 D5 D4 CF 20 2D 2D 20 41 55 54 4F 4D 41 |...... -- AUTOMA| 00000200: 54 49 43 20 4C 49 4E 45 20 4E 55 4D 42 45 52 49 |TIC LINE NUMBERI| 00000210: 4E 47 0D C1 D5 D4 CF 20 5B 3C 53 54 41 52 54 20 |NG..... [<START | 00000220: 4C 49 4E 45 3E 5D 5B 2C 3C 49 4E 43 52 45 4D 45 |LINE>][,<INCREME| 00000230: 4E 54 3E 5D 0D 0D C2 C1 D3 C9 C3 20 2D 2D 20 52 |NT>]....... -- R| 00000240: 45 54 55 52 4E 20 54 4F 20 C2 C1 D3 C9 C3 20 4D |ETURN TO ..... M| 00000250: 4F 44 45 0D C2 C1 D3 C9 C3 0D 0D C3 C1 D3 C5 20 |ODE............ | 00000260: 2D 2D 20 4D 55 4C 54 49 50 4C 45 20 43 48 4F 49 |-- MULTIPLE CHOI| 00000270: 43 45 20 44 45 43 49 53 49 4F 4E 53 0D C3 C1 D3 |CE DECISIONS....| 00000280: C5 20 3C 43 4F 4E 54 52 4F 4C 20 45 58 50 52 45 |. <CONTROL EXPRE| 00000290: 53 53 49 4F 4E 3E 20 5B CF C6 5D 0D 0D C3 C1 D4 |SSION> [..].....| 000002A0: 20 2D 2D 20 44 49 53 4B 20 43 41 54 41 4C 4F 47 | -- DISK CATALOG| 000002B0: 20 28 44 49 52 45 43 54 4F 52 59 29 0D C3 C1 D4 | (DIRECTORY)....| 000002C0: 20 5B 3C 44 52 49 56 45 20 4E 55 4D 42 45 52 3E | [<DRIVE NUMBER>| 000002D0: 5D 0D 0D C3 C8 C1 C9 CE 20 2D 2D 20 4C 4F 41 44 |]....... -- LOAD| 000002E0: 20 26 20 52 55 4E 20 50 52 4F 47 52 41 4D 20 4F | & RUN PROGRAM O| 000002F0: 4E 20 44 49 53 4B 0D C3 C8 C1 C9 CE 20 3C 46 49 |N DISK...... <FI| 00000300: 4C 45 4E 41 4D 45 3E 0D 0D C3 C8 D2 24 20 2D 2D |LENAME>.....$ --| 00000310: 20 52 45 54 55 52 4E 53 20 C3 C2 CD 20 C1 D3 C3 | RETURNS ... ...| 00000320: C9 C9 20 43 4F 44 45 3B 0D 49 4E 56 45 52 53 45 |.. CODE;.INVERSE| 00000330: 20 4F 46 20 CF D2 C4 0D C3 C8 D2 24 28 3C 4E 55 | OF .......$(<NU| 00000340: 4D 45 52 49 43 20 45 58 50 52 45 53 53 49 4F 4E |MERIC EXPRESSION| 00000350: 3E 29 0D 0D C3 CC CF D3 C5 20 2D 2D 20 43 4C 4F |>)....... -- CLO| 00000360: 53 45 53 20 46 49 4C 45 53 0D C3 CC CF D3 C5 20 |SES FILES...... | 00000370: 5B 5B C6 C9 CC C5 5D 20 3C 46 49 4C 45 4E 55 4D |[[....] <FILENUM| 00000380: 3E 5D 0D C3 CC CF D3 C5 20 57 49 54 48 20 4E 4F |>]...... WITH NO| 00000390: 20 46 49 4C 45 20 23 20 43 4C 4F 53 45 53 20 41 | FILE # CLOSES A| 000003A0: 4C 4C 20 4F 50 45 4E 0D 46 49 4C 45 53 0D 0D C3 |LL OPEN.FILES...| 000003B0: CC CF D3 C5 C4 20 2D 2D 20 4D 41 4B 45 53 20 41 |..... -- MAKES A| 000003C0: 4C 4C 20 50 52 4F 43 2F 46 55 4E 43 0D 56 41 52 |LL PROC/FUNC.VAR| 000003D0: 49 41 42 4C 45 53 20 4C 4F 43 41 4C 0D D0 D2 CF |IABLES LOCAL....| 000003E0: C3 20 3C 50 52 4F 43 4E 41 4D 45 3E 5B 28 50 41 |. <PROCNAME>[(PA| 000003F0: 52 41 4D 53 29 5D 20 5B C3 CC CF D3 C5 C4 5D 0D |RAMS)] [......].| 00000400: C6 D5 CE C3 20 3C 46 55 4E 43 4E 41 4D 45 3E 5B |.... <FUNCNAME>[| 00000410: 28 50 41 52 41 4D 53 29 5D 20 5B C3 CC CF D3 C5 |(PARAMS)] [.....| 00000420: C4 5D 0D 0D C3 CF CE 20 2D 2D 20 43 4F 4E 54 49 |.]..... -- CONTI| 00000430: 4E 55 45 20 50 52 4F 47 52 41 4D 20 45 58 45 43 |NUE PROGRAM EXEC| 00000440: 55 54 49 4F 4E 0D C3 CF CE 0D 0D C3 CF D3 20 2D |UTION......... -| 00000450: 2D 20 52 45 54 55 52 4E 53 20 43 4F 53 49 4E 45 |- RETURNS COSINE| 00000460: 20 28 41 4E 47 4C 45 20 49 4E 0D 52 41 44 49 41 | (ANGLE IN.RADIA| 00000470: 4E 53 29 0D C3 CF D3 28 3C 4E 55 4D 45 52 49 43 |NS)....(<NUMERIC| 00000480: 20 45 58 50 52 45 53 53 49 4F 4E 3E 29 0D 0D C4 | EXPRESSION>)...| 00000490: C1 D4 C1 20 2D 2D 20 50 52 4F 56 49 44 45 53 20 |... -- PROVIDES | 000004A0: 44 41 54 41 20 46 4F 52 20 41 20 D2 C5 C1 C4 0D |DATA FOR A .....| 000004B0: C4 C1 D4 C1 20 3C 56 41 4C 55 45 3E 5B 2C 3C 56 |.... <VALUE>[,<V| 000004C0: 41 4C 55 45 3E 5D 5B 2C 2E 2E 2E 5D 0D 0D C4 C5 |ALUE>][,...]....| 000004D0: CC 20 2D 2D 20 44 45 4C 45 54 45 53 20 4C 49 4E |. -- DELETES LIN| 000004E0: 45 53 0D C4 C5 CC 20 3C 52 41 4E 47 45 3E 0D 0D |ES.... <RANGE>..| 000004F0: C4 C5 CC C5 D4 C5 20 2D 2D 20 44 45 4C 45 54 45 |...... -- DELETE| 00000500: 53 20 41 20 46 49 4C 45 20 46 52 4F 4D 20 44 49 |S A FILE FROM DI| 00000510: 53 4B 0D C4 C5 CC C5 D4 C5 20 3C 46 49 4C 45 4E |SK....... <FILEN| 00000520: 41 4D 45 3E 0D 0D C4 C9 CD 20 2D 2D 20 52 45 53 |AME>..... -- RES| 00000530: 45 52 56 45 2F 41 4C 4C 4F 43 41 54 45 20 53 54 |ERVE/ALLOCATE ST| 00000540: 52 49 4E 47 2F 41 52 52 41 59 0D 53 50 41 43 45 |RING/ARRAY.SPACE| 00000550: 0D C4 C9 CD 20 3C 53 54 52 49 4E 47 20 56 41 52 |.... <STRING VAR| 00000560: 3E 20 CF C6 20 3C 4D 41 58 20 43 48 41 52 3E 0D |> .. <MAX CHAR>.| 00000570: C4 C9 CD 20 3C 53 54 52 20 41 52 52 41 59 3E 28 |... <STR ARRAY>(| 00000580: 3C 49 4E 44 45 58 3E 29 20 CF C6 20 3C 4D 41 58 |<INDEX>) .. <MAX| 00000590: 20 43 48 41 52 3E 0D C4 C9 CD 20 3C 41 52 52 41 | CHAR>.... <ARRA| 000005A0: 59 20 4E 41 4D 45 3E 28 3C 49 4E 44 45 58 3E 29 |Y NAME>(<INDEX>)| 000005B0: 0D 0D C4 C9 D6 20 2D 2D 20 44 49 56 49 53 49 4F |..... -- DIVISIO| 000005C0: 4E 20 57 49 54 48 20 49 4E 54 45 47 45 52 20 41 |N WITH INTEGER A| 000005D0: 4E 53 57 45 52 0D 3C 44 49 56 49 44 45 4E 44 3E |NSWER.<DIVIDEND>| 000005E0: 20 C4 C9 D6 20 3C 44 49 56 49 53 4F 52 3E 0D 0D | ... <DIVISOR>..| 000005F0: C4 CF 20 2D 2D 20 44 4F 20 54 48 45 20 46 4F 4C |.. -- DO THE FOL| 00000600: 4C 4F 57 49 4E 47 20 53 54 41 54 45 4D 45 4E 54 |LOWING STATEMENT| 00000610: 53 0D C4 CF 20 3C 53 54 41 54 45 4D 45 4E 54 53 |S... <STATEMENTS| 00000620: 3E 0D 0D C5 C4 C9 D4 20 2D 2D 20 4C 49 53 54 20 |>...... -- LIST | 00000630: 4C 49 4E 45 53 20 57 49 54 48 4F 55 54 0D 49 4E |LINES WITHOUT.IN| 00000640: 44 45 4E 54 41 54 49 4F 4E 53 0D C5 C4 C9 D4 20 |DENTATIONS..... | 00000650: 5B 3C 52 41 4E 47 45 3E 5D 0D 0D C5 CC C9 C6 20 |[<RANGE>]...... | 00000660: 2D 2D 20 53 48 4F 52 54 20 46 4F 52 20 C5 CC D3 |-- SHORT FOR ...| 00000670: C5 20 C9 C6 20 43 4F 4E 44 49 54 49 4F 4E 0D C5 |. .. CONDITION..| 00000680: CC C9 C6 20 3C 45 58 50 52 45 53 53 49 4F 4E 3E |... <EXPRESSION>| 00000690: 20 5B D4 C8 C5 CE 5D 0D 0D C5 CC D3 C5 20 2D 2D | [....]...... --| 000006A0: 20 41 4C 54 45 52 4E 41 54 49 56 45 20 53 54 41 | ALTERNATIVE STA| 000006B0: 54 45 4D 45 4E 54 53 20 49 4E 20 C9 C6 0D 53 54 |TEMENTS IN ...ST| 000006C0: 52 55 43 54 55 52 45 0D C5 CC D3 C5 0D 0D C5 CE |RUCTURE.........| 000006D0: C4 20 2D 2D 20 48 41 4C 54 20 50 52 4F 47 52 41 |. -- HALT PROGRA| 000006E0: 4D 20 45 58 45 43 55 54 49 4F 4E 0D C5 CE C4 0D |M EXECUTION.....| 000006F0: 0D C5 CE C4 C3 C1 D3 C5 20 2D 2D 20 45 4E 44 20 |........ -- END | 00000700: 4F 46 20 C3 C1 D3 C5 20 53 54 52 55 43 54 55 52 |OF .... STRUCTUR| 00000710: 45 0D C5 CE C4 C3 C1 D3 C5 0D 0D C5 CE C4 C6 CF |E...............| 00000720: D2 20 2D 2D 20 45 4E 44 20 4F 46 20 C6 CF D2 20 |. -- END OF ... | 00000730: 53 54 52 55 43 54 55 52 45 0D C5 CE C4 C6 CF D2 |STRUCTURE.......| 00000740: 20 5B 3C 43 4F 4E 54 52 4F 4C 20 56 41 52 49 41 | [<CONTROL VARIA| 00000750: 42 4C 45 3E 5D 0D 0D C5 CE C4 C6 D5 CE C3 20 2D |BLE>]......... -| 00000760: 2D 20 45 4E 44 20 4F 46 20 46 55 4E 43 54 49 4F |- END OF FUNCTIO| 00000770: 4E 0D C5 CE C4 C6 D5 CE C3 20 5B 3C 46 55 4E 43 |N........ [<FUNC| 00000780: 54 49 4F 4E 20 4E 41 4D 45 3E 5D 0D 0D C5 CE C4 |TION NAME>].....| 00000790: C9 C6 20 2D 2D 20 45 4E 44 20 4F 46 20 C9 C6 20 |.. -- END OF .. | 000007A0: 53 54 52 55 43 54 55 52 45 0D C5 CE C4 C9 C6 0D |STRUCTURE.......| 000007B0: 0D C5 CE C4 D0 D2 CF C3 20 2D 2D 20 45 4E 44 20 |........ -- END | 000007C0: 4F 46 20 50 52 4F 43 45 44 55 52 45 0D C5 CE C4 |OF PROCEDURE....| 000007D0: D0 D2 CF C3 20 5B 3C 50 52 4F 43 45 44 55 52 45 |.... [<PROCEDURE| 000007E0: 20 4E 41 4D 45 3E 5D 0D 0D C5 CE C4 D7 C8 C9 CC | NAME>].........| 000007F0: C5 20 2D 2D 20 45 4E 44 20 4F 46 20 D7 C8 C9 CC |. -- END OF ....| 00000800: C5 20 53 54 52 55 43 54 55 52 45 0D C5 CE C4 D7 |. STRUCTURE.....| 00000810: C8 C9 CC C5 0D 0D C5 CE D4 C5 D2 20 2D 2D 20 4D |........... -- M| 00000820: 45 52 47 45 20 CC C9 D3 D4 45 44 20 50 52 4F 47 |ERGE ....ED PROG| 00000830: 52 41 4D 20 53 45 47 4D 45 4E 54 0D 46 52 4F 4D |RAM SEGMENT.FROM| 00000840: 20 44 49 53 4B 0D C5 CE D4 C5 D2 20 3C 46 49 4C | DISK...... <FIL| 00000850: 45 4E 41 4D 45 3E 0D 0D C5 CF C4 20 2D 2D 20 C5 |ENAME>..... -- .| 00000860: 4E 44 20 CF 46 20 C4 41 54 41 20 46 4C 41 47 0D |ND .F .ATA FLAG.| 00000870: C5 CF C4 0D 0D C5 CF C6 20 2D 2D 20 C5 4E 44 20 |........ -- .ND | 00000880: CF 46 20 C6 49 4C 45 20 46 4C 41 47 0D C5 CF C6 |.F .ILE FLAG....| 00000890: 28 3C 46 49 4C 45 4E 55 4D 3E 29 0D 0D C5 D3 C3 |(<FILENUM>).....| 000008A0: 20 2D 2D 20 53 54 4F 50 20 4B 45 59 20 50 52 45 | -- STOP KEY PRE| 000008B0: 53 53 45 44 20 46 4C 41 47 0D C5 D3 C3 0D D4 D2 |SSED FLAG.......| 000008C0: C1 D0 20 C5 D3 C3 3C 54 59 50 45 3E 0D 0D C5 D8 |.. ...<TYPE>....| 000008D0: C5 C3 20 2D 2D 20 45 58 45 43 55 54 45 20 41 20 |.. -- EXECUTE A | 000008E0: 50 52 4F 43 45 44 55 52 45 0D 5B C5 D8 C5 C3 5D |PROCEDURE.[....]| 000008F0: 20 3C 50 52 4F 43 4E 41 4D 45 3E 5B 28 3C 50 41 | <PROCNAME>[(<PA| 00000900: 52 41 4D 45 54 45 52 20 4C 49 53 54 3E 29 5D 0D |RAMETER LIST>)].| 00000910: 0D C5 D8 D0 20 2D 2D 20 52 45 54 55 52 4E 53 20 |.... -- RETURNS | 00000920: 45 5E 4E 20 28 45 3D 42 41 53 45 20 4F 46 20 4E |E^N (E=BASE OF N| 00000930: 41 54 55 52 41 4C 0D 4C 4F 47 53 3D 32 2E 31 38 |ATURAL.LOGS=2.18| 00000940: 32 38 31 38 32 38 34 35 39 30 34 35 2B 29 0D C5 |281828459045+)..| 00000950: D8 D0 28 3C 4E 55 4D 45 52 49 43 20 45 58 50 52 |..(<NUMERIC EXPR| 00000960: 45 53 53 49 4F 4E 3E 29 0D 0D C6 C1 CC D3 C5 20 |ESSION>)....... | 00000970: 2D 2D 20 50 52 45 44 45 46 49 4E 45 44 20 56 41 |-- PREDEFINED VA| 00000980: 4C 55 45 20 3D 20 30 0D C6 C1 CC D3 C5 0D 0D C6 |LUE = 0.........| 00000990: C9 CC C5 20 2D 2D 20 53 50 45 43 49 46 49 45 53 |... -- SPECIFIES| 000009A0: 20 46 49 4C 45 20 C9 2F CF 20 49 53 20 54 4F 20 | FILE ./. IS TO | 000009B0: 42 45 0D 55 53 45 44 0D C9 CE D0 D5 D4 20 C6 C9 |BE.USED...... ..| 000009C0: CC C5 20 3C 46 49 4C 45 23 3E 5B 2C 3C 52 45 43 |.. <FILE#>[,<REC| 000009D0: 23 3E 5D 3A 20 3C 56 41 52 4C 49 53 54 3E 0D D0 |#>]: <VARLIST>..| 000009E0: D2 C9 CE D4 20 C6 C9 CC C5 20 3C 46 49 4C 45 23 |.... .... <FILE#| 000009F0: 3E 5B 2C 3C 52 45 43 23 3E 5D 3A 20 3C 56 41 52 |>[,<REC#>]: <VAR| 00000A00: 4C 49 53 54 3E 0D D2 C5 C1 C4 20 20 C6 C9 CC C5 |LIST>..... ....| 00000A10: 20 3C 46 49 4C 45 23 3E 5B 2C 3C 52 45 43 23 3E | <FILE#>[,<REC#>| 00000A20: 5D 3A 20 3C 56 41 52 4C 49 53 54 3E 0D D7 D2 C9 |]: <VARLIST>....| 00000A30: D4 C5 20 C6 C9 CC C5 20 3C 46 49 4C 45 23 3E 5B |.. .... <FILE#>[| 00000A40: 2C 3C 52 45 43 23 3E 5D 3A 20 3C 56 41 52 4C 49 |,<REC#>]: <VARLI| 00000A50: 53 54 3E 0D CF D0 C5 CE 20 5B C6 C9 CC C5 5D 20 |ST>..... [....] | 00000A60: 3C 46 49 4C 45 23 3E 2C 3C 46 49 4C 45 4E 41 4D |<FILE#>,<FILENAM| 00000A70: 3E 5B 2C 3C 54 59 50 45 3E 5D 0D C3 CC CF D3 C5 |>[,<TYPE>]......| 00000A80: 20 5B 5B C6 C9 CC C5 5D 20 3C 46 49 4C 45 23 3E | [[....] <FILE#>| 00000A90: 5D 0D 0D C6 CF D2 20 2D 2D 20 53 54 41 52 54 20 |]..... -- START | 00000AA0: 4F 46 20 C6 CF D2 20 4C 4F 4F 50 20 53 54 52 55 |OF ... LOOP STRU| 00000AB0: 43 54 55 52 45 0D C6 CF D2 20 3C 56 41 52 3E 3A |CTURE.... <VAR>:| 00000AC0: 3D 3C 53 54 41 52 54 3E 20 D4 CF 20 3C 45 4E 44 |=<START> .. <END| 00000AD0: 3E 20 5B D3 D4 C5 D0 20 3C 53 3E 5D 0D 0D C6 D5 |> [.... <S>]....| 00000AE0: CE C3 20 2D 2D 20 53 54 41 52 54 20 4F 46 20 41 |.. -- START OF A| 00000AF0: 20 4D 55 4C 54 49 4C 49 4E 45 20 46 55 4E 43 54 | MULTILINE FUNCT| 00000B00: 49 4F 4E 0D C6 D5 CE C3 20 3C 4E 41 4D 45 3E 5B |ION..... <NAME>[| 00000B10: 28 3C 50 41 52 41 4D 53 3E 29 5D 20 5B C3 CC CF |(<PARAMS>)] [...| 00000B20: D3 C5 C4 5D 0D 0D C7 CF D4 CF 20 2D 2D 20 47 4F |...]...... -- GO| 00000B30: 20 54 4F 20 4C 49 4E 45 20 57 49 54 48 20 54 48 | TO LINE WITH TH| 00000B40: 49 53 20 4C 41 42 45 4C 0D C7 CF D4 CF 20 3C 4C |IS LABEL..... <L| 00000B50: 41 42 45 4C 20 4E 41 4D 45 3E 0D 0D C9 C6 20 2D |ABEL NAME>.... -| 00000B60: 2D 20 53 54 41 52 54 20 4F 46 20 43 4F 4E 44 49 |- START OF CONDI| 00000B70: 54 49 4F 4E 41 4C 20 C9 C6 0D 53 54 52 55 43 54 |TIONAL ...STRUCT| 00000B80: 55 52 45 0D C9 C6 20 3C 43 4F 4E 44 49 54 49 4F |URE... <CONDITIO| 00000B90: 4E 3E 20 5B D4 C8 C5 CE 5D 0D C9 C6 20 3C 43 4F |N> [....]... <CO| 00000BA0: 4E 44 49 54 49 4F 4E 3E 20 D4 C8 C5 CE 20 3C 53 |NDITION> .... <S| 00000BB0: 54 41 54 45 4D 45 4E 54 3E 0D 0D C9 CE 20 2D 2D |TATEMENT>.... --| 00000BC0: 20 52 45 54 55 52 4E 53 20 50 4F 53 49 54 49 4F | RETURNS POSITIO| 00000BD0: 4E 20 4F 46 20 53 54 52 49 4E 47 31 0D 57 49 54 |N OF STRING1.WIT| 00000BE0: 48 49 4E 20 53 54 52 49 4E 47 32 0D 3C 53 54 52 |HIN STRING2.<STR| 00000BF0: 49 4E 47 31 3E 20 C9 CE 20 3C 53 54 52 49 4E 47 |ING1> .. <STRING| 00000C00: 32 3E 0D 0D C9 CE D0 D5 D4 20 2D 2D 20 49 4E 50 |2>....... -- INP| 00000C10: 55 54 20 46 52 4F 4D 20 4B 45 59 42 4F 41 52 44 |UT FROM KEYBOARD| 00000C20: 20 4F 52 20 46 49 4C 45 0D C9 CE D0 D5 D4 20 5B | OR FILE...... [| 00000C30: 3C 50 52 4F 4D 50 54 3E 3A 5D 20 3C 56 41 52 4C |<PROMPT>:] <VARL| 00000C40: 49 53 54 3E 0D C9 CE D0 D5 D4 20 C6 C9 CC C5 20 |IST>...... .... | 00000C50: 3C 46 49 4C 45 23 3E 5B 2C 3C 52 45 43 23 3E 5D |<FILE#>[,<REC#>]| 00000C60: 3A 3C 56 41 52 4C 49 53 54 3E 0D 0D C9 CE D4 20 |:<VARLIST>..... | 00000C70: 2D 2D 20 52 45 54 55 52 4E 53 20 54 52 55 4E 43 |-- RETURNS TRUNC| 00000C80: 41 54 45 44 20 49 4E 54 45 47 45 52 20 56 41 4C |ATED INTEGER VAL| 00000C90: 55 45 0D C9 CE D4 28 3C 4E 55 4D 45 52 49 43 20 |UE....(<NUMERIC | 00000CA0: 45 58 50 52 45 53 53 49 4F 4E 3E 29 0D 0D CB C5 |EXPRESSION>)....| 00000CB0: D9 24 20 2D 2D 20 43 55 52 52 45 4E 54 20 4B 45 |.$ -- CURRENT KE| 00000CC0: 59 20 50 52 45 53 53 45 44 0D CB C5 D9 24 0D 0D |Y PRESSED....$..| 00000CD0: CC C1 C2 C5 CC 20 2D 2D 20 41 53 53 49 47 4E 20 |..... -- ASSIGN | 00000CE0: 41 20 4C 41 42 45 4C 0D 3C 4C 41 42 45 4C 20 4E |A LABEL.<LABEL N| 00000CF0: 41 4D 45 3E 3A 0D 0D CC C5 CE 20 2D 2D 20 52 45 |AME>:..... -- RE| 00000D00: 54 55 52 4E 53 20 53 54 52 49 4E 47 20 4C 45 4E |TURNS STRING LEN| 00000D10: 47 54 48 0D CC C5 CE 28 3C 53 54 52 49 4E 47 20 |GTH....(<STRING | 00000D20: 45 58 50 52 45 53 53 49 4F 4E 3E 29 0D 0D CC C5 |EXPRESSION>)....| 00000D30: D4 20 2D 2D 20 41 53 53 49 47 4E 20 56 41 4C 55 |. -- ASSIGN VALU| 00000D40: 45 20 54 4F 20 56 41 52 49 41 42 4C 45 0D 3A 3D |E TO VARIABLE.:=| 00000D50: 20 20 20 4F 52 20 20 20 3A 2B 20 20 20 20 4F 52 | OR :+ OR| 00000D60: 20 20 20 3A 2D 0D C1 3A 2B C2 20 2D 3E 20 C1 3A | :-..:+. -> .:| 00000D70: 3D C1 2B C2 3B 20 20 C1 3A 2D C2 20 2D 3E 20 C1 |=.+.; .:-. -> .| 00000D80: 3A 3D C1 2D C2 0D 0D CC C9 D3 D4 20 2D 2D 20 4C |:=.-....... -- L| 00000D90: 49 53 54 20 50 52 4F 47 52 41 4D 0D CC C9 D3 D4 |IST PROGRAM.....| 00000DA0: 20 5B 3C 52 41 4E 47 45 3E 5D 20 5B 3C 46 49 4C | [<RANGE>] [<FIL| 00000DB0: 45 4E 41 4D 45 3E 5D 0D CC C9 D3 D4 20 3C 46 49 |ENAME>]..... <FI| 00000DC0: 4C 45 4E 41 4D 45 3E 20 50 55 54 53 20 4C 49 53 |LENAME> PUTS LIS| 00000DD0: 54 20 46 49 4C 45 20 4F 4E 20 44 49 53 4B 0D 0D |T FILE ON DISK..| 00000DE0: CC CF C1 C4 20 2D 2D 20 4C 4F 41 44 20 41 20 50 |.... -- LOAD A P| 00000DF0: 52 4F 47 52 41 4D 20 46 52 4F 4D 20 44 49 53 4B |ROGRAM FROM DISK| 00000E00: 0D CC CF C1 C4 20 3C 46 49 4C 45 4E 41 4D 45 3E |..... <FILENAME>| 00000E10: 0D 0D CC CF C7 20 2D 2D 20 52 45 54 55 52 4E 53 |..... -- RETURNS| 00000E20: 20 4E 41 54 55 52 41 4C 20 4C 4F 47 41 52 49 54 | NATURAL LOGARIT| 00000E30: 48 4D 20 4F 46 20 4E 0D CC CF C7 28 3C 4E 55 4D |HM OF N....(<NUM| 00000E40: 45 52 49 43 20 45 58 50 52 45 53 53 49 4F 4E 3E |ERIC EXPRESSION>| 00000E50: 29 0D 0D CD CF C4 20 2D 2D 20 52 45 4D 41 49 4E |)..... -- REMAIN| 00000E60: 44 45 52 20 4F 46 20 44 49 56 49 53 49 4F 4E 20 |DER OF DIVISION | 00000E70: 28 4D 4F 44 55 4C 4F 29 0D 3C 44 49 56 49 44 45 |(MODULO).<DIVIDE| 00000E80: 4E 44 3E 20 CD CF C4 20 3C 44 49 56 49 53 4F 52 |ND> ... <DIVISOR| 00000E90: 3E 0D 0D CE C5 D7 20 2D 2D 20 43 4C 45 41 52 53 |>..... -- CLEARS| 00000EA0: 20 50 52 4F 47 52 41 4D 20 46 52 4F 4D 20 4D 45 | PROGRAM FROM ME| 00000EB0: 4D 4F 52 59 0D CE C5 D7 0D 0D CE C5 D8 D4 20 2D |MORY.......... -| 00000EC0: 2D 20 41 4C 54 45 52 4E 41 54 45 20 46 4F 52 4D |- ALTERNATE FORM| 00000ED0: 20 4F 46 20 C5 CE C4 C6 CF D2 0D CE C5 D8 D4 20 | OF ........... | 00000EE0: 5B 3C 43 4F 4E 54 52 4F 4C 20 56 41 52 49 41 42 |[<CONTROL VARIAB| 00000EF0: 4C 45 3E 5D 0D 0D CE CF D4 20 2D 2D 20 4C 4F 47 |LE>]..... -- LOG| 00000F00: 49 43 41 4C 20 CE CF D4 0D CE CF D4 20 3C 43 4F |ICAL ....... <CO| 00000F10: 4E 44 49 54 49 4F 4E 3E 0D 0D CE D5 CC CC 20 2D |NDITION>...... -| 00000F20: 2D 20 44 4F 45 53 20 4E 4F 54 48 49 4E 47 20 28 |- DOES NOTHING (| 00000F30: 4E 4F 20 4F 50 29 0D CE D5 CC CC 0D 0D CF C6 20 |NO OP)......... | 00000F40: 2D 2D 20 50 41 52 54 20 4F 46 20 C4 C9 CD 20 4F |-- PART OF ... O| 00000F50: 52 20 C3 C1 D3 C5 20 53 54 52 55 43 54 55 52 45 |R .... STRUCTURE| 00000F60: 0D C3 C1 D3 C5 20 3C 45 58 50 52 45 53 53 49 4F |..... <EXPRESSIO| 00000F70: 4E 3E 20 5B CF C6 5D 0D C4 C9 CD 20 3C 53 54 52 |N> [..].... <STR| 00000F80: 49 4E 47 56 41 52 3E 20 CF C6 20 3C 4D 41 58 20 |INGVAR> .. <MAX | 00000F90: 43 48 41 52 3E 0D C4 C9 CD 20 3C 53 54 52 49 4E |CHAR>.... <STRIN| 00000FA0: 47 41 52 52 41 59 3E 28 49 4E 44 45 58 29 20 CF |GARRAY>(INDEX) .| 00000FB0: C6 20 3C 4D 41 58 20 43 48 41 52 3E 0D 0D CF D0 |. <MAX CHAR>....| 00000FC0: C5 CE 20 2D 2D 20 4F 50 45 4E 20 41 20 46 49 4C |.. -- OPEN A FIL| 00000FD0: 45 0D CF D0 C5 CE 20 5B C6 C9 CC C5 5D 20 3C 46 |E..... [....] <F| 00000FE0: 49 4C 45 23 3E 2C 3C 46 49 4C 45 4E 41 4D 3E 5B |ILE#>,<FILENAM>[| 00000FF0: 2C D5 CE C9 D4 0D 3C 44 45 56 3E 5B 2C 3C 53 45 |,.....<DEV>[,<SE| 00001000: 43 4F 4E 44 41 52 59 20 41 44 44 52 45 53 53 3E |CONDARY ADDRESS>| 00001010: 5D 5D 5B 2C 3C 54 59 50 45 3E 5D 0D 0D CF D2 20 |]][,<TYPE>].... | 00001020: 2D 2D 20 4C 4F 47 49 43 41 4C 20 CF D2 0D 3C 43 |-- LOGICAL ...<C| 00001030: 4F 4E 44 49 54 49 4F 4E 3E 20 CF D2 20 3C 43 4F |ONDITION> .. <CO| 00001040: 4E 44 49 54 49 4F 4E 3E 0D 0D CF D2 C4 20 2D 2D |NDITION>..... --| 00001050: 20 52 45 54 55 52 4E 53 20 49 4E 54 45 47 45 52 | RETURNS INTEGER| 00001060: 20 52 45 50 52 45 53 45 4E 54 49 4E 47 0D 43 48 | REPRESENTING.CH| 00001070: 41 52 41 43 54 45 52 3B 20 49 4E 56 45 52 53 45 |ARACTER; INVERSE| 00001080: 20 4F 46 20 C3 C8 D2 24 0D CF D2 C4 28 3C 53 54 | OF ...$....(<ST| 00001090: 52 49 4E 47 20 45 58 50 52 45 53 53 49 4F 4E 3E |RING EXPRESSION>| 000010A0: 29 0D 0D CF D4 C8 C5 D2 D7 C9 D3 C5 20 2D 2D 20 |)........... -- | 000010B0: 44 45 46 41 55 4C 54 20 46 4F 52 20 C3 C1 D3 C5 |DEFAULT FOR ....| 000010C0: 0D CF D4 C8 C5 D2 D7 C9 D3 C5 0D 0D CF D5 D4 D0 |................| 000010D0: D5 D4 20 2D 2D 20 53 45 4C 45 43 54 20 4F 55 54 |.. -- SELECT OUT| 000010E0: 50 55 54 20 4C 4F 43 41 54 49 4F 4E 0D D3 C5 CC |PUT LOCATION....| 000010F0: C5 C3 D4 20 5B CF D5 D4 D0 D5 D4 5D 20 3C 54 59 |... [......] <TY| 00001100: 50 45 3E 0D 3C 54 59 50 45 3E 20 49 53 20 45 49 |PE>.<TYPE> IS EI| 00001110: 54 48 45 52 20 22 C4 D3 3A 22 20 28 46 4F 52 20 |THER "..:" (FOR | 00001120: C4 49 53 50 4C 41 59 0D D3 43 52 45 45 4E 29 20 |.ISPLAY..CREEN) | 00001130: 4F 52 20 22 CC D0 3A 22 20 28 46 4F 52 20 CC 49 |OR "..:" (FOR .I| 00001140: 4E 45 20 D0 52 49 4E 54 45 52 29 0D 0D D0 C1 D3 |NE .RINTER).....| 00001150: D3 20 2D 2D 20 50 41 53 53 20 53 54 52 49 4E 47 |. -- PASS STRING| 00001160: 20 54 4F 20 44 49 53 4B 20 43 4F 4D 4D 41 4E 44 | TO DISK COMMAND| 00001170: 0D 43 48 41 4E 0D D0 C1 D3 D3 20 3C 44 49 53 4B |.CHAN..... <DISK| 00001180: 20 43 4F 4D 4D 41 4E 44 3E 0D 0D D0 C5 C5 CB 20 | COMMAND>...... | 00001190: 2D 2D 20 52 45 54 55 52 4E 53 20 56 41 4C 55 45 |-- RETURNS VALUE| 000011A0: 20 4F 46 20 4D 45 4D 4F 52 59 20 41 54 0D 41 44 | OF MEMORY AT.AD| 000011B0: 44 52 45 53 53 0D D0 C5 C5 CB 28 3C 4D 45 4D 4F |DRESS.....(<MEMO| 000011C0: 52 59 20 41 44 44 52 45 53 53 3E 29 0D 0D D0 CF |RY ADDRESS>)....| 000011D0: CB C5 20 2D 2D 20 43 48 41 4E 47 45 20 4D 45 4D |.. -- CHANGE MEM| 000011E0: 4F 52 59 20 4C 4F 43 41 54 49 4F 4E 0D D0 CF CB |ORY LOCATION....| 000011F0: C5 20 3C 4D 45 4D 4F 52 59 20 41 44 44 52 45 53 |. <MEMORY ADDRES| 00001200: 53 3E 2C 3C 43 4F 4E 54 45 4E 54 53 3E 0D 0D D0 |S>,<CONTENTS>...| 00001210: D2 C9 CE D4 20 2D 2D 20 50 52 49 4E 54 20 49 54 |.... -- PRINT IT| 00001220: 45 4D 53 20 54 4F 0D 53 43 52 45 45 4E 2F 50 52 |EMS TO.SCREEN/PR| 00001230: 49 4E 54 45 52 2F 46 49 4C 45 0D D0 D2 C9 CE D4 |INTER/FILE......| 00001240: 20 5B C6 C9 CC C5 20 3C 23 3E 3A 5D 20 5B 3C 56 | [.... <#>:] [<V| 00001250: 41 52 4C 49 53 54 3E 5D 0D D0 D2 C9 CE D4 20 5B |ARLIST>]...... [| 00001260: C6 C9 CC C5 20 3C 23 3E 3A 5D 20 D5 D3 C9 CE C7 |.... <#>:] .....| 00001270: 0D 3C 46 4F 52 4D 41 54 3E 3A 3C 56 41 52 4C 49 |.<FORMAT>:<VARLI| 00001280: 53 54 3E 0D 28 D2 C1 CE C4 CF CD 20 46 49 4C 45 |ST>.(...... FILE| 00001290: 20 55 53 45 3A 20 5B C6 C9 CC C5 20 3C 23 3E 2C | USE: [.... <#>,| 000012A0: 3C 52 45 43 23 3E 3A 5D 29 0D 0D D0 D2 CF C3 20 |<REC#>:])...... | 000012B0: 2D 2D 20 53 54 41 52 54 20 4F 46 20 4D 55 4C 54 |-- START OF MULT| 000012C0: 49 4C 49 4E 45 20 50 52 4F 43 45 44 55 52 45 0D |ILINE PROCEDURE.| 000012D0: D0 D2 CF C3 20 3C 4E 41 4D 45 3E 5B 28 3C 50 41 |.... <NAME>[(<PA| 000012E0: 52 41 4D 53 3E 29 5D 20 5B C3 CC CF D3 C5 C4 5D |RAMS>)] [......]| 000012F0: 0D 0D D2 C1 CE C4 CF CD 20 2D 2D 20 52 41 4E 44 |........ -- RAND| 00001300: 4F 4D 20 41 43 43 45 53 53 20 46 49 4C 45 20 54 |OM ACCESS FILE T| 00001310: 59 50 45 0D CF D0 C5 CE 20 C6 C9 CC C5 20 3C 23 |YPE..... .... <#| 00001320: 3E 2C 3C 46 49 4C 45 4E 41 4D 3E 2C D2 C1 CE C4 |>,<FILENAM>,....| 00001330: CF CD 20 3C 52 45 43 4C 4E 3E 0D 0D D2 C5 C1 C4 |.. <RECLN>......| 00001340: 20 2D 2D 20 52 45 41 44 20 44 41 54 41 20 46 52 | -- READ DATA FR| 00001350: 4F 4D 20 C4 C1 D4 C1 20 4C 49 4E 45 20 4F 52 0D |OM .... LINE OR.| 00001360: 46 49 4C 45 0D D2 C5 C1 C4 20 3C 56 41 52 4C 49 |FILE..... <VARLI| 00001370: 53 54 3E 0D D2 C5 C1 C4 20 C6 C9 CC C5 20 3C 46 |ST>..... .... <F| 00001380: 49 4C 45 23 3E 5B 2C 3C 52 45 43 23 3E 5D 3A 20 |ILE#>[,<REC#>]: | 00001390: 3C 56 41 52 4C 49 53 54 3E 0D CF D0 C5 CE 20 5B |<VARLIST>..... [| 000013A0: C6 C9 CC C5 5D 20 3C 46 49 4C 45 4E 55 4D 3E 2C |....] <FILENUM>,| 000013B0: 3C 46 49 4C 45 4E 41 4D 45 3E 2C D2 C5 C1 C4 0D |<FILENAME>,.....| 000013C0: 0D D2 C5 C6 20 2D 2D 20 44 45 53 49 47 4E 41 54 |.... -- DESIGNAT| 000013D0: 45 53 20 43 41 4C 4C 20 42 59 20 52 45 46 45 52 |ES CALL BY REFER| 000013E0: 45 4E 43 45 0D 50 41 52 41 4D 45 54 45 52 20 49 |ENCE.PARAMETER I| 000013F0: 4E 20 D0 D2 CF C3 20 4F 52 20 C6 D5 CE C3 0D D2 |N .... OR ......| 00001400: C5 C6 20 3C 56 41 52 3E 0D 0D D2 C5 CE D5 CD 20 |.. <VAR>....... | 00001410: 2D 2D 20 52 45 4E 55 4D 42 45 52 20 50 52 4F 47 |-- RENUMBER PROG| 00001420: 52 41 4D 0D D2 C5 CE D5 CD 20 5B 3C 54 41 52 47 |RAM...... [<TARG| 00001430: 45 54 53 54 41 52 54 3E 5D 5B 2C 3C 49 4E 43 52 |ETSTART>][,<INCR| 00001440: 45 4D 45 4E 54 3E 5D 0D 0D D2 C5 D0 C5 C1 D4 20 |EMENT>]........ | 00001450: 2D 2D 20 53 54 41 52 54 20 4F 46 20 D2 C5 D0 C5 |-- START OF ....| 00001460: C1 D4 20 53 54 52 55 43 54 55 52 45 0D D2 C5 D0 |.. STRUCTURE....| 00001470: C5 C1 D4 0D 0D D2 C5 D3 D4 CF D2 C5 20 2D 2D 20 |............ -- | 00001480: 52 45 55 53 45 20 C4 C1 D4 C1 20 57 49 54 48 20 |REUSE .... WITH | 00001490: D2 C5 C1 C4 0D D2 C5 D3 D4 CF D2 C5 0D 0D D2 CE |................| 000014A0: C4 20 2D 2D 20 52 45 54 55 52 4E 53 20 52 41 4E |. -- RETURNS RAN| 000014B0: 44 4F 4D 20 4E 55 4D 42 45 52 0D D2 CE C4 28 3C |DOM NUMBER....(<| 000014C0: 4E 55 4D 3E 29 0D D2 CE C4 28 3C 53 54 41 52 54 |NUM>)....(<START| 000014D0: 20 4E 55 4D 3E 3A 3C 45 4E 44 20 4E 55 4D 3E 29 | NUM>:<END NUM>)| 000014E0: 0D 0D D2 D5 CE 20 2D 2D 20 52 55 4E 20 50 52 4F |..... -- RUN PRO| 000014F0: 47 52 41 4D 20 4E 4F 57 20 49 4E 20 4D 45 4D 4F |GRAM NOW IN MEMO| 00001500: 52 59 0D D2 D5 CE 0D 0D D3 C1 D6 C5 20 2D 2D 20 |RY.......... -- | 00001510: 52 45 43 4F 52 44 20 50 52 4F 47 52 41 4D 20 4F |RECORD PROGRAM O| 00001520: 4E 20 44 49 53 4B 0D D3 C1 D6 C5 20 3C 46 49 4C |N DISK..... <FIL| 00001530: 45 4E 41 4D 45 3E 0D 0D D3 C5 CC C5 C3 D4 20 2D |ENAME>........ -| 00001540: 2D 20 43 48 4F 4F 53 45 20 4F 55 54 50 55 54 20 |- CHOOSE OUTPUT | 00001550: 4C 4F 43 41 54 49 4F 4E 0D D3 C5 CC C5 C3 D4 20 |LOCATION....... | 00001560: 5B CF D5 D4 D0 D5 D4 5D 20 3C 54 59 50 45 3E 0D |[......] <TYPE>.| 00001570: 3C 54 59 50 45 3E 20 49 53 20 45 49 54 48 45 52 |<TYPE> IS EITHER| 00001580: 20 22 C4 D3 3A 22 20 28 46 4F 52 20 C4 49 53 50 | "..:" (FOR .ISP| 00001590: 4C 41 59 0D D3 43 52 45 45 4E 29 20 4F 52 20 22 |LAY..CREEN) OR "| 000015A0: CC D0 3A 22 20 28 46 4F 52 20 CC 49 4E 45 20 D0 |..:" (FOR .INE .| 000015B0: 52 49 4E 54 45 52 29 0D 0D D3 C7 CE 20 2D 2D 20 |RINTER)..... -- | 000015C0: 52 45 54 55 52 4E 53 20 2D 31 20 49 46 20 4E 45 |RETURNS -1 IF NE| 000015D0: 47 41 54 49 56 45 2C 20 30 20 49 46 0D 5A 45 52 |GATIVE, 0 IF.ZER| 000015E0: 4F 2C 20 31 20 49 46 20 50 4F 53 49 54 49 56 45 |O, 1 IF POSITIVE| 000015F0: 0D D3 C7 CE 28 3C 4E 55 4D 45 52 49 43 20 45 58 |....(<NUMERIC EX| 00001600: 50 52 45 53 53 49 4F 4E 3E 29 0D 0D D3 C9 CE 20 |PRESSION>)..... | 00001610: 2D 2D 20 52 45 54 55 52 4E 53 20 53 49 4E 45 20 |-- RETURNS SINE | 00001620: 28 41 4E 47 4C 45 20 49 4E 20 52 41 44 49 41 4E |(ANGLE IN RADIAN| 00001630: 53 29 0D D3 C9 CE 28 3C 4E 55 4D 45 52 49 43 20 |S)....(<NUMERIC | 00001640: 45 58 50 52 45 53 53 49 4F 4E 3E 29 0D 0D D3 C9 |EXPRESSION>)....| 00001650: DA C5 20 2D 2D 20 53 48 4F 57 20 41 4D 4F 55 4E |.. -- SHOW AMOUN| 00001660: 54 20 4F 46 20 46 52 45 45 20 4D 45 4D 4F 52 59 |T OF FREE MEMORY| 00001670: 0D D3 C9 DA C5 0D 0D D3 D1 D2 20 2D 2D 20 52 45 |.......... -- RE| 00001680: 54 55 52 4E 53 20 53 51 55 41 52 45 20 52 4F 4F |TURNS SQUARE ROO| 00001690: 54 0D D3 D1 D2 28 3C 4E 55 4D 45 52 49 43 20 45 |T....(<NUMERIC E| 000016A0: 58 50 52 45 53 53 49 4F 4E 3E 29 0D 0D D3 D4 C1 |XPRESSION>).....| 000016B0: D4 D5 D3 24 20 2D 2D 20 44 49 53 50 4C 41 59 53 |...$ -- DISPLAYS| 000016C0: 20 4F 52 20 52 45 54 55 52 4E 53 20 44 49 53 4B | OR RETURNS DISK| 000016D0: 0D 43 48 41 4E 4E 45 4C 20 53 54 41 54 55 53 0D |.CHANNEL STATUS.| 000016E0: D3 D4 C1 D4 D5 D3 24 0D 0D D3 D4 C5 D0 20 2D 2D |......$...... --| 000016F0: 20 49 4E 43 52 45 4D 45 4E 54 20 C6 CF D2 20 4C | INCREMENT ... L| 00001700: 4F 4F 50 20 42 59 20 54 48 49 53 0D 41 4D 4F 55 |OOP BY THIS.AMOU| 00001710: 4E 54 0D D3 D4 C5 D0 20 3C 4E 55 4D 45 52 49 43 |NT..... <NUMERIC| 00001720: 20 45 58 50 52 45 53 53 49 4F 4E 3E 0D 0D D3 D4 | EXPRESSION>....| 00001730: CF D0 20 2D 2D 20 48 41 4C 54 20 50 52 4F 47 52 |.. -- HALT PROGR| 00001740: 41 4D 20 45 58 45 43 55 54 49 4F 4E 0D D3 D4 CF |AM EXECUTION....| 00001750: D0 0D 0D D3 D9 D3 20 2D 2D 20 54 52 41 4E 53 46 |...... -- TRANSF| 00001760: 45 52 20 43 4F 4E 54 52 4F 4C 20 54 4F 20 4D 41 |ER CONTROL TO MA| 00001770: 43 48 49 4E 45 0D 43 4F 44 45 0D D3 D9 D3 28 3C |CHINE.CODE....(<| 00001780: 4D 45 4D 4F 52 59 20 41 44 44 52 45 53 53 3E 29 |MEMORY ADDRESS>)| 00001790: 0D 0D D4 C1 C2 20 2D 2D 20 50 52 49 4E 54 20 53 |..... -- PRINT S| 000017A0: 50 41 43 45 53 20 54 4F 20 53 50 45 43 49 46 49 |PACES TO SPECIFI| 000017B0: 45 44 0D 43 4F 4C 55 4D 4E 0D D4 C1 C2 28 3C 43 |ED.COLUMN....(<C| 000017C0: 4F 4C 55 4D 4E 20 4E 55 4D 42 45 52 3E 29 0D 0D |OLUMN NUMBER>)..| 000017D0: D4 C1 CE 20 2D 2D 20 52 45 54 55 52 4E 53 20 54 |... -- RETURNS T| 000017E0: 41 4E 47 45 4E 54 20 28 41 4E 47 4C 45 20 49 4E |ANGENT (ANGLE IN| 000017F0: 0D 52 41 44 49 41 4E 53 29 0D D4 C1 CE 28 3C 4E |.RADIANS)....(<N| 00001800: 55 4D 45 52 49 43 20 45 58 50 52 45 53 53 49 4F |UMERIC EXPRESSIO| 00001810: 4E 3E 29 0D 0D D4 C8 C5 CE 20 2D 2D 20 50 41 52 |N>)...... -- PAR| 00001820: 54 20 4F 46 20 C9 C6 20 53 54 52 55 43 54 55 52 |T OF .. STRUCTUR| 00001830: 45 0D D4 C8 C5 CE 0D 0D D4 CF 20 2D 2D 20 49 4E |E......... -- IN| 00001840: 43 52 45 4D 45 4E 54 20 C6 CF D2 20 56 41 52 49 |CREMENT ... VARI| 00001850: 41 42 4C 45 20 53 54 41 52 54 20 D4 CF 0D 45 4E |ABLE START ...EN| 00001860: 44 0D 3C 53 54 41 52 54 20 4E 55 4D 3E 20 D4 CF |D.<START NUM> ..| 00001870: 20 3C 45 4E 44 20 4E 55 4D 3E 0D 0D D4 D2 C1 D0 | <END NUM>......| 00001880: 20 2D 2D 20 44 49 53 41 42 4C 45 20 53 54 4F 50 | -- DISABLE STOP| 00001890: 20 4B 45 59 0D D4 D2 C1 D0 20 C5 D3 C3 3C 54 59 | KEY..... ...<TY| 000018A0: 50 45 3E 0D 0D D4 D2 D5 C5 20 2D 2D 20 50 52 45 |PE>...... -- PRE| 000018B0: 44 45 46 49 4E 45 44 20 56 41 4C 55 45 20 4F 46 |DEFINED VALUE OF| 000018C0: 20 31 0D D4 D2 D5 C5 0D 0D D5 CE C9 D4 20 2D 2D | 1........... --| 000018D0: 20 53 50 45 43 49 46 59 20 55 4E 49 54 20 28 44 | SPECIFY UNIT (D| 000018E0: 45 56 49 43 45 29 0D CF D0 C5 CE 20 5B C6 C9 CC |EVICE)..... [...| 000018F0: C5 5D 20 3C 46 49 4C 45 23 3E 2C 3C 46 49 4C 45 |.] <FILE#>,<FILE| 00001900: 4E 41 4D 3E 5B 2C D5 CE C9 D4 0D 3C 44 45 56 3E |NAM>[,.....<DEV>| 00001910: 5B 2C 3C 53 45 43 4F 4E 44 41 52 59 20 41 44 44 |[,<SECONDARY ADD| 00001920: 52 45 53 53 3E 5D 5D 5B 2C 3C 54 59 50 45 3E 5D |RESS>]][,<TYPE>]| 00001930: 0D 0D D5 CE D4 C9 CC 20 2D 2D 20 45 4E 44 20 4F |....... -- END O| 00001940: 46 20 D2 C5 D0 C5 C1 D4 20 4C 4F 4F 50 0D D5 CE |F ...... LOOP...| 00001950: D4 C9 CC 20 3C 45 58 50 52 45 53 53 49 4F 4E 3E |... <EXPRESSION>| 00001960: 0D 0D D5 D3 C9 CE C7 20 2D 2D 20 46 4F 52 4D 41 |....... -- FORMA| 00001970: 54 54 45 44 20 4F 55 54 50 55 54 0D D0 D2 C9 CE |TTED OUTPUT.....| 00001980: D4 20 D5 D3 C9 CE C7 20 3C 46 4F 52 4D 41 54 3E |. ..... <FORMAT>| 00001990: 3A 20 3C 56 41 52 4C 49 53 54 3E 0D 0D D7 C8 C5 |: <VARLIST>.....| 000019A0: CE 20 2D 2D 20 43 48 4F 49 43 45 20 49 4E 20 C3 |. -- CHOICE IN .| 000019B0: C1 D3 C5 20 53 54 52 55 43 54 55 52 45 0D D7 C8 |... STRUCTURE...| 000019C0: C5 CE 20 3C 4C 49 53 54 20 4F 46 20 56 41 4C 55 |.. <LIST OF VALU| 000019D0: 45 53 3E 0D 0D D7 C8 C9 CC C5 20 2D 2D 20 53 54 |ES>....... -- ST| 000019E0: 41 52 54 20 4F 46 20 D7 C8 C9 CC C5 20 53 54 52 |ART OF ..... STR| 000019F0: 55 43 54 55 52 45 0D D7 C8 C9 CC C5 20 3C 45 58 |UCTURE...... <EX| 00001A00: 50 52 45 53 53 49 4F 4E 3E 20 5B C4 CF 5D 20 5B |PRESSION> [..] [| 00001A10: 3C 53 54 41 54 45 4D 45 4E 54 3E 5D 0D 0D D7 D2 |<STATEMENT>]....| 00001A20: C9 D4 C5 20 2D 2D 20 57 52 49 54 45 20 54 4F 20 |... -- WRITE TO | 00001A30: 41 20 46 49 4C 45 0D D7 D2 C9 D4 C5 20 C6 C9 CC |A FILE...... ...| 00001A40: C5 20 3C 46 49 4C 45 23 3E 5B 2C 3C 52 45 43 23 |. <FILE#>[,<REC#| 00001A50: 3E 5D 3A 20 3C 56 41 52 4C 49 53 54 3E 0D CF D0 |>]: <VARLIST>...| 00001A60: C5 CE 20 5B C6 C9 CC C5 5D 20 3C 46 49 4C 45 4E |.. [....] <FILEN| 00001A70: 55 4D 3E 2C 3C 46 49 4C 45 4E 41 4D 45 3E 2C D7 |UM>,<FILENAME>,.| 00001A80: D2 C9 D4 C5 0D 0D DA CF CE C5 20 2D 2D 20 53 45 |.......... -- SE| 00001A90: 54 53 20 4F 52 20 52 45 54 55 52 4E 53 20 54 41 |TS OR RETURNS TA| 00001AA0: 42 20 49 4E 54 45 52 56 41 4C 0D DA CF CE C5 20 |B INTERVAL..... | 00001AB0: 3C 54 41 42 20 49 4E 54 45 52 56 41 4C 3E 20 2D |<TAB INTERVAL> -| 00001AC0: 20 53 45 54 53 20 49 4E 54 45 52 56 41 4C 0D DA | SETS INTERVAL..| 00001AD0: CF CE C5 20 2D 20 52 45 54 55 52 4E 53 20 49 4E |... - RETURNS IN| 00001AE0: 54 45 52 56 41 4C 20 28 58 3A 3D DA CF CE C5 29 |TERVAL (X:=....)| 00001AF0: 0D 0D C8 C9 C7 C8 2D D2 C5 D3 20 26 20 D4 D5 D2 |......-... & ...| 00001B00: D4 CC C5 20 C7 D2 C1 D0 C8 C9 C3 D3 0D 0D C2 C1 |... ............| 00001B10: C3 CB 20 2D 2D 20 4D 4F 56 45 20 54 55 52 54 4C |.. -- MOVE TURTL| 00001B20: 45 20 42 41 43 4B 57 41 52 44 53 0D C2 C1 C3 CB |E BACKWARDS.....| 00001B30: 20 3C 4C 45 4E 47 54 48 3E 0D 0D C2 C1 C3 CB C7 | <LENGTH>.......| 00001B40: D2 CF D5 CE C4 20 2D 2D 20 53 45 54 20 53 43 52 |..... -- SET SCR| 00001B50: 45 45 4E 20 42 41 43 4B 47 52 4F 55 4E 44 0D 43 |EEN BACKGROUND.C| 00001B60: 4F 4C 4F 52 0D C2 C1 C3 CB C7 D2 CF D5 CE C4 20 |OLOR........... | 00001B70: 3C 43 4F 4C 4F 52 20 4E 55 4D 42 45 52 3E 0D 0D |<COLOR NUMBER>..| 00001B80: C2 CF D2 C4 C5 D2 20 2D 2D 20 53 45 54 20 53 43 |...... -- SET SC| 00001B90: 52 45 45 4E 20 42 4F 52 44 45 52 20 43 4F 4C 4F |REEN BORDER COLO| 00001BA0: 52 0D C2 CF D2 C4 C5 D2 20 3C 43 4F 4C 4F 52 20 |R....... <COLOR | 00001BB0: 4E 55 4D 42 45 52 3E 0D 0D C3 CC C5 C1 D2 20 2D |NUMBER>....... -| 00001BC0: 2D 20 43 4C 45 41 52 20 54 48 45 20 47 52 41 50 |- CLEAR THE GRAP| 00001BD0: 48 49 43 53 20 53 43 52 45 45 4E 0D C3 CC C5 C1 |HICS SCREEN.....| 00001BE0: D2 0D 0D C4 D2 C1 D7 D4 CF 20 2D 2D 20 44 52 41 |......... -- DRA| 00001BF0: 57 20 4C 49 4E 45 20 46 52 4F 4D 20 43 55 52 52 |W LINE FROM CURR| 00001C00: 45 4E 54 20 50 4F 49 4E 54 0D C4 D2 C1 D7 D4 CF |ENT POINT.......| 00001C10: 20 3C 58 20 43 4F 4F 52 44 49 4E 41 54 45 3E 2C | <X COORDINATE>,| 00001C20: 3C 59 20 43 4F 4F 52 44 49 4E 41 54 45 3E 0D 0D |<Y COORDINATE>..| 00001C30: C6 C9 CC CC 20 2D 2D 20 46 49 4C 4C 20 49 4E 20 |.... -- FILL IN | 00001C40: 41 52 45 41 20 57 49 54 48 20 43 55 52 52 45 4E |AREA WITH CURREN| 00001C50: 54 0D 43 4F 4C 4F 52 0D C6 C9 CC CC 20 3C 58 20 |T.COLOR..... <X | 00001C60: 43 4F 4F 52 44 49 4E 41 54 45 3E 2C 3C 59 20 43 |COORDINATE>,<Y C| 00001C70: 4F 4F 52 44 49 4E 41 54 45 3E 0D 0D C6 CF D2 D7 |OORDINATE>......| 00001C80: C1 D2 C4 20 2D 2D 20 4D 4F 56 45 20 54 55 52 54 |... -- MOVE TURT| 00001C90: 4C 45 20 46 4F 52 57 41 52 44 0D C6 CF D2 D7 C1 |LE FORWARD......| 00001CA0: D2 C4 20 3C 4C 45 4E 47 54 48 3E 0D 0D C6 D2 C1 |.. <LENGTH>.....| 00001CB0: CD C5 20 2D 2D 20 53 45 54 20 55 50 20 41 20 53 |.. -- SET UP A S| 00001CC0: 43 52 45 45 4E 20 57 49 4E 44 4F 57 0D C6 D2 C1 |CREEN WINDOW....| 00001CD0: CD C5 20 3C 58 30 3E 2C 3C 58 31 3E 2C 3C 59 30 |.. <X0>,<X1>,<Y0| 00001CE0: 3E 2C 3C 59 31 3E 0D 0D C6 D5 CC CC D3 C3 D2 C5 |>,<Y1>..........| 00001CF0: C5 CE 20 2D 2D 20 46 55 4C 4C 53 43 52 45 45 4E |.. -- FULLSCREEN| 00001D00: 20 47 52 41 50 48 49 43 53 20 28 C6 35 29 0D C6 | GRAPHICS (.5)..| 00001D10: D5 CC CC D3 C3 D2 C5 C5 CE 0D 0D C8 C9 C4 C5 D4 |................| 00001D20: D5 D2 D4 CC C5 20 2D 2D 20 4D 41 4B 45 20 54 48 |..... -- MAKE TH| 00001D30: 45 20 54 55 52 54 4C 45 0D 49 4E 56 49 53 49 42 |E TURTLE.INVISIB| 00001D40: 4C 45 0D C8 C9 C4 C5 D4 D5 D2 D4 CC C5 0D 0D C8 |LE..............| 00001D50: CF CD C5 20 2D 2D 20 50 55 54 20 54 55 52 54 4C |... -- PUT TURTL| 00001D60: 45 20 49 4E 20 49 54 53 20 48 4F 4D 45 0D 50 4F |E IN ITS HOME.PO| 00001D70: 53 49 54 49 4F 4E 0D C8 CF CD C5 0D 0D CC C5 C6 |SITION..........| 00001D80: D4 20 2D 2D 20 54 55 52 4E 20 54 55 52 54 4C 45 |. -- TURN TURTLE| 00001D90: 20 4C 45 46 54 0D CC C5 C6 D4 20 3C 44 45 47 52 | LEFT..... <DEGR| 00001DA0: 45 45 53 3E 0D 0D CD CF D6 C5 D4 CF 20 2D 2D 20 |EES>........ -- | 00001DB0: 4D 4F 56 45 20 54 4F 20 58 2C 59 20 50 4F 49 4E |MOVE TO X,Y POIN| 00001DC0: 54 20 57 49 54 48 4F 55 54 0D 4C 49 4E 45 0D CD |T WITHOUT.LINE..| 00001DD0: CF D6 C5 D4 CF 20 3C 58 20 43 4F 4F 52 44 49 4E |..... <X COORDIN| 00001DE0: 41 54 45 3E 2C 3C 59 20 43 4F 4F 52 44 49 4E 41 |ATE>,<Y COORDINA| 00001DF0: 54 45 3E 0D 0D D0 C5 CE C3 CF CC CF D2 20 2D 2D |TE>.......... --| 00001E00: 20 53 45 54 20 43 55 52 52 45 4E 54 20 50 45 4E | SET CURRENT PEN| 00001E10: 20 43 4F 4C 4F 52 0D D0 C5 CE C3 CF CC CF D2 20 | COLOR......... | 00001E20: 3C 43 4F 4C 4F 52 20 4E 55 4D 42 45 52 3E 0D 0D |<COLOR NUMBER>..| 00001E30: D0 C5 CE C4 CF D7 CE 20 2D 2D 20 50 55 54 20 50 |....... -- PUT P| 00001E40: 45 4E 20 44 4F 57 4E 2D 54 55 52 54 4C 45 20 44 |EN DOWN-TURTLE D| 00001E50: 52 41 57 53 0D 4C 49 4E 45 0D D0 C5 CE C4 CF D7 |RAWS.LINE.......| 00001E60: CE 0D 0D D0 C5 CE D5 D0 20 2D 2D 20 50 49 43 4B |........ -- PICK| 00001E70: 20 55 50 20 50 45 4E 2D 54 55 52 54 4C 45 20 44 | UP PEN-TURTLE D| 00001E80: 4F 45 53 4E 27 54 0D 44 52 41 57 0D D0 C5 CE D5 |OESN'T.DRAW.....| 00001E90: D0 0D 0D D0 CC CF D4 20 2D 2D 20 50 4C 4F 54 20 |....... -- PLOT | 00001EA0: 41 20 50 4F 49 4E 54 20 49 4E 20 43 55 52 52 45 |A POINT IN CURRE| 00001EB0: 4E 54 20 43 4F 4C 4F 52 0D D0 CC CF D4 20 3C 58 |NT COLOR..... <X| 00001EC0: 20 43 4F 4F 52 44 49 4E 41 54 45 3E 2C 3C 59 20 | COORDINATE>,<Y | 00001ED0: 43 4F 4F 52 44 49 4E 41 54 45 3E 0D 0D D0 CC CF |COORDINATE>.....| 00001EE0: D4 D4 C5 D8 D4 20 2D 2D 20 50 52 49 4E 54 20 54 |..... -- PRINT T| 00001EF0: 45 58 54 20 4F 4E 20 47 52 41 50 48 49 43 53 0D |EXT ON GRAPHICS.| 00001F00: 53 43 52 45 45 4E 0D D0 CC CF D4 D4 C5 D8 D4 20 |SCREEN......... | 00001F10: 3C 58 20 43 4F 4F 52 44 49 4E 41 54 45 3E 2C 3C |<X COORDINATE>,<| 00001F20: 59 0D 43 4F 4F 52 44 49 4E 41 54 45 3E 2C 3C 54 |Y.COORDINATE>,<T| 00001F30: 45 58 54 24 3E 0D 0D D2 C9 C7 C8 D4 20 2D 2D 20 |EXT$>....... -- | 00001F40: 54 55 52 4E 20 54 55 52 54 4C 45 20 52 49 47 48 |TURN TURTLE RIGH| 00001F50: 54 0D D2 C9 C7 C8 D4 20 3C 44 45 47 52 45 45 53 |T...... <DEGREES| 00001F60: 3E 0D 0D D3 C5 D4 C7 D2 C1 D0 C8 C9 C3 20 2D 2D |>............ --| 00001F70: 20 54 55 52 4E 20 4F 4E 20 47 52 41 50 48 49 43 | TURN ON GRAPHIC| 00001F80: 53 20 53 43 52 45 45 4E 0D D3 C5 D4 C7 D2 C1 D0 |S SCREEN........| 00001F90: C8 C9 C3 20 5B 3C 54 59 50 45 3E 5D 0D 0D D3 C5 |... [<TYPE>]....| 00001FA0: D4 C8 C5 C1 C4 C9 CE C7 20 2D 2D 20 53 45 54 20 |........ -- SET | 00001FB0: 54 55 52 54 4C 45 20 48 45 41 44 49 4E 47 0D D3 |TURTLE HEADING..| 00001FC0: C5 D4 C8 C5 C1 C4 C9 CE C7 20 3C 44 45 47 52 45 |......... <DEGRE| 00001FD0: 45 3E 0D 0D D3 C5 D4 D4 C5 D8 D4 20 2D 2D 20 54 |E>......... -- T| 00001FE0: 55 52 4E 20 4F 4E 20 54 45 58 54 20 53 43 52 45 |URN ON TEXT SCRE| 00001FF0: 45 4E 20 28 C6 31 29 0D D3 C5 D4 D4 C5 D8 D4 0D |EN (.1).........| 00002000: 0D D3 C5 D4 D8 D9 20 2D 2D 20 53 45 54 20 54 55 |...... -- SET TU| 00002010: 52 54 4C 45 20 58 20 41 4E 44 20 59 0D 43 4F 4F |RTLE X AND Y.COO| 00002020: 52 44 49 4E 41 54 45 53 0D D3 C5 D4 D8 D9 20 3C |RDINATES...... <| 00002030: 58 20 43 4F 4F 52 44 49 4E 41 54 45 3E 2C 3C 59 |X COORDINATE>,<Y| 00002040: 20 43 4F 4F 52 44 49 4E 41 54 45 3E 0D 0D D3 C8 | COORDINATE>....| 00002050: CF D7 D4 D5 D2 D4 CC C5 20 2D 2D 20 4D 41 4B 45 |........ -- MAKE| 00002060: 20 54 55 52 54 4C 45 20 56 49 53 49 42 4C 45 0D | TURTLE VISIBLE.| 00002070: D3 C8 CF D7 D4 D5 D2 D4 CC C5 0D 0D D3 D0 CC C9 |................| 00002080: D4 D3 C3 D2 C5 C5 CE 20 2D 2D 20 32 20 54 45 58 |....... -- 2 TEX| 00002090: 54 20 4C 49 4E 45 53 20 41 42 4F 56 45 0D 47 52 |T LINES ABOVE.GR| 000020A0: 41 50 48 49 43 53 20 53 43 52 45 45 4E 20 28 C6 |APHICS SCREEN (.| 000020B0: 33 29 0D D3 D0 CC C9 D4 D3 C3 D2 C5 C5 CE 0D 0D |3)..............| 000020C0: D4 D5 D2 D4 CC C5 D3 C9 DA C5 20 2D 2D 20 53 45 |.......... -- SE| 000020D0: 54 20 54 55 52 54 4C 45 20 53 49 5A 45 20 28 30 |T TURTLE SIZE (0| 000020E0: 20 54 4F 0D 31 30 29 0D D4 D5 D2 D4 CC C5 D3 C9 | TO.10).........| 000020F0: DA C5 20 3C 53 49 5A 45 3E 0D 0D D3 D0 D2 C9 D4 |.. <SIZE>.......| 00002100: C5 D3 0D 0D C4 C1 D4 C1 C3 CF CC CC C9 D3 C9 CF |................| 00002110: CE 20 2D 2D 20 54 45 53 54 20 43 4F 4C 4C 49 53 |. -- TEST COLLIS| 00002120: 49 4F 4E 20 57 49 54 48 0D 44 41 54 41 0D C4 C1 |ION WITH.DATA...| 00002130: D4 C1 C3 CF CC CC C9 D3 C9 CF CE 20 3C 53 50 52 |........... <SPR| 00002140: 49 54 45 23 3E 2C 3C 52 45 53 45 54 0D 43 4F 4C |ITE#>,<RESET.COL| 00002150: 4C 49 53 49 4F 4E 20 46 4C 41 47 3E 0D 0D C4 C5 |LISION FLAG>....| 00002160: C6 C9 CE C5 20 2D 2D 20 53 45 54 20 55 50 20 53 |.... -- SET UP S| 00002170: 50 52 49 54 45 20 49 4D 41 47 45 20 46 4F 52 0D |PRITE IMAGE FOR.| 00002180: 4C 41 54 45 52 55 53 45 0D C4 C5 C6 C9 CE C5 20 |LATERUSE....... | 00002190: 3C 53 50 52 49 54 45 20 44 45 46 49 4E 49 54 49 |<SPRITE DEFINITI| 000021A0: 4F 4E 20 23 3E 2C 3C 36 34 20 42 59 54 45 0D 44 |ON #>,<64 BYTE.D| 000021B0: 45 46 24 3E 0D 0D C8 C9 C4 C5 D3 D0 D2 C9 D4 C5 |EF$>............| 000021C0: 20 2D 2D 20 54 55 52 4E 20 4F 46 46 20 53 50 45 | -- TURN OFF SPE| 000021D0: 43 49 46 49 45 44 0D 53 50 52 49 54 45 0D C8 C9 |CIFIED.SPRITE...| 000021E0: C4 C5 D3 D0 D2 C9 D4 C5 20 3C 53 50 52 49 54 45 |........ <SPRITE| 000021F0: 20 4E 55 4D 42 45 52 3E 0D 0D C9 C4 C5 CE D4 C9 | NUMBER>........| 00002200: C6 D9 20 2D 2D 20 41 53 53 49 47 4E 20 41 4E 20 |.. -- ASSIGN AN | 00002210: 49 4D 41 47 45 20 54 4F 20 41 0D 53 50 52 49 54 |IMAGE TO A.SPRIT| 00002220: 45 0D C9 C4 C5 CE D4 C9 C6 D9 20 3C 53 50 52 49 |E......... <SPRI| 00002230: 54 45 20 4E 55 4D 42 45 52 3E 2C 3C 44 45 46 49 |TE NUMBER>,<DEFI| 00002240: 4E 49 54 49 4F 4E 23 3E 0D 28 4E 4F 54 45 3A 20 |NITION#>.(NOTE: | 00002250: 53 50 52 49 54 45 20 37 20 49 53 20 55 53 45 44 |SPRITE 7 IS USED| 00002260: 20 46 4F 52 20 54 55 52 54 4C 45 29 0D 0D D0 D2 | FOR TURTLE)....| 00002270: C9 CF D2 C9 D4 D9 20 2D 2D 20 44 41 54 41 20 50 |...... -- DATA P| 00002280: 52 49 4F 52 49 54 59 20 4F 56 45 52 20 53 50 52 |RIORITY OVER SPR| 00002290: 49 54 45 3F 0D D0 D2 C9 CF D2 C9 D4 D9 20 3C 53 |ITE?......... <S| 000022A0: 50 52 49 54 45 20 23 3E 2C 3C 44 41 54 41 20 50 |PRITE #>,<DATA P| 000022B0: 52 49 4F 52 49 54 59 3F 3E 0D 0D D3 D0 D2 C9 D4 |RIORITY?>.......| 000022C0: C5 C2 C1 C3 CB 20 2D 2D 20 53 45 54 20 32 20 53 |..... -- SET 2 S| 000022D0: 50 52 49 54 45 20 4D 55 4C 54 49 43 4F 4C 4F 52 |PRITE MULTICOLOR| 000022E0: 53 0D D3 D0 D2 C9 D4 C5 C2 C1 C3 CB 20 3C 43 4F |S........... <CO| 000022F0: 4C 4F 52 31 3E 2C 3C 43 4F 4C 4F 52 32 3E 0D 0D |LOR1>,<COLOR2>..| 00002300: D3 D0 D2 C9 D4 C5 C3 CF CC CC C9 D3 C9 CF CE 20 |............... | 00002310: 2D 2D 20 54 45 53 54 20 53 50 52 49 54 45 0D 43 |-- TEST SPRITE.C| 00002320: 4F 4C 4C 49 53 49 4F 4E 0D D3 D0 D2 C9 D4 C5 C3 |OLLISION........| 00002330: CF CC CC C9 D3 C9 CF CE 20 3C 53 50 52 49 54 45 |........ <SPRITE| 00002340: 23 3E 2C 3C 52 45 53 45 54 0D 43 4F 4C 4C 49 53 |#>,<RESET.COLLIS| 00002350: 49 4F 4E 20 46 4C 41 47 3E 0D 0D D3 D0 D2 C9 D4 |ION FLAG>.......| 00002360: C5 C3 CF CC CF D2 20 2D 2D 20 53 45 54 20 53 50 |...... -- SET SP| 00002370: 52 49 54 45 20 43 4F 4C 4F 52 0D D3 D0 D2 C9 D4 |RITE COLOR......| 00002380: C5 C3 CF CC CF D2 20 3C 53 50 52 49 54 45 20 23 |...... <SPRITE #| 00002390: 3E 2C 3C 43 4F 4C 4F 52 20 4E 55 4D 42 45 52 3E |>,<COLOR NUMBER>| 000023A0: 0D 0D D3 D0 D2 C9 D4 C5 D0 CF D3 20 2D 2D 20 50 |........... -- P| 000023B0: 55 54 20 53 50 52 49 54 45 20 41 54 20 58 2C 59 |UT SPRITE AT X,Y| 000023C0: 0D 4C 4F 43 41 54 49 4F 4E 0D D3 D0 D2 C9 D4 C5 |.LOCATION.......| 000023D0: D0 CF D3 20 3C 53 50 52 49 54 45 23 3E 2C 3C 58 |... <SPRITE#>,<X| 000023E0: 20 43 4F 4F 52 44 49 4E 41 54 45 3E 2C 3C 59 0D | COORDINATE>,<Y.| 000023F0: 43 4F 4F 52 49 4E 41 54 45 3E 0D 0D D3 D0 D2 C9 |COORINATE>......| 00002400: D4 C5 D3 C9 DA C5 20 2D 2D 20 53 45 54 20 53 50 |...... -- SET SP| 00002410: 52 49 54 45 20 53 49 5A 45 20 28 45 58 50 41 4E |RITE SIZE (EXPAN| 00002420: 44 0D 4F 52 20 4E 4F 54 29 0D D3 D0 D2 C9 D4 C5 |D.OR NOT).......| 00002430: D3 C9 DA C5 20 3C 53 50 52 49 54 45 23 3E 2C 3C |.... <SPRITE#>,<| 00002440: 58 20 45 58 50 41 4E 44 0D 46 4C 41 47 3E 2C 3C |X EXPAND.FLAG>,<| 00002450: 59 20 45 58 50 41 4E 44 20 46 4C 41 47 3E 0D 0D |Y EXPAND FLAG>..| 00002460: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::| 00002470: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::| 00002480: 3A 3A 3A 3A 3A 3A 3A 0D 3A 20 20 C4 4F 43 53 20 |:::::::.: .OCS | 00002490: 42 59 3A 20 C4 CF C3 27 D3 20 22 D2 22 20 D5 D3 |BY: ...'. "." ..| 000024A0: 20 39 31 34 2D 36 36 38 2D 33 36 36 34 20 3A 0D | 914-668-3664 :.| 000024B0: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::| 000024C0: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::| 000024D0: 3A 3A 3A 3A 3A 3A 3A 0D |:::::::. |
*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*. * C O M A L *. */*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*. .COMAL SYNTAX: C-64 / VERSION 0.14..NOT E: ITEMS IN BRACKETS ([]) ARE.OPTIONAL. ..// -- ALLOWS COMMENTS IN A PROGRAM.//[ <ANYTHING>]..ABS -- RETURNS ABSOLUTE VAL UE.ABS(<NUMERIC EXPRESSION>)..AND -- LOG ICAL AND.<EXPRESSION> AND <EXPRESSION>.. APPEND -- START AT END OF SEQ FILE.OPEN [FILE] <FILE#>,<FILENAME>,APPEND..ATN -- RETURNS ARCTANGENT IN RADIANS.ATN(<NUME RIC EXPRESSION>)..AUTO -- AUTOMATIC LINE NUMBERING.AUTO [<START LINE>][,<INCREME NT>]..BASIC -- RETURN TO BASIC MODE.BASI C..CASE -- MULTIPLE CHOICE DECISIONS.CAS E <CONTROL EXPRESSION> [OF]..CAT -- DISK CATALOG (DIRECTORY).CAT [<DRIVE NUMBER> ]..CHAIN -- LOAD & RUN PROGRAM ON DISK.C HAIN <FILENAME>..CHR$ -- RETURNS CBM ASC II CODE;.INVERSE OF ORD.CHR$(<NUMERIC EX PRESSION>)..CLOSE -- CLOSES FILES.CLOSE [[FILE] <FILENUM>].CLOSE WITH NO FILE # CLOSES ALL OPEN.FILES..CLOSED -- MAKES A LL PROC/FUNC.VARIABLES LOCAL.PROC <PROCN AME>[(PARAMS)] [CLOSED].FUNC <FUNCNAME>[ (PARAMS)] [CLOSED]..CON -- CONTINUE PROG RAM EXECUTION.CON..COS -- RETURNS COSINE (ANGLE IN.RADIANS).COS(<NUMERIC EXPRESS ION>)..DATA -- PROVIDES DATA FOR A READ. DATA <VALUE>[,<VALUE>][,...]..DEL -- DEL ETES LINES.DEL <RANGE>..DELETE -- DELETE S A FILE FROM DISK.DELETE <FILENAME>..DI M -- RESERVE/ALLOCATE STRING/ARRAY.SPACE .DIM <STRING VAR> OF <MAX CHAR>.DIM <STR ARRAY>(<INDEX>) OF <MAX CHAR>.DIM <ARRA Y NAME>(<INDEX>)..DIV -- DIVISION WITH I NTEGER ANSWER.<DIVIDEND> DIV <DIVISOR>.. DO -- DO THE FOLLOWING STATEMENTS.DO <ST ATEMENTS>..EDIT -- LIST LINES WITHOUT.IN DENTATIONS.EDIT [<RANGE>]..ELIF -- SHORT FOR ELSE IF CONDITION.ELIF <EXPRESSION> [THEN]..ELSE -- ALTERNATIVE STATEMENTS IN IF.STRUCTURE.ELSE..END -- HALT PROGRA M EXECUTION.END..ENDCASE -- END OF CASE STRUCTURE.ENDCASE..ENDFOR -- END OF FOR STRUCTURE.ENDFOR [<CONTROL VARIABLE>]..E NDFUNC -- END OF FUNCTION.ENDFUNC [<FUNC TION NAME>]..ENDIF -- END OF IF STRUCTUR E.ENDIF..ENDPROC -- END OF PROCEDURE.END PROC [<PROCEDURE NAME>]..ENDWHILE -- END OF WHILE STRUCTURE.ENDWHILE..ENTER -- M ERGE LISTED PROGRAM SEGMENT.FROM DISK.EN TER <FILENAME>..EOD -- END OF DATA FLAG. EOD..EOF -- END OF FILE FLAG.EOF(<FILENU M>)..ESC -- STOP KEY PRESSED FLAG.ESC.TR AP ESC<TYPE>..EXEC -- EXECUTE A PROCEDUR E.[EXEC] <PROCNAME>[(<PARAMETER LIST>)]. .EXP -- RETURNS E^N (E=BASE OF NATURAL.L OGS=2.18281828459045+).EXP(<NUMERIC EXPR ESSION>)..FALSE -- PREDEFINED VALUE = 0. FALSE..FILE -- SPECIFIES FILE I/O IS TO BE.USED.INPUT FILE <FILE#>[,<REC#>]: <VA RLIST>.PRINT FILE <FILE#>[,<REC#>]: <VAR LIST>.READ FILE <FILE#>[,<REC#>]: <VARL IST>.WRITE FILE <FILE#>[,<REC#>]: <VARLI ST>.OPEN [FILE] <FILE#>,<FILENAM>[,<TYPE >].CLOSE [[FILE] <FILE#>]..FOR -- START OF FOR LOOP STRUCTURE.FOR <VAR>:=<START> TO <END> [STEP <S>]..FUNC -- START OF A MULTILINE FUNCTION.FUNC <NAME>[(<PARAMS >)] [CLOSED]..GOTO -- GO TO LINE WITH TH IS LABEL.GOTO <LABEL NAME>..IF -- START OF CONDITIONAL IF.STRUCTURE.IF <CONDITIO N> [THEN].IF <CONDITION> THEN <STATEMENT >..IN -- RETURNS POSITION OF STRING1.WIT HIN STRING2.<STRING1> IN <STRING2>..INPU T -- INPUT FROM KEYBOARD OR FILE.INPUT [ <PROMPT>:] <VARLIST>.INPUT FILE <FILE#>[ ,<REC#>]:<VARLIST>..INT -- RETURNS TRUNC ATED INTEGER VALUE.INT(<NUMERIC EXPRESSI ON>)..KEY$ -- CURRENT KEY PRESSED.KEY$.. LABEL -- ASSIGN A LABEL.<LABEL NAME>:..L EN -- RETURNS STRING LENGTH.LEN(<STRING EXPRESSION>)..LET -- ASSIGN VALUE TO VAR IABLE.:= OR :+ OR :-.A:+B -> A: =A+B; A:-B -> A:=A-B..LIST -- LIST PROG RAM.LIST [<RANGE>] [<FILENAME>].LIST <FI LENAME> PUTS LIST FILE ON DISK..LOAD -- LOAD A PROGRAM FROM DISK.LOAD <FILENAME> ..LOG -- RETURNS NATURAL LOGARITHM OF N. LOG(<NUMERIC EXPRESSION>)..MOD -- REMAIN DER OF DIVISION (MODULO).<DIVIDEND> MOD <DIVISOR>..NEW -- CLEARS PROGRAM FROM ME MORY.NEW..NEXT -- ALTERNATE FORM OF ENDF OR.NEXT [<CONTROL VARIABLE>]..NOT -- LOG ICAL NOT.NOT <CONDITION>..NULL -- DOES N OTHING (NO OP).NULL..OF -- PART OF DIM O R CASE STRUCTURE.CASE <EXPRESSION> [OF]. DIM <STRINGVAR> OF <MAX CHAR>.DIM <STRIN GARRAY>(INDEX) OF <MAX CHAR>..OPEN -- OP EN A FILE.OPEN [FILE] <FILE#>,<FILENAM>[ ,UNIT.<DEV>[,<SECONDARY ADDRESS>]][,<TYP E>]..OR -- LOGICAL OR.<CONDITION> OR <CO NDITION>..ORD -- RETURNS INTEGER REPRESE NTING.CHARACTER; INVERSE OF CHR$.ORD(<ST RING EXPRESSION>)..OTHERWISE -- DEFAULT FOR CASE.OTHERWISE..OUTPUT -- SELECT OUT PUT LOCATION.SELECT [OUTPUT] <TYPE>.<TYP E> IS EITHER "DS:" (FOR DISPLAY.SCREEN) OR "LP:" (FOR LINE PRINTER)..PASS -- PAS S STRING TO DISK COMMAND.CHAN.PASS <DISK COMMAND>..PEEK -- RETURNS VALUE OF MEMO RY AT.ADDRESS.PEEK(<MEMORY ADDRESS>)..PO KE -- CHANGE MEMORY LOCATION.POKE <MEMOR Y ADDRESS>,<CONTENTS>..PRINT -- PRINT IT EMS TO.SCREEN/PRINTER/FILE.PRINT [FILE < #>:] [<VARLIST>].PRINT [FILE <#>:] USING .<FORMAT>:<VARLIST>.(RANDOM FILE USE: [F ILE <#>,<REC#>:])..PROC -- START OF MULT ILINE PROCEDURE.PROC <NAME>[(<PARAMS>)] [CLOSED]..RANDOM -- RANDOM ACCESS FILE T YPE.OPEN FILE <#>,<FILENAM>,RANDOM <RECL N>..READ -- READ DATA FROM DATA LINE OR. FILE.READ <VARLIST>.READ FILE <FILE#>[,< REC#>]: <VARLIST>.OPEN [FILE] <FILENUM>, <FILENAME>,READ..REF -- DESIGNATES CALL BY REFERENCE.PARAMETER IN PROC OR FUNC.R EF <VAR>..RENUM -- RENUMBER PROGRAM.RENU M [<TARGETSTART>][,<INCREMENT>]..REPEAT -- START OF REPEAT STRUCTURE.REPEAT..RES TORE -- REUSE DATA WITH READ.RESTORE..RN D -- RETURNS RANDOM NUMBER.RND(<NUM>).RN D(<START NUM>:<END NUM>)..RUN -- RUN PRO GRAM NOW IN MEMORY.RUN..SAVE -- RECORD P ROGRAM ON DISK.SAVE <FILENAME>..SELECT - - CHOOSE OUTPUT LOCATION.SELECT [OUTPUT] <TYPE>.<TYPE> IS EITHER "DS:" (FOR DISP LAY.SCREEN) OR "LP:" (FOR LINE PRINTER). .SGN -- RETURNS -1 IF NEGATIVE, 0 IF.ZER O, 1 IF POSITIVE.SGN(<NUMERIC EXPRESSION >)..SIN -- RETURNS SINE (ANGLE IN RADIAN S).SIN(<NUMERIC EXPRESSION>)..SIZE -- SH OW AMOUNT OF FREE MEMORY.SIZE..SQR -- RE TURNS SQUARE ROOT.SQR(<NUMERIC EXPRESSIO N>)..STATUS$ -- DISPLAYS OR RETURNS DISK .CHANNEL STATUS.STATUS$..STEP -- INCREME NT FOR LOOP BY THIS.AMOUNT.STEP <NUMERIC EXPRESSION>..STOP -- HALT PROGRAM EXECU TION.STOP..SYS -- TRANSFER CONTROL TO MA CHINE.CODE.SYS(<MEMORY ADDRESS>)..TAB -- PRINT SPACES TO SPECIFIED.COLUMN.TAB(<C OLUMN NUMBER>)..TAN -- RETURNS TANGENT ( ANGLE IN.RADIANS).TAN(<NUMERIC EXPRESSIO N>)..THEN -- PART OF IF STRUCTURE.THEN.. TO -- INCREMENT FOR VARIABLE START TO.EN D.<START NUM> TO <END NUM>..TRAP -- DISA BLE STOP KEY.TRAP ESC<TYPE>..TRUE -- PRE DEFINED VALUE OF 1.TRUE..UNIT -- SPECIFY UNIT (DEVICE).OPEN [FILE] <FILE#>,<FILE NAM>[,UNIT.<DEV>[,<SECONDARY ADDRESS>]][ ,<TYPE>]..UNTIL -- END OF REPEAT LOOP.UN TIL <EXPRESSION>..USING -- FORMATTED OUT PUT.PRINT USING <FORMAT>: <VARLIST>..WHE N -- CHOICE IN CASE STRUCTURE.WHEN <LIST OF VALUES>..WHILE -- START OF WHILE STR UCTURE.WHILE <EXPRESSION> [DO] [<STATEME NT>]..WRITE -- WRITE TO A FILE.WRITE FIL E <FILE#>[,<REC#>]: <VARLIST>.OPEN [FILE ] <FILENUM>,<FILENAME>,WRITE..ZONE -- SE TS OR RETURNS TAB INTERVAL.ZONE <TAB INT ERVAL> - SETS INTERVAL.ZONE - RETURNS IN TERVAL (X:=ZONE)..HIGH-RES & TURTLE GRAP HICS..BACK -- MOVE TURTLE BACKWARDS.BACK <LENGTH>..BACKGROUND -- SET SCREEN BACK GROUND.COLOR.BACKGROUND <COLOR NUMBER>.. BORDER -- SET SCREEN BORDER COLOR.BORDER <COLOR NUMBER>..CLEAR -- CLEAR THE GRAP HICS SCREEN.CLEAR..DRAWTO -- DRAW LINE F ROM CURRENT POINT.DRAWTO <X COORDINATE>, <Y COORDINATE>..FILL -- FILL IN AREA WIT H CURRENT.COLOR.FILL <X COORDINATE>,<Y C OORDINATE>..FORWARD -- MOVE TURTLE FORWA RD.FORWARD <LENGTH>..FRAME -- SET UP A S CREEN WINDOW.FRAME <X0>,<X1>,<Y0>,<Y1>.. FULLSCREEN -- FULLSCREEN GRAPHICS (F5).F ULLSCREEN..HIDETURTLE -- MAKE THE TURTLE .INVISIBLE.HIDETURTLE..HOME -- PUT TURTL E IN ITS HOME.POSITION.HOME..LEFT -- TUR N TURTLE LEFT.LEFT <DEGREES>..MOVETO -- MOVE TO X,Y POINT WITHOUT.LINE.MOVETO <X COORDINATE>,<Y COORDINATE>..PENCOLOR -- SET CURRENT PEN COLOR.PENCOLOR <COLOR N UMBER>..PENDOWN -- PUT PEN DOWN-TURTLE D RAWS.LINE.PENDOWN..PENUP -- PICK UP PEN- TURTLE DOESN'T.DRAW.PENUP..PLOT -- PLOT A POINT IN CURRENT COLOR.PLOT <X COORDIN ATE>,<Y COORDINATE>..PLOTTEXT -- PRINT T EXT ON GRAPHICS.SCREEN.PLOTTEXT <X COORD INATE>,<Y.COORDINATE>,<TEXT$>..RIGHT -- TURN TURTLE RIGHT.RIGHT <DEGREES>..SETGR APHIC -- TURN ON GRAPHICS SCREEN.SETGRAP HIC [<TYPE>]..SETHEADING -- SET TURTLE H EADING.SETHEADING <DEGREE>..SETTEXT -- T URN ON TEXT SCREEN (F1).SETTEXT..SETXY - - SET TURTLE X AND Y.COORDINATES.SETXY < X COORDINATE>,<Y COORDINATE>..SHOWTURTLE -- MAKE TURTLE VISIBLE.SHOWTURTLE..SPLI TSCREEN -- 2 TEXT LINES ABOVE.GRAPHICS S CREEN (F3).SPLITSCREEN..TURTLESIZE -- SE T TURTLE SIZE (0 TO.10).TURTLESIZE <SIZE >..SPRITES..DATACOLLISION -- TEST COLLIS ION WITH.DATA.DATACOLLISION <SPRITE#>,<R ESET.COLLISION FLAG>..DEFINE -- SET UP S PRITE IMAGE FOR.LATERUSE.DEFINE <SPRITE DEFINITION #>,<64 BYTE.DEF$>..HIDESPRITE -- TURN OFF SPECIFIED.SPRITE.HIDESPRITE <SPRITE NUMBER>..IDENTIFY -- ASSIGN AN IMAGE TO A.SPRITE.IDENTIFY <SPRITE NUMBE R>,<DEFINITION#>.(NOTE: SPRITE 7 IS USED FOR TURTLE)..PRIORITY -- DATA PRIORITY OVER SPRITE?.PRIORITY <SPRITE #>,<DATA P RIORITY?>..SPRITEBACK -- SET 2 SPRITE MU LTICOLORS.SPRITEBACK <COLOR1>,<COLOR2>.. SPRITECOLLISION -- TEST SPRITE.COLLISION .SPRITECOLLISION <SPRITE#>,<RESET.COLLIS ION FLAG>..SPRITECOLOR -- SET SPRITE COL OR.SPRITECOLOR <SPRITE #>,<COLOR NUMBER> ..SPRITEPOS -- PUT SPRITE AT X,Y.LOCATIO N.SPRITEPOS <SPRITE#>,<X COORDINATE>,<Y. COORINATE>..SPRITESIZE -- SET SPRITE SIZ E (EXPAND.OR NOT).SPRITESIZE <SPRITE#>,< X EXPAND.FLAG>,<Y EXPAND FLAG>..:::::::: :::::::::::::::::::::::::::::::.: DOCS BY: DOC'S "R" US 914-668-3664 :.:::::::: :::::::::::::::::::::::::::::::.
> CLICK IMAGE PREVIEW FOR FULL MODAL