CHARSET-CHANGER
FILE INFORMATION
FILENAME(S): CHARSET-CHANGER
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 21:07:00
APPEARS ON: 1 disk(s)
FILE HASH
8ab172bc8e33b34763b027145fa1a492894eeee475641f3c998e2727b1295b12
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES COLL | CHARSET-CHANGER | PRG | DuncanTwain | 16 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 0A 00 99 20 22 93 11 20 50 52 49 4E |..%.... ".. PRIN| 00000010: 54 46 4F 58 20 43 48 41 52 53 45 54 2D 43 48 41 |TFOX CHARSET-CHA| 00000020: 4E 47 45 52 22 00 4D 08 14 00 99 20 22 11 20 44 |NGER".M.... ". D| 00000030: 49 53 4B 20 55 4E 49 54 20 4E 52 20 28 38 2D 31 |ISK UNIT NR (8-1| 00000040: 35 29 20 3F A0 38 20 9D 9D 9D 9D 22 3B 00 73 08 |5) ?.8 ....";.s.| 00000050: 1E 00 85 20 55 3A 20 8B 20 55 B3 38 20 B0 20 55 |... U: . U.8 . U| 00000060: B1 31 35 20 A7 20 99 20 22 91 91 91 22 3A 20 89 |.15 . . "...": .| 00000070: 20 32 30 00 99 08 28 00 99 20 22 11 20 44 49 53 | 20...(.. ". DIS| 00000080: 4B 20 44 52 49 56 45 20 4E 52 20 28 30 2F 31 29 |K DRIVE NR (0/1)| 00000090: 20 3F A0 30 9D 9D 9D 22 3B 00 BE 08 32 00 85 20 | ?.0...";...2.. | 000000A0: 44 3A 20 8B 20 44 B3 30 20 B0 20 44 B1 31 20 A7 |D: . D.0 . D.1 .| 000000B0: 20 99 20 22 91 91 91 22 3A 20 89 20 34 30 00 ED | . "...": . 40..| 000000C0: 08 3C 00 99 20 22 11 11 20 50 55 54 20 54 41 52 |.<.. ".. PUT TAR| 000000D0: 47 45 54 20 44 49 53 4B 20 49 4E 20 55 4E 49 54 |GET DISK IN UNIT| 000000E0: 22 3B 55 3B 22 44 52 49 56 45 22 3B 44 00 15 09 |";U;"DRIVE";D...| 000000F0: 46 00 99 20 22 20 54 48 45 4E 20 50 52 45 53 53 |F.. " THEN PRESS| 00000100: 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 | ANY KEY TO CONT| 00000110: 49 4E 55 45 22 00 2C 09 50 00 A1 20 58 24 3A 20 |INUE".,.P.. X$: | 00000120: 8B 20 58 24 B2 22 22 20 A7 20 38 30 00 53 09 5A |. X$."" . 80.S.Z| 00000130: 00 99 20 22 93 11 20 45 4E 54 45 52 20 43 48 41 |.. ".. ENTER CHA| 00000140: 52 53 45 54 2D 4E 41 4D 45 20 28 4F 52 20 45 4E |RSET-NAME (OR EN| 00000150: 44 29 22 00 7C 09 64 00 85 20 22 20 3F 20 45 4E |D)".|.d.. " ? EN| 00000160: 44 9D 9D 9D 9D 9D 22 3B 4E 24 3A 20 8B 20 4E 24 |D.....";N$: . N$| 00000170: B2 22 45 4E 44 22 20 A7 20 36 31 30 00 9E 09 6E |."END" . 610...n| 00000180: 00 56 B2 31 36 3A 20 51 B2 33 32 3A 20 46 B2 32 |.V.16: Q.32: F.2| 00000190: 35 36 3A 20 4E 24 B2 C8 28 4E 24 2C 56 29 00 C1 |56: N$..(N$,V)..| 000001A0: 09 78 00 48 24 B2 22 30 31 32 33 34 35 36 37 38 |.x.H$."012345678| 000001B0: 39 41 42 43 44 45 46 22 3A 20 5A 24 B2 C7 28 30 |9ABCDEF": Z$..(0| 000001C0: 29 00 EA 09 82 00 54 24 B2 C9 28 C4 28 44 29 2C |).....T$..(.(D),| 000001D0: 31 29 3A 20 9F 20 31 2C 55 2C 31 35 2C 22 49 22 |1): . 1,U,15,"I"| 000001E0: AA 54 24 3A 20 8D 20 36 32 30 00 0E 0A 8C 00 54 |.T$: . 620.....T| 000001F0: 24 B2 54 24 AA 22 3A 22 AA 4E 24 3A 20 9F 20 32 |$.T$.":".N$: . 2| 00000200: 2C 55 2C 32 2C 54 24 AA 22 2C 50 2C 52 22 00 2B |,U,2,T$.",P,R".+| 00000210: 0A 96 00 84 31 2C 45 2C 4D 24 2C 4A 2C 4B 3A 20 |....1,E,M$,J,K: | 00000220: 8B 20 45 B2 30 20 A7 20 32 34 30 00 4B 0A A0 00 |. E.0 . 240.K...| 00000230: A0 20 31 3A 20 A0 20 32 3A 20 99 20 22 11 20 46 |. 1: . 2: . ". F| 00000240: 49 4C 45 3A 20 20 22 3B 4E 24 3B 00 6E 0A AA 00 |ILE: ";N$;.n...| 00000250: 8B 20 45 B2 36 32 20 A7 20 99 20 22 20 4E 4F 54 |. E.62 . . " NOT| 00000260: 20 46 4F 55 4E 44 22 3A 20 89 20 32 30 30 00 95 | FOUND": . 200..| 00000270: 0A B4 00 8B 20 45 B2 36 34 20 A7 20 99 20 22 20 |.... E.64 . . " | 00000280: 4E 4F 54 20 41 20 50 52 4F 47 52 41 4D 22 3A 20 |NOT A PROGRAM": | 00000290: 89 20 32 30 30 00 B4 0A BE 00 99 20 22 11 20 44 |. 200...... ". D| 000002A0: 49 53 4B 20 52 45 41 44 2D 45 52 52 4F 52 22 3B |ISK READ-ERROR";| 000002B0: 45 3A 20 80 00 CE 0A C8 00 81 20 4A B2 31 20 A4 |E: ....... J.1 .| 000002C0: 20 32 30 30 30 3A 20 82 3A 20 89 20 39 30 00 E4 | 2000: .: . 90..| 000002D0: 0A D2 00 4A B2 B5 28 43 AD 56 29 3A 20 4B B2 43 |...J..(C.V): K.C| 000002E0: AB 4A AC 56 00 06 0B DC 00 4D 24 B2 4D 24 AA CA |.J.V.....M$.M$..| 000002F0: 28 48 24 2C 4A AA 31 2C 31 29 AA CA 28 48 24 2C |(H$,J.1,1)..(H$,| 00000300: 4B AA 31 2C 31 29 00 0C 0B E6 00 8E 00 26 0B F0 |K.1,1).......&..| 00000310: 00 A1 23 32 2C 41 24 2C 42 24 3A 20 8B 20 53 54 |..#2,A$,B$: . ST| 00000320: 20 A7 20 31 39 30 00 3A 0B FA 00 A0 20 32 3A 20 | . 190.:.... 2: | 00000330: A0 20 31 3A 20 4D 24 B2 22 22 00 55 0B 04 01 41 |. 1: M$."".U...A| 00000340: B2 C6 28 41 24 AA 5A 24 29 3A 20 42 B2 C6 28 42 |..(A$.Z$): B..(B| 00000350: 24 AA 5A 24 29 00 70 0B 0E 01 43 B2 42 3A 20 8D |$.Z$).p...C.B: .| 00000360: 20 32 31 30 3A 20 43 B2 41 3A 20 8D 20 32 31 30 | 210: C.A: . 210| 00000370: 00 A0 0B 18 01 99 20 22 11 20 43 48 41 52 53 45 |...... ". CHARSE| 00000380: 54 2D 49 44 2D 4E 55 4D 42 45 52 20 49 53 3A 22 |T-ID-NUMBER IS:"| 00000390: 28 28 42 AC 46 AA 41 29 AB 39 30 29 AD 32 35 36 |((B.F.A).90).256| 000003A0: 00 CA 0B 22 01 99 20 22 11 20 48 45 58 3A 20 20 |...".. ". HEX: | 000003B0: 22 3B 4D 24 3B 22 20 20 20 20 44 45 43 49 4D 41 |";M$;" DECIMA| 000003C0: 4C 3A 20 22 3B 42 AC 46 AA 41 00 FC 0B 2C 01 99 |L: ";B.F.A...,..| 000003D0: 20 22 11 20 57 41 4E 54 20 54 4F 20 43 48 41 4E | ". WANT TO CHAN| 000003E0: 47 45 20 43 48 41 52 53 45 54 2D 49 44 20 28 59 |GE CHARSET-ID (Y| 000003F0: 2F 4E 29 20 3F 20 59 9D 9D 9D 22 3B 00 16 0C 36 |/N) ? Y...";...6| 00000400: 01 85 20 58 24 3A 20 8B 20 58 24 B3 B1 22 59 22 |.. X$: . X$.."Y"| 00000410: 20 A7 20 35 38 31 00 43 0C 40 01 99 20 22 11 20 | . 581.C.@.. ". | 00000420: 4E 45 57 20 43 48 41 52 53 45 54 2D 49 44 20 3F |NEW CHARSET-ID ?| 00000430: 20 30 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D | 0 ........| 00000440: 9D 22 3B 00 6A 0C 4A 01 85 20 50 3A 8B 20 50 B3 |.";.j.J.. P:. P.| 00000450: 31 20 B0 20 50 B1 32 35 35 20 A7 20 99 20 22 91 |1 . P.255 . . ".| 00000460: 91 91 22 3A 20 89 20 33 32 30 00 A0 0C 54 01 50 |..": . 320...T.P| 00000470: B2 50 AC 32 35 36 AA 39 30 3A 42 B2 B5 28 50 AD |.P.256.90:B..(P.| 00000480: 46 29 3A 20 41 B2 50 AB 42 AC 46 3A 20 50 24 B2 |F): A.P.B.F: P$.| 00000490: C7 28 41 29 AA C7 28 42 29 3A 20 4D 24 B2 22 22 |.(A)..(B): M$.""| 000004A0: 00 BB 0C 5E 01 43 B2 42 3A 20 8D 20 32 31 30 3A |...^.C.B: . 210:| 000004B0: 20 43 B2 41 3A 20 8D 20 32 31 30 00 FE 0C 68 01 | C.A: . 210...h.| 000004C0: 99 20 22 11 20 48 45 58 3A 20 20 22 3B 4D 24 3B |. ". HEX: ";M$;| 000004D0: 22 20 20 20 20 44 45 43 3A 20 22 3B 42 AC 46 AA |" DEC: ";B.F.| 000004E0: 41 3B 22 20 20 20 20 20 49 44 3A 20 22 3B 28 28 |A;" ID: ";((| 000004F0: 42 AC 46 AA 41 29 AB 39 30 29 AD 32 35 36 00 30 |B.F.A).90).256.0| 00000500: 0D 72 01 99 20 22 11 20 4F 4B 20 54 4F 20 57 52 |.r.. ". OK TO WR| 00000510: 49 54 45 20 4E 45 57 20 4C 4F 41 44 2D 41 44 44 |ITE NEW LOAD-ADD| 00000520: 52 20 28 59 2F 4E 29 20 3F 20 59 9D 9D 9D 22 3B |R (Y/N) ? Y...";| 00000530: 00 49 0D 7C 01 85 20 58 24 3A 20 8B 20 58 24 B3 |.I.|.. X$: . X$.| 00000540: B1 22 59 22 20 A7 20 39 30 00 62 0D 86 01 4A B2 |."Y" . 90.b...J.| 00000550: C3 28 4E 24 29 3A 20 8B 20 4A B2 56 20 A7 20 34 |.(N$): . J.V . 4| 00000560: 31 30 00 81 0D 90 01 81 20 58 B2 4A AA 31 20 A4 |10...... X.J.1 .| 00000570: 20 56 3A 4E 24 B2 4E 24 AA C7 28 31 36 30 29 3A | V:N$.N$..(160):| 00000580: 82 00 9B 0D 9A 01 9F 20 31 2C 55 2C 31 35 3A 20 |....... 1,U,15: | 00000590: 9F 20 32 2C 55 2C 32 2C 22 23 22 00 B0 0D A4 01 |. 2,U,2,"#".....| 000005A0: 8D 20 36 32 30 3A 20 54 B2 31 38 3A 20 53 B2 31 |. 620: T.18: S.1| 000005B0: 00 CC 0D AE 01 98 31 2C 22 55 31 3A 22 3B 32 3B |......1,"U1:";2;| 000005C0: 44 3B 54 3B 53 3A 20 8D 20 36 32 30 00 E9 0D B8 |D;T;S: . 620....| 000005D0: 01 98 31 2C 22 42 2D 50 3A 22 3B 32 3B 30 3A 20 |..1,"B-P:";2;0: | 000005E0: A1 23 32 2C 41 24 2C 42 24 00 09 0E C2 01 54 B2 |.#2,A$,B$.....T.| 000005F0: C6 28 41 24 AA 5A 24 29 3A 20 53 B2 C6 28 42 24 |.(A$.Z$): S..(B$| 00000600: AA 5A 24 29 3A 20 48 B2 32 00 23 0E CC 01 98 31 |.Z$): H.2.#....1| 00000610: 2C 22 42 2D 50 3A 22 3B 32 3B 48 3A 20 A1 23 32 |,"B-P:";2;H: .#2| 00000620: 2C 54 24 00 42 0E D6 01 43 B2 C6 28 54 24 AA 5A |,T$.B...C..(T$.Z| 00000630: 24 29 3A 20 8B 20 43 B3 B1 31 33 30 20 A7 20 35 |$): . C..130 . 5| 00000640: 31 30 00 62 0E E0 01 A1 23 32 2C 41 24 2C 42 24 |10.b....#2,A$,B$| 00000650: 3A 20 46 24 B2 22 22 3A 20 81 20 58 B2 31 20 A4 |: F$."": . X.1 .| 00000660: 20 56 00 7A 0E EA 01 A1 23 32 2C 54 24 3A 20 46 | V.z....#2,T$: F| 00000670: 24 B2 46 24 AA 54 24 3A 20 82 00 8C 0E F4 01 8B |$.F$.T$: .......| 00000680: 20 46 24 B2 4E 24 20 A7 20 35 33 30 00 A3 0E FE | F$.N$ . 530....| 00000690: 01 48 B2 48 AA 51 3A 20 8B 20 48 B3 46 20 A7 20 |.H.H.Q: . H.F . | 000006A0: 34 36 30 00 AD 0E 08 02 89 20 34 33 30 00 C8 0E |460...... 430...| 000006B0: 12 02 41 B2 C6 28 41 24 AA 5A 24 29 3A 20 42 B2 |..A..(A$.Z$): B.| 000006C0: C6 28 42 24 AA 5A 24 29 00 E4 0E 1C 02 98 31 2C |.(B$.Z$)......1,| 000006D0: 22 55 31 3A 22 3B 32 3B 44 3B 41 3B 42 3A 20 8D |"U1:";2;D;A;B: .| 000006E0: 20 36 32 30 00 FE 0E 26 02 98 31 2C 22 42 2D 50 | 620...&..1,"B-P| 000006F0: 3A 22 3B 32 3B 32 3A 20 98 32 2C 50 24 3B 00 1A |:";2;2: .2,P$;..| 00000700: 0F 30 02 98 31 2C 22 55 32 3A 22 3B 32 3B 44 3B |.0..1,"U2:";2;D;| 00000710: 41 3B 42 3A 20 8D 20 36 32 30 00 2E 0F 3A 02 A0 |A;B: . 620...:..| 00000720: 20 32 3A 20 8D 20 36 32 30 3A 20 A0 20 31 00 52 | 2: . 620: . 1.R| 00000730: 0F 44 02 99 20 22 11 20 4C 4F 41 44 2D 41 44 44 |.D.. ". LOAD-ADD| 00000740: 52 20 43 48 41 4E 47 45 44 20 46 4F 52 20 22 3B |R CHANGED FOR ";| 00000750: 4E 24 00 7A 0F 45 02 99 20 22 11 20 43 48 41 4E |N$.z.E.. ". CHAN| 00000760: 47 45 20 46 49 4C 45 4E 41 4D 45 20 28 59 2F 4E |GE FILENAME (Y/N| 00000770: 29 20 3F 20 59 9D 9D 9D 22 3B 00 93 0F 46 02 85 |) ? Y...";...F..| 00000780: 20 58 24 3A 20 8B 20 58 24 B2 22 4E 22 20 A7 20 | X$: . X$."N" . | 00000790: 35 39 30 00 AB 0F 47 02 99 22 11 20 4E 45 57 20 |590...G..". NEW | 000007A0: 4E 41 4D 45 22 3B 3A 85 4E 4E 24 00 D0 0F 48 02 |NAME";:.NN$...H.| 000007B0: 9F 31 2C 38 2C 31 35 2C 22 52 3A 22 AA 4E 4E 24 |.1,8,15,"R:".NN$| 000007C0: AA 22 3D 22 AA 4E 24 3A 8D 20 36 32 30 3A A0 31 |."=".N$:. 620:.1| 000007D0: 00 FF 0F 4E 02 99 20 22 11 20 43 48 41 4E 47 45 |...N.. ". CHANGE| 000007E0: 20 41 4E 4F 54 48 45 52 20 50 52 4F 47 52 41 4D | ANOTHER PROGRAM| 000007F0: 20 28 59 2F 4E 29 20 3F 20 59 9D 9D 9D 22 3B 00 | (Y/N) ? Y...";.| 00000800: 17 10 58 02 85 20 58 24 3A 20 8B 20 58 24 B2 22 |..X.. X$: . X$."| 00000810: 59 22 20 A7 20 39 30 00 25 10 62 02 99 20 22 93 |Y" . 90.%.b.. ".| 00000820: 22 3B 3A 20 80 00 3F 10 6C 02 84 31 2C 45 2C 4D |";: ..?.l..1,E,M| 00000830: 24 2C 4A 2C 4B 3A 8B 20 45 B2 30 20 A7 20 8E 00 |$,J,K:. E.0 . ..| 00000840: 5A 10 76 02 99 20 22 11 20 45 52 52 4F 52 3A 20 |Z.v.. ". ERROR: | 00000850: 22 3B 45 3B 4D 24 3B 4A 3B 4B 00 6A 10 80 02 A0 |";E;M$;J;K.j....| 00000860: 20 32 3A 20 A0 20 31 3A 20 80 00 00 00 | 2: . 1: .... |
..%.... ".. PRINTFOX CHARSET-CHANGER".M. ... ". DISK UNIT NR (8-15) ? 8 ....";.S. ... U: . U.8 . U.15 . . "...": . 20...(. . ". DISK DRIVE NR (0/1) ? 0...";...2.. D: . D.0 . D.1 . . "...": . 40...<.. ".. PUT TARGET DISK IN UNIT";U;"DRIVE";D... F.. " THEN PRESS ANY KEY TO CONTINUE".,. P.. X$: . X$."" . 80.S.Z.. ".. ENTER CHA RSET-NAME (OR END)".|.D.. " ? END....."; N$: . N$."END" . 610...N.V.16: Q.32: F.2 56: N$.H(N$,V).A.X.H$."0123456789ABCDEF" : Z$.G(0).....T$.I(D(D),1): . 1,U,15,"I" .T$: . 620.....T$.T$.":".N$: . 2,U,2,T$. ",P,R".+....1,E,M$,J,K: . E.0 . 240.K. . 1: 2: . ". FILE: ";N$;.N.... E.62 . . " NOT FOUND": . 200...... E.64 . . " NOT A PROGRAM": . 200...... ". DISK READ -ERROR";E: ..N.H.. J.1 . 2000: .: . 90.. .R.J..(C.V): K.C.J.V.....M$.M$.J(H$,J.1, 1).J(H$,K.1,1).......&....#2,A$,B$: . ST . 190.:... 2: 1: M$."".U...A.F(A$.Z$ ): B.F(B$.Z$).P...C.B: . 210: C.A: . 210 . .... ". CHARSET-ID-NUMBER IS:"((B.F.A) .90).256.J.".. ". HEX: ";M$;" DECIMA L: ";B.F.A...,.. ". WANT TO CHANGE CHARS ET-ID (Y/N) ? Y...";...6.. X$: . X$.."Y" . 581.C.@.. ". NEW CHARSET-ID ? 0 .........";.J.J.. P:. P.1 . P.255 . . ". ..": . 320. .T.P.P.256.90:B..(P.F): A.P. B.F: P$.G(A).G(B): M$.""...^.C.B: . 210: C.A: . 210...H.. ". HEX: ";M$;" DEC : ";B.F.A;" ID: ";((B.F.A).90).256.0 .R.. ". OK TO WRITE NEW LOAD-ADDR (Y/N) ? Y...";.I.|.. X$: . X$.."Y" . 90.B...J. C(N$): . J.V . 410...... X.J.1 . V:N$.N$ .G(160):....... 1,U,15: . 2,U,2,"#"..... . 620: T.18: S.1.L....1,"U1:";2;D;T;S: . 620......1,"B-P:";2;0: .#2,A$,B$...B.T. F(A$.Z$): S.F(B$.Z$): H.2.#.L..1,"B-P:"; 2;H: .#2,T$.B.V.C.F(T$.Z$): . C..130 . 5 10.B....#2,A$,B$: F$."": . X.1 . V.Z.... #2,T$: F$.F$.T$: ....... F$.N$ . 530.... .H.H.Q: . H.F . 460...... 430.H...A.F(A$ .Z$): B.F(B$.Z$)......1,"U1:";2;D;A;B: . 620...&..1,"B-P:";2;2: .2,P$;...0..1,"U 2:";2;D;A;B: . 620...:. 2: . 620: 1.R .D.. ". LOAD-ADDR CHANGED FOR ";N$.Z.E.. ". CHANGE FILENAME (Y/N) ? Y...";...F.. X$: . X$."N" . 590...G..". NEW NAME";:. NN$.P.H..1,8,15,"R:".NN$."=".N$:. 620: 1 ...N.. ". CHANGE ANOTHER PROGRAM (Y/N) ? Y...";...X.. X$: . X$."Y" . 90.%.B.. ". ";: ..?.L..1,E,M$,J,K:. E.0 . ..Z.V.. ". ERROR: ";E;M$;J;K.J... 2: 1: ....
> CLICK IMAGE PREVIEW FOR FULL MODAL