HANDYFILE
FILE INFORMATION
FILENAME(S): HANDYFILE
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-11-30 17:31:23
APPEARS ON: 1 disk(s)
FILE HASH
bded5899044d1fc7b3ae011417f36a0b3ed2ebd7343efbd7fd78aa533491a9bd
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0012BU | HANDYFILE | PRG | UK CD | 21 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 06 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.|
00000010: 35 33 32 38 31 2C 36 00 20 08 07 00 99 22 05 22 |53281,6. ...."."|
00000020: 00 3D 08 0A 00 99 22 93 11 22 A3 31 35 29 22 12 |.=...."..".15)".|
00000030: 4D 41 49 4E 92 20 20 12 4D 45 4E 55 22 00 5B 08 |MAIN. .MENU".[.|
00000040: 1E 00 99 22 11 11 1D 12 5B 31 5D 92 20 3D 20 12 |..."....[1]. = .|
00000050: 52 45 41 44 20 46 49 4C 45 53 22 00 79 08 28 00 |READ FILES".y.(.|
00000060: 99 22 11 1D 12 5B 32 5D 92 20 3D 20 12 57 52 49 |."...[2]. = .WRI|
00000070: 54 45 20 46 49 4C 45 53 22 00 99 08 32 00 99 22 |TE FILES"...2.."|
00000080: 11 1D 12 5B 33 5D 92 20 3D 20 12 53 43 52 41 54 |...[3]. = .SCRAT|
00000090: 43 48 20 46 49 4C 45 53 22 00 B7 08 37 00 99 22 |CH FILES"...7.."|
000000A0: 11 1D 12 5B 34 5D 92 20 3D 20 12 52 45 4E 41 4D |...[4]. = .RENAM|
000000B0: 45 20 46 49 4C 45 22 00 CE 08 46 00 99 22 11 1D |E FILE"...F.."..|
000000C0: 12 5B 35 5D 92 20 3D 20 12 51 55 49 54 22 00 EC |.[5]. = .QUIT"..|
000000D0: 08 50 00 99 22 11 1D 12 5B 36 5D 92 20 3D 20 12 |.P.."...[6]. = .|
000000E0: 46 4F 52 4D 41 54 20 44 49 53 4B 22 00 0C 09 5A |FORMAT DISK"...Z|
000000F0: 00 99 22 11 1D 12 5B 37 5D 92 20 3D 20 12 56 41 |.."...[7]. = .VA|
00000100: 4C 49 44 41 54 45 20 44 49 53 4B 22 00 31 09 64 |LIDATE DISK".1.d|
00000110: 00 99 22 11 1D 12 5B 38 5D 92 20 3D 20 12 52 45 |.."...[8]. = .RE|
00000120: 41 44 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C |AD ERROR CHANNEL|
00000130: 22 00 52 09 6E 00 99 22 11 1D 12 5B 39 5D 92 20 |".R.n.."...[9]. |
00000140: 3D 20 12 4C 49 53 54 20 44 49 52 45 43 54 4F 52 |= .LIST DIRECTOR|
00000150: 59 22 00 6D 09 82 00 99 22 11 22 A3 31 35 29 22 |Y".m....".".15)"|
00000160: 11 12 43 48 4F 4F 53 45 20 4F 4E 45 22 00 80 09 |..CHOOSE ONE"...|
00000170: 8C 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 34 30 |...A$:.A$."".140|
00000180: 00 97 09 96 00 8B 41 24 B3 22 31 22 B0 41 24 B1 |......A$."1".A$.|
00000190: 22 39 22 A7 31 34 30 00 A3 09 A0 00 41 B2 C5 28 |"9".140.....A..(|
000001A0: 41 24 29 00 D7 09 AA 00 91 41 89 31 30 30 30 2C |A$)......A.1000,|
000001B0: 32 30 30 30 2C 33 30 30 30 2C 34 30 30 30 2C 36 |2000,3000,4000,6|
000001C0: 30 30 30 2C 37 30 30 30 2C 38 30 30 30 2C 39 30 |000,7000,8000,90|
000001D0: 30 30 2C 35 30 30 30 00 DF 09 B4 00 89 31 30 00 |00,5000......10.|
000001E0: FD 09 E8 03 99 22 93 22 A3 31 34 29 22 11 52 45 |.....".".14)".RE|
000001F0: 41 44 20 52 4F 55 54 49 4E 45 22 3A 8C 00 14 0A |AD ROUTINE":....|
00000200: E9 03 85 22 46 49 4C 45 20 54 4F 20 52 45 41 44 |..."FILE TO READ|
00000210: 22 3B 5A 24 00 48 0A EA 03 44 24 B2 C7 28 33 34 |";Z$.H...D$..(34|
00000220: 29 AA C7 28 34 38 29 AA C7 28 35 38 29 AA 5A 24 |)..(48)..(58).Z$|
00000230: AA C7 28 34 34 29 AA C7 28 38 33 29 AA C7 28 34 |..(44)..(83)..(4|
00000240: 34 29 AA C7 28 38 32 29 00 58 0A EB 03 44 24 B2 |4)..(82).X...D$.|
00000250: 44 24 AA C7 28 33 34 29 00 63 0A EC 03 81 54 B2 |D$..(34).c....T.|
00000260: 31 A4 36 00 6E 0A ED 03 87 43 24 28 54 29 00 74 |1.6.n....C$(T).t|
00000270: 0A EF 03 82 00 80 0A F0 03 99 22 93 11 11 11 22 |.........."...."|
00000280: 00 8E 0A F1 03 9F 32 2C 38 2C 32 2C 44 24 00 99 |......2,8,2,D$..|
00000290: 0A F2 03 81 54 B2 31 A4 36 00 A6 0A F3 03 84 32 |....T.1.6......2|
000002A0: 2C 42 24 28 54 29 00 BA 0A F4 03 99 43 24 28 54 |,B$(T)......C$(T|
000002B0: 29 22 3A 22 2C 42 24 28 54 29 00 C0 0A F7 03 99 |)":",B$(T)......|
000002C0: 00 C6 0A F8 03 82 00 CD 0A FC 03 A0 32 00 D8 0A |............2...|
000002D0: 1A 04 8D 31 32 30 30 30 00 E0 0A 24 04 89 31 30 |...12000...$..10|
000002E0: 00 E6 0A D0 07 8C 00 FC 0A D1 07 99 22 93 11 11 |............"...|
000002F0: 57 52 49 54 45 20 46 49 4C 45 53 22 00 07 0B D2 |WRITE FILES"....|
00000300: 07 81 54 B2 31 A4 36 00 12 0B D3 07 87 43 24 28 |..T.1.6......C$(|
00000310: 54 29 00 28 0B DA 07 99 43 24 28 54 29 22 3A 22 |T).(....C$(T)":"|
00000320: 3B 3A 85 42 24 28 54 29 00 2E 0B E4 07 82 00 65 |;:.B$(T).......e|
00000330: 0B EE 07 44 24 B2 C7 28 33 34 29 AA C7 28 34 38 |...D$..(34)..(48|
00000340: 29 AA C7 28 35 38 29 AA 42 24 28 31 29 AA C7 28 |)..(58).B$(1)..(|
00000350: 34 34 29 AA C7 28 38 33 29 AA C7 28 34 34 29 AA |44)..(83)..(44).|
00000360: C7 28 38 37 29 00 75 0B F8 07 44 24 B2 44 24 AA |.(87).u...D$.D$.|
00000370: C7 28 33 34 29 00 83 0B 02 08 9F 32 2C 38 2C 32 |.(34)......2,8,2|
00000380: 2C 44 24 00 99 0B 0C 08 81 54 B2 31 A4 36 3A 98 |,D$......T.1.6:.|
00000390: 32 2C 42 24 28 54 29 3A 82 00 A0 0B 16 08 A0 32 |2,B$(T):.......2|
000003A0: 00 A8 0B 20 08 89 31 30 00 BF 0B B8 0B 99 22 93 |... ..10......".|
000003B0: 11 53 43 52 41 54 43 48 20 46 49 4C 45 53 22 00 |.SCRATCH FILES".|
000003C0: E7 0B B9 0B 99 22 11 57 48 41 54 20 46 49 4C 45 |.....".WHAT FILE|
000003D0: 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 53 43 52 | DO YOU WANT SCR|
000003E0: 41 54 43 48 45 44 22 00 EF 0B BA 0B 85 4E 24 00 |ATCHED"......N$.|
000003F0: FB 0B BB 0B 42 24 B2 22 53 3A 22 00 08 0C BC 0B |....B$."S:".....|
00000400: 43 24 B2 42 24 AA 4E 24 00 2E 0C BD 0B 99 22 11 |C$.B$.N$......".|
00000410: 11 57 4F 52 4B 49 4E 47 2C 20 44 4F 20 4E 4F 54 |.WORKING, DO NOT|
00000420: 20 44 49 53 54 55 52 42 2E 2E 2E 2E 2E 22 00 3B | DISTURB.....".;|
00000430: 0C BE 0B 9F 31 35 2C 38 2C 31 35 00 46 0C BF 0B |....15,8,15.F...|
00000440: 98 31 35 2C 43 24 00 4E 0C C0 0B A0 31 35 00 56 |.15,C$.N....15.V|
00000450: 0C C1 0B 89 31 30 00 6C 0C A0 0F 99 22 93 11 52 |....10.l...."..R|
00000460: 45 4E 41 4D 45 20 46 49 4C 45 53 22 00 90 0C A1 |ENAME FILES"....|
00000470: 0F 99 22 11 57 48 41 54 20 49 53 20 4F 4C 44 20 |..".WHAT IS OLD |
00000480: 46 49 4C 45 20 4E 41 4D 45 22 3B 3A 85 4F 46 24 |FILE NAME";:.OF$|
00000490: 00 B4 0C A2 0F 99 22 11 57 48 41 54 20 49 53 20 |......".WHAT IS |
000004A0: 4E 45 57 20 46 49 4C 45 20 4E 41 4D 45 22 3B 3A |NEW FILE NAME";:|
000004B0: 85 4E 46 24 00 C0 0C A3 0F 42 24 B2 22 52 3A 22 |.NF$.....B$."R:"|
000004C0: 00 CB 0C A4 0F 43 24 B2 22 3D 22 00 E0 0C A5 0F |.....C$."=".....|
000004D0: 44 24 B2 42 24 AA 4E 46 24 AA 43 24 AA 4F 46 24 |D$.B$.NF$.C$.OF$|
000004E0: 00 04 0D A6 0F 99 22 11 57 4F 52 4B 49 4E 47 2C |......".WORKING,|
000004F0: 20 44 4F 20 4E 4F 54 20 44 49 53 54 55 52 42 2E | DO NOT DISTURB.|
00000500: 2E 2E 2E 22 00 11 0D A7 0F 9F 31 35 2C 38 2C 31 |..."......15,8,1|
00000510: 35 00 1C 0D A8 0F 98 31 35 2C 44 24 00 24 0D A9 |5......15,D$.$..|
00000520: 0F A0 31 35 00 2C 0D AA 0F 89 31 30 00 6B 0D 88 |..15.,....10.k..|
00000530: 13 99 22 93 44 49 52 45 43 54 4F 52 59 20 4C 49 |..".DIRECTORY LI|
00000540: 53 54 49 4E 47 2C 20 50 52 45 53 53 20 53 50 41 |STING, PRESS SPA|
00000550: 43 45 20 42 41 52 20 54 4F 20 20 20 48 41 4C 54 |CE BAR TO HALT|
00000560: 20 4C 49 53 54 49 4E 47 2C 22 3B 00 86 0D 89 13 | LISTING,";.....|
00000570: 99 22 1D 41 47 41 49 4E 20 54 4F 20 43 4F 4E 54 |.".AGAIN TO CONT|
00000580: 49 4E 55 45 2E 22 00 AC 0D 8A 13 99 22 11 49 46 |INUE."......".IF|
00000590: 20 44 49 52 45 43 54 4F 52 59 20 46 41 49 4C 53 | DIRECTORY FAILS|
000005A0: 20 54 4F 20 41 50 50 45 41 52 2C 22 00 D0 0D 8B | TO APPEAR,"....|
000005B0: 13 99 22 11 50 52 45 53 53 20 52 45 54 55 52 4E |..".PRESS RETURN|
000005C0: 20 41 4E 44 20 54 52 59 20 41 47 41 49 4E 2E 22 | AND TRY AGAIN."|
000005D0: 00 FC 0D 90 13 99 22 11 52 45 41 44 49 4E 47 20 |......".READING |
000005E0: 44 49 52 45 43 54 4F 52 59 2C 20 50 4C 45 41 53 |DIRECTORY, PLEAS|
000005F0: 45 20 57 41 49 54 2E 2E 2E 2E 2E 22 00 0C 0E 91 |E WAIT....."....|
00000600: 13 81 54 B2 31 A4 35 30 30 30 3A 82 00 1B 0E 92 |..T.1.5000:.....|
00000610: 13 9F 31 2C 38 2C 32 2C 22 24 22 00 31 0E 9C 13 |..1,8,2,"$".1...|
00000620: 81 58 B2 31 A4 31 34 31 3A A1 23 31 2C 41 24 3A |.X.1.141:.#1,A$:|
00000630: 82 00 71 0E A6 13 54 24 28 30 29 B2 22 44 45 4C |..q...T$(0)."DEL|
00000640: 22 3A 54 24 28 31 29 B2 22 53 45 51 22 3A 54 24 |":T$(1)."SEQ":T$|
00000650: 28 32 29 B2 22 50 52 47 22 3A 54 24 28 33 29 B2 |(2)."PRG":T$(3).|
00000660: 22 55 53 52 22 3A 54 24 28 34 29 B2 22 52 45 4C |"USR":T$(4)."REL|
00000670: 22 00 80 0E B0 13 4A B2 31 37 3A 8D 35 35 30 30 |".....J.17:.5500|
00000680: 00 8A 0E BA 13 4E 24 B2 42 24 00 92 0E C4 13 4A |.....N$.B$.....J|
00000690: B2 32 00 9C 0E CE 13 8D 35 35 30 30 00 A6 0E D8 |.2......5500....|
000006A0: 13 49 24 B2 42 24 00 B1 0E DD 13 A1 23 31 2C 41 |.I$.B$......#1,A|
000006B0: 24 00 B9 0E E2 13 4A B2 32 00 C3 0E EC 13 8D 35 |$.....J.2......5|
000006C0: 35 30 30 00 CD 0E F6 13 4F 24 B2 42 24 00 D9 0E |500.....O$.B$...|
000006D0: 00 14 81 4C B2 31 A4 38 38 00 E4 0E 0A 14 A1 23 |...L.1.88......#|
000006E0: 31 2C 41 24 00 EA 0E 14 14 82 00 0C 0F 28 14 99 |1,A$.........(..|
000006F0: C7 28 31 34 37 29 22 44 49 53 4B 20 4E 41 4D 45 |.(147)"DISK NAME|
00000700: 3A 22 4E 24 2C 22 49 44 3A 22 49 24 00 28 0F 29 |:"N$,"ID:"I$.(.)|
00000710: 14 99 22 4C 45 4E 47 54 48 22 2C 22 54 59 50 45 |.."LENGTH","TYPE|
00000720: 22 2C 22 4E 41 4D 45 22 00 33 0F 2D 14 81 50 B2 |","NAME".3.-..P.|
00000730: 31 A4 38 00 44 0F 32 14 A1 23 31 2C 54 24 2C 41 |1.8.D.2..#1,T$,A|
00000740: 24 2C 41 24 00 59 0F 3C 14 8B 54 24 B2 22 22 A7 |$,A$.Y.<..T$."".|
00000750: 54 24 B2 C7 28 31 32 38 29 00 62 0F 46 14 4A B2 |T$..(128).b.F.J.|
00000760: 31 35 00 6C 0F 50 14 8D 35 35 30 30 00 76 0F 5A |15.l.P..5500.v.Z|
00000770: 14 4E 24 B2 42 24 00 9F 0F 64 14 A1 23 31 2C 41 |.N$.B$...d..#1,A|
00000780: 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 |$,A$,A$,A$,A$,A$|
00000790: 2C 41 24 2C 41 24 2C 41 24 2C 4C 24 2C 48 24 00 |,A$,A$,A$,L$,H$.|
000007A0: C9 0F 69 14 4C B2 C6 28 4C 24 AA C7 28 30 29 29 |..i.L..(L$..(0))|
000007B0: AA 32 35 36 AC C6 28 48 24 AA C7 28 30 29 29 3A |.256..(H$..(0)):|
000007C0: 8B 4C B2 30 A7 35 32 36 30 00 DA 0F 6B 14 8B 53 |.L.0.5260...k..S|
000007D0: 54 A7 A0 31 3A 89 35 35 36 30 00 F2 0F 6E 14 99 |T..1:.5560...n..|
000007E0: 4C 2C 54 24 28 C6 28 54 24 29 AB 31 32 38 29 2C |L,T$(.(T$).128),|
000007F0: 4E 24 00 FA 0F 73 14 A1 41 24 00 0E 10 74 14 8B |N$...s..A$...t..|
00000800: 41 24 B2 C7 28 33 32 29 A7 8D 35 35 39 30 00 21 |A$..(32)..5590.!|
00000810: 10 82 14 8B 50 B3 38 A7 A1 23 31 2C 41 24 2C 41 |....P.8..#1,A$,A|
00000820: 24 00 2E 10 8C 14 82 50 3A 89 35 31 36 35 00 38 |$......P:.5165.8|
00000830: 10 7C 15 42 24 B2 22 22 00 43 10 86 15 81 4C B2 |.|.B$."".C....L.|
00000840: 30 A4 4A 00 4E 10 90 15 A1 23 31 2C 41 24 00 72 |0.J.N....#1,A$.r|
00000850: 10 9A 15 8B 41 24 B3 B1 C7 28 39 36 29 A7 8B 41 |....A$...(96)..A|
00000860: 24 B3 B1 C7 28 31 36 30 29 A7 42 24 B2 42 24 AA |$...(160).B$.B$.|
00000870: 41 24 00 78 10 A4 15 82 00 7E 10 AE 15 8E 00 A4 |A$.x.....~......|
00000880: 10 B8 15 99 A3 37 29 22 11 50 52 45 53 53 20 52 |.....7)".PRESS R|
00000890: 45 54 55 52 4E 20 46 4F 52 20 4D 41 49 4E 20 4D |ETURN FOR MAIN M|
000008A0: 45 4E 55 22 00 B8 10 C2 15 A1 41 24 3A 8B 41 24 |ENU"......A$:.A$|
000008B0: B2 22 22 A7 35 35 37 30 00 C0 10 CC 15 89 31 30 |."".5570......10|
000008C0: 00 D4 10 D6 15 A1 41 24 3A 8B 41 24 B2 22 22 A7 |......A$:.A$."".|
000008D0: 35 35 39 30 00 E4 10 E0 15 8B 41 24 B2 C7 28 33 |5590......A$..(3|
000008E0: 32 29 A7 8E 00 EE 10 EA 15 89 35 35 39 30 00 F9 |2)........5590..|
000008F0: 10 70 17 99 22 93 22 3A 80 00 16 11 58 1B 99 22 |.p..".":....X.."|
00000900: 93 11 11 46 4F 52 4D 41 54 20 52 4F 55 54 49 4E |...FORMAT ROUTIN|
00000910: 45 2E 2E 2E 2E 22 00 2D 11 59 1B 99 22 11 11 5B |E....".-.Y.."..[|
00000920: 46 31 5D 20 54 4F 20 41 42 4F 52 54 22 00 47 11 |F1] TO ABORT".G.|
00000930: 5A 1B 99 22 11 11 5B 46 37 5D 20 54 4F 20 43 4F |Z.."..[F7] TO CO|
00000940: 4E 54 49 4E 55 45 22 00 5B 11 5B 1B A1 41 24 3A |NTINUE".[.[..A$:|
00000950: 8B 41 24 B2 22 22 A7 37 30 30 33 00 6A 11 5C 1B |.A$."".7003.j.\.|
00000960: 8B 41 24 B2 22 85 22 A7 31 30 00 7B 11 5D 1B 8B |.A$.".".10.{.]..|
00000970: 41 24 B2 22 88 22 A7 37 30 31 30 00 85 11 5F 1B |A$.".".7010..._.|
00000980: 89 37 30 30 33 00 9E 11 62 1B 99 22 11 11 44 49 |.7003...b.."..DI|
00000990: 53 4B 20 4E 41 4D 45 22 3B 3A 85 44 4E 24 00 B4 |SK NAME";:.DN$..|
000009A0: 11 6C 1B 99 22 11 44 49 53 4B 20 49 44 22 3B 3A |.l..".DISK ID";:|
000009B0: 85 49 44 24 00 EC 11 76 1B 99 22 11 49 4E 53 45 |.ID$...v..".INSE|
000009C0: 52 54 20 44 49 53 4B 20 54 4F 20 42 45 20 46 4F |RT DISK TO BE FO|
000009D0: 52 4D 41 54 54 45 44 20 41 4E 44 20 50 52 45 53 |RMATTED AND PRES|
000009E0: 53 20 20 20 52 45 54 55 52 4E 21 22 00 00 12 80 |S RETURN!"....|
000009F0: 1B A1 41 24 3A 8B 41 24 B2 22 22 A7 37 30 34 30 |..A$:.A$."".7040|
00000A00: 00 0C 12 8A 1B 42 24 B2 22 4E 3A 22 00 17 12 94 |.....B$."N:"....|
00000A10: 1B 43 24 B2 22 2C 22 00 2C 12 9E 1B 44 24 B2 42 |.C$.",".,...D$.B|
00000A20: 24 AA 44 4E 24 AA 43 24 AA 49 44 24 00 59 12 A3 |$.DN$.C$.ID$.Y..|
00000A30: 1B 99 22 93 11 11 11 11 11 11 11 11 11 57 4F 52 |.."..........WOR|
00000A40: 4B 49 4E 47 2C 20 44 4F 20 4E 4F 54 20 44 49 53 |KING, DO NOT DIS|
00000A50: 54 55 52 42 2E 2E 2E 2E 22 00 66 12 A8 1B 9F 31 |TURB....".f....1|
00000A60: 35 2C 38 2C 31 35 00 71 12 B2 1B 98 31 35 2C 44 |5,8,15.q....15,D|
00000A70: 24 00 79 12 BC 1B A0 31 35 00 81 12 C6 1B 89 31 |$.y....15......1|
00000A80: 30 00 B4 12 40 1F 99 22 93 11 11 1D 1D 57 4F 52 |0...@..".....WOR|
00000A90: 4B 49 4E 47 2C 20 50 4C 45 41 53 45 20 44 4F 20 |KING, PLEASE DO |
00000AA0: 4E 4F 54 20 44 49 53 54 55 52 42 2E 2E 2E 2E 2E |NOT DISTURB.....|
00000AB0: 2E 2E 2E 22 00 C1 12 41 1F 9F 31 35 2C 38 2C 31 |..."...A..15,8,1|
00000AC0: 35 00 CD 12 42 1F 98 31 35 2C 22 56 22 00 D5 12 |5...B..15,"V"...|
00000AD0: 43 1F A0 31 35 00 DD 12 44 1F 89 31 30 00 06 13 |C..15...D..10...|
00000AE0: 28 23 99 22 93 11 31 53 54 20 56 41 52 49 41 42 |(#."..1ST VARIAB|
00000AF0: 4C 45 20 44 45 53 43 52 49 42 45 53 20 45 52 52 |LE DESCRIBES ERR|
00000B00: 4F 52 20 23 24 22 00 30 13 2A 23 99 22 11 32 4E |OR #$".0.*#.".2N|
00000B10: 44 20 56 41 52 49 41 42 4C 45 20 49 53 20 45 52 |D VARIABLE IS ER|
00000B20: 52 4F 52 20 44 45 53 43 52 49 50 54 49 4F 4E 22 |ROR DESCRIPTION"|
00000B30: 00 55 13 2B 23 99 22 11 33 52 44 20 56 41 52 49 |.U.+#.".3RD VARI|
00000B40: 41 42 4C 45 20 49 53 20 54 52 41 43 4B 20 4E 55 |ABLE IS TRACK NU|
00000B50: 4D 42 45 52 22 00 7B 13 2C 23 99 22 11 34 54 48 |MBER".{.,#.".4TH|
00000B60: 20 56 41 52 49 41 42 4C 45 20 49 53 20 53 45 43 | VARIABLE IS SEC|
00000B70: 54 4F 52 20 4E 55 4D 42 45 52 22 00 88 13 2D 23 |TOR NUMBER"...-#|
00000B80: 9F 31 35 2C 38 2C 31 35 00 9C 13 2E 23 84 31 35 |.15,8,15....#.15|
00000B90: 2C 41 24 2C 42 24 2C 43 24 2C 44 24 00 B1 13 2F |,A$,B$,C$,D$.../|
00000BA0: 23 99 22 11 11 22 41 24 2C 42 24 2C 43 24 2C 44 |#.".."A$,B$,C$,D|
00000BB0: 24 00 B9 13 30 23 A0 31 35 00 DB 13 31 23 99 A3 |$...0#.15...1#..|
00000BC0: 31 30 29 22 11 11 52 45 54 55 52 4E 20 46 4F 52 |10)"..RETURN FOR|
00000BD0: 20 4D 41 49 4E 20 4D 45 4E 55 22 00 EF 13 32 23 | MAIN MENU"...2#|
00000BE0: A1 41 24 3A 8B 41 24 B2 22 22 A7 39 30 31 30 00 |.A$:.A$."".9010.|
00000BF0: F7 13 3C 23 89 31 30 00 22 14 11 27 83 22 4E 41 |..<#.10."..'."NA|
00000C00: 4D 45 22 2C 22 41 44 44 52 45 53 53 22 2C 22 43 |ME","ADDRESS","C|
00000C10: 49 54 59 22 2C 22 53 54 41 54 45 22 2C 22 5A 49 |ITY","STATE","ZI|
00000C20: 50 22 00 2F 14 12 27 83 22 50 48 4F 4E 45 22 00 |P"./..'."PHONE".|
00000C30: 44 14 E0 2E 99 22 11 50 52 45 53 53 20 52 45 54 |D....".PRESS RET|
00000C40: 55 52 4E 22 00 59 14 E1 2E A1 41 24 3A 8B 41 24 |URN".Y....A$:.A$|
00000C50: B2 22 22 A7 31 32 30 30 31 00 5F 14 E2 2E 8E 00 |."".12001._.....|
00000C60: 00 00 |.. |
.......53280,0:.53281,6. ....".".=....".
.".15)".MAIN. .MENU".[...."....[1]. = .
READ FILES".Y.(.."...[2]. = .WRITE FILES
"...2.."...[3]. = .SCRATCH FILES"...7.."
...[4]. = .RENAME FILE".N.F.."...[5]. =
.QUIT"...P.."...[6]. = .FORMAT DISK"...Z
.."...[7]. = .VALIDATE DISK".1.D.."...[8
]. = .READ ERROR CHANNEL".R.N.."...[9].
= .LIST DIRECTORY".M....".".15)"..CHOOSE
ONE"......A$:.A$."".140......A$."1".A$.
"9".140... .A.E(A$).W....A.1000,2000,300
0,4000,6000,7000,8000,9000,5000......10.
.....".".14)".READ ROUTINE":......."FILE
TO READ";Z$.H...D$.G(34).G(48).G(58).Z$
.G(44).G(83).G(44).G(82).X...D$.D$.G(34)
.C....T.1.6.N....C$(T).T.........."...."
......2,8,2,D$......T.1.6......2,B$(T)..
....C$(T)":",B$(T).......F.....M... 2.X.
...12000...$..10...P.....Q.."...WRITE FI
LES"...R..T.1.6...S..C$(T).(.Z..C$(T)":"
;:.B$(T).......E...D$.G(34).G(48).G(58).
B$(1).G(44).G(83).G(44).G(87).U...D$.D$.
G(34)......2,8,2,D$......T.1.6:.2,B$(T):
.. ... 2... ..10......"..SCRATCH FILES".
.....".WHAT FILE DO YOU WANT SCRATCHED".
.....N$.....B$."S:".....C$.B$.N$......".
.WORKING, DO NOT DISTURB.....".;....15,8
,15.F....15,C$.N... 15.V.A..10.L. .."..R
ENAME FILES"......".WHAT IS OLD FILE NAM
E";:.OF$......".WHAT IS NEW FILE NAME";:
.NF$.....B$."R:".K...C$."=".....D$.B$.NF
$.C$.OF$......".WORKING, DO NOT DISTURB.
..."......15,8,15......15,D$.$... 15.,..
..10.K....".DIRECTORY LISTING, PRESS SPA
CE BAR TO HALT LISTING,";......".AGAIN
TO CONTINUE."......".IF DIRECTORY FAILS
TO APPEAR,".P....".PRESS RETURN AND TRY
AGAIN."......".READING DIRECTORY, PLEAS
E WAIT....."......T.1.5000:.......1,8,2,
"$".1....X.1.141:.#1,A$:..Q...T$(0)."DEL
":T$(1)."SEQ":T$(2)."PRG":T$(3)."USR":T$
(4)."REL".....J.17:.5500.....N$.B$...D.J
.2...N..5500...X.I$.B$......#1,A$.....J.
2.C....5500.M...O$.B$.Y....L.1.88......#
1,A$.........(..G(147)"DISK NAME:"N$,"ID
:"I$.(.).."LENGTH","TYPE","NAME".3.-..P.
1.8.D.2..#1,T$,A$,A$.Y.<..T$."".T$.G(128
).B.F.J.15.L.P..5500.V.Z.N$.B$...D..#1,A
$,A$,A$,A$,A$,A$,A$,A$,A$,L$,H$.I.I.L.F(
L$.G(0)).256.F(H$.G(0)):.L.0.5260.Z.K..S
T. 1:.5560...N..L,T$(F(T$).128),N$...S..
A$...T..A$.G(32)..5590.!....P.8..#1,A$,A
$......P:.5165.8.|.B$."".C....L.0.J.N...
.#1,A$.R....A$..G(96)..A$..G(160).B$.B$.
A$.X.....~...........7)".PRESS RETURN FO
R MAIN MENU"...B..A$:.A$."".5570...L..10
.T.V..A$:.A$."".5590......A$.G(32)......
..5590...P..".":....X.."...FORMAT ROUTIN
E....".-.Y.."..[F1] TO ABORT".G.Z.."..[F
7] TO CONTINUE".[.[..A$:.A$."".7003.J.\.
.A$.".".10.{.]..A$.".".7010..._..7003...
B.."..DISK NAME";:.DN$...L..".DISK ID";:
.ID$...V..".INSERT DISK TO BE FORMATTED
AND PRESS RETURN!"......A$:.A$."".7040
.....B$."N:".....C$.",".,...D$.B$.DN$.C$
.ID$.Y...."..........WORKING, DO NOT DIS
TURB....".F....15,8,15.Q....15,D$.Y... 1
5...F..10...@..".....WORKING, PLEASE DO
NOT DISTURB........".A.A..15,8,15.M.B..1
5,"V".U.C. 15...D..10...(#."..1ST VARIAB
LE DESCRIBES ERROR #$".0.*#.".2ND VARIAB
LE IS ERROR DESCRIPTION".U.+#.".3RD VARI
ABLE IS TRACK NUMBER".{.,#.".4TH VARIABL
E IS SECTOR NUMBER"...-#.15,8,15....#.15
,A$,B$,C$,D$.../#.".."A$,B$,C$,D$...0# 1
5...1#..10)"..RETURN FOR MAIN MENU"...2#
.A$:.A$."".9010...<#.10."..'."NAME","ADD
RESS","CITY","STATE","ZIP"./..'."PHONE".
D....".PRESS RETURN".Y....A$:.A$."".1200
1._.......
> CLICK IMAGE PREVIEW FOR FULL MODAL