> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 05 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.|
00000010: 35 33 32 38 31 2C 30 3A 99 22 1E 22 00 41 08 0A |53281,0:.".".A..|
00000020: 00 97 34 39 31 35 32 2C 31 30 3A 8B C2 28 34 39 |..49152,10:..(49|
00000030: 31 35 32 29 B3 B1 31 30 A7 43 30 B2 31 3A 89 33 |152)..10.C0.1:.3|
00000040: 30 00 4A 08 14 00 43 30 B2 32 00 58 08 1E 00 86 |0.J...C0.2.X....|
00000050: 44 4F 53 25 28 36 35 29 00 76 08 28 00 46 52 B2 |DOS%(65).v.(.FR.|
00000060: B8 28 30 29 3A 8B 46 52 B3 30 A7 46 52 B2 46 52 |.(0):.FR.0.FR.FR|
00000070: AA 36 35 35 33 36 00 95 08 32 00 53 B2 28 46 52 |.65536...2.S.(FR|
00000080: AB 34 30 30 29 AD 32 3A 4D 32 B2 B5 28 53 AD 32 |.400).2:M2..(S.2|
00000090: 35 36 29 AA 31 00 A3 08 3C 00 86 54 45 4D 50 25 |56).1...<..TEMP%|
000000A0: 28 53 29 00 AD 08 46 00 99 22 93 22 3B 00 C9 08 |(S)...F..".";...|
000000B0: 50 00 99 22 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |P.." **********|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 22 00 E5 08 5A 00 99 22 |********"...Z.."|
000000D0: 20 20 2A 20 20 44 49 53 4B 20 4D 41 4E 41 47 45 | * DISK MANAGE|
000000E0: 52 20 20 2A 22 00 01 09 64 00 99 22 20 20 2A 2A |R *"...d.." **|
000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000100: 22 00 1A 09 6E 00 99 3A 99 22 20 31 2E 20 44 49 |"...n..:." 1. DI|
00000110: 53 4B 20 49 4E 48 4F 55 44 22 00 3C 09 78 00 99 |SK INHOUD".<.x..|
00000120: 22 20 32 2E 20 46 4F 52 4D 41 54 45 52 45 4E 20 |" 2. FORMATEREN |
00000130: 4E 49 45 55 57 45 20 44 49 53 4B 22 00 5E 09 82 |NIEUWE DISK".^..|
00000140: 00 99 22 20 33 2E 20 49 4E 49 54 49 41 4C 49 53 |.." 3. INITIALIS|
00000150: 45 52 45 4E 20 56 41 4E 20 44 49 53 4B 22 00 84 |EREN VAN DISK"..|
00000160: 09 8C 00 99 22 20 34 2E 20 43 4F 50 59 20 46 49 |...." 4. COPY FI|
00000170: 4C 45 20 4F 50 20 44 45 5A 45 4C 46 44 45 20 44 |LE OP DEZELFDE D|
00000180: 49 53 4B 22 00 AA 09 96 00 99 22 20 35 2E 20 4E |ISK"......" 5. N|
00000190: 49 45 55 57 45 20 4E 41 41 4D 20 41 41 4E 20 46 |IEUWE NAAM AAN F|
000001A0: 49 4C 45 20 47 45 56 45 4E 22 00 CF 09 A0 00 99 |ILE GEVEN"......|
000001B0: 22 20 36 2E 20 57 49 53 53 45 4E 20 56 41 4E 20 |" 6. WISSEN VAN |
000001C0: 46 49 4C 45 20 4F 46 20 46 49 4C 45 27 53 22 00 |FILE OF FILE'S".|
000001D0: EC 09 AA 00 99 22 20 37 2E 20 4F 50 52 55 49 4D |....." 7. OPRUIM|
000001E0: 45 4E 20 56 41 4E 20 44 49 53 4B 22 00 0C 0A B4 |EN VAN DISK"....|
000001F0: 00 99 22 20 38 2E 20 53 43 48 52 49 4A 46 20 44 |.." 8. SCHRIJF D|
00000200: 49 53 4B 20 4D 41 4E 41 47 45 52 22 00 31 0A BE |ISK MANAGER".1..|
00000210: 00 99 22 20 39 2E 20 46 4F 55 54 45 4E 20 53 54 |.." 9. FOUTEN ST|
00000220: 41 54 55 53 20 56 41 4E 20 44 45 20 44 49 53 4B |ATUS VAN DE DISK|
00000230: 22 00 50 0A C8 00 99 22 31 30 2E 20 45 49 4E 44 |".P...."10. EIND|
00000240: 45 20 44 49 53 4B 4D 41 4E 41 47 45 52 22 3A 99 |E DISKMANAGER":.|
00000250: 00 75 0A D2 00 85 22 4D 41 41 4B 20 45 45 4E 20 |.u...."MAAK EEN |
00000260: 4B 45 55 5A 45 20 20 20 20 9D 9D 9D 9D 22 3B 43 |KEUZE ....";C|
00000270: 48 4F 49 53 45 00 9C 0A DC 00 8B 28 43 48 4F 49 |HOISE......(CHOI|
00000280: 53 45 B3 31 29 B0 28 43 48 4F 49 53 45 B1 31 32 |SE.1).(CHOISE.12|
00000290: 29 A7 99 22 91 22 3B 3A 89 32 31 30 00 D1 0A E6 |)..".";:.210....|
000002A0: 00 91 43 48 4F 49 53 45 8D 32 35 30 2C 34 36 30 |..CHOISE.250,460|
000002B0: 2C 35 34 30 2C 36 30 30 2C 36 37 30 2C 37 34 30 |,540,600,670,740|
000002C0: 2C 38 32 30 2C 38 39 30 2C 39 38 30 2C 31 30 36 |,820,890,980,106|
000002D0: 30 00 D9 0A F0 00 89 37 30 00 F5 0A FA 00 8F 2E |0......70.......|
000002E0: 2E 2E 20 49 4E 48 4F 55 44 20 56 41 4E 20 44 49 |.. INHOUD VAN DI|
000002F0: 53 4B 2E 2E 2E 00 FE 0A 04 01 99 22 93 22 00 0D |SK........."."..|
00000300: 0B 0E 01 9F 31 2C 38 2C 30 2C 22 24 22 00 1B 0B |....1,8,0,"$"...|
00000310: 18 01 A1 23 31 2C 41 24 2C 42 24 00 29 0B 22 01 |...#1,A$,B$.).".|
00000320: A1 23 31 2C 41 24 2C 42 24 00 37 0B 2C 01 A1 23 |.#1,A$,B$.7.,..#|
00000330: 31 2C 41 24 2C 42 24 00 4F 0B 36 01 43 B2 30 3A |1,A$,B$.O.6.C.0:|
00000340: 8B 41 24 B3 B1 22 22 A7 43 B2 C6 28 41 24 29 00 |.A$.."".C..(A$).|
00000350: 69 0B 40 01 8B 42 24 B3 B1 22 22 A7 43 B2 43 AA |i.@..B$.."".C.C.|
00000360: C6 28 42 24 29 AC 32 35 36 00 7D 0B 4A 01 99 CA |.(B$).256.}.J...|
00000370: 28 C4 28 43 29 2C 32 29 3B A3 33 29 3B 00 93 0B |(.(C),2);.3);...|
00000380: 54 01 A1 23 31 2C 42 24 3A 8B 53 54 B3 B1 30 A7 |T..#1,B$:.ST..0.|
00000390: 34 32 30 00 A6 0B 5E 01 8B 42 24 B3 B1 C7 28 33 |420...^..B$...(3|
000003A0: 34 29 A7 33 34 30 00 C6 0B 68 01 A1 23 31 2C 42 |4).340...h..#1,B|
000003B0: 24 3A 8B 42 24 B3 B1 C7 28 33 34 29 A7 99 42 24 |$:.B$...(34)..B$|
000003C0: 3B 3A 89 33 36 30 00 DF 0B 72 01 A1 23 31 2C 42 |;:.360...r..#1,B|
000003D0: 24 3A 8B 42 24 B2 C7 28 33 32 29 A7 33 37 30 00 |$:.B$..(32).370.|
000003E0: F0 0B 7C 01 99 A3 31 38 29 3B 3A 43 24 B2 22 22 |..|...18);:C$.""|
000003F0: 00 10 0C 86 01 43 24 B2 43 24 AA 42 24 3A A1 23 |.....C$.C$.B$:.#|
00000400: 31 2C 42 24 3A 8B 42 24 B3 B1 22 22 A7 33 39 30 |1,B$:.B$.."".390|
00000410: 00 1D 0C 90 01 99 C8 28 43 24 2C 33 29 00 2B 0C |.......(C$,3).+.|
00000420: 9A 01 8B 53 54 B2 30 A7 32 39 30 00 40 0C A4 01 |...ST.0.290.@...|
00000430: 99 22 20 42 4C 4F 43 4B 53 20 56 52 49 4A 20 22 |." BLOCKS VRIJ "|
00000440: 00 67 0C AE 01 A0 31 3A 99 3A 99 3A 99 22 44 55 |.g....1:.:.:."DU|
00000450: 57 20 45 45 4E 20 54 4F 45 54 53 20 56 4F 4F 52 |W EEN TOETS VOOR|
00000460: 20 54 45 52 55 47 22 00 7A 0C B8 01 A1 41 24 3A | TERUG".z....A$:|
00000470: 8B 41 24 B2 22 22 A7 34 34 30 00 80 0C C2 01 8E |.A$."".440......|
00000480: 00 9F 0C CC 01 8F 2E 2E 2E 2E 20 46 4F 52 4D 41 |.......... FORMA|
00000490: 54 45 52 45 4E 20 44 49 53 4B 20 2E 2E 2E 2E 00 |TEREN DISK .....|
000004A0: A8 0C D6 01 99 22 93 22 00 DD 0C E0 01 99 22 50 |....."."......"P|
000004B0: 4C 41 41 54 53 20 44 45 20 44 49 53 4B 20 57 45 |LAATS DE DISK WE|
000004C0: 4C 4B 45 20 49 4B 20 4D 4F 45 54 22 3A 99 22 46 |LKE IK MOET":."F|
000004D0: 4F 52 4D 41 54 45 52 45 4E 2E 22 3A 99 00 09 0D |ORMATEREN.":....|
000004E0: EA 01 99 22 47 45 45 46 20 44 45 20 4E 41 41 4D |..."GEEF DE NAAM|
000004F0: 20 56 4F 4F 52 20 44 45 20 44 49 53 4B 20 41 41 | VOOR DE DISK AA|
00000500: 4E 22 3A 85 44 49 53 4B 24 00 2E 0D F4 01 99 3A |N":.DISK$......:|
00000510: 99 22 47 45 45 46 20 48 45 54 20 4B 45 4E 54 45 |."GEEF HET KENTE|
00000520: 4B 45 4E 20 41 41 4E 22 3A 85 45 58 54 24 00 4E |KEN AAN":.EXT$.N|
00000530: 0D FE 01 4D 41 43 52 4F 24 B2 22 4E 30 3A 22 AA |...MACRO$."N0:".|
00000540: 44 49 53 4B 24 AA 22 2C 22 AA 45 58 54 24 00 62 |DISK$.",".EXT$.b|
00000550: 0D 08 02 9F 31 35 2C 38 2C 31 35 2C 4D 41 43 52 |....15,8,15,MACR|
00000560: 4F 24 00 76 0D 12 02 A0 31 35 3A 4D 41 43 52 4F |O$.v....15:MACRO|
00000570: 24 B2 22 22 3A 8E 00 93 0D 1C 02 8F 2E 2E 2E 2E |$."":...........|
00000580: 20 49 4E 49 54 49 41 4C 49 53 45 52 45 4E 20 2E | INITIALISEREN .|
00000590: 2E 2E 2E 00 9C 0D 26 02 99 22 93 22 00 C7 0D 30 |......&.."."...0|
000005A0: 02 99 22 50 4C 41 41 54 53 20 44 45 20 54 45 20 |.."PLAATS DE TE |
000005B0: 49 4E 49 54 49 41 4C 49 53 45 52 45 4E 20 44 49 |INITIALISEREN DI|
000005C0: 53 4B 22 3A 99 3A 99 00 F9 0D 3A 02 99 22 44 55 |SK":.:....:.."DU|
000005D0: 57 20 4F 50 20 3C 52 45 54 55 52 4E 3E 20 4F 4D |W OP <RETURN> OM|
000005E0: 20 54 45 22 3A 99 22 49 4E 49 54 49 41 4C 49 53 | TE":."INITIALIS|
000005F0: 45 52 45 4E 22 3A 85 58 24 00 0A 0E 44 02 9F 31 |EREN":.X$...D..1|
00000600: 35 2C 38 2C 31 35 2C 22 49 22 00 14 0E 4E 02 A0 |5,8,15,"I"...N..|
00000610: 31 35 3A 8E 00 34 0E 58 02 8F 2E 2E 2E 2E 20 43 |15:..4.X...... C|
00000620: 4F 50 59 20 5A 45 4C 46 44 45 20 44 49 53 4B 20 |OPY ZELFDE DISK |
00000630: 2E 2E 2E 2E 00 41 0E 62 02 99 22 93 22 3A 99 3A |.....A.b..".":.:|
00000640: 99 00 64 0E 6C 02 99 22 47 45 45 46 20 44 45 20 |..d.l.."GEEF DE |
00000650: 4F 55 44 45 20 4E 41 41 4D 20 49 4E 22 3A 85 44 |OUDE NAAM IN":.D|
00000660: 49 53 4B 24 00 8A 0E 76 02 99 3A 99 22 47 45 45 |ISK$...v..:."GEE|
00000670: 46 20 44 45 20 4E 49 45 55 57 45 20 4E 41 41 4D |F DE NIEUWE NAAM|
00000680: 20 49 4E 22 3A 85 4E 57 53 24 00 A9 0E 80 02 4D | IN":.NWS$.....M|
00000690: 41 43 52 4F 24 B2 22 43 3A 22 AA 4E 57 53 24 AA |ACRO$."C:".NWS$.|
000006A0: 22 3D 22 AA 44 49 53 4B 24 00 BD 0E 8A 02 9F 31 |"=".DISK$......1|
000006B0: 35 2C 38 2C 31 35 2C 4D 41 43 52 4F 24 00 D1 0E |5,8,15,MACRO$...|
000006C0: 94 02 A0 31 35 3A 4D 41 43 52 4F 24 B2 22 22 3A |...15:MACRO$."":|
000006D0: 8E 00 F4 0E 9E 02 8F 2E 2E 2E 2E 20 4E 49 45 55 |........... NIEU|
000006E0: 57 45 20 4E 41 41 4D 20 41 41 4E 20 46 49 4C 45 |WE NAAM AAN FILE|
000006F0: 2E 2E 2E 2E 00 FF 0E A8 02 99 22 93 22 3A 99 00 |..........".":..|
00000700: 22 0F B2 02 99 22 47 45 45 46 20 44 45 20 4F 55 |"...."GEEF DE OU|
00000710: 44 45 20 4E 41 41 4D 20 49 4E 22 3A 85 44 49 53 |DE NAAM IN":.DIS|
00000720: 4B 24 00 48 0F BC 02 99 3A 99 22 47 45 45 46 20 |K$.H....:."GEEF |
00000730: 44 45 20 4E 49 45 55 57 45 20 4E 41 41 4D 20 49 |DE NIEUWE NAAM I|
00000740: 4E 22 3A 85 4E 57 53 24 00 67 0F C6 02 4D 41 43 |N":.NWS$.g...MAC|
00000750: 52 4F 24 B2 22 52 3A 22 AA 4E 57 53 24 AA 22 3D |RO$."R:".NWS$."=|
00000760: 22 AA 44 49 53 4B 24 00 7B 0F D0 02 9F 31 35 2C |".DISK$.{....15,|
00000770: 38 2C 31 35 2C 4D 41 43 52 4F 24 00 8F 0F DA 02 |8,15,MACRO$.....|
00000780: A0 31 35 3A 4D 41 43 52 4F 24 B2 22 22 3A 8E 00 |.15:MACRO$."":..|
00000790: AE 0F E4 02 8F 2E 2E 2E 2E 20 57 49 53 53 45 4E |......... WISSEN|
000007A0: 20 56 41 4E 20 46 49 4C 45 20 2E 2E 2E 2E 00 BB | VAN FILE ......|
000007B0: 0F EE 02 99 22 93 22 3A 99 3A 99 00 F7 0F F8 02 |....".":.:......|
000007C0: 99 22 47 45 45 46 20 44 45 20 46 49 4C 45 20 4E |."GEEF DE FILE N|
000007D0: 41 41 4D 20 41 41 4E 20 57 45 4C 4B 45 20 49 4B |AAM AAN WELKE IK|
000007E0: 20 4D 4F 45 54 22 3A 99 22 57 49 53 53 45 4E 22 | MOET":."WISSEN"|
000007F0: 3A 85 44 49 53 4B 24 00 1F 10 02 03 99 3A 99 3A |:.DISK$......:.:|
00000800: 99 22 44 55 57 20 45 45 4E 20 54 4F 45 54 53 20 |."DUW EEN TOETS |
00000810: 56 4F 4F 52 20 54 45 20 57 49 53 53 45 4E 22 00 |VOOR TE WISSEN".|
00000820: 32 10 0C 03 A1 58 24 3A 8B 58 24 B2 22 22 A7 37 |2....X$:.X$."".7|
00000830: 38 30 00 49 10 16 03 4D 41 43 52 4F 24 B2 22 53 |80.I...MACRO$."S|
00000840: 30 3A 22 AA 44 49 53 4B 24 00 5D 10 20 03 9F 31 |0:".DISK$.]. ..1|
00000850: 35 2C 38 2C 31 35 2C 4D 41 43 52 4F 24 00 71 10 |5,8,15,MACRO$.q.|
00000860: 2A 03 A0 31 35 3A 4D 41 43 52 4F 24 B2 22 22 3A |*..15:MACRO$."":|
00000870: 8E 00 95 10 34 03 8F 2E 2E 2E 2E 20 4F 50 52 55 |....4...... OPRU|
00000880: 49 4D 45 4E 20 56 41 4E 20 44 45 20 44 49 53 4B |IMEN VAN DE DISK|
00000890: 20 2E 2E 2E 2E 00 A2 10 3E 03 99 22 93 22 3A 99 | .......>..".":.|
000008A0: 3A 99 00 D2 10 48 03 99 22 12 41 54 54 45 4E 54 |:....H..".ATTENT|
000008B0: 49 45 92 3A 4E 4F 47 20 4F 50 45 4E 20 46 49 4C |IE.:NOG OPEN FIL|
000008C0: 45 27 53 20 57 4F 52 44 45 4E 20 47 45 57 49 53 |E'S WORDEN GEWIS|
000008D0: 54 22 00 FB 10 52 03 99 3A 99 3A 99 3A 99 22 44 |T"...R..:.:.:."D|
000008E0: 55 57 20 45 45 4E 20 54 4F 45 54 53 54 20 4F 4D |UW EEN TOETST OM|
000008F0: 20 54 45 20 52 55 49 4D 45 4E 22 00 0E 11 5C 03 | TE RUIMEN"...\.|
00000900: A1 58 24 3A 8B 58 24 B2 22 22 A7 38 36 30 00 1E |.X$:.X$."".860..|
00000910: 11 66 03 9F 31 2C 38 2C 31 35 2C 22 56 22 00 27 |.f..1,8,15,"V".'|
00000920: 11 70 03 A0 31 3A 8E 00 4B 11 7A 03 8F 2E 2E 2E |.p..1:..K.z.....|
00000930: 2E 20 53 43 48 52 49 4A 46 20 44 49 53 4B 20 4D |. SCHRIJF DISK M|
00000940: 41 4E 41 47 45 52 20 2E 2E 2E 2E 00 58 11 84 03 |ANAGER .....X...|
00000950: 99 22 93 22 3A 99 3A 99 00 8F 11 8E 03 99 22 50 |.".":.:......."P|
00000960: 4C 41 41 54 53 20 44 45 20 44 49 53 4B 20 4F 50 |LAATS DE DISK OP|
00000970: 20 57 45 4C 4B 45 20 49 4B 20 4D 4F 45 54 22 3A | WELKE IK MOET":|
00000980: 99 22 53 43 48 52 49 4A 56 45 4E 2E 22 3A 99 00 |."SCHRIJVEN.":..|
00000990: B8 11 98 03 99 3A 99 3A 99 22 44 55 57 20 45 45 |.....:.:."DUW EE|
000009A0: 4E 20 54 4F 45 54 53 20 4F 4D 20 54 45 20 53 43 |N TOETS OM TE SC|
000009B0: 48 52 49 4A 56 45 4E 22 00 CB 11 A2 03 A1 58 24 |HRIJVEN"......X$|
000009C0: 3A 8B 58 24 B2 22 22 A7 39 33 30 00 D7 11 AC 03 |:.X$."".930.....|
000009D0: 9F 31 2C 38 2C 31 35 00 EF 11 B6 03 94 22 40 30 |.1,8,15......"@0|
000009E0: 3A 44 49 53 4B 4D 41 4E 41 47 45 52 22 2C 38 00 |:DISKMANAGER",8.|
000009F0: F6 11 C0 03 A0 31 00 FC 11 CA 03 8E 00 19 12 D4 |.....1..........|
00000A00: 03 8F 2E 2E 2E 2E 20 46 4F 55 54 45 4E 20 53 54 |...... FOUTEN ST|
00000A10: 41 54 55 53 20 2E 2E 2E 2E 00 26 12 DE 03 9F 31 |ATUS .....&....1|
00000A20: 35 2C 38 2C 31 35 00 3A 12 E8 03 84 31 35 2C 41 |5,8,15.:....15,A|
00000A30: 24 2C 42 24 2C 43 24 2C 44 24 00 47 12 F2 03 99 |$,B$,C$,D$.G....|
00000A40: 22 93 22 3A 99 3A 99 00 73 12 FC 03 99 22 46 4F |".":.:..s...."FO|
00000A50: 55 54 45 4E 20 53 54 41 54 55 53 3A 22 42 24 3A |UTEN STATUS:"B$:|
00000A60: 99 3A 99 22 46 4F 55 54 20 4E 55 4D 4D 45 52 3A |.:."FOUT NUMMER:|
00000A70: 22 41 24 00 98 12 06 04 99 3A 99 3A 99 22 52 41 |"A$......:.:."RA|
00000A80: 41 4B 20 45 45 4E 20 54 4F 45 54 53 20 56 4F 4F |AK EEN TOETS VOO|
00000A90: 52 20 54 45 52 55 47 22 00 AC 12 10 04 A1 58 24 |R TERUG"......X$|
00000AA0: 3A 8B 58 24 B2 22 22 A7 31 30 34 30 00 B6 12 1A |:.X$."".1040....|
00000AB0: 04 A0 31 35 3A 8E 00 C1 12 24 04 9E 36 34 37 33 |..15:....$..6473|
00000AC0: 38 00 00 00 FA |8.... |
.......53280,0:.53281,0:.".".A....49152,
10:.B(49152)..10.C0.1:.30.J...C0.2.X....
DOS%(65).V.(.FR..(0):.FR.0.FR.FR.65536..
.2.S.(FR.400).2:M2..(S.256).1...<..TEMP%
(S)...F..".";.I.P.." ******************
"...Z.." * DISK MANAGER *"...D.." **
****************"...N..:." 1. DISK INHOU
D".<.X.." 2. FORMATEREN NIEUWE DISK".^..
.." 3. INITIALISEREN VAN DISK"......" 4.
COPY FILE OP DEZELFDE DISK"......" 5. N
IEUWE NAAM AAN FILE GEVEN".O. .." 6. WIS
SEN VAN FILE OF FILE'S"......" 7. OPRUIM
EN VAN DISK"......" 8. SCHRIJF DISK MANA
GER".1...." 9. FOUTEN STATUS VAN DE DISK
".P.H.."10. EINDE DISKMANAGER":..U.R.."M
AAK EEN KEUZE ....";CHOISE......(CHOI
SE.1).(CHOISE.12)..".";:.210.Q....CHOISE
.250,460,540,600,670,740,820,890,980,106
0.Y....70......... INHOUD VAN DISK......
..."."......1,8,0,"$"......#1,A$,B$.).".
.#1,A$,B$.7.,..#1,A$,B$.O.6.C.0:.A$.."".
C.F(A$).I.@..B$.."".C.C.F(B$).256.}.J..J
(D(C),2);.3);...T..#1,B$:.ST..0.420...^.
.B$..G(34).340.F.H..#1,B$:.B$..G(34)..B$
;:.360...R..#1,B$:.B$.G(32).370...|...18
);:C$."".....C$.C$.B$:.#1,B$:.B$.."".390
......H(C$,3).+....ST.0.290.@...." BLOCK
S VRIJ ".G... 1:.:.:."DUW EEN TOETS VOOR
TERUG".Z....A$:.A$."".440...B.....L....
.. FORMATEREN DISK .......V.."."......"P
LAATS DE DISK WELKE IK MOET":."FORMATERE
N.":......."GEEF DE NAAM VOOR DE DISK AA
N":.DISK$......:."GEEF HET KENTEKEN AAN"
:.EXT$.N...MACRO$."N0:".DISK$.",".EXT$.B
....15,8,15,MACRO$.V... 15:MACRO$."":...
........ INITIALISEREN .......&..".".G.0
.."PLAATS DE TE INITIALISEREN DISK":.:..
..:.."DUW OP <RETURN> OM TE":."INITIALIS
EREN":.X$...D..15,8,15,"I"...N. 15:..4.X
...... COPY ZELFDE DISK .....A.B..".":.:
..D.L.."GEEF DE OUDE NAAM IN":.DISK$...V
..:."GEEF DE NIEUWE NAAM IN":.NWS$.....M
ACRO$."C:".NWS$."=".DISK$......15,8,15,M
ACRO$.Q... 15:MACRO$."":........... NIEU
WE NAAM AAN FILE..........".":.."...."GE
EF DE OUDE NAAM IN":.DISK$.H....:."GEEF
DE NIEUWE NAAM IN":.NWS$.G.F.MACRO$."R:"
.NWS$."=".DISK$.{.P..15,8,15,MACRO$...Z.
15:MACRO$."":........... WISSEN VAN FIL
E ..........".":.:......."GEEF DE FILE N
AAM AAN WELKE IK MOET":."WISSEN":.DISK$.
.....:.:."DUW EEN TOETS VOOR TE WISSEN".
2....X$:.X$."".780.I...MACRO$."S0:".DISK
$.]. ..15,8,15,MACRO$.Q.*. 15:MACRO$."":
....4...... OPRUIMEN VAN DE DISK .......
>..".":.:..R.H..".ATTENTIE.:NOG OPEN FIL
E'S WORDEN GEWIST"...R..:.:.:."DUW EEN T
OETST OM TE RUIMEN"...\..X$:.X$."".860..
.F..1,8,15,"V".'.P. 1:..K.Z...... SCHRIJ
F DISK MANAGER .....X....".":.:......."P
LAATS DE DISK OP WELKE IK MOET":."SCHRIJ
VEN.":.......:.:."DUW EEN TOETS OM TE SC
HRIJVEN".K....X$:.X$."".930.W....1,8,15.
....."@0:DISKMANAGER",8..... 1...J.....T
...... FOUTEN STATUS .....&....15,8,15.:
....15,A$,B$,C$,D$.G....".":.:..S...."FO
UTEN STATUS:"B$:.:."FOUT NUMMER:"A$.....
.:.:."RAAK EEN TOETS VOOR TERUG"......X$
:.X$."".1040..... 15:..A.$..64738....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL