CATSTRAPOLATOR64
FILE INFORMATION
FILENAME(S): CATSTRAPOLATOR64
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-11-30 21:12:52
APPEARS ON: 1 disk(s)
FILE HASH
25559d3b3de4555590c10d0ccf716a44a484945ea20edf11c515b49843bbb74b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR 4 | CATSTRAPOLATOR64 | PRG | DuncanTwain | 23 | 0 | 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 43 05 82 00 83 20 31 |ART ADDR.C.... 1| 00000100: 36 30 2C 20 20 20 32 2C 20 31 37 37 2C 20 20 34 |60, 2, 177, 4| 00000110: 35 2C 20 31 35 33 2C 20 31 33 37 2C 20 20 20 30 |5, 153, 137, 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 2C 20 | 208, 246, 162, | 00000140: 20 20 31 00 8E 05 8C 00 83 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 35 2C 20 31 36 34 2C |, 240, 15, 164,| 00000180: 20 31 34 32 2C 20 31 34 35 2C 20 31 34 30 00 D9 | 142, 145, 140..| 00000190: 05 96 00 83 20 32 30 30 2C 20 31 33 32 2C 20 31 |.... 200, 132, 1| 000001A0: 34 32 2C 20 31 39 36 2C 20 31 33 39 2C 20 32 34 |42, 196, 139, 24| 000001B0: 30 2C 20 20 20 34 2C 20 31 36 35 2C 20 31 34 34 |0, 4, 165, 144| 000001C0: 2C 20 32 34 30 2C 20 32 33 34 2C 20 20 37 36 2C |, 240, 234, 76,| 000001D0: 20 32 30 34 2C 20 32 35 35 00 0B 06 A0 00 8C 20 | 204, 255...... | 000001E0: 3A 20 81 20 4A B2 4D 43 20 A4 20 4D 43 AA 34 32 |: . J.MC . MC.42| 000001F0: 20 3A 20 87 20 58 20 3A 20 97 20 4A 2C 20 58 20 | : . X : . J, X | 00000200: 3A 20 54 B2 54 AA 58 20 3A 20 82 00 2F 06 AA 00 |: T.T.X : ../...| 00000210: 8B 20 54 B3 B1 36 31 32 30 20 A7 20 99 22 54 59 |. T..6120 . ."TY| 00000220: 50 4F 20 49 4E 20 44 41 54 41 22 20 3A 20 90 00 |PO IN DATA" : ..| 00000230: 6E 06 B4 00 5A 24 B2 C7 28 30 29 20 3A 20 50 54 |n...Z$..(0) : PT| 00000240: 24 B2 22 4E 4F 20 50 41 54 54 45 52 4E 22 20 3A |$."NO PATTERN" :| 00000250: 20 42 31 B2 30 20 3A 20 42 55 B2 30 20 3A 20 46 | B1.0 : BU.0 : F| 00000260: 46 24 B2 22 22 20 3A 20 46 31 24 B2 22 22 00 96 |F$."" : F1$.""..| 00000270: 06 BE 00 85 20 22 44 49 53 4C 41 59 20 42 4C 4F |.... "DISLAY BLO| 00000280: 43 4B 53 20 55 53 45 44 20 42 59 20 46 49 4C 45 |CKS USED BY FILE| 00000290: 3A 22 3B 46 49 24 00 BD 06 C8 00 85 20 22 20 20 |:";FI$...... " | 000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002B0: 4F 4E 20 44 52 49 56 45 3A 22 3B 44 52 00 E4 06 |ON DRIVE:";DR...| 000002C0: D2 00 85 20 22 20 20 20 20 20 20 20 20 20 20 20 |... " | 000002D0: 20 20 20 20 20 20 4F 4E 20 44 45 56 49 43 45 3A | ON DEVICE:| 000002E0: 22 3B 44 56 00 FC 06 DC 00 8B 20 46 49 24 B3 B1 |";DV...... FI$..| 000002F0: 22 22 20 A7 20 50 54 24 B2 46 49 24 00 33 07 E6 |"" . PT$.FI$.3..| 00000300: 00 9F 20 31 2C 20 44 56 2C 20 30 2C 20 22 24 22 |.. 1, DV, 0, "$"| 00000310: AA CA 28 C4 28 44 52 29 2C 32 29 AA 22 3A 22 AA |..(.(DR),2).":".| 00000320: 50 54 24 20 3A 20 8F 20 53 41 20 4D 55 53 54 20 |PT$ : . SA MUST | 00000330: 3D 20 30 00 71 07 F0 00 97 20 4D 43 AA 32 31 2C |= 0.q.... MC.21,| 00000340: 20 33 34 20 20 20 20 20 20 20 20 20 20 20 20 20 | 34 | 00000350: 20 3A 20 8F 20 4D 41 4B 45 20 49 4E 50 55 54 20 | : . MAKE INPUT | 00000360: 44 45 4C 49 4D 49 54 45 52 20 41 20 51 55 4F 54 |DELIMITER A QUOT| 00000370: 45 00 AC 07 FA 00 9E 20 4D 43 20 3A 20 9E 20 4D |E...... MC : . M| 00000380: 43 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 |C : | 00000390: 8F 20 53 54 52 49 50 20 54 4F 20 31 53 54 2C 20 |. STRIP TO 1ST, | 000003A0: 49 4E 50 55 54 20 54 4F 20 32 4E 44 00 DA 07 04 |INPUT TO 2ND....| 000003B0: 01 44 4E 24 B2 C8 28 49 24 2C C2 28 31 38 39 29 |.DN$..(I$,.(189)| 000003C0: 29 20 20 20 20 20 3A 20 8F 20 44 49 53 4B 20 4E |) : . DISK N| 000003D0: 41 4D 45 20 53 54 52 49 4E 47 00 0E 08 0E 01 A1 |AME STRING......| 000003E0: 23 31 2C 20 41 24 2C 20 41 24 2C 20 42 24 20 20 |#1, A$, A$, B$ | 000003F0: 20 20 20 20 20 20 20 20 20 3A 20 8F 20 46 49 52 | : . FIR| 00000400: 53 54 20 41 24 20 49 53 20 57 41 53 54 45 00 45 |ST A$ IS WASTE.E| 00000410: 08 18 01 49 44 24 B2 41 24 AA 42 24 20 20 20 20 |...ID$.A$.B$ | 00000420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :| 00000430: 20 8F 20 44 49 53 4B 20 49 44 20 3D 20 4E 45 58 | . DISK ID = NEX| 00000440: 54 20 54 57 4F 00 5D 08 22 01 99 22 44 49 53 4B |T TWO.].".."DISK| 00000450: 20 4E 41 4D 45 20 3D 20 22 3B 44 4E 24 00 75 08 | NAME = ";DN$.u.| 00000460: 2C 01 99 22 20 20 44 49 53 4B 20 49 44 20 3D 20 |,.." DISK ID = | 00000470: 22 3B 49 44 24 00 BB 08 36 01 97 20 4D 43 AA 32 |";ID$...6.. MC.2| 00000480: 31 2C 20 30 20 20 20 20 20 20 20 20 20 20 20 20 |1, 0 | 00000490: 20 20 20 3A 20 8F 20 4D 41 4B 45 20 49 4E 50 55 | : . MAKE INPU| 000004A0: 54 20 44 45 4C 49 4D 49 54 45 52 20 30 20 28 45 |T DELIMITER 0 (E| 000004B0: 4E 44 20 4F 46 20 4C 49 4E 45 29 00 F0 08 40 01 |ND OF LINE)...@.| 000004C0: 9E 20 4D 43 20 20 20 20 20 20 20 20 20 20 20 20 |. MC | 000004D0: 20 20 20 20 20 20 20 20 20 20 3A 20 8F 20 53 54 | : . ST| 000004E0: 52 49 50 20 52 45 53 54 20 4F 46 20 48 45 41 44 |RIP REST OF HEAD| 000004F0: 00 20 09 4A 01 A1 23 31 2C 20 57 24 2C 20 57 24 |. .J..#1, W$, W$| 00000500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :| 00000510: 20 8F 20 32 20 57 41 53 54 45 20 42 59 54 45 53 | . 2 WASTE BYTES| 00000520: 00 5D 09 54 01 A1 23 31 2C 20 41 24 2C 20 42 24 |.].T..#1, A$, B$| 00000530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :| 00000540: 20 8F 20 46 49 4C 45 20 42 4C 4F 43 4B 53 20 4F | . FILE BLOCKS O| 00000550: 52 20 42 4C 4F 43 4B 53 20 46 52 45 45 00 93 09 |R BLOCKS FREE...| 00000560: 5E 01 42 46 B2 C6 28 41 24 AA 5A 24 29 AA C6 28 |^.BF..(A$.Z$)..(| 00000570: 42 24 AA 5A 24 29 AC 32 35 36 3A 20 8F 20 43 41 |B$.Z$).256: . CA| 00000580: 4C 43 55 4C 41 54 45 20 42 4C 4F 43 4B 20 43 4F |LCULATE BLOCK CO| 00000590: 55 4E 54 00 D7 09 68 01 8B 20 42 31 B2 30 20 A7 |UNT...h.. B1.0 .| 000005A0: 20 42 31 B2 42 46 20 20 20 20 20 20 20 20 20 20 | B1.BF | 000005B0: 3A 20 8F 20 42 4C 4B 20 43 4E 54 20 46 4F 52 20 |: . BLK CNT FOR | 000005C0: 31 53 54 20 4D 41 54 43 48 20 53 45 54 20 4F 4E |1ST MATCH SET ON| 000005D0: 43 45 20 4F 4E 4C 59 00 15 0A 72 01 97 20 4D 43 |CE ONLY...r.. MC| 000005E0: AA 32 31 2C 20 33 34 20 20 20 20 20 20 20 20 20 |.21, 34 | 000005F0: 20 20 20 20 20 3A 20 8F 20 4D 41 4B 45 20 49 4E | : . MAKE IN| 00000600: 50 55 54 20 44 45 4C 49 4D 49 54 45 52 20 41 20 |PUT DELIMITER A | 00000610: 51 55 4F 54 45 00 4C 0A 7C 01 9E 20 4D 43 20 20 |QUOTE.L.|.. MC | 00000620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000630: 20 20 20 20 3A 20 8F 20 53 54 52 49 50 20 54 4F | : . STRIP TO| 00000640: 20 46 49 52 53 54 20 51 55 4F 54 45 00 91 0A 86 | FIRST QUOTE....| 00000650: 01 8B 20 53 54 20 A7 20 35 32 30 20 20 20 20 20 |.. ST . 520 | 00000660: 20 20 20 20 20 20 20 20 20 3A 20 8F 20 4E 4F 20 | : . NO | 00000670: 51 55 4F 54 45 20 42 45 46 4F 52 20 42 4C 4B 53 |QUOTE BEFOR BLKS| 00000680: 20 46 52 45 45 2C 20 4D 55 53 54 20 42 20 45 4E | FREE, MUST B EN| 00000690: 44 00 D5 0A 90 01 9E 20 4D 43 20 20 20 20 20 20 |D...... MC | 000006A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000006B0: 3A 20 8F 20 49 4E 50 55 54 20 55 50 20 54 4F 20 |: . INPUT UP TO | 000006C0: 4E 45 58 54 20 51 55 4F 54 45 20 28 46 49 4C 45 |NEXT QUOTE (FILE| 000006D0: 4E 41 4D 45 29 00 12 0B 9A 01 46 24 B2 C8 28 49 |NAME).....F$..(I| 000006E0: 24 2C C2 28 31 38 39 29 29 20 20 20 20 20 20 3A |$,.(189)) :| 000006F0: 20 8F 20 31 38 39 20 48 4F 4C 44 53 20 4C 45 4E | . 189 HOLDS LEN| 00000700: 47 54 48 20 4F 46 20 56 41 4C 49 44 20 49 4E 50 |GTH OF VALID INP| 00000710: 55 54 00 4D 0B A4 01 8B 20 46 46 24 B2 22 22 20 |UT.M.... FF$."" | 00000720: A7 20 46 46 24 B2 46 24 20 20 20 20 20 20 20 3A |. FF$.F$ :| 00000730: 20 8F 20 46 46 24 20 3D 20 46 49 52 53 54 20 46 | . FF$ = FIRST F| 00000740: 49 4C 45 4E 41 4D 45 20 4D 41 54 43 48 00 8B 0B |ILENAME MATCH...| 00000750: AE 01 97 20 4D 43 AA 32 31 2C 20 30 20 20 20 20 |... MC.21, 0 | 00000760: 20 20 20 20 20 20 20 20 20 20 20 3A 20 8F 20 4D | : . M| 00000770: 41 4B 45 20 49 4E 50 55 54 20 44 45 4C 49 4D 49 |AKE INPUT DELIMI| 00000780: 54 45 52 20 30 20 41 47 41 49 4E 00 C6 0B B8 01 |TER 0 AGAIN.....| 00000790: 9E 20 4D 43 20 20 20 20 20 20 20 20 20 20 20 20 |. MC | 000007A0: 20 20 20 20 20 20 20 20 20 20 3A 20 8F 20 47 45 | : . GE| 000007B0: 54 20 52 45 4D 41 49 4E 49 4E 47 20 54 4F 20 45 |T REMAINING TO E| 000007C0: 58 54 52 41 43 54 00 F7 0B C2 01 46 54 24 B2 C9 |XTRACT.....FT$..| 000007D0: 28 C8 28 49 24 2C C2 28 31 38 39 29 AB C3 28 C4 |(.(I$,.(189)..(.| 000007E0: 28 42 46 29 29 29 2C 33 29 20 3A 20 8F 20 46 49 |(BF))),3) : . FI| 000007F0: 4C 45 20 54 59 50 45 00 34 0C CC 01 8B 20 46 31 |LE TYPE.4.... F1| 00000800: 24 B2 22 22 20 A7 20 46 31 24 B2 46 54 24 20 20 |$."" . F1$.FT$ | 00000810: 20 20 20 20 3A 20 8F 20 46 31 24 20 3D 20 46 49 | : . F1$ = FI| 00000820: 4C 45 20 54 59 50 20 46 4F 52 20 31 53 54 20 4D |LE TYP FOR 1ST M| 00000830: 41 54 43 48 00 65 0C D6 01 A1 23 31 2C 20 57 24 |ATCH.e....#1, W$| 00000840: 2C 20 57 24 20 20 20 20 20 20 20 20 20 20 20 20 |, W$ | 00000850: 20 20 20 3A 20 8F 20 57 41 53 54 45 20 54 57 4F | : . WASTE TWO| 00000860: 20 4D 4F 52 45 00 A5 0C E0 01 8B 20 53 54 20 A7 | MORE...... ST .| 00000870: 20 35 32 30 20 20 20 20 20 20 20 20 20 20 20 20 | 520 | 00000880: 20 20 3A 20 8F 20 45 4E 44 20 4F 46 20 46 49 4C | : . END OF FIL| 00000890: 45 2C 20 47 4F 20 50 52 49 4E 54 20 42 4C 4B 53 |E, GO PRINT BLKS| 000008A0: 20 46 52 45 45 00 E5 0C EA 01 42 55 B2 42 46 20 | FREE.....BU.BF | 000008B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000008C0: 20 20 20 20 20 20 3A 20 8F 20 2E 2E 2E 4F 4E 4C | : . ...ONL| 000008D0: 59 20 49 46 20 46 49 4C 45 20 4D 41 54 43 48 20 |Y IF FILE MATCH | 000008E0: 46 4F 55 4E 44 00 10 0D F4 01 99 22 42 4C 4F 43 |FOUND......"BLOC| 000008F0: 4B 53 20 55 53 45 44 20 42 59 20 22 46 54 24 22 |KS USED BY "FT$"| 00000900: 20 46 49 4C 45 20 22 46 24 22 20 3D 22 3B 42 55 | FILE "F$" =";BU| 00000910: 00 1A 0D FE 01 89 20 33 34 30 00 51 0D 08 02 8B |...... 340.Q....| 00000920: 20 42 55 20 A7 20 99 22 42 4C 4F 43 4B 53 20 55 | BU . ."BLOCKS U| 00000930: 53 45 44 20 42 59 20 31 53 54 20 22 46 31 24 22 |SED BY 1ST "F1$"| 00000940: 20 46 49 4C 45 20 22 46 46 24 22 20 3D 22 3B 42 | FILE "FF$" =";B| 00000950: 31 00 84 0D 12 02 8F 20 50 52 49 4E 54 20 41 42 |1...... PRINT AB| 00000960: 4F 56 45 20 4F 4E 4C 59 20 49 46 20 42 55 20 57 |OVE ONLY IF BU W| 00000970: 41 53 20 53 45 54 20 28 42 4C 4F 43 4B 53 20 55 |AS SET (BLOCKS U| 00000980: 53 45 44 29 00 9C 0D 1C 02 99 22 42 4C 4F 43 4B |SED)......"BLOCK| 00000990: 53 20 46 52 45 45 20 3D 22 3B 42 46 00 C6 0D 26 |S FREE =";BF...&| 000009A0: 02 A0 20 31 20 20 20 20 20 20 20 20 20 20 20 20 |.. 1 | 000009B0: 20 20 20 20 20 20 20 20 20 3A 20 8F 20 43 4C 4F | : . CLO| 000009C0: 53 45 20 44 49 52 00 05 0E 30 02 97 20 4D 43 AA |SE DIR...0.. MC.| 000009D0: 32 31 2C 20 31 33 20 20 20 20 20 20 20 20 20 20 |21, 13 | 000009E0: 20 20 20 20 3A 20 8F 20 4D 41 4B 45 20 49 4E 50 | : . MAKE INP| 000009F0: 55 54 20 44 45 4C 49 4D 49 54 45 52 20 43 52 20 |UT DELIMITER CR | 00000A00: 41 47 41 49 4E 00 3D 0E 3A 02 80 20 3A 20 8E 20 |AGAIN.=.:.. : . | 00000A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :| 00000A20: 20 8F 20 52 45 4D 4F 56 45 20 45 4E 44 20 46 4F | . REMOVE END FO| 00000A30: 52 20 53 55 42 52 4F 55 54 20 55 53 45 00 00 00 |R SUBROUT 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.C.... 160, 2, 177, 45, 153,
137, 0, 200, 192, 6, 208, 246, 162,
1...... 32, 198, 255, 32, 228, 255,
201, 13, 240, 15, 164, 142, 145, 140.Y
.... 200, 132, 142, 196, 139, 240, 4,
165, 144, 240, 234, 76, 204, 255... ..
: . J.MC . MC.42 : . X : . J, X : T.T.X
: ../.... T..6120 . ."TYPO IN DATA" : ..
N...Z$.G(0) : PT$."NO PATTERN" : B1.0 :
BU.0 : FF$."" : F1$.""...... "DISLAY BLO
CKS USED BY FILE:";FI$...H.. "
ON DRIVE:";DR...R.. "
ON DEVICE:";DV...... FI$.."" . PT$
.FI$.3.... 1, DV, 0, "$".J(D(DR),2).":".
PT$ : . SA MUST = 0.Q.... MC.21, 34
: . MAKE INPUT DELIMITER A QUOT
E...... MC : . MC : . STRIP
TO 1ST, INPUT TO 2ND.Z...DN$.H(I$,B(189)
) : . DISK NAME STRING......#1, A$,
A$, B$ : . FIRST A$ IS WASTE.E
...ID$.A$.B$ : . DISK
ID = NEXT TWO.].".."DISK NAME = ";DN$.U.
,.." DISK ID = ";ID$...6.. MC.21, 0
: . MAKE INPUT DELIMITER 0 (E
ND OF LINE)...@.. MC
: . STRIP REST OF HEAD. .J..#1, W$, W$
: . 2 WASTE BYTES.].T..#1
, A$, B$ : . FILE BLOCKS O
R BLOCKS FREE...^.BF.F(A$.Z$).F(B$.Z$).2
56: . CALCULATE BLOCK COUNT.W.H.. B1.0 .
B1.BF : . BLK CNT FOR 1ST MATC
H SET ONCE ONLY...R.. MC.21, 34
: . MAKE INPUT DELIMITER A QUOTE.L.
|.. MC : . STRIP TO
FIRST QUOTE...... ST . 520
: . NO QUOTE BEFOR BLKS FREE, MUST B EN
D.U.... MC : . INPU
T UP TO NEXT QUOTE (FILENAME).....F$.H(I
$,B(189)) : . 189 HOLDS LENGTH OF V
ALID INPUT.M.... FF$."" . FF$.F$ :
. FF$ = FIRST FILENAME MATCH...... MC.2
1, 0 : . MAKE INPUT DELIMI
TER 0 AGAIN.F.... MC
: . GET REMAINING TO EXTRACT...B.FT$.I
(H(I$,B(189).C(D(BF))),3) : . FILE TYPE.
4.L.. F1$."" . F1$.FT$ : . F1$ = FI
LE TYP FOR 1ST MATCH.E.V..#1, W$, W$
: . WASTE TWO MORE...... ST .
520 : . END OF FILE, GO PR
INT BLKS FREE.....BU.BF
: . ...ONLY IF FILE MATCH FOUND...
..."BLOCKS USED BY "FT$" FILE "F$" =";BU
...... 340.Q.... BU . ."BLOCKS USED BY 1
ST "F1$" FILE "FF$" =";B1...... PRINT AB
OVE ONLY IF BU WAS SET (BLOCKS USED)....
.."BLOCKS FREE =";BF.F.&. 1
: . CLOSE DIR...0.. MC.21, 13
: . MAKE INPUT DELIMITER CR
AGAIN.=.:.. : . : . REMOV
E END FOR SUBROUT USE...
> CLICK IMAGE PREVIEW FOR FULL MODAL