> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3B 08 0A 00 50 52 B2 31 3A 8F 20 53 45 54 |..;...PR.1:. SET|
00000010: 20 50 52 3D 30 20 46 4F 52 20 31 35 32 36 20 53 | PR=0 FOR 1526 S|
00000020: 45 52 49 45 53 2C 20 50 52 3D 31 20 46 4F 52 20 |ERIES, PR=1 FOR |
00000030: 31 35 32 35 20 53 45 52 49 45 53 00 73 08 14 00 |1525 SERIES.s...|
00000040: 53 4D B2 31 30 32 34 3A 43 4D B2 35 35 32 39 36 |SM.1024:CM.55296|
00000050: 3A 8F 20 53 4D 3D 33 30 37 32 3A 43 4D 3D 32 30 |:. SM=3072:CM=20|
00000060: 34 38 20 4F 4E 20 54 48 45 20 50 4C 55 53 20 34 |48 ON THE PLUS 4|
00000070: 2F 31 36 00 A2 08 1E 00 42 24 B2 C7 28 38 29 3A |/16.....B$..(8):|
00000080: 43 31 24 B2 C7 28 31 34 29 3A 43 24 B2 C7 28 31 |C1$..(14):C$..(1|
00000090: 35 29 3A 8F 20 50 52 49 4E 54 45 52 20 43 4F 44 |5):. PRINTER COD|
000000A0: 45 53 00 B2 08 28 00 8B 50 52 B2 30 A7 42 24 B2 |ES...(..PR.0.B$.|
000000B0: 22 22 00 D4 08 32 00 44 24 B2 C7 28 32 30 37 29 |""...2.D$..(207)|
000000C0: 3A 45 24 B2 C7 28 31 36 35 29 3A 46 24 B2 C7 28 |:E$..(165):F$..(|
000000D0: 31 36 33 29 00 0C 09 3C 00 99 22 93 1F 22 3A 99 |163)...<.."..":.|
000000E0: 22 91 12 20 20 20 20 20 20 20 20 20 20 20 4D 45 |".. ME|
000000F0: 4D 4F 52 59 20 4D 41 50 20 50 52 49 4E 54 45 52 |MORY MAP PRINTER|
00000100: 20 20 20 20 20 20 20 20 20 20 20 22 00 31 09 46 | ".1.F|
00000110: 00 99 22 11 11 11 11 11 1D 1D 12 20 31 20 92 20 |.."........ 1 . |
00000120: 53 4D 41 4C 4C 20 53 43 52 45 45 4E 20 4D 41 50 |SMALL SCREEN MAP|
00000130: 22 00 50 09 50 00 99 22 1D 1D 12 20 32 20 92 20 |".P.P.."... 2 . |
00000140: 53 4D 41 4C 4C 20 43 4F 4C 4F 52 20 4D 41 50 22 |SMALL COLOR MAP"|
00000150: 00 7B 09 5A 00 99 22 1D 1D 12 20 33 20 92 20 53 |.{.Z.."... 3 . S|
00000160: 4D 41 4C 4C 20 47 52 41 50 48 49 43 20 33 32 30 |MALL GRAPHIC 320|
00000170: 20 58 20 32 30 30 20 4D 41 50 22 00 9B 09 64 00 | X 200 MAP"...d.|
00000180: 99 22 1D 1D 12 20 34 20 92 20 4C 41 52 47 45 20 |."... 4 . LARGE |
00000190: 53 43 52 45 45 4E 20 4D 41 50 22 00 BA 09 6E 00 |SCREEN MAP"...n.|
000001A0: 99 22 1D 1D 12 20 35 20 92 20 4C 41 52 47 45 20 |."... 5 . LARGE |
000001B0: 43 4F 4C 4F 52 20 4D 41 50 22 00 DC 09 78 00 99 |COLOR MAP"...x..|
000001C0: 22 1D 1D 12 20 36 20 92 20 4C 41 52 47 45 20 47 |"... 6 . LARGE G|
000001D0: 52 41 50 48 49 43 53 20 4D 41 50 22 00 F0 09 82 |RAPHICS MAP"....|
000001E0: 00 99 22 1D 1D 12 20 37 20 92 20 51 55 49 54 22 |.."... 7 . QUIT"|
000001F0: 00 0F 0A 8C 00 99 22 11 11 1D 1D 4D 41 4B 45 20 |......"....MAKE |
00000200: 59 4F 55 52 20 53 45 4C 45 43 54 49 4F 4E 22 00 |YOUR SELECTION".|
00000210: 22 0A 96 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 |"....A$:.A$."".1|
00000220: 35 30 00 47 0A A0 00 41 B2 C6 28 41 24 29 AB 34 |50.G...A..(A$).4|
00000230: 38 3A 8B 41 B2 37 A7 32 31 30 3A 8B 41 B3 31 B0 |8:.A.7.210:.A.1.|
00000240: 41 B1 36 A7 31 35 30 00 6B 0A AA 00 8D 34 39 30 |A.6.150.k....490|
00000250: 3A 91 41 8D 32 32 30 2C 32 33 30 2C 32 34 30 2C |:.A.220,230,240,|
00000260: 33 34 30 2C 33 36 30 2C 33 38 30 00 91 0A B4 00 |340,360,380.....|
00000270: 99 22 93 11 11 11 11 11 11 11 11 11 11 11 11 1D |."..............|
00000280: 1D 50 52 49 4E 54 20 41 4E 4F 54 48 45 52 20 3F |.PRINT ANOTHER ?|
00000290: 22 00 A4 0A BE 00 A1 41 24 3A 8B 41 24 B2 22 22 |"......A$:.A$.""|
000002A0: A7 31 39 30 00 B3 0A C8 00 8B 41 24 B2 22 59 22 |.190......A$."Y"|
000002B0: A7 36 30 00 BE 0A D2 00 99 22 93 22 3A 80 00 DA |.60......".":...|
000002C0: 0A DC 00 53 24 B2 22 53 43 52 45 45 4E 22 3A 53 |...S$."SCREEN":S|
000002D0: B2 53 4D 3A 8D 36 32 30 3A 8E 00 F5 0A E6 00 53 |.SM:.620:......S|
000002E0: 24 B2 22 43 4F 4C 4F 52 22 3A 53 B2 43 4D 3A 8D |$."COLOR":S.CM:.|
000002F0: 36 32 30 3A 8E 00 14 0B F0 00 98 34 2C 43 31 24 |620:.......4,C1$|
00000300: 22 53 4D 41 4C 4C 20 47 52 41 50 48 49 43 53 20 |"SMALL GRAPHICS |
00000310: 4D 41 50 22 00 22 0B FA 00 58 B2 32 34 3A 8D 35 |MAP"."...X.24:.5|
00000320: 30 30 00 4A 0B 04 01 98 34 2C 22 30 20 20 20 2E |00.J....4,"0 .|
00000330: 20 20 20 20 31 20 20 20 20 2E 20 20 20 20 32 20 | 1 . 2 |
00000340: 20 20 20 2E 20 20 20 20 33 22 00 72 0B 0E 01 98 | . 3".r....|
00000350: 34 2C 22 20 20 20 20 20 20 20 20 20 30 20 20 20 |4," 0 |
00000360: 20 20 20 20 20 20 30 20 20 20 20 20 20 20 20 20 | 0 |
00000370: 30 22 00 9A 0B 18 01 98 34 2C 22 20 20 20 20 20 |0"......4," |
00000380: 20 20 20 20 30 20 20 20 20 20 20 20 20 20 30 20 | 0 0 |
00000390: 20 20 20 20 20 20 20 20 30 22 00 B2 0B 22 01 81 | 0"..."..|
000003A0: 49 B2 31 30 A4 32 30 30 A9 31 30 3A 98 34 2C 43 |I.10.200.10:.4,C|
000003B0: 24 3B 00 D7 0B 2C 01 81 58 B2 31 A4 33 32 3A 98 |$;...,..X.1.32:.|
000003C0: 34 2C 44 24 3B 3A 82 3A 98 34 2C 22 D4 22 3B 3A |4,D$;:.:.4,".";:|
000003D0: 98 34 2C 49 3B 42 24 00 DE 0B 36 01 82 49 00 0A |.4,I;B$...6..I..|
000003E0: 0C 40 01 98 34 2C 43 24 22 A3 A3 A3 A3 A3 A3 A3 |.@..4,C$".......|
000003F0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000400: A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 15 0C 4A 01 8D |........."...J..|
00000410: 35 32 30 3A 8E 00 3C 0C 54 01 98 34 2C 43 31 24 |520:..<.T..4,C1$|
00000420: 22 20 20 20 20 20 20 20 20 20 20 4C 41 52 47 45 |" LARGE|
00000430: 20 53 43 52 45 45 4E 20 4D 41 50 22 00 5E 0C 5E | SCREEN MAP".^.^|
00000440: 01 58 B2 32 32 3A 8D 35 30 30 3A 53 B2 53 4D 3A |.X.22:.500:S.SM:|
00000450: 53 24 B2 C4 28 53 29 3A 8D 35 33 30 3A 8E 00 84 |S$..(S):.530:...|
00000460: 0C 68 01 98 34 2C 43 31 24 22 20 20 20 20 20 20 |.h..4,C1$" |
00000470: 20 20 20 20 4C 41 52 47 45 20 43 4F 4C 4F 52 20 | LARGE COLOR |
00000480: 4D 41 50 22 00 A6 0C 72 01 58 B2 32 32 3A 8D 35 |MAP"...r.X.22:.5|
00000490: 30 30 3A 53 B2 43 4D 3A 53 24 B2 C4 28 53 29 3A |00:S.CM:S$..(S):|
000004A0: 8D 35 33 30 3A 8E 00 CE 0C 7C 01 98 34 2C 43 31 |.530:....|..4,C1|
000004B0: 24 22 20 20 20 20 20 20 20 20 20 4C 41 52 47 45 |$" LARGE|
000004C0: 20 47 52 41 50 48 49 43 53 20 4D 41 50 22 00 DC | GRAPHICS MAP"..|
000004D0: 0C 86 01 58 B2 31 38 3A 8D 35 30 30 00 22 0D 90 |...X.18:.500."..|
000004E0: 01 98 34 2C 22 B0 C3 20 54 48 49 53 20 42 4C 4F |..4,".. THIS BLO|
000004F0: 43 4B 20 49 53 20 41 44 44 52 45 53 53 20 30 2C |CK IS ADDRESS 0,|
00000500: 30 2E 20 41 44 44 20 31 30 20 47 4F 49 4E 47 20 |0. ADD 10 GOING |
00000510: 44 4F 57 4E 20 41 4E 44 20 41 43 52 4F 53 53 22 |DOWN AND ACROSS"|
00000520: 42 24 00 31 0D 9A 01 98 34 2C 43 24 22 DD 22 42 |B$.1....4,C$"."B|
00000530: 24 00 42 0D A4 01 81 58 B2 31 30 A4 32 30 30 A9 |$.B....X.10.200.|
00000540: 31 30 00 60 0D AE 01 98 34 2C 43 31 24 3B 3A 81 |10.`....4,C1$;:.|
00000550: 49 B2 31 A4 33 32 3A 98 34 2C 44 24 3B 3A 82 49 |I.1.32:.4,D$;:.I|
00000560: 00 6C 0D B8 01 98 34 2C 45 24 42 24 00 8A 0D C2 |.l....4,E$B$....|
00000570: 01 98 34 2C 43 31 24 3B 3A 81 49 B2 31 A4 33 33 |..4,C1$;:.I.1.33|
00000580: 3A 98 34 2C 45 24 3B 3A 82 49 00 97 0D CC 01 98 |:.4,E$;:.I......|
00000590: 34 2C 42 24 3A 82 58 00 C4 0D D6 01 98 34 2C 43 |4,B$:.X......4,C|
000005A0: 31 24 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |1$".............|
000005B0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000005C0: A3 A3 A3 22 00 CF 0D E0 01 8D 35 32 30 3A 8E 00 |..."......520:..|
000005D0: F0 0D EA 01 99 22 93 11 11 11 11 11 11 50 52 49 |.....".......PRI|
000005E0: 4E 54 49 4E 47 2E 2E 2E 22 3A 9F 34 2C 34 3A 8E |NTING...":.4,4:.|
000005F0: 00 0C 0E F4 01 8B 50 52 B2 30 A7 9F 36 2C 34 2C |......PR.0..6,4,|
00000600: 36 3A 98 36 2C C7 28 58 29 3A A0 36 00 18 0E FE |6:.6,.(X):.6....|
00000610: 01 98 34 2C 43 24 3A 8E 00 2A 0E 08 02 98 34 2C |..4,C$:..*....4,|
00000620: 43 24 3A 98 34 3A A0 34 3A 8E 00 73 0E 12 02 98 |C$:.4:.4:..s....|
00000630: 34 2C 22 B0 C3 20 54 48 49 53 20 42 4C 4F 43 4B |4,".. THIS BLOCK|
00000640: 20 53 54 41 52 54 53 20 41 54 22 53 24 22 2E 20 | STARTS AT"S$". |
00000650: 41 44 44 20 34 30 20 46 4F 52 20 45 41 43 48 20 |ADD 40 FOR EACH |
00000660: 52 4F 57 20 59 4F 55 20 47 4F 20 44 4F 57 4E 2E |ROW YOU GO DOWN.|
00000670: 22 42 24 00 8A 0E 1C 02 98 34 2C 43 24 22 DD 22 |"B$......4,C$"."|
00000680: 42 24 3A 81 58 B2 31 A4 32 35 00 9E 0E 26 02 98 |B$:.X.1.25...&..|
00000690: 34 2C 43 31 24 3B 3A 81 49 B2 30 A4 33 39 00 B2 |4,C1$;:.I.0.39..|
000006A0: 0E 30 02 98 34 2C 44 24 3B 3A 82 49 3A 98 34 2C |.0..4,D$;:.I:.4,|
000006B0: 42 24 00 C6 0E 3A 02 98 34 2C 43 31 24 3B 3A 81 |B$...:..4,C1$;:.|
000006C0: 49 B2 30 A4 33 39 00 DD 0E 44 02 98 34 2C 45 24 |I.0.39...D..4,E$|
000006D0: 3B 3A 82 49 3A 98 34 2C 42 24 3A 82 58 00 F1 0E |;:.I:.4,B$:.X...|
000006E0: 4E 02 98 34 2C 43 31 24 3B 3A 81 49 B2 30 A4 33 |N..4,C1$;:.I.0.3|
000006F0: 39 00 FF 0E 58 02 98 34 2C 46 24 3B 3A 82 49 00 |9...X..4,F$;:.I.|
00000700: 29 0F 62 02 58 B2 32 34 3A 8D 35 30 30 3A 81 58 |).b.X.24:.500:.X|
00000710: B2 53 A4 53 AA 39 36 30 A9 34 30 3A 98 34 2C 58 |.S.S.960.40:.4,X|
00000720: 3A 82 3A 8D 35 32 30 3A 8E 00 47 0F 6C 02 98 34 |:.:.520:..G.l..4|
00000730: 2C 43 31 24 22 20 20 20 53 4D 41 4C 4C 20 22 53 |,C1$" SMALL "S|
00000740: 24 22 20 4D 41 50 22 00 6A 0F 76 02 50 24 B2 22 |$" MAP".j.v.P$."|
00000750: 20 20 20 20 20 20 22 3A 8B 53 B2 43 4D A7 50 24 | ":.S.CM.P$|
00000760: B2 22 20 20 20 20 20 20 20 22 00 78 0F 80 02 58 |." ".x...X|
00000770: B2 32 34 3A 8D 35 30 30 00 A8 0F 8A 02 98 34 2C |.24:.500......4,|
00000780: 50 24 22 30 20 20 20 20 2E 20 20 20 20 31 20 20 |P$"0 . 1 |
00000790: 20 20 2E 20 20 20 20 32 20 20 20 20 2E 20 20 20 | . 2 . |
000007A0: 20 33 20 20 20 20 2E 22 00 D3 0F 94 02 98 34 2C | 3 ."......4,|
000007B0: 50 24 22 20 20 20 20 20 20 20 20 20 20 30 20 20 |P$" 0 |
000007C0: 20 20 20 20 20 20 20 30 20 20 20 20 20 20 20 20 | 0 |
000007D0: 20 30 22 00 E5 0F 9E 02 81 49 B2 53 A4 53 AA 39 | 0"......I.S.S.9|
000007E0: 36 30 A9 34 30 00 0E 10 A8 02 98 34 2C 43 24 49 |60.40......4,C$I|
000007F0: 3B 3A 81 58 B2 30 A4 33 39 3A 98 34 2C 44 24 3B |;:.X.0.39:.4,D$;|
00000800: 3A 82 3A 98 34 2C 22 D4 22 42 24 3A 82 49 00 44 |:.:.4,"."B$:.I.D|
00000810: 10 B2 02 98 34 2C 43 24 50 24 22 A3 A3 A3 A3 A3 |....4,C$P$".....|
00000820: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000830: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000840: A3 A3 A3 22 00 4F 10 BC 02 8D 35 32 30 3A 8E 00 |...".O....520:..|
00000850: 00 00 |.. |
..;...PR.1:. SET PR=0 FOR 1526 SERIES, P
R=1 FOR 1525 SERIES.S...SM.1024:CM.55296
:. SM=3072:CM=2048 ON THE PLUS 4/16.....
B$.G(8):C1$.G(14):C$.G(15):. PRINTER COD
ES...(..PR.0.B$."".T.2.D$.G(207):E$.G(16
5):F$.G(163)...<.."..":.".. ME
MORY MAP PRINTER ".1.F..".....
... 1 . SMALL SCREEN MAP".P.P.."... 2 .
SMALL COLOR MAP".{.Z.."... 3 . SMALL GRA
PHIC 320 X 200 MAP"...D.."... 4 . LARGE
SCREEN MAP"...N.."... 5 . LARGE COLOR MA
P"...X.."... 6 . LARGE GRAPHICS MAP"....
.."... 7 . QUIT"......"....MAKE YOUR SEL
ECTION"."....A$:.A$."".150.G. .A.F(A$).4
8:.A.7.210:.A.1.A.6.150.K....490:.A.220,
230,240,340,360,380......"..............
.PRINT ANOTHER ?"......A$:.A$."".190...H
..A$."Y".60...R..".":..Z...S$."SCREEN":S
.SM:.620:......S$."COLOR":S.CM:.620:....
...4,C1$"SMALL GRAPHICS MAP"."...X.24:.5
00.J....4,"0 . 1 . 2 .
3".R....4," 0 0
0"......4," 0 0
0"..."..I.10.200.10:.4,C$;.W.,..X.1.32:.
4,D$;:.:.4,"T";:.4,I;B$...6..I...@..4,C$
"................................"...J..
520:..<.T..4,C1$" LARGE SCREEN
MAP".^.^.X.22:.500:S.SM:S$.D(S):.530:...
.H..4,C1$" LARGE COLOR MAP"...R
.X.22:.500:S.CM:S$.D(S):.530:..N.|..4,C1
$" LARGE GRAPHICS MAP".....X.18:
.500."....4,".C THIS BLOCK IS ADDRESS 0,
0. ADD 10 GOING DOWN AND ACROSS"B$.1....
4,C$"."B$.B....X.10.200.10.`....4,C1$;:.
I.1.32:.4,D$;:.I.L....4,E$B$...B..4,C1$;
:.I.1.33:.4,E$;:.I...L..4,B$:.X.D.V..4,C
1$"................................".O..
..520:.......".......PRINTING...":.4,4:.
......PR.0..6,4,6:.6,G(X): 6......4,C$:.
.*....4,C$:.4: 4:..S....4,".C THIS BLOCK
STARTS AT"S$". ADD 40 FOR EACH ROW YOU
GO DOWN."B$......4,C$"."B$:.X.1.25...&..
4,C1$;:.I.0.39...0..4,D$;:.I:.4,B$.F.:..
4,C1$;:.I.0.39...D..4,E$;:.I:.4,B$:.X...
N..4,C1$;:.I.0.39...X..4,F$;:.I.).B.X.24
:.500:.X.S.S.960.40:.4,X:.:.520:..G.L..4
,C1$" SMALL "S$" MAP".J.V.P$." ":
.S.CM.P$." ".X...X.24:.500......4,
P$"0 . 1 . 2 . 3 ."
.S....4,P$" 0 0
0"......I.S.S.960.40......4,C$I;:.X.0.3
9:.4,D$;:.:.4,"T"B$:.I.D....4,C$P$".....
...................................".O..
..520:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL