GRAPHIC TUT-2.64

FILE INFORMATION

FILENAME(S): GRAPHIC TUT-2.64

FILE TYPE(S): PRG, DEL

FILE SIZE: 5.6K

FIRST SEEN: 2025-11-30 01:08:00

APPEARS ON: 5 disk(s)

FILE HASH

fd79dc26e11c836638836b1684886266882e9458f0f3255402088061125f42f6

FOUND ON DISKS (5 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
FREESOFT DISK NR	GRAPHIC TUT-2.64	PRG	Treasure Chest - Wolfgang Rauprich	7	0	DOWNLOAD FILE
U TILITIE	GRAPHIC TUT-2.64	PRG	Treasure Chest - Wolfgang Rauprich	7	0	DOWNLOAD FILE
NYTTO PRG C64	GRAPHIC TUT-2.64	DEL	Sailor, Lex	4	5	DOWNLOAD FILE
CCS 64 REG	GRAPHIC TUT-2.64	PRG	hedning, Mattias H00r	26	1	DOWNLOAD FILE
CCS 64 REG	GRAPHIC TUT-2.64	PRG	hedning, Mattias H00r	26	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 08 2D 08 00 00 8F 22  14 14 14 14 14 14 14 20  |..-...."....... |
00000010: 50 2E 4A 2E 50 4F 4E 5A  4F 2A 38 33 2A 57 41 54  |P.J.PONZO*83*WAT|
00000020: 45 52 4C 4F 4F 2F 4F 4E  54 41 52 49 4F 00 47 08  |ERLOO/ONTARIO.G.|
00000030: 1E 00 8F 22 14 14 14 14  14 14 14 20 3E 47 52 41  |..."....... >GRA|
00000040: 50 48 49 43 53 2D 32 00  64 08 28 00 8F 22 14 14  |PHICS-2.d.(.."..|
00000050: 14 14 14 14 14 20 B8 B8  B8 B8 B8 B8 B8 B8 B8 B8  |..... ..........|
00000060: B8 B8 B8 B8 00 7C 08 64  00 97 35 35 2C 30 3A 97  |.....|.d..55,0:.|
00000070: 35 36 2C 37 AC 31 36 AA  31 33 3A 9C 00 A3 08 6E  |56,7.16.13:....n|
00000080: 00 97 35 33 32 38 31 2C  31 35 3A 97 35 33 32 38  |..53281,15:.5328|
00000090: 30 2C 30 3A 8D 35 30 30  30 3A 97 35 33 32 37 32  |0,0:.5000:.53272|
000000A0: 2C 32 31 00 CC 08 78 00  99 22 93 90 11 57 45 20  |,21...x.."...WE |
000000B0: 49 4C 4C 55 53 54 52 41  54 45 20 53 4F 4D 45 20  |ILLUSTRATE SOME |
000000C0: 42 49 54 4D 41 50 20 4D  4F 44 45 22 00 E6 08 79  |BITMAP MODE"...y|
000000D0: 00 99 22 11 47 52 41 50  48 53 20 27 4E 27 20 53  |..".GRAPHS 'N' S|
000000E0: 55 43 48 2E 2E 22 00 11  09 7A 00 99 22 11 54 48  |UCH.."...z..".TH|
000000F0: 45 20 4D 41 43 48 49 4E  45 20 4C 41 4E 47 55 41  |E MACHINE LANGUA|
00000100: 47 45 20 52 4F 55 54 49  4E 45 20 42 45 49 4E 47  |GE ROUTINE BEING|
00000110: 22 00 3B 09 7B 00 99 22  11 4C 4F 41 44 45 44 20  |".;.{..".LOADED |
00000120: 57 49 4C 4C 20 50 4C 4F  54 20 41 20 50 4F 49 4E  |WILL PLOT A POIN|
00000130: 54 20 4F 52 20 4C 49 4E  45 2E 22 00 52 09 7D 00  |T OR LINE.".R.}.|
00000140: 97 35 33 32 34 38 AA 32  32 2C 32 30 30 3A 8D 34  |.53248.22,200:.4|
00000150: 30 30 00 84 09 82 00 85  22 93 43 4C 45 41 52 20  |00......".CLEAR |
00000160: 47 52 41 50 48 49 43 53  20 41 52 45 41 20 20 20  |GRAPHICS AREA   |
00000170: 59 9D 9D 9D 22 3B 41 24  3A 8B 41 24 B2 22 4E 22  |Y...";A$:.A$."N"|
00000180: A7 31 35 30 00 B9 09 8C  00 97 31 37 34 2C 30 3A  |.150......174,0:|
00000190: 97 31 37 35 2C 33 32 3A  97 31 37 36 2C 30 3A 97  |.175,32:.176,0:.|
000001A0: 31 37 37 2C 33 32 3A 9E  4D 4C 3A 8F 20 43 4C 45  |177,32:.ML:. CLE|
000001B0: 41 52 20 24 32 30 30 30  2D 00 F7 09 96 00 97 31  |AR $2000-......1|
000001C0: 37 34 2C 30 3A 97 31 37  35 2C 34 3A 97 31 37 36  |74,0:.175,4:.176|
000001D0: 2C 32 32 34 3A 97 31 37  37 2C 34 3A 9E 4D 4C 3A  |,224:.177,4:.ML:|
000001E0: 8F 20 53 45 54 20 43 4F  4C 4F 55 52 53 20 49 4E  |. SET COLOURS IN|
000001F0: 20 24 30 34 30 30 2D 00  0D 0A A0 00 8F 20 50 4F  | $0400-...... PO|
00000200: 49 4E 54 20 4C 4F 43 41  54 49 4F 4E 53 00 23 0A  |INT LOCATIONS.#.|
00000210: AA 00 58 30 B2 33 32 30  30 30 3A 59 30 B2 33 32  |..X0.32000:Y0.32|
00000220: 30 30 31 00 39 0A B4 00  58 31 B2 33 32 30 30 32  |001.9...X1.32002|
00000230: 3A 59 31 B2 33 32 30 30  33 00 4D 0A BE 00 58 B2  |:Y1.32003.M...X.|
00000240: 33 32 30 30 35 3A 59 B2  33 32 30 30 37 00 64 0A  |32005:Y.32007.d.|
00000250: C8 00 8D 33 35 30 3A 8F  20 42 49 54 4D 41 50 20  |...350:. BITMAP |
00000260: 4D 4F 44 45 00 87 0A D2  00 8F 2A 2A 2A 2A 2A 2A  |MODE......******|
00000270: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000280: 2A 2A 2A 2A 2A 2A 2A 00  AA 0A DC 00 8F 2A 20 20  |*******......*  |
00000290: 20 50 4F 4B 45 20 58 30  2C 59 30 2C 58 31 20 26  | POKE X0,Y0,X1 &|
000002A0: 20 59 31 20 20 20 20 20  20 2A 00 CD 0A DD 00 8F  | Y1      *......|
000002B0: 2A 20 20 20 53 59 53 20  4C 49 4E 45 20 44 52 41  |*   SYS LINE DRA|
000002C0: 57 53 20 4C 49 4E 45 20  20 20 20 20 2A 00 F0 0A  |WS LINE     *...|
000002D0: DE 00 8F 2A 20 20 20 46  52 4F 4D 20 28 58 30 2C  |...*   FROM (X0,|
000002E0: 59 30 29 20 54 4F 20 28  58 31 2C 59 31 29 20 2A  |Y0) TO (X1,Y1) *|
000002F0: 00 13 0B E6 00 8F 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |......**********|
00000300: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000310: 2A 2A 2A 00 22 0B F0 00  81 49 B2 30 A4 32 35 35  |***."....I.0.255|
00000320: A9 32 00 3F 0B FA 00 43  B2 BE 28 FF AC 49 AD 36  |.2.?...C..(..I.6|
00000330: 33 29 3A 53 B2 BF 28 FF  AC 49 AD 31 32 37 29 00  |3):S..(..I.127).|
00000340: 62 0B 04 01 43 43 B2 43  AC 43 3A 53 53 B2 53 AC  |b...CC.C.C:SS.S.|
00000350: 53 3A 97 58 30 2C 49 3A  97 59 30 2C 31 32 30 AC  |S:.X0,I:.Y0,120.|
00000360: 43 43 00 82 0B 0E 01 97  58 31 2C 31 32 37 AA 31  |CC......X1,127.1|
00000370: 32 37 AC 43 3A 97 59 31  2C 32 30 30 AB 38 30 AC  |27.C:.Y1,200.80.|
00000380: 43 43 00 8F 0B 18 01 9E  20 4C 49 4E 45 3A 82 00  |CC...... LINE:..|
00000390: B5 0B 22 01 8F 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.."..***********|
000003A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000003B0: 2A 2A 2A 2A 2A 00 F0 0B  2C 01 81 43 4C B2 30 A4  |*****...,..CL.0.|
000003C0: 31 35 3A 97 31 37 34 2C  30 3A 97 31 37 35 2C 34  |15:.174,0:.175,4|
000003D0: 3A 97 31 37 36 2C 31 36  AC 43 4C 3A 97 31 37 37  |:.176,16.CL:.177|
000003E0: 2C 34 3A 9E 4D 4C 3A 8F  20 43 4F 4C 4F 55 52 53  |,4:.ML:. COLOURS|
000003F0: 00 01 0C 36 01 81 54 B2  31 A4 31 30 30 3A 82 3A  |...6..T.1.100:.:|
00000400: 82 00 11 0C 4A 01 81 49  B2 31 A4 32 30 30 30 3A  |....J..I.1.2000:|
00000410: 82 00 25 0C 54 01 99 22  93 22 3A 8D 33 36 30 3A  |..%.T..".":.360:|
00000420: 89 31 30 30 30 00 53 0C  5E 01 97 35 33 32 34 38  |.1000.S.^..53248|
00000430: AA 31 37 2C 35 39 3A 97  35 33 32 34 38 AA 32 34  |.17,59:.53248.24|
00000440: 2C 32 35 3A 8E 3A 8F 20  42 49 54 4D 41 50 20 4D  |,25:.:. BITMAP M|
00000450: 4F 44 45 00 62 0C 68 01  81 54 B2 31 A4 35 30 30  |ODE.b.h..T.1.500|
00000460: 3A 82 00 8E 0C 72 01 97  35 33 32 34 38 AA 31 37  |:....r..53248.17|
00000470: 2C 32 37 3A 97 35 33 32  34 38 AA 32 34 2C 32 31  |,27:.53248.24,21|
00000480: 3A 8F 20 4E 4F 52 4D 41  4C 20 4D 4F 44 45 00 94  |:. NORMAL MODE..|
00000490: 0C 7C 01 8E 00 B0 0C 90  01 4D 4C B2 37 AC 34 30  |.|.......ML.7.40|
000004A0: 39 36 AA 31 35 AC 32 35  36 AA 34 AC 31 36 AA 32  |96.15.256.4.16.2|
000004B0: 00 C4 0C 91 01 8B C2 28  4D 4C 29 B2 31 36 35 A7  |.......(ML).165.|
000004C0: 20 35 30 30 00 DD 0C 92  01 81 49 B2 30 A4 31 36  | 500......I.0.16|
000004D0: 3A 87 58 3A 97 4D 4C AA  49 2C 58 3A 82 00 24 0D  |:.X:.ML.I,X:..$.|
000004E0: 9A 01 83 20 31 36 35 2C  31 37 36 2C 31 36 36 2C  |... 165,176,166,|
000004F0: 31 37 37 2C 31 36 30 2C  30 2C 31 34 35 2C 31 37  |177,160,0,145,17|
00000500: 34 2C 32 30 30 2C 32 30  38 2C 32 35 31 2C 32 33  |4,200,208,251,23|
00000510: 30 2C 31 37 35 2C 32 30  32 2C 32 30 38 2C 32 34  |0,175,202,208,24|
00000520: 36 2C 39 36 00 3B 0D F4  01 4C 49 4E 45 B2 37 AC  |6,96.;...LINE.7.|
00000530: 34 30 39 36 AA 31 34 AC  32 35 36 00 5B 0D F5 01  |4096.14.256.[...|
00000540: 50 4C 4F 54 B2 37 AC 34  30 39 36 AA 31 34 AC 32  |PLOT.7.4096.14.2|
00000550: 35 36 AA 31 31 AC 31 36  AA 31 31 00 6F 0D F6 01  |56.11.16.11.o...|
00000560: 8B C2 28 4C 49 4E 45 29  B2 31 36 39 A7 20 8E 00  |..(LINE).169. ..|
00000570: 93 0D FE 01 81 49 B2 30  A4 33 32 31 3A 87 58 3A  |.....I.0.321:.X:|
00000580: 97 4C 49 4E 45 AA 49 2C  58 3A 99 22 13 22 49 3A  |.LINE.I,X:."."I:|
00000590: 82 3A 8E 00 99 0D E8 03  3A 00 A8 0D E9 03 8F 20  |.:......:...... |
000005A0: 50 4F 4B 45 20 58 2C 59  00 C0 0D EA 03 8F 20 53  |POKE X,Y...... S|
000005B0: 59 53 20 50 4C 4F 54 20  54 55 52 4E 53 20 4F 4E  |YS PLOT TURNS ON|
000005C0: 00 D5 0D EB 03 8F 20 50  4F 49 4E 54 20 41 54 20  |...... POINT AT |
000005D0: 28 58 2C 59 29 00 DB 0D  EC 03 3A 00 0F 0E ED 03  |(X,Y).....:.....|
000005E0: 99 22 93 48 49 54 20 41  20 4B 45 59 20 54 4F 20  |.".HIT A KEY TO |
000005F0: 44 49 53 43 4F 4E 54 49  4E 55 45 20 50 4C 4F 54  |DISCONTINUE PLOT|
00000600: 2E 2E 22 3A 81 54 B2 31  A4 31 35 30 30 3A 82 00  |..":.T.1.1500:..|
00000610: 26 0E EE 03 8D 33 35 30  3A 8F 20 42 49 54 4D 41  |&....350:. BITMA|
00000620: 50 20 4D 4F 44 45 00 5B  0E EF 03 97 31 37 34 2C  |P MODE.[....174,|
00000630: 30 3A 97 31 37 35 2C 33  32 3A 97 31 37 36 2C 30  |0:.175,32:.176,0|
00000640: 3A 97 31 37 37 2C 33 32  3A 9E 4D 4C 3A 8F 20 43  |:.177,32:.ML:. C|
00000650: 4C 45 41 52 20 24 32 30  30 30 2D 00 97 0E F0 03  |LEAR $2000-.....|
00000660: 97 31 37 34 2C 30 3A 97  31 37 35 2C 34 3A 97 31  |.174,0:.175,4:.1|
00000670: 37 36 2C 31 3A 97 31 37  37 2C 34 3A 9E 4D 4C 3A  |76,1:.177,4:.ML:|
00000680: 8F 20 53 45 54 20 43 4F  4C 4F 55 52 53 20 49 4E  |. SET COLOURS IN|
00000690: 20 24 30 34 30 30 2D 00  CC 0E F2 03 54 30 B2 30  | $0400-.....T0.0|
000006A0: 3A 54 31 B2 31 30 30 30  3A 53 43 B2 32 AC FF AD  |:T1.1000:SC.2...|
000006B0: 54 31 3A 8F 20 4D 49 4E  2C 4D 41 58 20 41 4E 44  |T1:. MIN,MAX AND|
000006C0: 20 53 43 41 4C 45 20 46  4F 52 20 54 00 FA 0E FC  | SCALE FOR T....|
000006D0: 03 58 30 B2 30 3A 58 31  B2 32 35 35 3A 59 30 B2  |.X0.0:X1.255:Y0.|
000006E0: 30 3A 59 31 B2 32 30 30  3A 8F 20 4D 49 4E 2C 4D  |0:Y1.200:. MIN,M|
000006F0: 41 58 20 46 4F 52 20 58  2C 59 00 43 0F 06 04 41  |AX FOR X,Y.C...A|
00000700: B2 28 58 31 AA 58 30 29  AD 32 3A 42 B2 28 58 31  |.(X1.X0).2:B.(X1|
00000710: AB 58 30 29 AD 32 3A 43  B2 28 59 31 AA 59 30 29  |.X0).2:C.(Y1.Y0)|
00000720: AD 32 3A 44 B2 28 59 31  AB 59 30 29 AD 32 3A 50  |.2:D.(Y1.Y0).2:P|
00000730: B2 33 3A 51 B2 35 3A 8F  20 50 41 52 41 4D 45 54  |.3:Q.5:. PARAMET|
00000740: 45 52 53 00 5A 0F 10 04  81 54 B2 54 30 20 A4 20  |ERS.Z....T.T0 . |
00000750: 54 31 3A 54 54 B2 54 AC  53 43 00 70 0F 1A 04 58  |T1:TT.T.SC.p...X|
00000760: 56 4C 55 45 B2 41 AA 42  AC BF 28 50 AC 54 54 29  |VLUE.A.B..(P.TT)|
00000770: 00 86 0F 24 04 59 56 4C  55 45 B2 43 AA 44 AC BE  |...$.YVLUE.C.D..|
00000780: 28 51 AC 54 54 29 00 9C  0F 2E 04 97 58 2C 58 56  |(Q.TT)......X,XV|
00000790: 4C 55 45 3A 97 59 2C 59  56 4C 55 45 00 A7 0F 38  |LUE:.Y,YVLUE...8|
000007A0: 04 9E 20 50 4C 4F 54 00  B9 0F 42 04 A1 41 24 3A  |.. PLOT...B..A$:|
000007B0: 8B 41 24 B2 22 22 A7 82  54 00 BF 0F 47 04 3A 00  |.A$.""..T...G.:.|
000007C0: D6 0F 4C 04 8D 33 36 30  3A 8F 20 4E 4F 52 4D 41  |..L..360:. NORMA|
000007D0: 4C 20 4D 4F 44 45 00 05  10 B0 04 85 22 93 11 11  |L MODE......"...|
000007E0: 11 47 4F 54 20 41 20 4A  4F 59 53 54 49 43 4B 22  |.GOT A JOYSTICK"|
000007F0: 3B 41 24 3A 8B C8 28 41  24 2C 31 29 B2 22 59 22  |;A$:..(A$,1)."Y"|
00000800: A7 31 32 31 35 00 33 10  B1 04 99 22 93 11 11 55  |.1215.3...."...U|
00000810: 53 45 20 54 48 45 20 34  20 4B 45 59 53 20 49 4E  |SE THE 4 KEYS IN|
00000820: 20 54 48 45 20 55 50 50  45 52 20 4C 45 46 54 20  | THE UPPER LEFT |
00000830: 4F 46 22 00 60 10 B2 04  99 22 11 4F 46 20 54 48  |OF".`....".OF TH|
00000840: 45 20 4B 45 59 42 4F 41  52 44 20 54 4F 20 4D 4F  |E KEYBOARD TO MO|
00000850: 56 45 20 54 48 45 20 12  50 49 58 45 4C 92 2E 22  |VE THE .PIXEL.."|
00000860: 00 7D 10 B3 04 99 22 11  11 12 20 20 31 20 20 92  |.}...."...  1  .|
00000870: 20 46 4F 52 20 55 50 20  20 20 20 D0 22 00 96 10  | FOR UP    ."...|
00000880: B4 04 99 22 20 20 20 20  20 20 20 20 20 20 B8 B8  |..."          ..|
00000890: 20 20 20 20 AA 22 00 B5  10 B5 04 99 22 12 20 20  |    ."......".  |
000008A0: 32 20 20 92 20 46 4F 52  20 52 49 47 48 54 20 AA  |2  . FOR RIGHT .|
000008B0: 20 41 4E 44 22 00 CE 10  B6 04 99 22 20 20 20 20  | AND"......"    |
000008C0: 20 20 20 20 20 20 B8 B8  B8 B8 B8 20 AA 22 00 F5  |      ..... ."..|
000008D0: 10 B7 04 99 22 12 20 20  5F 20 20 92 20 46 4F 52  |....".  _  . FOR|
000008E0: 20 44 4F 57 4E 20 20 AA  20 43 4F 4D 42 49 4E 41  | DOWN  . COMBINA|
000008F0: 54 49 4F 4E 53 00 0E 11  B8 04 99 22 20 20 20 20  |TIONS......"    |
00000900: 20 20 20 20 20 20 B8 B8  B8 B8 20 20 AA 22 00 29  |      ....  .".)|
00000910: 11 B9 04 99 22 12 20 43  54 52 4C 92 20 46 4F 52  |....". CTRL. FOR|
00000920: 20 4C 45 46 54 20 20 BA  22 00 3F 11 BA 04 99 22  | LEFT  .".?...."|
00000930: 20 20 20 20 20 20 20 20  20 20 B8 B8 B8 B8 22 00  |          ....".|
00000940: 5B 11 BB 04 99 22 11 11  41 4E 44 20 12 53 50 41  |[...."..AND .SPA|
00000950: 43 45 92 20 54 4F 20 51  55 49 54 00 65 11 BC 04  |CE. TO QUIT.e...|
00000960: 89 31 32 35 30 00 6F 11  BD 04 89 31 32 35 30 00  |.1250.o....1250.|
00000970: 88 11 BE 04 99 22 20 20  20 20 20 20 20 20 20 20  |....."          |
00000980: 20 20 20 B8 B8 B8 B8 22  00 9B 11 BF 04 99 22 93  |   ...."......".|
00000990: 11 11 11 12 47 4F 4F 44  92 21 22 00 C4 11 C4 04  |....GOOD.!".....|
000009A0: 99 22 11 11 53 54 49 43  4B 20 49 54 20 49 4E 20  |."..STICK IT IN |
000009B0: 50 4F 52 54 20 31 20 41  4E 44 20 4D 4F 56 45 20  |PORT 1 AND MOVE |
000009C0: 54 48 45 22 00 DE 11 CE  04 99 22 11 57 45 45 20  |THE"......".WEE |
000009D0: 50 49 58 45 4C 20 41 52  4F 55 4E 44 2E 22 00 04  |PIXEL AROUND."..|
000009E0: 12 D8 04 99 22 11 48 49  54 20 54 48 45 20 12 46  |....".HIT THE .F|
000009F0: 49 52 45 20 42 55 54 54  4F 4E 92 20 54 4F 20 51  |IRE BUTTON. TO Q|
00000A00: 55 49 54 22 00 23 12 E2  04 99 22 11 11 11 48 49  |UIT".#...."...HI|
00000A10: 54 20 41 20 4B 45 59 20  54 4F 20 42 45 47 49 4E  |T A KEY TO BEGIN|
00000A20: 2E 2E 22 00 37 12 EC 04  A1 41 24 3A 8B 41 24 B2  |..".7....A$:.A$.|
00000A30: 22 22 A7 31 32 36 30 00  49 12 F6 04 58 58 B2 31  |"".1260.I...XX.1|
00000A40: 30 30 3A 59 59 B2 31 30  30 00 7E 12 00 05 97 31  |00:YY.100.~....1|
00000A50: 37 34 2C 30 3A 97 31 37  35 2C 33 32 3A 97 31 37  |74,0:.175,32:.17|
00000A60: 36 2C 30 3A 97 31 37 37  2C 33 32 3A 9E 4D 4C 3A  |6,0:.177,32:.ML:|
00000A70: 8F 20 43 4C 45 41 52 20  24 32 30 30 30 2D 00 8C  |. CLEAR $2000-..|
00000A80: 12 0A 05 99 22 93 22 3A  8D 33 35 30 00 C8 12 14  |....".":.350....|
00000A90: 05 97 31 37 34 2C 30 3A  97 31 37 35 2C 34 3A 97  |..174,0:.175,4:.|
00000AA0: 31 37 36 2C 31 3A 97 31  37 37 2C 34 3A 9E 4D 4C  |176,1:.177,4:.ML|
00000AB0: 3A 8F 20 53 45 54 20 43  4F 4C 4F 55 52 53 20 49  |:. SET COLOURS I|
00000AC0: 4E 20 24 30 34 30 30 2D  00 DC 12 D0 07 4A 58 28  |N $0400-.....JX(|
00000AD0: 30 29 B2 30 3A 4A 59 28  30 29 B2 30 00 F1 12 DA  |0).0:JY(0).0....|
00000AE0: 07 4A 58 28 31 29 B2 30  3A 4A 59 28 31 29 B2 AB  |.JX(1).0:JY(1)..|
00000AF0: 31 00 05 13 E4 07 4A 58  28 32 29 B2 30 3A 4A 59  |1.....JX(2).0:JY|
00000B00: 28 32 29 B2 31 00 19 13  EE 07 4A 58 28 33 29 B2  |(2).1.....JX(3).|
00000B10: 30 3A 4A 59 28 33 29 B2  30 00 2E 13 F8 07 4A 58  |0:JY(3).0.....JX|
00000B20: 28 34 29 B2 AB 31 3A 4A  59 28 34 29 B2 30 00 44  |(4)..1:JY(4).0.D|
00000B30: 13 02 08 4A 58 28 35 29  B2 AB 31 3A 4A 59 28 35  |...JX(5)..1:JY(5|
00000B40: 29 B2 AB 31 00 59 13 0C  08 4A 58 28 36 29 B2 AB  |)..1.Y...JX(6)..|
00000B50: 31 3A 4A 59 28 36 29 B2  31 00 6D 13 16 08 4A 58  |1:JY(6).1.m...JX|
00000B60: 28 37 29 B2 30 3A 4A 59  28 37 29 B2 30 00 81 13  |(7).0:JY(7).0...|
00000B70: 20 08 4A 58 28 38 29 B2  31 3A 4A 59 28 38 29 B2  | .JX(8).1:JY(8).|
00000B80: 30 00 96 13 2A 08 4A 58  28 39 29 B2 31 3A 4A 59  |0...*.JX(9).1:JY|
00000B90: 28 39 29 B2 AB 31 00 AC  13 34 08 4A 58 28 31 30  |(9)..1...4.JX(10|
00000BA0: 29 B2 31 3A 4A 59 28 31  30 29 B2 31 00 CF 13 3E  |).1:JY(10).1...>|
00000BB0: 08 4A 59 B2 28 A8 20 C2  28 35 36 33 32 31 29 29  |.JY.(. .(56321))|
00000BC0: AF 31 35 3A 8B 4A 59 B1  31 30 A7 32 31 31 30 00  |.15:.JY.10.2110.|
00000BD0: E9 13 66 08 46 52 B2 AB  28 28 C2 28 35 36 33 32  |..f.FR..((.(5632|
00000BE0: 31 29 AF 31 36 29 B2 30  29 00 07 14 70 08 4E 58  |1).16).0)...p.NX|
00000BF0: B2 58 58 AA 4A 58 28 4A  59 29 3A 4E 59 B2 59 59  |.XX.JX(JY):NY.YY|
00000C00: AA 4A 59 28 4A 59 29 00  1F 14 7A 08 8B 4E 58 B1  |.JY(JY)...z..NX.|
00000C10: 30 AF 4E 58 B3 32 35 36  A7 20 58 58 B2 4E 58 00  |0.NX.256. XX.NX.|
00000C20: 37 14 84 08 8B 4E 59 B1  30 AF 4E 59 B3 32 30 30  |7....NY.0.NY.200|
00000C30: A7 20 59 59 B2 4E 59 00  4E 14 8E 08 97 58 2C 58  |. YY.NY.N....X,X|
00000C40: 58 3A 97 59 2C 59 59 3A  9E 20 50 4C 4F 54 00 60  |X:.Y,YY:. PLOT.`|
00000C50: 14 98 08 8B 20 46 52 B2  30 20 A7 20 32 31 31 30  |.... FR.0 . 2110|
00000C60: 00 86 14 A2 08 99 22 93  22 3A 81 49 B2 31 A4 31  |......".":.I.1.1|
00000C70: 30 30 3A A1 41 24 3A 82  3A 8D 33 36 30 3A 9B 32  |00:.A$:.:.360:.2|
00000C80: 30 30 AB 32 39 30 00 B9  14 88 13 99 22 93 90 12  |00.290......"...|
00000C90: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 47 52  |              GR|
00000CA0: 41 50 48 49 43 53 2D 32  20 20 20 20 20 20 20 20  |APHICS-2        |
00000CB0: 20 20 20 20 20 20 20 20  22 00 EE 14 89 13 99 22  |        "......"|
00000CC0: 11 11 11 11 11 11 57 45  27 4C 4C 20 4D 41 4B 45  |......WE'LL MAKE|
00000CD0: 20 55 50 20 41 20 27 4E  45 57 27 20 43 48 41 52  | UP A 'NEW' CHAR|
00000CE0: 41 43 54 45 52 2E 22 3A  8D 36 33 30 30 30 00 0D  |ACTER.":.63000..|
00000CF0: 15 97 13 99 22 93 54 55  52 4E 20 4F 46 46 20 49  |....".TURN OFF I|
00000D00: 4E 54 45 52 52 55 50 54  53 2E 2E 2E 22 00 32 15  |NTERRUPTS...".2.|
00000D10: 9C 13 99 22 11 12 50 4F  4B 45 20 35 36 33 33 34  |..."..POKE 56334|
00000D20: 2C 50 45 45 4B 28 35 36  33 33 34 29 41 4E 44 32  |,PEEK(56334)AND2|
00000D30: 35 34 00 52 15 A1 13 99  22 11 53 57 49 54 43 48  |54.R....".SWITCH|
00000D40: 20 4F 55 54 20 54 48 45  20 43 49 41 20 43 48 49  | OUT THE CIA CHI|
00000D50: 50 53 00 73 15 A2 13 99  22 28 57 48 49 43 48 20  |PS.s...."(WHICH |
00000D60: 48 41 4E 44 4C 45 20 49  4E 54 45 52 52 55 50 54  |HANDLE INTERRUPT|
00000D70: 53 21 29 00 9B 15 A3 13  99 22 54 48 45 52 45 42  |S!)......"THEREB|
00000D80: 59 20 27 45 58 50 4F 53  49 4E 47 27 20 54 48 45  |Y 'EXPOSING' THE|
00000D90: 20 43 48 41 52 20 52 4F  4D 21 22 00 B8 15 A6 13  | CHAR ROM!".....|
00000DA0: 99 22 11 12 50 4F 4B 45  20 31 2C 50 45 45 4B 28  |."..POKE 1,PEEK(|
00000DB0: 31 29 41 4E 44 32 35 31  00 E1 15 AB 13 99 22 11  |1)AND251......".|
00000DC0: 54 52 41 4E 53 46 45 52  20 53 4F 4D 45 20 53 54  |TRANSFER SOME ST|
00000DD0: 41 4E 44 41 52 44 20 43  48 41 52 41 43 54 45 52  |ANDARD CHARACTER|
00000DE0: 53 00 FD 15 AC 13 99 22  46 52 4F 4D 20 35 33 32  |S......"FROM 532|
00000DF0: 34 38 20 54 4F 20 31 32  32 38 38 2E 22 00 25 16  |48 TO 12288.".%.|
00000E00: B0 13 99 22 11 12 46 4F  52 49 3D 30 54 4F 35 31  |..."..FORI=0TO51|
00000E10: 31 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |1               |
00000E20: 20 20 20 20 22 00 4C 16  B1 13 99 22 12 50 4F 4B  |    ".L....".POK|
00000E30: 45 31 32 32 38 38 2B 49  2C 50 45 45 4B 28 35 33  |E12288+I,PEEK(53|
00000E40: 32 34 38 2B 49 29 3A 4E  45 58 54 22 00 68 16 B5  |248+I):NEXT".h..|
00000E50: 13 99 22 11 53 57 49 54  43 48 20 49 4E 20 49 2F  |..".SWITCH IN I/|
00000E60: 30 20 41 47 41 49 4E 22  00 82 16 BA 13 99 22 11  |0 AGAIN"......".|
00000E70: 12 50 4F 4B 45 20 31 2C  50 45 45 4B 28 31 29 4F  |.POKE 1,PEEK(1)O|
00000E80: 52 34 00 A1 16 BF 13 99  22 11 45 4E 41 42 4C 45  |R4......".ENABLE|
00000E90: 20 49 4E 54 45 52 52 55  50 54 53 20 41 47 41 49  | INTERRUPTS AGAI|
00000EA0: 4E 00 C3 16 C4 13 99 22  11 12 50 4F 4B 45 20 35  |N......"..POKE 5|
00000EB0: 36 33 33 34 2C 50 45 45  4B 28 35 36 33 33 34 29  |6334,PEEK(56334)|
00000EC0: 4F 52 31 00 E8 16 CE 13  97 35 36 33 33 34 2C 30  |OR1......56334,0|
00000ED0: 3A 97 31 2C 35 31 3A 41  41 B2 31 32 32 38 38 3A  |:.1,51:AA.12288:|
00000EE0: 42 42 B2 35 33 32 34 38  00 1E 17 D8 13 81 49 49  |BB.53248......II|
00000EF0: B2 30 A4 35 31 31 3A 97  41 41 AA 49 49 2C C2 28  |.0.511:.AA.II,.(|
00000F00: 42 42 AA 49 49 29 3A 82  3A 97 31 2C 35 35 3A 97  |BB.II):.:.1,55:.|
00000F10: 35 36 33 33 34 2C 31 3A  8D 36 33 30 30 30 00 4C  |56334,1:.63000.L|
00000F20: 17 E2 13 99 22 93 11 11  11 11 4E 4F 57 20 54 45  |....".....NOW TE|
00000F30: 4C 4C 20 54 48 45 20 56  49 44 45 4F 20 43 48 49  |LL THE VIDEO CHI|
00000F40: 50 20 57 48 45 52 45 20  54 48 45 22 00 66 17 EC  |P WHERE THE".f..|
00000F50: 13 99 22 11 43 48 41 52  41 43 54 45 52 20 53 45  |..".CHARACTER SE|
00000F60: 54 20 49 53 3A 22 00 9B  17 F6 13 99 22 11 50 4F  |T IS:"......".PO|
00000F70: 4B 45 20 35 33 32 37 32  2C 28 50 45 45 4B 28 35  |KE 53272,(PEEK(5|
00000F80: 33 32 37 32 29 41 4E 44  32 34 30 29 4F 52 31 32  |3272)AND240)OR12|
00000F90: 22 3A 97 35 33 32 37 32  2C 32 39 00 CF 17 00 14  |":.53272,29.....|
00000FA0: 99 22 11 11 4E 4F 57 20  4C 45 54 27 53 20 43 48  |."..NOW LET'S CH|
00000FB0: 41 4E 47 45 20 41 20 46  45 57 20 43 48 41 52 41  |ANGE A FEW CHARA|
00000FC0: 43 54 45 52 53 21 21 22  3A 8D 36 33 30 30 30 00  |CTERS!!":.63000.|
00000FD0: 0B 18 0A 14 99 22 93 11  11 11 11 11 11 11 11 11  |....."..........|
00000FE0: 11 11 50 49 43 4B 20 41  20 43 48 41 52 41 43 54  |..PICK A CHARACT|
00000FF0: 45 52 20 28 27 51 27 3D  51 55 49 54 22 3A 85 43  |ER ('Q'=QUIT":.C|
00001000: 24 3A 8B 43 24 B2 22 51  22 A7 8E 00 2E 18 14 14  |$:.C$."Q".......|
00001010: 99 22 13 22 43 24 3A 43  B2 C2 28 31 30 32 34 29  |."."C$:C..(1024)|
00001020: 3A 4D 45 4D B2 31 32 32  38 38 AA 38 AC 43 00 4F  |:MEM.12288.8.C.O|
00001030: 18 1E 14 99 22 43 55 52  52 45 4E 54 20 38 20 42  |...."CURRENT 8 B|
00001040: 59 54 45 53 20 46 4F 52  20 22 43 24 22 3A 22 00  |YTES FOR "C$":".|
00001050: 6A 18 28 14 81 49 49 B2  30 A4 37 3A 4D B2 4D 45  |j.(..II.0.7:M.ME|
00001060: 4D AA 49 49 3A 8D 35 32  30 30 00 7C 18 32 14 99  |M.II:.5200.|.2..|
00001070: 58 24 22 20 3D 22 C2 28  4D 29 3A 82 00 B1 18 3C  |X$" =".(M):....<|
00001080: 14 99 22 11 11 11 38 20  4E 45 57 20 42 59 54 45  |.."...8 NEW BYTE|
00001090: 53 20 50 4C 45 41 53 45  22 3A 81 49 49 B2 30 A4  |S PLEASE":.II.0.|
000010A0: 37 3A 85 20 42 42 24 3A  42 42 B2 C5 28 42 42 24  |7:. BB$:BB..(BB$|
000010B0: 29 00 CF 18 46 14 97 4D  45 4D AA 49 49 2C 42 42  |)...F..MEM.II,BB|
000010C0: 3A 82 3A 8D 36 33 30 30  30 3A 89 35 31 33 30 00  |:.:.63000:.5130.|
000010D0: F2 18 50 14 58 B2 C2 28  4D 29 3A 58 24 B2 22 22  |..P.X..(M):X$.""|
000010E0: 3A 81 4A 4A B2 37 A4 30  A9 AB 31 3A 46 B2 32 AE  |:.JJ.7.0..1:F.2.|
000010F0: 4A 4A 00 0B 19 5A 14 59  25 B2 58 AD 46 3A 59 24  |JJ...Z.Y%.X.F:Y$|
00001100: B2 CA 28 C4 28 59 25 29  2C 32 29 00 25 19 64 14  |..(.(Y%),2).%.d.|
00001110: 58 24 B2 58 24 AA 59 24  3A 58 B2 58 AB 46 AC 59  |X$.X$.Y$:X.X.F.Y|
00001120: 25 3A 82 3A 8E 00 65 19  10 27 83 31 36 39 2C 30  |%:.:..e..'.169,0|
00001130: 2C 31 34 31 2C 34 2C 31  32 35 2C 31 34 31 2C 36  |,141,4,125,141,6|
00001140: 2C 31 32 35 2C 31 34 31  2C 31 32 2C 31 32 35 2C  |,125,141,12,125,|
00001150: 31 36 32 2C 32 35 35 2C  31 37 33 2C 32 2C 31 32  |162,255,173,2,12|
00001160: 35 2C 32 30 35 00 A2 19  11 27 83 30 2C 31 32 35  |5,205....'.0,125|
00001170: 2C 31 37 36 2C 31 33 2C  31 37 33 2C 30 2C 31 32  |,176,13,173,0,12|
00001180: 35 2C 35 36 2C 32 33 37  2C 32 2C 31 32 35 2C 31  |5,56,237,2,125,1|
00001190: 34 31 2C 38 2C 31 32 35  2C 37 36 2C 34 33 2C 31  |41,8,125,76,43,1|
000011A0: 32 36 00 E1 19 12 27 83  32 33 37 2C 30 2C 31 32  |26....'.237,0,12|
000011B0: 35 2C 31 34 31 2C 38 2C  31 32 35 2C 32 33 38 2C  |5,141,8,125,238,|
000011C0: 31 32 2C 31 32 35 2C 31  37 33 2C 33 2C 31 32 35  |12,125,173,3,125|
000011D0: 2C 32 30 35 2C 31 2C 31  32 35 2C 31 37 36 2C 31  |,205,1,125,176,1|
000011E0: 33 00 1F 1A 13 27 83 31  37 33 2C 31 2C 31 32 35  |3....'.173,1,125|
000011F0: 2C 35 36 2C 32 33 37 2C  33 2C 31 32 35 2C 31 34  |,56,237,3,125,14|
00001200: 31 2C 39 2C 31 32 35 2C  37 36 2C 37 36 2C 31 32  |1,9,125,76,76,12|
00001210: 36 2C 32 33 37 2C 31 2C  31 32 35 2C 31 34 31 00  |6,237,1,125,141.|
00001220: 5E 1A 14 27 83 39 2C 31  32 35 2C 32 33 38 2C 31  |^..'.9,125,238,1|
00001230: 32 2C 31 32 35 2C 32 33  38 2C 31 32 2C 31 32 35  |2,125,238,12,125|
00001240: 2C 31 37 33 2C 30 2C 31  32 35 2C 31 34 31 2C 35  |,173,0,125,141,5|
00001250: 2C 31 32 35 2C 31 37 33  2C 31 2C 31 32 35 00 9B  |,125,173,1,125..|
00001260: 1A 15 27 83 31 34 31 2C  37 2C 31 32 35 2C 31 36  |..'.141,7,125,16|
00001270: 39 2C 31 2C 34 34 2C 31  32 2C 31 32 35 2C 32 30  |9,1,44,12,125,20|
00001280: 38 2C 32 31 2C 31 37 33  2C 34 2C 31 32 35 2C 35  |8,21,173,4,125,5|
00001290: 36 2C 32 33 37 2C 38 2C  31 32 35 00 D9 1A 16 27  |6,237,8,125....'|
000012A0: 83 31 34 31 2C 34 2C 31  32 35 2C 31 37 33 2C 35  |.141,4,125,173,5|
000012B0: 2C 31 32 35 2C 32 33 33  2C 30 2C 31 34 31 2C 35  |,125,233,0,141,5|
000012C0: 2C 31 32 35 2C 37 36 2C  31 33 34 2C 31 32 36 2C  |,125,76,134,126,|
000012D0: 31 37 33 2C 34 2C 31 32  35 00 15 1B 17 27 83 32  |173,4,125....'.2|
000012E0: 34 2C 31 30 39 2C 38 2C  31 32 35 2C 31 34 31 2C  |4,109,8,125,141,|
000012F0: 34 2C 31 32 35 2C 31 37  33 2C 35 2C 31 32 35 2C  |4,125,173,5,125,|
00001300: 31 30 35 2C 30 2C 31 34  31 2C 35 2C 31 32 35 2C  |105,0,141,5,125,|
00001310: 31 36 39 2C 32 00 52 1B  18 27 83 34 34 2C 31 32  |169,2.R..'.44,12|
00001320: 2C 31 32 35 2C 32 30 38  2C 32 31 2C 31 37 33 2C  |,125,208,21,173,|
00001330: 36 2C 31 32 35 2C 35 36  2C 32 33 37 2C 39 2C 31  |6,125,56,237,9,1|
00001340: 32 35 2C 31 34 31 2C 36  2C 31 32 35 2C 31 37 33  |25,141,6,125,173|
00001350: 2C 37 00 91 1B 19 27 83  31 32 35 2C 32 33 33 2C  |,7....'.125,233,|
00001360: 30 2C 31 34 31 2C 37 2C  31 32 35 2C 37 36 2C 31  |0,141,7,125,76,1|
00001370: 38 30 2C 31 32 36 2C 31  37 33 2C 36 2C 31 32 35  |80,126,173,6,125|
00001380: 2C 32 34 2C 31 30 39 2C  39 2C 31 32 35 2C 31 34  |,24,109,9,125,14|
00001390: 31 00 D0 1B 1A 27 83 36  2C 31 32 35 2C 31 37 33  |1....'.6,125,173|
000013A0: 2C 37 2C 31 32 35 2C 31  30 35 2C 30 2C 31 34 31  |,7,125,105,0,141|
000013B0: 2C 37 2C 31 32 35 2C 33  32 2C 31 38 37 2C 31 32  |,7,125,32,187,12|
000013C0: 36 2C 32 30 32 2C 32 30  38 2C 31 35 38 2C 39 36  |6,202,208,158,96|
000013D0: 00 11 1C 1B 27 83 31 36  39 2C 33 32 2C 31 33 33  |....'.169,32,133|
000013E0: 2C 31 37 37 2C 31 36 39  2C 30 2C 31 33 33 2C 31  |,177,169,0,133,1|
000013F0: 37 36 2C 31 37 33 2C 35  2C 31 32 35 2C 34 31 2C  |76,173,5,125,41,|
00001400: 32 34 38 2C 33 32 2C 32  34 2C 31 32 37 2C 31 37  |248,32,24,127,17|
00001410: 33 00 4D 1C 1C 27 83 37  2C 31 32 35 2C 34 31 2C  |3.M..'.7,125,41,|
00001420: 37 2C 33 32 2C 32 34 2C  31 32 37 2C 31 37 33 2C  |7,32,24,127,173,|
00001430: 37 2C 31 32 35 2C 34 31  2C 32 34 38 2C 31 34 31  |7,125,41,248,141|
00001440: 2C 31 30 2C 31 32 35 2C  31 36 30 2C 35 00 8C 1C  |,10,125,160,5...|
00001450: 1D 27 83 33 32 2C 33 36  2C 31 32 37 2C 31 37 33  |.'.32,36,127,173|
00001460: 2C 37 2C 31 32 35 2C 34  31 2C 32 34 38 2C 31 34  |,7,125,41,248,14|
00001470: 31 2C 31 30 2C 31 32 35  2C 31 36 30 2C 33 2C 33  |1,10,125,160,3,3|
00001480: 32 2C 33 36 2C 31 32 37  2C 31 36 35 00 CA 1C 1E  |2,36,127,165....|
00001490: 27 83 31 37 37 2C 32 30  31 2C 36 34 2C 31 37 36  |'.177,201,64,176|
000014A0: 2C 33 36 2C 31 37 33 2C  35 2C 31 32 35 2C 34 31  |,36,173,5,125,41|
000014B0: 2C 37 2C 31 34 31 2C 31  31 2C 31 32 35 2C 31 36  |,7,141,11,125,16|
000014C0: 39 2C 37 2C 35 36 2C 32  33 37 00 06 1D 1F 27 83  |9,7,56,237....'.|
000014D0: 31 31 2C 31 32 35 2C 31  36 38 2C 31 36 39 2C 31  |11,125,168,169,1|
000014E0: 2C 31 33 36 2C 34 38 2C  34 2C 31 30 2C 37 36 2C  |,136,48,4,10,76,|
000014F0: 34 2C 31 32 37 2C 31 34  31 2C 31 31 2C 31 32 35  |4,127,141,11,125|
00001500: 2C 31 36 30 2C 30 00 49  1D 20 27 83 31 37 37 2C  |,160,0.I. '.177,|
00001510: 31 37 36 2C 31 33 2C 31  31 2C 31 32 35 2C 31 34  |176,13,11,125,14|
00001520: 35 2C 31 37 36 2C 39 36  2C 32 34 2C 31 30 31 2C  |5,176,96,24,101,|
00001530: 31 37 36 2C 31 33 33 2C  31 37 36 2C 31 36 35 2C  |176,133,176,165,|
00001540: 31 37 37 2C 31 30 35 2C  30 00 8A 1D 21 27 83 31  |177,105,0...!'.1|
00001550: 33 33 2C 31 37 37 2C 39  36 2C 31 36 39 2C 30 2C  |33,177,96,169,0,|
00001560: 31 34 31 2C 31 31 2C 31  32 35 2C 31 34 2C 31 30  |141,11,125,14,10|
00001570: 2C 31 32 35 2C 34 36 2C  31 31 2C 31 32 35 2C 31  |,125,46,11,125,1|
00001580: 33 36 2C 32 30 38 2C 32  34 37 00 CB 1D 22 27 83  |36,208,247..."'.|
00001590: 31 36 35 2C 31 37 36 2C  32 34 2C 31 30 39 2C 31  |165,176,24,109,1|
000015A0: 30 2C 31 32 35 2C 31 33  33 2C 31 37 36 2C 31 36  |0,125,133,176,16|
000015B0: 35 2C 31 37 37 2C 31 30  39 2C 31 31 2C 31 32 35  |5,177,109,11,125|
000015C0: 2C 31 33 33 2C 31 37 37  2C 39 36 00 07 1E 18 F6  |,133,177,96.....|
000015D0: 99 22 13 11 11 11 11 11  11 11 11 11 11 11 11 11  |."..............|
000015E0: 11 11 11 11 11 11 11 11  11 11 11 48 49 54 20 27  |...........HIT '|
000015F0: 52 45 54 55 52 4E 27 20  54 4F 20 43 4F 4E 54 49  |RETURN' TO CONTI|
00001600: 4E 55 45 2E 2E 13 22 00  1D 1E 19 F6 A1 41 24 3A  |NUE..."......A$:|
00001610: 8B 41 24 B3 B1 22 22 A7  36 33 30 30 31 00 32 1E  |.A$.."".63001.2.|
00001620: 1A F6 A1 41 24 3A 8B 41  24 B2 22 22 A7 36 33 30  |...A$:.A$."".630|
00001630: 30 32 00 38 1E 1B F6 8E  00 00 00                 |02.8.......     |

..-...."....... P.J.PONZO*83*WATERLOO/ON
TARIO.G...."....... >GRAPHICS-2.D.(.."..
..... ...............|.D..55,0:.56,7.16.
13:....N..53281,15:.53280,0:.5000:.53272
,21.L.X.."...WE ILLUSTRATE SOME BITMAP M
ODE"...Y..".GRAPHS 'N' SUCH.."...Z..".TH
E MACHINE LANGUAGE ROUTINE BEING".;.{.."
.LOADED WILL PLOT A POINT OR LINE.".R.}.
.53248.22,200:.400......".CLEAR GRAPHICS
 AREA   Y...";A$:.A$."N".150......174,0:
.175,32:.176,0:.177,32:.ML:. CLEAR $2000
-......174,0:.175,4:.176,224:.177,4:.ML:
. SET COLOURS IN $0400-... .. POINT LOCA
TIONS.#...X0.32000:Y0.32001.9...X1.32002
:Y1.32003.M...X.32005:Y.32007.D.H..350:.
 BITMAP MODE...R..**********************
*******......*   POKE X0,Y0,X1 & Y1     
 *.M....*   SYS LINE DRAWS LINE     *...
...*   FROM (X0,Y0) TO (X1,Y1) *......**
***************************."....I.0.255
.2.?...C..(..I.63):S..(..I.127).B...CC.C
.C:SS.S.S:.X0,I:.Y0,120.CC......X1,127.1
27.C:.Y1,200.80.CC...... LINE:...."..***
*****************************...,..CL.0.
15:.174,0:.175,4:.176,16.CL:.177,4:.ML:.
 COLOURS...6..T.1.100:.:....J..I.1.2000:
..%.T..".":.360:.1000.S.^..53248.17,59:.
53248.24,25:.:. BITMAP MODE.B.H..T.1.500
:....R..53248.17,27:.53248.24,21:. NORMA
L MODE...|.......ML.7.4096.15.256.4.16.2
.D....B(ML).165. 500......I.0.16:.X:.ML.
I,X:..$.... 165,176,166,177,160,0,145,17
4,200,208,251,230,175,202,208,246,96.;..
.LINE.7.4096.14.256.[...PLOT.7.4096.14.2
56.11.16.11.O....B(LINE).169. .......I.0
.321:.X:.LINE.I,X:."."I:.:......:...... 
POKE X,Y...... SYS PLOT TURNS ON.U.... P
OINT AT (X,Y).....:......".HIT A KEY TO 
DISCONTINUE PLOT..":.T.1.1500:..&....350
:. BITMAP MODE.[....174,0:.175,32:.176,0
:.177,32:.ML:. CLEAR $2000-......174,0:.
175,4:.176,1:.177,4:.ML:. SET COLOURS IN
 $0400-.L...T0.0:T1.1000:SC.2...T1:. MIN
,MAX AND SCALE FOR T.....X0.0:X1.255:Y0.
0:Y1.200:. MIN,MAX FOR X,Y.C...A.(X1.X0)
.2:B.(X1.X0).2:C.(Y1.Y0).2:D.(Y1.Y0).2:P
.3:Q.5:. PARAMETERS.Z....T.T0 . T1:TT.T.
SC.P...XVLUE.A.B..(P.TT)...$.YVLUE.C.D..
(Q.TT)......X,XVLUE:.Y,YVLUE...8.. PLOT.
..B..A$:.A$.""..T...G.:.V.L..360:. NORMA
L MODE......"....GOT A JOYSTICK";A$:.H(A
$,1)."Y".1215.3...."...USE THE 4 KEYS IN
 THE UPPER LEFT OF".`....".OF THE KEYBOA
RD TO MOVE THE .PIXEL..".}...."...  1  .
 FOR UP    P"......"          ..    ."..
....".  2  . FOR RIGHT . AND".N...."    
      ..... ."......".  _  . FOR DOWN  .
 COMBINATIONS......"          ....  .".)
....". CTRL. FOR LEFT  .".?...."        
  ....".[...."..AND .SPACE. TO QUIT.E...
.1250.O....1250......"             ...."
......".....GOOD.!".D.D.."..STICK IT IN 
PORT 1 AND MOVE THE"...N..".WEE PIXEL AR
OUND."...X..".HIT THE .FIRE BUTTON. TO Q
UIT".#...."...HIT A KEY TO BEGIN..".7...
.A$:.A$."".1260.I...XX.100:YY.100.~....1
74,0:.175,32:.176,0:.177,32:.ML:. CLEAR 
$2000-......".":.350.H....174,0:.175,4:.
176,1:.177,4:.ML:. SET COLOURS IN $0400-
...P.JX(0).0:JY(0).0...Z.JX(1).0:JY(1)..
1.....JX(2).0:JY(2).1.....JX(3).0:JY(3).
0.....JX(4)..1:JY(4).0.D...JX(5)..1:JY(5
)..1.Y...JX(6)..1:JY(6).1.M...JX(7).0:JY
(7).0... .JX(8).1:JY(8).0...*.JX(9).1:JY
(9)..1...4.JX(10).1:JY(10).1.O.>.JY.(. B
(56321)).15:.JY.10.2110...F.FR..((B(5632
1).16).0)...P.NX.XX.JX(JY):NY.YY.JY(JY).
..Z..NX.0.NX.256. XX.NX.7....NY.0.NY.200
. YY.NY.N....X,XX:.Y,YY:. PLOT.`.... FR.
0 . 2110......".":.I.1.100:.A$:.:.360:.2
00.290......"...              GRAPHICS-2
                "......"......WE'LL MAKE
 UP A 'NEW' CHARACTER.":.63000......".TU
RN OFF INTERRUPTS...".2...."..POKE 56334
,PEEK(56334)AND254.R....".SWITCH OUT THE
 CIA CHIPS.S...."(WHICH HANDLE INTERRUPT
S!)......"THEREBY 'EXPOSING' THE CHAR RO
M!"......"..POKE 1,PEEK(1)AND251......".
TRANSFER SOME STANDARD CHARACTERS......"
FROM 53248 TO 12288.".%...."..FORI=0TO51
1                   ".L....".POKE12288+I
,PEEK(53248+I):NEXT".H....".SWITCH IN I/
0 AGAIN"......"..POKE 1,PEEK(1)OR4......
".ENABLE INTERRUPTS AGAIN.C.D.."..POKE 5
6334,PEEK(56334)OR1...N..56334,0:.1,51:A
A.12288:BB.53248...X..II.0.511:.AA.II,B(
BB.II):.:.1,55:.56334,1:.63000.L...."...
..NOW TELL THE VIDEO CHIP WHERE THE".F..
..".CHARACTER SET IS:"......".POKE 53272
,(PEEK(53272)AND240)OR12":.53272,29.O...
."..NOW LET'S CHANGE A FEW CHARACTERS!!"
:.63000......"............PICK A CHARACT
ER ('Q'=QUIT":.C$:.C$."Q"........"."C$:C
.B(1024):MEM.12288.8.C.O...."CURRENT 8 B
YTES FOR "C$":".J.(..II.0.7:M.MEM.II:.52
00.|.2..X$" ="B(M):....<.."...8 NEW BYTE
S PLEASE":.II.0.7:. BB$:BB.E(BB$).O.F..M
EM.II,BB:.:.63000:.5130...P.X.B(M):X$.""
:.JJ.7.0..1:F.2.JJ...Z.Y%.X.F:Y$.J(D(Y%)
,2).%.D.X$.X$.Y$:X.X.F.Y%:.:..E..'.169,0
,141,4,125,141,6,125,141,12,125,162,255,
173,2,125,205....'.0,125,176,13,173,0,12
5,56,237,2,125,141,8,125,76,43,126....'.
237,0,125,141,8,125,238,12,125,173,3,125
,205,1,125,176,13....'.173,1,125,56,237,
3,125,141,9,125,76,76,126,237,1,125,141.
^..'.9,125,238,12,125,238,12,125,173,0,1
25,141,5,125,173,1,125....'.141,7,125,16
9,1,44,12,125,208,21,173,4,125,56,237,8,
125.Y..'.141,4,125,173,5,125,233,0,141,5
,125,76,134,126,173,4,125....'.24,109,8,
125,141,4,125,173,5,125,105,0,141,5,125,
169,2.R..'.44,12,125,208,21,173,6,125,56
,237,9,125,141,6,125,173,7....'.125,233,
0,141,7,125,76,180,126,173,6,125,24,109,
9,125,141.P..'.6,125,173,7,125,105,0,141
,7,125,32,187,126,202,208,158,96....'.16
9,32,133,177,169,0,133,176,173,5,125,41,
248,32,24,127,173.M..'.7,125,41,7,32,24,
127,173,7,125,41,248,141,10,125,160,5...
.'.32,36,127,173,7,125,41,248,141,10,125
,160,3,32,36,127,165.J..'.177,201,64,176
,36,173,5,125,41,7,141,11,125,169,7,56,2
37....'.11,125,168,169,1,136,48,4,10,76,
4,127,141,11,125,160,0.I. '.177,176,13,1
1,125,145,176,96,24,101,176,133,176,165,
177,105,0...!'.133,177,96,169,0,141,11,1
25,14,10,125,46,11,125,136,208,247.K."'.
165,176,24,109,10,125,133,176,165,177,10
9,11,125,133,177,96......"..............
...........HIT 'RETURN' TO CONTINUE...".
.....A$:.A$.."".63001.2....A$:.A$."".630
02.8.......

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL