MACRO PROCESSOR
FILE INFORMATION
FILENAME(S): MACRO PROCESSOR
FILE TYPE(S): PRG
FILE SIZE: 6.5K
FIRST SEEN: 2025-11-30 18:12:06
APPEARS ON: 1 disk(s)
FILE HASH
1aa1fb3cd8d5616583f9a1a38cae9b2952b46b4fbf4efe1f7e61b9be0cb51f38
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 34 S 2 | MACRO PROCESSOR | PRG | Sailor, Ganheden | 11 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 01 00 8B 41 47 B2 30 A7 41 47 B2 31 |..&....AG.0.AG.1| 00000010: 3A 93 22 43 36 34 20 44 49 52 2E 52 45 41 44 45 |:."C64 DIR.READE| 00000020: 52 22 2C 38 2C 31 00 34 08 02 00 44 49 52 B2 34 |R",8,1.4...DIR.4| 00000030: 39 31 35 32 00 3A 08 03 00 3A 00 45 08 05 00 8D |9152.:...:.E....| 00000040: 35 31 30 30 30 00 63 08 0A 00 8F 20 2A 2A 2A 20 |51000.c.... *** | 00000050: 4D 41 43 52 4F 20 50 52 4F 43 45 53 53 4F 52 20 |MACRO PROCESSOR | 00000060: 2A 2A 2A 00 71 08 0C 00 44 49 52 B2 34 39 31 35 |***.q...DIR.4915| 00000070: 32 00 A6 08 1E 00 4E 30 24 B2 C7 28 30 29 3A 51 |2.....N0$..(0):Q| 00000080: 55 4F 54 45 24 B2 C7 28 33 34 29 3A 54 52 55 45 |UOTE$..(34):TRUE| 00000090: B2 31 3A 46 41 4C 53 45 B2 30 3A 86 20 50 41 52 |.1:FALSE.0:. PAR| 000000A0: 4D 24 28 32 30 29 00 C0 08 28 00 47 54 24 B2 C7 |M$(20)...(.GT$..| 000000B0: 28 31 33 37 29 3A 47 53 24 B2 C7 28 31 34 31 29 |(137):GS$..(141)| 000000C0: 00 DD 08 32 00 97 35 33 32 38 31 2C 31 3A 97 35 |...2..53281,1:.5| 000000D0: 33 32 38 30 2C 35 3A 97 36 34 36 2C 30 00 10 09 |3280,5:.646,0...| 000000E0: 37 00 99 22 93 11 0E 20 20 C0 C0 C0 C0 C0 C0 C0 |7.."... .......| 000000F0: 20 12 C2 C1 D3 C9 C3 20 CD 41 43 52 4F 20 D0 52 | ...... .ACRO .R| 00000100: 4F 43 45 53 53 4F 52 92 20 C0 C0 C0 C0 C0 C0 22 |OCESSOR. ......"| 00000110: 00 37 09 39 00 99 22 20 20 20 20 20 20 20 20 20 |.7.9.." | 00000120: 20 20 20 42 59 20 CD 49 43 48 41 45 4C 20 CC 45 | BY .ICHAEL .E| 00000130: 49 44 45 4C 11 11 22 00 69 09 3C 00 99 22 11 C5 |IDEL..".i.<.."..| 00000140: 4E 54 45 52 20 4E 41 4D 45 20 4F 46 20 48 4F 53 |NTER NAME OF HOS| 00000150: 54 20 50 52 4F 47 52 41 4D 20 28 53 4F 55 52 43 |T PROGRAM (SOURC| 00000160: 45 20 46 49 4C 45 29 22 3B 00 8F 09 3E 00 99 22 |E FILE)";...>.."| 00000170: 3C D0 52 45 53 53 20 D2 C5 D4 D5 D2 CE 20 46 4F |<.RESS ...... FO| 00000180: 52 20 41 20 44 49 52 45 43 54 4F 52 59 3E 22 00 |R A DIRECTORY>".| 00000190: B8 09 3F 00 99 22 3C C5 4E 54 45 52 20 27 D1 27 |..?.."<.NTER '.'| 000001A0: 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 CC CF | TO RETURN TO ..| 000001B0: C1 C4 D3 D4 C1 D2 3E 22 00 C3 09 41 00 8D 36 31 |......>"...A..61| 000001C0: 30 30 30 00 E6 09 42 00 8B 50 24 B2 22 44 49 52 |000...B..P$."DIR| 000001D0: 22 B0 50 24 B2 22 C4 C9 D2 22 B0 50 24 B2 22 22 |".P$."...".P$.""| 000001E0: A7 36 32 30 30 30 00 0C 0A 43 00 8B 50 24 B2 22 |.62000...C..P$."| 000001F0: 51 22 B0 50 24 B2 22 51 55 49 54 22 B0 50 24 B2 |Q".P$."QUIT".P$.| 00000200: 22 D1 D5 C9 D4 22 A7 35 30 30 30 30 00 38 0A 46 |"....".50000.8.F| 00000210: 00 99 22 11 11 D0 52 4F 43 45 53 53 49 4E 47 2E |.."...ROCESSING.| 00000220: 2E 2E 22 50 24 3A 99 3A 4D 41 43 52 4F B2 46 41 |.."P$:.:MACRO.FA| 00000230: 4C 53 45 3A 43 48 B2 32 00 4F 0A 4B 00 4C 49 B2 |LSE:CH.2.O.K.LI.| 00000240: 31 31 3A 97 31 2C 35 35 3A 8D 36 33 30 30 30 00 |11:.1,55:.63000.| 00000250: 82 0A 50 00 9F 31 2C 38 2C 31 35 3A 9F 32 2C 38 |..P..1,8,15:.2,8| 00000260: 2C 32 2C 22 30 3A 22 AA 50 24 AA 22 2C 50 2C 52 |,2,"0:".P$.",P,R| 00000270: 22 3A 84 31 2C 45 2C 45 24 3A 8B 45 B2 30 A7 31 |":.1,E,E$:.E.0.1| 00000280: 30 30 00 99 0A 5A 00 A0 32 3A A0 31 3A 99 45 2C |00...Z..2:.1:.E,| 00000290: 45 24 3A 89 35 30 30 30 30 00 C8 0A 64 00 9F 33 |E$:.50000...d..3| 000002A0: 2C 38 2C 33 2C 22 30 3A 22 AA 50 24 AA 22 2E 45 |,8,3,"0:".P$.".E| 000002B0: 58 50 2C 50 2C 57 22 3A 84 31 2C 45 2C 45 24 3A |XP,P,W":.1,E,E$:| 000002C0: 8B 45 B2 30 A7 31 32 30 00 F8 0A 6E 00 A0 33 3A |.E.0.120...n..3:| 000002D0: 98 31 2C 22 53 30 3A 22 AA 50 24 AA 22 2E 45 58 |.1,"S0:".P$.".EX| 000002E0: 50 22 3A 84 31 2C 45 2C 45 24 2C 45 3A 99 45 24 |P":.1,E,E$,E:.E$| 000002F0: 2C 45 3A 89 20 31 30 30 00 14 0B 78 00 98 33 2C |,E:. 100...x..3,| 00000300: C7 28 31 29 3B C7 28 38 29 3B 3A 8D 32 34 30 3A |.(1);.(8);:.240:| 00000310: 8D 32 34 30 00 3A 0B 82 00 8F 20 2A 2A 2A 2A 20 |.240.:.... **** | 00000320: 4D 41 49 4E 20 50 52 4F 43 45 53 53 49 4E 47 20 |MAIN PROCESSING | 00000330: 4C 4F 47 49 43 20 2A 2A 2A 2A 00 61 0B 8C 00 8D |LOGIC ****.a....| 00000340: 32 34 30 3A 44 24 B2 43 24 3A 8D 32 34 30 3A 8B |240:D$.C$:.240:.| 00000350: 44 24 B2 4E 30 24 AF 43 24 B2 4E 30 24 A7 34 36 |D$.N0$.C$.N0$.46| 00000360: 30 00 6F 0B 96 00 8D 32 36 30 3A 8D 32 34 30 00 |0.o....260:.240.| 00000370: 8D 0B A0 00 8B 20 43 24 B2 22 5B 22 20 A7 8D 33 |..... C$."[" ..3| 00000380: 36 30 3A 4C 24 B2 22 22 3A 89 31 34 30 00 B0 0B |60:L$."":.140...| 00000390: AA 00 8B 20 43 24 B2 22 21 22 20 A7 20 8B 20 4D |... C$."!" . . M| 000003A0: 41 43 52 4F 20 A7 20 8D 36 35 30 3A 89 31 34 30 |ACRO . .650:.140| 000003B0: 00 E1 0B B4 00 8B 20 45 58 43 4C 55 44 45 20 B0 |...... EXCLUDE .| 000003C0: 20 43 24 B2 51 55 4F 54 45 24 20 A7 20 8B 20 4D | C$.QUOTE$ . . M| 000003D0: 41 43 52 4F 20 A7 20 8D 31 32 31 30 3A 89 31 34 |ACRO . .1210:.14| 000003E0: 30 00 00 0C BE 00 8B 20 43 24 B2 22 5F 22 20 A7 |0...... C$."_" .| 000003F0: 20 8B 20 4D 41 43 52 4F 20 A7 20 8D 31 31 33 30 | . MACRO . .1130| 00000400: 00 26 0C C8 00 8B 20 43 24 B2 47 54 24 B0 43 24 |.&.... C$.GT$.C$| 00000410: B2 47 53 24 A7 20 8B 20 4D 41 43 52 4F 20 A7 20 |.GS$. . MACRO . | 00000420: 8D 20 31 34 38 30 00 4E 0C D2 00 4C 24 B2 4C 24 |. 1480.N...L$.L$| 00000430: AA 43 24 3A 8B 20 43 24 B2 4E 30 24 20 A7 20 8D |.C$:. C$.N0$ . .| 00000440: 33 30 30 3A 4C 24 B2 22 22 3A 89 31 34 30 00 5C |300:L$."":.140.\| 00000450: 0C DC 00 8D 32 34 30 3A 89 31 39 30 00 80 0C E6 |....240:.190....| 00000460: 00 8F 20 2A 20 43 4C 4F 53 45 44 20 53 55 42 52 |.. * CLOSED SUBR| 00000470: 4F 55 54 49 4E 45 53 20 46 4F 4C 4C 4F 57 20 2A |OUTINES FOLLOW *| 00000480: 00 9A 0C F0 00 A1 23 43 48 2C 43 24 3A 8B 43 24 |......#CH,C$:.C$| 00000490: B2 22 22 A7 43 24 B2 4E 30 24 00 A0 0C FA 00 8E |."".C$.N0$......| 000004A0: 00 C1 0C 04 01 A1 23 43 48 2C 4C 4E 24 2C 48 4E |......#CH,LN$,HN| 000004B0: 24 3A 8B 4C 4E 24 B2 22 22 A7 4C 4E 24 B2 4E 30 |$:.LN$."".LN$.N0| 000004C0: 24 00 D6 0C 0E 01 8B 20 48 4E 24 B2 22 22 A7 48 |$...... HN$."".H| 000004D0: 4E 24 B2 4E 30 24 00 01 0D 18 01 8B 20 4D 41 43 |N$.N0$...... MAC| 000004E0: 52 4F 20 A7 20 4C 4D B2 4C 4D AA 31 3A 8B 4C 4D |RO . LM.LM.1:.LM| 000004F0: B1 32 35 35 A7 48 4D B2 48 4D AA 31 3A 4C 4D B2 |.255.HM.HM.1:LM.| 00000500: 30 00 07 0D 22 01 8E 00 1F 0D 2C 01 8B 57 B2 30 |0...".....,..W.0| 00000510: A7 57 B2 C3 28 4C 24 29 AA 35 3A 89 33 32 30 00 |.W..(L$).5:.320.| 00000520: 2D 0D 36 01 57 B2 C3 28 4C 24 29 AA 34 00 68 0D |-.6.W..(L$).4.h.| 00000530: 40 01 57 54 B2 57 54 AA 57 3A 58 B2 B5 28 57 54 |@.WT.WT.W:X..(WT| 00000540: AD 32 35 36 29 3A 48 50 24 B2 C7 28 58 AA 38 29 |.256):HP$..(X.8)| 00000550: 3A 58 B2 28 57 54 AB 28 58 AC 32 35 36 29 29 3A |:X.(WT.(X.256)):| 00000560: 4C 50 24 B2 C7 28 58 29 00 87 0D 4A 01 8B 4D 41 |LP$..(X)...J..MA| 00000570: 43 52 4F A7 4C 4E 24 B2 C7 28 4C 4D 29 3A 48 4E |CRO.LN$..(LM):HN| 00000580: 24 B2 C7 28 48 4D 29 00 A4 0D 54 01 98 33 2C 4C |$..(HM)...T..3,L| 00000590: 50 24 3B 48 50 24 3B 4C 4E 24 3B 48 4E 24 3B 4C |P$;HP$;LN$;HN$;L| 000005A0: 24 3B 3A 8E 00 C2 0D 5E 01 8F 20 2A 2A 2A 20 4F |$;:....^.. *** O| 000005B0: 50 45 4E 20 4D 41 43 52 4F 20 46 49 4C 45 20 2A |PEN MACRO FILE *| 000005C0: 2A 2A 00 F8 0D 68 01 4C 46 24 B2 22 22 3A 4C 24 |**...h.LF$."":L$| 000005D0: B2 22 22 3A 8B 20 4D 41 43 52 4F 20 A7 20 99 22 |."":. MACRO . ."| 000005E0: C3 41 4E 4E 4F 54 20 4E 45 53 54 20 4D 41 43 52 |.ANNOT NEST MACR| 000005F0: 4F 53 22 3A 89 37 38 30 00 2C 0E 72 01 8D 32 34 |OS":.780.,.r..24| 00000600: 30 3A 8B 43 24 B3 B1 C7 28 33 34 29 A7 98 31 2C |0:.C$...(34)..1,| 00000610: 22 49 22 3A 99 22 11 CD 49 53 53 49 4E 47 20 51 |"I":."..ISSING Q| 00000620: 55 4F 54 45 53 22 3A 89 20 37 38 30 00 4B 0E 7C |UOTES":. 780.K.|| 00000630: 01 8D 32 34 30 3A 8B 43 24 B2 22 2C 22 A7 20 8D |..240:.C$.",". .| 00000640: 34 39 30 3A 99 3A 89 20 34 31 30 00 6C 0E 86 01 |490:.:. 410.l...| 00000650: 8B 43 24 B2 51 55 4F 54 45 24 20 A7 20 8D 32 34 |.C$.QUOTE$ . .24| 00000660: 30 3A 8D 32 34 30 3A 89 20 34 31 30 00 85 0E 90 |0:.240:. 410....| 00000670: 01 4C 46 24 B2 4C 46 24 AA 43 24 3A 99 43 24 3B |.LF$.LF$.C$:.C$;| 00000680: 3A 89 33 38 30 00 B2 0E 9A 01 9F 35 2C 38 2C 35 |:.380......5,8,5| 00000690: 2C 22 30 3A 22 AA 4C 46 24 AA 22 2C 50 2C 52 22 |,"0:".LF$.",P,R"| 000006A0: 3A 84 31 2C 45 2C 45 24 3A 8B 45 B2 30 A7 20 34 |:.1,E,E$:.E.0. 4| 000006B0: 33 30 00 D3 0E A4 01 99 22 93 C6 49 4C 45 20 45 |30......"..ILE E| 000006C0: 52 52 4F 52 22 3B 45 3B 4C 46 24 3B 45 24 3A 89 |RROR";E;LF$;E$:.| 000006D0: 37 38 30 00 F1 0E AE 01 4D 41 43 52 4F B2 54 52 |780.....MACRO.TR| 000006E0: 55 45 3A 43 48 B2 35 3A 8D 32 34 30 3A 8D 32 34 |UE:CH.5:.240:.24| 000006F0: 30 00 16 0F B8 01 4C 4D B2 C6 28 4C 4E 24 29 3A |0.....LM..(LN$):| 00000700: 48 4D B2 C6 28 48 4E 24 29 3A 4D 42 B2 48 4D AC |HM..(HN$):MB.HM.| 00000710: 32 35 36 AA 4C 4D 00 40 0F C2 01 4C 24 B2 C7 28 |256.LM.@...L$..(| 00000720: 31 34 33 29 AA 22 20 22 AA 4C 46 24 AA 22 20 4D |143)." ".LF$." M| 00000730: 41 43 52 4F 22 AA 4E 30 24 3A 8D 33 30 30 3A 8E |ACRO".N0$:.300:.| 00000740: 00 67 0F CC 01 8B 20 4D 41 43 52 4F 20 A7 20 A0 |.g.... MACRO . .| 00000750: 35 3A 4D 41 43 52 4F B2 46 41 4C 53 45 3A 43 48 |5:MACRO.FALSE:CH| 00000760: B2 32 3A 89 31 33 30 00 82 0F D6 01 98 33 2C C7 |.2:.130......3,.| 00000770: 28 30 29 3B C7 28 30 29 3B 3A A0 32 3A A0 33 3A |(0);.(0);:.2:.3:| 00000780: A0 31 00 AE 0F E0 01 99 22 2A 2A 2A 20 D0 52 4F |.1......"*** .RO| 00000790: 43 45 53 53 49 4E 47 20 43 4F 4D 50 4C 45 54 45 |CESSING COMPLETE| 000007A0: 20 2A 2A 2A 22 3A 99 3A 89 35 30 30 30 30 00 C7 | ***":.:.50000..| 000007B0: 0F EA 01 8F 20 43 4F 4C 4C 45 43 54 20 50 41 52 |.... COLLECT PAR| 000007C0: 41 4D 45 54 45 52 53 00 E7 0F F4 01 81 20 58 B2 |AMETERS...... X.| 000007D0: 31 A4 32 30 3A 50 41 52 4D 24 28 58 29 B2 22 22 |1.20:PARM$(X).""| 000007E0: 3A 82 58 3A 58 B2 31 00 F8 0F FE 01 8B 20 58 B1 |:.X:X.1...... X.| 000007F0: 32 30 20 A7 20 35 38 30 00 02 10 08 02 8D 20 32 |20 . 580...... 2| 00000800: 34 30 00 35 10 12 02 8B 20 43 24 B2 4E 30 24 A7 |40.5.... C$.N0$.| 00000810: 99 22 93 11 CD 49 53 53 49 4E 47 20 51 55 4F 54 |."...ISSING QUOT| 00000820: 45 20 49 4E 20 4D 41 43 52 4F 20 4C 49 4E 45 22 |E IN MACRO LINE"| 00000830: 3A 89 37 38 30 00 4A 10 1C 02 8B 20 43 24 B2 51 |:.780.J.... C$.Q| 00000840: 55 4F 54 45 24 A7 20 36 31 30 00 65 10 26 02 8B |UOTE$. 610.e.&..| 00000850: 20 43 24 B2 22 2C 22 20 A7 20 58 B2 58 AA 31 3A | C$."," . X.X.1:| 00000860: 89 20 35 31 30 00 7E 10 30 02 50 41 52 4D 24 28 |. 510.~.0.PARM$(| 00000870: 58 29 B2 50 41 52 4D 24 28 58 29 AA 43 24 00 88 |X).PARM$(X).C$..| 00000880: 10 3A 02 89 20 35 31 30 00 A1 10 44 02 8B 20 58 |.:.. 510...D.. X| 00000890: B1 32 30 20 A7 20 50 43 B2 32 30 3A 89 20 36 31 |.20 . PC.20:. 61| 000008A0: 30 00 AA 10 4E 02 50 43 B2 58 00 CE 10 58 02 8F |0...N.PC.X...X..| 000008B0: 20 36 31 30 20 43 48 45 43 4B 53 20 46 4F 52 20 | 610 CHECKS FOR | 000008C0: 43 4C 4F 53 49 4E 47 20 5D 20 4E 55 4C 4C 00 E4 |CLOSING ] NULL..| 000008D0: 10 62 02 8D 32 34 30 3A 8B 43 24 B3 B1 22 5D 22 |.b..240:.C$.."]"| 000008E0: A7 36 33 30 00 F9 10 6C 02 8D 32 34 30 3A 8B 43 |.630...l..240:.C| 000008F0: 24 B2 4E 30 24 20 A7 20 8E 00 1C 11 76 02 99 22 |$.N0$ . ....v.."| 00000900: 93 20 C9 4E 56 41 4C 49 44 20 4D 41 43 52 4F 20 |. .NVALID MACRO | 00000910: 53 59 4E 54 41 58 22 3A 89 37 38 30 00 3F 11 80 |SYNTAX":.780.?..| 00000920: 02 8F 20 2A 2A 20 48 41 4E 44 4C 45 20 4D 41 43 |.. ** HANDLE MAC| 00000930: 52 4F 20 44 49 52 45 43 54 49 56 45 20 2A 2A 00 |RO DIRECTIVE **.| 00000940: 4A 11 8A 02 44 31 24 B2 22 22 00 53 11 94 02 8D |J...D1$."".S....| 00000950: 32 34 30 00 6D 11 9E 02 8B 20 43 24 B2 22 20 22 |240.m.... C$." "| 00000960: B0 43 24 B2 4E 30 24 20 A7 20 37 30 30 00 7C 11 |.C$.N0$ . 700.|.| 00000970: A8 02 44 31 24 B2 44 31 24 AA 43 24 00 85 11 B2 |..D1$.D1$.C$....| 00000980: 02 89 36 36 30 00 A6 11 BC 02 8B 20 C6 28 44 31 |..660...... .(D1| 00000990: 24 29 B2 31 32 38 A7 45 58 43 4C 55 44 45 B2 46 |$).128.EXCLUDE.F| 000009A0: 41 4C 53 45 3A 8E 00 BD 11 C6 02 8B 20 C3 28 44 |ALSE:....... .(D| 000009B0: 31 24 29 B2 32 20 A7 8D 38 32 30 3A 8E 00 D6 11 |1$).2 ..820:....| 000009C0: D0 02 8B 20 45 58 43 4C 55 44 45 20 A7 20 8D 20 |... EXCLUDE . . | 000009D0: 31 32 32 30 3A 8E 00 ED 11 DA 02 8B 20 44 31 24 |1220:....... D1$| 000009E0: B2 22 45 52 52 B0 22 A7 20 31 32 34 30 00 09 12 |."ERR.". 1240...| 000009F0: E4 02 8B 20 44 31 24 B2 22 4D 45 53 53 41 47 45 |... D1$."MESSAGE| 00000A00: 22 A7 8D 31 33 31 30 3A 8E 00 23 12 EE 02 8B 20 |"..1310:..#.... | 00000A10: 44 31 24 B2 22 53 45 54 22 20 20 A7 8D 31 33 37 |D1$."SET" ..137| 00000A20: 30 3A 8E 00 59 12 F8 02 8B 20 44 31 24 B2 22 45 |0:..Y.... D1$."E| 00000A30: 58 49 54 22 20 B0 20 44 31 24 B2 C7 28 32 33 37 |XIT" . D1$..(237| 00000A40: 29 20 A7 20 A0 35 3A 4D 41 43 52 4F B2 46 41 4C |) . .5:MACRO.FAL| 00000A50: 53 45 3A 43 48 B2 32 3A 8E 00 84 12 02 03 99 22 |SE:CH.2:......."| 00000A60: 93 11 49 4E 56 41 4C 49 44 20 4D 41 43 52 4F 20 |..INVALID MACRO | 00000A70: 44 49 52 45 43 54 49 56 45 20 22 3B 44 31 24 3A |DIRECTIVE ";D1$:| 00000A80: 89 37 38 30 00 A0 12 0C 03 8F 20 2A 2A 2A 20 41 |.780...... *** A| 00000A90: 42 4F 52 54 20 52 4F 55 54 49 4E 45 20 2A 2A 2A |BORT ROUTINE ***| 00000AA0: 00 B1 12 16 03 8B 20 4D 41 43 52 4F 20 A7 20 A0 |...... MACRO . .| 00000AB0: 35 00 E0 12 20 03 A0 32 3A A0 33 3A A0 31 3A 99 |5... ..2:.3:.1:.| 00000AC0: 22 11 11 D5 4E 41 42 4C 45 20 54 4F 20 43 4F 4E |"...NABLE TO CON| 00000AD0: 54 49 4E 55 45 20 41 54 20 4C 49 4E 45 20 22 3B |TINUE AT LINE ";| 00000AE0: 00 02 13 2A 03 99 28 C6 28 48 4E 24 29 AC 32 35 |...*..(.(HN$).25| 00000AF0: 36 29 AA C6 28 4C 4E 24 29 3A 99 3A 89 35 30 30 |6)..(LN$):.:.500| 00000B00: 30 30 00 23 13 34 03 8F 20 2A 20 48 41 4E 44 4C |00.#.4.. * HANDL| 00000B10: 45 20 43 4F 4E 44 49 54 49 4F 4E 41 4C 20 44 49 |E CONDITIONAL DI| 00000B20: 52 20 2A 00 34 13 3E 03 41 47 4E 42 52 B2 C5 28 |R *.4.>.AGNBR..(| 00000B30: 44 31 24 29 00 75 13 48 03 8B 20 41 47 4E 42 52 |D1$).u.H.. AGNBR| 00000B40: B3 30 20 B0 20 41 47 4E 42 52 B1 32 30 20 A7 20 |.0 . AGNBR.20 . | 00000B50: 99 22 93 C9 4E 56 41 4C 49 44 20 41 52 47 55 4D |."..NVALID ARGUM| 00000B60: 45 4E 54 20 4E 55 4D 42 45 52 20 22 3B 44 31 24 |ENT NUMBER ";D1$| 00000B70: 3A 89 37 38 30 00 80 13 52 03 44 32 24 B2 22 22 |:.780...R.D2$.""| 00000B80: 00 A0 13 5C 03 81 20 58 B2 31 A4 33 3A 8D 32 34 |...\.. X.1.3:.24| 00000B90: 30 3A 44 32 24 B2 44 32 24 AA 43 24 3A 82 20 58 |0:D2$.D2$.C$:. X| 00000BA0: 00 AE 13 66 03 8D 32 34 30 3A 8D 32 34 30 00 E5 |...f..240:.240..| 00000BB0: 13 70 03 8B 20 43 24 B3 B1 51 55 4F 54 45 24 20 |.p.. C$..QUOTE$ | 00000BC0: A7 20 99 22 93 CD 49 53 53 49 4E 47 20 56 41 4C |. ."..ISSING VAL| 00000BD0: 55 45 20 51 55 4F 54 45 20 4F 4E 20 21 5F 23 22 |UE QUOTE ON !_#"| 00000BE0: 3A 89 37 38 30 00 F0 13 7A 03 44 33 24 B2 22 22 |:.780...z.D3$.""| 00000BF0: 00 20 14 84 03 8D 32 34 30 3A 8B 43 24 B2 4E 30 |. ....240:.C$.N0| 00000C00: 24 A7 99 22 93 11 CD 49 53 53 49 4E 47 20 51 55 |$.."...ISSING QU| 00000C10: 4F 54 45 20 4F 4E 20 21 5F 23 22 3A 89 37 38 30 |OTE ON !_#":.780| 00000C20: 00 41 14 8E 03 8B 20 43 24 B3 B1 51 55 4F 54 45 |.A.... C$..QUOTE| 00000C30: 24 A7 44 33 24 B2 44 33 24 AA 43 24 3A 89 39 30 |$.D3$.D3$.C$:.90| 00000C40: 30 00 5A 14 98 03 8D 32 34 30 3A 8F 20 47 45 54 |0.Z....240:. GET| 00000C50: 20 4C 41 53 54 20 4E 55 4C 4C 00 95 14 A2 03 8B | LAST NULL......| 00000C60: 20 43 24 B3 B1 4E 30 24 20 A7 20 99 22 93 49 4E | C$..N0$ . .".IN| 00000C70: 56 41 4C 49 44 20 43 4F 4E 44 49 54 49 4F 4E 41 |VALID CONDITIONA| 00000C80: 4C 20 4C 49 4E 45 20 49 4E 20 4D 41 43 52 4F 22 |L LINE IN MACRO"| 00000C90: 3A 89 37 38 30 00 AE 14 AC 03 8B 20 44 32 24 B2 |:.780...... D2$.| 00000CA0: 22 45 51 4C 22 A7 20 8D 31 30 31 30 3A 8E 00 C7 |"EQL". .1010:...| 00000CB0: 14 B6 03 8B 20 44 32 24 B2 22 4C 53 53 22 A7 20 |.... D2$."LSS". | 00000CC0: 8D 31 30 33 30 3A 8E 00 E0 14 C0 03 8B 20 44 32 |.1030:....... D2| 00000CD0: 24 B2 22 47 54 52 22 A7 20 8D 31 30 35 30 3A 8E |$."GTR". .1050:.| 00000CE0: 00 F9 14 CA 03 8B 20 44 32 24 B2 22 4C 45 51 22 |...... D2$."LEQ"| 00000CF0: A7 20 8D 31 30 37 30 3A 8E 00 12 15 D4 03 8B 20 |. .1070:....... | 00000D00: 44 32 24 B2 22 4E 45 51 22 A7 20 8D 31 30 39 30 |D2$."NEQ". .1090| 00000D10: 3A 8E 00 2B 15 DE 03 8B 20 44 32 24 B2 22 47 45 |:..+.... D2$."GE| 00000D20: 51 22 A7 20 8D 31 31 31 30 3A 8E 00 5A 15 E8 03 |Q". .1110:..Z...| 00000D30: 99 22 93 C9 4E 56 41 4C 49 44 20 43 4F 4E 44 49 |."..NVALID CONDI| 00000D40: 54 49 4F 4E 41 4C 20 4F 50 45 52 41 54 4F 52 20 |TIONAL OPERATOR | 00000D50: 22 3B 44 32 24 3A 89 37 38 30 00 7F 15 F2 03 8B |";D2$:.780......| 00000D60: 20 50 41 52 4D 24 28 41 47 4E 42 52 29 B2 44 33 | PARM$(AGNBR).D3| 00000D70: 24 20 A7 20 45 58 43 4C 55 44 45 B2 30 3A 8E 00 |$ . EXCLUDE.0:..| 00000D80: 8F 15 FC 03 45 58 43 4C 55 44 45 B2 31 3A 8E 00 |....EXCLUDE.1:..| 00000D90: B4 15 06 04 8B 20 50 41 52 4D 24 28 41 47 4E 42 |..... PARM$(AGNB| 00000DA0: 52 29 B3 44 33 24 20 A7 20 45 58 43 4C 55 44 45 |R).D3$ . EXCLUDE| 00000DB0: B2 30 3A 8E 00 C4 15 10 04 45 58 43 4C 55 44 45 |.0:......EXCLUDE| 00000DC0: B2 31 3A 8E 00 E9 15 1A 04 8B 20 50 41 52 4D 24 |.1:....... PARM$| 00000DD0: 28 41 47 4E 42 52 29 B1 44 33 24 20 A7 20 45 58 |(AGNBR).D3$ . EX| 00000DE0: 43 4C 55 44 45 B2 30 3A 8E 00 F9 15 24 04 45 58 |CLUDE.0:....$.EX| 00000DF0: 43 4C 55 44 45 B2 31 3A 8E 00 1E 16 2E 04 8B 20 |CLUDE.1:....... | 00000E00: 50 41 52 4D 24 28 41 47 4E 42 52 29 B3 B2 44 33 |PARM$(AGNBR)..D3| 00000E10: 24 20 A7 45 58 43 4C 55 44 45 B2 30 3A 8E 00 2E |$ .EXCLUDE.0:...| 00000E20: 16 38 04 45 58 43 4C 55 44 45 B2 31 3A 8E 00 53 |.8.EXCLUDE.1:..S| 00000E30: 16 42 04 8B 20 50 41 52 4D 24 28 41 47 4E 42 52 |.B.. PARM$(AGNBR| 00000E40: 29 B3 B1 44 33 24 20 A7 45 58 43 4C 55 44 45 B2 |)..D3$ .EXCLUDE.| 00000E50: 30 3A 8E 00 63 16 4C 04 45 58 43 4C 55 44 45 B2 |0:..c.L.EXCLUDE.| 00000E60: 31 3A 8E 00 88 16 56 04 8B 20 50 41 52 4D 24 28 |1:....V.. PARM$(| 00000E70: 41 47 4E 42 52 29 B2 B1 44 33 24 20 A7 45 58 43 |AGNBR)..D3$ .EXC| 00000E80: 4C 55 44 45 B2 30 3A 8E 00 98 16 60 04 45 58 43 |LUDE.0:....`.EXC| 00000E90: 4C 55 44 45 B2 31 3A 8E 00 BD 16 6A 04 8F 20 2A |LUDE.1:....j.. *| 00000EA0: 20 48 41 4E 44 4C 45 20 50 41 52 41 4D 45 54 45 | HANDLE PARAMETE| 00000EB0: 52 20 52 45 50 4C 41 43 45 4D 45 4E 54 00 DD 16 |R REPLACEMENT...| 00000EC0: 74 04 8D 32 34 30 3A 44 31 24 B2 43 24 3A 8D 32 |t..240:D1$.C$:.2| 00000ED0: 34 30 3A 44 31 24 B2 44 31 24 AA 43 24 00 EE 16 |40:D1$.D1$.C$...| 00000EE0: 7E 04 41 47 4E 42 52 B2 C5 28 44 31 24 29 00 2A |~.AGNBR..(D1$).*| 00000EF0: 17 88 04 8B 20 41 47 4E 42 52 B3 30 20 B0 20 41 |.... AGNBR.0 . A| 00000F00: 47 4E 42 52 B1 32 30 20 A7 20 99 22 93 11 C9 4E |GNBR.20 . ."...N| 00000F10: 56 41 4C 49 44 20 41 52 47 55 4D 45 4E 54 20 22 |VALID ARGUMENT "| 00000F20: 3B 44 31 24 3A 89 20 37 38 30 00 41 17 92 04 4C |;D1$:. 780.A...L| 00000F30: 24 B2 4C 24 AA 50 41 52 4D 24 28 41 47 4E 42 52 |$.L$.PARM$(AGNBR| 00000F40: 29 00 6C 17 9C 04 8D 20 32 34 30 3A 8F 20 47 45 |).l.... 240:. GE| 00000F50: 54 20 42 59 54 45 20 41 46 54 45 52 20 5B 42 41 |T BYTE AFTER [BA| 00000F60: 43 4B 20 41 52 52 4F 57 5D 41 52 47 00 72 17 A6 |CK ARROW]ARG.r..| 00000F70: 04 8E 00 91 17 B0 04 8F 20 2A 20 48 41 4E 44 4C |........ * HANDL| 00000F80: 45 20 4D 41 43 52 4F 20 43 4F 4D 4D 45 4E 54 20 |E MACRO COMMENT | 00000F90: 2A 00 9B 17 BA 04 8D 20 32 34 30 00 B0 17 C4 04 |*...... 240.....| 00000FA0: 8B 20 43 24 B3 B1 4E 30 24 20 A7 20 31 32 31 30 |. C$..N0$ . 1210| 00000FB0: 00 B6 17 CE 04 8E 00 D3 17 D8 04 8F 20 2A 20 48 |............ * H| 00000FC0: 41 4E 44 4C 45 20 45 52 52 4F 52 20 41 42 4F 52 |ANDLE ERROR ABOR| 00000FD0: 54 20 2A 00 EF 17 E2 04 45 24 B2 22 22 3A 8D 32 |T *.....E$."":.2| 00000FE0: 34 30 3A 8F 20 52 45 41 44 20 51 55 4F 54 45 00 |40:. READ QUOTE.| 00000FF0: 08 18 EC 04 8D 32 34 30 3A 8B 43 24 B2 51 55 4F |.....240:.C$.QUO| 00001000: 54 45 24 A7 31 32 39 30 00 19 18 F6 04 8B 43 24 |TE$.1290......C$| 00001010: B2 4E 30 24 A7 31 33 30 30 00 2C 18 00 05 45 24 |.N0$.1300.,...E$| 00001020: B2 45 24 AA 43 24 3A 89 31 32 36 30 00 41 18 0A |.E$.C$:.1260.A..| 00001030: 05 8D 32 34 30 3A 8F 20 52 45 41 44 20 4E 55 4C |..240:. READ NUL| 00001040: 4C 00 54 18 14 05 99 22 93 11 22 3B 45 24 3A 89 |L.T...."..";E$:.| 00001050: 20 37 38 30 00 71 18 1E 05 8F 20 2A 20 48 41 4E | 780.q.... * HAN| 00001060: 44 4C 45 20 57 41 52 4E 49 4E 47 20 4D 53 47 20 |DLE WARNING MSG | 00001070: 2A 00 7D 18 28 05 99 22 CD 3E 20 22 3B 00 92 18 |*.}.(..".> ";...| 00001080: 32 05 8D 32 34 30 3A 8F 20 47 45 54 20 51 55 4F |2..240:. GET QUO| 00001090: 54 45 00 AF 18 3C 05 8D 32 34 30 3A 8B 43 24 B2 |TE...<..240:.C$.| 000010A0: 51 55 4F 54 45 24 A7 8D 32 34 30 3A 99 3A 8E 00 |QUOTE$..240:.:..| 000010B0: C2 18 46 05 8B 20 43 24 B2 4E 30 24 20 A7 20 99 |..F.. C$.N0$ . .| 000010C0: 3A 8E 00 D3 18 50 05 99 20 43 24 3B 3A 89 20 31 |:....P.. C$;:. 1| 000010D0: 33 34 30 00 F2 18 5A 05 8F 20 2A 20 48 41 4E 44 |340...Z.. * HAND| 000010E0: 4C 45 20 53 45 54 20 44 49 52 45 43 54 49 56 45 |LE SET DIRECTIVE| 000010F0: 20 2A 00 12 19 64 05 8D 32 34 30 3A 44 32 24 B2 | *...d..240:D2$.| 00001100: 43 24 3A 8D 32 34 30 3A 44 32 24 B2 44 32 24 AA |C$:.240:D2$.D2$.| 00001110: 43 24 00 24 19 6E 05 41 52 47 4E 42 52 B2 C5 28 |C$.$.n.ARGNBR..(| 00001120: 44 32 24 29 00 63 19 78 05 8B 41 52 47 4E 42 52 |D2$).c.x..ARGNBR| 00001130: B3 31 B0 41 52 47 4E 42 52 B1 32 30 A7 99 22 93 |.1.ARGNBR.20..".| 00001140: 11 C9 4E 56 41 4C 49 44 20 41 52 47 55 4D 45 4E |..NVALID ARGUMEN| 00001150: 54 20 4E 55 4D 42 45 52 20 22 3B 44 32 24 3A 89 |T NUMBER ";D2$:.| 00001160: 37 38 30 00 71 19 82 05 8D 32 34 30 3A 8D 32 34 |780.q....240:.24| 00001170: 30 00 A1 19 87 05 8B 43 24 B3 B1 51 55 4F 54 45 |0......C$..QUOTE| 00001180: 24 A7 99 22 93 11 CD 49 53 53 49 4E 47 20 51 55 |$.."...ISSING QU| 00001190: 4F 54 45 20 4F 4E 20 21 53 45 54 22 3A 89 37 38 |OTE ON !SET":.78| 000011A0: 30 00 AC 19 8C 05 44 33 24 B2 22 22 00 DD 19 96 |0.....D3$.""....| 000011B0: 05 8D 32 34 30 3A 8B 43 24 B2 4E 30 24 A7 99 22 |..240:.C$.N0$.."| 000011C0: 93 11 CD 49 53 53 49 4E 47 20 51 55 4F 54 45 20 |...ISSING QUOTE | 000011D0: 4F 4E 20 21 53 45 54 22 3A 89 37 38 30 00 FE 19 |ON !SET":.780...| 000011E0: A0 05 8B 43 24 B3 B1 51 55 4F 54 45 24 A7 44 33 |...C$..QUOTE$.D3| 000011F0: 24 B2 44 33 24 AA 43 24 3A 89 31 34 33 30 00 17 |$.D3$.C$:.1430..| 00001200: 1A AA 05 8D 32 34 30 3A 8F 20 47 45 54 20 4C 41 |....240:. GET LA| 00001210: 53 54 20 4E 55 4C 4C 00 2D 1A B4 05 50 41 52 4D |ST NULL.-...PARM| 00001220: 24 28 41 52 47 4E 42 52 29 B2 44 33 24 00 33 1A |$(ARGNBR).D3$.3.| 00001230: BE 05 8E 00 4D 1A C8 05 8F 20 48 41 4E 44 4C 45 |....M.... HANDLE| 00001240: 20 4D 41 43 52 4F 20 42 52 41 4E 43 48 00 60 1A | MACRO BRANCH.`.| 00001250: D2 05 42 24 B2 22 22 3A 4C 24 B2 4C 24 AA 43 24 |..B$."":L$.L$.C$| 00001260: 00 76 1A DC 05 8D 32 34 30 3A 8B 43 24 B2 22 20 |.v....240:.C$." | 00001270: 22 A7 31 35 30 30 00 8B 1A E6 05 8B 43 24 B2 22 |".1500......C$."| 00001280: 23 22 A7 20 8D 20 32 34 30 3A 8E 00 9D 1A F0 05 |#". . 240:......| 00001290: 42 24 B2 42 24 AA 43 24 3A 8D 32 34 30 00 BC 1A |B$.B$.C$:.240...| 000012A0: FA 05 8B 43 24 B2 22 3A 22 B0 43 24 B2 4E 30 24 |...C$.":".C$.N0$| 000012B0: B0 43 24 B2 22 2C 22 A7 31 35 35 30 00 C6 1A 04 |.C$.",".1550....| 000012C0: 06 89 31 35 32 30 00 DF 1A 0E 06 42 4F B2 C5 28 |..1520.....BO..(| 000012D0: 42 24 29 3A 42 24 B2 C4 28 4D 42 AA 42 4F 29 00 |B$):B$..(MB.BO).| 000012E0: FD 1A 18 06 8B 43 24 B2 4E 30 24 B0 43 24 B2 22 |.....C$.N0$.C$."| 000012F0: 3A 22 A7 4C 24 B2 4C 24 AA 42 24 3A 8E 00 1E 1B |:".L$.L$.B$:....| 00001300: 22 06 4C 24 B2 4C 24 AA 42 24 AA 43 24 3A 42 24 |".L$.L$.B$.C$:B$| 00001310: B2 22 22 3A 8D 32 34 30 3A 89 31 35 33 30 00 24 |."":.240:.1530.$| 00001320: 1B 88 13 3A 00 39 1B 50 C3 8F 20 20 45 52 52 4F |...:.9.P.. ERRO| 00001330: 52 20 4F 52 20 44 4F 4E 45 00 3F 1B 55 C3 99 00 |R OR DONE.?.U...| 00001340: 6D 1B 5A C3 99 22 11 11 20 20 20 D0 52 45 53 53 |m.Z..".. .RESS| 00001350: 20 5B D2 C5 D4 D5 D2 CE 5D 20 54 4F 20 43 4F 4D | [......] TO COM| 00001360: 50 49 4C 45 20 41 4E 4F 54 48 45 52 22 00 7D 1B |PILE ANOTHER".}.| 00001370: 5C C3 99 A6 31 37 29 22 2D 4F 52 2D 22 00 AB 1B |\...17)"-OR-"...| 00001380: 5E C3 99 22 20 20 D0 52 45 53 53 20 5B D3 D0 C1 |^.." .RESS [...| 00001390: C3 C5 5D 20 54 4F 20 52 45 54 55 52 4E 20 54 4F |..] TO RETURN TO| 000013A0: 20 CC CF C1 C4 D3 D4 C1 D2 2E 22 00 C1 1B 64 C3 | ........."...d.| 000013B0: 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 41 |.198,0:.198,1:.A| 000013C0: 24 00 D3 1B 6E C3 8B 41 24 B2 C7 28 31 33 29 A7 |$...n..A$..(13).| 000013D0: 8A 31 30 00 E7 1B 78 C3 8B 41 24 B2 C7 28 33 32 |.10...x..A$..(32| 000013E0: 29 A7 36 30 30 30 30 00 F2 1B 82 C3 89 35 30 30 |).60000......500| 000013F0: 32 30 00 F8 1B 8C C3 3A 00 2C 1C 38 C7 99 22 93 |20.....:.,.8..".| 00001400: 90 0E B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00001410: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00001420: C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 3B 00 47 1C 3D |..........";.G.=| 00001430: C7 81 41 B2 31 A4 32 33 3A 99 22 DD 22 A6 33 38 |..A.1.23:.".".38| 00001440: 29 22 DD 22 3B 3A 82 00 80 1C 42 C7 99 22 AD C0 |)".";:....B.."..| 00001450: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00001460: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00001470: C0 C0 C0 C0 C0 13 22 3A 97 35 33 32 38 31 2C 31 |......":.53281,1| 00001480: 00 9C 1C 47 C7 97 32 30 32 33 2C 31 32 35 3A 97 |...G..2023,125:.| 00001490: 32 30 32 33 AA 35 34 32 37 32 2C 2E 00 C6 1C 4C |2023.54272,....L| 000014A0: C7 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............| 000014B0: 1D 0E 1F CC CF C1 C4 D3 D4 C1 D2 20 D0 52 45 53 |........... .RES| 000014C0: 45 4E 54 53 3A 22 00 EE 1C 56 C7 99 22 1D 1D 1D |ENTS:"...V.."...| 000014D0: 1D 1D 1D 1D 1D 1D 1D 1E C2 41 53 49 43 20 CD 41 |.........ASIC .A| 000014E0: 43 52 4F 20 D0 52 4F 43 45 53 53 4F 52 22 00 13 |CRO .ROCESSOR"..| 000014F0: 1D 60 C7 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.`.."...........| 00001500: 1D 42 59 20 CD 49 43 48 41 45 4C 20 CC 45 49 44 |.BY .ICHAEL .EID| 00001510: 45 4C 22 00 38 1D 65 C7 99 22 1D 1D 1D 1D 1D 1D |EL".8.e.."......| 00001520: 1D 1D 1D 1D 1D 28 43 29 20 C3 4F 50 59 52 49 47 |.....(C) .OPYRIG| 00001530: 48 54 20 31 39 38 37 22 00 68 1D 6A C7 99 22 11 |HT 1987".h.j..".| 00001540: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 90 D0 52 45 |..............RE| 00001550: 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F |SS ANY KEY TO CO| 00001560: 4E 54 49 4E 55 45 2E 22 00 7F 1D 74 C7 97 31 39 |NTINUE."...t..19| 00001570: 38 2C 2E 3A 92 20 31 39 38 2C 31 3A A1 41 24 00 |8,.:. 198,1:.A$.| 00001580: 85 1D 7E C7 8E 00 8B 1D 5F EA 90 00 91 1D 60 EA |..~....._.....`.| 00001590: 99 00 BD 1D 61 EA 99 22 11 11 20 20 20 20 20 C1 |....a..".. .| 000015A0: 52 45 20 59 4F 55 20 53 55 52 45 20 59 4F 55 20 |RE YOU SURE YOU | 000015B0: 57 41 4E 54 20 54 4F 20 51 55 49 54 22 00 E4 1D |WANT TO QUIT"...| 000015C0: 62 EA 99 22 20 20 20 20 20 20 20 20 41 4E 44 20 |b.." AND | 000015D0: 52 45 54 55 52 4E 20 54 4F 20 CC CF C1 C4 D3 D4 |RETURN TO ......| 000015E0: C1 D2 3F 22 00 FA 1D 64 EA 97 31 39 38 2C 30 3A |..?"...d..198,0:| 000015F0: 92 31 39 38 2C 31 3A A1 41 24 00 13 1E 66 EA 8B |.198,1:.A$...f..| 00001600: 41 24 B2 22 4E 22 B0 41 24 B2 22 CE 22 A7 35 30 |A$."N".A$.".".50| 00001610: 30 30 30 00 2C 1E 68 EA 8B 41 24 B2 22 59 22 B0 |000.,.h..A$."Y".| 00001620: 41 24 B2 22 D9 22 A7 36 30 30 31 30 00 37 1E 69 |A$.".".60010.7.i| 00001630: EA 89 36 30 30 30 34 00 41 1E 6A EA 97 31 2C 35 |..60004.A.j..1,5| 00001640: 35 00 7A 1E 74 EA 9F 31 35 2C 38 2C 31 35 2C 22 |5.z.t..15,8,15,"| 00001650: 52 30 3A 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 |R0:HELLO CONNECT| 00001660: 3D 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 22 3A |=HELLO CONNECT":| 00001670: 84 31 35 2C 45 52 3A A0 31 35 00 88 1E 7E EA 8B |.15,ER:.15...~..| 00001680: 45 52 B3 B1 36 33 A7 80 00 A0 1E 88 EA 93 20 22 |ER..63........ "| 00001690: 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 22 2C 38 |HELLO CONNECT",8| 000016A0: 00 A6 1E 92 EA 3A 00 B7 1E 48 EE 8F 20 49 4E 50 |.....:...H.. INP| 000016B0: 55 54 20 4E 41 4D 45 00 CF 1E 4A EE 50 24 B2 22 |UT NAME...J.P$."| 000016C0: 22 3A 4C 53 B2 31 36 3A 43 52 24 B2 22 A4 22 00 |":LS.16:CR$.".".| 000016D0: D9 1E 52 EE 99 22 3E 22 3B 00 E6 1E 5C EE 99 43 |..R..">";...\..C| 000016E0: 52 24 22 9D 22 3B 00 FC 1E 66 EE 97 31 39 38 2C |R$".";...f..198,| 000016F0: 30 3A 92 31 39 38 2C 31 3A A1 41 24 00 0C 1F 70 |0:.198,1:.A$...p| 00001700: EE 8B 41 24 B2 C7 28 31 33 29 A7 8E 00 29 1F 7A |..A$..(13)...).z| 00001710: EE 8B 41 24 B3 B1 22 9D 22 AF 41 24 B3 B1 C7 28 |..A$..".".A$...(| 00001720: 32 30 29 A7 36 31 30 36 30 00 58 1F 7F EE 4C B2 |20).61060.X...L.| 00001730: C3 28 50 24 29 3A 8B 4C B1 30 A7 50 24 B2 C8 28 |.(P$):.L.0.P$..(| 00001740: 50 24 2C 4C AB 31 29 3A 99 22 20 9D 9D 20 9D 22 |P$,L.1):." .. ."| 00001750: 3B 3A 89 36 31 30 32 30 00 63 1F 81 EE 89 36 31 |;:.61020.c....61| 00001760: 30 33 30 00 A4 1F 84 EE 46 4C B2 30 3A 8B 28 41 |030.....FL.0:.(A| 00001770: 24 B1 B2 22 41 22 AF 41 24 B3 B2 22 5A 22 29 B0 |$.."A".A$.."Z").| 00001780: 28 41 24 B1 B2 22 C1 22 AF 41 24 B3 B2 22 DA 22 |(A$..".".A$.."."| 00001790: 29 B0 41 24 B2 22 20 22 B0 41 24 B2 22 2E 22 A7 |).A$." ".A$.".".| 000017A0: 46 4C B2 31 00 E4 1F 86 EE 8B 46 4C B2 30 A7 8B |FL.1......FL.0..| 000017B0: 28 28 41 24 B1 B2 22 30 22 AF 41 24 B3 B2 22 39 |((A$.."0".A$.."9| 000017C0: 22 29 29 B0 41 24 B2 22 3F 22 B0 41 24 B2 22 2A |")).A$."?".A$."*| 000017D0: 22 B0 41 24 B2 22 5F 22 B0 41 24 B2 22 5E 22 A7 |".A$."_".A$."^".| 000017E0: 46 4C B2 31 00 09 20 88 EE 8B 46 4C B2 30 A7 8B |FL.1.. ...FL.0..| 000017F0: 41 24 B2 22 3E 22 B0 41 24 B2 22 3C 22 B0 41 24 |A$.">".A$."<".A$| 00001800: B2 22 2D 22 A7 46 4C B2 31 00 19 20 8E EE 8B 46 |."-".FL.1.. ...F| 00001810: 4C B2 30 A7 36 31 30 33 30 00 3D 20 98 EE 8B C3 |L.0.61030.= ....| 00001820: 28 50 24 29 B3 B1 4C 53 A7 50 24 B2 50 24 AA 41 |(P$)..LS.P$.P$.A| 00001830: 24 3A 99 41 24 3B 3A 89 36 31 30 32 30 00 48 20 |$:.A$;:.61020.H | 00001840: A2 EE 89 36 31 30 33 30 00 58 20 30 F2 8F 20 44 |...61030.X 0.. D| 00001850: 49 52 45 43 54 4F 52 59 00 69 20 32 F2 4C 49 B2 |IRECTORY.i 2.LI.| 00001860: 31 34 3A 8D 36 33 30 30 30 00 9D 20 38 F2 99 22 |14:.63000.. 8.."| 00001870: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 20 20 |.............. | 00001880: 20 20 20 20 20 3C D0 52 45 53 53 20 5B D3 D0 C1 | <.RESS [...| 00001890: C3 C5 5D 20 54 4F 20 50 41 55 53 45 3E 00 CE 20 |..] TO PAUSE>.. | 000018A0: 39 F2 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |9.."------------| 000018B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000018C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3B 00 D7 |------------";..| 000018D0: 20 3A F2 9E 44 49 52 00 FE 20 44 F2 99 3A 99 A6 | :..DIR.. D..:..| 000018E0: 37 29 22 D0 52 45 53 53 20 5B D2 C5 D4 D5 D2 CE |7)".RESS [......| 000018F0: 5D 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 2D |] TO CONTINUE".-| 00001900: 21 4E F2 92 31 39 37 2C 36 34 3A 97 31 39 38 2C |!N..197,64:.198,| 00001910: 30 3A 92 31 39 38 2C 31 3A A1 41 24 3A 8B 41 24 |0:.198,1:.A$:.A$| 00001920: B3 B1 C7 28 31 33 29 A7 36 32 30 33 30 00 3B 21 |...(13).62030.;!| 00001930: 58 F2 97 31 2C 35 35 3A 8A 31 30 00 4E 21 18 F6 |X..1,55:.10.N!..| 00001940: 8F 20 57 49 4E 44 4F 57 20 53 54 55 46 46 00 80 |. WINDOW STUFF..| 00001950: 21 1A F6 97 37 37 30 2C 31 33 31 3A 97 37 37 31 |!...770,131:.771| 00001960: 2C 31 36 34 3A 97 38 38 2C 30 3A 97 38 39 2C 31 |,164:.88,0:.89,1| 00001970: 39 32 3A 97 39 30 2C 30 3A 97 39 31 2C 31 39 32 |92:.90,0:.91,192| 00001980: 00 9A 21 1B F6 97 37 38 31 2C 33 33 3A 97 37 38 |..!...781,33:.78| 00001990: 32 2C 30 3A 9E 34 31 39 36 34 00 BE 21 1C F6 97 |2,0:.41964..!...| 000019A0: 38 38 2C 32 35 34 3A 97 38 39 2C 32 35 35 3A 97 |88,254:.89,255:.| 000019B0: 39 30 2C 32 35 34 3A 97 39 31 2C 32 35 35 00 D8 |90,254:.91,255..| 000019C0: 21 1D F6 97 37 38 31 2C 33 33 3A 97 37 38 32 2C |!...781,33:.782,| 000019D0: 30 3A 9E 34 31 39 36 34 00 EC 21 1F F6 97 35 39 |0:.41964..!...59| 000019E0: 36 33 39 2C 4C 49 3A 97 31 2C 35 33 00 F2 21 20 |639,LI:.1,53..! | 000019F0: F6 8E 00 00 00 |..... |
..&....AG.0.AG.1:."C64 DIR.READER",8,1.4
...DIR.49152.:...:.E....51000.C.... ***
MACRO PROCESSOR ***.Q...DIR.49152.....N0
$.G(0):QUOTE$.G(34):TRUE.1:FALSE.0:. PAR
M$(20)...(.GT$.G(137):GS$.G(141)...2..53
281,1:.53280,5:.646,0...7.."... .......
.BASIC MACRO PROCESSOR. ......".7.9.."
BY MICHAEL LEIDEL..".I.<..".E
NTER NAME OF HOST PROGRAM (SOURCE FILE)"
;...>.."<PRESS RETURN FOR A DIRECTORY>".
..?.."<ENTER 'Q' TO RETURN TO LOADSTAR>"
.C.A..61000...B..P$."DIR".P$."DIR".P$.""
.62000...C..P$."Q".P$."QUIT".P$."QUIT".5
0000.8.F.."..PROCESSING..."P$:.:MACRO.FA
LSE:CH.2.O.K.LI.11:.1,55:.63000...P..1,8
,15:.2,8,2,"0:".P$.",P,R":.1,E,E$:.E.0.1
00...Z. 2: 1:.E,E$:.50000.H.D..3,8,3,"0:
".P$.".EXP,P,W":.1,E,E$:.E.0.120...N. 3:
.1,"S0:".P$.".EXP":.1,E,E$,E:.E$,E:. 100
...X..3,G(1);G(8);:.240:.240.:.... ****
MAIN PROCESSING LOGIC ****.A....240:D$.C
$:.240:.D$.N0$.C$.N0$.460.O....260:.240.
.. .. C$."[" ..360:L$."":.140...... C$."
!" . . MACRO . .650:.140...... EXCLUDE .
C$.QUOTE$ . . MACRO . .1210:.140......
C$."_" . . MACRO . .1130.&.H.. C$.GT$.C$
.GS$. . MACRO . . 1480.N.R.L$.L$.C$:. C$
.N0$ . .300:L$."":.140.\....240:.190....
.. * CLOSED SUBROUTINES FOLLOW *......#C
H,C$:.C$."".C$.N0$. .....A....#CH,LN$,HN
$:.LN$."".LN$.N0$.V.... HN$."".HN$.N0$..
.... MACRO . LM.LM.1:.LM.255.HM.HM.1:LM.
0...".....,..W.0.W.C(L$).5:.320.-.6.W.C(
L$).4.H.@.WT.WT.W:X..(WT.256):HP$.G(X.8)
:X.(WT.(X.256)):LP$.G(X)...J..MACRO.LN$.
G(LM):HN$.G(HM)...T..3,LP$;HP$;LN$;HN$;L
$;:..B.^.. *** OPEN MACRO FILE ***...H.L
F$."":L$."":. MACRO . ."CANNOT NEST MACR
OS":.780.,.R..240:.C$..G(34)..1,"I":.".M
ISSING QUOTES":. 780.K.|..240:.C$.",". .
490:.:. 410.L....C$.QUOTE$ . .240:.240:.
410.....LF$.LF$.C$:.C$;:.380......5,8,5
,"0:".LF$.",P,R":.1,E,E$:.E.0. 430.S....
".FILE ERROR";E;LF$;E$:.780.....MACRO.TR
UE:CH.5:.240:.240.....LM.F(LN$):HM.F(HN$
):MB.HM.256.LM.@.B.L$.G(143)." ".LF$." M
ACRO".N0$:.300:..G.L.. MACRO . 5:MACRO.
FALSE:CH.2:.130...V..3,G(0);G(0);: 2: 3:
1......"*** PROCESSING COMPLETE ***":.:
.50000.G.... COLLECT PARAMETERS...... X.
1.20:PARM$(X)."":.X:X.1...... X.20 . 580
...... 240.5.... C$.N0$.."..MISSING QUOT
E IN MACRO LINE":.780.J.... C$.QUOTE$. 6
10.E.&.. C$."," . X.X.1:. 510.~.0.PARM$(
X).PARM$(X).C$...:.. 510...D.. X.20 . PC
.20:. 610...N.PC.X.N.X.. 610 CHECKS FOR
CLOSING ] NULL...B..240:.C$.."]".630...L
..240:.C$.N0$ . ....V..". INVALID MACRO
SYNTAX":.780.?.... ** HANDLE MACRO DIREC
TIVE **.J...D1$."".S....240.M.... C$." "
.C$.N0$ . 700.|...D1$.D1$.C$......660...
... F(D1$).128.EXCLUDE.FALSE:....F.. C(D
1$).2 ..820:..V.P.. EXCLUDE . . 1220:...
.Z.. D1$."ERR.". 1240...... D1$."MESSAGE
"..1310:..#.... D1$."SET" ..1370:..Y...
. D1$."EXIT" . D1$.G(237) . 5:MACRO.FAL
SE:CH.2:......."..INVALID MACRO DIRECTIV
E ";D1$:.780. .... *** ABORT ROUTINE ***
...... MACRO . 5... . 2: 3: 1:."..UNABL
E TO CONTINUE AT LINE ";...*..(F(HN$).25
6).F(LN$):.:.50000.#.4.. * HANDLE CONDIT
IONAL DIR *.4.>.AGNBR.E(D1$).U.H.. AGNBR
.0 . AGNBR.20 . .".INVALID ARGUMENT NUMB
ER ";D1$:.780...R.D2$."". .\.. X.1.3:.24
0:D2$.D2$.C$:. X...F..240:.240...P.. C$.
.QUOTE$ . .".MISSING VALUE QUOTE ON !_#"
:.780...Z.D3$."". ....240:.C$.N0$.."..MI
SSING QUOTE ON !_#":.780.A.... C$..QUOTE
$.D3$.D3$.C$:.900.Z....240:. GET LAST NU
LL...... C$..N0$ . .".INVALID CONDITIONA
L LINE IN MACRO":.780...... D2$."EQL". .
1010:..G.... D2$."LSS". .1030:....... D2
$."GTR". .1050:....J.. D2$."LEQ". .1070:
....T.. D2$."NEQ". .1090:..+.... D2$."GE
Q". .1110:..Z....".INVALID CONDITIONAL O
PERATOR ";D2$:.780..... PARM$(AGNBR).D3
$ . EXCLUDE.0:......EXCLUDE.1:....... PA
RM$(AGNBR).D3$ . EXCLUDE.0:..D...EXCLUDE
.1:....... PARM$(AGNBR).D3$ . EXCLUDE.0:
....$.EXCLUDE.1:....... PARM$(AGNBR)..D3
$ .EXCLUDE.0:....8.EXCLUDE.1:..S.B.. PAR
M$(AGNBR)..D3$ .EXCLUDE.0:..C.L.EXCLUDE.
1:....V.. PARM$(AGNBR)..D3$ .EXCLUDE.0:.
...`.EXCLUDE.1:....J.. * HANDLE PARAMETE
R REPLACEMENT...T..240:D1$.C$:.240:D1$.D
1$.C$...~.AGNBR.E(D1$).*.... AGNBR.0 . A
GNBR.20 . ."..INVALID ARGUMENT ";D1$:. 7
80.A...L$.L$.PARM$(AGNBR).L.... 240:. GE
T BYTE AFTER [BACK ARROW]ARG.R..........
* HANDLE MACRO COMMENT *...... 240...D.
. C$..N0$ . 1210...N...S.X.. * HANDLE ER
ROR ABORT *.....E$."":.240:. READ QUOTE.
.....240:.C$.QUOTE$.1290......C$.N0$.130
0.,...E$.E$.C$:.1260.A....240:. READ NUL
L.T...."..";E$:. 780.Q.... * HANDLE WARN
ING MSG *.}.(.."M> ";...2..240:. GET QUO
TE...<..240:.C$.QUOTE$..240:.:..B.F.. C$
.N0$ . .:..S.P.. C$;:. 1340...Z.. * HAND
LE SET DIRECTIVE *...D..240:D2$.C$:.240:
D2$.D2$.C$.$.N.ARGNBR.E(D2$).C.X..ARGNBR
.1.ARGNBR.20.."..INVALID ARGUMENT NUMBER
";D2$:.780.Q....240:.240......C$..QUOTE
$.."..MISSING QUOTE ON !SET":.780.....D3
$.""......240:.C$.N0$.."..MISSING QUOTE
ON !SET":.780... ..C$..QUOTE$.D3$.D3$.C$
:.1430......240:. GET LAST NULL.-...PARM
$(ARGNBR).D3$.3.....M.H.. HANDLE MACRO B
RANCH.`.R.B$."":L$.L$.C$.V....240:.C$."
".1500......C$."#". . 240:......B$.B$.C$
:.240......C$.":".C$.N0$.C$.",".1550.F..
..1520.....BO.E(B$):B$.D(MB.BO)......C$.
N0$.C$.":".L$.L$.B$:....".L$.L$.B$.C$:B$
."":.240:.1530.$...:.9.PC. ERROR OR DON
E.?.UC..M.ZC.".. PRESS [RETURN] TO COM
PILE ANOTHER".}.\C..17)"-OR-"...^C." PR
ESS [SPACE] TO RETURN TO LOADSTAR.".A.DC
.198,0:.198,1:.A$.S.NC.A$.G(13)..10...XC
.A$.G(32).60000....C.50020....C:.,.8G.".
........................................
..";.G.=G.A.1.23:.".".38)".";:....BG."..
......................................":
.53281,1...GG.2023,125:.2023.54272,..F.L
G."................LOADSTAR PRESENTS:"..
.VG."...........BASIC MACRO PROCESSOR"..
.`G."............BY MICHAEL LEIDEL".8.EG
."...........(C) COPYRIGHT 1987".H.JG.".
.............PRESS ANY KEY TO CONTINUE."
..TG.198,.:. 198,1:.A$...~G...._.....`.
....A..".. ARE YOU SURE YOU WANT TO
QUIT"...B.." AND RETURN TO LOADST
AR?"...D..198,0:.198,1:.A$...F..A$."N".A
$."N".50000.,.H..A$."Y".A$."Y".60010.7.I
..60004.A.J..1,55.Z.T..15,8,15,"R0:HELLO
CONNECT=HELLO CONNECT":.15,ER: 15...~..
ER..63... .... "HELLO CONNECT",8.....:..
.H.. INPUT NAME.O.J.P$."":LS.16:CR$.".".
Y.R..">";...\..CR$".";...F..198,0:.198,1
:.A$...P..A$.G(13)...).Z..A$..".".A$..G(
20).61060.X..L.C(P$):.L.0.P$.H(P$,L.1):
." .. .";:.61020.C....61030.....FL.0:.(A
$.."A".A$.."Z").(A$.."A".A$.."Z").A$." "
.A$.".".FL.1......FL.0..((A$.."0".A$.."9
")).A$."?".A$."*".A$."_".A$."^".FL.1.. .
..FL.0..A$.">".A$."<".A$."-".FL.1.. ...F
L.0.61030.= ...C(P$)..LS.P$.P$.A$:.A$;:.
61020.H ...61030.X 0.. DIRECTORY.I 2.LI.
14:.63000.. 8..".............. <PR
ESS [SPACE] TO PAUSE>.N 9.."------------
----------------------------";.W :..DIR.
. D..:..7)"PRESS [RETURN] TO CONTINUE".-
!N..197,64:.198,0:.198,1:.A$:.A$..G(13).
62030.;!X..1,55:.10.N!... WINDOW STUFF..
!...770,131:.771,164:.88,0:.89,192:.90,0
:.91,192..!...781,33:.782,0:.41964..!...
88,254:.89,255:.90,254:.91,255.X!...781,
33:.782,0:.41964..!...59639,LI:.1,53..!
.....
> CLICK IMAGE PREVIEW FOR FULL MODAL