DISKHULP
FILE INFORMATION
FILENAME(S): DISKHULP
FILE TYPE(S): PRG
FILE SIZE: 3.7K
FIRST SEEN: 2025-11-30 21:11:20
APPEARS ON: 1 disk(s)
FILE HASH
349766e301370bc7a430559175f7b3ed94db3af2b90d3c63ab0db450b8df01b5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HULPPROGRAMMA S | DISKHULP | PRG | DuncanTwain | 2 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 01 00 8F 20 44 49 53 4B 2D 48 55 4C |..'.... DISK-HUL| 00000010: 50 20 2F 20 43 42 4D 2D 36 34 20 26 20 31 35 34 |P / CBM-64 & 154| 00000020: 31 20 44 52 49 56 45 00 3B 08 02 00 8F 20 44 4F |1 DRIVE.;.... DO| 00000030: 4F 52 20 4D 2E 4B 49 54 5A 45 4E 00 5A 08 03 00 |OR M.KITZEN.Z...| 00000040: 8F 20 55 49 54 20 45 4C 53 4C 4F 4F 20 2F 20 30 |. UIT ELSLOO / 0| 00000050: 34 34 30 32 2D 37 32 39 31 33 00 60 08 04 00 8F |4402-72913.`....| 00000060: 00 9F 08 0A 00 86 4E 24 28 31 34 34 29 2C 4E 28 |......N$(144),N(| 00000070: 31 34 34 29 3A 4C 24 B2 C7 28 30 29 3A 52 24 B2 |144):L$..(0):R$.| 00000080: C7 28 31 33 29 3A 97 35 33 32 38 30 2C 36 3A 97 |.(13):.53280,6:.| 00000090: 35 33 32 38 31 2C 36 3A 50 24 B2 22 20 20 22 00 |53281,6:P$." ".| 000000A0: EF 08 14 00 44 24 B2 52 24 AA 22 44 52 55 4B 20 |....D$.R$."DRUK | 000000B0: 4F 50 20 45 45 4E 20 54 4F 45 54 53 2E 22 3A 53 |OP EEN TOETS.":S| 000000C0: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." | 000000D0: 20 20 20 20 20 20 20 22 3A 4C B2 31 35 3A 55 31 | ":L.15:U1| 000000E0: 24 B2 22 55 31 20 32 20 30 20 31 38 20 30 22 00 |$."U1 2 0 18 0".| 000000F0: 37 09 1E 00 4D 24 B2 C7 28 38 29 AA C7 28 31 34 |7...M$..(8)..(14| 00000100: 32 29 AA 22 93 05 44 49 53 4B 2D 48 55 4C 50 20 |2)."..DISK-HULP | 00000110: 20 20 20 44 4F 4F 52 20 4D 2E 4B 49 54 5A 45 4E | DOOR M.KITZEN| 00000120: 20 32 33 20 4D 41 41 52 54 20 31 39 38 37 22 3A | 23 MAART 1987":| 00000130: 81 49 B2 31 A4 34 30 00 81 09 28 00 4D 24 B2 4D |.I.1.40...(.M$.M| 00000140: 24 AA 22 23 22 3A 82 3A 99 4D 24 22 11 20 20 20 |$."#":.:.M$". | 00000150: 20 20 4D 41 41 4B 20 55 57 20 4B 45 55 5A 45 20 | MAAK UW KEUZE | 00000160: 28 58 20 3D 20 53 54 4F 50 50 45 4E 29 3A 22 3A |(X = STOPPEN):":| 00000170: 55 32 24 B2 22 55 32 20 32 20 30 20 31 38 20 30 |U2$."U2 2 0 18 0| 00000180: 22 00 CE 09 32 00 99 22 11 41 20 3D 20 44 49 52 |"...2..".A = DIR| 00000190: 45 43 54 4F 52 59 22 52 24 22 42 20 3D 20 56 41 |ECTORY"R$"B = VA| 000001A0: 4C 49 44 41 54 45 20 45 45 4E 20 44 49 53 4B 22 |LIDATE EEN DISK"| 000001B0: 52 24 22 43 20 3D 20 53 43 52 41 54 43 48 20 22 |R$"C = SCRATCH "| 000001C0: 3B 3A 4B 24 28 31 29 B2 22 12 4E 45 45 22 00 15 |;:K$(1).".NEE"..| 000001D0: 0A 3C 00 99 22 45 45 4E 20 46 49 4C 45 22 52 24 |.<.."EEN FILE"R$| 000001E0: 22 44 20 3D 20 56 45 52 41 4E 44 45 52 20 46 49 |"D = VERANDER FI| 000001F0: 4C 45 4E 41 41 4D 22 52 24 22 45 20 3D 20 53 43 |LENAAM"R$"E = SC| 00000200: 52 41 54 43 48 20 4D 45 45 52 44 45 52 45 20 46 |RATCH MEERDERE F| 00000210: 49 4C 45 53 22 00 5D 0A 46 00 99 22 46 20 3D 20 |ILES".].F.."F = | 00000220: 46 4F 52 4D 41 54 54 45 52 45 4E 22 52 24 22 47 |FORMATTEREN"R$"G| 00000230: 20 3D 20 57 49 53 20 44 49 52 45 43 54 4F 52 59 | = WIS DIRECTORY| 00000240: 22 52 24 22 48 20 3D 20 44 49 53 4B 2D 4E 41 41 |"R$"H = DISK-NAA| 00000250: 4D 20 56 45 52 41 4E 44 45 52 45 4E 22 00 A3 0A |M VERANDEREN"...| 00000260: 50 00 99 22 49 20 3D 20 44 49 53 4B 2D 49 44 20 |P.."I = DISK-ID | 00000270: 56 45 52 41 4E 44 45 52 45 4E 22 52 24 22 4A 20 |VERANDEREN"R$"J | 00000280: 3D 20 4F 52 49 47 49 4E 45 4C 45 20 44 49 53 4B |= ORIGINELE DISK| 00000290: 2D 48 45 41 44 45 52 20 48 45 52 53 54 45 4C 4C |-HEADER HERSTELL| 000002A0: 45 4E 22 00 E0 0A 5A 00 4B 24 28 30 29 B2 22 12 |EN"...Z.K$(0).".| 000002B0: 4A 41 22 3A 97 36 34 39 2C 31 3A 97 31 39 38 2C |JA":.649,1:.198,| 000002C0: 30 3A 92 31 39 38 2C 31 3A A1 41 24 3A 41 B2 C6 |0:.198,1:.A$:A..| 000002D0: 28 41 24 29 AB 36 34 3A 8B 41 B3 30 A7 41 B2 30 |(A$).64:.A.0.A.0| 000002E0: 00 F1 0A 64 00 8B 41 B2 32 34 A7 99 22 93 22 3A |...d..A.24..".":| 000002F0: 80 00 28 0B 6E 00 91 41 89 31 35 30 2C 32 31 30 |..(.n..A.150,210| 00000300: 2C 32 32 30 2C 32 34 30 2C 32 37 30 2C 34 32 30 |,220,240,270,420| 00000310: 2C 34 36 30 2C 34 38 30 2C 35 32 30 2C 35 36 30 |,460,480,520,560| 00000320: 3A 9F 31 2C 38 2C 31 35 00 33 0B 78 00 98 31 2C |:.1,8,15.3.x..1,| 00000330: 22 49 22 00 72 0B 82 00 84 31 2C 45 24 2C 41 24 |"I".r....1,E$,A$| 00000340: 2C 42 24 2C 43 24 3A 99 22 11 44 49 53 4B 2D 53 |,B$,C$:.".DISK-S| 00000350: 54 41 54 55 53 3A 20 20 12 22 45 24 22 2C 22 41 |TATUS: ."E$","A| 00000360: 24 22 2C 22 42 24 22 2C 22 43 24 52 24 44 24 3A |$","B$","C$R$D$:| 00000370: A0 31 00 86 0B 8C 00 97 31 39 38 2C 30 3A 92 31 |.1......198,0:.1| 00000380: 39 38 2C 31 3A 8A 00 BD 0B 96 00 99 22 93 44 49 |98,1:.......".DI| 00000390: 52 45 43 54 4F 52 59 22 3A 8D 37 30 30 3A 9F 31 |RECTORY":.700:.1| 000003A0: 2C 38 2C 30 2C 22 24 22 3A A1 23 31 2C 41 24 2C |,8,0,"$":.#1,A$,| 000003B0: 41 24 2C 41 24 2C 41 24 3A 8D 37 39 30 00 DA 0B |A$,A$,A$:.790...| 000003C0: A0 00 A1 23 31 2C 41 24 2C 41 24 3A 8B 41 24 B2 |...#1,A$,A$:.A$.| 000003D0: 22 22 A7 A0 31 3A 89 31 38 30 00 F7 0B AA 00 8D |""..1:.180......| 000003E0: 37 39 30 3A 43 B2 43 AA 42 3A 92 31 39 37 2C 36 |790:C.C.B:.197,6| 000003F0: 34 3A 89 31 36 30 22 00 31 0C B4 00 99 22 9D 9D |4:.160".1...."..| 00000400: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 20 28 3D 22 |............ (="| 00000410: B5 28 42 AD 36 2E 36 34 AA 2E 35 29 22 25 29 2E |.(B.6.64..5)"%).| 00000420: 22 3A 8B 43 B2 36 36 34 A7 99 44 24 3A 89 31 34 |":.C.664..D$:.14| 00000430: 30 00 64 0C BE 00 99 22 11 57 45 52 4B 45 4C 49 |0.d....".WERKELI| 00000440: 4A 4B 20 41 41 4E 54 41 4C 20 42 4C 4F 43 4B 53 |JK AANTAL BLOCKS| 00000450: 20 46 52 45 45 20 49 53 22 36 36 34 AA 42 AB 43 | FREE IS"664.B.C| 00000460: 22 9D 21 22 00 9D 0C C8 00 99 22 11 57 49 4C 54 |".!"......".WILT| 00000470: 20 55 20 45 45 4E 20 56 41 4C 49 44 41 54 45 20 | U EEN VALIDATE | 00000480: 28 4A 2F 4E 29 3F 22 3A 8D 36 32 30 3A 9F 31 2C |(J/N)?":.620:.1,| 00000490: 38 2C 31 35 2C 22 56 22 3A 89 31 33 30 00 B3 0C |8,15,"V":.130...| 000004A0: D2 00 99 22 93 56 41 4C 49 44 41 54 45 22 3A 89 |...".VALIDATE":.| 000004B0: 32 30 30 00 E1 0C DC 00 99 22 93 53 43 52 41 54 |200......".SCRAT| 000004C0: 43 48 20 45 45 4E 20 46 49 4C 45 11 22 3A 99 22 |CH EEN FILE.":."| 000004D0: 46 49 4C 45 4E 41 41 4D 3A 20 22 3B 3A 8D 36 34 |FILENAAM: ";:.64| 000004E0: 30 00 22 0D E6 00 99 22 11 57 49 4C 54 20 55 20 |0."....".WILT U | 000004F0: 12 22 4E 24 22 92 20 53 43 52 41 54 43 48 45 4E |."N$". SCRATCHEN| 00000500: 20 28 4A 2F 4E 29 3F 22 3A 8D 36 32 30 3A 9F 31 | (J/N)?":.620:.1| 00000510: 2C 38 2C 31 35 2C 22 53 3A 22 AA 4E 24 3A 89 31 |,8,15,"S:".N$:.1| 00000520: 33 30 00 60 0D F0 00 99 22 93 56 45 52 41 4E 44 |30.`....".VERAND| 00000530: 45 52 20 46 49 4C 45 4E 41 41 4D 22 52 24 22 11 |ER FILENAAM"R$".| 00000540: 4F 55 44 45 20 4E 41 41 4D 20 20 20 3A 22 3B 3A |OUDE NAAM :";:| 00000550: 8D 36 34 30 3A 4F 24 B2 4E 24 3A 4E 24 B2 22 22 |.640:O$.N$:N$.""| 00000560: 00 92 0D FA 00 99 22 11 4E 49 45 55 57 45 20 4E |......".NIEUWE N| 00000570: 41 41 4D 20 3A 22 3B 3A 8D 36 34 30 3A 99 22 11 |AAM :";:.640:.".| 00000580: 56 45 52 41 4E 44 45 52 45 4E 20 28 4A 2F 4E 29 |VERANDEREN (J/N)| 00000590: 3F 22 00 B7 0D 04 01 8D 36 32 30 3A 9F 31 2C 38 |?"......620:.1,8| 000005A0: 2C 31 35 2C 22 52 3A 22 AA 4E 24 AA 22 3D 22 AA |,15,"R:".N$."=".| 000005B0: 4F 24 3A 89 31 33 30 00 FA 0D 0E 01 99 22 93 53 |O$:.130......".S| 000005C0: 43 52 41 54 43 48 20 4D 45 45 52 44 45 52 45 20 |CRATCH MEERDERE | 000005D0: 46 49 4C 45 53 22 52 24 22 11 44 49 52 45 43 54 |FILES"R$".DIRECT| 000005E0: 4F 52 59 20 57 4F 52 44 54 20 49 4E 47 45 4C 45 |ORY WORDT INGELE| 000005F0: 5A 45 4E 2E 22 3A 8D 37 30 30 00 23 0E 18 01 9F |ZEN.":.700.#....| 00000600: 31 2C 38 2C 30 2C 22 24 22 3A A1 23 31 2C 41 24 |1,8,0,"$":.#1,A$| 00000610: 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 3A |,A$,A$,A$,A$,A$:| 00000620: 41 B2 30 00 49 0E 22 01 A1 23 31 2C 41 24 3A 91 |A.0.I."..#1,A$:.| 00000630: C3 28 41 24 29 89 32 39 30 3A A1 23 31 2C 41 24 |.(A$).290:.#1,A$| 00000640: 2C 41 24 2C 41 24 2C 41 24 00 6A 0E 2C 01 A1 23 |,A$,A$,A$.j.,..#| 00000650: 31 2C 41 24 3A 8B 41 24 B3 B1 C7 28 33 34 29 AF |1,A$:.A$...(34).| 00000660: 41 24 B3 B1 22 22 A7 33 30 30 00 83 0E 36 01 8B |A$.."".300...6..| 00000670: 41 24 B2 22 22 A7 A0 31 3A 41 B2 41 AB 31 3A 89 |A$.""..1:A.A.1:.| 00000680: 33 34 30 00 AD 0E 40 01 A1 23 31 2C 41 24 3A 8B |340...@..#1,A$:.| 00000690: 41 24 B3 B1 C7 28 33 34 29 A7 4E 24 28 41 29 B2 |A$...(34).N$(A).| 000006A0: 4E 24 28 41 29 AA 41 24 3A 89 33 32 30 00 BC 0E |N$(A).A$:.320...| 000006B0: 4A 01 41 B2 41 AA 31 3A 89 32 39 30 00 FB 0E 54 |J.A.A.1:.290...T| 000006C0: 01 99 3A 81 49 B2 30 A4 41 3A 99 4E 24 28 49 29 |..:.I.0.A:.N$(I)| 000006D0: A6 32 30 AB B9 28 30 29 29 22 53 43 52 41 54 43 |.20..(0))"SCRATC| 000006E0: 48 45 4E 20 28 4A 2F 4E 29 3F 9D 9D 9D 9D 9D 9D |HEN (J/N)?......| 000006F0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 27 0F 5E 01 |.........";.'.^.| 00000700: 8D 37 33 30 3A 4B B2 31 3A 99 22 9D 22 3B 3A 8B |.730:K.1:.".";:.| 00000710: 41 24 B2 22 4A 22 A7 4B B2 30 3A 4E 28 49 29 B2 |A$."J".K.0:N(I).| 00000720: 31 3A 47 B2 47 AA 31 00 53 0F 68 01 99 4B 24 28 |1:G.G.1.S.h..K$(| 00000730: 4B 29 22 92 20 20 20 20 20 20 20 20 20 20 20 20 |K)". | 00000740: 20 20 22 3A 82 3A 8B 47 B2 30 A7 99 44 24 3A 89 | ":.:.G.0..D$:.| 00000750: 31 34 30 00 8D 0F 72 01 99 22 11 56 41 4C 49 44 |140...r..".VALID| 00000760: 41 54 45 20 4E 41 20 48 45 54 20 53 43 52 41 54 |ATE NA HET SCRAT| 00000770: 43 48 45 4E 20 28 4A 2F 4E 29 3F 22 3A 8D 37 33 |CHEN (J/N)?":.73| 00000780: 30 3A 8B 41 24 B2 22 4A 22 A7 56 B2 31 00 CD 0F |0:.A$."J".V.1...| 00000790: 7C 01 99 22 11 44 4F 4F 52 47 41 41 4E 20 4D 45 ||..".DOORGAAN ME| 000007A0: 54 20 53 43 52 41 54 43 48 45 4E 20 28 4A 2F 4E |T SCRATCHEN (J/N| 000007B0: 29 3F 22 3A 8D 36 32 30 3A 99 22 11 47 45 53 43 |)?":.620:.".GESC| 000007C0: 52 41 54 43 48 54 20 5A 49 4A 4E 3A 22 00 FF 0F |RATCHT ZIJN:"...| 000007D0: 86 01 9F 31 2C 38 2C 31 35 3A 81 49 B2 30 A4 41 |...1,8,15:.I.0.A| 000007E0: 3A 8B 4E 28 49 29 A7 98 31 2C 22 53 3A 22 AA 4E |:.N(I)..1,"S:".N| 000007F0: 24 28 49 29 3A 99 22 2D 20 22 4E 24 28 49 29 00 |$(I):."- "N$(I).| 00000800: 11 10 90 01 82 3A 8B 56 B2 31 A7 98 31 2C 22 56 |.....:.V.1..1,"V| 00000810: 22 00 1A 10 9A 01 89 31 33 30 00 5E 10 A4 01 99 |"......130.^....| 00000820: 22 93 46 4F 52 4D 41 54 54 45 52 45 4E 11 22 52 |".FORMATTEREN."R| 00000830: 24 22 44 49 53 4B 2D 4E 41 41 4D 3A 20 22 3B 3A |$"DISK-NAAM: ";:| 00000840: 8D 36 34 30 3A 4F 24 B2 4E 24 3A 4E 24 B2 22 22 |.640:O$.N$:N$.""| 00000850: 3A 99 22 11 49 44 3A 20 20 20 20 20 22 3B 00 9D |:.".ID: ";..| 00000860: 10 AE 01 4C B2 31 3A 8D 36 34 30 3A 4E 24 B2 22 |...L.1:.640:N$."| 00000870: 2C 22 AA 4E 24 3A 99 22 11 57 49 4C 54 20 55 20 |,".N$:.".WILT U | 00000880: 45 43 48 54 20 46 4F 52 4D 41 54 54 45 52 45 4E |ECHT FORMATTEREN| 00000890: 20 28 4A 2F 4E 29 3F 22 3A 8D 36 32 30 00 C8 10 | (J/N)?":.620...| 000008A0: B8 01 9F 31 2C 38 2C 31 35 3A 98 31 2C 22 4D 2D |...1,8,15:.1,"M-| 000008B0: 57 22 C7 28 38 31 29 C7 28 30 29 C7 28 31 29 C7 |W".(81).(0).(1).| 000008C0: 28 32 35 35 29 3A A0 31 00 E4 10 C2 01 9F 31 2C |(255):.1......1,| 000008D0: 38 2C 31 35 2C 22 4E 3A 22 AA 4F 24 AA 4E 24 3A |8,15,"N:".O$.N$:| 000008E0: 89 31 33 30 00 20 11 CC 01 99 22 93 57 49 53 20 |.130. ....".WIS | 000008F0: 44 49 52 45 43 54 4F 52 59 11 22 52 24 22 44 49 |DIRECTORY."R$"DI| 00000900: 53 4B 2D 4E 41 41 4D 3A 20 22 3B 3A 8D 36 34 30 |SK-NAAM: ";:.640| 00000910: 3A 99 22 11 57 49 4C 54 20 55 20 44 45 20 22 3B |:.".WILT U DE ";| 00000920: 00 5E 11 D6 01 99 22 44 49 52 45 43 54 4F 52 59 |.^...."DIRECTORY| 00000930: 20 45 43 48 54 20 57 49 53 53 45 4E 20 28 4A 2F | ECHT WISSEN (J/| 00000940: 4E 29 3F 22 3A 8D 36 32 30 3A 9F 31 2C 38 2C 31 |N)?":.620:.1,8,1| 00000950: 35 2C 22 4E 3A 22 AA 4E 24 3A 89 31 33 30 00 9C |5,"N:".N$:.130..| 00000960: 11 E0 01 99 22 93 44 49 53 4B 2D 4E 41 41 4D 20 |....".DISK-NAAM | 00000970: 56 45 52 41 4E 44 45 52 45 4E 22 3A 8D 37 35 30 |VERANDEREN":.750| 00000980: 3A 99 22 11 4F 55 44 45 20 4E 41 41 4D 20 20 20 |:.".OUDE NAAM | 00000990: 3A 20 12 22 C8 28 48 24 2C 31 36 29 00 D9 11 EA |: .".(H$,16)....| 000009A0: 01 99 22 11 4E 49 45 55 57 45 20 4E 41 41 4D 20 |..".NIEUWE NAAM | 000009B0: 3A 20 22 3B 3A 8D 36 34 30 3A 99 22 11 44 49 53 |: ";:.640:.".DIS| 000009C0: 4B 2D 4E 41 41 4D 20 56 45 52 41 4E 44 45 52 45 |K-NAAM VERANDERE| 000009D0: 4E 20 28 4A 2F 4E 29 3F 22 00 0B 12 F4 01 8D 36 |N (J/N)?"......6| 000009E0: 32 30 3A 9F 31 2C 38 2C 31 35 3A 9F 32 2C 38 2C |20:.1,8,15:.2,8,| 000009F0: 32 2C 22 23 22 3A 98 31 2C 55 31 24 3A 98 31 2C |2,"#":.1,U1$:.1,| 00000A00: 22 42 2D 50 20 32 20 31 34 34 22 00 34 12 FE 01 |"B-P 2 144".4...| 00000A10: 98 32 2C 4E 24 AA C8 28 53 24 2C 31 36 AB C3 28 |.2,N$..(S$,16..(| 00000A20: 4E 24 29 29 3B 3A 98 31 2C 55 32 24 3A A0 32 3A |N$));:.1,U2$:.2:| 00000A30: 89 31 32 30 00 6B 12 08 02 99 22 93 44 49 53 4B |.120.k....".DISK| 00000A40: 2D 49 44 20 56 45 52 41 4E 44 45 52 45 4E 22 3A |-ID VERANDEREN":| 00000A50: 8D 37 35 30 3A 99 22 11 4F 55 44 45 20 49 44 20 |.750:.".OUDE ID | 00000A60: 20 3A 20 22 C9 28 48 24 2C 35 29 00 AD 12 12 02 | : ".(H$,5).....| 00000A70: 99 22 11 4E 49 45 55 57 45 20 49 44 3A 20 20 20 |.".NIEUWE ID: | 00000A80: 20 20 20 20 20 20 28 35 20 54 45 4B 45 4E 53 29 | (5 TEKENS)| 00000A90: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................| 00000AA0: 9D 9D 22 3B 3A 4C B2 34 3A 8D 36 34 30 00 E2 12 |..";:L.4:.640...| 00000AB0: 1C 02 99 22 11 49 44 20 56 45 52 41 4E 44 45 52 |...".ID VERANDER| 00000AC0: 45 4E 20 28 4A 2F 4E 29 3F 22 3A 8D 36 32 30 3A |EN (J/N)?":.620:| 00000AD0: 9F 31 2C 38 2C 31 35 3A 9F 32 2C 38 2C 32 2C 22 |.1,8,15:.2,8,2,"| 00000AE0: 23 22 00 12 13 26 02 98 31 2C 55 31 24 3A 98 31 |#"...&..1,U1$:.1| 00000AF0: 2C 22 42 2D 50 20 32 20 31 36 32 22 3A 98 32 2C |,"B-P 2 162":.2,| 00000B00: 4E 24 3B 3A 98 31 2C 55 32 24 3A A0 32 3A 89 31 |N$;:.1,U2$:.2:.1| 00000B10: 32 30 00 50 13 30 02 99 22 93 4F 52 49 47 49 4E |20.P.0..".ORIGIN| 00000B20: 45 4C 45 20 44 49 53 4B 2D 48 45 41 44 45 52 20 |ELE DISK-HEADER | 00000B30: 48 45 52 53 54 45 4C 4C 45 4E 22 52 24 3A 9F 31 |HERSTELLEN"R$:.1| 00000B40: 2C 38 2C 31 35 3A 9F 32 2C 38 2C 32 2C 22 23 22 |,8,15:.2,8,2,"#"| 00000B50: 00 71 13 3A 02 98 31 2C 55 31 24 3A 98 31 2C 22 |.q.:..1,U1$:.1,"| 00000B60: 42 2D 50 20 32 20 32 30 30 22 3A A1 23 32 2C 41 |B-P 2 200":.#2,A| 00000B70: 24 00 A5 13 44 02 8B 41 24 B2 22 22 A7 A0 31 3A |$...D..A$.""..1:| 00000B80: A0 32 3A 99 22 48 45 41 44 45 52 20 57 41 53 20 |.2:."HEADER WAS | 00000B90: 41 4C 20 4F 52 49 47 49 4E 45 45 4C 11 22 44 24 |AL ORIGINEEL."D$| 00000BA0: 3A 89 31 34 30 00 DA 13 4E 02 48 24 B2 41 24 3A |:.140...N.H$.A$:| 00000BB0: 81 49 B2 31 A4 32 32 3A A1 23 32 2C 41 24 3A 48 |.I.1.22:.#2,A$:H| 00000BC0: 24 B2 48 24 AA 41 24 3A 82 3A 99 22 4F 52 49 47 |$.H$.A$:.:."ORIG| 00000BD0: 49 4E 45 45 4C 3A 12 22 48 24 00 0F 14 58 02 99 |INEEL:."H$...X..| 00000BE0: 22 11 48 45 52 53 54 45 4C 4C 45 4E 20 28 4A 2F |".HERSTELLEN (J/| 00000BF0: 4E 29 3F 22 3A 8D 36 32 30 3A 98 31 2C 22 42 2D |N)?":.620:.1,"B-| 00000C00: 50 20 32 20 31 34 34 22 3A 98 32 2C 48 24 3B 00 |P 2 144":.2,H$;.| 00000C10: 42 14 62 02 98 31 2C 22 42 2D 50 20 32 20 32 30 |B.b..1,"B-P 2 20| 00000C20: 30 22 3A 81 49 B2 31 A4 32 33 3A 98 32 2C 4C 24 |0":.I.1.23:.2,L$| 00000C30: 3B 3A 82 3A 98 31 2C 55 32 24 3A A0 32 3A 89 31 |;:.:.1,U2$:.2:.1| 00000C40: 32 30 00 58 14 6C 02 8D 37 33 30 3A 8B 41 24 B2 |20.X.l..730:.A$.| 00000C50: 22 4E 22 A7 A0 32 3A 8A 00 5E 14 76 02 8E 00 90 |"N"..2:..^.v....| 00000C60: 14 80 02 99 22 12 3C 92 9D 22 3B 3A 97 31 39 38 |....".<..";:.198| 00000C70: 2C 30 3A 92 31 39 38 2C 31 3A A1 41 24 3A 41 B2 |,0:.198,1:.A$:A.| 00000C80: C6 28 41 24 AA 4C 24 29 3A 42 B2 C3 28 4E 24 29 |.(A$.L$):B..(N$)| 00000C90: 00 A6 14 8A 02 8B 4C B3 B1 31 35 AF 42 B3 B1 4C |......L..15.B..L| 00000CA0: AA 31 A7 36 37 30 00 BB 14 94 02 8B 41 B2 31 33 |.1.670......A.13| 00000CB0: AF 42 B1 30 A7 99 22 20 22 3A 8E 00 E3 14 9E 02 |.B.0.." ":......| 00000CC0: 8B 41 B2 32 30 AF 42 B1 30 A7 99 22 20 9D 9D 22 |.A.20.B.0.." .."| 00000CD0: 3B 3A 4E 24 B2 C8 28 4E 24 2C 42 AB 31 29 3A 89 |;:N$..(N$,B.1):.| 00000CE0: 36 34 30 00 00 15 A8 02 8B 42 B1 4C B0 41 B2 33 |640......B.L.A.3| 00000CF0: 34 B0 28 41 AF 31 32 37 29 B3 33 32 A7 36 34 30 |4.(A.127).32.640| 00000D00: 00 17 15 B2 02 4E 24 B2 4E 24 AA 41 24 3A 99 41 |.....N$.N$.A$:.A| 00000D10: 24 3B 3A 89 36 34 30 00 39 15 BC 02 9F 31 2C 38 |$;:.640.9....1,8| 00000D20: 2C 31 35 2C 22 49 22 3A 84 31 2C 45 24 2C 41 24 |,15,"I":.1,E$,A$| 00000D30: 2C 42 24 2C 43 24 3A A0 31 00 74 15 C6 02 8B 45 |,B$,C$:.1.t....E| 00000D40: 24 B3 B1 22 30 30 22 A7 99 22 11 44 49 53 4B 2D |$.."00"..".DISK-| 00000D50: 53 54 41 54 55 53 3A 20 12 22 45 24 22 2C 22 41 |STATUS: ."E$","A| 00000D60: 24 22 2C 22 42 24 22 2C 22 43 24 52 24 44 24 3A |$","B$","C$R$D$:| 00000D70: 89 31 34 30 00 7A 15 D0 02 8E 00 97 15 DA 02 A1 |.140.z..........| 00000D80: 41 24 3A 8B 41 24 B3 B1 22 4A 22 AF 41 24 B3 B1 |A$:.A$.."J".A$..| 00000D90: 22 4E 22 A7 37 33 30 00 9D 15 E4 02 8E 00 C0 15 |"N".730.........| 00000DA0: EE 02 8D 37 30 30 3A 9F 31 2C 38 2C 31 35 3A 9F |...700:.1,8,15:.| 00000DB0: 32 2C 38 2C 32 2C 22 23 22 3A 98 31 2C 55 31 24 |2,8,2,"#":.1,U1$| 00000DC0: 00 ED 15 F8 02 98 31 2C 22 42 2D 50 20 32 20 31 |......1,"B-P 2 1| 00000DD0: 34 34 22 3A 81 49 B2 31 A4 32 33 3A A1 23 32 2C |44":.I.1.23:.#2,| 00000DE0: 41 24 3A 48 24 B2 48 24 AA 41 24 3A 82 00 17 16 |A$:H$.H$.A$:....| 00000DF0: 02 03 98 31 2C 22 42 2D 50 20 32 20 32 30 30 22 |...1,"B-P 2 200"| 00000E00: 3A A1 23 32 2C 41 24 3A 8B 41 24 B3 B1 22 22 A7 |:.#2,A$:.A$.."".| 00000E10: A0 31 3A A0 32 3A 8E 00 40 16 0C 03 98 31 2C 22 |.1:.2:..@....1,"| 00000E20: 42 2D 50 20 32 20 32 30 30 22 3A 98 32 2C 48 24 |B-P 2 200":.2,H$| 00000E30: 3B 3A 98 31 2C 55 32 24 3A A0 31 3A A0 32 3A 8E |;:.1,U2$:.1:.2:.| 00000E40: 00 76 16 16 03 A1 23 31 2C 41 24 2C 42 24 3A 42 |.v....#1,A$,B$:B| 00000E50: B2 C6 28 41 24 AA 4C 24 29 AA 32 35 36 AC C6 28 |..(A$.L$).256..(| 00000E60: 42 24 AA 4C 24 29 3A 99 52 24 CA 28 C4 28 42 29 |B$.L$):.R$.(.(B)| 00000E70: 2C 32 29 50 24 3B 00 9A 16 20 03 A1 23 31 2C 41 |,2)P$;... ..#1,A| 00000E80: 24 3A 99 41 24 3B 3A 91 C3 28 41 24 29 89 38 30 |$:.A$;:..(A$).80| 00000E90: 30 3A 50 24 B2 22 20 22 3A 8E 00 00 00 |0:P$." ":.... |
..'.... DISK-HULP / CBM-64 & 1541 DRIVE.
;.... DOOR M.KITZEN.Z.... UIT ELSLOO / 0
4402-72913.`..........N$(144),N(144):L$.
G(0):R$.G(13):.53280,6:.53281,6:P$." ".
....D$.R$."DRUK OP EEN TOETS.":S$."
":L.15:U1$."U1 2 0 18 0".
7...M$.G(8).G(142)."..DISK-HULP DOOR
M.KITZEN 23 MAART 1987":.I.1.40...(.M$.M
$."#":.:.M$". MAAK UW KEUZE (X = STO
PPEN):":U2$."U2 2 0 18 0".N.2..".A = DIR
ECTORY"R$"B = VALIDATE EEN DISK"R$"C = S
CRATCH ";:K$(1).".NEE"...<.."EEN FILE"R$
"D = VERANDER FILENAAM"R$"E = SCRATCH ME
ERDERE FILES".].F.."F = FORMATTEREN"R$"G
= WIS DIRECTORY"R$"H = DISK-NAAM VERAND
EREN"...P.."I = DISK-ID VERANDEREN"R$"J
= ORIGINELE DISK-HEADER HERSTELLEN"...Z.
K$(0).".JA":.649,1:.198,0:.198,1:.A$:A.F
(A$).64:.A.0.A.0...D..A.24..".":..(.N..A
.150,210,220,240,270,420,460,480,520,560
:.1,8,15.3.X..1,"I".R....1,E$,A$,B$,C$:.
".DISK-STATUS: ."E$","A$","B$","C$R$D$:
1......198,0:.198,1:.......".DIRECTORY"
:.700:.1,8,0,"$":.#1,A$,A$,A$,A$:.790.Z.
..#1,A$,A$:.A$."". 1:.180......790:C.C.
B:.197,64:.160".1....".............. (="
.(B.6.64..5)"%).":.C.664..D$:.140.D...."
.WERKELIJK AANTAL BLOCKS FREE IS"664.B.C
".!"...H..".WILT U EEN VALIDATE (J/N)?":
.620:.1,8,15,"V":.130...R..".VALIDATE":.
200......".SCRATCH EEN FILE.":."FILENAAM
: ";:.640."....".WILT U ."N$". SCRATCHEN
(J/N)?":.620:.1,8,15,"S:".N$:.130.`....
".VERANDER FILENAAM"R$".OUDE NAAM :";:
.640:O$.N$:N$.""......".NIEUWE NAAM :";:
.640:.".VERANDEREN (J/N)?"......620:.1,8
,15,"R:".N$."=".O$:.130......".SCRATCH M
EERDERE FILES"R$".DIRECTORY WORDT INGELE
ZEN.":.700.#....1,8,0,"$":.#1,A$,A$,A$,A
$,A$,A$:A.0.I."..#1,A$:.C(A$).290:.#1,A$
,A$,A$,A$.J.,..#1,A$:.A$..G(34).A$.."".3
00...6..A$."". 1:A.A.1:.340...@..#1,A$:.
A$..G(34).N$(A).N$(A).A$:.320...J.A.A.1:
.290...T..:.I.0.A:.N$(I).20..(0))"SCRATC
HEN (J/N)?...............";.'.^..730:K.1
:.".";:.A$."J".K.0:N(I).1:G.G.1.S.H..K$(
K)". ":.:.G.0..D$:.140...R.
.".VALIDATE NA HET SCRATCHEN (J/N)?":.73
0:.A$."J".V.1.M.|..".DOORGAAN MET SCRATC
HEN (J/N)?":.620:.".GESCRATCHT ZIJN:"...
...1,8,15:.I.0.A:.N(I)..1,"S:".N$(I):."-
"N$(I)......:.V.1..1,"V"......130.^....
".FORMATTEREN."R$"DISK-NAAM: ";:.640:O$.
N$:N$."":.".ID: ";.....L.1:.640:N$."
,".N$:.".WILT U ECHT FORMATTEREN (J/N)?"
:.620.H....1,8,15:.1,"M-W"G(81)G(0)G(1)G
(255): 1...B..1,8,15,"N:".O$.N$:.130. .L
..".WIS DIRECTORY."R$"DISK-NAAM: ";:.640
:.".WILT U DE ";.^.V.."DIRECTORY ECHT WI
SSEN (J/N)?":.620:.1,8,15,"N:".N$:.130..
....".DISK-NAAM VERANDEREN":.750:.".OUDE
NAAM : ."H(H$,16).Y....".NIEUWE NAAM
: ";:.640:.".DISK-NAAM VERANDEREN (J/N)?
"......620:.1,8,15:.2,8,2,"#":.1,U1$:.1,
"B-P 2 144".4....2,N$.H(S$,16.C(N$));:.1
,U2$: 2:.120.K....".DISK-ID VERANDEREN":
.750:.".OUDE ID : "I(H$,5)......".NIEUW
E ID: (5 TEKENS)................
..";:L.4:.640......".ID VERANDEREN (J/N)
?":.620:.1,8,15:.2,8,2,"#"...&..1,U1$:.1
,"B-P 2 162":.2,N$;:.1,U2$: 2:.120.P.0..
".ORIGINELE DISK-HEADER HERSTELLEN"R$:.1
,8,15:.2,8,2,"#".Q.:..1,U1$:.1,"B-P 2 20
0":.#2,A$...D..A$."". 1: 2:."HEADER WAS
AL ORIGINEEL."D$:.140.Z.N.H$.A$:.I.1.22:
.#2,A$:H$.H$.A$:.:."ORIGINEEL:."H$...X..
".HERSTELLEN (J/N)?":.620:.1,"B-P 2 144"
:.2,H$;.B.B..1,"B-P 2 200":.I.1.23:.2,L$
;:.:.1,U2$: 2:.120.X.L..730:.A$."N". 2:.
.^.V........".<..";:.198,0:.198,1:.A$:A.
F(A$.L$):B.C(N$)......L..15.B..L.1.670..
....A.13.B.0.." ":.......A.20.B.0.." .."
;:N$.H(N$,B.1):.640......B.L.A.34.(A.127
).32.640.....N$.N$.A$:.A$;:.640.9....1,8
,15,"I":.1,E$,A$,B$,C$: 1.T.F..E$.."00".
.".DISK-STATUS: ."E$","A$","B$","C$R$D$:
.140.Z.P.....Z..A$:.A$.."J".A$.."N".730.
...........700:.1,8,15:.2,8,2,"#":.1,U1$
......1,"B-P 2 144":.I.1.23:.#2,A$:H$.H$
.A$:.......1,"B-P 2 200":.#2,A$:.A$.."".
1: 2:..@....1,"B-P 2 200":.2,H$;:.1,U2$
: 1: 2:..V....#1,A$,B$:B.F(A$.L$).256.F(
B$.L$):.R$J(D(B),2)P$;... ..#1,A$:.A$;:.
C(A$).800:P$." ":....
> CLICK IMAGE PREVIEW FOR FULL MODAL