FORMAT128
FILE INFORMATION
FILENAME(S): FORMAT128
FILE TYPE(S): PRG
FILE SIZE: 4.9K
FIRST SEEN: 2025-11-30 21:07:26
APPEARS ON: 1 disk(s)
FILE HASH
54d2251fb3fa1a0c080158d0960e3464f12e740bbb8d28ca0e9a2147f6cd7cd2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C128 | FORMAT128 | PRG | DuncanTwain | 22 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 34 08 0A 00 89 37 30 3A 8F 20 46 4F 52 4D |..4....70:. FORM|
00000010: 41 54 54 45 52 20 4A 4F 48 4E 20 44 45 41 52 49 |ATTER JOHN DEARI|
00000020: 4E 47 45 52 20 32 2F 32 35 2F 38 36 2D 31 32 2F |NGER 2/25/86-12/|
00000030: 32 2F 38 36 00 60 08 14 00 53 B2 4C 45 3A 46 B2 |2/86.`...S.LE:F.|
00000040: 32 3A 99 22 12 11 53 4F 52 54 49 4E 47 20 49 44 |2:."..SORTING ID|
00000050: 20 4E 55 4D 42 45 52 53 22 3A 8B 53 B2 31 A7 8E | NUMBERS":.S.1..|
00000060: 00 94 08 1E 00 5A B2 2E 3A 53 B2 B5 28 28 53 AA |.....Z..:S..((S.|
00000070: 31 29 AD 32 29 3A 81 49 B2 31 A4 4C 45 AB 53 3A |1).2):.I.1.LE.S:|
00000080: 8B 49 44 24 28 49 29 B3 B2 49 44 24 28 49 AA 53 |.ID$(I)..ID$(I.S|
00000090: 29 A7 35 30 00 C2 08 28 00 54 24 B2 49 44 24 28 |).50...(.T$.ID$(|
000000A0: 49 29 3A 49 44 24 28 49 29 B2 49 44 24 28 49 AA |I):ID$(I).ID$(I.|
000000B0: 53 29 3A 49 44 24 28 49 AA 53 29 B2 54 24 3A 5A |S):ID$(I.S).T$:Z|
000000C0: B2 31 00 D8 08 32 00 82 3A 8B 28 5A B2 31 29 B0 |.1...2..:.(Z.1).|
000000D0: 28 53 B1 31 29 A7 33 30 00 DE 08 3C 00 8E 00 FA |(S.1).30...<....|
000000E0: 08 3F 00 D7 36 38 3A FE 0C 3A 8F 20 54 52 41 50 |.?..68:..:. TRAP|
000000F0: 36 38 3A 43 41 54 41 4C 4F 47 00 2F 09 41 00 99 |68:CATALOG./.A..|
00000100: 22 12 50 52 45 53 53 20 41 20 4B 45 59 22 3A 97 |".PRESS A KEY":.|
00000110: 32 30 38 2C 30 3A 92 32 30 38 2C 31 3A D7 3A 8E |208,0:.208,1:.:.|
00000120: 20 3A 8F 20 54 52 41 50 3A 52 45 54 55 52 4E 00 | :. TRAP:RETURN.|
00000130: 42 09 44 00 D6 36 35 3A 8F 20 52 45 53 55 4D 45 |B.D..65:. RESUME|
00000140: 36 35 00 80 09 46 00 97 35 33 32 38 31 2C 31 32 |65...F..53281,12|
00000150: 3A 97 35 33 32 38 30 2C 31 32 3A 99 22 13 13 93 |:.53280,12:."...|
00000160: 90 22 3A 43 24 B2 C7 28 31 33 29 3A 86 49 44 24 |.":C$..(13):.ID$|
00000170: 28 35 30 30 29 2C 44 24 28 32 30 29 3A 46 B2 30 |(500),D$(20):F.0|
00000180: 00 A4 09 50 00 8B B8 28 31 29 B1 33 38 39 31 31 |...P...(1).38911|
00000190: AF C2 28 32 31 35 29 B2 31 32 38 A7 E7 36 2C 31 |..(215).128..6,1|
000001A0: 36 3A FE 25 00 BC 09 55 00 4D B2 30 3A 8B B8 28 |6:.%...U.M.0:..(|
000001B0: 31 29 B1 33 38 39 31 31 A7 4D B2 31 00 DD 09 5A |1).38911.M.1...Z|
000001C0: 00 8D 31 35 30 3A 98 31 35 2C 22 49 30 22 3A 8D |..150:.15,"I0":.|
000001D0: 31 36 30 3A 8B 45 A7 8D 31 37 30 3A 80 00 FB 09 |160:.E..170:....|
000001E0: 64 00 54 24 B2 22 54 22 3A 8D 31 39 30 3A 8D 31 |d.T$."T":.190:.1|
000001F0: 36 30 3A 8B 45 B2 30 A7 32 30 30 00 0D 0A 6E 00 |60:.E.0.200...n.|
00000200: 8B 45 B3 B1 36 32 A7 8D 31 37 30 3A 80 00 30 0A |.E..62..170:..0.|
00000210: 78 00 54 24 B2 22 54 2C 53 2C 57 22 3A 8D 31 39 |x.T$."T,S,W":.19|
00000220: 30 3A 8D 31 36 30 3A 8B 45 A7 8D 31 37 30 3A 80 |0:.160:.E..170:.|
00000230: 00 5F 0A 82 00 98 32 2C 22 4E 4F 4E 45 22 3B 43 |._....2,"NONE";C|
00000240: 24 3B 22 30 30 22 3B 43 24 3B 22 20 22 3B 43 24 |$;"00";C$;" ";C$|
00000250: 3A 8D 31 36 30 3A 8B 45 A7 8D 31 37 30 3A 80 00 |:.160:.E..170:..|
00000260: 68 0A 8C 00 89 32 30 30 00 79 0A 96 00 A0 31 35 |h....200.y....15|
00000270: 3A 9F 31 35 2C 38 2C 31 35 00 8D 0A A0 00 84 31 |:.15,8,15......1|
00000280: 35 2C 45 2C 45 4D 24 2C 54 2C 53 3A 8E 00 AF 0A |5,E,EM$,T,S:....|
00000290: AA 00 99 22 1C 12 45 52 52 4F 52 3A 92 22 45 22 |..."..ERROR:."E"|
000002A0: 2C 22 45 4D 24 22 2C 22 45 54 22 2C 22 45 53 00 |,"EM$","ET","ES.|
000002B0: BC 0A B4 00 A0 32 3A A0 31 35 3A 8E 00 D9 0A BE |.....2:.15:.....|
000002C0: 00 A0 32 3A 9F 32 2C 38 2C 32 2C 22 2E 49 44 20 |..2:.2,8,2,".ID |
000002D0: 4C 49 53 22 AA 54 24 3A 8E 00 0C 0B C8 00 99 22 |LIS".T$:......."|
000002E0: 12 52 45 41 44 49 4E 47 20 49 44 20 4C 49 53 54 |.READING ID LIST|
000002F0: 22 3A 54 24 B2 22 54 22 3A 8D 31 39 30 3A 8D 31 |":T$."T":.190:.1|
00000300: 36 30 3A 8B 45 A7 8D 31 37 30 3A 90 00 3F 0B D2 |60:.E..170:..?..|
00000310: 00 84 32 2C 4C 45 24 2C 49 44 24 28 30 29 3A 4C |..2,LE$,ID$(0):L|
00000320: 45 B2 C5 28 49 44 24 28 30 29 29 3A 81 49 B2 31 |E..(ID$(0)):.I.1|
00000330: A4 4C 45 3A 84 32 2C 49 44 24 28 49 29 3A 82 00 |.LE:.2,ID$(I):..|
00000340: 52 0B DC 00 8D 31 36 30 3A 8B 45 A7 8D 31 37 30 |R....160:.E..170|
00000350: 3A 90 00 79 0B E6 00 8D 31 38 30 3A 99 22 93 20 |:..y....180:.". |
00000360: 12 46 4F 52 4D 41 54 54 45 52 20 31 32 38 2F 36 |.FORMATTER 128/6|
00000370: 34 20 26 20 31 35 37 31 22 00 A7 0B EB 00 99 22 |4 & 1571"......"|
00000380: 28 43 29 31 39 38 36 20 42 59 20 4A 4F 48 4E 20 |(C)1986 BY JOHN |
00000390: 44 45 41 52 49 4E 47 45 52 11 11 22 3A 99 22 4F |DEARINGER..":."O|
000003A0: 50 54 49 4F 4E 53 3A 00 EB 0B F0 00 99 22 11 11 |PTIONS:......"..|
000003B0: 31 29 20 46 4F 52 4D 41 54 20 41 20 44 49 53 4B |1) FORMAT A DISK|
000003C0: 22 3A 99 22 32 29 20 41 44 44 20 49 44 20 46 4F |":."2) ADD ID FO|
000003D0: 52 20 50 52 45 56 49 4F 55 53 4C 59 20 46 4F 52 |R PREVIOUSLY FOR|
000003E0: 4D 41 54 54 45 44 20 44 49 53 4B 00 23 0C F5 00 |MATTED DISK.#...|
000003F0: 99 22 33 29 20 44 45 4C 45 54 45 20 41 4E 20 49 |."3) DELETE AN I|
00000400: 44 20 46 52 4F 4D 20 4C 49 53 54 22 3A 99 22 34 |D FROM LIST":."4|
00000410: 29 20 50 52 49 4E 54 20 4F 55 54 20 49 44 20 4C |) PRINT OUT ID L|
00000420: 49 53 54 00 3A 0C FA 00 8B 4D A7 99 22 35 29 20 |IST.:....M.."5) |
00000430: 44 49 52 45 43 54 4F 52 59 22 00 48 0C FF 00 99 |DIRECTORY".H....|
00000440: 22 36 29 20 51 55 49 54 00 56 0C 04 01 8B 4D A7 |"6) QUIT.V....M.|
00000450: 97 32 30 38 2C 2E 00 66 0C 07 01 8B 4D B2 2E A7 |.208,..f....M...|
00000460: 97 31 39 38 2C 2E 00 87 0C 09 01 4B B2 2E 3A 85 |.198,......K..:.|
00000470: 22 11 57 48 49 43 48 22 3B 4B 3A 8B 4B B3 31 B0 |".WHICH";K:.K.1.|
00000480: 4B B1 36 A7 32 36 30 00 A6 0C 0E 01 91 4B 8D 32 |K.6.260......K.2|
00000490: 39 30 2C 35 36 30 2C 37 34 30 2C 39 37 30 2C 36 |90,560,740,970,6|
000004A0: 33 2C 31 31 32 30 00 AF 0C 18 01 89 32 33 30 00 |3,1120......230.|
000004B0: C8 0C 22 01 99 22 93 12 46 4F 52 4D 41 54 20 41 |..".."..FORMAT A|
000004C0: 20 44 49 53 4B 11 11 11 00 3F 0D 23 01 99 22 11 | DISK....?.#..".|
000004D0: 11 31 29 20 53 49 4E 47 4C 45 2D 53 49 44 45 44 |.1) SINGLE-SIDED|
000004E0: 20 46 4F 52 4D 41 54 22 3A 99 22 32 29 20 44 4F | FORMAT":."2) DO|
000004F0: 55 42 4C 45 2D 53 49 44 45 44 20 46 4F 52 4D 41 |UBLE-SIDED FORMA|
00000500: 54 22 3A 99 22 11 33 29 20 45 58 49 54 20 54 48 |T":.".3) EXIT TH|
00000510: 49 53 20 52 4F 55 54 49 4E 45 22 3A 85 22 11 11 |IS ROUTINE":."..|
00000520: 57 48 49 43 48 22 3B 46 4D 24 3A 8B 46 4D 24 B3 |WHICH";FM$:.FM$.|
00000530: 22 31 22 B0 46 4D 24 B1 22 33 22 A7 32 39 30 00 |"1".FM$."3".290.|
00000540: 4E 0D 24 01 8B 46 4D 24 B2 22 33 22 A7 8E 00 5F |N.$..FM$."3"..._|
00000550: 0D 25 01 8B 46 4D 24 B2 22 31 22 A7 33 34 30 00 |.%..FM$."1".340.|
00000560: 8B 0D 36 01 99 22 12 1C 20 57 41 52 4E 49 4E 47 |..6..".. WARNING|
00000570: 20 92 20 57 48 45 4E 20 41 20 44 49 53 4B 20 49 | . WHEN A DISK I|
00000580: 53 20 46 4F 52 4D 41 54 54 45 44 00 AF 0D 40 01 |S FORMATTED...@.|
00000590: 99 22 41 53 20 44 4F 55 42 4C 45 2D 53 49 44 45 |."AS DOUBLE-SIDE|
000005A0: 44 21 21 20 41 4E 59 20 44 41 54 41 20 4F 4E 00 |D!! ANY DATA ON.|
000005B0: DC 0D 4A 01 99 22 54 48 45 20 42 41 43 4B 20 53 |..J.."THE BACK S|
000005C0: 49 44 45 20 57 49 4C 4C 20 42 45 20 44 45 53 54 |IDE WILL BE DEST|
000005D0: 52 4F 59 45 44 20 41 4C 53 4F 21 21 00 07 0E 54 |ROYED ALSO!!...T|
000005E0: 01 99 22 90 11 28 20 5E 20 20 54 4F 20 41 42 4F |.."..( ^ TO ABO|
000005F0: 52 54 29 20 20 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |RT) ..........|
00000600: 2E 2E 2E 2E 2E 2E 22 00 2F 0E 5E 01 85 22 45 4E |......"./.^.."EN|
00000610: 54 45 52 20 44 49 53 4B 20 4E 41 4D 45 22 3B 4E |TER DISK NAME";N|
00000620: 4D 24 3A 8B 4E 4D 24 B2 22 5E 22 A7 32 39 30 00 |M$:.NM$."^".290.|
00000630: 42 0E 68 01 8B C3 28 4E 4D 24 29 B1 31 36 A7 32 |B.h...(NM$).16.2|
00000640: 39 30 00 64 0E 72 01 99 22 11 54 48 45 20 4C 41 |90.d.r..".THE LA|
00000650: 53 54 20 49 44 20 55 53 45 44 20 57 41 53 3A 20 |ST ID USED WAS: |
00000660: 22 4C 45 24 00 91 0E 7C 01 8B 46 B3 B1 32 A7 99 |"LE$...|..F..2..|
00000670: 22 54 48 45 20 4C 41 53 54 20 49 44 20 4F 4E 20 |"THE LAST ID ON |
00000680: 46 49 4C 45 20 49 53 3A 20 22 49 44 24 28 4C 45 |FILE IS: "ID$(LE|
00000690: 29 00 C7 0E 86 01 4E 55 24 B2 22 22 3A 85 22 11 |).....NU$."":.".|
000006A0: 45 4E 54 45 52 20 54 57 4F 20 49 44 20 43 48 41 |ENTER TWO ID CHA|
000006B0: 52 41 43 54 45 52 53 22 3B 4E 55 24 3A 8B 4E 55 |RACTERS";NU$:.NU|
000006C0: 24 B2 22 5E 22 A7 8E 00 DA 0E 90 01 8B C3 28 4E |$."^".........(N|
000006D0: 55 24 29 B3 B1 32 A7 33 39 30 00 0F 0F 9A 01 99 |U$)..2.390......|
000006E0: 22 11 43 48 45 43 4B 49 4E 47 20 49 44 20 4C 49 |".CHECKING ID LI|
000006F0: 53 54 22 3A 81 49 B2 31 A4 4C 45 3A 8B 4E 55 24 |ST":.I.1.LE:.NU$|
00000700: B3 B1 49 44 24 28 49 29 A7 82 3A 89 34 33 30 00 |..ID$(I)..:.430.|
00000710: 51 0F A4 01 99 22 1C 54 48 41 54 20 49 44 20 41 |Q....".THAT ID A|
00000720: 4C 52 45 41 44 59 20 45 58 49 53 54 53 2C 20 50 |LREADY EXISTS, P|
00000730: 4C 45 41 53 45 20 45 4E 54 45 52 20 41 4E 4F 54 |LEASE ENTER ANOT|
00000740: 48 45 52 90 22 3A 49 B2 4C 45 3A 82 3A 89 33 37 |HER.":I.LE:.:.37|
00000750: 30 00 82 0F AE 01 99 22 11 50 4C 41 43 45 20 44 |0......".PLACE D|
00000760: 49 53 4B 20 54 4F 20 42 45 20 46 4F 52 4D 41 54 |ISK TO BE FORMAT|
00000770: 54 45 44 20 49 4E 54 4F 20 44 52 49 56 45 20 23 |TED INTO DRIVE #|
00000780: 38 22 00 B6 0F B8 01 99 22 50 52 45 53 53 20 41 |8"......"PRESS A|
00000790: 20 4B 45 59 20 54 4F 20 53 54 41 52 54 20 46 4F | KEY TO START FO|
000007A0: 52 4D 41 54 54 49 4E 47 20 28 5E 20 54 4F 20 41 |RMATTING (^ TO A|
000007B0: 42 4F 52 54 29 22 00 CF 0F C2 01 8B 4D A7 97 32 |BORT)"......M..2|
000007C0: 30 38 2C 30 3A 92 32 30 38 2C 31 3A A1 4B 24 00 |08,0:.208,1:.K$.|
000007D0: EA 0F C7 01 8B 4D B2 2E A7 97 31 39 38 2C 30 3A |.....M....198,0:|
000007E0: 92 31 39 38 2C 31 3A A1 4B 24 00 FA 0F CC 01 8B |.198,1:.K$......|
000007F0: 4B 24 B2 22 5E 22 A7 32 39 30 00 18 10 CF 01 8D |K$."^".290......|
00000800: 31 35 30 3A 98 31 35 2C 22 55 3A 22 3A 81 49 B2 |150:.15,"U:":.I.|
00000810: 31 A4 31 35 30 30 3A 82 00 4C 10 D1 01 8B 46 4D |1.1500:..L....FM|
00000820: 24 B2 22 31 22 A7 98 31 35 2C 22 55 30 3E 4D 30 |$."1"..15,"U0>M0|
00000830: 22 3A 81 49 B2 31 A4 31 30 30 30 3A 82 3A 8F 20 |":.I.1.1000:.:. |
00000840: 53 49 4E 47 4C 45 2D 53 49 44 45 44 00 80 10 D3 |SINGLE-SIDED....|
00000850: 01 8B 46 4D 24 B2 22 32 22 A7 98 31 35 2C 22 55 |..FM$."2"..15,"U|
00000860: 30 3E 4D 31 22 3A 81 49 B2 31 A4 31 30 30 30 3A |0>M1":.I.1.1000:|
00000870: 82 3A 8F 20 44 4F 55 42 4C 45 2D 53 49 44 45 44 |.:. DOUBLE-SIDED|
00000880: 00 A9 10 D4 01 98 31 35 2C 22 55 30 3E 52 22 AA |......15,"U0>R".|
00000890: C7 28 31 29 3A 8F 20 23 20 4F 46 20 52 45 41 44 |.(1):. # OF READ|
000008A0: 20 41 54 54 45 4D 50 54 53 00 C7 10 D6 01 8D 31 | ATTEMPTS......1|
000008B0: 35 30 3A 98 31 35 2C 22 49 30 22 3A 8D 31 36 30 |50:.15,"I0":.160|
000008C0: 3A 8B 45 A7 35 32 30 00 F2 10 E0 01 99 22 11 1C |:.E.520......"..|
000008D0: 54 48 49 53 20 44 49 53 4B 20 49 53 20 41 4C 52 |THIS DISK IS ALR|
000008E0: 45 41 44 59 20 46 4F 52 4D 41 54 54 45 44 20 41 |EADY FORMATTED A|
000008F0: 4E 44 00 1A 11 EA 01 99 22 4D 41 59 20 43 4F 4E |ND......"MAY CON|
00000900: 54 41 49 4E 20 44 41 54 41 2E 20 49 46 20 59 4F |TAIN DATA. IF YO|
00000910: 55 20 43 4F 4E 54 49 4E 55 45 00 3F 11 F4 01 99 |U CONTINUE.?....|
00000920: 22 41 4C 4C 20 44 41 54 41 20 4F 4E 20 49 54 20 |"ALL DATA ON IT |
00000930: 57 49 4C 4C 20 42 45 20 45 52 41 53 45 44 21 00 |WILL BE ERASED!.|
00000940: 83 11 FE 01 85 22 12 90 43 4F 4E 54 49 4E 55 45 |....."..CONTINUE|
00000950: 20 28 44 49 52 20 46 4F 52 20 44 49 52 45 43 54 | (DIR FOR DIRECT|
00000960: 4F 52 59 29 92 22 3B 4B 24 3A 8B 4B 24 B2 22 44 |ORY).";K$:.K$."D|
00000970: 49 52 22 A7 D7 35 34 35 3A FE 0C 3A D7 3A 89 20 |IR"..545:..:.:. |
00000980: 35 31 30 00 94 11 03 02 D7 3A 8B 4B 24 B3 B1 22 |510......:.K$.."|
00000990: 59 22 A7 8E 00 C0 11 08 02 98 31 35 2C 22 4E 30 |Y"........15,"N0|
000009A0: 3A 22 AA 4E 4D 24 AA 22 2C 22 AA 4E 55 24 3A 8D |:".NM$.",".NU$:.|
000009B0: 31 36 30 3A 8B 45 A7 8D 31 37 30 3A 89 33 34 30 |160:.E..170:.340|
000009C0: 00 FA 11 0D 02 8B 46 4D 24 B2 22 31 22 A7 98 31 |......FM$."1"..1|
000009D0: 35 2C 22 55 30 3E 4D 31 22 3A 81 49 B2 31 A4 31 |5,"U0>M1":.I.1.1|
000009E0: 30 30 30 3A 82 3A 8F 20 44 4F 55 42 4C 45 2D 53 |000:.:. DOUBLE-S|
000009F0: 49 44 45 44 20 41 47 41 49 4E 00 1E 12 12 02 4C |IDED AGAIN.....L|
00000A00: 45 B2 4C 45 AA 31 3A 49 44 24 28 4C 45 29 B2 4E |E.LE.1:ID$(LE).N|
00000A10: 55 24 3A 4C 45 24 B2 4E 55 24 3A 46 B2 31 00 24 |U$:LE$.NU$:F.1.$|
00000A20: 12 1C 02 8E 00 2D 12 21 02 D6 35 31 30 00 3A 12 |.....-.!..510.:.|
00000A30: 26 02 3A 3A 3A 3A 3A 3A 3A 3A 00 53 12 30 02 99 |&.::::::::.S.0..|
00000A40: 22 93 12 41 44 44 20 44 49 53 4B 20 49 44 22 3A |"..ADD DISK ID":|
00000A50: 44 B2 30 00 99 12 3A 02 99 22 11 11 57 48 49 43 |D.0...:.."..WHIC|
00000A60: 48 20 43 48 4F 49 43 45 20 46 4F 52 20 45 4E 54 |H CHOICE FOR ENT|
00000A70: 45 52 49 4E 47 20 49 44 23 3A 22 3A 99 22 11 11 |ERING ID#:":."..|
00000A80: 31 29 20 4B 45 59 42 4F 41 52 44 20 45 4E 54 52 |1) KEYBOARD ENTR|
00000A90: 59 22 3A 4E 55 24 B2 22 22 00 D6 12 44 02 99 22 |Y":NU$.""...D.."|
00000AA0: 32 29 20 52 45 41 44 20 44 49 53 4B 20 49 4E 20 |2) READ DISK IN |
00000AB0: 44 52 49 56 45 20 23 38 22 3A 85 22 11 20 57 48 |DRIVE #8":.". WH|
00000AC0: 49 43 48 22 3B 57 48 3A 8B 57 48 B3 31 B0 57 48 |ICH";WH:.WH.1.WH|
00000AD0: B1 32 A7 35 37 30 00 EA 12 4E 02 8B 57 48 B2 32 |.2.570...N..WH.2|
00000AE0: A7 8D 38 38 30 3A 89 36 31 30 00 0C 13 58 02 85 |..880:.610...X..|
00000AF0: 22 11 45 4E 54 45 52 20 49 44 20 28 5E 20 20 54 |".ENTER ID (^ T|
00000B00: 4F 20 45 58 49 54 29 22 3B 4E 55 24 00 1D 13 62 |O EXIT)";NU$...b|
00000B10: 02 8B 4E 55 24 B2 22 5E 22 A7 36 37 30 00 30 13 |..NU$."^".670.0.|
00000B20: 6C 02 8B C3 28 4E 55 24 29 B3 B1 32 A7 35 39 30 |l...(NU$)..2.590|
00000B30: 00 4F 13 76 02 85 22 4F 4B 3F 20 59 9D 9D 9D 22 |.O.v.."OK? Y..."|
00000B40: 3B 4B 24 3A 8B 4B 24 B2 22 4E 22 A7 35 39 30 00 |;K$:.K$."N".590.|
00000B50: 60 13 80 02 8B 4B 24 B3 B1 22 59 22 A7 35 39 30 |`....K$.."Y".590|
00000B60: 00 78 13 8A 02 44 B2 44 AA 31 3A 44 24 28 44 29 |.x...D.D.1:D$(D)|
00000B70: B2 4E 55 24 3A 46 B2 31 00 86 13 94 02 8B 44 B3 |.NU$:F.1......D.|
00000B80: 32 30 A7 35 39 30 00 91 13 9E 02 8B 44 B2 30 A7 |20.590......D.0.|
00000B90: 8E 00 BC 13 A8 02 99 22 12 43 48 45 43 4B 49 4E |.......".CHECKIN|
00000BA0: 47 20 4E 45 57 20 45 4E 54 52 49 45 53 20 46 4F |G NEW ENTRIES FO|
00000BB0: 52 20 44 55 50 4C 49 43 41 54 45 53 00 E5 13 B2 |R DUPLICATES....|
00000BC0: 02 81 49 B2 31 A4 44 3A 5A B2 30 3A 81 58 B2 31 |..I.1.D:Z.0:.X.1|
00000BD0: A4 4C 45 3A 8B 49 44 24 28 58 29 B2 44 24 28 49 |.LE:.ID$(X).D$(I|
00000BE0: 29 A7 5A B2 31 00 06 14 BC 02 82 3A 8B 5A B2 30 |).Z.1......:.Z.0|
00000BF0: A7 4C 45 B2 4C 45 AA 31 3A 49 44 24 28 4C 45 29 |.LE.LE.1:ID$(LE)|
00000C00: B2 44 24 28 49 29 00 4A 14 C6 02 82 3A 44 B2 30 |.D$(I).J....:D.0|
00000C10: 3A 4C 45 24 B2 49 44 24 28 4C 45 29 3A 85 22 50 |:LE$.ID$(LE):."P|
00000C20: 45 52 46 4F 52 4D 20 53 4F 52 54 20 4E 4F 57 20 |ERFORM SORT NOW |
00000C30: 54 4F 4F 3F 20 4E 9D 9D 9D 22 3B 4B 24 3A 8B 4B |TOO? N...";K$:.K|
00000C40: 24 B3 B1 22 59 22 A7 35 39 30 00 57 14 D0 02 8D |$.."Y".590.W....|
00000C50: 32 30 3A 89 35 39 30 00 63 14 DA 02 3A 3A 3A 3A |20:.590.c...::::|
00000C60: 3A 3A 3A 00 7D 14 E4 02 99 22 93 12 44 45 4C 45 |:::.}...."..DELE|
00000C70: 54 45 20 44 49 53 4B 20 49 44 11 11 22 00 C3 14 |TE DISK ID.."...|
00000C80: EE 02 99 22 11 11 57 48 49 43 48 20 43 48 4F 49 |..."..WHICH CHOI|
00000C90: 43 45 20 46 4F 52 20 45 4E 54 45 52 49 4E 47 20 |CE FOR ENTERING |
00000CA0: 49 44 23 3A 22 3A 99 22 11 11 31 29 20 4B 45 59 |ID#:":."..1) KEY|
00000CB0: 42 4F 41 52 44 20 45 4E 54 52 59 22 3A 4E 55 24 |BOARD ENTRY":NU$|
00000CC0: B2 22 22 00 00 15 F8 02 99 22 32 29 20 52 45 41 |.""......"2) REA|
00000CD0: 44 20 44 49 53 4B 20 49 4E 20 44 52 49 56 45 20 |D DISK IN DRIVE |
00000CE0: 23 38 22 3A 85 22 11 20 57 48 49 43 48 22 3B 57 |#8":.". WHICH";W|
00000CF0: 48 3A 8B 57 48 B3 31 B0 57 48 B1 32 A7 35 37 30 |H:.WH.1.WH.2.570|
00000D00: 00 18 15 02 03 5A B2 30 3A 8B 57 48 B2 32 A7 8D |.....Z.0:.WH.2..|
00000D10: 38 38 30 3A 89 37 39 30 00 39 15 0C 03 85 22 45 |880:.790.9...."E|
00000D20: 4E 54 45 52 20 49 44 20 28 5E 20 20 54 4F 20 45 |NTER ID (^ TO E|
00000D30: 58 49 54 29 22 3B 4E 55 24 00 48 15 16 03 8B 4E |XIT)";NU$.H....N|
00000D40: 55 24 B2 22 5E 22 A7 8E 00 5B 15 20 03 8B C3 28 |U$."^"...[. ...(|
00000D50: 4E 55 24 29 B3 B1 32 A7 37 37 30 00 93 15 2A 03 |NU$)..2.770...*.|
00000D60: 8B 4C 45 B3 B2 31 A7 8B 49 44 24 28 31 29 B2 4E |.LE..1..ID$(1).N|
00000D70: 55 24 A7 4C 45 B2 30 3A 4C 45 24 B2 22 4E 4F 4E |U$.LE.0:LE$."NON|
00000D80: 45 20 4F 4E 20 46 49 4C 45 22 3A 46 B2 31 3A 89 |E ON FILE":F.1:.|
00000D90: 37 37 30 00 B4 15 34 03 99 22 12 53 45 41 52 43 |770...4..".SEARC|
00000DA0: 48 49 4E 47 20 46 4F 52 20 49 44 22 3A 81 49 B2 |HING FOR ID":.I.|
00000DB0: 31 A4 4C 45 00 F7 15 3E 03 8B 49 44 24 28 49 29 |1.LE...>..ID$(I)|
00000DC0: B2 4E 55 24 A7 49 44 24 28 49 29 B2 49 44 24 28 |.NU$.ID$(I).ID$(|
00000DD0: 4C 45 AB 31 29 3A 49 44 24 28 4C 45 AB 31 29 B2 |LE.1):ID$(LE.1).|
00000DE0: 49 44 24 28 4C 45 29 3A 5A B2 31 3A 4C 45 B2 4C |ID$(LE):Z.1:LE.L|
00000DF0: 45 AB 31 3A 46 B2 31 00 20 16 48 03 82 3A 8B 5A |E.1:F.1. .H..:.Z|
00000E00: B2 30 A7 99 22 54 48 41 54 20 49 44 20 57 41 53 |.0.."THAT ID WAS|
00000E10: 20 4E 4F 54 20 46 4F 55 4E 44 22 3A 89 37 37 30 | NOT FOUND":.770|
00000E20: 00 3B 16 52 03 8B 4E 55 24 B2 4C 45 24 A7 4C 45 |.;.R..NU$.LE$.LE|
00000E30: 24 B2 22 44 45 4C 45 54 45 44 22 00 5B 16 5C 03 |$."DELETED".[.\.|
00000E40: 99 22 49 44 20 48 41 53 20 42 45 45 4E 20 44 45 |."ID HAS BEEN DE|
00000E50: 4C 45 54 45 44 22 3A 89 37 37 30 00 68 16 66 03 |LETED":.770.h.f.|
00000E60: 3A 3A 3A 3A 3A 3A 3A 3A 00 77 16 70 03 8B 4E 55 |::::::::.w.p..NU|
00000E70: 24 B2 22 5E 22 A7 8E 00 A4 16 7A 03 99 22 11 49 |$."^".....z..".I|
00000E80: 4E 53 45 52 54 20 44 49 53 4B 2D 50 52 45 53 53 |NSERT DISK-PRESS|
00000E90: 20 41 20 4B 45 59 A0 28 5E 20 20 54 4F 20 45 58 | A KEY.(^ TO EX|
00000EA0: 49 54 29 22 00 B7 16 84 03 A1 4B 24 3A 8B 4B 24 |IT)"......K$:.K$|
00000EB0: B2 22 22 A7 39 30 30 00 CD 16 8E 03 8B 4B 24 B2 |."".900......K$.|
00000EC0: 22 5E 22 A7 4E 55 24 B2 22 5E 22 3A 8E 00 E3 16 |"^".NU$."^":....|
00000ED0: 98 03 8D 31 35 30 3A 8B 45 A7 8D 31 37 30 3A 89 |...150:.E..170:.|
00000EE0: 38 39 30 00 0C 17 9B 03 98 31 35 2C 22 55 30 3E |890......15,"U0>|
00000EF0: 52 22 AA C7 28 31 29 3A 8F 20 23 20 4F 46 20 52 |R"..(1):. # OF R|
00000F00: 45 41 44 20 41 54 54 45 4D 50 54 53 00 41 17 A2 |EAD ATTEMPTS.A..|
00000F10: 03 A0 32 3A 9F 32 2C 38 2C 32 2C 22 23 22 3A 98 |..2:.2,8,2,"#":.|
00000F20: 31 35 2C 22 55 31 3A 20 32 20 30 20 31 38 20 30 |15,"U1: 2 0 18 0|
00000F30: 22 3A 8D 31 36 30 3A 8B 45 A7 A0 32 3A 89 38 38 |":.160:.E..2:.88|
00000F40: 30 00 67 17 AC 03 98 31 35 2C 22 42 2D 50 20 32 |0.g....15,"B-P 2|
00000F50: 20 31 36 32 22 3A 8D 31 36 30 3A 8B 45 A7 8D 31 | 162":.160:.E..1|
00000F60: 37 30 3A 89 38 38 30 00 A4 17 B6 03 A1 23 32 2C |70:.880......#2,|
00000F70: 49 31 24 3A A1 23 32 2C 49 32 24 3A 8D 31 38 30 |I1$:.#2,I2$:.180|
00000F80: 3A 4E 55 24 B2 49 31 24 AA 49 32 24 3A 99 22 44 |:NU$.I1$.I2$:."D|
00000F90: 49 53 4B 20 49 44 20 49 53 3A 28 22 4E 55 24 22 |ISK ID IS:("NU$"|
00000FA0: 29 22 3A 8E 00 B2 17 C0 03 3A 3A 3A 3A 3A 3A 3A |)":......:::::::|
00000FB0: 3A 3A 00 D5 17 CA 03 99 22 93 12 50 52 49 4E 54 |::......"..PRINT|
00000FC0: 20 4F 55 54 20 41 4C 4C 20 49 44 27 53 20 4F 4E | OUT ALL ID'S ON|
00000FD0: 20 46 49 4C 45 00 E2 17 D4 03 8B 46 B2 31 A7 8D | FILE......F.1..|
00000FE0: 32 30 00 24 18 DE 03 50 24 B2 22 22 3A 85 22 11 |20.$...P$."":.".|
00000FF0: 11 50 52 49 4E 54 45 52 20 4F 55 54 50 55 54 20 |.PRINTER OUTPUT |
00001000: 28 59 2F 4E 29 3F 20 4E 9D 9D 9D 22 3B 50 24 3A |(Y/N)? N...";P$:|
00001010: 8B 50 24 B3 B1 22 59 22 AF 50 24 B3 B1 22 4E 22 |.P$.."Y".P$.."N"|
00001020: A7 39 39 30 00 35 18 E8 03 8B 50 24 B2 22 4E 22 |.990.5....P$."N"|
00001030: A7 31 30 34 30 00 61 18 F2 03 85 22 54 55 52 4E |.1040.a...."TURN|
00001040: 20 4F 4E 20 50 52 49 4E 54 45 52 2D 50 52 45 53 | ON PRINTER-PRES|
00001050: 53 20 52 45 54 55 52 4E 22 3B 4B 24 3A 9F 34 2C |S RETURN";K$:.4,|
00001060: 34 00 7E 18 FC 03 98 34 2C 4C 45 22 20 44 49 53 |4.~....4,LE" DIS|
00001070: 4B 20 49 44 27 53 20 4F 4E 20 46 49 4C 45 00 A4 |K ID'S ON FILE..|
00001080: 18 06 04 81 49 B2 31 A4 4C 45 3A 98 34 2C 49 44 |....I.1.LE:.4,ID|
00001090: 24 28 49 29 3B 22 20 20 22 3B 3A 82 3A 98 34 3A |$(I);" ";:.:.4:|
000010A0: A0 34 3A 8E 00 DF 18 10 04 99 22 12 50 52 45 53 |.4:.......".PRES|
000010B0: 53 20 53 50 41 43 45 20 54 4F 20 50 41 55 53 45 |S SPACE TO PAUSE|
000010C0: 20 4C 49 53 54 49 4E 47 22 3A 99 22 12 50 52 45 | LISTING":.".PRE|
000010D0: 53 53 20 5E 20 54 4F 20 41 42 4F 52 54 11 22 00 |SS ^ TO ABORT.".|
000010E0: 19 19 1A 04 99 4C 45 22 20 49 44 27 53 20 4F 4E |.....LE" ID'S ON|
000010F0: 20 46 49 4C 45 22 3A 81 49 B2 31 A4 4C 45 3A 99 | FILE":.I.1.LE:.|
00001100: 49 44 24 28 49 29 3B 22 20 20 22 3B 3A A1 4B 24 |ID$(I);" ";:.K$|
00001110: 3A 8B 4B 24 B2 22 22 A7 82 00 3C 19 24 04 99 3A |:.K$.""...<.$..:|
00001120: 99 22 12 50 52 45 53 53 20 41 20 4B 45 59 20 28 |.".PRESS A KEY (|
00001130: 5E 20 54 4F 20 41 42 4F 52 54 29 22 00 50 19 2E |^ TO ABORT)".P..|
00001140: 04 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 31 30 37 30 |..K$:.K$."".1070|
00001150: 00 5E 19 38 04 8B 28 49 B1 4C 45 29 A7 8E 00 73 |.^.8..(I.LE)...s|
00001160: 19 42 04 8B 4B 24 B2 22 5E 22 A7 49 B2 4C 45 3A |.B..K$."^".I.LE:|
00001170: 82 3A 8E 00 89 19 4C 04 81 58 B2 31 A4 31 30 3A |.:....L..X.1.10:|
00001180: A1 4B 24 3A 82 3A 82 3A 8E 00 97 19 56 04 3A 3A |.K$:.:.:....V.::|
00001190: 3A 3A 3A 3A 3A 3A 3A 00 A7 19 60 04 99 22 93 22 |:::::::...`.."."|
000011A0: 3A 8B 46 B2 30 A7 80 00 B4 19 6A 04 8B 46 B2 31 |:.F.0.....j..F.1|
000011B0: A7 8D 32 30 00 E3 19 74 04 99 22 11 11 50 4C 41 |..20...t.."..PLA|
000011C0: 43 45 20 44 49 53 4B 20 57 49 54 48 20 49 44 20 |CE DISK WITH ID |
000011D0: 46 49 4C 45 53 20 49 4E 54 4F 20 44 52 49 56 45 |FILES INTO DRIVE|
000011E0: 20 23 38 00 11 1A 7E 04 99 22 12 50 52 45 53 53 | #8...~..".PRESS|
000011F0: 20 41 20 4B 45 59 20 54 4F 20 57 52 49 54 45 20 | A KEY TO WRITE |
00001200: 44 41 54 41 20 2D 20 5E 20 54 4F 20 41 42 4F 52 |DATA - ^ TO ABOR|
00001210: 54 00 25 1A 88 04 A1 4B 24 3A 8B 4B 24 B2 22 22 |T.%....K$:.K$.""|
00001220: A7 31 31 36 30 00 33 1A 92 04 8B 4B 24 B2 22 5E |.1160.3....K$."^|
00001230: 22 A7 8E 00 44 1A 9C 04 8D 31 35 30 3A 8B 45 A7 |"...D....150:.E.|
00001240: 31 31 33 30 00 75 1A A6 04 98 31 35 2C 22 52 30 |1130.u....15,"R0|
00001250: 3A 2E 4F 2D 49 44 20 4C 49 53 54 3D 2E 49 44 20 |:.O-ID LIST=.ID |
00001260: 4C 49 53 54 22 3A 8D 31 36 30 3A 8B 45 B2 36 32 |LIST":.160:.E.62|
00001270: A7 31 32 31 30 00 91 1A AB 04 98 31 35 2C 22 53 |.1210......15,"S|
00001280: 30 3A 2E 49 44 20 4C 49 53 54 22 3A 89 31 32 34 |0:.ID LIST":.124|
00001290: 30 00 CB 1A BA 04 99 22 11 12 46 49 4C 45 20 4E |0......"..FILE N|
000012A0: 4F 54 20 4F 4E 20 54 48 49 53 20 44 49 53 4B 22 |OT ON THIS DISK"|
000012B0: 3A 85 22 57 52 49 54 45 20 49 44 20 4C 49 53 54 |:."WRITE ID LIST|
000012C0: 20 41 4E 59 57 41 59 22 3B 4B 24 00 DC 1A C4 04 | ANYWAY";K$.....|
000012D0: 8B 4B 24 B2 22 4E 22 A7 31 31 34 30 00 EE 1A CE |.K$."N".1140....|
000012E0: 04 8B 4B 24 B3 B1 22 59 22 A7 31 32 31 30 00 26 |..K$.."Y".1210.&|
000012F0: 1B D8 04 99 22 12 11 57 52 49 54 49 4E 47 20 49 |...."..WRITING I|
00001300: 44 20 4C 49 53 54 22 3A 54 24 B2 22 54 2C 53 2C |D LIST":T$."T,S,|
00001310: 57 22 3A 8D 31 39 30 3A 8D 31 36 30 3A 8B 45 A7 |W":.190:.160:.E.|
00001320: 8D 31 37 30 3A 90 00 56 1B E2 04 98 32 2C 4C 45 |.170:..V....2,LE|
00001330: 24 3B 43 24 3B C4 28 4C 45 29 3B 43 24 3B 3A 81 |$;C$;.(LE);C$;:.|
00001340: 49 B2 31 A4 4C 45 3A 98 32 2C 49 44 24 28 49 29 |I.1.LE:.2,ID$(I)|
00001350: 3B 43 24 3B 3A 82 00 67 1B EC 04 8D 31 36 30 3A |;C$;:..g....160:|
00001360: 8B 45 A7 8D 31 37 30 00 70 1B F6 04 8D 31 38 30 |.E..170.p....180|
00001370: 00 00 00 |... |
..4....70:. FORMATTER JOHN DEARINGER 2/2
5/86-12/2/86.`...S.LE:F.2:."..SORTING ID
NUMBERS":.S.1.......Z..:S..((S.1).2):.I
.1.LE.S:.ID$(I)..ID$(I.S).50.B.(.T$.ID$(
I):ID$(I).ID$(I.S):ID$(I.S).T$:Z.1.X.2..
:.(Z.1).(S.1).30...<.....?.W68:..:. TRAP
68:CATALOG./.A..".PRESS A KEY":.208,0:.2
08,1:W:. :. TRAP:RETURN.B.D.V65:. RESUME
65...F..53281,12:.53280,12:."....":C$.G(
13):.ID$(500),D$(20):F.0...P...(1).38911
.B(215).128..6,16:.%...U.M.0:..(1).38911
.M.1...Z..150:.15,"I0":.160:.E..170:....
D.T$."T":.190:.160:.E.0.200...N..E..62..
170:..0.X.T$."T,S,W":.190:.160:.E..170:.
._....2,"NONE";C$;"00";C$;" ";C$:.160:.E
..170:..H....200.Y... 15:.15,8,15... ..1
5,E,EM$,T,S:......."..ERROR:."E","EM$","
ET","ES..... 2: 15:..Y... 2:.2,8,2,".ID
LIS".T$:....H..".READING ID LIST":T$."T"
:.190:.160:.E..170:..?.R..2,LE$,ID$(0):L
E.E(ID$(0)):.I.1.LE:.2,ID$(I):..R....160
:.E..170:..Y....180:.". .FORMATTER 128/6
4 & 1571"......"(C)1986 BY JOHN DEARINGE
R..":."OPTIONS:......"..1) FORMAT A DISK
":."2) ADD ID FOR PREVIOUSLY FORMATTED D
ISK.#...."3) DELETE AN ID FROM LIST":."4
) PRINT OUT ID LIST.:....M.."5) DIRECTOR
Y".H...."6) QUIT.V....M..208,..F....M...
.198,......K..:.".WHICH";K:.K.1.K.6.260.
.....K.290,560,740,970,63,1120......230.
H.".."..FORMAT A DISK....?.#.."..1) SING
LE-SIDED FORMAT":."2) DOUBLE-SIDED FORMA
T":.".3) EXIT THIS ROUTINE":."..WHICH";F
M$:.FM$."1".FM$."3".290.N.$..FM$."3"..._
.%..FM$."1".340...6..".. WARNING . WHEN
A DISK IS FORMATTED...@.."AS DOUBLE-SIDE
D!! ANY DATA ON...J.."THE BACK SIDE WILL
BE DESTROYED ALSO!!...T.."..( ^ TO ABO
RT) ................"./.^.."ENTER DISK
NAME";NM$:.NM$."^".290.B.H..C(NM$).16.2
90.D.R..".THE LAST ID USED WAS: "LE$...|
..F..2.."THE LAST ID ON FILE IS: "ID$(LE
).G...NU$."":.".ENTER TWO ID CHARACTERS"
;NU$:.NU$."^"...Z....C(NU$)..2.390......
".CHECKING ID LIST":.I.1.LE:.NU$..ID$(I)
..:.430.Q....".THAT ID ALREADY EXISTS, P
LEASE ENTER ANOTHER.":I.LE:.:.370......"
.PLACE DISK TO BE FORMATTED INTO DRIVE #
8"......"PRESS A KEY TO START FORMATTING
(^ TO ABORT)".O.B..M..208,0:.208,1:.K$.
..G..M....198,0:.198,1:.K$...L..K$."^".2
90...O..150:.15,"U:":.I.1.1500:..L.Q..FM
$."1"..15,"U0>M0":.I.1.1000:.:. SINGLE-S
IDED...S..FM$."2"..15,"U0>M1":.I.1.1000:
.:. DOUBLE-SIDED...T..15,"U0>R".G(1):. #
OF READ ATTEMPTS.G.V..150:.15,"I0":.160
:.E.520......"..THIS DISK IS ALREADY FOR
MATTED AND......"MAY CONTAIN DATA. IF YO
U CONTINUE.?...."ALL DATA ON IT WILL BE
ERASED!......"..CONTINUE (DIR FOR DIRECT
ORY).";K$:.K$."DIR".W545:..:W:. 510.....
W:.K$.."Y"........15,"N0:".NM$.",".NU$:.
160:.E..170:.340......FM$."1"..15,"U0>M1
":.I.1.1000:.:. DOUBLE-SIDED AGAIN.....L
E.LE.1:ID$(LE).NU$:LE$.NU$:F.1.$.....-.!
.V510.:.&.::::::::.S.0.."..ADD DISK ID":
D.0...:.."..WHICH CHOICE FOR ENTERING ID
#:":."..1) KEYBOARD ENTRY":NU$."".V.D.."
2) READ DISK IN DRIVE #8":.". WHICH";WH:
.WH.1.WH.2.570...N..WH.2..880:.610...X..
".ENTER ID (^ TO EXIT)";NU$...B..NU$."^
".670.0.L..C(NU$)..2.590.O.V.."OK? Y..."
;K$:.K$."N".590.`....K$.."Y".590.X...D.D
.1:D$(D).NU$:F.1......D.20.590......D.0.
.......".CHECKING NEW ENTRIES FOR DUPLIC
ATES......I.1.D:Z.0:.X.1.LE:.ID$(X).D$(I
).Z.1......:.Z.0.LE.LE.1:ID$(LE).D$(I).J
.F..:D.0:LE$.ID$(LE):."PERFORM SORT NOW
TOO? N...";K$:.K$.."Y".590.W.P..20:.590.
C.Z.:::::::.}...."..DELETE DISK ID..".C.
..."..WHICH CHOICE FOR ENTERING ID#:":."
..1) KEYBOARD ENTRY":NU$.""......"2) REA
D DISK IN DRIVE #8":.". WHICH";WH:.WH.1.
WH.2.570.....Z.0:.WH.2..880:.790.9...."E
NTER ID (^ TO EXIT)";NU$.H....NU$."^"..
.[. ..C(NU$)..2.770...*..LE..1..ID$(1).N
U$.LE.0:LE$."NONE ON FILE":F.1:.770...4.
.".SEARCHING FOR ID":.I.1.LE...>..ID$(I)
.NU$.ID$(I).ID$(LE.1):ID$(LE.1).ID$(LE):
Z.1:LE.LE.1:F.1. .H..:.Z.0.."THAT ID WAS
NOT FOUND":.770.;.R..NU$.LE$.LE$."DELET
ED".[.\.."ID HAS BEEN DELETED":.770.H.F.
::::::::.W.P..NU$."^".....Z..".INSERT DI
SK-PRESS A KEY (^ TO EXIT)"......K$:.K$
."".900.M....K$."^".NU$."^":.......150:.
E..170:.890......15,"U0>R".G(1):. # OF R
EAD ATTEMPTS.A... 2:.2,8,2,"#":.15,"U1:
2 0 18 0":.160:.E. 2:.880.G....15,"B-P 2
162":.160:.E..170:.880......#2,I1$:.#2,
I2$:.180:NU$.I1$.I2$:."DISK ID IS:("NU$"
)":......:::::::::.U.J.."..PRINT OUT ALL
ID'S ON FILE...T..F.1..20.$...P$."":.".
.PRINTER OUTPUT (Y/N)? N...";P$:.P$.."Y"
.P$.."N".990.5....P$."N".1040.A...."TURN
ON PRINTER-PRESS RETURN";K$:.4,4.~....4
,LE" DISK ID'S ON FILE......I.1.LE:.4,ID
$(I);" ";:.:.4: 4:.......".PRESS SPACE
TO PAUSE LISTING":.".PRESS ^ TO ABORT.".
.....LE" ID'S ON FILE":.I.1.LE:.ID$(I);"
";:.K$:.K$.""...<.$..:.".PRESS A KEY (
^ TO ABORT)".P....K$:.K$."".1070.^.8..(I
.LE)...S.B..K$."^".I.LE:.:....L..X.1.10:
.K$:.:.:....V.:::::::::...`..".":.F.0...
..J..F.1..20...T.."..PLACE DISK WITH ID
FILES INTO DRIVE #8...~..".PRESS A KEY T
O WRITE DATA - ^ TO ABORT.%....K$:.K$.""
.1160.3....K$."^"...D....150:.E.1130.U..
..15,"R0:.O-ID LIST=.ID LIST":.160:.E.62
.1210......15,"S0:.ID LIST":.1240.K...."
..FILE NOT ON THIS DISK":."WRITE ID LIST
ANYWAY";K$...D..K$."N".1140...N..K$.."Y
".1210.&.X.."..WRITING ID LIST":T$."T,S,
W":.190:.160:.E..170:..V....2,LE$;C$;D(L
E);C$;:.I.1.LE:.2,ID$(I);C$;:..G....160:
.E..170.P....180...
> CLICK IMAGE PREVIEW FOR FULL MODAL