00000000: 01 1C 0F 1C 64 00 4D 4F 44 45 B2 CC 28 47 29 00 |....d.MODE..(G).|
00000010: 4E 1C 6E 00 8F 20 2A 43 48 45 43 4B 20 54 4F 20 |N.n.. *CHECK TO |
00000020: 53 45 45 20 49 46 20 49 54 53 20 41 20 34 30 20 |SEE IF ITS A 40 |
00000030: 4F 52 20 38 30 20 20 20 20 20 20 20 20 20 20 43 |OR 80 C|
00000040: 4F 4C 55 4D 4E 20 44 49 53 50 4C 41 59 2A 00 60 |OLUMN DISPLAY*.`|
00000050: 1C 78 00 8B 20 4D 4F 44 45 B2 35 20 A7 20 FE 18 |.x.. MODE.5 . ..|
00000060: 00 77 1C 82 00 3A 20 20 20 41 B2 37 38 3A 42 B2 |.w...: A.78:B.|
00000070: 34 30 3A 43 B2 33 38 00 82 1C 8C 00 3A 20 20 20 |40:C.38.....: |
00000080: FE 25 00 8E 1C 96 00 FE 19 3A D5 20 FE 18 00 A8 |.%.......:. ....|
00000090: 1C A0 00 3A 20 20 20 41 B2 33 38 3A 42 B2 32 30 |...: A.38:B.20|
000000A0: 3A 43 B2 31 38 3A FE 19 00 C4 1C AA 00 8F 20 2A |:C.18:........ *|
000000B0: 53 54 41 52 54 20 54 48 45 20 4D 41 49 4E 20 4C |START THE MAIN L|
000000C0: 4F 4F 50 2A 00 CA 1C B4 00 E8 00 EC 1C BE 00 99 |OOP*............|
000000D0: C7 28 32 37 29 22 4D 22 3B 3A 20 8F 20 2A 53 45 |.(27)"M";: . *SE|
000000E0: 54 20 4E 4F 2D 53 43 52 4F 4C 4C 2A 00 0B 1D C8 |T NO-SCROLL*....|
000000F0: 00 58 31 B2 B5 28 BB 28 30 29 AC 42 29 3A 59 31 |.X1..(.(0).B):Y1|
00000100: B2 B5 28 BB 28 30 29 AC 31 32 29 00 31 1D D2 00 |..(.(0).12).1...|
00000110: 58 32 B2 B5 28 28 BB 28 30 29 AC 42 29 AA 43 29 |X2..((.(0).B).C)|
00000120: 3A 59 32 B2 B5 28 BB 28 30 29 AC 31 30 AA 31 32 |:Y2..(.(0).10.12|
00000130: 29 00 66 1D DC 00 8B 58 31 B1 58 32 20 B0 20 59 |).f....X1.X2 . Y|
00000140: 31 B1 59 32 20 B0 20 58 32 B1 41 20 B0 20 59 32 |1.Y2 . X2.A . Y2|
00000150: 20 B1 32 32 20 B0 58 31 B3 32 20 B0 20 59 31 B3 | .22 .X1.2 . Y1.|
00000160: 32 20 A7 32 30 30 00 A6 1D E6 00 8F 20 2A 43 52 |2 .200...... *CR|
00000170: 45 41 54 45 20 54 48 45 20 4C 41 52 47 45 52 20 |EATE THE LARGER |
00000180: 57 49 4E 44 4F 57 20 41 4E 44 20 20 20 20 20 20 |WINDOW AND |
00000190: 20 20 20 20 20 20 44 52 41 57 20 54 48 45 20 42 | DRAW THE B|
000001A0: 4F 52 44 45 52 2A 00 C4 1D F0 00 FE 1A 20 58 31 |ORDER*....... X1|
000001B0: AB 31 2C 59 31 AB 31 2C 58 32 AA 31 2C 59 32 AA |.1,Y1.1,X2.1,Y2.|
000001C0: 31 20 2C 31 00 D8 1D FA 00 58 B2 CE 09 28 30 29 |1 ,1.....X...(0)|
000001D0: 3A 59 B2 CE 09 28 31 29 00 FA 1D 04 01 99 22 CF |:Y...(1)......".|
000001E0: 22 3B 3A 81 49 B2 31 A4 28 59 AB 31 29 3A 99 22 |";:.I.1.(Y.1):."|
000001F0: B7 22 3B 3A 82 3A 99 22 D0 22 00 16 1E 0E 01 81 |.";:.:."."......|
00000200: 49 B2 31 A4 58 AB 31 3A 99 22 B4 22 3B A3 59 29 |I.1.X.1:.".";.Y)|
00000210: 3B 22 A7 22 3A 82 00 38 1E 18 01 99 22 CC 22 3B |;".":..8....".";|
00000220: 3A 81 49 B2 31 A4 28 59 AB 31 29 3A 99 22 AF 22 |:.I.1.(Y.1):."."|
00000230: 3B 3A 82 3A 99 22 BA 22 00 5A 1E 22 01 8F 20 2A |;:.:.".".Z.".. *|
00000240: 43 52 45 41 54 45 20 57 49 4E 44 4F 57 20 41 4E |CREATE WINDOW AN|
00000250: 44 20 46 49 4C 4C 20 49 54 2A 00 6D 1E 2C 01 FE |D FILL IT*.m.,..|
00000260: 1A 20 58 31 2C 59 31 2C 58 32 2C 59 32 00 92 1E |. X1,Y1,X2,Y2...|
00000270: 36 01 41 31 B2 28 BB 28 30 29 AC 33 38 AA 34 30 |6.A1.(.(0).38.40|
00000280: 29 3A 8B BB 28 30 29 B3 2E 32 A7 99 C7 28 31 35 |):..(0)..2...(15|
00000290: 29 3B 00 A7 1E 40 01 8B BB 28 30 29 B1 2E 39 A7 |);...@...(0)..9.|
000002A0: 99 C7 28 31 38 29 3B 00 BA 1E 4A 01 8B 20 BB 28 |..(18);...J.. .(|
000002B0: 30 29 B1 2E 38 20 A7 20 FE 18 00 E2 1E 54 01 8F |0)..8 . .....T..|
000002C0: 20 2A 43 48 4F 4F 53 45 20 4E 4F 52 4D 41 4C 20 | *CHOOSE NORMAL |
000002D0: 4F 52 20 52 45 56 45 52 53 45 20 53 43 52 45 45 |OR REVERSE SCREE|
000002E0: 4E 2A 00 1C 1F 5E 01 3A 20 20 20 20 20 8B 20 53 |N*...^.: . S|
000002F0: 24 B2 22 4E 22 20 A7 20 53 24 B2 22 52 22 3A 99 |$."N" . S$."R":.|
00000300: C7 28 32 37 29 53 24 3B 3A D5 20 99 C7 28 32 37 |.(27)S$;:. ..(27|
00000310: 29 22 4E 22 3B 3A 53 24 B2 22 4E 22 00 23 1F 68 |)"N";:S$."N".#.h|
00000320: 01 FE 19 00 44 1F 72 01 8F 20 2A 43 48 4F 4F 53 |....D.r.. *CHOOS|
00000330: 45 20 43 4F 4C 4F 52 20 46 4F 52 20 44 49 53 50 |E COLOR FOR DISP|
00000340: 4C 41 5F 2A 00 62 1F 7C 01 99 C7 28 31 34 39 AA |LA_*.b.|...(149.|
00000350: 44 29 3B 3A 44 B2 44 AA 31 3A 8B 44 B1 37 A7 44 |D);:D.D.1:.D.7.D|
00000360: B2 30 00 6F 1F 86 01 8B 44 B2 33 A7 44 B2 34 00 |.0.o....D.3.D.4.|
00000370: A1 1F 90 01 81 43 31 B2 30 20 A4 20 28 58 20 AC |.....C1.0 . (X .|
00000380: 20 59 29 20 99 C7 28 41 31 2B FF FF FF FF 32 FF | Y) ..(A1+....2.|
00000390: FF 67 FF FF FF FF B5 FF C4 CA 4A 10 EB FF 2C 79 |.g........J...,y|
000003A0: FF FF FF FF FF FF FF 98 F8 FF FF FF FF |............. |
....D.MODE.L(G).N.N.. *CHECK TO SEE IF I
TS A 40 OR 80 COLUMN DISPLAY*.`
.X.. MODE.5 . ...W...: A.78:B.40:C.38.
....: .%.......:U ..... .: A.38:B.20
:C.18:...D.... *START THE MAIN LOOP*.J..
........G(27)"M";: . *SET NO-SCROLL*...H
.X1..(.(0).B):Y1..(.(0).12).1.R.X2..((.(
0).B).C):Y2..(.(0).10.12).F....X1.X2 . Y
1.Y2 . X2.A . Y2 .22 .X1.2 . Y1.2 .200..
.... *CREATE THE LARGER WINDOW AND
DRAW THE BORDER*.D..... X1.1,Y1.1,
X2.1,Y2.1 ,1.X...X.N.(0):Y.N.(1)......"O
";:.I.1.(Y.1):.".";:.:."P"......I.1.X.1:
.".";.Y);".":..8...."L";:.I.1.(Y.1):."."
;:.:.".".Z.".. *CREATE WINDOW AND FILL I
T*.M.,... X1,Y1,X2,Y2...6.A1.(.(0).38.40
):..(0)..2..G(15);...@...(0)..9..G(18);.
..J.. .(0)..8 . .....T.. *CHOOSE NORMAL
OR REVERSE SCREEN*...^.: . S$."N" .
S$."R":.G(27)S$;:U .G(27)"N";:S$."N".#.H
....D.R.. *CHOOSE COLOR FOR DISPLA_*.B.|
..G(149.D);:D.D.1:.D.7.D.0.O....D.3.D.4.
.....C1.0 . (X . Y) .G(A1+....2..G......
DJJ...,Y.............
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL