CATSTRAPOLATOR
FILE INFORMATION
FILENAME(S): CATSTRAPOLATOR
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-11-30 21:12:52
APPEARS ON: 1 disk(s)
FILE HASH
cc749fd50a91bd5f77e7ad11726cbd19a8b06d8618831754ddf3b524216f0289
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR 4 | CATSTRAPOLATOR | PRG | DuncanTwain | 13 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 30 04 00 00 8F 20 54 48 45 20 54 52 41 4E |..0.... THE TRAN| 00000010: 53 41 43 54 4F 52 20 56 4F 4C 55 4D 45 20 34 20 |SACTOR VOLUME 4 | 00000020: 49 53 53 55 45 20 30 33 20 50 41 47 45 20 34 31 |ISSUE 03 PAGE 41| 00000030: 00 74 04 64 00 49 24 B2 22 41 42 43 44 45 46 47 |.t.d.I$."ABCDEFG| 00000040: 48 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 |HIJKLMNOPQRSTUVW| 00000050: 58 59 5A 31 32 33 34 22 20 3A 20 8F 20 49 24 20 |XYZ1234" : . I$ | 00000060: 4D 55 53 54 20 42 45 20 31 53 54 20 56 41 52 20 |MUST BE 1ST VAR | 00000070: 55 53 45 44 00 B7 04 6E 00 49 24 B2 49 24 AA 49 |USED...n.I$.I$.I| 00000080: 24 AA 49 24 20 20 20 20 20 20 20 20 20 20 20 20 |$.I$ | 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 8F | : .| 000000A0: 20 45 53 54 41 42 4C 49 53 48 20 49 4E 50 55 54 | ESTABLISH INPUT| 000000B0: 20 42 55 46 46 45 52 00 F8 04 78 00 4D 43 B2 38 | BUFFER...x.MC.8| 000000C0: 39 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |96 | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000E0: 3A 20 8F 20 4D 41 43 48 20 43 4F 44 45 20 53 54 |: . MACH CODE ST| 000000F0: 41 52 54 20 41 44 44 52 00 3E 05 82 00 83 20 31 |ART ADDR.>.... 1| 00000100: 36 30 2C 20 20 20 32 2C 20 31 37 37 2C 20 20 34 |60, 2, 177, 4| 00000110: 32 2C 20 31 35 33 2C 20 31 38 34 2C 20 20 20 30 |2, 153, 184, 0| 00000120: 2C 20 32 30 30 2C 20 31 39 32 2C 20 20 20 36 2C |, 200, 192, 6,| 00000130: 20 32 30 38 2C 20 32 34 36 2C 20 31 36 32 00 84 | 208, 246, 162..| 00000140: 05 8C 00 83 20 20 20 31 2C 20 20 33 32 2C 20 31 |.... 1, 32, 1| 00000150: 39 38 2C 20 32 35 35 2C 20 20 33 32 2C 20 32 32 |98, 255, 32, 22| 00000160: 38 2C 20 32 35 35 2C 20 32 30 31 2C 20 20 31 33 |8, 255, 201, 13| 00000170: 2C 20 32 34 30 2C 20 20 31 31 2C 20 31 36 34 2C |, 240, 11, 164,| 00000180: 20 31 38 39 00 C5 05 96 00 83 20 31 34 35 2C 20 | 189...... 145, | 00000190: 31 38 37 2C 20 32 30 30 2C 20 31 33 32 2C 20 31 |187, 200, 132, 1| 000001A0: 38 39 2C 20 31 39 36 2C 20 31 38 36 2C 20 32 30 |89, 196, 186, 20| 000001B0: 38 2C 20 32 33 38 2C 20 20 37 36 2C 20 32 30 34 |8, 238, 76, 204| 000001C0: 2C 20 32 35 35 00 F7 05 A0 00 8C 20 3A 20 81 20 |, 255...... : . | 000001D0: 4A B2 4D 43 20 A4 20 4D 43 AA 33 37 20 3A 20 87 |J.MC . MC.37 : .| 000001E0: 20 58 20 3A 20 97 20 4A 2C 20 58 20 3A 20 54 B2 | X : . J, X : T.| 000001F0: 54 AA 58 20 3A 20 82 00 1B 06 AA 00 8B 20 54 B3 |T.X : ....... T.| 00000200: B1 35 37 36 37 20 A7 20 99 22 54 59 50 4F 20 49 |.5767 . ."TYPO I| 00000210: 4E 20 44 41 54 41 22 20 3A 20 90 00 5A 06 B4 00 |N DATA" : ..Z...| 00000220: 5A 24 B2 C7 28 30 29 20 3A 20 50 54 24 B2 22 4E |Z$..(0) : PT$."N| 00000230: 4F 20 50 41 54 54 45 52 4E 22 20 3A 20 42 31 B2 |O PATTERN" : B1.| 00000240: 30 20 3A 20 42 55 B2 30 20 3A 20 46 46 24 B2 22 |0 : BU.0 : FF$."| 00000250: 22 20 3A 20 46 31 24 B2 22 22 00 82 06 BE 00 85 |" : F1$.""......| 00000260: 20 22 44 49 53 4C 41 59 20 42 4C 4F 43 4B 53 20 | "DISLAY BLOCKS | 00000270: 55 53 45 44 20 42 59 20 46 49 4C 45 3A 22 3B 46 |USED BY FILE:";F| 00000280: 49 24 00 A9 06 C8 00 85 20 22 20 20 20 20 20 20 |I$...... " | 00000290: 20 20 20 20 20 20 20 20 20 20 20 20 4F 4E 20 44 | ON D| 000002A0: 52 49 56 45 3A 22 3B 44 52 00 D0 06 D2 00 85 20 |RIVE:";DR...... | 000002B0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" | 000002C0: 20 20 4F 4E 20 44 45 56 49 43 45 3A 22 3B 44 56 | ON DEVICE:";DV| 000002D0: 00 E8 06 DC 00 8B 20 46 49 24 B3 B1 22 22 20 A7 |...... FI$.."" .| 000002E0: 20 50 54 24 B2 46 49 24 00 1F 07 E6 00 9F 20 31 | PT$.FI$...... 1| 000002F0: 2C 20 44 56 2C 20 30 2C 20 22 24 22 AA CA 28 C4 |, DV, 0, "$"..(.| 00000300: 28 44 52 29 2C 32 29 AA 22 3A 22 AA 50 54 24 20 |(DR),2).":".PT$ | 00000310: 3A 20 8F 20 53 41 20 4D 55 53 54 20 3D 20 30 00 |: . SA MUST = 0.| 00000320: 5D 07 F0 00 97 20 4D 43 AA 32 31 2C 20 33 34 20 |].... MC.21, 34 | 00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 8F | : .| 00000340: 20 4D 41 4B 45 20 49 4E 50 55 54 20 44 45 4C 49 | MAKE INPUT DELI| 00000350: 4D 49 54 45 52 20 41 20 51 55 4F 54 45 00 98 07 |MITER A QUOTE...| 00000360: FA 00 9E 20 4D 43 20 3A 20 9E 20 4D 43 20 20 20 |... MC : . MC | 00000370: 20 20 20 20 20 20 20 20 20 20 3A 20 8F 20 53 54 | : . ST| 00000380: 52 49 50 20 54 4F 20 31 53 54 2C 20 49 4E 50 55 |RIP TO 1ST, INPU| 00000390: 54 20 54 4F 20 32 4E 44 00 C6 07 04 01 44 4E 24 |T TO 2ND.....DN$| 000003A0: B2 C8 28 49 24 2C C2 28 31 38 39 29 29 20 20 20 |..(I$,.(189)) | 000003B0: 20 20 3A 20 8F 20 44 49 53 4B 20 4E 41 4D 45 20 | : . DISK NAME | 000003C0: 53 54 52 49 4E 47 00 FA 07 0E 01 A1 23 31 2C 20 |STRING......#1, | 000003D0: 41 24 2C 20 41 24 2C 20 42 24 20 20 20 20 20 20 |A$, A$, B$ | 000003E0: 20 20 20 20 20 3A 20 8F 20 46 49 52 53 54 20 41 | : . FIRST A| 000003F0: 24 20 49 53 20 57 41 53 54 45 00 31 08 18 01 49 |$ IS WASTE.1...I| 00000400: 44 24 B2 41 24 AA 42 24 20 20 20 20 20 20 20 20 |D$.A$.B$ | 00000410: 20 20 20 20 20 20 20 20 20 20 20 3A 20 8F 20 44 | : . D| 00000420: 49 53 4B 20 49 44 20 3D 20 4E 45 58 54 20 54 57 |ISK ID = NEXT TW| 00000430: 4F 00 49 08 22 01 99 22 44 49 53 4B 20 4E 41 4D |O.I.".."DISK NAM| 00000440: 45 20 3D 20 22 3B 44 4E 24 00 61 08 2C 01 99 22 |E = ";DN$.a.,.."| 00000450: 20 20 44 49 53 4B 20 49 44 20 3D 20 22 3B 49 44 | DISK ID = ";ID| 00000460: 24 00 A7 08 36 01 97 20 4D 43 AA 32 31 2C 20 30 |$...6.. MC.21, 0| 00000470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :| 00000480: 20 8F 20 4D 41 4B 45 20 49 4E 50 55 54 20 44 45 | . MAKE INPUT DE| 00000490: 4C 49 4D 49 54 45 52 20 30 20 28 45 4E 44 20 4F |LIMITER 0 (END O| 000004A0: 46 20 4C 49 4E 45 29 00 DC 08 40 01 9E 20 4D 43 |F LINE)...@.. MC| 000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004C0: 20 20 20 20 20 20 3A 20 8F 20 53 54 52 49 50 20 | : . STRIP | 000004D0: 52 45 53 54 20 4F 46 20 48 45 41 44 00 0C 09 4A |REST OF HEAD...J| 000004E0: 01 A1 23 31 2C 20 57 24 2C 20 57 24 20 20 20 20 |..#1, W$, W$ | 000004F0: 20 20 20 20 20 20 20 20 20 20 20 3A 20 8F 20 32 | : . 2| 00000500: 20 57 41 53 54 45 20 42 59 54 45 53 00 49 09 54 | WASTE BYTES.I.T| 00000510: 01 A1 23 31 2C 20 41 24 2C 20 42 24 20 20 20 20 |..#1, A$, B$ | 00000520: 20 20 20 20 20 20 20 20 20 20 20 3A 20 8F 20 46 | : . F| 00000530: 49 4C 45 20 42 4C 4F 43 4B 53 20 4F 52 20 42 4C |ILE BLOCKS OR BL| 00000540: 4F 43 4B 53 20 46 52 45 45 00 7F 09 5E 01 42 46 |OCKS FREE...^.BF| 00000550: B2 C6 28 41 24 AA 5A 24 29 AA C6 28 42 24 AA 5A |..(A$.Z$)..(B$.Z| 00000560: 24 29 AC 32 35 36 3A 20 8F 20 43 41 4C 43 55 4C |$).256: . CALCUL| 00000570: 41 54 45 20 42 4C 4F 43 4B 20 43 4F 55 4E 54 00 |ATE BLOCK COUNT.| 00000580: C3 09 68 01 8B 20 42 31 B2 30 20 A7 20 42 31 B2 |..h.. B1.0 . B1.| 00000590: 42 46 20 20 20 20 20 20 20 20 20 20 3A 20 8F 20 |BF : . | 000005A0: 42 4C 4B 20 43 4E 54 20 46 4F 52 20 31 53 54 20 |BLK CNT FOR 1ST | 000005B0: 4D 41 54 43 48 20 53 45 54 20 4F 4E 43 45 20 4F |MATCH SET ONCE O| 000005C0: 4E 4C 59 00 01 0A 72 01 97 20 4D 43 AA 32 31 2C |NLY...r.. MC.21,| 000005D0: 20 33 34 20 20 20 20 20 20 20 20 20 20 20 20 20 | 34 | 000005E0: 20 3A 20 8F 20 4D 41 4B 45 20 49 4E 50 55 54 20 | : . MAKE INPUT | 000005F0: 44 45 4C 49 4D 49 54 45 52 20 41 20 51 55 4F 54 |DELIMITER A QUOT| 00000600: 45 00 38 0A 7C 01 9E 20 4D 43 20 20 20 20 20 20 |E.8.|.. MC | 00000610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000620: 3A 20 8F 20 53 54 52 49 50 20 54 4F 20 46 49 52 |: . STRIP TO FIR| 00000630: 53 54 20 51 55 4F 54 45 00 7D 0A 86 01 8B 20 53 |ST QUOTE.}.... S| 00000640: 54 20 A7 20 35 32 30 20 20 20 20 20 20 20 20 20 |T . 520 | 00000650: 20 20 20 20 20 3A 20 8F 20 4E 4F 20 51 55 4F 54 | : . NO QUOT| 00000660: 45 20 42 45 46 4F 52 20 42 4C 4B 53 20 46 52 45 |E BEFOR BLKS FRE| 00000670: 45 2C 20 4D 55 53 54 20 42 20 45 4E 44 00 C1 0A |E, MUST B END...| 00000680: 90 01 9E 20 4D 43 20 20 20 20 20 20 20 20 20 20 |... MC | 00000690: 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 8F 20 | : . | 000006A0: 49 4E 50 55 54 20 55 50 20 54 4F 20 4E 45 58 54 |INPUT UP TO NEXT| 000006B0: 20 51 55 4F 54 45 20 28 46 49 4C 45 4E 41 4D 45 | QUOTE (FILENAME| 000006C0: 29 00 FE 0A 9A 01 46 24 B2 C8 28 49 24 2C C2 28 |).....F$..(I$,.(| 000006D0: 31 38 39 29 29 20 20 20 20 20 20 3A 20 8F 20 31 |189)) : . 1| 000006E0: 38 39 20 48 4F 4C 44 53 20 4C 45 4E 47 54 48 20 |89 HOLDS LENGTH | 000006F0: 4F 46 20 56 41 4C 49 44 20 49 4E 50 55 54 00 39 |OF VALID INPUT.9| 00000700: 0B A4 01 8B 20 46 46 24 B2 22 22 20 A7 20 46 46 |.... FF$."" . FF| 00000710: 24 B2 46 24 20 20 20 20 20 20 20 3A 20 8F 20 46 |$.F$ : . F| 00000720: 46 24 20 3D 20 46 49 52 53 54 20 46 49 4C 45 4E |F$ = FIRST FILEN| 00000730: 41 4D 45 20 4D 41 54 43 48 00 77 0B AE 01 97 20 |AME MATCH.w.... | 00000740: 4D 43 AA 32 31 2C 20 30 20 20 20 20 20 20 20 20 |MC.21, 0 | 00000750: 20 20 20 20 20 20 20 3A 20 8F 20 4D 41 4B 45 20 | : . MAKE | 00000760: 49 4E 50 55 54 20 44 45 4C 49 4D 49 54 45 52 20 |INPUT DELIMITER | 00000770: 30 20 41 47 41 49 4E 00 B2 0B B8 01 9E 20 4D 43 |0 AGAIN...... MC| 00000780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000790: 20 20 20 20 20 20 3A 20 8F 20 47 45 54 20 52 45 | : . GET RE| 000007A0: 4D 41 49 4E 49 4E 47 20 54 4F 20 45 58 54 52 41 |MAINING TO EXTRA| 000007B0: 43 54 00 E3 0B C2 01 46 54 24 B2 C9 28 C8 28 49 |CT.....FT$..(.(I| 000007C0: 24 2C C2 28 31 38 39 29 AB C3 28 C4 28 42 46 29 |$,.(189)..(.(BF)| 000007D0: 29 29 2C 33 29 20 3A 20 8F 20 46 49 4C 45 20 54 |)),3) : . FILE T| 000007E0: 59 50 45 00 20 0C CC 01 8B 20 46 31 24 B2 22 22 |YPE. .... F1$.""| 000007F0: 20 A7 20 46 31 24 B2 46 54 24 20 20 20 20 20 20 | . F1$.FT$ | 00000800: 3A 20 8F 20 46 31 24 20 3D 20 46 49 4C 45 20 54 |: . F1$ = FILE T| 00000810: 59 50 20 46 4F 52 20 31 53 54 20 4D 41 54 43 48 |YP FOR 1ST MATCH| 00000820: 00 51 0C D6 01 A1 23 31 2C 20 57 24 2C 20 57 24 |.Q....#1, W$, W$| 00000830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :| 00000840: 20 8F 20 57 41 53 54 45 20 54 57 4F 20 4D 4F 52 | . WASTE TWO MOR| 00000850: 45 00 91 0C E0 01 8B 20 53 54 20 A7 20 35 32 30 |E...... ST . 520| 00000860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 | : | 00000870: 8F 20 45 4E 44 20 4F 46 20 46 49 4C 45 2C 20 47 |. END OF FILE, G| 00000880: 4F 20 50 52 49 4E 54 20 42 4C 4B 53 20 46 52 45 |O PRINT BLKS FRE| 00000890: 45 00 D1 0C EA 01 42 55 B2 42 46 20 20 20 20 20 |E.....BU.BF | 000008A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000008B0: 20 20 3A 20 8F 20 2E 2E 2E 4F 4E 4C 59 20 49 46 | : . ...ONLY IF| 000008C0: 20 46 49 4C 45 20 4D 41 54 43 48 20 46 4F 55 4E | FILE MATCH FOUN| 000008D0: 44 00 FC 0C F4 01 99 22 42 4C 4F 43 4B 53 20 55 |D......"BLOCKS U| 000008E0: 53 45 44 20 42 59 20 22 46 54 24 22 20 46 49 4C |SED BY "FT$" FIL| 000008F0: 45 20 22 46 24 22 20 3D 22 3B 42 55 00 06 0D FE |E "F$" =";BU....| 00000900: 01 89 20 33 34 30 00 3D 0D 08 02 8B 20 42 55 20 |.. 340.=.... BU | 00000910: A7 20 99 22 42 4C 4F 43 4B 53 20 55 53 45 44 20 |. ."BLOCKS USED | 00000920: 42 59 20 31 53 54 20 22 46 31 24 22 20 46 49 4C |BY 1ST "F1$" FIL| 00000930: 45 20 22 46 46 24 22 20 3D 22 3B 42 31 00 70 0D |E "FF$" =";B1.p.| 00000940: 12 02 8F 20 50 52 49 4E 54 20 41 42 4F 56 45 20 |... PRINT ABOVE | 00000950: 4F 4E 4C 59 20 49 46 20 42 55 20 57 41 53 20 53 |ONLY IF BU WAS S| 00000960: 45 54 20 28 42 4C 4F 43 4B 53 20 55 53 45 44 29 |ET (BLOCKS USED)| 00000970: 00 88 0D 1C 02 99 22 42 4C 4F 43 4B 53 20 46 52 |......"BLOCKS FR| 00000980: 45 45 20 3D 22 3B 42 46 00 B2 0D 26 02 A0 20 31 |EE =";BF...&.. 1| 00000990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000009A0: 20 20 20 20 20 3A 20 8F 20 43 4C 4F 53 45 20 44 | : . CLOSE D| 000009B0: 49 52 00 F1 0D 30 02 97 20 4D 43 AA 32 31 2C 20 |IR...0.. MC.21, | 000009C0: 31 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |13 | 000009D0: 3A 20 8F 20 4D 41 4B 45 20 49 4E 50 55 54 20 44 |: . MAKE INPUT D| 000009E0: 45 4C 49 4D 49 54 45 52 20 43 52 20 41 47 41 49 |ELIMITER CR AGAI| 000009F0: 4E 00 29 0E 3A 02 80 20 3A 20 8E 20 20 20 20 20 |N.).:.. : . | 00000A00: 20 20 20 20 20 20 20 20 20 20 20 3A 20 8F 20 52 | : . R| 00000A10: 45 4D 4F 56 45 20 45 4E 44 20 46 4F 52 20 53 55 |EMOVE END FOR SU| 00000A20: 42 52 4F 55 54 20 55 53 45 00 00 00 |BROUT USE... |
..0.... THE TRANSACTOR VOLUME 4 ISSUE 03
PAGE 41.T.D.I$."ABCDEFGHIJKLMNOPQRSTUVW
XYZ1234" : . I$ MUST BE 1ST VAR USED...N
.I$.I$.I$.I$ : .
ESTABLISH INPUT BUFFER...X.MC.896
: . MACH CODE ST
ART ADDR.>.... 160, 2, 177, 42, 153,
184, 0, 200, 192, 6, 208, 246, 162..
.... 1, 32, 198, 255, 32, 228, 255,
201, 13, 240, 11, 164, 189.E.... 145,
187, 200, 132, 189, 196, 186, 208, 238,
76, 204, 255... .. : . J.MC . MC.37 : .
X : . J, X : T.T.X : ....... T..5767 .
."TYPO IN DATA" : ..Z...Z$.G(0) : PT$."N
O PATTERN" : B1.0 : BU.0 : FF$."" : F1$.
""...... "DISLAY BLOCKS USED BY FILE:";F
I$...H.. " ON DRIVE:";D
R.P.R.. " ON DEVICE:";DV
...... FI$.."" . PT$.FI$...... 1, DV, 0,
"$".J(D(DR),2).":".PT$ : . SA MUST = 0.
].... MC.21, 34 : . MAKE IN
PUT DELIMITER A QUOTE...... MC : . MC
: . STRIP TO 1ST, INPUT TO 2ND
.F...DN$.H(I$,B(189)) : . DISK NAME
STRING......#1, A$, A$, B$ : .
FIRST A$ IS WASTE.1...ID$.A$.B$
: . DISK ID = NEXT TWO.I.".."
DISK NAME = ";DN$.A.,.." DISK ID = ";ID
$...6.. MC.21, 0 : . MAKE
INPUT DELIMITER 0 (END OF LINE)...@.. MC
: . STRIP REST OF
HEAD...J..#1, W$, W$ : . 2
WASTE BYTES.I.T..#1, A$, B$
: . FILE BLOCKS OR BLOCKS FREE..^.BF
.F(A$.Z$).F(B$.Z$).256: . CALCULATE BLOC
K COUNT.C.H.. B1.0 . B1.BF : .
BLK CNT FOR 1ST MATCH SET ONCE ONLY...R.
. MC.21, 34 : . MAKE INPUT
DELIMITER A QUOTE.8.|.. MC
: . STRIP TO FIRST QUOTE.}.... S
T . 520 : . NO QUOTE BEFOR
BLKS FREE, MUST B END.A.... MC
: . INPUT UP TO NEXT QUOTE (
FILENAME).....F$.H(I$,B(189)) : . 1
89 HOLDS LENGTH OF VALID INPUT.9.... FF$
."" . FF$.F$ : . FF$ = FIRST FILEN
AME MATCH.W.... MC.21, 0 :
. MAKE INPUT DELIMITER 0 AGAIN...... MC
: . GET REMAINING
TO EXTRACT...B.FT$.I(H(I$,B(189).C(D(BF)
)),3) : . FILE TYPE. .L.. F1$."" . F1$.F
T$ : . F1$ = FILE TYP FOR 1ST MATCH
.Q.V..#1, W$, W$ : . WASTE
TWO MORE...... ST . 520 :
. END OF FILE, GO PRINT BLKS FREE.Q...BU
.BF : . ...ONLY IF
FILE MATCH FOUND......"BLOCKS USED BY "
FT$" FILE "F$" =";BU...... 340.=.... BU
. ."BLOCKS USED BY 1ST "F1$" FILE "FF$"
=";B1.P.... PRINT ABOVE ONLY IF BU WAS S
ET (BLOCKS USED)......"BLOCKS FREE =";BF
...&. 1 : . CLOSE D
IR...0.. MC.21, 13 : . MAKE
INPUT DELIMITER CR AGAIN.).:.. : .
: . REMOVE END FOR SUBROUT US
E...
> CLICK IMAGE PREVIEW FOR FULL MODAL