DISK MASTER
FILE INFORMATION
FILENAME(S): DISK MASTER
FILE TYPE(S): PRG
FILE SIZE: 4.8K
FIRST SEEN: 2025-12-01 13:57:30
APPEARS ON: 1 disk(s)
FILE HASH
93876c4f79d8d453e8cc2e8a168bfb833b6126c779d8065ca8f2c6e5d1e2d9c3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VRN DISK SYSTEM | DISK MASTER | PRG | HOL2001, Misc | 21 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 10 26 10 C5 07 9E 34 31 33 36 20 43 52 55 4E |..&....4136 CRUN|
00000010: 43 48 45 44 2E 2E 42 59 20 56 52 4E 00 00 00 00 |CHED..BY VRN....|
00000020: 00 00 00 00 00 00 00 00 00 78 A2 FF 9A 8D 3F FF |.........x....?.|
00000030: A2 00 BD 7E 10 9D 00 01 E8 E0 C1 D0 F5 A9 00 A2 |...~............|
00000040: 40 85 DB 86 DC A5 2D A6 2E 85 DD 86 DE A0 00 F0 |@.....-.........|
00000050: 04 B1 DD 91 DB A9 FD A2 10 E4 DE D0 02 C5 DD F0 |................|
00000060: 13 A5 DD D0 02 C6 DE C6 DD A5 DB D0 02 C6 DC C6 |................|
00000070: DB 4C 50 10 A9 01 A2 10 85 2D 86 2E 4C 00 01 20 |.LP......-..L.. |
00000080: 5E 01 C9 CF D0 11 20 5E 01 C9 00 D0 04 A9 CF D0 |^..... ^........|
00000090: 1C AA A9 00 4C 47 01 C9 BF D0 12 20 5E 01 C9 00 |....LG..... ^...|
000000A0: D0 04 A9 BF D0 07 AA 20 5E 01 4C 47 01 20 69 01 |....... ^.LG. i.|
000000B0: A9 00 A2 40 E4 DC D0 02 C5 DB D0 C3 8D 3E FF 58 |...@.........>.X|
000000C0: 20 BE 8B 18 90 30 E8 A0 00 91 2D C8 CA D0 FA 88 | ....0....-.....|
000000D0: 98 38 65 2D 85 2D 90 02 E6 2E 4C 31 01 A0 00 B1 |.8e-.-....L1....|
000000E0: DB E6 DB D0 02 E6 DC 60 A0 00 91 2D 8D 19 FF E6 |.......`...-....|
000000F0: 2D D0 02 E6 2E 60 A9 FF 8D F9 07 4C DC 8B 45 10 |-....`.....L..E.|
00000100: 0A 00 8F BF 0B 20 44 49 53 4B 20 4D 41 53 54 45 |..... DISK MASTE|
00000110: 52 BF 1C 20 46 4F 52 20 50 4C 55 53 2F 34 00 4B |R.. FOR PLUS/4.K|
00000120: 10 0F 00 8F 00 96 10 14 00 8F BF 05 20 46 52 4F |............ FRO|
00000130: 4D 20 54 48 45 20 4C 49 42 52 41 52 59 20 4F 46 |M THE LIBRARY OF|
00000140: 20 50 4C 55 47 2C BF 0E 20 54 48 45 20 50 4C 55 | PLUG,.. THE PLU|
00000150: 53 2F 34 20 55 53 45 52 53 27 20 47 52 4F 55 50 |S/4 USERS' GROUP|
00000160: 00 DE 10 19 00 8F BF 0C 20 42 4F 58 20 31 30 30 |........ BOX 100|
00000170: 31 BF 1A 20 4D 4F 4E 54 45 52 45 59 2C 20 43 41 |1.. MONTEREY, CA|
00000180: 20 39 33 39 34 30 00 E4 10 1E 00 8F 00 18 11 23 | 93940.........#|
00000190: 00 99 22 93 13 BF 03 11 57 41 52 4E 49 4E 47 21 |..".....WARNING!|
000001A0: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 43 41 | THIS PROGRAM CA|
000001B0: 4E 20 44 45 53 54 52 4F 59 20 44 41 54 41 21 00 |N DESTROY DATA!.|
000001C0: 5A 11 28 00 99 22 11 50 52 41 43 54 49 43 45 20 |Z.(..".PRACTICE |
000001D0: 4F 4E 20 41 20 4A 55 4E 4B 20 44 49 53 4B 20 46 |ON A JUNK DISK F|
000001E0: 49 52 53 54 BF 08 21 22 3A 81 44 45 B2 31 A4 32 |IRST..!":.DE.1.2|
000001F0: 30 30 30 3A 82 3A 99 22 93 13 22 00 78 11 2D 00 |000:.:."..".x.-.|
00000200: 86 20 42 24 28 33 35 2C 32 31 29 2C 53 4E 28 33 |. B$(35,21),SN(3|
00000210: 35 29 2C 52 28 32 35 36 29 00 8F 11 32 00 81 20 |5),R(256)...2.. |
00000220: 49 B2 31 A4 33 35 3A 87 20 53 4E 28 49 29 3A 82 |I.1.35:. SN(I):.|
00000230: 00 99 11 37 00 99 22 93 1E 22 00 B4 11 3C 00 9F |...7..".."...<..|
00000240: 20 31 35 2C 38 2C 31 35 3A 98 31 35 2C 22 49 22 | 15,8,15:.15,"I"|
00000250: 3A A0 20 31 35 00 CA 11 41 00 99 22 31 20 3A 20 |:. 15...A.."1 : |
00000260: 52 45 41 44 20 42 4C 4F 43 4B 22 00 E1 11 46 00 |READ BLOCK"...F.|
00000270: 99 22 32 20 3A 20 57 52 49 54 45 20 42 4C 4F 43 |."2 : WRITE BLOC|
00000280: 4B 22 00 F5 11 4B 00 99 22 33 20 3A 20 52 45 41 |K"...K.."3 : REA|
00000290: 44 20 42 41 4D 22 00 0D 12 50 00 99 22 34 20 3A |D BAM"...P.."4 :|
000002A0: 20 54 52 41 43 45 20 42 4C 4F 43 4B 53 22 00 25 | TRACE BLOCKS".%|
000002B0: 12 55 00 99 22 35 20 3A 20 41 4C 4C 4F 43 41 54 |.U.."5 : ALLOCAT|
000002C0: 45 20 42 41 4D 22 00 41 12 5A 00 99 22 36 20 3A |E BAM".A.Z.."6 :|
000002D0: 20 44 49 53 4B 20 4E 41 4D 45 20 43 48 41 4E 47 | DISK NAME CHANG|
000002E0: 45 22 00 5D 12 5F 00 99 22 37 20 3A 20 44 49 53 |E".]._.."7 : DIS|
000002F0: 4B 20 49 2E 44 2E 20 43 48 41 4E 47 45 22 00 7F |K I.D. CHANGE"..|
00000300: 12 64 00 99 22 38 20 3A 20 43 4F 50 59 20 42 4C |.d.."8 : COPY BL|
00000310: 4F 43 4B 20 54 4F 20 32 4E 44 20 44 49 53 4B 22 |OCK TO 2ND DISK"|
00000320: 00 92 12 69 00 99 22 30 20 3A 20 45 58 49 54 20 |...i.."0 : EXIT |
00000330: 20 20 22 00 B9 12 6E 00 85 22 11 45 4E 54 45 52 | "...n..".ENTER|
00000340: 20 4F 50 54 49 4F 4E 22 3B 4F 50 3A 20 8B 20 4F | OPTION";OP: . O|
00000350: 50 B3 B1 30 20 A7 20 31 32 35 00 C2 12 73 00 99 |P..0 . 125...s..|
00000360: 22 93 22 00 C8 12 78 00 80 00 DF 12 7D 00 8B 20 |"."...x.....}.. |
00000370: 4F 50 B3 31 20 B0 20 4F 50 B1 38 20 A7 20 35 35 |OP.1 . OP.8 . 55|
00000380: 00 0A 13 82 00 91 20 4F 50 20 8D 20 32 33 30 2C |...... OP . 230,|
00000390: 33 35 30 2C 34 30 35 2C 35 31 30 2C 36 38 35 2C |350,405,510,685,|
000003A0: 37 32 35 2C 38 31 30 2C 33 30 35 00 18 13 87 00 |725,810,305.....|
000003B0: 4F 50 B2 30 3A 89 20 35 35 00 32 13 8C 00 8F 20 |OP.0:. 55.2.... |
000003C0: BF 03 2D 20 47 45 54 20 42 4C 4F 43 4B 20 BF 03 |..- GET BLOCK ..|
000003D0: 2D 00 47 13 91 00 98 31 35 2C 22 55 31 3A 35 2C |-.G....15,"U1:5,|
000003E0: 30 22 3B 54 3B 53 00 53 13 96 00 8D 20 32 30 30 |0";T;S.S.... 200|
000003F0: 3A 8E 00 6D 13 9B 00 8F 20 BF 03 2D 20 50 55 54 |:..m.... ..- PUT|
00000400: 20 42 4C 4F 43 4B 20 BF 03 2D 00 7F 13 A0 00 98 | BLOCK ..-......|
00000410: 31 35 2C 22 42 2D 50 3A 35 2C 30 22 00 94 13 A5 |15,"B-P:5,0"....|
00000420: 00 98 31 35 2C 22 55 32 3A 35 2C 30 22 3B 54 3B |..15,"U2:5,0";T;|
00000430: 53 00 A0 13 AA 00 8D 20 32 30 30 3A 8E 00 BA 13 |S...... 200:....|
00000440: AF 00 8F 20 BF 03 2D 20 4F 50 45 4E 20 46 49 4C |... ..- OPEN FIL|
00000450: 45 20 BF 03 2D 00 D3 13 B4 00 9F 20 31 35 2C 38 |E ..-...... 15,8|
00000460: 2C 31 35 3A 9F 35 2C 38 2C 35 2C 22 23 22 00 D9 |,15:.5,8,5,"#"..|
00000470: 13 B9 00 8E 00 F4 13 BE 00 8F 20 BF 03 2D 20 43 |.......... ..- C|
00000480: 4C 4F 53 45 20 46 49 4C 45 20 BF 03 2D 00 03 14 |LOSE FILE ..-...|
00000490: C3 00 A0 20 35 3A A0 20 31 35 3A 8E 00 28 14 C8 |... 5:. 15:..(..|
000004A0: 00 8F 20 BF 03 2D 20 43 48 45 43 4B 20 46 4F 52 |.. ..- CHECK FOR|
000004B0: 20 44 49 53 4B 20 45 52 52 4F 52 20 BF 03 2D 00 | DISK ERROR ..-.|
000004C0: 3B 14 CD 00 84 31 35 2C 45 2C 45 24 2C 45 31 2C |;....15,E,E$,E1,|
000004D0: 45 32 00 49 14 D2 00 8B 20 45 B2 30 20 A7 20 8E |E2.I.... E.0 . .|
000004E0: 00 6B 14 D7 00 99 22 11 96 44 49 53 4B 20 45 52 |.k...."..DISK ER|
000004F0: 52 4F 52 20 3D A0 22 3B 45 3B 45 24 2C 45 31 3B |ROR =.";E;E$,E1;|
00000500: 45 32 00 88 14 DC 00 85 22 11 3C 52 45 54 3E 20 |E2......".<RET> |
00000510: 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3B 5A 24 00 |TO CONTINUE";Z$.|
00000520: 94 14 E1 00 8D 20 31 39 30 3A 8E 00 AF 14 E6 00 |..... 190:......|
00000530: 8F 20 BF 03 2D 20 52 45 41 44 20 42 4C 4F 43 4B |. ..- READ BLOCK|
00000540: 20 BF 03 2D 00 CC 14 EB 00 99 22 93 22 A3 31 35 | ..-......".".15|
00000550: 29 22 96 52 45 41 44 20 42 4C 4F 43 4B 9B 11 11 |)".READ BLOCK...|
00000560: 22 00 ED 14 F0 00 85 22 11 11 45 4E 54 45 52 20 |"......"..ENTER |
00000570: 54 52 41 43 4B 2C 20 53 45 43 54 4F 52 22 3B 54 |TRACK, SECTOR";T|
00000580: 2C 53 00 0F 15 F5 00 8D 20 31 37 35 3A 8D 20 31 |,S...... 175:. 1|
00000590: 34 30 3A 20 8B 20 45 B3 B1 30 20 A7 20 8D 20 31 |40: . E..0 . . 1|
000005A0: 39 30 3A 8E 00 41 15 FA 00 85 22 45 4E 54 45 52 |90:..A...."ENTER|
000005B0: 20 53 54 41 52 54 49 4E 47 20 50 4F 49 4E 54 45 | STARTING POINTE|
000005C0: 52 22 3B 50 31 3A 8B 20 50 31 B3 30 20 A7 20 8D |R";P1:. P1.0 . .|
000005D0: 20 31 39 30 3A 8E 00 60 15 FF 00 85 22 45 4E 54 | 190:..`...."ENT|
000005E0: 45 52 20 45 4E 44 49 4E 47 20 50 4F 49 4E 54 45 |ER ENDING POINTE|
000005F0: 52 22 3B 50 32 00 73 15 04 01 98 31 35 2C 22 42 |R";P2.s....15,"B|
00000600: 2D 50 3A 35 22 3B 50 31 00 83 15 09 01 81 20 50 |-P:5";P1...... P|
00000610: B2 50 31 20 A4 20 50 32 00 9E 15 0E 01 A1 23 35 |.P1 . P2......#5|
00000620: 2C 41 24 3A 8B 20 41 24 B2 22 22 A7 41 24 B2 C7 |,A$:. A$."".A$..|
00000630: 28 30 29 00 C9 15 13 01 41 B2 C6 28 41 24 29 3A |(0).....A..(A$):|
00000640: 8B 20 41 24 B3 C7 28 33 32 29 20 B0 20 41 24 B1 |. A$..(32) . A$.|
00000650: C7 28 39 33 29 20 A7 20 41 24 B2 22 20 22 00 D6 |.(93) . A$." "..|
00000660: 15 18 01 99 20 50 2C 41 3B 41 24 00 DE 15 1D 01 |.... P,A;A$.....|
00000670: 82 20 50 00 07 16 22 01 99 22 43 4F 4E 54 49 4E |. P...".."CONTIN|
00000680: 55 45 20 57 49 54 48 20 54 52 41 43 4B 22 3B 54 |UE WITH TRACK";T|
00000690: 3B 22 20 53 45 43 54 4F 52 22 3B 53 00 1F 16 27 |;" SECTOR";S...'|
000006A0: 01 85 20 51 24 3A 8B 20 51 24 B2 22 59 22 20 A7 |.. Q$:. Q$."Y" .|
000006B0: 20 32 35 30 00 2B 16 2C 01 8D 20 31 39 30 3A 8E | 250.+.,.. 190:.|
000006C0: 00 46 16 31 01 8F 20 BF 03 2D 20 43 4F 50 59 20 |.F.1.. ..- COPY |
000006D0: 42 4C 4F 43 4B 20 BF 03 2D 00 63 16 36 01 99 22 |BLOCK ..-.c.6.."|
000006E0: 93 22 A3 31 35 29 22 96 43 4F 50 59 20 42 4C 4F |.".15)".COPY BLO|
000006F0: 43 4B 9B 11 11 22 00 84 16 3B 01 85 22 11 11 45 |CK..."...;.."..E|
00000700: 4E 54 45 52 20 54 52 41 43 4B 2C 20 53 45 43 54 |NTER TRACK, SECT|
00000710: 4F 52 22 3B 54 2C 53 00 A6 16 40 01 8D 20 31 37 |OR";T,S...@.. 17|
00000720: 35 3A 8D 20 31 34 30 3A 20 8B 20 45 B3 B1 30 20 |5:. 140: . E..0 |
00000730: A7 20 8D 20 31 39 30 3A 8E 00 B8 16 45 01 98 31 |. . 190:....E..1|
00000740: 35 2C 22 42 2D 50 3A 35 2C 30 22 00 E7 16 4A 01 |5,"B-P:5,0"...J.|
00000750: 81 20 49 B2 31 20 A4 20 32 35 36 3A A1 23 35 2C |. I.1 . 256:.#5,|
00000760: 41 24 3A 52 28 49 29 B2 C6 28 41 24 AA C7 28 30 |A$:R(I)..(A$..(0|
00000770: 29 29 3A 82 3A 8D 20 31 39 30 00 0C 17 4F 01 85 |)):.:. 190...O..|
00000780: 22 49 4E 53 45 52 54 20 4E 45 57 20 44 49 53 4B |"INSERT NEW DISK|
00000790: 22 3B 5A 24 3A 8D 20 31 37 35 3A 8D 31 34 30 00 |";Z$:. 175:.140.|
000007A0: 1E 17 54 01 98 31 35 2C 22 42 2D 50 3A 35 2C 30 |..T..15,"B-P:5,0|
000007B0: 22 00 50 17 59 01 81 20 49 B2 31 20 A4 20 32 35 |".P.Y.. I.1 . 25|
000007C0: 36 3A 41 24 B2 C7 28 52 28 49 29 29 3A 98 35 2C |6:A$..(R(I)):.5,|
000007D0: 41 24 3B 3A 82 3A 8D 20 31 35 35 3A 8D 20 31 39 |A$;:.:. 155:. 19|
000007E0: 30 3A 8E 00 6C 17 5E 01 8F 20 BF 03 2D 20 57 52 |0:..l.^.. ..- WR|
000007F0: 49 54 45 20 42 4C 4F 43 4B 20 BF 03 2D 00 8A 17 |ITE BLOCK ..-...|
00000800: 63 01 99 22 93 22 A3 31 35 29 22 96 57 52 49 54 |c..".".15)".WRIT|
00000810: 45 20 42 4C 4F 43 4B 9B 11 11 22 00 B2 17 68 01 |E BLOCK..."...h.|
00000820: 99 A3 38 29 22 11 9A 45 4E 54 45 52 20 2D 31 2C |..8)"..ENTER -1,|
00000830: 30 20 54 4F 20 4D 41 4B 45 20 55 50 44 41 54 45 |0 TO MAKE UPDATE|
00000840: 11 9B 22 00 D3 17 6D 01 85 22 11 11 45 4E 54 45 |.."...m.."..ENTE|
00000850: 52 20 54 52 41 43 4B 2C 20 53 45 43 54 4F 52 22 |R TRACK, SECTOR"|
00000860: 3B 54 2C 53 00 F5 17 72 01 8D 20 31 37 35 3A 8D |;T,S...r.. 175:.|
00000870: 20 31 34 30 3A 20 8B 20 45 B3 B1 30 20 A7 20 8D | 140: . E..0 . .|
00000880: 20 31 39 30 3A 8E 00 14 18 77 01 85 22 45 4E 54 | 190:....w.."ENT|
00000890: 45 52 20 56 41 4C 55 45 2C 50 4F 49 4E 54 45 52 |ER VALUE,POINTER|
000008A0: 22 3B 41 2C 50 00 2E 18 7C 01 8B 20 41 B3 30 20 |";A,P...|.. A.0 |
000008B0: A7 20 8D 20 31 35 35 3A 8D 20 31 39 30 3A 8E 00 |. . 155:. 190:..|
000008C0: 3A 18 81 01 41 24 B2 C7 28 41 29 00 4C 18 86 01 |:...A$..(A).L...|
000008D0: 98 31 35 2C 22 42 2D 50 3A 35 22 2C 50 00 57 18 |.15,"B-P:5",P.W.|
000008E0: 8B 01 98 35 2C 41 24 3B 00 61 18 90 01 89 20 33 |...5,A$;.a.... 3|
000008F0: 37 35 00 7A 18 95 01 8F 20 BF 03 2D 20 52 45 41 |75.z.... ..- REA|
00000900: 44 20 42 41 4D 20 BF 03 2D 00 95 18 9A 01 99 22 |D BAM ..-......"|
00000910: 93 22 A3 31 35 29 22 96 52 45 41 44 20 42 41 4D |.".15)".READ BAM|
00000920: 9B 11 11 22 00 AE 18 9F 01 54 B2 31 38 3A 53 B2 |...".....T.18:S.|
00000930: 30 3A 8D 20 31 37 35 3A 8D 20 31 34 30 00 C4 18 |0:. 175:. 140...|
00000940: A4 01 98 31 35 2C 22 42 2D 50 3A 35 2C 34 22 3A |...15,"B-P:5,4":|
00000950: 4B B2 30 00 DC 18 A9 01 81 20 49 B2 31 A4 33 35 |K.0...... I.1.35|
00000960: 3A 4B B2 30 3A A1 23 35 2C 41 24 00 F1 18 AE 01 |:K.0:.#5,A$.....|
00000970: 99 22 54 52 41 43 4B 22 3B 49 3A 99 22 91 22 3B |."TRACK";I:.".";|
00000980: 00 04 19 B3 01 81 20 4A B2 31 A4 33 3A A1 23 35 |...... J.1.3:.#5|
00000990: 2C 41 24 00 1A 19 B8 01 8B 20 41 24 B2 22 22 20 |,A$...... A$."" |
000009A0: A7 20 41 24 B2 C7 28 30 29 00 39 19 BD 01 81 20 |. A$..(0).9.... |
000009B0: 4E B2 30 A4 37 3A 4B B2 4B AA 31 3A 8B 20 4B B1 |N.0.7:K.K.1:. K.|
000009C0: 32 31 20 A7 20 34 37 30 00 5B 19 C2 01 8B 20 4B |21 . 470.[.... K|
000009D0: B1 53 4E 28 49 29 20 A7 20 42 24 28 49 2C 4B 29 |.SN(I) . B$(I,K)|
000009E0: B2 22 9B 2E 22 3A 89 34 37 30 00 6D 19 C7 01 41 |."..":.470.m...A|
000009F0: B2 C6 28 41 24 29 20 AF 20 32 AE 4E 00 86 19 CC |..(A$) . 2.N....|
00000A00: 01 8B 20 41 B1 30 20 A7 20 42 24 28 49 2C 4B 29 |.. A.0 . B$(I,K)|
00000A10: B2 22 9B 4F 22 00 A7 19 D1 01 8B 20 41 B2 30 20 |.".O"...... A.0 |
00000A20: A7 20 42 24 28 49 2C 4B 29 B2 22 9A 58 22 3A 52 |. B$(I,K).".X":R|
00000A30: 46 B2 52 46 AA 31 00 AF 19 D6 01 82 20 4E 00 C4 |F.RF.1...... N..|
00000A40: 19 DB 01 82 20 4A 2C 49 3A 8D 20 31 39 30 3A 99 |.... J,I:. 190:.|
00000A50: 22 93 22 00 F9 19 E0 01 99 22 20 20 20 99 31 32 |"."......" .12|
00000A60: 33 34 35 36 37 38 39 30 9E 31 32 33 34 35 36 37 |34567890.1234567|
00000A70: 38 39 30 99 31 32 33 34 35 36 37 38 39 30 9E 31 |890.1234567890.1|
00000A80: 32 33 34 35 9B 22 3A 99 00 2E 1A E5 01 5A 24 B2 |2345.":......Z$.|
00000A90: 22 20 30 30 30 31 30 32 30 33 30 34 30 35 30 36 |" 00010203040506|
00000AA0: 30 37 30 38 30 39 31 30 31 31 31 32 31 33 31 34 |0708091011121314|
00000AB0: 31 35 31 36 31 37 31 38 31 39 32 30 22 00 58 1A |151617181920".X.|
00000AC0: EA 01 81 20 4B B2 31 A4 32 31 3A 99 22 9E 22 CA |... K.1.21:.".".|
00000AD0: 28 5A 24 2C 4B AC 32 2C 32 29 22 20 22 3B 3A 81 |(Z$,K.2,2)" ";:.|
00000AE0: 20 49 B2 31 A4 33 35 00 70 1A EF 01 99 42 24 28 | I.1.35.p....B$(|
00000AF0: 49 2C 4B 29 3B 3A 82 20 49 3A 99 3A 82 20 4B 00 |I,K);:. I:.:. K.|
00000B00: 8B 1A F4 01 85 22 11 9B 3C 52 45 54 3E 20 46 4F |....."..<RET> FO|
00000B10: 52 20 4D 45 4E 55 22 3B 5A 24 00 91 1A F9 01 8E |R MENU";Z$......|
00000B20: 00 AC 1A FE 01 8F 20 BF 03 2D 20 54 52 41 43 45 |...... ..- TRACE|
00000B30: 20 46 49 4C 45 20 BF 03 2D 00 C9 1A 03 02 99 22 | FILE ..-......"|
00000B40: 93 22 A3 31 35 29 22 96 54 52 41 43 45 20 46 49 |.".15)".TRACE FI|
00000B50: 4C 45 9B 11 11 22 00 DB 1A 08 02 99 A3 32 35 29 |LE...".......25)|
00000B60: 22 9E 53 54 41 52 54 22 00 02 1B 0D 02 99 22 46 |".START"......"F|
00000B70: 49 4C 45 20 4E 41 4D 45 BF 08 20 54 59 50 45 20 |ILE NAME.. TYPE |
00000B80: 20 54 52 20 20 53 45 43 22 00 2A 1B 12 02 99 22 | TR SEC".*...."|
00000B90: BF 10 2D 20 BF 03 2D 20 20 2D 2D 20 20 2D 2D 2D |..- ..- -- ---|
00000BA0: 9B 22 00 3D 1B 17 02 54 B2 31 38 3A 53 B2 31 3A |.".=...T.18:S.1:|
00000BB0: 8D 20 31 37 35 00 47 1B 1C 02 8D 20 31 34 30 00 |. 175.G.... 140.|
00000BC0: 81 1B 21 02 98 31 35 2C 22 42 2D 50 3A 35 2C 30 |..!..15,"B-P:5,0|
00000BD0: 22 3A A1 23 35 2C 54 24 3A A1 23 35 2C 53 24 3A |":.#5,T$:.#5,S$:|
00000BE0: 54 B2 C6 28 54 24 AA C7 28 30 29 29 3A 53 B2 C6 |T..(T$..(0)):S..|
00000BF0: 28 53 24 AA C7 28 30 29 29 00 89 1B 26 02 50 B2 |(S$..(0))...&.P.|
00000C00: 32 00 9B 1B 2B 02 98 31 35 2C 22 42 2D 50 3A 35 |2...+..15,"B-P:5|
00000C10: 22 2C 50 00 BD 1B 30 02 A1 23 35 2C 54 59 24 3A |",P...0..#5,TY$:|
00000C20: A1 23 35 2C 54 52 24 3A A1 23 35 2C 53 45 24 3A |.#5,TR$:.#5,SE$:|
00000C30: 4E 24 B2 22 22 00 CC 1B 35 02 81 20 49 B2 31 20 |N$.""...5.. I.1 |
00000C40: A4 20 31 36 00 E2 1B 3A 02 A1 23 35 2C 41 24 3A |. 16...:..#5,A$:|
00000C50: 4E 24 B2 4E 24 AA 41 24 3A 82 00 02 1C 3F 02 8B |N$.N$.A$:....?..|
00000C60: 20 C3 28 4E 24 29 B3 31 36 20 A7 20 4E 24 B2 4E | .(N$).16 . N$.N|
00000C70: 24 AA 22 20 22 3A 89 35 37 35 00 1E 1C 44 02 54 |$." ":.575...D.T|
00000C80: 59 24 B2 C9 28 C4 28 C6 28 54 59 24 AA C7 28 30 |Y$..(.(.(TY$..(0|
00000C90: 29 29 29 2C 33 29 00 3A 1C 49 02 54 52 24 B2 C9 |))),3).:.I.TR$..|
00000CA0: 28 C4 28 C6 28 54 52 24 AA C7 28 30 29 29 29 2C |(.(.(TR$..(0))),|
00000CB0: 33 29 00 56 1C 4E 02 53 45 24 B2 C9 28 C4 28 C6 |3).V.N.SE$..(.(.|
00000CC0: 28 53 45 24 AA C7 28 30 29 29 29 2C 33 29 00 76 |(SE$..(0))),3).v|
00000CD0: 1C 53 02 8B 20 C3 28 54 59 24 29 B3 33 A7 54 59 |.S.. .(TY$).3.TY|
00000CE0: 24 B2 22 20 22 AA 54 59 24 3A 89 35 39 35 00 96 |$." ".TY$:.595..|
00000CF0: 1C 58 02 8B 20 C3 28 54 52 24 29 B3 33 A7 54 52 |.X.. .(TR$).3.TR|
00000D00: 24 B2 22 20 22 AA 54 52 24 3A 89 36 30 30 00 B6 |$." ".TR$:.600..|
00000D10: 1C 5D 02 8B 20 C3 28 53 45 24 29 B3 33 A7 53 45 |.].. .(SE$).3.SE|
00000D20: 24 B2 22 20 22 AA 53 45 24 3A 89 36 30 35 00 D8 |$." ".SE$:.605..|
00000D30: 1C 62 02 99 4E 24 3B 22 20 20 20 22 3B 54 59 24 |.b..N$;" ";TY$|
00000D40: 3B 22 20 22 3B 54 52 24 3B 22 20 22 3B 53 45 24 |;" ";TR$;" ";SE$|
00000D50: 00 E3 1C 67 02 50 B2 50 AA 33 32 00 F5 1C 6C 02 |...g.P.P.32...l.|
00000D60: 8B 20 50 B3 32 35 35 20 A7 20 35 35 35 00 11 1D |. P.255 . 555...|
00000D70: 71 02 85 22 3C 52 45 54 3E 20 54 4F 20 43 4F 4E |q.."<RET> TO CON|
00000D80: 54 49 4E 55 45 22 3B 5A 24 00 20 1D 76 02 8B 20 |TINUE";Z$. .v.. |
00000D90: 54 B1 30 20 A7 35 34 30 00 38 1D 7B 02 99 22 45 |T.0 .540.8.{.."E|
00000DA0: 4E 44 20 4F 46 20 44 49 52 45 43 54 4F 52 59 22 |ND OF DIRECTORY"|
00000DB0: 00 74 1D 80 02 85 22 11 45 4E 54 45 52 20 53 54 |.t....".ENTER ST|
00000DC0: 41 52 54 49 4E 47 20 54 52 41 43 4B 2C 53 45 43 |ARTING TRACK,SEC|
00000DD0: 54 4F 52 22 3B 54 2C 53 3A 99 22 9E 54 52 41 43 |TOR";T,S:.".TRAC|
00000DE0: 4B 20 20 20 53 45 43 54 4F 52 9B 22 00 7D 1D 85 |K SECTOR.".}..|
00000DF0: 02 99 54 2C 53 00 8D 1D 8A 02 8D 20 31 34 30 3A |..T,S...... 140:|
00000E00: 8D 20 32 30 30 00 9F 1D 8F 02 A1 23 35 2C 54 24 |. 200......#5,T$|
00000E10: 3A A1 23 35 2C 53 24 00 BD 1D 94 02 54 B2 C6 28 |:.#5,S$.....T..(|
00000E20: 54 24 AA C7 28 30 29 29 3A 53 B2 C6 28 53 24 AA |T$..(0)):S..(S$.|
00000E30: C7 28 30 29 29 00 D4 1D 99 02 8B 20 54 B1 30 20 |.(0))...... T.0 |
00000E40: AF 20 54 B3 33 36 20 A7 20 36 34 35 00 DE 1D 9E |. T.36 . 645....|
00000E50: 02 8D 20 31 39 30 00 F7 1D A3 02 85 22 3C 52 45 |.. 190......"<RE|
00000E60: 54 3E 20 46 4F 52 20 4D 45 4E 55 22 3B 5A 24 00 |T> FOR MENU";Z$.|
00000E70: FD 1D A8 02 8E 00 1A 1E AD 02 8F 20 BF 03 2D 20 |........... ..- |
00000E80: 41 4C 4C 4F 43 41 54 45 20 42 41 4D 20 BF 03 2D |ALLOCATE BAM ..-|
00000E90: 00 39 1E B2 02 99 22 93 22 A3 31 35 29 22 96 41 |.9....".".15)".A|
00000EA0: 4C 4C 4F 43 41 54 45 20 42 41 4D 9B 11 11 22 00 |LLOCATE BAM...".|
00000EB0: 63 1E B7 02 99 A3 38 29 22 11 9A 45 4E 54 45 52 |c.....8)"..ENTER|
00000EC0: 20 30 2C 30 20 54 4F 20 52 45 54 55 52 4E 20 54 | 0,0 TO RETURN T|
00000ED0: 4F 20 4D 45 4E 55 11 9B 22 00 6D 1E BC 02 8D 20 |O MENU..".m.... |
00000EE0: 31 37 35 00 8C 1E C1 02 85 22 45 4E 54 45 52 20 |175......"ENTER |
00000EF0: 54 52 41 43 4B 2C 20 53 45 43 54 4F 52 22 3B 54 |TRACK, SECTOR";T|
00000F00: 2C 53 00 A0 1E C6 02 8B 20 54 B2 30 20 A7 3A 8D |,S...... T.0 .:.|
00000F10: 20 31 39 30 3A 8E 00 B4 1E CB 02 98 31 35 2C 22 | 190:.......15,"|
00000F20: 42 2D 41 3A 30 22 3B 54 3B 53 00 BE 1E D0 02 89 |B-A:0";T;S......|
00000F30: 20 37 30 35 00 DF 1E D5 02 8F 20 BF 03 2D 20 44 | 705...... ..- D|
00000F40: 49 53 4B 20 4E 41 4D 45 20 43 48 41 4E 47 45 20 |ISK NAME CHANGE |
00000F50: BF 03 2D 00 02 1F DA 02 99 22 93 22 A3 31 32 29 |..-......".".12)|
00000F60: 22 96 44 49 53 4B 20 4E 41 4D 45 20 43 48 41 4E |".DISK NAME CHAN|
00000F70: 47 45 9B 11 11 22 00 2B 1F DF 02 99 A3 34 29 22 |GE...".+.....4)"|
00000F80: 11 9A 45 4E 54 45 52 20 27 51 55 49 54 27 20 54 |..ENTER 'QUIT' T|
00000F90: 4F 20 45 58 49 54 20 54 4F 20 4D 45 4E 55 22 00 |O EXIT TO MENU".|
00000FA0: 44 1F E4 02 54 B2 31 38 3A 53 B2 30 3A 8D 20 31 |D...T.18:S.0:. 1|
00000FB0: 37 35 3A 8D 20 31 34 30 00 6B 1F E9 02 98 31 35 |75:. 140.k....15|
00000FC0: 2C 22 42 2D 50 3A 35 2C 31 34 34 22 3A 99 22 11 |,"B-P:5,144":.".|
00000FD0: 96 44 49 53 4B 20 4E 41 4D 45 20 3D 20 22 3B 00 |.DISK NAME = ";.|
00000FE0: 7D 1F EE 02 81 20 49 B2 31 34 34 20 A4 20 31 36 |}.... I.144 . 16|
00000FF0: 31 00 95 1F F3 02 A1 23 35 2C 41 24 3A 99 41 24 |1......#5,A$:.A$|
00001000: 3B 3A 82 3A 99 22 9B 11 22 00 B3 1F F8 02 85 22 |;:.:.".."......"|
00001010: 45 4E 54 45 52 20 4E 45 57 20 44 49 53 4B 20 4E |ENTER NEW DISK N|
00001020: 41 4D 45 22 3B 4E 24 00 D5 1F FD 02 4C B2 C3 28 |AME";N$.....L..(|
00001030: 4E 24 29 3A 8B 20 4E 24 B2 22 51 55 49 54 22 20 |N$):. N$."QUIT" |
00001040: A7 20 8D 20 31 39 30 3A 8E 00 05 20 02 03 8B 20 |. . 190:... ... |
00001050: 4C B1 31 38 20 A7 20 99 22 11 96 44 49 53 4B 20 |L.18 . ."..DISK |
00001060: 4E 41 4D 45 20 49 53 20 54 4F 4F 20 4C 4F 4E 47 |NAME IS TOO LONG|
00001070: 9A 11 22 3A 89 20 37 36 30 00 2E 20 07 03 8B 20 |..":. 760.. ... |
00001080: 4C B3 31 38 20 A7 20 81 20 49 B2 4C AA 31 20 A4 |L.18 . . I.L.1 .|
00001090: 20 31 38 3A 4E 24 B2 4E 24 AA C7 28 31 36 30 29 | 18:N$.N$..(160)|
000010A0: 3A 82 00 42 20 0C 03 98 31 35 2C 22 42 2D 50 3A |:..B ...15,"B-P:|
000010B0: 35 2C 31 34 34 22 00 51 20 11 03 81 20 49 B2 31 |5,144".Q ... I.1|
000010C0: 20 A4 20 31 38 00 62 20 16 03 41 24 B2 CA 28 4E | . 18.b ..A$..(N|
000010D0: 24 2C 49 2C 31 29 00 6D 20 1B 03 98 35 2C 41 24 |$,I,1).m ...5,A$|
000010E0: 3B 00 73 20 20 03 82 00 86 20 25 03 8D 20 31 35 |;.s .... %.. 15|
000010F0: 35 3A 8D 20 31 39 30 3A 20 8E 00 A7 20 2A 03 8F |5:. 190: ... *..|
00001100: 20 BF 03 2D 20 44 49 53 4B 20 49 2E 44 2E 20 43 | ..- DISK I.D. C|
00001110: 48 41 4E 47 45 20 BF 03 2D 00 CA 20 2F 03 99 22 |HANGE ..-.. /.."|
00001120: 93 22 A3 31 32 29 22 96 44 49 53 4B 20 49 2E 44 |.".12)".DISK I.D|
00001130: 2E 20 43 48 41 4E 47 45 9B 11 11 22 00 F3 20 34 |. CHANGE...".. 4|
00001140: 03 99 A3 34 29 22 11 9A 45 4E 54 45 52 20 27 51 |...4)"..ENTER 'Q|
00001150: 55 49 54 27 20 54 4F 20 45 58 49 54 20 54 4F 20 |UIT' TO EXIT TO |
00001160: 4D 45 4E 55 22 00 0C 21 39 03 54 B2 31 38 3A 53 |MENU"..!9.T.18:S|
00001170: B2 30 3A 8D 20 31 37 35 3A 8D 20 31 34 30 00 33 |.0:. 175:. 140.3|
00001180: 21 3E 03 98 31 35 2C 22 42 2D 50 3A 35 2C 31 36 |!>..15,"B-P:5,16|
00001190: 32 22 3A 99 22 11 96 44 49 53 4B 20 49 2E 44 2E |2":."..DISK I.D.|
000011A0: 20 3D 20 22 3B 00 4F 21 43 03 A1 23 35 2C 41 24 | = ";.O!C..#5,A$|
000011B0: 2C 42 24 3A 99 41 24 3B 42 24 3B 3A 99 22 9B 11 |,B$:.A$;B$;:."..|
000011C0: 22 00 6D 21 48 03 85 22 45 4E 54 45 52 20 4E 45 |".m!H.."ENTER NE|
000011D0: 57 20 44 49 53 4B 20 49 2E 44 2E 22 3B 4E 24 00 |W DISK I.D.";N$.|
000011E0: 8F 21 4D 03 4C B2 C3 28 4E 24 29 3A 8B 20 4E 24 |.!M.L..(N$):. N$|
000011F0: B2 22 51 55 49 54 22 20 A7 20 8D 20 31 39 30 3A |."QUIT" . . 190:|
00001200: 8E 00 BE 21 52 03 8B 20 4C B1 33 20 A7 20 99 22 |...!R.. L.3 . ."|
00001210: 11 96 44 49 53 4B 20 49 2E 44 2E 20 49 53 20 54 |..DISK I.D. IS T|
00001220: 4F 4F 20 4C 4F 4E 47 9A 11 22 3A 89 20 38 34 30 |OO LONG..":. 840|
00001230: 00 D4 21 57 03 8B 20 4C B3 32 20 A7 20 4E 24 B2 |..!W.. L.2 . N$.|
00001240: 4E 24 AA 22 20 22 00 E8 21 5C 03 98 31 35 2C 22 |N$." "..!\..15,"|
00001250: 42 2D 50 3A 35 2C 31 36 32 22 00 02 22 61 03 41 |B-P:5,162".."a.A|
00001260: 24 B2 C8 28 4E 24 2C 31 29 3A 42 24 B2 C9 28 4E |$..(N$,1):B$..(N|
00001270: 24 2C 31 29 00 0D 22 66 03 98 35 2C 41 24 3B 00 |$,1).."f..5,A$;.|
00001280: 18 22 6B 03 98 35 2C 42 24 3B 00 2B 22 70 03 8D |."k..5,B$;.+"p..|
00001290: 20 31 35 35 3A 8D 20 31 39 30 3A 20 8E 00 64 22 | 155:. 190: ..d"|
000012A0: 75 03 83 20 32 31 2C 32 31 2C 32 31 2C 32 31 2C |u.. 21,21,21,21,|
000012B0: 32 31 2C 32 31 2C 32 31 2C 32 31 2C 32 31 2C 32 |21,21,21,21,21,2|
000012C0: 31 2C 32 31 2C 32 31 2C 32 31 2C 32 31 2C 32 31 |1,21,21,21,21,21|
000012D0: 2C 32 31 2C 32 31 00 7F 22 7A 03 83 20 31 39 2C |,21,21.."z.. 19,|
000012E0: 31 39 2C 31 39 2C 31 39 2C 31 39 2C 31 39 2C 31 |19,19,19,19,19,1|
000012F0: 39 00 97 22 7F 03 83 20 31 38 2C 31 38 2C 31 38 |9.."... 18,18,18|
00001300: 2C 31 38 2C 31 38 2C 31 38 00 AC 22 84 03 83 20 |,18,18,18.."... |
00001310: 31 37 2C 31 37 2C 31 37 2C 31 37 2C 31 37 00 00 |17,17,17,17,17..|
00001320: 00 |. |
..&.E..4136 CRUNCHED..BY VRN............
.X....?....~......AP....@.....-...... ..
...........P.E.....P.F.F...P.F.F.LP.....
.-..L.. ^.IOP. ^.I.P..OP....LG.I.P. ^.I.
P...P.. ^.LG. I....@..P.E.PC.>.X ....0.
..-HJP...8E-.-....L1. .....P...` ..-....
-P...`.....L..E...... DISK MASTER.. FOR
PLUS/4.K............ FROM THE LIBRARY OF
PLUG,.. THE PLUS/4 USERS' GROUP........
BOX 1001.. MONTEREY, CA 93940.........#
..".....WARNING! THIS PROGRAM CAN DESTRO
Y DATA!.Z.(..".PRACTICE ON A JUNK DISK F
IRST..!":.DE.1.2000:.:."..".X.-.. B$(35,
21),SN(35),R(256)...2.. I.1.35:. SN(I):.
...7..".."...<.. 15,8,15:.15,"I": 15.J.
A.."1 : READ BLOCK"...F.."2 : WRITE BLOC
K"...K.."3 : READ BAM"...P.."4 : TRACE B
LOCKS".%.U.."5 : ALLOCATE BAM".A.Z.."6 :
DISK NAME CHANGE".]._.."7 : DISK I.D. C
HANGE"..D.."8 : COPY BLOCK TO 2ND DISK"
...I.."0 : EXIT "...N..".ENTER OPTION"
;OP: . OP..0 . 125.B.S..".".H.X.....}..
OP.1 . OP.8 . 55...... OP . 230,350,405,
510,685,725,810,305.....OP.0:. 55.2....
..- GET BLOCK ..-.G....15,"U1:5,0";T;S.S
.... 200:..M.... ..- PUT BLOCK ..-.. ..
15,"B-P:5,0"......15,"U2:5,0";T;S. ....
200:....... ..- OPEN FILE ..-.S.... 15,8
,15:.5,8,5,"#".Y.......... ..- CLOSE FIL
E ..-...C. 5: 15:..(.H.. ..- CHECK FOR
DISK ERROR ..-.;.M..15,E,E$,E1,E2.I.R..
E.0 . ..K.W.."..DISK ERROR = ";E;E$,E1;
E2......".<RET> TO CONTINUE";Z$...... 19
0:....... ..- READ BLOCK ..-.L....".".15
)".READ BLOCK..."......"..ENTER TRACK, S
ECTOR";T,S...... 175:. 140: . E..0 . . 1
90:..A...."ENTER STARTING POINTER";P1:.
P1.0 . . 190:..`...."ENTER ENDING POINTE
R";P2.S....15,"B-P:5";P1...... P.P1 . P2
......#5,A$:. A$."".A$.G(0).I...A.F(A$):
. A$.G(32) . A$.G(93) . A$." ".V.... P,A
;A$...... P...".."CONTINUE WITH TRACK";T
;" SECTOR";S...'.. Q$:. Q$."Y" . 250.+.,
.. 190:..F.1.. ..- COPY BLOCK ..-.C.6.."
.".15)".COPY BLOCK..."...;.."..ENTER TRA
CK, SECTOR";T,S...@.. 175:. 140: . E..0
. . 190:....E..15,"B-P:5,0"...J.. I.1 .
256:.#5,A$:R(I).F(A$.G(0)):.:. 190...O..
"INSERT NEW DISK";Z$:. 175:.140...T..15,
"B-P:5,0".P.Y.. I.1 . 256:A$.G(R(I)):.5,
A$;:.:. 155:. 190:..L.^.. ..- WRITE BLOC
K ..-...C..".".15)".WRITE BLOCK..."...H.
..8)"..ENTER -1,0 TO MAKE UPDATE..".S.M.
."..ENTER TRACK, SECTOR";T,S...R.. 175:.
140: . E..0 . . 190:....W.."ENTER VALUE
,POINTER";A,P...|.. A.0 . . 155:. 190:..
:...A$.G(A).L....15,"B-P:5",P.W....5,A$;
.A.... 375.Z.... ..- READ BAM ..-......"
.".15)".READ BAM...".....T.18:S.0:. 175:
. 140.D....15,"B-P:5,4":K.0...... I.1.35
:K.0:.#5,A$......"TRACK";I:.".";...... J
.1.3:.#5,A$...... A$."" . A$.G(0).9....
N.0.7:K.K.1:. K.21 . 470.[.B.. K.SN(I) .
B$(I,K)."..":.470.M.G.A.F(A$) . 2.N...L
.. A.0 . B$(I,K).".O"...Q.. A.0 . B$(I,K
).".X":RF.RF.1...V.. N.D.... J,I:. 190:.
"."......" .1234567890.1234567890.1234
567890.12345.":......Z$." 00010203040506
0708091011121314151617181920".X.... K.1.
21:."."J(Z$,K.2,2)" ";:. I.1.35.P....B$(
I,K);:. I:.:. K......"..<RET> FOR MENU";
Z$............ ..- TRACE FILE ..-.I...."
.".15)".TRACE FILE...".......25)".START"
......"FILE NAME.. TYPE TR SEC".*...."
..- ..- -- ---.".=...T.18:S.1:. 175.G.
... 140...!..15,"B-P:5,0":.#5,T$:.#5,S$:
T.F(T$.G(0)):S.F(S$.G(0))...&.P.2...+..1
5,"B-P:5",P...0..#5,TY$:.#5,TR$:.#5,SE$:
N$."".L.5.. I.1 . 16...:..#5,A$:N$.N$.A$
:....?.. C(N$).16 . N$.N$." ":.575...D.T
Y$.I(D(F(TY$.G(0))),3).:.I.TR$.I(D(F(TR$
.G(0))),3).V.N.SE$.I(D(F(SE$.G(0))),3).V
.S.. C(TY$).3.TY$." ".TY$:.595...X.. C(T
R$).3.TR$." ".TR$:.600...].. C(SE$).3.SE
$." ".SE$:.605.X.B..N$;" ";TY$;" ";TR$
;" ";SE$...G.P.P.32...L.. P.255 . 555...
Q.."<RET> TO CONTINUE";Z$. .V.. T.0 .540
.8.{.."END OF DIRECTORY".T....".ENTER ST
ARTING TRACK,SECTOR";T,S:.".TRACK SECT
OR.".}....T,S...... 140:. 200......#5,T$
:.#5,S$.....T.F(T$.G(0)):S.F(S$.G(0)).T.
... T.0 . T.36 . 645...... 190......"<RE
T> FOR MENU";Z$............ ..- ALLOCATE
BAM ..-.9....".".15)".ALLOCATE BAM...".
C.....8)"..ENTER 0,0 TO RETURN TO MENU..
".M.... 175...A.."ENTER TRACK, SECTOR";T
,S. .F.. T.0 .:. 190:....K..15,"B-A:0";T
;S...P.. 705...U.. ..- DISK NAME CHANGE
..-...Z..".".12)".DISK NAME CHANGE...".+
.....4)"..ENTER 'QUIT' TO EXIT TO MENU".
D...T.18:S.0:. 175:. 140.K....15,"B-P:5,
144":."..DISK NAME = ";.}.... I.144 . 16
1......#5,A$:.A$;:.:.".."......"ENTER NE
W DISK NAME";N$.U...L.C(N$):. N$."QUIT"
. . 190:... ... L.18 . ."..DISK NAME IS
TOO LONG..":. 760.. ... L.18 . . I.L.1 .
18:N$.N$.G(160):..B ...15,"B-P:5,144".Q
... I.1 . 18.B ..A$.J(N$,I,1).M ...5,A$
;.S .... %.. 155:. 190: ... *.. ..- DIS
K I.D. CHANGE ..-.J /..".".12)".DISK I.D
. CHANGE...".. 4...4)"..ENTER 'QUIT' TO
EXIT TO MENU"..!9.T.18:S.0:. 175:. 140.3
!>..15,"B-P:5,162":."..DISK I.D. = ";.O!
C..#5,A$,B$:.A$;B$;:."..".M!H.."ENTER NE
W DISK I.D.";N$..!M.L.C(N$):. N$."QUIT"
. . 190:...!R.. L.3 . ."..DISK I.D. IS T
OO LONG..":. 840.T!W.. L.2 . N$.N$." "..
!\..15,"B-P:5,162".."A.A$.H(N$,1):B$.I(N
$,1).."F..5,A$;.."K..5,B$;.+"P.. 155:. 1
90: ..D"U.. 21,21,21,21,21,21,21,21,21,2
1,21,21,21,21,21,21,21."Z.. 19,19,19,19
,19,19,19..".. 18,18,18,18,18,18.."...
17,17,17,17,17...
> CLICK IMAGE PREVIEW FOR FULL MODAL