> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 C1 07 9E 20 28 32 30 38 35 29 20 28 |....... (2085) (|
00000010: 43 29 20 54 4E 43 20 27 20 31 39 38 36 00 00 00 |C) TNC ' 1986...|
00000020: 00 00 00 00 00 00 20 53 E4 A2 00 BD 7E 08 9D 3C |...... S....~..<|
00000030: 03 E8 E0 C0 D0 F5 A9 36 85 01 8D 20 D0 A9 00 A2 |.......6... ....|
00000040: D0 85 FB 86 FC A5 2D A6 2E 85 FD 86 FE A0 00 F0 |......-.........|
00000050: 04 B1 FD 91 FB A9 F2 A2 08 E4 FE D0 02 C5 FD F0 |................|
00000060: 13 A5 FD D0 02 C6 FE C6 FD A5 FB D0 02 C6 FC C6 |................|
00000070: FB 4C 50 08 A9 01 A2 08 85 2D 86 2E 4C 3C 03 20 |.LP......-..L<. |
00000080: 9A 03 C9 CF D0 11 20 9A 03 C9 00 D0 04 A9 CF D0 |...... .........|
00000090: 1C AA A9 00 4C 83 03 C9 BF D0 12 20 9A 03 C9 00 |....L...... ....|
000000A0: D0 04 A9 BF D0 07 AA 20 9A 03 4C 83 03 20 A5 03 |....... ..L.. ..|
000000B0: A9 00 A2 D0 E4 FC D0 02 C5 FB D0 C3 A9 37 85 01 |.............7..|
000000C0: 20 59 A6 4C AE A7 E8 A0 00 91 2D C8 CA D0 FA 88 | Y.L......-.....|
000000D0: 98 38 65 2D 85 2D 90 02 E6 2E 4C 6D 03 A0 00 B1 |.8e-.-....Lm....|
000000E0: FB E6 FB D0 02 E6 FC 60 A0 00 91 2D E6 2D D0 02 |.......`...-.-..|
000000F0: E6 2E 60 0E 08 01 00 97 38 30 38 2C 32 32 35 00 |..`.....808,225.|
00000100: 2A 08 0A 00 99 22 93 05 22 3A 97 35 33 32 38 30 |*...."..":.53280|
00000110: 2C 30 3A 97 35 33 32 38 31 2C 30 00 57 08 0F 00 |,0:.53281,0.W...|
00000120: 99 22 20 20 20 BF 21 2A 22 00 84 08 11 00 99 22 |." .!*"......"|
00000130: 20 20 20 2A BF 1F 20 2A 22 00 B1 08 14 00 99 22 | *.. *"......"|
00000140: 20 20 20 2A 20 50 52 49 4E 54 53 48 4F 50 20 41 | * PRINTSHOP A|
00000150: 4E 44 20 44 41 54 41 2D 44 49 53 4B 20 53 45 54 |ND DATA-DISK SET|
00000160: 2D 55 50 20 2A 22 00 DE 08 19 00 99 22 20 20 20 |-UP *"......" |
00000170: 2A BF 1F 20 2A 22 00 0B 09 1E 00 99 22 20 20 20 |*.. *"......" |
00000180: BF 21 2A 22 00 3E 09 1F 00 99 22 11 11 11 20 44 |.!*".>...."... D|
00000190: 4F 20 59 4F 55 20 57 41 4E 54 20 12 41 55 54 4F |O YOU WANT .AUTO|
000001A0: 92 20 44 49 53 4B 49 44 45 4E 54 49 46 49 43 41 |. DISKIDENTIFICA|
000001B0: 54 49 4F 4E 20 3F 22 00 55 09 20 00 97 31 39 38 |TION ?".U. ..198|
000001C0: 2C 30 3A 92 31 39 38 2C 31 3A A1 41 24 3A 00 66 |,0:.198,1:.A$:.f|
000001D0: 09 21 00 8B 41 24 B2 22 4E 22 A7 41 55 B2 31 00 |.!..A$."N".AU.1.|
000001E0: 93 09 28 00 99 22 11 11 11 BF 05 20 50 4C 45 41 |..(.."..... PLEA|
000001F0: 53 45 20 49 4E 53 45 52 54 20 44 49 53 4B 20 54 |SE INSERT DISK T|
00000200: 4F 20 52 45 4E 41 4D 45 22 00 B9 09 32 00 99 A3 |O RENAME"...2...|
00000210: 37 29 22 11 41 4E 44 20 50 52 45 53 53 20 41 4E |7)".AND PRESS AN|
00000220: 59 20 4B 45 59 20 54 4F 20 53 54 41 52 54 22 00 |Y KEY TO START".|
00000230: D2 09 3C 00 97 31 39 38 2C 30 3A 92 31 39 38 2C |..<..198,0:.198,|
00000240: 31 3A 97 31 39 38 2C 30 00 E4 09 46 00 9F 31 35 |1:.198,0...F..15|
00000250: 2C 38 2C 31 35 2C 22 49 30 22 00 0B 0A 50 00 84 |,8,15,"I0"...P..|
00000260: 31 35 2C 41 3A 8B 41 B3 B1 30 A7 A0 31 35 3A 89 |15,A:.A..0..15:.|
00000270: 20 31 30 3A 8F 20 50 41 4E 49 4B 20 BF 04 21 00 | 10:. PANIK ..!.|
00000280: 1A 0A 55 00 9F 38 2C 38 2C 38 2C 22 23 22 00 30 |..U..8,8,8,"#".0|
00000290: 0A 5A 00 98 31 35 2C 22 55 31 20 38 20 30 20 31 |.Z..15,"U1 8 0 1|
000002A0: 38 20 30 22 00 44 0A 64 00 98 31 35 2C 22 42 2D |8 0".D.d..15,"B-|
000002B0: 50 20 38 20 31 34 34 22 00 6E 0A 6E 00 58 24 B2 |P 8 144".n.n.X$.|
000002C0: 22 22 3A 4E 24 B2 22 22 3A 81 49 B2 31 A4 31 36 |"":N$."":.I.1.16|
000002D0: 3A A1 23 38 2C 41 24 3A 58 24 B2 58 24 AA 41 24 |:.#8,A$:X$.X$.A$|
000002E0: 3A 82 00 7A 0A 73 00 91 41 55 89 31 34 30 00 BB |:..z.s..AU.140..|
000002F0: 0A 78 00 8B C8 28 58 24 2C 34 29 B2 22 44 41 54 |.x...(X$,4)."DAT|
00000300: 41 22 B0 CA 28 58 24 2C 32 2C 33 29 B2 22 54 4E |A"..(X$,2,3)."TN|
00000310: 43 22 A7 4E 24 B2 22 3E 54 4E 43 BF 0D A0 2B 54 |C".N$.">TNC...+T|
00000320: 4E 43 2B 22 00 ED 0A 82 00 8B C8 28 58 24 2C 35 |NC+".......(X$,5|
00000330: 29 B2 22 50 52 49 4E 54 22 A7 4E 24 B2 22 50 52 |)."PRINT".N$."PR|
00000340: 49 4E 54 53 48 4F 50 BF 08 A0 2B 54 4E 43 2B 22 |INTSHOP...+TNC+"|
00000350: 00 FD 0A 8C 00 8B 4E 24 B2 22 22 A7 8D 33 30 30 |......N$.""..300|
00000360: 00 11 0B 96 00 98 31 35 2C 22 42 2D 50 20 38 20 |......15,"B-P 8 |
00000370: 31 34 34 22 00 1C 0B A0 00 98 38 2C 4E 24 3B 00 |144"......8,N$;.|
00000380: 32 0B AA 00 98 31 35 2C 22 55 32 20 38 20 30 20 |2....15,"U2 8 0 |
00000390: 31 38 20 30 22 00 46 0B B4 00 84 31 35 2C 41 3A |18 0".F....15,A:|
000003A0: 8B 41 B3 B1 30 A7 35 30 30 00 51 0B BE 00 A0 38 |.A..0.500.Q....8|
000003B0: 3A A0 31 35 00 7C 0B C8 00 99 22 93 05 22 3A 99 |:.15.|...."..":.|
000003C0: A3 31 31 29 22 11 11 11 3E 20 54 48 45 20 57 4F |.11)"...> THE WO|
000003D0: 52 4B 20 49 53 20 44 4F 4E 45 20 21 20 3C 22 00 |RK IS DONE ! <".|
000003E0: B0 0B D2 00 99 22 BF 04 11 20 20 20 44 4F 20 59 |....."... DO Y|
000003F0: 4F 55 20 57 41 4E 54 20 54 4F 20 52 45 4E 41 4D |OU WANT TO RENAM|
00000400: 45 20 41 4E 4F 54 48 45 52 20 44 49 53 4B 20 3F |E ANOTHER DISK ?|
00000410: 22 00 C6 0B DC 00 97 31 39 38 2C 30 3A 92 31 39 |"......198,0:.19|
00000420: 38 2C 31 3A A1 41 24 00 DB 0B E6 00 8B 41 24 B2 |8,1:.A$......A$.|
00000430: 22 59 22 B0 41 24 B2 22 4A 22 A7 8A 00 EC 0B F0 |"Y".A$."J"......|
00000440: 00 8B 41 24 B3 B1 22 4E 22 A7 32 31 30 00 12 0C |..A$.."N".210...|
00000450: FA 00 81 49 B2 32 30 34 38 A4 32 36 30 30 3A 97 |...I.2048.2600:.|
00000460: 49 2C BB 28 49 29 AC 32 35 35 3A 82 3A 9E 36 34 |I,.(I).255:.:.64|
00000470: 37 33 38 00 1C 0C 2C 01 99 22 93 05 22 00 49 0C |738...,.."..".I.|
00000480: 36 01 99 22 20 20 20 BF 21 2A 22 00 76 0C 40 01 |6.." .!*".v.@.|
00000490: 99 22 20 20 20 2A BF 1F 20 2A 22 00 A3 0C 4A 01 |." *.. *"...J.|
000004A0: 99 22 20 20 20 2A 20 50 52 49 4E 54 53 48 4F 50 |." * PRINTSHOP|
000004B0: 20 55 53 45 52 20 41 53 4B 49 4E 47 20 52 4F 55 | USER ASKING ROU|
000004C0: 54 49 4E 45 21 20 2A 22 00 D0 0C 54 01 99 22 20 |TINE! *"...T.." |
000004D0: 20 20 2A BF 1F 20 2A 22 00 FD 0C 5E 01 99 22 20 | *.. *"...^.." |
000004E0: 20 20 BF 21 2A 22 00 30 0D 68 01 99 22 BF 04 11 | .!*".0.h.."...|
000004F0: 49 53 20 54 48 45 20 44 49 53 4B 20 49 4E 20 54 |IS THE DISK IN T|
00000500: 48 45 20 44 52 49 56 45 20 57 49 54 48 20 54 48 |HE DRIVE WITH TH|
00000510: 45 20 4E 41 4D 45 22 00 41 0D 72 01 99 A3 31 32 |E NAME".A.r...12|
00000520: 29 22 11 1C 22 3B 58 24 00 6C 0D 7C 01 99 22 11 |)"..";X$.l.|..".|
00000530: 05 BF 04 20 28 44 29 41 54 41 20 4F 52 20 28 50 |... (D)ATA OR (P|
00000540: 29 52 49 4E 54 53 48 4F 50 20 44 49 53 4B 20 3F |)RINTSHOP DISK ?|
00000550: 22 00 82 0D 86 01 97 31 39 38 2C 30 3A 92 31 39 |"......198,0:.19|
00000560: 38 2C 31 3A A1 41 24 00 AB 0D 90 01 8B 41 24 B2 |8,1:.A$......A$.|
00000570: 22 44 22 A7 4E 24 B2 22 3E 54 4E 43 BF 0D A0 2B |"D".N$.">TNC...+|
00000580: 54 4E 43 2B 22 00 D4 0D 9A 01 8B 41 24 B2 22 50 |TNC+"......A$."P|
00000590: 22 A7 4E 24 B2 22 50 52 49 4E 54 53 48 4F 50 BF |".N$."PRINTSHOP.|
000005A0: 08 A0 2B 54 4E 43 2B 22 00 E3 0D A4 01 8B 4E 24 |..+TNC+"......N$|
000005B0: B2 22 22 A7 33 39 30 00 E9 0D AE 01 8E 00 0E 0E |."".390.........|
000005C0: F4 01 99 22 93 22 A3 31 34 29 22 BF 08 11 12 44 |...".".14)"....D|
000005D0: 49 53 4B 45 52 52 4F 52 20 21 92 22 00 3E 0E FE |ISKERROR !.".>..|
000005E0: 01 99 22 BF 04 11 BF 04 20 50 52 45 53 53 20 41 |.."..... PRESS A|
000005F0: 4E 59 20 4B 45 59 20 54 4F 20 53 54 41 52 54 20 |NY KEY TO START |
00000600: 41 47 41 49 4E 20 21 22 00 52 0E 08 02 97 31 39 |AGAIN !".R....19|
00000610: 38 2C 30 3A 92 31 39 38 2C 31 3A 8A CF 10 |8,0:.198,1:... |
....A.. (2085) (C) TNC ' 1986......... S
....~..<....P..6... P...P.....-...... ..
...........P.E.....P.F.F...P.F.F.LP.....
.-..L<. ..IOP. ..I.P..OP....L..I.P. ..I.
P...P.. ..L.. .....P..P.E.PC.7.. Y.L...
..-HJP...8E-.-....LM. .....P...` ..-.-P.
..`.....808,225.*...."..":.53280,0:.5328
1,0.W...." .!*"......" *.. *"......"
* PRINTSHOP AND DATA-DISK SET-UP *"..
...." *.. *"......" .!*".>...."... D
O YOU WANT .AUTO. DISKIDENTIFICATION ?".
U. ..198,0:.198,1:.A$:.F.!..A$."N".AU.1.
..(.."..... PLEASE INSERT DISK TO RENAME
"...2...7)".AND PRESS ANY KEY TO START".
R.<..198,0:.198,1:.198,0...F..15,8,15,"I
0"...P..15,A:.A..0. 15:. 10:. PANIK ..!.
..U..8,8,8,"#".0.Z..15,"U1 8 0 18 0".D.D
..15,"B-P 8 144".N.N.X$."":N$."":.I.1.16
:.#8,A$:X$.X$.A$:..Z.S..AU.140...X..H(X$
,4)."DATA".J(X$,2,3)."TNC".N$.">TNC.. +T
NC+"......H(X$,5)."PRINT".N$."PRINTSHOP.
. +TNC+"......N$.""..300......15,"B-P 8
144"... ..8,N$;.2....15,"U2 8 0 18 0".F.
...15,A:.A..0.500.Q... 8: 15.|.H.."..":.
.11)"...> THE WORK IS DONE ! <"...R.."..
. DO YOU WANT TO RENAME ANOTHER DISK ?
".F....198,0:.198,1:.A$......A$."Y".A$."
J"........A$.."N".210......I.2048.2600:.
I,.(I).255:.:.64738...,.."..".I.6.." .
!*".V.@.." *.. *"...J.." * PRINTSHOP
USER ASKING ROUTINE! *".P.T.." *.. *"
...^.." .!*".0.H.."...IS THE DISK IN T
HE DRIVE WITH THE NAME".A.R...12)"..";X$
.L.|..".... (D)ATA OR (P)RINTSHOP DISK ?
"......198,0:.198,1:.A$......A$."D".N$."
>TNC.. +TNC+".T....A$."P".N$."PRINTSHOP.
. +TNC+"......N$."".390............".".1
4)"....DISKERROR !.".>...."..... PRESS A
NY KEY TO START AGAIN !".R....198,0:.198
,1:.O.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL