ZS RENAMER
FILE INFORMATION
FILENAME(S): ZS RENAMER
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 21:26:59
APPEARS ON: 1 disk(s)
FILE HASH
26dd4d31c085248653eb0df28b2ace70e885c093fd17aa9e16de2198e9f95272
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GEGOGAMES | ZS RENAMER | PRG | DuncanTwain | 4 | 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 5A 09 5A |. X$."" . 80.Z.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 55 4D 42 45 52 20 5A 53 20 20 |RSET-NUMBER ZS | 00000150: 20 9D 9D 9D 22 3B 3A 85 4E 24 00 69 09 64 00 4E | ...";:.N$.i.d.N| 00000160: 24 B2 22 5A 53 22 AA 4E 24 00 8B 09 6E 00 56 B2 |$."ZS".N$...n.V.| 00000170: 31 36 3A 20 51 B2 33 32 3A 20 46 B2 32 35 36 3A |16: Q.32: F.256:| 00000180: 20 4E 24 B2 C8 28 4E 24 2C 56 29 00 AE 09 78 00 | N$..(N$,V)...x.| 00000190: 48 24 B2 22 30 31 32 33 34 35 36 37 38 39 41 42 |H$."0123456789AB| 000001A0: 43 44 45 46 22 3A 20 5A 24 B2 C7 28 30 29 00 D7 |CDEF": Z$..(0)..| 000001B0: 09 82 00 54 24 B2 C9 28 C4 28 44 29 2C 31 29 3A |...T$..(.(D),1):| 000001C0: 20 9F 20 31 2C 55 2C 31 35 2C 22 49 22 AA 54 24 | . 1,U,15,"I".T$| 000001D0: 3A 20 8D 20 36 32 30 00 FB 09 8C 00 54 24 B2 54 |: . 620.....T$.T| 000001E0: 24 AA 22 3A 22 AA 4E 24 3A 20 9F 20 32 2C 55 2C |$.":".N$: . 2,U,| 000001F0: 32 2C 54 24 AA 22 2C 50 2C 52 22 00 18 0A 96 00 |2,T$.",P,R".....| 00000200: 84 31 2C 45 2C 4D 24 2C 4A 2C 4B 3A 20 8B 20 45 |.1,E,M$,J,K: . E| 00000210: B2 30 20 A7 20 32 34 30 00 38 0A A0 00 A0 20 31 |.0 . 240.8.... 1| 00000220: 3A 20 A0 20 32 3A 20 99 20 22 11 20 46 49 4C 45 |: . 2: . ". FILE| 00000230: 3A 20 20 22 3B 4E 24 3B 00 5B 0A AA 00 8B 20 45 |: ";N$;.[.... E| 00000240: B2 36 32 20 A7 20 99 20 22 20 4E 4F 54 20 46 4F |.62 . . " NOT FO| 00000250: 55 4E 44 22 3A 20 89 20 32 30 30 00 82 0A B4 00 |UND": . 200.....| 00000260: 8B 20 45 B2 36 34 20 A7 20 99 20 22 20 4E 4F 54 |. E.64 . . " NOT| 00000270: 20 41 20 50 52 4F 47 52 41 4D 22 3A 20 89 20 32 | A PROGRAM": . 2| 00000280: 30 30 00 A1 0A BE 00 99 20 22 11 20 44 49 53 4B |00...... ". DISK| 00000290: 20 52 45 41 44 2D 45 52 52 4F 52 22 3B 45 3A 20 | READ-ERROR";E: | 000002A0: 80 00 BB 0A C8 00 81 20 4A B2 31 20 A4 20 32 30 |....... J.1 . 20| 000002B0: 30 30 3A 20 82 3A 20 89 20 39 30 00 D1 0A D2 00 |00: .: . 90.....| 000002C0: 4A B2 B5 28 43 AD 56 29 3A 20 4B B2 43 AB 4A AC |J..(C.V): K.C.J.| 000002D0: 56 00 F3 0A DC 00 4D 24 B2 4D 24 AA CA 28 48 24 |V.....M$.M$..(H$| 000002E0: 2C 4A AA 31 2C 31 29 AA CA 28 48 24 2C 4B AA 31 |,J.1,1)..(H$,K.1| 000002F0: 2C 31 29 00 F9 0A E6 00 8E 00 13 0B F0 00 A1 23 |,1)............#| 00000300: 32 2C 41 24 2C 42 24 3A 20 8B 20 53 54 20 A7 20 |2,A$,B$: . ST . | 00000310: 31 39 30 00 27 0B FA 00 A0 20 32 3A 20 A0 20 31 |190.'.... 2: . 1| 00000320: 3A 20 4D 24 B2 22 22 00 42 0B 04 01 41 B2 C6 28 |: M$."".B...A..(| 00000330: 41 24 AA 5A 24 29 3A 20 42 B2 C6 28 42 24 AA 5A |A$.Z$): B..(B$.Z| 00000340: 24 29 00 5D 0B 0E 01 43 B2 42 3A 20 8D 20 32 31 |$).]...C.B: . 21| 00000350: 30 3A 20 43 B2 41 3A 20 8D 20 32 31 30 00 8D 0B |0: C.A: . 210...| 00000360: 18 01 99 20 22 11 20 43 48 41 52 53 45 54 2D 49 |... ". CHARSET-I| 00000370: 44 2D 4E 55 4D 42 45 52 20 49 53 3A 22 28 28 42 |D-NUMBER IS:"((B| 00000380: AC 46 AA 41 29 AB 39 30 29 AD 32 35 36 00 B7 0B |.F.A).90).256...| 00000390: 22 01 99 20 22 11 20 48 45 58 3A 20 20 22 3B 4D |".. ". HEX: ";M| 000003A0: 24 3B 22 20 20 20 20 44 45 43 49 4D 41 4C 3A 20 |$;" DECIMAL: | 000003B0: 22 3B 42 AC 46 AA 41 00 E9 0B 2C 01 99 20 22 11 |";B.F.A...,.. ".| 000003C0: 20 57 41 4E 54 20 54 4F 20 43 48 41 4E 47 45 20 | WANT TO CHANGE | 000003D0: 43 48 41 52 53 45 54 2D 49 44 20 28 59 2F 4E 29 |CHARSET-ID (Y/N)| 000003E0: 20 3F 20 59 9D 9D 9D 22 3B 00 03 0C 36 01 85 20 | ? Y...";...6.. | 000003F0: 58 24 3A 20 8B 20 58 24 B3 B1 22 59 22 20 A7 20 |X$: . X$.."Y" . | 00000400: 35 38 31 00 20 0C 40 01 99 20 22 11 20 4E 45 57 |581. .@.. ". NEW| 00000410: 20 43 48 41 52 53 45 54 2D 49 44 20 5A 53 22 3B | CHARSET-ID ZS";| 00000420: 00 47 0C 4A 01 85 20 50 3A 8B 20 50 B3 31 20 B0 |.G.J.. P:. P.1 .| 00000430: 20 50 B1 32 35 35 20 A7 20 99 20 22 91 91 91 22 | P.255 . . "..."| 00000440: 3A 20 89 20 33 32 30 00 73 0C 4F 01 4B 24 B2 C4 |: . 320.s.O.K$..| 00000450: 28 50 29 3A 57 B2 C3 28 4B 24 29 3A 4B 24 B2 C9 |(P):W..(K$):K$..| 00000460: 28 4B 24 2C 57 AB 31 29 3A 4B 24 B2 22 5A 53 22 |(K$,W.1):K$."ZS"| 00000470: AA 4B 24 00 A9 0C 54 01 50 B2 50 AC 32 35 36 AA |.K$...T.P.P.256.| 00000480: 39 30 3A 42 B2 B5 28 50 AD 46 29 3A 20 41 B2 50 |90:B..(P.F): A.P| 00000490: AB 42 AC 46 3A 20 50 24 B2 C7 28 41 29 AA C7 28 |.B.F: P$..(A)..(| 000004A0: 42 29 3A 20 4D 24 B2 22 22 00 C4 0C 5E 01 43 B2 |B): M$.""...^.C.| 000004B0: 42 3A 20 8D 20 32 31 30 3A 20 43 B2 41 3A 20 8D |B: . 210: C.A: .| 000004C0: 20 32 31 30 00 07 0D 68 01 99 20 22 11 20 48 45 | 210...h.. ". HE| 000004D0: 58 3A 20 20 22 3B 4D 24 3B 22 20 20 20 20 44 45 |X: ";M$;" DE| 000004E0: 43 3A 20 22 3B 42 AC 46 AA 41 3B 22 20 20 20 20 |C: ";B.F.A;" | 000004F0: 20 49 44 3A 20 22 3B 28 28 42 AC 46 AA 41 29 AB | ID: ";((B.F.A).| 00000500: 39 30 29 AD 32 35 36 00 39 0D 72 01 99 20 22 11 |90).256.9.r.. ".| 00000510: 20 4F 4B 20 54 4F 20 57 52 49 54 45 20 4E 45 57 | OK TO WRITE NEW| 00000520: 20 4C 4F 41 44 2D 41 44 44 52 20 28 59 2F 4E 29 | LOAD-ADDR (Y/N)| 00000530: 20 3F 20 59 9D 9D 9D 22 3B 00 52 0D 7C 01 85 20 | ? Y...";.R.|.. | 00000540: 58 24 3A 20 8B 20 58 24 B3 B1 22 59 22 20 A7 20 |X$: . X$.."Y" . | 00000550: 39 30 00 6B 0D 86 01 4A B2 C3 28 4E 24 29 3A 20 |90.k...J..(N$): | 00000560: 8B 20 4A B2 56 20 A7 20 34 31 30 00 8A 0D 90 01 |. J.V . 410.....| 00000570: 81 20 58 B2 4A AA 31 20 A4 20 56 3A 4E 24 B2 4E |. X.J.1 . V:N$.N| 00000580: 24 AA C7 28 31 36 30 29 3A 82 00 A4 0D 9A 01 9F |$..(160):.......| 00000590: 20 31 2C 55 2C 31 35 3A 20 9F 20 32 2C 55 2C 32 | 1,U,15: . 2,U,2| 000005A0: 2C 22 23 22 00 B9 0D A4 01 8D 20 36 32 30 3A 20 |,"#"...... 620: | 000005B0: 54 B2 31 38 3A 20 53 B2 31 00 D5 0D AE 01 98 31 |T.18: S.1......1| 000005C0: 2C 22 55 31 3A 22 3B 32 3B 44 3B 54 3B 53 3A 20 |,"U1:";2;D;T;S: | 000005D0: 8D 20 36 32 30 00 F2 0D B8 01 98 31 2C 22 42 2D |. 620......1,"B-| 000005E0: 50 3A 22 3B 32 3B 30 3A 20 A1 23 32 2C 41 24 2C |P:";2;0: .#2,A$,| 000005F0: 42 24 00 12 0E C2 01 54 B2 C6 28 41 24 AA 5A 24 |B$.....T..(A$.Z$| 00000600: 29 3A 20 53 B2 C6 28 42 24 AA 5A 24 29 3A 20 48 |): S..(B$.Z$): H| 00000610: B2 32 00 2C 0E CC 01 98 31 2C 22 42 2D 50 3A 22 |.2.,....1,"B-P:"| 00000620: 3B 32 3B 48 3A 20 A1 23 32 2C 54 24 00 4B 0E D6 |;2;H: .#2,T$.K..| 00000630: 01 43 B2 C6 28 54 24 AA 5A 24 29 3A 20 8B 20 43 |.C..(T$.Z$): . C| 00000640: B3 B1 31 33 30 20 A7 20 35 31 30 00 6B 0E E0 01 |..130 . 510.k...| 00000650: A1 23 32 2C 41 24 2C 42 24 3A 20 46 24 B2 22 22 |.#2,A$,B$: F$.""| 00000660: 3A 20 81 20 58 B2 31 20 A4 20 56 00 83 0E EA 01 |: . X.1 . V.....| 00000670: A1 23 32 2C 54 24 3A 20 46 24 B2 46 24 AA 54 24 |.#2,T$: F$.F$.T$| 00000680: 3A 20 82 00 95 0E F4 01 8B 20 46 24 B2 4E 24 20 |: ....... F$.N$ | 00000690: A7 20 35 33 30 00 AC 0E FE 01 48 B2 48 AA 51 3A |. 530.....H.H.Q:| 000006A0: 20 8B 20 48 B3 46 20 A7 20 34 36 30 00 B6 0E 08 | . H.F . 460....| 000006B0: 02 89 20 34 33 30 00 D1 0E 12 02 41 B2 C6 28 41 |.. 430.....A..(A| 000006C0: 24 AA 5A 24 29 3A 20 42 B2 C6 28 42 24 AA 5A 24 |$.Z$): B..(B$.Z$| 000006D0: 29 00 ED 0E 1C 02 98 31 2C 22 55 31 3A 22 3B 32 |)......1,"U1:";2| 000006E0: 3B 44 3B 41 3B 42 3A 20 8D 20 36 32 30 00 07 0F |;D;A;B: . 620...| 000006F0: 26 02 98 31 2C 22 42 2D 50 3A 22 3B 32 3B 32 3A |&..1,"B-P:";2;2:| 00000700: 20 98 32 2C 50 24 3B 00 23 0F 30 02 98 31 2C 22 | .2,P$;.#.0..1,"| 00000710: 55 32 3A 22 3B 32 3B 44 3B 41 3B 42 3A 20 8D 20 |U2:";2;D;A;B: . | 00000720: 36 32 30 00 37 0F 3A 02 A0 20 32 3A 20 8D 20 36 |620.7.:.. 2: . 6| 00000730: 32 30 3A 20 A0 20 31 00 5B 0F 44 02 99 20 22 11 |20: . 1.[.D.. ".| 00000740: 20 4C 4F 41 44 2D 41 44 44 52 20 43 48 41 4E 47 | LOAD-ADDR CHANG| 00000750: 45 44 20 46 4F 52 20 22 3B 4E 24 00 98 0F 45 02 |ED FOR ";N$...E.| 00000760: 99 20 22 11 20 4E 45 57 20 46 49 4C 45 4E 41 4D |. ". NEW FILENAM| 00000770: 45 20 22 3B 4B 24 3B 22 20 28 59 2F 4E 29 20 20 |E ";K$;" (Y/N) | 00000780: 59 9D 9D 9D 22 3B 3A 85 4E 4E 24 3A 8B 4E 4E 24 |Y...";:.NN$:.NN$| 00000790: B2 22 4E 22 A7 35 39 30 00 AC 0F 47 02 8B 4E 4E |."N".590...G..NN| 000007A0: 24 B2 22 59 22 A7 4E 4E 24 B2 4B 24 00 D1 0F 48 |$."Y".NN$.K$...H| 000007B0: 02 9F 31 2C 38 2C 31 35 2C 22 52 3A 22 AA 4E 4E |..1,8,15,"R:".NN| 000007C0: 24 AA 22 3D 22 AA 4E 24 3A 8D 20 36 32 30 3A A0 |$."=".N$:. 620:.| 000007D0: 31 00 00 10 4E 02 99 20 22 11 20 43 48 41 4E 47 |1...N.. ". CHANG| 000007E0: 45 20 41 4E 4F 54 48 45 52 20 50 52 4F 47 52 41 |E ANOTHER PROGRA| 000007F0: 4D 20 28 59 2F 4E 29 20 3F 20 59 9D 9D 9D 22 3B |M (Y/N) ? Y...";| 00000800: 00 18 10 58 02 85 20 58 24 3A 20 8B 20 58 24 B2 |...X.. X$: . X$.| 00000810: 22 59 22 20 A7 20 39 30 00 26 10 62 02 99 20 22 |"Y" . 90.&.b.. "| 00000820: 93 22 3B 3A 20 80 00 40 10 6C 02 84 31 2C 45 2C |.";: ..@.l..1,E,| 00000830: 4D 24 2C 4A 2C 4B 3A 8B 20 45 B2 30 20 A7 20 8E |M$,J,K:. E.0 . .| 00000840: 00 5B 10 76 02 99 20 22 11 20 45 52 52 4F 52 3A |.[.v.. ". ERROR:| 00000850: 20 22 3B 45 3B 4D 24 3B 4A 3B 4B 00 6B 10 80 02 | ";E;M$;J;K.k...| 00000860: A0 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.Z.Z.. ".. ENTER CHA RSET-NUMBER ZS ...";:.N$.I.D.N$."ZS".N $...N.V.16: Q.32: F.256: N$.H(N$,V)...X. H$."0123456789ABCDEF": Z$.G(0).W...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.8. . 1: 2: . ". FILE : ";N$;.[.... E.62 . . " NOT FOUND": . 200...... E.64 . . " NOT A PROGRAM": . 2 00...... ". DISK READ-ERROR";E: ....H.. J.1 . 2000: .: . 90.Q.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$."".B...A.F(A$.Z$): B.F(B$.Z$).]...C .B: . 210: C.A: . 210...... ". CHARSET-I D-NUMBER IS:"((B.F.A).90).256...".. ". H EX: ";M$;" DECIMAL: ";B.F.A...,.. ". WANT TO CHANGE CHARSET-ID (Y/N) ? Y..." ;...6.. X$: . X$.."Y" . 581. .@.. ". NEW CHARSET-ID ZS";.G.J.. P:. P.1 . P.255 . . "...": . 320.S.O.K$.D(P):W.C(K$):K$.I (K$,W.1):K$."ZS".K$...T.P.P.256.90:B..(P .F): A.P.B.F: P$.G(A).G(B): M$."".D.^.C. B: . 210: C.A: . 210...H.. ". HEX: ";M$ ;" DEC: ";B.F.A;" ID: ";((B.F.A). 90).256.9.R.. ". OK TO WRITE NEW LOAD-AD DR (Y/N) ? Y...";.R.|.. X$: . X$.."Y" . 90.K...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.U....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$.K.V.C.F(T$.Z$): . C ..130 . 510.K....#2,A$,B$: F$."": . X.1 . V......#2,T$: F$.F$.T$: ....... F$.N$ . 530.....H.H.Q: . H.F . 460...... 430.Q ...A.F(A$.Z$): B.F(B$.Z$)......1,"U1:";2 ;D;A;B: . 620...&..1,"B-P:";2;2: .2,P$;. #.0..1,"U2:";2;D;A;B: . 620.7.:. 2: . 6 20: 1.[.D.. ". LOAD-ADDR CHANGED FOR " ;N$...E.. ". NEW FILENAME ";K$;" (Y/N) Y...";:.NN$:.NN$."N".590...G..NN$."Y".NN $.K$.Q.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 . ..[.V.. " . ERROR: ";E;M$;J;K.K... 2: 1: ....
> CLICK IMAGE PREVIEW FOR FULL MODAL