> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 44 08 01 00 97 35 33 32 38 30 2C 31 3A 97 |..D....53280,1:.|
00000010: 35 33 32 38 31 2C 31 3A 99 22 93 11 11 11 11 1D |53281,1:."......|
00000020: 1D 1D 9A 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |...THIS PROGRAM |
00000030: 57 49 4C 4C 20 43 48 41 4E 47 45 20 54 48 45 20 |WILL CHANGE THE |
00000040: 4E 41 4D 45 00 7C 08 03 00 99 A6 31 30 29 22 11 |NAME.|.....10)".|
00000050: 4F 52 20 49 2E 44 2E 20 23 20 4F 46 20 41 20 44 |OR I.D. # OF A D|
00000060: 49 53 4B 22 3A 99 A6 31 34 29 22 11 11 11 11 11 |ISK":..14)".....|
00000070: 50 52 45 53 45 4E 54 45 44 20 42 59 00 B0 08 06 |PRESENTED BY....|
00000080: 00 99 A6 31 32 29 22 11 42 45 54 54 45 52 20 53 |...12)".BETTER S|
00000090: 4F 46 54 57 41 52 45 22 3A 99 A6 31 34 29 22 11 |OFTWARE":..14)".|
000000A0: 11 11 11 11 12 48 49 54 20 41 4E 59 20 4B 45 59 |.....HIT ANY KEY|
000000B0: 00 C1 08 08 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 |......A$:.A$."".|
000000C0: 38 00 E6 08 09 00 99 22 93 11 11 11 11 1D 1D 1D |8......"........|
000000D0: 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 43 |DO YOU WANT TO C|
000000E0: 48 41 4E 47 45 3A 00 0D 09 0A 00 99 22 11 1D 1D |HANGE:......"...|
000000F0: 1D 1D 1D 31 29 20 4E 41 4D 45 22 3A 99 22 11 1D |...1) NAME":."..|
00000100: 1D 1D 1D 1D 32 29 20 49 2E 44 2E 20 23 00 29 09 |....2) I.D. #.).|
00000110: 0C 00 A1 58 24 3A 58 B2 C5 28 58 24 29 3A 8B 58 |...X$:X..(X$):.X|
00000120: B3 31 B0 58 B1 32 A7 31 32 00 4A 09 0D 00 8B 58 |.1.X.2.12.J....X|
00000130: B2 31 A7 4E 24 B2 22 20 4E 41 4D 45 20 22 3A 4E |.1.N$." NAME ":N|
00000140: 43 B2 31 36 3A 4E B2 31 34 34 00 6C 09 0E 00 8B |C.16:N.144.l....|
00000150: 58 B2 32 A7 4E 24 B2 22 20 49 2E 44 2E 20 23 20 |X.2.N$." I.D. # |
00000160: 22 3A 4E 43 B2 32 3A 4E B2 31 36 32 00 83 09 19 |":NC.2:N.162....|
00000170: 00 9F 31 35 2C 38 2C 31 35 3A 97 35 39 34 36 38 |..15,8,15:.59468|
00000180: 2C 31 32 00 AC 09 32 00 50 30 24 B2 22 93 11 11 |,12...2.P0$."...|
00000190: 20 20 20 20 20 20 20 20 20 20 20 12 44 49 53 4B | .DISK|
000001A0: 22 AA 4E 24 AA 22 43 48 41 4E 47 45 00 CC 09 3C |".N$."CHANGE...<|
000001B0: 00 81 49 B2 31 A4 31 36 3A 42 4C 24 B2 42 4C 24 |..I.1.16:BL$.BL$|
000001C0: AA 22 20 22 3A 82 3A 89 31 30 30 30 00 E5 09 64 |." ":.:.1000...d|
000001D0: 00 84 31 35 2C 45 2C 45 4D 24 2C 54 2C 53 3A 8B |..15,E,EM$,T,S:.|
000001E0: 45 B2 30 A7 8E 00 0C 0A 6E 00 99 22 11 12 44 49 |E.0.....n.."..DI|
000001F0: 53 4B 20 45 52 52 4F 52 21 92 20 23 22 45 3B 45 |SK ERROR!. #"E;E|
00000200: 4D 24 3B 54 3B 53 3A 89 31 33 35 30 00 1F 0A C8 |M$;T;S:.1350....|
00000210: 00 A1 51 24 3A 8B 51 24 B2 22 22 A7 32 30 30 00 |..Q$:.Q$."".200.|
00000220: 25 0A CD 00 8E 00 69 0A E8 03 46 B2 30 3A 44 56 |%.....i...F.0:DV|
00000230: B2 30 3A 99 50 30 24 3A 99 22 11 50 4C 41 43 45 |.0:.P0$:.".PLACE|
00000240: 20 44 49 53 4B 20 49 4E 20 44 52 49 56 45 22 44 | DISK IN DRIVE"D|
00000250: 56 22 41 4E 44 20 50 52 45 53 53 20 12 52 45 54 |V"AND PRESS .RET|
00000260: 55 52 4E 22 3A 8D 32 30 30 00 80 0A 24 04 98 31 |URN":.200...$..1|
00000270: 35 2C 22 49 22 AA C4 28 44 56 29 3A 8D 31 30 30 |5,"I"..(DV):.100|
00000280: 00 AA 0A 2E 04 9F 32 2C 38 2C 32 2C 22 23 22 3A |......2,8,2,"#":|
00000290: 98 31 35 2C 22 55 31 3A 32 22 3B 44 56 3B 22 2C |.15,"U1:2";DV;",|
000002A0: 31 38 2C 30 22 3A 8D 31 30 30 00 C8 0A 38 04 98 |18,0":.100...8..|
000002B0: 31 35 2C 22 42 2D 50 3A 32 2C 22 4E 3A 8D 31 30 |15,"B-P:2,"N:.10|
000002C0: 30 3A 44 4E 24 B2 22 22 00 E8 0A 42 04 81 49 B2 |0:DN$.""...B..I.|
000002D0: 31 A4 4E 43 3A A1 23 32 2C 41 24 3A 44 4E 24 B2 |1.NC:.#2,A$:DN$.|
000002E0: 44 4E 24 AA 41 24 3A 82 00 0C 0B 44 04 8B 46 A7 |DN$.A$:....D..F.|
000002F0: 81 49 B2 31 37 A4 32 33 3A A1 23 32 2C 41 24 3A |.I.17.23:.#2,A$:|
00000300: 44 4E 24 B2 44 4E 24 AA 41 24 3A 82 00 13 0B 47 |DN$.DN$.A$:....G|
00000310: 04 A0 32 00 1C 0B 4C 04 8B 46 A7 8E 00 53 0B 56 |..2...L..F...S.V|
00000320: 04 99 A6 38 29 22 11 11 54 48 45 20 50 52 45 53 |...8)"..THE PRES|
00000330: 45 4E 54 20 44 49 53 4B 22 4E 24 22 49 53 11 22 |ENT DISK"N$"IS."|
00000340: 3A 54 B2 B5 28 28 33 38 AB C3 28 44 4E 24 29 29 |:T..((38..(DN$))|
00000350: AD 32 29 00 69 0B 60 04 99 A6 54 29 C7 28 33 34 |.2).i.`...T).(34|
00000360: 29 44 4E 24 C7 28 33 34 29 00 99 0B 74 04 99 A6 |)DN$.(34)...t...|
00000370: 35 29 22 11 44 4F 20 59 4F 55 20 57 49 53 48 20 |5)".DO YOU WISH |
00000380: 54 4F 20 43 48 41 4E 47 45 20 49 54 3F 20 28 59 |TO CHANGE IT? (Y|
00000390: 2F 4E 29 22 3A 8D 32 30 30 00 AA 0B 7E 04 8B 51 |/N)":.200...~..Q|
000003A0: 24 B2 22 59 22 A7 31 31 37 30 00 C2 0B 88 04 8B |$."Y".1170......|
000003B0: 51 24 B3 B1 22 4E 22 A7 8D 32 30 30 3A 89 31 31 |Q$.."N"..200:.11|
000003C0: 35 30 00 CC 0B 8D 04 89 31 33 35 30 00 08 0C 92 |50......1350....|
000003D0: 04 99 A6 31 30 29 22 11 45 4E 54 45 52 20 4E 45 |...10)".ENTER NE|
000003E0: 57 20 44 49 53 4B 22 4E 24 3A 99 A6 38 29 22 11 |W DISK"N$:..8)".|
000003F0: 28 4C 49 4D 49 54 20 49 53 22 4E 43 22 43 48 41 |(LIMIT IS"NC"CHA|
00000400: 52 41 43 54 45 52 53 29 00 26 0C A6 04 85 51 24 |RACTERS).&....Q$|
00000410: 3A 8B C3 28 51 24 29 B1 4E 43 A7 51 24 B2 C8 28 |:..(Q$).NC.Q$..(|
00000420: 51 24 2C 4E 43 29 00 3C 0C B0 04 4E 44 4E 24 B2 |Q$,NC).<...NDN$.|
00000430: C8 28 51 24 AA 42 4C 24 2C 4E 43 29 00 5A 0C C4 |.(Q$.BL$,NC).Z..|
00000440: 04 99 A6 35 29 22 11 53 48 41 4C 4C 20 49 20 53 |...5)".SHALL I S|
00000450: 45 4E 44 20 12 22 4E 44 4E 24 00 8E 0C CE 04 99 |END ."NDN$......|
00000460: 22 11 20 20 20 54 4F 20 54 48 45 20 44 49 53 4B |". TO THE DISK|
00000470: 45 54 54 45 20 4F 4E 20 44 52 49 56 45 22 44 56 |ETTE ON DRIVE"DV|
00000480: 22 3F 20 28 59 2F 4E 29 22 3A 8D 32 30 30 00 9F |"? (Y/N)":.200..|
00000490: 0C D8 04 8B 51 24 B2 22 59 22 A7 31 32 37 30 00 |....Q$."Y".1270.|
000004A0: B7 0C E2 04 8B 51 24 B3 B1 22 4E 22 A7 8D 32 30 |.....Q$.."N"..20|
000004B0: 30 3A 89 31 32 34 30 00 C1 0C EC 04 89 31 33 35 |0:.1240......135|
000004C0: 30 00 DB 0C F6 04 99 A6 31 33 29 22 11 12 42 45 |0.......13)"..BE|
000004D0: 20 50 41 54 49 45 4E 54 2E 2E 2E 00 FE 0C 00 05 | PATIENT........|
000004E0: 9F 32 2C 38 2C 32 2C 22 23 22 3A 98 31 35 2C 22 |.2,8,2,"#":.15,"|
000004F0: 42 2D 50 3A 32 2C 22 3B 4E 3A 8D 31 30 30 00 10 |B-P:2,";N:.100..|
00000500: 0D 0A 05 98 32 2C 4E 44 4E 24 3B 3A 8D 31 30 30 |....2,NDN$;:.100|
00000510: 00 2F 0D 14 05 98 31 35 2C 22 55 32 3A 32 22 3B |./....15,"U2:2";|
00000520: 44 56 3B 22 2C 31 38 2C 30 22 3A 8D 31 30 30 00 |DV;",18,0":.100.|
00000530: 49 0D 1E 05 98 31 35 2C 22 49 22 AA C4 28 44 56 |I....15,"I"..(DV|
00000540: 29 3A 8D 31 30 30 3A A0 32 00 6C 0D 28 05 46 B2 |):.100:.2.l.(.F.|
00000550: 31 3A 4E B2 31 34 34 3A 4E 43 B2 31 36 3A 99 50 |1:N.144:NC.16:.P|
00000560: 30 24 3A 8D 31 30 36 30 3A 46 B2 30 00 A3 0D 32 |0$:.1060:F.0...2|
00000570: 05 99 A6 38 29 22 11 11 54 48 45 20 4E 45 57 20 |...8)"..THE NEW |
00000580: 44 49 53 4B 20 4E 41 4D 45 2F 49 44 20 49 53 11 |DISK NAME/ID IS.|
00000590: 22 3A 99 A6 37 29 C7 28 33 34 29 44 4E 24 C7 28 |":..7).(34)DN$.(|
000005A0: 33 34 29 00 B0 0D 46 05 A0 32 3A A0 31 35 3A 9C |34)...F..2:.15:.|
000005B0: 00 D8 0D 50 05 99 A6 38 29 22 11 41 4E 4F 54 48 |...P...8)".ANOTH|
000005C0: 45 52 20 44 49 53 4B 45 54 54 45 3F 20 28 59 2F |ER DISKETTE? (Y/|
000005D0: 4E 29 22 3A 8D 32 30 30 00 E6 0D 5A 05 8B 51 24 |N)":.200...Z..Q$|
000005E0: B2 22 59 22 A7 39 00 F8 0D 64 05 8B 51 24 B3 B1 |."Y".9...d..Q$..|
000005F0: 22 4E 22 A7 31 33 37 30 00 14 0E 6E 05 A0 32 3A |"N".1370...n..2:|
00000600: A0 31 35 3A 97 35 39 34 36 38 2C 50 4B 3A 99 22 |.15:.59468,PK:."|
00000610: 93 22 3A 80 00 00 00 |.":.... |
..D....53280,1:.53281,1:.".........THIS
PROGRAM WILL CHANGE THE NAME.|.....10)".
OR I.D. # OF A DISK":..14)".....PRESENTE
D BY.......12)".BETTER SOFTWARE":..14)".
.....HIT ANY KEY.A....A$:.A$."".8......"
........DO YOU WANT TO CHANGE:......"...
...1) NAME":."......2) I.D. #.)....X$:X.
E(X$):.X.1.X.2.12.J....X.1.N$." NAME ":N
C.16:N.144.L....X.2.N$." I.D. # ":NC.2:N
.162......15,8,15:.59468,12...2.P0$."...
.DISK".N$."CHANGE.L.<..I.1.16
:BL$.BL$." ":.:.1000...D..15,E,EM$,T,S:.
E.0.....N.."..DISK ERROR!. #"E;EM$;T;S:.
1350...H..Q$:.Q$."".200.%.M...I...F.0:DV
.0:.P0$:.".PLACE DISK IN DRIVE"DV"AND PR
ESS .RETURN":.200...$..15,"I".D(DV):.100
......2,8,2,"#":.15,"U1:2";DV;",18,0":.1
00.H.8..15,"B-P:2,"N:.100:DN$.""...B..I.
1.NC:.#2,A$:DN$.DN$.A$:....D..F..I.17.23
:.#2,A$:DN$.DN$.A$:....G. 2...L..F...S.V
...8)"..THE PRESENT DISK"N$"IS.":T..((38
.C(DN$)).2).I.`...T)G(34)DN$G(34)...T...
5)".DO YOU WISH TO CHANGE IT? (Y/N)":.20
0...~..Q$."Y".1170.B....Q$.."N"..200:.11
50.L....1350.......10)".ENTER NEW DISK"N
$:..8)".(LIMIT IS"NC"CHARACTERS).&....Q$
:.C(Q$).NC.Q$.H(Q$,NC).<...NDN$.H(Q$.BL$
,NC).Z.D...5)".SHALL I SEND ."NDN$...N..
". TO THE DISKETTE ON DRIVE"DV"? (Y/N)
":.200...X..Q$."Y".1270......Q$.."N"..20
0:.1240.A....1350.......13)"..BE PATIENT
.........2,8,2,"#":.15,"B-P:2,";N:.100..
....2,NDN$;:.100./....15,"U2:2";DV;",18,
0":.100.I....15,"I".D(DV):.100: 2.L.(.F.
1:N.144:NC.16:.P0$:.1060:F.0...2...8)"..
THE NEW DISK NAME/ID IS.":..7)G(34)DN$G(
34)...F. 2: 15:..X.P...8)".ANOTHER DISKE
TTE? (Y/N)":.200...Z..Q$."Y".9...D..Q$..
"N".1370...N. 2: 15:.59468,PK:.".":....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL