HELP-COMAL
FILE INFORMATION
FILENAME(S): HELP-COMAL
FILE TYPE(S): SEQ
FILE SIZE: 6.4K
FIRST SEEN: 2025-11-30 16:59:30
APPEARS ON: 2 disk(s)
FILE HASH
a5199f21b7c99a94e6d99ab38898b4236312524ae763ff0770355c5745792229
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 COMAL 0 14 | HELP-COMAL | SEQ | High Voltage Complete C64 Collection | 22 | 0 | DOWNLOAD FILE |
| BLUE EYES 033 | HELP-COMAL | SEQ | Curtcool, Misc | 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 20 2F 2F DB 3C 41 4E 59 54 |OGRAM.. //.<ANYT| 00000050: 48 49 4E 47 3E DD 0D 11 0D 11 C1 C2 D3 20 2D 2D |HING>........ --| 00000060: 20 47 49 56 45 53 20 54 48 45 20 41 42 53 4F 4C | GIVES THE ABSOL| 00000070: 55 54 45 20 56 41 4C 55 45 0D 11 20 C1 C2 D3 28 |UTE VALUE.. ...(| 00000080: 3C 4E 55 4D 45 52 49 43 20 45 58 50 52 45 53 53 |<NUMERIC EXPRESS| 00000090: 49 4F 4E 3E 29 0D 11 0D 11 C1 CE C4 20 2D 2D 20 |ION>)....... -- | 000000A0: 4C 4F 47 49 43 41 4C 20 C1 CE C4 0D 11 20 3C 45 |LOGICAL ..... <E| 000000B0: 58 50 52 45 53 53 49 4F 4E 3E 20 C1 CE C4 20 3C |XPRESSION> ... <| 000000C0: 45 58 50 52 45 53 53 49 4F 4E 3E 0D 11 0D 11 C1 |EXPRESSION>.....| 000000D0: D0 D0 C5 CE C4 20 2D 2D 20 53 54 41 52 54 20 41 |..... -- START A| 000000E0: 54 20 45 4E 44 20 4F 46 20 53 45 51 20 46 49 4C |T END OF SEQ FIL| 000000F0: 45 0D 11 20 CF D0 C5 CE 20 DB C6 C9 CC C5 DD 20 |E.. .... ...... | 00000100: 3C 46 49 4C 45 23 3E 2C 3C 46 49 4C 45 4E 41 4D |<FILE#>,<FILENAM| 00000110: 45 3E 2C C1 D0 D0 C5 CE C4 0D 11 0D 11 C1 D4 CE |E>,.............| 00000120: 20 2D 2D 20 41 52 43 54 41 4E 47 45 4E 54 20 49 | -- ARCTANGENT I| 00000130: 4E 20 52 41 44 49 41 4E 53 0D 11 20 C1 D4 CE 28 |N RADIANS.. ...(| 00000140: 3C 4E 55 4D 45 52 49 43 20 45 58 50 52 45 53 53 |<NUMERIC EXPRESS| 00000150: 49 4F 4E 3E 29 0D 11 0D 11 C1 D5 D4 CF 20 2D 2D |ION>)........ --| 00000160: 20 41 55 54 4F 4D 41 54 49 43 20 4C 49 4E 45 20 | AUTOMATIC LINE | 00000170: 4E 55 4D 42 45 52 49 4E 47 0D 11 20 C1 D5 D4 CF |NUMBERING.. ....| 00000180: 20 DB 3C 53 54 41 52 54 20 4C 49 4E 45 3E DD DB | .<START LINE>..| 00000190: 2C 3C 49 4E 43 52 45 4D 45 4E 54 3E DD 0D 11 0D |,<INCREMENT>....| 000001A0: 11 C2 C1 D3 C9 C3 20 2D 2D 20 42 41 43 4B 20 49 |...... -- BACK I| 000001B0: 4E 54 4F 20 C2 C1 D3 C9 C3 20 4D 4F 44 45 0D 11 |NTO ..... MODE..| 000001C0: 20 C2 C1 D3 C9 C3 0D 11 0D 11 C3 C1 D3 C5 20 2D | ............. -| 000001D0: 2D 20 4D 55 4C 54 49 50 4C 45 20 43 48 4F 49 43 |- MULTIPLE CHOIC| 000001E0: 45 20 44 45 43 49 53 49 4F 4E 53 0D 11 20 C3 C1 |E DECISIONS.. ..| 000001F0: D3 C5 20 3C 43 4F 4E 54 52 4F 4C 20 45 58 50 52 |.. <CONTROL EXPR| 00000200: 45 53 53 49 4F 4E 3E 20 DB CF C6 DD 0D 11 0D 11 |ESSION> ........| 00000210: C3 C1 D4 20 2D 2D 20 47 49 56 45 53 20 44 49 53 |... -- GIVES DIS| 00000220: 4B 20 44 49 52 45 43 54 4F 52 59 0D 11 20 C3 C1 |K DIRECTORY.. ..| 00000230: D4 20 DB 3C 44 52 49 56 45 20 4E 55 4D 42 45 52 |. .<DRIVE NUMBER| 00000240: 3E DD 0D 11 0D 11 C3 C8 C1 C9 CE 20 2D 2D 20 4C |>.......... -- L| 00000250: 4F 41 44 20 26 20 52 55 4E 20 50 52 4F 47 52 41 |OAD & RUN PROGRA| 00000260: 4D 20 4F 4E 20 44 49 53 4B 0D 11 20 C3 C8 C1 C9 |M ON DISK.. ....| 00000270: CE 20 3C 46 49 4C 45 4E 41 4D 45 3E 0D 11 0D 11 |. <FILENAME>....| 00000280: C3 C8 D2 24 20 2D 2D 20 47 49 56 45 53 20 54 48 |...$ -- GIVES TH| 00000290: 41 54 20 4E 55 4D 42 45 52 53 20 43 48 41 52 41 |AT NUMBERS CHARA| 000002A0: 43 54 45 52 0D 11 20 C3 C8 D2 24 28 3C 4E 55 4D |CTER.. ...$(<NUM| 000002B0: 45 52 49 43 20 45 58 50 52 45 53 53 49 4F 4E 3E |ERIC EXPRESSION>| 000002C0: 29 0D 11 0D 11 C3 CC CF D3 C5 20 2D 2D 20 43 4C |)......... -- CL| 000002D0: 4F 53 45 53 20 46 49 4C 45 53 0D 11 20 C3 CC CF |OSES FILES.. ...| 000002E0: D3 C5 20 DB DB C6 C9 CC C5 DD 20 3C 46 49 4C 45 |.. ....... <FILE| 000002F0: 4E 55 4D 3E DD 0D 11 0D 11 C3 CC CF D3 C5 C4 20 |NUM>........... | 00000300: 2D 2D 20 41 4C 4C 20 50 52 4F 43 2F 46 55 4E 43 |-- ALL PROC/FUNC| 00000310: 20 56 41 52 49 41 42 4C 45 53 20 4C 4F 43 41 4C | VARIABLES LOCAL| 00000320: 0D 11 20 D0 D2 CF C3 20 3C 50 52 4F 43 4E 41 4D |.. .... <PROCNAM| 00000330: 45 3E DB 28 50 41 52 41 4D 53 29 DD 20 DB C3 CC |E>.(PARAMS). ...| 00000340: CF D3 C5 C4 DD 0D 11 20 C6 D5 CE C3 20 3C 46 55 |....... .... <FU| 00000350: 4E 43 4E 41 4D 45 3E DB 28 50 41 52 41 4D 53 29 |NCNAME>.(PARAMS)| 00000360: DD 20 DB C3 CC CF D3 C5 C4 DD 0D 11 0D 11 C3 CF |. ..............| 00000370: CE 20 2D 2D 20 43 4F 4E 54 49 4E 55 45 20 50 52 |. -- CONTINUE PR| 00000380: 4F 47 52 41 4D 20 45 58 45 43 55 54 49 4F 4E 0D |OGRAM EXECUTION.| 00000390: 11 20 C3 CF CE 0D 11 0D 11 C3 CF D3 20 2D 2D 20 |. .......... -- | 000003A0: 43 4F 53 49 4E 45 20 49 4E 20 52 41 44 49 41 4E |COSINE IN RADIAN| 000003B0: 53 0D 11 20 C3 CF D3 28 3C 4E 55 4D 45 52 49 43 |S.. ...(<NUMERIC| 000003C0: 20 45 58 50 52 45 53 53 49 4F 4E 3E 29 0D 11 0D | EXPRESSION>)...| 000003D0: 11 C4 C1 D4 C1 20 2D 2D 20 50 52 4F 56 49 44 45 |..... -- PROVIDE| 000003E0: 53 20 44 41 54 41 20 46 4F 52 20 41 20 D2 C5 C1 |S DATA FOR A ...| 000003F0: C4 0D 11 20 C4 C1 D4 C1 20 3C 56 41 4C 55 45 3E |... .... <VALUE>| 00000400: DB 2C 3C 56 41 4C 55 45 3E DD DB 2C 2E 2E 2E DD |.,<VALUE>..,....| 00000410: 0D 11 0D 11 C4 C5 CC 20 2D 2D 20 44 45 4C 45 54 |....... -- DELET| 00000420: 45 53 20 4C 49 4E 45 53 0D 11 20 C4 C5 CC 20 3C |ES LINES.. ... <| 00000430: 52 41 4E 47 45 3E 0D 11 0D 11 C4 C5 CC C5 D4 C5 |RANGE>..........| 00000440: 20 2D 2D 20 44 45 4C 45 54 45 53 20 41 20 46 49 | -- DELETES A FI| 00000450: 4C 45 20 46 52 4F 4D 20 44 49 53 4B 0D 11 20 C4 |LE FROM DISK.. .| 00000460: C5 CC C5 D4 C5 20 3C 46 49 4C 45 4E 41 4D 45 3E |..... <FILENAME>| 00000470: 0D 11 0D 11 C4 C9 CD 20 2D 52 45 53 45 52 56 45 |....... -RESERVE| 00000480: 2F 41 4C 4C 4F 43 41 54 45 20 53 54 52 49 4E 47 |/ALLOCATE STRING| 00000490: 2F 41 52 52 41 59 20 53 50 41 43 0D 11 20 C4 C9 |/ARRAY SPAC.. ..| 000004A0: CD 20 3C 53 54 52 49 4E 47 20 56 41 52 3E 20 CF |. <STRING VAR> .| 000004B0: C6 20 3C 4D 41 58 20 43 48 41 52 3E 0D 11 20 C4 |. <MAX CHAR>.. .| 000004C0: C9 CD 20 3C 53 54 52 20 41 52 52 41 59 3E 28 3C |.. <STR ARRAY>(<| 000004D0: 49 4E 44 45 58 3E 29 20 CF C6 20 3C 4D 41 58 20 |INDEX>) .. <MAX | 000004E0: 43 48 41 52 3E 0D 11 20 C4 C9 CD 20 3C 41 52 52 |CHAR>.. ... <ARR| 000004F0: 41 59 20 4E 41 4D 45 3E 28 3C 49 4E 44 45 58 3E |AY NAME>(<INDEX>| 00000500: 29 0D 11 0D 11 C4 C9 D6 20 2D 2D 20 44 49 56 49 |)....... -- DIVI| 00000510: 53 49 4F 4E 20 57 49 54 48 20 49 4E 54 45 47 45 |SION WITH INTEGE| 00000520: 52 20 41 4E 53 57 45 52 0D 11 20 3C 44 49 56 49 |R ANSWER.. <DIVI| 00000530: 44 45 4E 44 3E 20 C4 C9 D6 20 3C 44 49 56 49 53 |DEND> ... <DIVIS| 00000540: 4F 52 3E 0D 11 0D 11 C4 CF 20 2D 2D 20 44 4F 20 |OR>...... -- DO | 00000550: 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 53 54 |THE FOLLOWING ST| 00000560: 41 54 45 4D 45 4E 54 53 0D 11 20 C4 CF 20 3C 53 |ATEMENTS.. .. <S| 00000570: 54 41 54 45 4D 45 4E 54 53 3E 0D 11 0D 11 C5 C4 |TATEMENTS>......| 00000580: C9 D4 20 2D 2D 20 4C 49 53 54 20 4C 49 4E 45 53 |.. -- LIST LINES| 00000590: 20 57 49 54 48 4F 55 54 20 49 4E 44 45 4E 54 41 | WITHOUT INDENTA| 000005A0: 54 49 4F 4E 53 0D 11 20 C5 C4 C9 D4 20 DB 3C 52 |TIONS.. .... .<R| 000005B0: 41 4E 47 45 3E DD 0D 11 0D 11 C5 CC C9 C6 20 2D |ANGE>......... -| 000005C0: 2D 20 53 48 4F 52 54 20 46 4F 52 20 C5 CC D3 C5 |- SHORT FOR ....| 000005D0: 20 C9 C6 20 43 4F 4E 44 49 54 49 4F 4E 0D 11 20 | .. CONDITION.. | 000005E0: C5 CC C9 C6 20 3C 45 58 50 52 45 53 53 49 4F 4E |.... <EXPRESSION| 000005F0: 3E 20 DB D4 C8 C5 CE DD 0D 11 0D 11 C5 CC D3 C5 |> ..............| 00000600: 20 2D 41 4C 54 45 52 4E 41 54 49 56 45 20 C9 C6 | -ALTERNATIVE ..| 00000610: 20 53 54 52 55 43 20 53 54 41 54 45 4D 45 4E 54 | STRUC STATEMENT| 00000620: 53 0D 11 20 C5 CC D3 C5 0D 11 0D 11 C5 CE C4 20 |S.. ........... | 00000630: 2D 2D 20 48 41 4C 54 20 50 52 4F 47 52 41 4D 20 |-- HALT PROGRAM | 00000640: 45 58 45 43 55 54 49 4F 4E 0D 11 20 C5 CE C4 0D |EXECUTION.. ....| 00000650: 11 0D 11 C5 CE C4 C3 C1 D3 C5 20 2D 2D 20 45 4E |.......... -- EN| 00000660: 44 20 4F 46 20 C3 C1 D3 C5 20 53 54 52 55 43 54 |D OF .... STRUCT| 00000670: 55 52 45 0D 11 20 C5 CE C4 C3 C1 D3 C5 0D 11 0D |URE.. ..........| 00000680: 11 C5 CE C4 C6 CF D2 20 2D 2D 20 45 4E 44 20 4F |....... -- END O| 00000690: 46 20 C6 CF D2 20 53 54 52 55 43 54 55 52 45 0D |F ... STRUCTURE.| 000006A0: 11 20 C5 CE C4 C6 CF D2 20 DB 3C 43 4F 4E 54 52 |. ...... .<CONTR| 000006B0: 4F 4C 20 56 41 52 49 41 42 4C 45 3E DD 0D 11 0D |OL VARIABLE>....| 000006C0: 11 C5 CE C4 C6 D5 CE C3 20 2D 2D 20 45 4E 44 20 |........ -- END | 000006D0: 4F 46 20 46 55 4E 43 54 49 4F 4E 0D 11 20 C5 CE |OF FUNCTION.. ..| 000006E0: C4 C6 D5 CE C3 20 DB 3C 46 55 4E 43 54 49 4F 4E |..... .<FUNCTION| 000006F0: 20 4E 41 4D 45 3E DD 0D 11 0D 11 C5 CE C4 C9 C6 | NAME>..........| 00000700: 20 2D 2D 20 45 4E 44 20 4F 46 20 C9 C6 20 53 54 | -- END OF .. ST| 00000710: 52 55 43 54 55 52 45 0D 11 20 C5 CE C4 C9 C6 0D |RUCTURE.. ......| 00000720: 11 0D 11 C5 CE C4 D0 D2 CF C3 20 2D 2D 20 45 4E |.......... -- EN| 00000730: 44 20 4F 46 20 50 52 4F 43 45 44 55 52 45 0D 11 |D OF PROCEDURE..| 00000740: 20 C5 CE C4 D0 D2 CF C3 20 DB 3C 50 52 4F 43 45 | ....... .<PROCE| 00000750: 44 55 52 45 20 4E 41 4D 45 3E DD 0D 11 0D 11 C5 |DURE NAME>......| 00000760: CE C4 D7 C8 C9 CC C5 20 2D 2D 20 45 4E 44 20 4F |....... -- END O| 00000770: 46 20 D7 C8 C9 CC C5 20 53 54 52 55 43 54 55 52 |F ..... STRUCTUR| 00000780: 45 0D 11 20 C5 CE C4 D7 C8 C9 CC C5 0D 11 0D 11 |E.. ............| 00000790: C5 CE D4 C5 D2 20 2D 2D 4D 45 52 47 45 20 50 52 |..... --MERGE PR| 000007A0: 4F 47 52 41 4D 20 53 45 47 4D 45 4E 54 20 46 52 |OGRAM SEGMENT FR| 000007B0: 4F 4D 20 44 49 53 4B 0D 11 20 C5 CE D4 C5 D2 20 |OM DISK.. ..... | 000007C0: 3C 46 49 4C 45 4E 41 4D 45 3E 0D 11 0D 11 C5 CF |<FILENAME>......| 000007D0: C4 20 2D 2D 20 C5 4E 44 20 CF 46 20 C4 41 54 41 |. -- .ND .F .ATA| 000007E0: 20 46 4C 41 47 0D 11 20 C5 CF C4 0D 11 0D 11 C5 | FLAG.. ........| 000007F0: CF C6 20 2D 2D 20 C5 4E 44 20 CF 46 20 C6 49 4C |.. -- .ND .F .IL| 00000800: 45 20 46 4C 41 47 0D 11 20 C5 CF C6 28 3C 46 49 |E FLAG.. ...(<FI| 00000810: 4C 45 4E 55 4D 3E 29 0D 11 0D 11 C5 D3 C3 20 2D |LENUM>)....... -| 00000820: 2D 20 53 54 4F 50 20 4B 45 59 20 50 52 45 53 53 |- STOP KEY PRESS| 00000830: 45 44 20 46 4C 41 47 0D 11 20 C5 D3 C3 0D 11 20 |ED FLAG.. ..... | 00000840: D4 D2 C1 D0 20 C5 D3 C3 3C 54 59 50 45 3E 0D 11 |.... ...<TYPE>..| 00000850: 0D 11 C5 D8 C5 C3 20 2D 2D 20 45 58 45 43 55 54 |...... -- EXECUT| 00000860: 45 20 41 20 50 52 4F 43 45 44 55 52 45 0D 11 20 |E A PROCEDURE.. | 00000870: DB C5 D8 C5 C3 DD 20 3C 50 52 4F 43 4E 41 4D 45 |...... <PROCNAME| 00000880: 3E DB 28 3C 50 41 52 41 4D 45 54 45 52 20 4C 49 |>.(<PARAMETER LI| 00000890: 53 54 3E 29 DD 0D 11 0D 11 C5 D8 D0 20 2D 2D 20 |ST>)........ -- | 000008A0: 4E 41 54 55 52 41 4C 20 4C 4F 47 20 45 20 54 4F |NATURAL LOG E TO| 000008B0: 20 4E 0D 11 20 C5 D8 D0 28 3C 4E 55 4D 45 52 49 | N.. ...(<NUMERI| 000008C0: 43 20 45 58 50 52 45 53 53 49 4F 4E 3E 29 0D 11 |C EXPRESSION>)..| 000008D0: 0D 11 C6 C1 CC D3 C5 20 2D 2D 20 50 52 45 44 45 |....... -- PREDE| 000008E0: 46 49 4E 45 44 20 56 41 4C 55 45 20 3D 20 30 0D |FINED VALUE = 0.| 000008F0: 11 20 C6 C1 CC D3 C5 0D 11 0D 11 C6 C9 CC C5 20 |. ............. | 00000900: 2D 2D 20 53 50 45 43 49 46 49 45 53 20 41 20 46 |-- SPECIFIES A F| 00000910: 49 4C 45 20 49 53 20 54 4F 20 42 45 20 55 53 45 |ILE IS TO BE USE| 00000920: 44 0D 11 20 C9 CE D0 D5 D4 20 C6 C9 CC C5 20 3C |D.. ..... .... <| 00000930: 46 49 4C 45 23 3E DB 2C 3C 52 45 43 23 3E DD 3A |FILE#>.,<REC#>.:| 00000940: 20 3C 56 41 52 4C 49 53 54 3E 0D 11 20 D0 D2 C9 | <VARLIST>.. ...| 00000950: CE D4 20 C6 C9 CC C5 20 3C 46 49 4C 45 23 3E DB |.. .... <FILE#>.| 00000960: 2C 3C 52 45 43 23 3E DD 3A 20 3C 56 41 4C 4C 49 |,<REC#>.: <VALLI| 00000970: 53 54 3E 0D 11 20 D2 C5 C1 C4 20 C6 C9 CC C5 20 |ST>.. .... .... | 00000980: 3C 46 49 4C 45 23 3E DB 2C 3C 52 45 43 23 3E DD |<FILE#>.,<REC#>.| 00000990: 3A 20 3C 56 41 52 20 4C 49 53 54 3E 0D 11 20 D7 |: <VAR LIST>.. .| 000009A0: D2 C9 D4 C5 20 C6 C9 CC C5 20 3C 46 49 4C 45 23 |.... .... <FILE#| 000009B0: 3E DB 2C 3C 52 45 43 23 3E DD 3A 20 3C 56 41 52 |>.,<REC#>.: <VAR| 000009C0: 4C 49 53 54 3E 0D 11 20 CF D0 C5 CE 20 DB C6 C9 |LIST>.. .... ...| 000009D0: CC C5 DD 20 3C 46 49 4C 45 23 3E 2C 3C 46 49 4C |... <FILE#>,<FIL| 000009E0: 45 4E 41 4D 3E DB 2C 3C 54 59 50 45 3E DD 0D 11 |ENAM>.,<TYPE>...| 000009F0: 20 C3 CC CF D3 C5 20 DB DB C6 C9 CC C5 DD 20 3C | ..... ....... <| 00000A00: 46 49 4C 45 23 3E DD 0D 11 0D 11 C6 CF D2 20 2D |FILE#>........ -| 00000A10: 2D 20 53 54 41 52 54 20 4F 46 20 C6 CF D2 20 4C |- START OF ... L| 00000A20: 4F 4F 50 20 53 54 52 55 43 54 55 52 45 0D 11 20 |OOP STRUCTURE.. | 00000A30: C6 CF D2 20 3C 56 41 52 3E 3A 3D 3C 53 54 41 52 |... <VAR>:=<STAR| 00000A40: 54 3E 20 D4 CF 20 3C 45 4E 44 3E 20 DB D3 D4 C5 |T> .. <END> ....| 00000A50: D0 20 3C 53 3E DD 0D 11 0D 11 C6 D5 CE C3 20 2D |. <S>......... -| 00000A60: 2D 20 53 54 41 52 54 20 4F 46 20 41 20 4D 55 4C |- START OF A MUL| 00000A70: 54 49 4C 49 4E 45 20 46 55 4E 43 54 49 4F 4E 0D |TILINE FUNCTION.| 00000A80: 11 20 C6 D5 CE C3 20 3C 4E 41 4D 45 3E DB 28 3C |. .... <NAME>.(<| 00000A90: 50 41 52 41 4D 53 3E 29 DD 20 DB C3 CC CF D3 C5 |PARAMS>). ......| 00000AA0: C4 DD 0D 11 0D 11 C7 CF D4 CF 20 2D 2D 20 47 4F |.......... -- GO| 00000AB0: 20 54 4F 20 4C 49 4E 45 20 57 49 54 48 20 54 48 | TO LINE WITH TH| 00000AC0: 49 53 20 4E 41 4D 45 0D 11 20 C7 CF D4 CF 20 3C |IS NAME.. .... <| 00000AD0: 4C 41 42 45 4C 20 4E 41 4D 45 3E 0D 11 0D 11 C9 |LABEL NAME>.....| 00000AE0: C6 20 2D 2D 20 53 54 41 52 54 20 4F 46 20 43 4F |. -- START OF CO| 00000AF0: 4E 44 49 54 49 4F 4E 41 4C 20 C9 C6 20 53 54 52 |NDITIONAL .. STR| 00000B00: 55 43 54 55 52 45 0D 11 20 C9 C6 20 3C 43 4F 4E |UCTURE.. .. <CON| 00000B10: 44 49 54 49 4F 4E 3E 20 DB D4 C8 C5 CE DD 0D 11 |DITION> ........| 00000B20: 20 C9 C6 20 3C 43 4F 4E 44 49 54 49 4F 4E 3E 20 | .. <CONDITION> | 00000B30: D4 C8 C5 CE 20 3C 53 54 41 54 45 4D 45 4E 54 3E |.... <STATEMENT>| 00000B40: 0D 11 0D 11 C9 CE 20 2D 2D 20 4C 4F 43 41 54 45 |...... -- LOCATE| 00000B50: 20 53 54 52 49 4E 47 31 20 57 49 54 48 49 4E 20 | STRING1 WITHIN | 00000B60: 53 54 52 49 4E 47 32 0D 11 20 3C 53 54 52 49 4E |STRING2.. <STRIN| 00000B70: 47 31 3E 20 C9 CE 20 3C 53 54 52 49 4E 47 32 3E |G1> .. <STRING2>| 00000B80: 0D 11 0D 11 C9 CE D0 D5 D4 20 2D 2D 20 49 4E 50 |......... -- INP| 00000B90: 55 54 20 46 52 4F 4D 20 4B 45 59 42 4F 41 52 44 |UT FROM KEYBOARD| 00000BA0: 20 4F 52 20 46 49 4C 45 0D 11 20 C9 CE D0 D5 D4 | OR FILE.. .....| 00000BB0: 20 DB 3C 50 52 4F 4D 50 54 3E 3A DD 20 3C 56 41 | .<PROMPT>:. <VA| 00000BC0: 52 20 4C 49 53 54 3E 0D 11 20 C9 CE D0 D5 D4 20 |R LIST>.. ..... | 00000BD0: C6 C9 CC C5 20 3C 46 49 4C 45 23 3E DB 2C 3C 52 |.... <FILE#>.,<R| 00000BE0: 45 43 23 3E DD 3A 3C 56 41 52 20 4C 49 53 54 3E |EC#>.:<VAR LIST>| 00000BF0: 0D 11 0D 11 C9 CE D4 20 2D 4E 45 41 52 45 53 54 |....... -NEAREST| 00000C00: 20 49 4E 54 45 47 45 52 20 4C 45 53 53 20 54 48 | INTEGER LESS TH| 00000C10: 41 4E 20 4F 52 20 45 51 55 41 4C 0D 11 20 C9 CE |AN OR EQUAL.. ..| 00000C20: D4 28 3C 4E 55 4D 45 52 49 43 20 45 58 50 52 45 |.(<NUMERIC EXPRE| 00000C30: 53 53 49 4F 4E 3E 29 0D 11 0D 11 CB C5 D9 24 20 |SSION>).......$ | 00000C40: 2D 53 43 41 4E 20 4B 45 59 42 4F 41 52 44 28 4E |-SCAN KEYBOARD(N| 00000C50: 4F 54 20 D0 C5 D4 20 C3 CF CD C1 CC 20 30 2E 31 |OT ... ..... 0.1| 00000C60: 34 29 0D 11 20 CB C5 D9 24 0D 11 0D 11 CC C1 C2 |4).. ...$.......| 00000C70: C5 CC 20 2D 2D 20 41 53 53 49 47 4E 20 4C 41 42 |.. -- ASSIGN LAB| 00000C80: 45 4C 20 4E 41 4D 45 20 54 4F 20 54 48 45 20 4C |EL NAME TO THE L| 00000C90: 49 4E 45 0D 11 20 3C 4C 41 42 45 4C 20 4E 41 4D |INE.. <LABEL NAM| 00000CA0: 45 3E 3A 0D 11 0D 11 CC C5 CE 20 2D 2D 20 47 49 |E>:....... -- GI| 00000CB0: 56 45 53 20 54 48 45 20 4C 45 4E 47 54 48 20 4F |VES THE LENGTH O| 00000CC0: 46 20 53 54 52 49 4E 47 0D 11 20 CC C5 CE 28 3C |F STRING.. ...(<| 00000CD0: 53 54 52 49 4E 47 20 45 58 50 52 45 53 53 49 4F |STRING EXPRESSIO| 00000CE0: 4E 3E 29 0D 11 0D 11 CC C5 D4 20 2D 2D 20 41 53 |N>)....... -- AS| 00000CF0: 53 49 47 4E 20 56 41 4C 55 45 20 54 4F 20 56 41 |SIGN VALUE TO VA| 00000D00: 52 49 41 42 4C 45 0D 11 20 3A 3D 20 20 20 4F 52 |RIABLE.. := OR| 00000D10: 20 20 20 3A 2B 20 20 20 20 4F 52 20 20 20 3A 2D | :+ OR :-| 00000D20: 0D 11 0D 11 CC C9 D3 D4 20 2D 2D 20 4C 49 53 54 |........ -- LIST| 00000D30: 20 50 52 4F 47 52 41 4D 0D 11 20 CC C9 D3 D4 20 | PROGRAM.. .... | 00000D40: DB 3C 52 41 4E 47 45 3E DD 20 DB 3C 46 49 4C 45 |.<RANGE>. .<FILE| 00000D50: 4E 41 4D 45 3E DD 0D 11 0D 11 CC CF C1 C4 20 2D |NAME>......... -| 00000D60: 2D 20 4C 4F 41 44 20 41 20 50 52 4F 47 52 41 4D |- LOAD A PROGRAM| 00000D70: 20 46 52 4F 4D 20 44 49 53 4B 0D 11 20 CC CF C1 | FROM DISK.. ...| 00000D80: C4 20 3C 46 49 4C 45 4E 41 4D 45 3E 0D 11 0D 11 |. <FILENAME>....| 00000D90: CC CF C7 20 2D 2D 20 4E 41 54 55 52 41 4C 20 4C |... -- NATURAL L| 00000DA0: 4F 47 41 52 49 54 48 4D 20 4F 46 20 4E 0D 11 20 |OGARITHM OF N.. | 00000DB0: CC CF C7 28 3C 4E 55 4D 45 52 49 43 20 45 58 50 |...(<NUMERIC EXP| 00000DC0: 52 45 53 53 49 4F 4E 3E 29 0D 11 0D 11 CD CF C4 |RESSION>).......| 00000DD0: 20 2D 2D 20 52 45 4D 41 49 4E 44 45 52 20 4F 46 | -- REMAINDER OF| 00000DE0: 20 44 49 56 49 53 49 4F 4E 20 28 4D 4F 44 55 4C | DIVISION (MODUL| 00000DF0: 4F 29 0D 11 20 3C 44 49 56 49 44 45 4E 44 3E 20 |O).. <DIVIDEND> | 00000E00: CD CF C4 20 3C 44 49 56 49 53 4F 52 3E 0D 11 0D |... <DIVISOR>...| 00000E10: 11 CE C5 D7 20 2D 2D 20 43 4C 45 41 52 53 20 50 |.... -- CLEARS P| 00000E20: 52 4F 47 52 41 4D 20 46 52 4F 4D 20 4D 45 4D 4F |ROGRAM FROM MEMO| 00000E30: 52 59 0D 11 20 CE C5 D7 0D 11 0D 11 CE CF D4 20 |RY.. .......... | 00000E40: 2D 2D 20 4C 4F 47 49 43 41 4C 20 CE CF D4 0D 11 |-- LOGICAL .....| 00000E50: 20 CE CF D4 20 3C 43 4F 4E 44 49 54 49 4F 4E 3E | ... <CONDITION>| 00000E60: 0D 11 0D 11 CE D5 CC CC 20 2D 2D 20 44 4F 45 53 |........ -- DOES| 00000E70: 20 4E 4F 54 48 49 4E 47 20 28 4E 4F 20 4F 50 29 | NOTHING (NO OP)| 00000E80: 0D 11 20 CE D5 CC CC 0D 11 0D 11 CF C6 20 2D 2D |.. .......... --| 00000E90: 20 50 41 52 54 20 4F 46 20 C4 C9 CD 20 4F 52 20 | PART OF ... OR | 00000EA0: C3 C1 D3 C5 20 53 54 52 55 43 54 55 52 45 0D 11 |.... STRUCTURE..| 00000EB0: 20 C3 C1 D3 C5 20 3C 45 58 50 52 45 53 53 49 4F | .... <EXPRESSIO| 00000EC0: 4E 3E 20 DB CF C6 DD 0D 11 20 C4 C9 CD 20 3C 53 |N> ...... ... <S| 00000ED0: 54 52 49 4E 47 56 41 52 3E 20 CF C6 20 3C 4D 41 |TRINGVAR> .. <MA| 00000EE0: 58 20 43 48 41 52 3E 0D 11 20 C4 C9 CD 20 3C 53 |X CHAR>.. ... <S| 00000EF0: 54 52 49 4E 47 41 52 52 41 59 3E 28 49 4E 44 45 |TRINGARRAY>(INDE| 00000F00: 58 29 20 CF C6 20 3C 4D 41 58 20 43 48 41 52 3E |X) .. <MAX CHAR>| 00000F10: 0D 11 0D 11 CF D0 C5 CE 20 2D 2D 20 4F 50 45 4E |........ -- OPEN| 00000F20: 20 41 20 46 49 4C 45 0D 11 20 CF D0 C5 CE 20 DB | A FILE.. .... .| 00000F30: C6 C9 CC C5 DD 20 3C 46 49 4C 45 23 3E 2C 3C 46 |..... <FILE#>,<F| 00000F40: 49 4C 45 4E 41 4D 3E DB 2C 3C 54 59 50 45 3E DD |ILENAM>.,<TYPE>.| 00000F50: 0D 11 0D 11 CF D2 20 2D 2D 20 4C 4F 47 49 43 41 |...... -- LOGICA| 00000F60: 4C 20 CF D2 0D 11 20 3C 43 4F 4E 44 49 54 49 4F |L .... <CONDITIO| 00000F70: 4E 3E 20 CF D2 20 3C 43 4F 4E 44 49 54 49 4F 4E |N> .. <CONDITION| 00000F80: 3E 0D 11 0D 11 CF D2 C4 20 2D 52 45 54 55 52 4E |>....... -RETURN| 00000F90: 20 49 4E 54 45 47 45 52 20 52 45 50 52 45 53 45 | INTEGER REPRESE| 00000FA0: 4E 54 49 4E 47 20 43 48 41 52 0D 11 20 CF D2 C4 |NTING CHAR.. ...| 00000FB0: 28 3C 53 54 52 49 4E 47 20 45 58 50 52 45 53 53 |(<STRING EXPRESS| 00000FC0: 49 4F 4E 3E 29 0D 11 0D 11 CF D4 C8 C5 D2 D7 C9 |ION>)...........| 00000FD0: D3 C5 20 2D 2D 20 44 45 46 41 55 4C 54 20 46 4F |.. -- DEFAULT FO| 00000FE0: 52 20 C3 C1 D3 C5 0D 11 20 CF D4 C8 C5 D2 D7 C9 |R ...... .......| 00000FF0: D3 C5 0D 11 0D 11 CF D5 D4 D0 D5 D4 20 2D 2D 20 |............ -- | 00001000: 53 45 4C 45 43 54 20 4F 55 54 50 55 54 20 4C 4F |SELECT OUTPUT LO| 00001010: 43 41 54 49 4F 4E 0D 11 20 D3 C5 CC C5 C3 D4 20 |CATION.. ...... | 00001020: DB CF D5 D4 D0 D5 D4 DD 20 3C 54 59 50 45 3E 0D |........ <TYPE>.| 00001030: 11 0D 11 D0 C1 D3 D3 20 2D 2D 50 41 53 53 20 53 |....... --PASS S| 00001040: 54 52 49 4E 47 20 54 4F 20 44 49 53 4B 20 43 4F |TRING TO DISK CO| 00001050: 4D 4D 41 4E 44 20 43 48 41 4E 0D 11 20 D0 C1 D3 |MMAND CHAN.. ...| 00001060: D3 20 3C 44 49 53 4B 20 43 4F 4D 4D 41 4E 44 3E |. <DISK COMMAND>| 00001070: 0D 11 0D 11 D0 C5 C5 CB 20 2D 2D 20 4C 4F 4F 4B |........ -- LOOK| 00001080: 20 41 54 20 4D 45 4D 4F 52 59 0D 11 20 D0 C5 C5 | AT MEMORY.. ...| 00001090: CB 28 3C 4D 45 4D 4F 52 59 20 41 44 44 52 45 53 |.(<MEMORY ADDRES| 000010A0: 53 3E 29 0D 11 0D 11 D0 CF CB C5 20 2D 2D 20 43 |S>)........ -- C| 000010B0: 48 41 4E 47 45 20 4D 45 4D 4F 52 59 20 4C 4F 43 |HANGE MEMORY LOC| 000010C0: 41 54 49 4F 4E 0D 11 20 D0 CF CB C5 20 3C 4D 45 |ATION.. .... <ME| 000010D0: 4D 4F 52 59 20 41 44 44 52 45 53 53 3E 2C 3C 43 |MORY ADDRESS>,<C| 000010E0: 4F 4E 54 45 4E 54 53 3E 0D 11 0D 11 D0 D2 C9 CE |ONTENTS>........| 000010F0: D4 20 2D 50 52 49 4E 54 20 49 54 45 4D 53 20 54 |. -PRINT ITEMS T| 00001100: 4F 20 53 43 52 45 45 4E 2F 50 52 49 4E 54 2F 46 |O SCREEN/PRINT/F| 00001110: 49 4C 45 0D 11 20 D0 D2 C9 CE D4 20 DB C6 C9 CC |ILE.. ..... ....| 00001120: C5 20 3C 23 3E 3A DD 20 DB 3C 49 54 45 4D 53 3E |. <#>:. .<ITEMS>| 00001130: DD 0D 11 20 D0 D2 C9 CE D4 20 DB C6 C9 CC C5 20 |... ..... ..... | 00001140: 3C 23 3E 3A DD 20 D5 D3 C9 CE C7 20 3C 46 4F 52 |<#>:. ..... <FOR| 00001150: 4D 41 54 3E 3A 3C 56 41 52 3E 0D 11 20 28 D2 C1 |MAT>:<VAR>.. (..| 00001160: CE C4 CF CD 20 46 49 4C 45 20 55 53 45 3A 20 DB |.... FILE USE: .| 00001170: C6 C9 CC C5 20 3C 23 3E 2C 3C 52 45 43 23 3E 3A |.... <#>,<REC#>:| 00001180: DD 29 0D 11 0D 11 D0 D2 CF C3 20 2D 2D 20 53 54 |.)........ -- ST| 00001190: 41 52 54 20 4F 46 20 4D 55 4C 54 49 4C 49 4E 45 |ART OF MULTILINE| 000011A0: 20 50 52 4F 43 45 44 55 52 45 0D 11 20 D0 D2 CF | PROCEDURE.. ...| 000011B0: C3 20 3C 4E 41 4D 45 3E DB 28 3C 50 41 52 41 4D |. <NAME>.(<PARAM| 000011C0: 53 3E 29 DD 20 DB C3 CC CF D3 C5 C4 DD 0D 11 0D |S>). ...........| 000011D0: 11 D2 C1 CE C4 CF CD 20 2D 2D 20 52 41 4E 44 4F |....... -- RANDO| 000011E0: 4D 20 41 43 43 45 53 53 20 44 49 53 4B 20 46 49 |M ACCESS DISK FI| 000011F0: 4C 45 0D 11 20 CF D0 C5 CE 20 C6 C9 CC C5 20 3C |LE.. .... .... <| 00001200: 23 3E 2C 3C 46 49 4C 45 4E 41 4D 3E 2C D2 C1 CE |#>,<FILENAM>,...| 00001210: C4 CF CD 20 3C 52 45 43 4C 4E 3E 0D 11 0D 11 D2 |... <RECLN>.....| 00001220: C5 C1 C4 20 2D 2D 52 45 41 44 20 44 41 54 41 20 |... --READ DATA | 00001230: 46 52 4F 4D 20 C4 C1 D4 C1 20 4C 49 4E 45 20 4F |FROM .... LINE O| 00001240: 52 20 46 49 4C 45 0D 11 20 D2 C5 C1 C4 20 3C 56 |R FILE.. .... <V| 00001250: 41 52 20 4C 49 53 54 3E 0D 11 20 D2 C5 C1 C4 20 |AR LIST>.. .... | 00001260: C6 C9 CC C5 20 3C 46 49 4C 45 23 3E DB 2C 3C 52 |.... <FILE#>.,<R| 00001270: 45 43 23 3E DD 3A 20 3C 56 41 52 20 4C 49 53 54 |EC#>.: <VAR LIST| 00001280: 3E 0D 11 20 CF D0 C5 CE 20 DB C6 C9 CC C5 DD 20 |>.. .... ...... | 00001290: 3C 46 49 4C 45 4E 55 4D 3E 2C 3C 46 49 4C 45 4E |<FILENUM>,<FILEN| 000012A0: 41 4D 45 3E 2C D2 C5 C1 C4 0D 11 0D 11 0D 11 D2 |AME>,...........| 000012B0: C5 C6 20 2D 50 41 52 4D 20 56 41 52 20 55 53 45 |.. -PARM VAR USE| 000012C0: 44 20 49 4E 20 52 45 46 45 52 45 4E 43 45 20 49 |D IN REFERENCE I| 000012D0: 4E 20 50 52 4F 43 0D 11 20 D2 C5 C6 20 3C 56 41 |N PROC.. ... <VA| 000012E0: 52 3E 0D 11 0D 11 D2 C5 CE D5 CD 20 2D 2D 20 52 |R>......... -- R| 000012F0: 45 4E 55 4D 42 45 52 20 50 52 4F 47 52 41 4D 0D |ENUMBER PROGRAM.| 00001300: 11 20 D2 C5 CE D5 CD 20 DB 3C 54 41 52 47 45 54 |. ..... .<TARGET| 00001310: 53 54 41 52 54 3E DD DB 2C 3C 49 4E 43 52 45 4D |START>..,<INCREM| 00001320: 45 4E 54 3E DD 0D 11 0D 11 D2 C5 D0 C5 C1 D4 20 |ENT>........... | 00001330: 2D 2D 20 53 54 41 52 54 20 4F 46 20 D2 C5 D0 C5 |-- START OF ....| 00001340: C1 D4 20 53 54 52 55 43 54 55 52 45 0D 11 20 D2 |.. STRUCTURE.. .| 00001350: C5 D0 C5 C1 D4 0D 11 0D 11 D2 C5 D3 D4 CF D2 C5 |................| 00001360: 20 2D 2D 20 52 45 55 53 45 20 C4 C1 D4 C1 20 57 | -- REUSE .... W| 00001370: 49 54 48 20 D2 C5 C1 C4 0D 11 20 D2 C5 D3 D4 CF |ITH ...... .....| 00001380: D2 C5 0D 11 0D 11 D2 CE C4 20 2D 2D 20 52 41 4E |......... -- RAN| 00001390: 44 4F 4D 20 4E 55 4D 42 45 52 0D 11 20 D2 CE C4 |DOM NUMBER.. ...| 000013A0: 28 3C 4E 55 4D 3E 29 0D 11 20 D2 CE C4 28 3C 53 |(<NUM>).. ...(<S| 000013B0: 54 41 52 54 20 4E 55 4D 3E 3A 3C 45 4E 44 20 4E |TART NUM>:<END N| 000013C0: 55 4D 3E 29 0D 11 0D 11 D2 D5 CE 20 2D 2D 20 52 |UM>)....... -- R| 000013D0: 55 4E 20 50 52 4F 47 52 41 4D 20 4E 4F 57 20 49 |UN PROGRAM NOW I| 000013E0: 4E 20 4D 45 4D 4F 52 59 0D 11 20 D2 D5 CE 0D 11 |N MEMORY.. .....| 000013F0: 0D 11 D3 C1 D6 C5 20 2D 2D 20 52 45 43 4F 52 44 |...... -- RECORD| 00001400: 20 50 52 4F 47 52 41 4D 20 4F 4E 20 44 49 53 4B | PROGRAM ON DISK| 00001410: 0D 11 20 D3 C1 D6 C5 20 3C 46 49 4C 45 4E 41 4D |.. .... <FILENAM| 00001420: 45 3E 0D 11 0D 11 D3 C5 CC C5 C3 D4 20 2D 2D 20 |E>.......... -- | 00001430: 43 48 4F 4F 53 45 20 4F 55 54 50 55 54 20 4C 4F |CHOOSE OUTPUT LO| 00001440: 43 41 54 49 4F 4E 0D 11 20 D3 C5 CC C5 C3 D4 20 |CATION.. ...... | 00001450: DB CF D5 D4 D0 D5 D4 DD 20 3C 54 59 50 45 3E 0D |........ <TYPE>.| 00001460: 11 0D 11 D3 C7 CE 20 2D 2D 20 2D 31 20 49 46 20 |...... -- -1 IF | 00001470: 4E 45 47 2C 20 30 20 49 46 20 30 2C 20 31 20 49 |NEG, 0 IF 0, 1 I| 00001480: 46 20 50 4F 53 0D 11 20 D3 C7 CE 28 3C 4E 55 4D |F POS.. ...(<NUM| 00001490: 45 52 49 43 20 45 58 50 52 45 53 53 49 4F 4E 3E |ERIC EXPRESSION>| 000014A0: 29 0D 11 0D 11 D3 C9 CE 20 2D 2D 20 47 49 56 45 |)....... -- GIVE| 000014B0: 53 20 53 49 4E 45 20 49 4E 20 52 41 44 49 41 4E |S SINE IN RADIAN| 000014C0: 53 0D 11 20 D3 C9 CE 28 3C 4E 55 4D 45 52 49 43 |S.. ...(<NUMERIC| 000014D0: 20 45 58 50 52 45 53 53 49 4F 4E 3E 29 0D 11 0D | EXPRESSION>)...| 000014E0: 11 D3 C9 DA C5 20 2D 52 45 50 4F 52 54 20 4F 4E |..... -REPORT ON| 000014F0: 20 46 52 45 45 20 4D 45 4D 4F 52 59 0D 11 20 D3 | FREE MEMORY.. .| 00001500: C9 DA C5 0D 11 0D 11 D3 D1 D2 20 2D 2D 20 47 49 |.......... -- GI| 00001510: 56 45 53 20 53 51 55 41 52 45 20 52 4F 4F 54 0D |VES SQUARE ROOT.| 00001520: 11 20 D3 D1 D2 28 3C 4E 55 4D 45 52 49 43 20 45 |. ...(<NUMERIC E| 00001530: 58 50 52 45 53 53 49 4F 4E 3E 29 0D 11 0D 11 D3 |XPRESSION>).....| 00001540: D4 C1 D4 D5 D3 24 20 2D 2D 20 53 54 41 54 55 53 |.....$ -- STATUS| 00001550: 20 4F 46 20 44 49 53 4B 20 43 48 41 4E 4E 45 4C | OF DISK CHANNEL| 00001560: 0D 11 20 D3 D4 C1 D4 D5 D3 24 0D 11 0D 11 D3 D4 |.. ......$......| 00001570: C5 D0 20 2D 49 4E 43 52 45 4D 45 4E 54 20 C6 CF |.. -INCREMENT ..| 00001580: D2 20 4C 4F 4F 50 20 42 59 20 54 48 49 53 20 41 |. LOOP BY THIS A| 00001590: 4D 4F 55 4E 54 0D 11 20 D3 D4 C5 D0 20 3C 4E 55 |MOUNT.. .... <NU| 000015A0: 4D 45 52 49 43 20 45 58 50 52 45 53 53 49 4F 4E |MERIC EXPRESSION| 000015B0: 3E 0D 11 0D 11 D3 D4 CF D0 20 2D 2D 20 48 41 4C |>........ -- HAL| 000015C0: 54 20 50 52 4F 47 52 41 4D 20 45 58 45 43 55 54 |T PROGRAM EXECUT| 000015D0: 49 4F 4E 0D 11 20 D3 D4 CF D0 0D 11 0D 11 D3 D9 |ION.. ..........| 000015E0: D3 20 2D 2D 20 54 52 41 4E 53 46 45 52 20 43 4F |. -- TRANSFER CO| 000015F0: 4E 54 52 4F 4C 20 54 4F 20 4D 41 43 48 49 4E 45 |NTROL TO MACHINE| 00001600: 20 43 4F 44 45 0D 11 20 D3 D9 D3 28 3C 4D 45 4D | CODE.. ...(<MEM| 00001610: 4F 52 59 20 41 44 44 52 45 53 53 3E 29 0D 11 0D |ORY ADDRESS>)...| 00001620: 11 D4 C1 C2 20 2D 2D 20 50 52 49 4E 54 20 53 50 |.... -- PRINT SP| 00001630: 41 43 45 53 20 54 4F 20 53 50 45 43 49 46 49 45 |ACES TO SPECIFIE| 00001640: 44 20 43 4F 4C 55 4D 4E 0D 11 20 D4 C1 C2 28 3C |D COLUMN.. ...(<| 00001650: 43 4F 4C 55 4D 4E 20 4E 55 4D 42 45 52 3E 29 0D |COLUMN NUMBER>).| 00001660: 11 0D 11 D4 C1 CE 20 2D 2D 20 47 49 56 45 53 20 |...... -- GIVES | 00001670: 54 41 4E 47 45 4E 54 20 49 4E 20 52 41 44 49 41 |TANGENT IN RADIA| 00001680: 4E 53 0D 11 20 D4 C1 CE 28 3C 4E 55 4D 45 52 49 |NS.. ...(<NUMERI| 00001690: 43 20 45 58 50 52 45 53 53 49 4F 4E 3E 29 0D 11 |C EXPRESSION>)..| 000016A0: 0D 11 D4 C8 C5 CE 20 2D 2D 20 50 41 52 54 20 4F |...... -- PART O| 000016B0: 46 20 C9 C6 20 53 54 52 55 43 54 55 52 45 0D 11 |F .. STRUCTURE..| 000016C0: 20 D4 C8 C5 CE 0D 11 0D 11 D4 CF 20 2D 49 4E 43 | .......... -INC| 000016D0: 52 45 4D 45 4E 54 20 C6 CF D2 20 56 41 52 49 41 |REMENT ... VARIA| 000016E0: 42 4C 45 20 53 54 41 52 54 20 D4 CF 20 45 4E 44 |BLE START .. END| 000016F0: 0D 11 20 3C 53 54 41 52 54 20 4E 55 4D 3E 20 D4 |.. <START NUM> .| 00001700: CF 20 3C 45 4E 44 20 4E 55 4D 3E 0D 11 0D 11 D4 |. <END NUM>.....| 00001710: D2 C1 D0 20 2D 2D 20 44 49 53 41 42 4C 45 20 53 |... -- DISABLE S| 00001720: 54 4F 50 20 4B 45 59 0D 11 20 D4 D2 C1 D0 20 C5 |TOP KEY.. .... .| 00001730: D3 C3 3C 54 59 50 45 3E 0D 11 0D 11 D4 D2 D5 C5 |..<TYPE>........| 00001740: 20 2D 2D 20 50 52 45 44 45 46 49 4E 45 44 20 56 | -- PREDEFINED V| 00001750: 41 4C 55 45 20 4F 46 20 31 0D 11 20 D4 D2 D5 C5 |ALUE OF 1.. ....| 00001760: 0D 11 0D 11 D5 CE C9 D4 20 2D 2D 20 53 50 45 43 |........ -- SPEC| 00001770: 49 46 59 20 55 4E 49 54 20 28 44 45 56 49 43 45 |IFY UNIT (DEVICE| 00001780: 29 0D 11 20 CF D0 C5 CE 20 C6 C9 CC C5 20 3C 46 |).. .... .... <F| 00001790: 49 4C 45 23 3E 2C 3C 46 49 4C 45 4E 41 4D 3E 2C |ILE#>,<FILENAM>,| 000017A0: D5 CE C9 D4 20 3C 44 45 56 3E 0D 11 20 20 20 20 |.... <DEV>.. | 000017B0: 20 20 20 DB 2C 3C 53 45 43 20 41 44 52 3E DD DB | .,<SEC ADR>..| 000017C0: 2C 3C 54 59 50 45 3E DD 0D 11 0D 11 D5 CE D4 C9 |,<TYPE>.........| 000017D0: CC 20 2D 2D 20 45 4E 44 20 4F 46 20 D2 C5 D0 C5 |. -- END OF ....| 000017E0: C1 D4 20 4C 4F 4F 50 0D 11 20 D5 CE D4 C9 CC 20 |.. LOOP.. ..... | 000017F0: 3C 45 58 50 52 45 53 53 49 4F 4E 3E 0D 11 0D 11 |<EXPRESSION>....| 00001800: D5 D3 C9 CE C7 20 2D 2D 46 4F 52 4D 41 54 54 45 |..... --FORMATTE| 00001810: 44 20 4F 55 54 50 55 54 20 28 4E 4F 54 20 D0 C5 |D OUTPUT (NOT ..| 00001820: D4 20 30 2E 31 34 29 0D 11 20 D0 D2 C9 CE D4 20 |. 0.14).. ..... | 00001830: D5 D3 C9 CE C7 20 3C 46 4F 52 4D 41 54 3E 3A 20 |..... <FORMAT>: | 00001840: 3C 56 41 52 20 4C 49 53 54 3E 0D 11 0D 11 D7 C8 |<VAR LIST>......| 00001850: C5 CE 20 2D 2D 20 43 48 4F 49 43 45 20 49 4E 20 |.. -- CHOICE IN | 00001860: C3 C1 D3 C5 20 53 54 52 55 43 54 55 52 45 0D 11 |.... STRUCTURE..| 00001870: 20 D7 C8 C5 CE 20 3C 4C 49 53 54 20 4F 46 20 56 | .... <LIST OF V| 00001880: 41 4C 55 45 53 3E 0D 11 0D 11 D7 C8 C9 CC C5 20 |ALUES>......... | 00001890: 2D 2D 20 53 54 41 52 54 20 4F 46 20 D7 C8 C9 CC |-- START OF ....| 000018A0: C5 20 53 54 52 55 43 54 55 52 45 0D 11 20 D7 C8 |. STRUCTURE.. ..| 000018B0: C9 CC C5 20 3C 45 58 50 52 45 53 53 49 4F 4E 3E |... <EXPRESSION>| 000018C0: 20 DB C4 CF DD 20 DB 3C 53 54 41 54 45 4D 45 4E | .... .<STATEMEN| 000018D0: 54 3E DD 0D 11 0D 11 D7 D2 C9 D4 C5 20 2D 2D 20 |T>.......... -- | 000018E0: 57 52 49 54 45 20 54 4F 20 41 20 46 49 4C 45 0D |WRITE TO A FILE.| 000018F0: 11 20 D7 D2 C9 D4 C5 20 C6 C9 CC C5 20 3C 46 49 |. ..... .... <FI| 00001900: 4C 45 23 3E DB 2C 3C 52 45 43 23 3E DD 3A 20 3C |LE#>.,<REC#>.: <| 00001910: 56 41 52 4C 49 53 54 3E 0D 11 20 CF D0 C5 CE 20 |VARLIST>.. .... | 00001920: DB C6 C9 CC C5 DD 20 3C 46 49 4C 45 4E 55 4D 3E |...... <FILENUM>| 00001930: 2C 3C 46 49 4C 45 4E 41 4D 45 3E 2C D7 D2 C9 D4 |,<FILENAME>,....| 00001940: C5 0D 11 0D 11 DA CF CE C5 20 2D 2D 20 54 41 42 |......... -- TAB| 00001950: 20 49 4E 43 52 45 4D 45 4E 54 0D 11 20 DA CF CE | INCREMENT.. ...| 00001960: C5 20 3C 54 41 42 20 49 4E 54 45 52 56 41 4C 3E |. <TAB INTERVAL>| 00001970: 0D 11 20 DA CF CE C5 0D 0D |.. ...... |
.COMAL KEYWORDS: (VERSION 0.14)....// -- ALLOWS COMMENTS IN A PROGRAM.. //.<ANYT HING>.....ABS -- GIVES THE ABSOLUTE VALU E.. ABS(<NUMERIC EXPRESSION>)....AND -- LOGICAL AND.. <EXPRESSION> AND <EXPRESSI ON>....APPEND -- START AT END OF SEQ FIL E.. OPEN .FILE. <FILE#>,<FILENAME>,APPEN D....ATN -- ARCTANGENT IN RADIANS.. ATN( <NUMERIC EXPRESSION>)....AUTO -- AUTOMAT IC LINE NUMBERING.. AUTO .<START LINE>.. ,<INCREMENT>.....BASIC -- BACK INTO BASI C MODE.. BASIC....CASE -- MULTIPLE CHOIC E DECISIONS.. CASE <CONTROL EXPRESSION> .OF.....CAT -- GIVES DISK DIRECTORY.. CA T .<DRIVE NUMBER>.....CHAIN -- LOAD & RU N PROGRAM ON DISK.. CHAIN <FILENAME>.... CHR$ -- GIVES THAT NUMBERS CHARACTER.. C HR$(<NUMERIC EXPRESSION>)....CLOSE -- CL OSES FILES.. CLOSE ..FILE. <FILENUM>.... .CLOSED -- ALL PROC/FUNC VARIABLES LOCAL .. PROC <PROCNAME>.(PARAMS). .CLOSED... FUNC <FUNCNAME>.(PARAMS). .CLOSED.....CO N -- CONTINUE PROGRAM EXECUTION.. CON... .COS -- COSINE IN RADIANS.. COS(<NUMERIC EXPRESSION>)....DATA -- PROVIDES DATA F OR A READ.. DATA <VALUE>.,<VALUE>..,.... ....DEL -- DELETES LINES.. DEL <RANGE>.. ..DELETE -- DELETES A FILE FROM DISK.. D ELETE <FILENAME>....DIM -RESERVE/ALLOCAT E STRING/ARRAY SPAC.. DIM <STRING VAR> O F <MAX CHAR>.. DIM <STR ARRAY>(<INDEX>) OF <MAX CHAR>.. DIM <ARRAY NAME>(<INDEX> )....DIV -- DIVISION WITH INTEGER ANSWER .. <DIVIDEND> DIV <DIVISOR>....DO -- DO THE FOLLOWING STATEMENTS.. DO <STATEMENT S>....EDIT -- LIST LINES WITHOUT INDENTA TIONS.. EDIT .<RANGE>.....ELIF -- SHORT FOR ELSE IF CONDITION.. ELIF <EXPRESSION > .THEN.....ELSE -ALTERNATIVE IF STRUC S TATEMENTS.. ELSE....END -- HALT PROGRAM EXECUTION.. END....ENDCASE -- END OF CAS E STRUCTURE.. ENDCASE....ENDFOR -- END O F FOR STRUCTURE.. ENDFOR .<CONTROL VARIA BLE>.....ENDFUNC -- END OF FUNCTION.. EN DFUNC .<FUNCTION NAME>.....ENDIF -- END OF IF STRUCTURE.. ENDIF....ENDPROC -- EN D OF PROCEDURE.. ENDPROC .<PROCEDURE NAM E>.....ENDWHILE -- END OF WHILE STRUCTUR E.. ENDWHILE....ENTER --MERGE PROGRAM SE GMENT FROM DISK.. ENTER <FILENAME>....EO D -- END OF DATA FLAG.. EOD....EOF -- EN D OF FILE FLAG.. EOF(<FILENUM>)....ESC - - STOP KEY PRESSED FLAG.. ESC.. TRAP ESC <TYPE>....EXEC -- EXECUTE A PROCEDURE.. .EXEC. <PROCNAME>.(<PARAMETER LIST>).... .EXP -- NATURAL LOG E TO N.. EXP(<NUMERI C EXPRESSION>)....FALSE -- PREDEFINED VA LUE = 0.. FALSE....FILE -- SPECIFIES A F ILE IS TO BE USED.. INPUT FILE <FILE#>., <REC#>.: <VARLIST>.. PRINT FILE <FILE#>. ,<REC#>.: <VALLIST>.. READ FILE <FILE#>. ,<REC#>.: <VAR LIST>.. WRITE FILE <FILE# >.,<REC#>.: <VARLIST>.. OPEN .FILE. <FIL E#>,<FILENAM>.,<TYPE>... CLOSE ..FILE. < FILE#>.....FOR -- START OF FOR LOOP STRU CTURE.. FOR <VAR>:=<START> TO <END> .STE P <S>.....FUNC -- START OF A MULTILINE F UNCTION.. FUNC <NAME>.(<PARAMS>). .CLOSE D.....GOTO -- GO TO LINE WITH THIS NAME. . GOTO <LABEL NAME>....IF -- START OF CO NDITIONAL IF STRUCTURE.. IF <CONDITION> .THEN... IF <CONDITION> THEN <STATEMENT> ....IN -- LOCATE STRING1 WITHIN STRING2. . <STRING1> IN <STRING2>....INPUT -- INP UT FROM KEYBOARD OR FILE.. INPUT .<PROMP T>:. <VAR LIST>.. INPUT FILE <FILE#>.,<R EC#>.:<VAR LIST>....INT -NEAREST INTEGER LESS THAN OR EQUAL.. INT(<NUMERIC EXPRE SSION>)....KEY$ -SCAN KEYBOARD(NOT PET C OMAL 0.14).. KEY$....LABEL -- ASSIGN LAB EL NAME TO THE LINE.. <LABEL NAME>:....L EN -- GIVES THE LENGTH OF STRING.. LEN(< STRING EXPRESSION>)....LET -- ASSIGN VAL UE TO VARIABLE.. := OR :+ OR :- ....LIST -- LIST PROGRAM.. LIST .<RANGE> . .<FILENAME>.....LOAD -- LOAD A PROGRAM FROM DISK.. LOAD <FILENAME>....LOG -- N ATURAL LOGARITHM OF N.. LOG(<NUMERIC EXP RESSION>)....MOD -- REMAINDER OF DIVISIO N (MODULO).. <DIVIDEND> MOD <DIVISOR>... .NEW -- 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 <MAX CHAR>.. DIM <STRINGARRAY>(INDE X) OF <MAX CHAR>....OPEN -- OPEN A FILE. . OPEN .FILE. <FILE#>,<FILENAM>.,<TYPE>. ....OR -- LOGICAL OR.. <CONDITION> OR <C ONDITION>....ORD -RETURN INTEGER REPRESE NTING CHAR.. ORD(<STRING EXPRESSION>)... .OTHERWISE -- DEFAULT FOR CASE.. OTHERWI SE....OUTPUT -- SELECT OUTPUT LOCATION.. SELECT .OUTPUT. <TYPE>....PASS --PASS S TRING TO DISK COMMAND CHAN.. PASS <DISK COMMAND>....PEEK -- LOOK AT MEMORY.. PEE K(<MEMORY ADDRESS>)....POKE -- CHANGE ME MORY LOCATION.. POKE <MEMORY ADDRESS>,<C ONTENTS>....PRINT -PRINT ITEMS TO SCREEN /PRINT/FILE.. PRINT .FILE <#>:. .<ITEMS> ... PRINT .FILE <#>:. USING <FORMAT>:<VA R>.. (RANDOM FILE USE: .FILE <#>,<REC#>: .)....PROC -- START OF MULTILINE PROCEDU RE.. PROC <NAME>.(<PARAMS>). .CLOSED.... .RANDOM -- RANDOM ACCESS DISK FILE.. OPE N FILE <#>,<FILENAM>,RANDOM <RECLN>....R EAD --READ DATA FROM DATA LINE OR FILE.. READ <VAR LIST>.. READ FILE <FILE#>.,<R EC#>.: <VAR LIST>.. OPEN .FILE. <FILENUM >,<FILENAME>,READ......REF -PARM VAR USE D IN REFERENCE IN PROC.. REF <VAR>....RE NUM -- RENUMBER PROGRAM.. RENUM .<TARGET START>..,<INCREMENT>.....REPEAT -- START OF REPEAT STRUCTURE.. REPEAT....RESTORE -- REUSE DATA WITH READ.. RESTORE....RN D -- RANDOM NUMBER.. RND(<NUM>).. RND(<S TART NUM>:<END NUM>)....RUN -- RUN PROGR AM NOW IN MEMORY.. RUN....SAVE -- RECORD PROGRAM ON DISK.. SAVE <FILENAME>....SE LECT -- CHOOSE OUTPUT LOCATION.. SELECT .OUTPUT. <TYPE>....SGN -- -1 IF NEG, 0 I F 0, 1 IF POS.. SGN(<NUMERIC EXPRESSION> )....SIN -- GIVES SINE IN RADIANS.. SIN( <NUMERIC EXPRESSION>)....SIZE -REPORT ON FREE MEMORY.. SIZE....SQR -- GIVES SQUA RE ROOT.. SQR(<NUMERIC EXPRESSION>)....S TATUS$ -- STATUS OF DISK CHANNEL.. STATU S$....STEP -INCREMENT FOR LOOP BY THIS A MOUNT.. STEP <NUMERIC EXPRESSION>....STO P -- HALT PROGRAM EXECUTION.. STOP....SY S -- TRANSFER CONTROL TO MACHINE CODE.. SYS(<MEMORY ADDRESS>)....TAB -- PRINT SP ACES TO SPECIFIED COLUMN.. TAB(<COLUMN N UMBER>)....TAN -- GIVES TANGENT IN RADIA NS.. TAN(<NUMERIC EXPRESSION>)....THEN - - PART OF IF STRUCTURE.. THEN....TO -INC REMENT FOR VARIABLE START TO END.. <STAR T NUM> TO <END NUM>....TRAP -- DISABLE S TOP KEY.. TRAP ESC<TYPE>....TRUE -- PRED EFINED VALUE OF 1.. TRUE....UNIT -- SPEC IFY UNIT (DEVICE).. OPEN FILE <FILE#>,<F ILENAM>,UNIT <DEV>.. .,<SEC ADR>.. ,<TYPE>.....UNTIL -- END OF REPEAT LOOP. . UNTIL <EXPRESSION>....USING --FORMATTE D OUTPUT (NOT PET 0.14).. PRINT USING <F ORMAT>: <VAR LIST>....WHEN -- CHOICE IN CASE STRUCTURE.. WHEN <LIST OF VALUES>.. ..WHILE -- START OF WHILE STRUCTURE.. WH ILE <EXPRESSION> .DO. .<STATEMENT>.....W RITE -- WRITE TO A FILE.. WRITE FILE <FI LE#>.,<REC#>.: <VARLIST>.. OPEN .FILE. < FILENUM>,<FILENAME>,WRITE....ZONE -- TAB INCREMENT.. ZONE <TAB INTERVAL>.. ZONE. .
> CLICK IMAGE PREVIEW FOR FULL MODAL