> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 64 00 97 35 33 32 38 30 2C 31 35 3A |..(.d..53280,15:|
00000010: 97 35 33 32 38 31 2C 30 3A 52 B2 52 AA 31 3A 8B |.53281,0:R.R.1:.|
00000020: 52 B3 B1 32 A7 31 31 30 00 51 08 65 00 99 22 93 |R..2.110.Q.e..".|
00000030: 11 11 53 59 53 28 22 41 28 41 29 AA 33 22 29 13 |..SYS("A(A).3").|
00000040: 22 3B 3A 97 31 39 38 2C 39 3A 97 36 33 31 2C 31 |";:.198,9:.631,1|
00000050: 33 00 8A 08 67 00 97 36 33 32 2C C6 28 22 4E 22 |3...g..632,.("N"|
00000060: 29 3A 97 36 33 33 2C C6 28 22 45 22 29 3A 97 36 |):.633,.("E"):.6|
00000070: 33 34 2C C6 28 22 57 22 29 3A 97 36 33 35 2C 31 |34,.("W"):.635,1|
00000080: 33 3A 97 31 39 38 2C 35 3A 80 00 BF 08 6E 00 99 |3:.198,5:....n..|
00000090: 22 93 05 12 20 20 20 20 20 20 20 20 50 52 49 4E |"... PRIN|
000000A0: 54 45 52 20 55 54 49 4C 49 54 59 20 50 52 4F 47 |TER UTILITY PROG|
000000B0: 52 41 4D 53 20 20 20 20 20 20 20 20 11 11 22 00 |RAMS ..".|
000000C0: DB 08 78 00 99 22 42 59 20 53 54 45 50 48 45 4E |..x.."BY STEPHEN|
000000D0: 20 4D 45 49 52 4F 57 53 4B 59 22 00 F7 08 7D 00 | MEIROWSKY"...}.|
000000E0: 99 22 20 20 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |." ...........|
000000F0: A3 A3 A3 A3 A3 A3 22 00 0D 09 82 00 99 22 20 20 |......"......" |
00000100: 20 43 41 52 44 43 4F 2C 49 4E 43 2E 22 00 25 09 | CARDCO,INC.".%.|
00000110: 8C 00 99 22 20 20 20 33 30 30 20 53 2E 20 54 4F |..." 300 S. TO|
00000120: 50 45 4B 41 22 00 43 09 96 00 99 22 20 20 20 57 |PEKA".C...." W|
00000130: 49 43 48 49 54 41 2C 4B 53 20 36 37 32 30 32 11 |ICHITA,KS 67202.|
00000140: 11 11 22 00 5E 09 AA 00 99 22 12 31 92 3A 20 43 |..".^....".1.: C|
00000150: 4F 4D 4D 4F 44 4F 52 45 20 31 35 32 35 22 00 84 |OMMODORE 1525"..|
00000160: 09 B4 00 99 22 12 32 92 3A 20 45 50 53 4F 4E 2C |....".2.: EPSON,|
00000170: 20 47 45 4D 49 4E 49 2C 20 50 52 4F 57 52 49 54 | GEMINI, PROWRIT|
00000180: 45 52 11 22 00 BF 09 B6 00 85 22 57 48 49 43 48 |ER."......"WHICH|
00000190: 20 50 52 49 4E 54 45 52 20 28 31 4F 52 32 29 22 | PRINTER (1OR2)"|
000001A0: 3B 41 24 3A 41 B2 C5 28 41 24 29 3A 8B 41 B3 31 |;A$:A..(A$):.A.1|
000001B0: B0 41 B1 32 A7 99 22 91 22 3B 3A 89 31 38 32 00 |.A.2..".";:.182.|
000001C0: CC 09 B8 00 8B 41 B2 31 A7 32 30 30 00 EF 09 B9 |.....A.1.200....|
000001D0: 00 99 22 11 11 50 4C 45 41 53 45 20 57 41 49 54 |.."..PLEASE WAIT|
000001E0: 20 46 4F 52 20 44 49 53 4B 21 22 3A 52 B2 30 00 | FOR DISK!":R.0.|
000001F0: 06 0A BA 00 93 22 42 4F 4F 54 20 55 54 49 4C 2E |....."BOOT UTIL.|
00000200: 43 2E 4F 22 2C 38 00 1F 0A C8 00 99 22 93 11 4C |C.O",8......"..L|
00000210: 4F 41 44 49 4E 47 20 41 44 44 52 45 53 53 22 00 |OADING ADDRESS".|
00000220: 36 0A CD 00 99 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |6...."..........|
00000230: A3 A3 A3 A3 A3 22 00 53 0A D2 00 99 22 12 30 92 |.....".S....".0.|
00000240: 3A 20 24 43 34 30 30 22 3A 41 28 30 29 B2 35 30 |: $C400":A(0).50|
00000250: 31 37 36 00 70 0A DC 00 99 22 12 31 92 3A 20 24 |176.p....".1.: $|
00000260: 43 30 30 30 22 3A 41 28 31 29 B2 34 39 31 35 32 |C000":A(1).49152|
00000270: 00 8D 0A E6 00 99 22 12 32 92 3A 20 24 39 34 30 |......".2.: $940|
00000280: 30 22 3A 41 28 32 29 B2 33 37 38 38 38 00 AA 0A |0":A(2).37888...|
00000290: F0 00 99 22 12 33 92 3A 20 24 37 34 30 30 22 3A |...".3.: $7400":|
000002A0: 41 28 33 29 B2 32 39 36 39 36 00 C9 0A F5 00 99 |A(3).29696......|
000002B0: 22 12 34 92 3A 20 24 35 34 30 30 11 11 22 3A 41 |".4.: $5400..":A|
000002C0: 28 34 29 B2 32 31 35 30 34 00 03 0B FA 00 85 22 |(4).21504......"|
000002D0: 91 57 48 49 43 48 20 41 44 44 52 45 53 53 20 28 |.WHICH ADDRESS (|
000002E0: 30 2D 34 29 20 20 30 20 9D 9D 9D 9D 22 3B 41 24 |0-4) 0 ....";A$|
000002F0: 3A 8B 41 24 B3 22 30 22 B0 41 24 B1 22 34 22 A7 |:.A$."0".A$."4".|
00000300: 32 35 30 00 13 0B 04 01 41 B2 C5 28 41 24 29 3A |250.....A..(A$):|
00000310: 99 3A 99 00 50 0B 0E 01 85 22 91 50 52 49 4E 54 |.:..P....".PRINT|
00000320: 45 52 20 4F 50 54 49 4F 4E 28 59 2F 4E 29 20 20 |ER OPTION(Y/N) |
00000330: 20 4E 20 9D 9D 9D 9D 22 3B 41 24 3A 8B 41 24 B3 | N ....";A$:.A$.|
00000340: B1 22 4E 22 AF 41 24 B3 B1 22 59 22 A7 32 37 30 |."N".A$.."Y".270|
00000350: 00 66 0B 18 01 99 3A 44 B2 33 3A 8B 41 24 B2 22 |.f....:D.3:.A$."|
00000360: 4E 22 A7 33 31 30 00 93 0B 22 01 85 22 91 44 45 |N".310..."..".DE|
00000370: 56 49 43 45 20 20 34 20 9D 9D 9D 9D 22 3B 41 24 |VICE 4 ....";A$|
00000380: 3A 8B 41 24 B3 22 34 22 B0 41 24 B1 22 35 22 A7 |:.A$."4".A$."5".|
00000390: 32 39 30 00 A1 0B 27 01 44 B2 C5 28 41 24 29 3A |290...'.D..(A$):|
000003A0: 99 00 C7 0B 36 01 99 22 93 22 3B 3A 9F 31 2C 44 |....6..".";:.1,D|
000003B0: 2C 30 3A 9D 31 3A 58 B2 41 28 41 29 3A 8B 44 B2 |,0:.1:X.A(A):.D.|
000003C0: 33 A7 99 22 91 22 3B 00 E4 0B 3B 01 8B 58 B3 34 |3..".";...;..X.4|
000003D0: 30 39 36 30 A7 97 35 36 2C 58 AD 32 35 36 3A 97 |0960..56,X.256:.|
000003E0: 35 35 2C 30 00 08 0C 40 01 99 22 53 43 52 45 45 |55,0...@.."SCREE|
000003F0: 4E 20 44 55 4D 50 20 28 48 4F 52 5A 29 3A 20 20 |N DUMP (HORZ): |
00000400: 20 20 20 53 59 53 22 58 00 2E 0C 4A 01 99 22 49 | SYS"X...J.."I|
00000410: 4E 49 54 20 4B 45 59 45 44 20 52 4F 55 54 49 4E |NIT KEYED ROUTIN|
00000420: 45 53 3A 20 20 20 20 53 59 53 22 58 AA 33 00 54 |ES: SYS"X.3.T|
00000430: 0C 4C 01 99 22 45 58 49 54 20 4B 45 59 45 44 20 |.L.."EXIT KEYED |
00000440: 52 4F 55 54 49 4E 45 53 3A 20 20 20 20 53 59 53 |ROUTINES: SYS|
00000450: 22 58 AA 36 00 7A 0C 4E 01 99 22 53 43 52 45 45 |"X.6.z.N.."SCREE|
00000460: 4E 20 44 55 4D 50 20 28 41 53 43 49 49 29 3A 20 |N DUMP (ASCII): |
00000470: 20 20 20 53 59 53 22 58 AA 39 00 A1 0C 50 01 99 | SYS"X.9...P..|
00000480: 22 53 43 52 45 45 4E 20 44 55 4D 50 20 28 56 45 |"SCREEN DUMP (VE|
00000490: 52 54 29 3A 20 20 20 20 20 53 59 53 22 58 AA 31 |RT): SYS"X.1|
000004A0: 32 00 CC 0C 54 01 99 22 52 45 56 45 52 53 45 20 |2...T.."REVERSE |
000004B0: 53 43 52 45 45 4E 3A 20 20 20 20 20 20 20 20 50 |SCREEN: P|
000004C0: 4F 4B 45 22 58 AA 31 38 22 2C 53 22 00 F7 0C 56 |OKE"X.18",S"...V|
000004D0: 01 99 22 52 45 56 45 52 53 45 20 43 48 41 52 41 |.."REVERSE CHARA|
000004E0: 43 54 45 52 3A 20 20 20 20 20 50 4F 4B 45 22 58 |CTER: POKE"X|
000004F0: AA 31 39 22 2C 43 22 00 22 0D 58 01 99 22 46 4F |.19",C".".X.."FO|
00000500: 52 43 45 20 46 4C 41 47 3A 20 20 20 20 20 20 20 |RCE FLAG: |
00000510: 20 20 20 20 20 50 4F 4B 45 22 58 AA 32 30 22 2C | POKE"X.20",|
00000520: 46 22 00 4E 0D 5A 01 99 22 43 4B 30 31 20 4B 45 |F".N.Z.."CK01 KE|
00000530: 59 50 41 44 20 45 4E 41 42 4C 45 3A 20 20 20 20 |YPAD ENABLE: |
00000540: 50 4F 4B 45 22 58 AA 32 31 22 2C 4B 45 22 00 7A |POKE"X.21",KE".z|
00000550: 0D 5C 01 99 22 4F 55 54 50 55 54 20 4D 4F 44 45 |.\.."OUTPUT MODE|
00000560: 3A 20 20 20 20 20 20 20 20 20 20 20 50 4F 4B 45 |: POKE|
00000570: 22 58 AA 32 32 22 2C 4F 4D 22 00 A6 0D 5E 01 99 |"X.22",OM"...^..|
00000580: 22 44 45 56 49 43 45 23 3A 20 20 20 20 20 20 20 |"DEVICE#: |
00000590: 20 20 20 20 20 20 20 20 50 4F 4B 45 22 58 AA 32 | POKE"X.2|
000005A0: 33 22 2C 44 56 22 00 D2 0D 60 01 99 22 53 45 43 |3",DV"...`.."SEC|
000005B0: 4F 4E 44 41 52 59 20 41 44 44 52 45 53 53 3A 20 |ONDARY ADDRESS: |
000005C0: 20 20 20 20 50 4F 4B 45 22 58 AA 32 34 22 2C 53 | POKE"X.24",S|
000005D0: 41 22 00 FD 0D 68 01 99 22 57 49 44 54 48 20 28 |A"...h.."WIDTH (|
000005E0: 48 4F 52 5A 29 3A 20 20 20 20 20 20 20 20 20 20 |HORZ): |
000005F0: 50 4F 4B 45 22 58 AA 32 35 22 2C 57 22 00 29 0E |POKE"X.25",W".).|
00000600: 6A 01 99 22 43 4F 4C 4F 52 20 4D 4F 44 45 20 28 |j.."COLOR MODE (|
00000610: 56 45 52 54 29 3A 20 20 20 20 20 50 4F 4B 45 22 |VERT): POKE"|
00000620: 58 AA 32 36 22 2C 43 4D 22 00 55 0E 6C 01 99 22 |X.26",CM".U.l.."|
00000630: 55 53 45 52 20 53 43 52 45 45 4E 20 45 4E 41 42 |USER SCREEN ENAB|
00000640: 4C 45 3A 20 20 20 20 50 4F 4B 45 22 58 AA 32 37 |LE: POKE"X.27|
00000650: 22 2C 55 45 22 00 81 0E 6E 01 99 22 4C 4F 52 45 |",UE"...n.."LORE|
00000660: 53 20 53 54 41 52 54 20 50 41 47 45 3A 20 20 20 |S START PAGE: |
00000670: 20 20 20 50 4F 4B 45 22 58 AA 32 38 22 2C 4C 4F | POKE"X.28",LO|
00000680: 22 00 AD 0E 70 01 99 22 48 49 52 45 53 20 53 54 |"...p.."HIRES ST|
00000690: 41 52 54 20 50 41 47 45 3A 20 20 20 20 20 20 50 |ART PAGE: P|
000006A0: 4F 4B 45 22 58 AA 32 39 22 2C 48 49 22 00 D9 0E |OKE"X.29",HI"...|
000006B0: 72 01 99 22 43 4F 4C 4F 52 20 53 54 41 52 54 20 |r.."COLOR START |
000006C0: 50 41 47 45 3A 20 20 20 20 20 20 50 4F 4B 45 22 |PAGE: POKE"|
000006D0: 58 AA 33 30 22 2C 43 4F 22 00 05 0F 74 01 99 22 |X.30",CO"...t.."|
000006E0: 50 52 49 4E 54 45 52 20 54 59 50 45 20 28 41 53 |PRINTER TYPE (AS|
000006F0: 43 49 49 29 3A 20 20 50 4F 4B 45 22 58 AA 33 31 |CII): POKE"X.31|
00000700: 22 2C 50 54 22 00 31 0F 76 01 99 22 4E 4F 4E 20 |",PT".1.v.."NON |
00000710: 41 53 43 49 49 20 28 41 53 43 49 49 29 3A 20 20 |ASCII (ASCII): |
00000720: 20 20 20 50 4F 4B 45 22 58 AA 33 32 22 2C 4E 41 | POKE"X.32",NA|
00000730: 22 00 5D 0F 86 01 99 22 32 58 32 20 43 4F 4C 4F |".]...."2X2 COLO|
00000740: 52 20 44 4F 54 53 20 28 56 45 52 54 29 3A 20 50 |R DOTS (VERT): P|
00000750: 4F 4B 45 22 58 AA 33 35 22 2C 43 32 22 00 89 0F |OKE"X.35",C2"...|
00000760: 88 01 99 22 34 58 32 20 43 4F 4C 4F 52 20 44 4F |..."4X2 COLOR DO|
00000770: 54 53 20 28 56 45 52 54 29 3A 20 50 4F 4B 45 22 |TS (VERT): POKE"|
00000780: 58 AA 36 37 22 2C 43 34 22 00 B5 0F 8A 01 99 22 |X.67",C4"......"|
00000790: 4B 45 59 50 41 44 20 44 45 46 49 4E 49 54 49 4F |KEYPAD DEFINITIO|
000007A0: 4E 53 3A 20 20 20 20 50 4F 4B 45 22 58 AA 39 39 |NS: POKE"X.99|
000007B0: 22 2C 4B 44 22 00 E8 0F 8F 01 99 22 55 54 49 4C |",KD"......"UTIL|
000007C0: 49 54 59 20 50 52 4F 47 52 41 4D 53 3A 20 20 20 |ITY PROGRAMS: |
000007D0: 20 20 20 20 20 20 20 22 58 AA 32 34 31 3A 8B 44 | "X.241:.D|
000007E0: B2 33 A7 99 22 91 22 3B 00 F9 0F 90 01 98 31 3A |.3..".";......1:|
000007F0: A0 31 3A 8B 44 B2 34 A7 99 00 24 10 9A 01 99 22 |.1:.D.4...$...."|
00000800: 20 20 20 20 20 20 20 12 50 55 53 48 20 53 50 41 | .PUSH SPA|
00000810: 43 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E |CE BAR TO CONTIN|
00000820: 55 45 22 3B 00 39 10 A4 01 A1 41 24 3A 8B 41 24 |UE";.9....A$:.A$|
00000830: B3 B1 22 20 22 A7 34 32 30 00 65 10 58 02 99 3A |.." ".420.e.X..:|
00000840: 99 3A 99 22 93 11 20 20 20 20 20 20 20 20 20 20 |.:.".. |
00000850: 12 50 55 53 48 20 52 45 54 55 52 4E 20 54 4F 20 |.PUSH RETURN TO |
00000860: 4C 4F 41 44 22 00 7C 10 62 02 A1 41 24 3A 8B 41 |LOAD".|.b..A$:.A|
00000870: 24 B3 B1 C7 28 31 33 29 A7 36 31 30 00 8F 10 BC |$...(13).610....|
00000880: 02 8B 41 B2 30 A7 41 24 B2 22 43 34 30 30 22 00 |..A.0.A$."C400".|
00000890: A2 10 C6 02 8B 41 B2 31 A7 41 24 B2 22 43 30 30 |.....A.1.A$."C00|
000008A0: 30 22 00 B5 10 D0 02 8B 41 B2 32 A7 41 24 B2 22 |0"......A.2.A$."|
000008B0: 39 34 30 30 22 00 C8 10 DA 02 8B 41 B2 33 A7 41 |9400"......A.3.A|
000008C0: 24 B2 22 37 34 30 30 22 00 DB 10 E4 02 8B 41 B2 |$."7400"......A.|
000008D0: 34 A7 41 24 B2 22 35 34 30 30 22 00 FC 10 EE 02 |4.A$."5400".....|
000008E0: 41 24 B2 22 31 35 32 35 50 55 2E 22 AA 41 24 3A |A$."1525PU.".A$:|
000008F0: 99 22 93 22 3A 93 41 24 2C 38 2C 31 00 00 00 |.".":.A$,8,1... |
..(.D..53280,15:.53281,0:R.R.1:.R..2.110
.Q.E.."...SYS("A(A).3").";:.198,9:.631,1
3...G..632,F("N"):.633,F("E"):.634,F("W"
):.635,13:.198,5:....N.."... PRIN
TER UTILITY PROGRAMS .."...X.."BY
STEPHEN MEIROWSKY"...}.." ...........
......"......" CARDCO,INC.".%...." 3
00 S. TOPEKA".C...." WICHITA,KS 67202.
..".^....".1.: COMMODORE 1525"......".2.
: EPSON, GEMINI, PROWRITER."......"WHICH
PRINTER (1OR2)";A$:A.E(A$):.A.1.A.2..".
";:.182.L....A.1.200......"..PLEASE WAIT
FOR DISK!":R.0......"BOOT UTIL.C.O",8..
.H.."..LOADING ADDRESS".6.M.."..........
.....".S.R..".0.: $C400":A(0).50176.P...
.".1.: $C000":A(1).49152......".2.: $940
0":A(2).37888......".3.: $7400":A(3).296
96.I....".4.: $5400..":A(4).21504......"
.WHICH ADDRESS (0-4) 0 ....";A$:.A$."0"
.A$."4".250.....A.E(A$):.:..P....".PRINT
ER OPTION(Y/N) N ....";A$:.A$.."N".A$.
."Y".270.F....:D.3:.A$."N".310..."..".DE
VICE 4 ....";A$:.A$."4".A$."5".290...'.
D.E(A$):..G.6..".";:.1,D,0:.1:X.A(A):.D.
3..".";...;..X.40960..56,X.256:.55,0...@
.."SCREEN DUMP (HORZ): SYS"X...J.."I
NIT KEYED ROUTINES: SYS"X.3.T.L.."EXI
T KEYED ROUTINES: SYS"X.6.Z.N.."SCREE
N DUMP (ASCII): SYS"X.9...P.."SCREEN
DUMP (VERT): SYS"X.12.L.T.."REVERSE
SCREEN: POKE"X.18",S"...V.."REVER
SE CHARACTER: POKE"X.19",C".".X.."FO
RCE FLAG: POKE"X.20",F".N.Z..
"CK01 KEYPAD ENABLE: POKE"X.21",KE".Z
.\.."OUTPUT MODE: POKE"X.22",O
M"...^.."DEVICE#: POKE"X.2
3",DV".R.`.."SECONDARY ADDRESS: POKE
"X.24",SA"...H.."WIDTH (HORZ):
POKE"X.25",W".).J.."COLOR MODE (VERT):
POKE"X.26",CM".U.L.."USER SCREEN ENAB
LE: POKE"X.27",UE"...N.."LORES START
PAGE: POKE"X.28",LO"...P.."HIRES ST
ART PAGE: POKE"X.29",HI".Y.R.."COLO
R START PAGE: POKE"X.30",CO"...T.."
PRINTER TYPE (ASCII): POKE"X.31",PT".1.
V.."NON ASCII (ASCII): POKE"X.32",NA
".]...."2X2 COLOR DOTS (VERT): POKE"X.35
",C2"......"4X2 COLOR DOTS (VERT): POKE"
X.67",C4"......"KEYPAD DEFINITIONS: P
OKE"X.99",KD"......"UTILITY PROGRAMS:
"X.241:.D.3..".";......1: 1:.D.4.
..$...." .PUSH SPACE BAR TO CONTIN
UE";.9....A$:.A$.." ".420.E.X..:.:."..
.PUSH RETURN TO LOAD".|.B..A$:.A
$..G(13).610......A.0.A$."C400"...F..A.1
.A$."C000"...P..A.2.A$."9400".H.Z..A.3.A
$."7400"......A.4.A$."5400".....A$."1525
PU.".A$:.".":.A$,8,1...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL