128 DRAW N PAINT
FILE INFORMATION
FILENAME(S): 128 DRAW N PAINT
FILE TYPE(S): PRG
FILE SIZE: 13.6K
FIRST SEEN: 2025-10-20 14:32:05
APPEARS ON: 1 disk(s)
FILE HASH
e68eace3c6ba90fd149c1f73f13c493728610c2194f9ee6adb464fe9cb84f9e1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| WOLF S SOFT C019 | 128 DRAW N PAINT | PRG | Treasure Chest - Klaus Der Suhler | 3 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 40 1B 40 0A 00 D7 34 38 36 30 3A 49 58 B2 31 |.@.@...4860:IX.1|
00000010: 3A 49 59 B2 31 3A 89 31 35 34 30 00 56 40 14 00 |:IY.1:.1540.V@..|
00000020: E0 31 2C 30 2C 32 34 2C 22 20 20 20 20 20 20 20 |.1,0,24," |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 20 22 2C 30 3A 8E 00 68 40 1E 00 FE 06 38 2C AA | ",0:..h@....8,.|
00000060: 30 30 2C AB 49 59 3A 8E 00 7A 40 28 00 FE 06 38 |00,.IY:..z@(...8|
00000070: 2C AA 49 58 2C AB 49 59 3A 8E 00 8C 40 32 00 FE |,.IX,.IY:...@2..|
00000080: 06 38 2C AA 49 58 2C AA 30 30 3A 8E 00 9E 40 3C |.8,.IX,.00:...@<|
00000090: 00 FE 06 38 2C AA 49 58 2C AA 49 59 3A 8E 00 B0 |...8,.IX,.IY:...|
000000A0: 40 46 00 FE 06 38 2C AA 30 30 2C AA 49 59 3A 8E |@F...8,.00,.IY:.|
000000B0: 00 C2 40 50 00 FE 06 38 2C AB 49 58 2C AA 49 59 |..@P...8,.IX,.IY|
000000C0: 3A 8E 00 D4 40 5A 00 FE 06 38 2C AB 49 58 2C AA |:...@Z...8,.IX,.|
000000D0: 30 30 3A 8E 00 E6 40 64 00 FE 06 38 2C AB 49 58 |00:...@d...8,.IX|
000000E0: 2C AB 49 59 3A 8E 00 01 41 6E 00 4A 42 B2 30 3A |,.IY:...An.JB.0:|
000000F0: 81 54 B2 31 A4 32 30 3A 4A 32 B2 CF 28 32 29 3A |.T.1.20:J2..(2):|
00000100: 82 00 28 41 78 00 A1 41 24 3A 4A 32 B2 CF 28 32 |..(Ax..A$:J2..(2|
00000110: 29 3A 8B 41 24 B3 B1 22 22 A7 8D 32 31 30 3A 8B |):.A$..""..210:.|
00000120: 4A 32 B2 30 A7 31 32 30 00 49 41 82 00 91 4A 32 |J2.0.120.IA...J2|
00000130: 8D 33 30 2C 34 30 2C 35 30 2C 36 30 2C 37 30 2C |.30,40,50,60,70,|
00000140: 38 30 2C 39 30 2C 31 30 30 00 5E 41 8C 00 8B 28 |80,90,100.^A...(|
00000150: 4A 32 AF 31 32 38 29 A7 4A 42 B2 31 3A 8E 00 67 |J2.128).JB.1:..g|
00000160: 41 96 00 89 31 32 30 00 82 41 A0 00 4A 42 B2 30 |A...120..A..JB.0|
00000170: 3A 81 54 B2 31 A4 33 30 3A 4A 32 B2 CF 28 32 29 |:.T.1.30:J2..(2)|
00000180: 3A 82 00 A2 41 AA 00 A1 41 24 3A 4A 32 B2 CF 28 |:...A...A$:J2..(|
00000190: 32 29 3A 8B 4A 32 B2 30 AF 41 24 B2 22 22 A7 31 |2):.J2.0.A$."".1|
000001A0: 37 30 00 B7 41 B4 00 8B 28 4A 32 AF 31 32 38 29 |70..A...(J2.128)|
000001B0: A7 4A 42 B2 31 3A 8E 00 CA 41 BE 00 8B 41 24 B2 |.JB.1:...A...A$.|
000001C0: 22 88 22 A7 4A 42 B2 31 3A 8E 00 D0 41 C8 00 8E |".".JB.1:...A...|
000001D0: 00 E7 41 D2 00 46 42 B2 30 3A 8B 41 24 B2 22 11 |..A..FB.0:.A$.".|
000001E0: 22 A7 8D 37 30 3A 8E 00 F9 41 DC 00 8B 41 24 B2 |"..70:...A...A$.|
000001F0: 22 91 22 A7 8D 33 30 3A 8E 00 0B 42 E6 00 8B 41 |"."..30:...B...A|
00000200: 24 B2 22 1D 22 A7 8D 35 30 3A 8E 00 1D 42 F0 00 |$."."..50:...B..|
00000210: 8B 41 24 B2 22 9D 22 A7 8D 39 30 3A 8E 00 32 42 |.A$."."..90:..2B|
00000220: FA 00 8B 41 24 B2 22 88 22 A7 4A 32 B2 31 32 38 |...A$.".".J2.128|
00000230: 3A 8E 00 38 42 04 01 8E 00 60 42 0E 01 58 B2 CE |:..8B....`B..X..|
00000240: 05 28 38 2C 30 29 3A 59 B2 CE 05 28 38 2C 31 29 |.(8,0):Y...(8,1)|
00000250: 3A 58 B2 58 AB 31 33 3A 59 B2 59 AB 34 30 3A 8E |:X.X.13:Y.Y.40:.|
00000260: 00 75 42 18 01 DE 31 2C 31 3A 58 B2 BB 28 30 29 |.uB...1,1:X..(0)|
00000270: 3A 44 43 B2 31 00 A3 42 22 01 81 49 B2 31 A4 38 |:DC.1..B"..I.1.8|
00000280: 3A 87 58 3A F9 49 2C C7 28 58 29 3A 82 3A 81 49 |:.X:.I,.(X):.:.I|
00000290: B2 31 A4 32 3A 87 50 58 28 49 29 2C 50 59 28 49 |.1.2:.PX(I),PY(I|
000002A0: 29 3A 82 00 DA 42 2C 01 83 31 33 33 2C 31 33 37 |):...B,..133,137|
000002B0: 2C 31 33 34 2C 31 33 38 2C 31 33 35 2C 31 33 39 |,134,138,135,139|
000002C0: 2C 31 33 36 2C 31 34 30 2C 2E 37 39 2C 31 2E 32 |,136,140,.79,1.2|
000002D0: 38 2C 31 2E 36 2C 2E 36 32 35 00 F1 42 36 01 83 |8,1.6,.625..B6..|
000002E0: 31 36 2C 33 2C 36 2C 37 2C 38 2C 39 2C 31 33 2C |16,3,6,7,8,9,13,|
000002F0: 34 00 22 43 40 01 83 20 43 49 52 43 4C 45 2C 43 |4."C@.. CIRCLE,C|
00000300: 4F 4C 4F 52 2C 4C 49 4E 45 2C 41 4C 54 45 52 4E |OLOR,LINE,ALTERN|
00000310: 41 54 45 2C 42 4F 58 2C 50 41 49 4E 54 2C 44 52 |ATE,BOX,PAINT,DR|
00000320: 41 57 00 51 43 4A 01 83 41 4E 47 4C 45 2C 50 4F |AW.QCJ..ANGLE,PO|
00000330: 4C 59 47 4F 4E 2C 4F 56 41 4C 2C 41 4C 54 45 52 |LYGON,OVAL,ALTER|
00000340: 4E 41 54 45 2C 41 52 43 2C 43 4C 52 2C 51 55 49 |NATE,ARC,CLR,QUI|
00000350: 54 00 88 43 54 01 83 20 53 41 56 45 2C 4C 4F 41 |T..CT.. SAVE,LOA|
00000360: 44 2C 4F 46 46 2C 41 4C 54 45 52 4E 41 54 45 2C |D,OFF,ALTERNATE,|
00000370: 43 4F 50 59 2C 50 52 49 4E 54 2D 4F 55 54 2C 45 |COPY,PRINT-OUT,E|
00000380: 58 50 41 4E 53 49 4F 4E 00 95 43 5E 01 51 B2 32 |XPANSION..C^.Q.2|
00000390: 34 3A 4A B2 30 00 E3 43 68 01 86 53 4E 24 28 32 |4:J.0..Ch..SN$(2|
000003A0: 32 29 2C 53 24 28 32 32 29 2C 44 55 28 33 32 30 |2),S$(22),DU(320|
000003B0: 29 3A 8F 20 53 4E 24 20 49 53 20 54 48 45 20 46 |):. SN$ IS THE F|
000003C0: 55 4E 43 54 49 4F 4E 20 4E 41 4D 45 2C 20 53 24 |UNCTION NAME, S$|
000003D0: 20 49 53 20 54 48 45 20 53 50 52 49 54 45 20 53 | IS THE SPRITE S|
000003E0: 54 52 24 00 15 44 72 01 81 49 B2 30 A4 37 3A 87 |TR$..Dr..I.0.7:.|
000003F0: 43 28 49 29 3A 82 3A 8F 20 43 28 29 20 41 52 45 |C(I):.:. C() ARE|
00000400: 20 54 48 45 20 53 50 52 49 54 45 20 43 4F 4C 4F | THE SPRITE COLO|
00000410: 52 53 2E 2E 2E 00 2E 44 7C 01 81 49 B2 31 A4 37 |RS.....D|..I.1.7|
00000420: 3A 87 53 4E 24 28 49 AA 4A AC 37 29 3A 82 00 37 |:.SN$(I.J.7):..7|
00000430: 44 86 01 89 34 33 30 00 56 44 90 01 E8 3A 81 5A |D...430.VD...:.Z|
00000440: B2 31 A4 38 3A 41 B2 31 30 AC 28 B5 28 BB 28 30 |.1.8:A.10.(.(.(0|
00000450: 29 AC 33 36 29 29 00 6F 44 9A 01 FE 07 5A 2C 2C |).36)).oD....Z,,|
00000460: 2C 5A AF 31 3A FE 06 5A 2C 41 23 34 3A 82 5A 00 |,Z.1:..Z,A#4:.Z.|
00000470: 96 44 A4 01 81 49 B2 31 A4 37 3A 81 54 B2 30 A4 |.D...I.1.7:.T.0.|
00000480: 32 30 3A FE 16 53 24 28 30 29 2C 49 3A 82 3A 82 |20:..S$(0),I:.:.|
00000490: 3A 89 31 34 33 30 00 CF 44 AE 01 43 43 B2 CD 28 |:.1430..D..CC..(|
000004A0: 31 29 3A E7 31 2C 28 CD 28 30 29 29 3A 81 49 B2 |1):.1,(.(0)):.I.|
000004B0: 31 A4 37 3A 58 B2 30 3A 59 B2 32 3A E0 31 2C 30 |1.7:X.0:Y.2:.1,0|
000004C0: 2C 31 2C 53 4E 24 28 49 AA 4A AC 37 29 2C 31 00 |,1,SN$(I.J.7),1.|
000004D0: E5 44 B8 01 E0 31 2C 30 2C 30 2C 22 B9 B9 B9 B9 |.D...1,0,0,"....|
000004E0: B9 B9 22 2C 30 00 FB 44 C2 01 E0 31 2C 30 2C 32 |..",0..D...1,0,2|
000004F0: 2C 22 B8 B8 B8 B8 B8 B8 22 2C 30 00 0D 45 CC 01 |,"......",0..E..|
00000500: FE 07 49 2C 30 3A FE 06 49 2C 30 23 30 00 31 45 |..I,0:..I,0#0.1E|
00000510: D6 01 E4 41 24 28 49 29 2C 58 2C 59 2C 58 AA 32 |...A$(I),X,Y,X.2|
00000520: 33 2C 59 AA 32 30 3A E3 41 24 2C 35 30 2C 31 30 |3,Y.20:.A$,50,10|
00000530: 30 00 4C 45 E0 01 FE 16 41 24 28 49 29 2C 49 3A |0.LE....A$(I),I:|
00000540: FE 06 49 2C 58 AA 51 2C 59 AA 35 30 00 69 45 EA |..I,X.Q,Y.50.iE.|
00000550: 01 FE 07 49 2C 31 2C 43 28 49 29 2C 30 2C 30 2C |...I,1,C(I),0,0,|
00000560: 30 2C 30 3A 58 B2 58 AA 51 00 9C 45 F4 01 89 35 |0,0:X.X.Q..E...5|
00000570: 33 30 3A 8F 20 32 35 30 20 54 4F 20 32 37 30 20 |30:. 250 TO 270 |
00000580: 4D 4F 56 45 53 20 27 45 4D 20 53 4C 4F 57 4C 59 |MOVES 'EM SLOWLY|
00000590: 20 49 4E 53 54 45 41 44 2E 2E 2E 2E 00 AA 45 FE | INSTEAD......E.|
000005A0: 01 81 5A B2 31 A4 49 AC 32 35 00 C3 45 08 02 FE |..Z.1.I.25..E...|
000005B0: 06 49 2C 31 3B 31 35 30 3A 82 5A 3A 82 49 3A 89 |.I,1;150:.Z:.I:.|
000005C0: 35 34 30 00 D9 45 12 02 FE 06 49 2C 49 AC 35 30 |540..E....I,I.50|
000005D0: AB 31 34 3B 31 32 32 3A 82 00 FB 45 1C 02 81 49 |.14;122:...E...I|
000005E0: B2 31 A4 37 3A FE 16 28 49 29 2C 53 24 28 49 AA |.1.7:..(I),S$(I.|
000005F0: 4A AC 37 29 3A 82 3A E7 31 2C 31 00 14 46 26 02 |J.7):.:.1,1..F&.|
00000600: 8F 20 20 46 4F 52 54 3D 31 54 4F 32 35 30 30 3A |. FORT=1TO2500:|
00000610: 4E 45 58 54 00 33 46 30 02 8F 20 20 50 52 49 4E |NEXT.3F0.. PRIN|
00000620: 54 22 11 11 11 50 52 45 53 53 20 41 4E 59 20 4B |T"...PRESS ANY K|
00000630: 45 59 22 00 3D 46 3A 02 E7 31 2C 43 43 00 5A 46 |EY".=F:..1,CC.ZF|
00000640: 44 02 E0 20 30 2C 30 2C 30 2C 22 20 20 20 20 20 |D.. 0,0,0," |
00000650: 20 20 20 20 20 20 20 22 2C 30 00 77 46 4E 02 E0 | ",0.wFN..|
00000660: 20 30 2C 30 2C 31 2C 22 20 20 20 20 20 20 20 20 | 0,0,1," |
00000670: 20 20 20 20 22 2C 30 00 9E 46 58 02 E0 20 30 2C | ",0..FX.. 0,|
00000680: 30 2C 32 2C 22 20 20 20 20 20 20 20 20 20 20 20 |0,2," |
00000690: 20 22 2C 30 3A 8B 4A B2 31 A7 89 36 39 30 00 BA | ",0:.J.1..690..|
000006A0: 46 62 02 8F 20 20 47 45 54 41 24 3A 49 46 41 24 |Fb.. GETA$:IFA$|
000006B0: 3D 22 22 54 48 45 4E 33 30 30 00 E0 46 6C 02 8F |=""THEN300..Fl..|
000006C0: 20 20 50 52 49 4E 54 22 93 11 11 11 11 11 11 11 | PRINT"........|
000006D0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."|
000006E0: 00 F6 46 76 02 E2 20 31 2C 31 31 2C 31 30 2C 31 |..Fv.. 1,11,10,1|
000006F0: 31 2C 31 30 2C 30 00 10 47 80 02 E5 A4 31 31 2C |1,10,0..G....11,|
00000700: 30 38 3A E5 2C 31 31 2C 31 32 A4 31 31 2C 32 30 |08:.,11,12.11,20|
00000710: 00 30 47 8A 02 E5 2C 20 31 2C 31 30 A4 30 38 2C |.0G..., 1,10.08,|
00000720: 31 30 3A E5 2C 31 34 2C 31 30 A4 32 30 2C 31 30 |10:.,14,10.20,10|
00000730: 00 50 47 94 02 FE 07 38 2C 30 20 3A E4 41 24 28 |.PG....8,0 :.A$(|
00000740: 30 29 2C 30 2C 30 2C 30 AA 32 33 2C 30 AA 32 30 |0),0,0,0.23,0.20|
00000750: 00 7B 47 9E 02 FE 16 41 24 28 30 29 2C 38 3A FE |.{G....A$(0),8:.|
00000760: 06 38 2C 32 34 2C 35 30 3A FE 07 38 2C 31 2C 43 |.8,24,50:..8,1,C|
00000770: 28 30 29 2C 30 2C 30 2C 30 2C 30 00 81 47 A8 02 |(0),0,0,0,0..G..|
00000780: E8 00 AD 47 B2 02 E0 31 2C 32 36 2C 30 2C 22 46 |...G...1,26,0,"F|
00000790: 31 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 2C 31 |1 TO CONTINUE",1|
000007A0: 3A 8B 4A B2 31 B0 4A B2 32 A7 37 33 30 00 CB 47 |:.J.1.J.2.730..G|
000007B0: BC 02 E0 31 2C 30 2C 32 30 2C 22 55 53 45 20 4A |...1,0,20,"USE J|
000007C0: 4F 59 53 54 49 43 4B 20 23 32 22 00 F1 47 C6 02 |OYSTICK #2"..G..|
000007D0: E0 31 2C 30 2C 32 31 2C 22 54 4F 20 53 45 4C 45 |.1,0,21,"TO SELE|
000007E0: 43 54 20 4F 50 54 49 4F 4E 2E 20 20 50 52 45 53 |CT OPTION. PRES|
000007F0: 53 00 32 48 D0 02 E0 31 2C 30 2C 32 32 2C 22 46 |S.2H...1,0,22,"F|
00000800: 49 52 45 42 55 54 54 4F 4E 20 54 4F 20 4C 45 41 |IREBUTTON TO LEA|
00000810: 52 4E 20 41 42 4F 55 54 20 20 20 20 20 20 20 20 |RN ABOUT |
00000820: 20 20 20 20 20 20 20 54 48 45 20 4F 50 54 49 4F | THE OPTIO|
00000830: 4E 22 00 4C 48 DA 02 A1 41 24 3A 8D 32 31 30 3A |N".LH...A$:.210:|
00000840: 8B 41 24 B2 22 85 22 A7 31 34 34 30 00 62 48 E4 |.A$.".".1440.bH.|
00000850: 02 4A 32 B2 CF 28 32 29 3A 8B 4A 32 B2 30 A7 37 |.J2..(2):.J2.0.7|
00000860: 33 30 00 81 48 EE 02 99 22 93 11 11 11 11 11 11 |30..H...".......|
00000870: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000880: 22 00 96 48 F8 02 A1 41 24 3A 8B 41 24 B2 22 85 |"..H...A$:.A$.".|
00000890: 22 A7 31 34 34 30 00 B6 48 02 03 49 58 B2 33 3A |".1440..H..IX.3:|
000008A0: 49 59 B2 33 3A 4A 32 B2 CF 28 32 29 3A 8B 4A 32 |IY.3:J2..(2):.J2|
000008B0: B2 30 A7 37 36 30 00 EB 48 0C 03 8B 28 4A 32 AF |.0.760..H...(J2.|
000008C0: 31 32 38 29 A7 E8 3A E0 31 2C 32 36 2C 30 2C 22 |128)..:.1,26,0,"|
000008D0: 46 31 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 2C |F1 TO CONTINUE",|
000008E0: 31 3A 8D 38 32 30 3A 8D 38 38 30 00 0C 49 16 03 |1:.820:.880..I..|
000008F0: 91 4A 32 8D 33 30 2C 34 30 2C 35 30 2C 36 30 2C |.J2.30,40,50,60,|
00000900: 37 30 2C 38 30 2C 39 30 2C 31 30 30 00 46 49 20 |70,80,90,100.FI |
00000910: 03 8F 3A 20 20 49 46 53 4E 3D 37 41 4E 44 4A 3D |..: IFSN=7ANDJ=|
00000920: 30 54 48 45 4E 46 4F 52 54 3D 31 54 4F 35 30 30 |0THENFORT=1TO500|
00000930: 3A 4E 45 58 54 3A 50 52 49 4E 54 22 93 22 3A 47 |:NEXT:PRINT".":G|
00000940: 4F 54 4F 31 35 30 00 4F 49 2A 03 89 37 36 30 00 |OTO150.OI*..760.|
00000950: 5C 49 34 03 99 3A 99 22 3D 3E 22 3B 00 7B 49 3E |\I4..:."=>";.{I>|
00000960: 03 43 4C B2 CE 03 28 31 29 3A 8B 43 4C B2 30 A7 |.CL...(1):.CL.0.|
00000970: 4A 32 B2 4A 32 AB 31 32 38 3A 8E 00 9B 49 48 03 |J2.J2.128:...IH.|
00000980: 81 49 B2 31 A4 34 3A 43 4C B2 CE 03 28 31 29 3A |.I.1.4:CL...(1):|
00000990: 81 54 B2 31 A4 31 30 3A 82 3A 82 00 A9 49 52 03 |.T.1.10:.:...IR.|
000009A0: 43 4C B2 43 4C AB 31 32 38 00 C3 49 5C 03 81 49 |CL.CL.128..I\..I|
000009B0: B2 30 A4 37 3A 8B 43 4C B2 32 AE 49 A7 53 4E B2 |.0.7:.CL.2.I.SN.|
000009C0: 49 AA 31 00 CB 49 66 03 82 3A 8E 00 1D 4A 70 03 |I.1..If..:...Jp.|
000009D0: E0 31 2C 30 2C 32 30 2C 22 3D 3E 22 3A E0 31 2C |.1,0,20,"=>":.1,|
000009E0: 34 2C 32 30 2C 53 4E 24 28 53 4E AA 4A AC 37 29 |4,20,SN$(SN.J.7)|
000009F0: 2C 30 3A 8B 4A B2 30 A7 91 53 4E 8D 39 36 30 2C |,0:.J.0..SN.960,|
00000A00: 31 31 33 30 2C 31 30 30 30 2C 31 30 38 30 2C 31 |1130,1000,1080,1|
00000A10: 30 34 30 2C 31 30 36 30 2C 31 30 32 30 00 4C 4A |040,1060,1020.LJ|
00000A20: 7A 03 8B 4A B2 31 A7 91 53 4E 8D 31 31 30 30 2C |z..J.1..SN.1100,|
00000A30: 39 38 30 2C 31 31 36 30 2C 31 30 38 30 2C 31 31 |980,1160,1080,11|
00000A40: 38 30 2C 31 32 36 30 2C 31 32 38 30 00 7C 4A 84 |80,1260,1280.|J.|
00000A50: 03 8B 4A B2 32 A7 91 53 4E 8D 31 32 32 30 2C 31 |..J.2..SN.1220,1|
00000A60: 32 34 30 2C 31 33 30 30 2C 31 30 38 30 2C 31 33 |240,1300,1080,13|
00000A70: 33 30 2C 31 33 39 30 2C 31 33 36 30 00 A3 4A 8E |30,1390,1360..J.|
00000A80: 03 E0 31 2C 30 2C 32 31 2C 41 24 2C 30 3A E0 31 |..1,0,21,A$,0:.1|
00000A90: 2C 30 2C 32 32 2C 42 24 3A E0 31 2C 30 2C 32 33 |,0,22,B$:.1,0,23|
00000AA0: 2C 43 24 00 A9 4A 98 03 8E 00 B2 4A A2 03 4B B2 |,C$..J.....J..K.|
00000AB0: 30 3A 00 C5 4A AC 03 4B B2 4B AA 31 3A 8B 4B B2 |0:..J..K.K.1:.K.|
00000AC0: 33 A7 4B B2 30 00 D1 4A B6 03 99 4B 3A 89 39 34 |3.K.0..J...K:.94|
00000AD0: 30 00 FA 4A C0 03 41 24 B2 22 20 20 43 52 45 41 |0..J..A$." CREA|
00000AE0: 54 45 53 20 52 45 47 55 4C 41 52 20 43 49 52 43 |TES REGULAR CIRC|
00000AF0: 4C 45 53 22 3A 8D 31 34 32 30 00 00 4B CA 03 8E |LES":.1420..K...|
00000B00: 00 2A 4B D4 03 41 24 B2 22 20 20 43 52 45 41 54 |.*K..A$." CREAT|
00000B10: 45 53 20 52 45 47 55 4C 41 52 20 50 4F 4C 59 47 |ES REGULAR POLYG|
00000B20: 4F 4E 53 22 3A 8D 31 34 32 30 00 30 4B DE 03 8E |ONS":.1420.0K...|
00000B30: 00 71 4B E8 03 41 24 B2 22 20 20 43 4F 4E 4E 45 |.qK..A$." CONNE|
00000B40: 43 54 20 50 4F 49 4E 54 53 20 57 49 54 48 22 3A |CT POINTS WITH":|
00000B50: 42 24 B2 22 20 20 53 54 52 41 49 47 48 54 20 4C |B$." STRAIGHT L|
00000B60: 49 4E 45 53 22 3A 43 24 B2 22 22 3A 44 24 B2 22 |INES":C$."":D$."|
00000B70: 22 00 77 4B F2 03 8E 00 A0 4B FC 03 41 24 B2 22 |".wK.....K..A$."|
00000B80: 20 20 41 4C 4C 4F 57 53 20 46 52 45 45 48 41 4E | ALLOWS FREEHAN|
00000B90: 44 20 44 52 41 57 49 4E 47 22 3A 8D 31 34 32 30 |D DRAWING":.1420|
00000BA0: 00 A6 4B 06 04 8E 00 01 4C 10 04 41 24 B2 22 20 |..K.....L..A$." |
00000BB0: 20 44 52 41 57 53 20 53 51 55 41 52 45 53 20 41 | DRAWS SQUARES A|
00000BC0: 4E 44 22 3A 42 24 B2 22 20 20 52 45 43 54 41 4E |ND":B$." RECTAN|
00000BD0: 47 4C 45 53 20 57 48 49 43 48 22 3A 43 24 B2 22 |GLES WHICH":C$."|
00000BE0: 20 20 4D 41 59 20 42 45 A0 46 49 4C 4C 45 44 20 | MAY BE.FILLED |
00000BF0: 57 49 54 48 20 43 4F 4C 4F 52 22 3A 44 24 B2 22 |WITH COLOR":D$."|
00000C00: 22 00 07 4C 1A 04 8E 00 30 4C 24 04 41 24 B2 22 |"..L....0L$.A$."|
00000C10: 20 20 46 49 4C 4C 53 20 53 48 41 50 45 53 20 57 | FILLS SHAPES W|
00000C20: 49 54 48 20 43 4F 4C 4F 52 22 3A 8D 31 34 32 30 |ITH COLOR":.1420|
00000C30: 00 36 4C 2E 04 8E 00 61 4C 38 04 41 24 B2 22 20 |.6L....aL8.A$." |
00000C40: 20 53 45 4C 45 43 54 53 20 41 4C 54 45 52 4E 41 | SELECTS ALTERNA|
00000C50: 54 45 20 4F 50 54 49 4F 4E 53 22 3A 8D 31 34 32 |TE OPTIONS":.142|
00000C60: 30 00 67 4C 42 04 8E 00 AA 4C 4C 04 41 24 B2 22 |0.gLB....LL.A$."|
00000C70: 20 20 41 4C 4C 4F 57 53 20 59 4F 55 20 54 4F 20 | ALLOWS YOU TO |
00000C80: 44 52 41 57 20 42 4F 58 45 53 2C 22 3A 42 24 B2 |DRAW BOXES,":B$.|
00000C90: 22 20 20 4F 56 41 4C 53 2C 20 41 4E 44 20 50 4F |" OVALS, AND PO|
00000CA0: 4C 59 47 4F 4E 53 20 41 54 22 00 D0 4C 56 04 43 |LYGONS AT"..LV.C|
00000CB0: 24 B2 22 20 20 41 4E 20 41 4E 47 4C 45 20 59 4F |$." AN ANGLE YO|
00000CC0: 55 20 53 50 45 43 49 46 59 22 3A 44 24 B2 22 22 |U SPECIFY":D$.""|
00000CD0: 00 D6 4C 60 04 8E 00 F6 4C 6A 04 41 24 B2 22 20 |..L`....Lj.A$." |
00000CE0: 20 43 48 41 4E 47 45 20 44 52 41 57 49 4E 47 20 | CHANGE DRAWING |
00000CF0: 43 4F 4C 4F 52 22 00 2E 4D 74 04 42 24 B2 22 20 |COLOR"..Mt.B$." |
00000D00: 20 4F 52 20 54 48 45 20 50 52 45 53 45 4C 45 43 | OR THE PRESELEC|
00000D10: 54 45 44 20 43 4F 4C 4F 52 20 43 48 4F 49 43 45 |TED COLOR CHOICE|
00000D20: 53 22 3A 43 24 B2 22 22 3A 44 24 B2 22 22 00 34 |S":C$."":D$."".4|
00000D30: 4D 7E 04 8E 00 63 4D 88 04 41 24 B2 22 20 20 46 |M~...cM..A$." F|
00000D40: 4F 52 20 44 52 41 57 49 4E 47 20 4F 56 41 4C 53 |OR DRAWING OVALS|
00000D50: 20 4F 52 20 45 4C 4C 49 50 53 45 53 22 3A 8D 31 | OR ELLIPSES":.1|
00000D60: 34 32 30 00 69 4D 92 04 8E 00 AC 4D 9C 04 41 24 |420.iM.....M..A$|
00000D70: B2 22 20 20 43 52 45 41 54 45 53 20 53 45 43 54 |." CREATES SECT|
00000D80: 49 4F 4E 53 20 4F 46 22 3A 42 24 B2 22 20 20 43 |IONS OF":B$." C|
00000D90: 49 52 43 4C 45 53 20 41 4E 44 20 41 52 43 53 22 |IRCLES AND ARCS"|
00000DA0: 3A 43 24 B2 22 22 3A 44 24 B2 22 22 00 B2 4D A6 |:C$."":D$.""..M.|
00000DB0: 04 8E 00 D5 4D B0 04 41 24 B2 22 20 20 4C 45 41 |....M..A$." LEA|
00000DC0: 56 45 20 54 48 45 20 50 52 4F 47 52 41 4D 22 3A |VE THE PROGRAM":|
00000DD0: 8D 31 34 32 30 00 DB 4D BA 04 8E 00 03 4E C4 04 |.1420..M.....N..|
00000DE0: 41 24 B2 22 20 20 53 41 56 45 53 20 41 20 53 43 |A$." SAVES A SC|
00000DF0: 52 45 45 4E 20 54 4F 20 44 49 53 4B 22 3A 8D 31 |REEN TO DISK":.1|
00000E00: 34 32 30 00 09 4E CE 04 8E 00 33 4E D8 04 41 24 |420..N....3N..A$|
00000E10: B2 22 20 20 4C 4F 41 44 53 20 41 20 53 43 52 45 |." LOADS A SCRE|
00000E20: 45 4E 20 46 52 4F 4D 20 44 49 53 4B 22 3A 8D 31 |EN FROM DISK":.1|
00000E30: 34 32 30 00 39 4E E2 04 8E 00 5C 4E EC 04 41 24 |420.9N....\N..A$|
00000E40: B2 22 20 20 43 4C 45 41 52 53 20 54 48 45 20 53 |." CLEARS THE S|
00000E50: 43 52 45 45 4E 22 3A 8D 31 34 32 30 00 62 4E F6 |CREEN":.1420.bN.|
00000E60: 04 8E 00 85 4E 00 05 41 24 B2 22 20 20 4C 45 41 |....N..A$." LEA|
00000E70: 56 45 20 54 48 45 20 50 52 4F 47 52 41 4D 22 3A |VE THE PROGRAM":|
00000E80: 8D 31 34 32 30 00 8B 4E 0A 05 8E 00 AF 4E 14 05 |.1420..N.....N..|
00000E90: 41 24 B2 22 20 20 54 55 52 4E 53 20 4F 46 46 20 |A$." TURNS OFF |
00000EA0: 54 48 45 20 4F 50 54 49 4F 4E 53 20 46 4F 52 00 |THE OPTIONS FOR.|
00000EB0: DE 4E 1E 05 42 24 B2 22 20 20 41 20 4E 45 41 54 |.N..B$." A NEAT|
00000EC0: 45 52 20 53 43 52 45 45 4E 20 44 49 53 50 4C 41 |ER SCREEN DISPLA|
00000ED0: 59 22 3A 43 24 B2 22 22 3A 44 24 B2 22 22 00 E4 |Y":C$."":D$.""..|
00000EE0: 4E 28 05 8E 00 09 4F 32 05 41 24 B2 22 20 20 43 |N(....O2.A$." C|
00000EF0: 4F 50 49 45 53 20 41 20 53 4D 41 4C 4C 20 50 4F |OPIES A SMALL PO|
00000F00: 52 54 49 4F 4E 20 4F 46 22 00 3F 4F 3C 05 42 24 |RTION OF".?O<.B$|
00000F10: B2 22 20 20 54 48 45 20 53 43 52 45 45 4E 20 54 |." THE SCREEN T|
00000F20: 4F 20 41 4E 4F 54 48 45 52 20 4C 4F 43 41 54 49 |O ANOTHER LOCATI|
00000F30: 4F 4E 22 3A 43 24 B2 22 22 3A 44 24 B2 22 22 00 |ON":C$."":D$."".|
00000F40: 45 4F 46 05 8E 00 6B 4F 50 05 41 24 B2 22 20 20 |EOF...kOP.A$." |
00000F50: 52 45 53 45 52 56 45 44 20 46 4F 52 20 46 55 54 |RESERVED FOR FUT|
00000F60: 55 52 45 20 53 59 53 54 45 4D 22 00 8C 4F 5A 05 |URE SYSTEM"..OZ.|
00000F70: 42 24 B2 22 20 20 45 58 50 41 4E 53 49 4F 4E 22 |B$." EXPANSION"|
00000F80: 3A 43 24 B2 22 22 3A 44 24 B2 22 22 00 92 4F 64 |:C$."":D$.""..Od|
00000F90: 05 8E 00 B5 4F 6E 05 41 24 B2 22 20 20 54 52 41 |....On.A$." TRA|
00000FA0: 4E 53 46 45 52 53 20 54 48 45 20 53 43 52 45 45 |NSFERS THE SCREE|
00000FB0: 4E 20 54 4F 22 00 D9 4F 78 05 42 24 B2 22 20 20 |N TO"..Ox.B$." |
00000FC0: 59 4F 55 52 20 50 52 49 4E 54 45 52 22 3A 43 24 |YOUR PRINTER":C$|
00000FD0: B2 22 22 3A 44 24 B2 22 22 00 DF 4F 82 05 8E 00 |."":D$.""..O....|
00000FE0: F7 4F 8C 05 42 24 B2 22 22 3A 43 24 B2 22 22 3A |.O..B$."":C$."":|
00000FF0: 44 24 B2 22 22 3A 8E 00 1C 50 96 05 FE 0B 31 3A |D$."":...P....1:|
00001000: 4A B2 4A AA 31 3A FE 06 38 2C 30 23 30 3A FE 06 |J.J.1:..8,0#0:..|
00001010: 38 2C 32 34 2C 35 30 3A 89 33 38 30 00 2D 50 A0 |8,24,50:.380.-P.|
00001020: 05 8B 4A B2 30 B0 4A B2 31 A7 34 30 30 00 57 50 |..J.0.J.1.400.WP|
00001030: AA 05 8B 4D 4F B2 32 A7 99 22 93 22 3A DE 33 2C |...MO.2..".":.3,|
00001040: 31 3A 81 49 B2 31 A4 37 3A FE 07 49 2C 30 3A 82 |1:.I.1.7:..I,0:.|
00001050: 3A E9 30 3A 4A B2 30 00 81 50 B4 05 8B 4D 4F B2 |:.0:J.0..P...MO.|
00001060: 31 A7 99 22 93 22 3A DE 31 2C 31 3A 81 49 B2 31 |1..".":.1,1:.I.1|
00001070: A4 37 3A FE 07 49 2C 30 3A 82 3A E9 30 3A 4A B2 |.7:..I,0:.:.0:J.|
00001080: 30 00 AC 50 BE 05 81 49 B2 31 A4 37 3A FE 16 53 |0..P...I.1.7:..S|
00001090: 24 28 49 29 2C 49 3A 82 3A 8D 31 35 32 30 3A 46 |$(I),I:.:.1520:F|
000010A0: 58 B2 31 37 33 3A 46 59 B2 31 34 30 00 B6 50 C8 |X.173:FY.140..P.|
000010B0: 05 FE 07 38 2C 31 00 C5 50 D2 05 8D 31 31 30 3A |...8,1..P...110:|
000010C0: 89 31 35 30 30 00 E0 50 DC 05 8B 4A 42 B2 31 A7 |.1500..P...JB.1.|
000010D0: 3A 8D 32 30 3A 8D 32 30 35 30 3A 8D 31 35 32 30 |:.20:.2050:.1520|
000010E0: 00 EA 50 E6 05 89 31 34 39 30 00 1F 51 F0 05 E0 |..P...1490..Q...|
000010F0: 31 2C 32 37 2C 32 34 2C 22 53 45 4C 45 43 54 20 |1,27,24,"SELECT |
00001100: 4F 50 54 49 4F 4E 22 2C 31 3A 49 58 B2 35 3A 49 |OPTION",1:IX.5:I|
00001110: 59 B2 30 3A FE 06 38 2C 31 37 36 2C 32 32 33 00 |Y.0:..8,176,223.|
00001120: 44 51 FA 05 81 49 B2 31 A4 37 3A FE 06 49 2C 49 |DQ...I.1.7:..I,I|
00001130: AC 34 34 2C 32 32 34 3A FE 07 49 2C 31 2C 2C 30 |.44,224:..I,1,,0|
00001140: 3A 82 3A 8E 00 6B 51 04 06 8F 20 53 45 54 20 4D |:.:..kQ... SET M|
00001150: 55 4C 54 49 20 4F 52 20 48 49 52 45 53 2C 20 49 |ULTI OR HIRES, I|
00001160: 4E 53 54 52 55 43 54 49 4F 4E 53 00 F2 51 0E 06 |NSTRUCTIONS..Q..|
00001170: 8F 4D 4F 3D 31 3A 43 4F 4C 4F 52 30 2C 32 3A 43 |.MO=1:COLOR0,2:C|
00001180: 4F 4C 4F 52 31 2C 31 3A 43 4F 4C 4F 52 32 2C 37 |OLOR1,1:COLOR2,7|
00001190: 3A 43 4F 4C 4F 52 33 2C 33 3A 43 4F 4C 4F 52 34 |:COLOR3,3:COLOR4|
000011A0: 2C 31 35 3A 43 4F 4C 4F 52 35 2C 32 3A 47 4F 54 |,15:COLOR5,2:GOT|
000011B0: 4F 32 37 3A 52 45 4D 2E 2E 2E 2E 54 48 49 53 20 |O27:REM....THIS |
000011C0: 49 53 20 46 4F 52 20 44 45 42 55 47 47 49 4E 47 |IS FOR DEBUGGING|
000011D0: 2C 20 41 44 44 20 41 20 52 45 4D 20 54 4F 20 54 |, ADD A REM TO T|
000011E0: 48 45 20 46 52 4F 4E 54 20 57 48 45 4E 20 44 4F |HE FRONT WHEN DO|
000011F0: 4E 45 00 0C 52 18 06 FE 08 32 2C 32 3A E7 30 2C |NE..R....2,2:.0,|
00001200: 32 3A E7 34 2C 37 3A 99 22 93 90 22 00 39 52 22 |2:.4,7:."..".9R"|
00001210: 06 99 22 11 1D 1D 1D 12 44 4F 4F 44 4C 45 20 50 |..".....DOODLE P|
00001220: 52 4F 47 52 41 4D 20 42 59 20 41 2E 20 53 43 4F |ROGRAM BY A. SCO|
00001230: 54 20 43 55 4C 4C 45 4E 22 00 68 52 2C 06 99 22 |T CULLEN".hR,.."|
00001240: 11 54 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 |.THIS PROGRAM WI|
00001250: 4C 4C 20 45 4E 41 42 4C 45 20 59 4F 55 20 54 4F |LL ENABLE YOU TO|
00001260: 20 43 52 45 41 54 45 22 00 90 52 36 06 99 22 44 | CREATE"..R6.."D|
00001270: 52 41 57 49 4E 47 53 20 41 4E 44 20 41 52 54 20 |RAWINGS AND ART |
00001280: 4F 4E 20 59 4F 55 52 20 53 43 52 45 45 4E 2E 22 |ON YOUR SCREEN."|
00001290: 00 EC 52 38 06 99 22 11 55 53 45 20 4A 4F 59 53 |..R8..".USE JOYS|
000012A0: 54 49 43 4B 20 50 4F 52 54 20 23 32 2E 20 20 46 |TICK PORT #2. F|
000012B0: 4F 52 20 4D 4F 53 54 20 4F 50 54 49 4F 4E 53 22 |OR MOST OPTIONS"|
000012C0: 3A 99 22 54 48 45 20 43 55 52 53 4F 52 20 4B 45 |:."THE CURSOR KE|
000012D0: 59 53 20 57 49 54 48 20 46 37 20 43 41 4E 20 41 |YS WITH F7 CAN A|
000012E0: 4C 53 4F 20 42 45 20 55 53 45 44 22 00 37 53 40 |LSO BE USED".7S@|
000012F0: 06 99 22 11 59 4F 55 20 57 49 4C 4C 20 48 41 56 |..".YOU WILL HAV|
00001300: 45 20 59 4F 55 52 20 43 48 4F 49 43 45 20 4F 46 |E YOUR CHOICE OF|
00001310: 20 54 57 4F 22 3A 99 22 4F 50 45 52 41 54 49 4E | TWO":."OPERATIN|
00001320: 47 20 4D 4F 44 45 53 2E 20 20 54 48 45 53 45 20 |G MODES. THESE |
00001330: 41 52 45 3A 11 11 22 00 78 53 4A 06 99 22 12 20 |ARE:..".xSJ..". |
00001340: 31 20 92 48 49 47 48 2D 52 45 53 4F 4C 55 54 49 |1 .HIGH-RESOLUTI|
00001350: 4F 4E 20 28 46 49 4E 45 52 20 4C 49 4E 45 53 20 |ON (FINER LINES |
00001360: 49 4E 20 4F 4E 45 22 A6 32 32 29 22 43 4F 4C 4F |IN ONE".22)"COLO|
00001370: 52 20 4F 4E 4C 59 29 22 00 C1 53 54 06 99 22 11 |R ONLY)"..ST..".|
00001380: 12 20 32 20 92 4D 55 4C 54 49 2D 43 4F 4C 4F 52 |. 2 .MULTI-COLOR|
00001390: 20 20 20 20 20 28 54 48 52 45 45 20 43 4F 4C 4F | (THREE COLO|
000013A0: 52 53 20 41 54 20 4F 4E 43 45 22 A6 32 31 29 22 |RS AT ONCE".21)"|
000013B0: 57 49 54 48 20 57 49 44 45 52 20 4C 49 4E 45 53 |WITH WIDER LINES|
000013C0: 29 00 F3 53 5E 06 99 22 11 11 50 4C 45 41 53 45 |)..S^.."..PLEASE|
000013D0: 20 45 4E 54 45 52 20 59 4F 55 52 20 43 48 4F 49 | ENTER YOUR CHOI|
000013E0: 43 45 28 12 20 31 20 92 20 4F 52 20 12 20 32 20 |CE(. 1 . OR . 2 |
000013F0: 92 29 22 00 11 54 68 06 A1 41 24 3A 8B 41 24 B3 |.)"..Th..A$:.A$.|
00001400: B1 22 31 22 AF 41 24 B3 B1 22 32 22 A7 31 36 34 |."1".A$.."2".164|
00001410: 30 00 22 54 72 06 4D 4F B2 C5 28 41 24 29 3A 99 |0."Tr.MO..(A$):.|
00001420: 4D 4F 00 38 54 7C 06 8B 4D 4F B3 B1 31 AF 4D 4F |MO.8T|..MO..1.MO|
00001430: B3 B1 32 A7 31 36 33 30 00 51 54 86 06 81 54 B2 |..2.1630.QT...T.|
00001440: 31 A4 35 30 30 3A 82 3A 99 22 93 11 11 11 11 11 |1.500:.:."......|
00001450: 22 00 78 54 90 06 99 22 90 31 2E 20 20 42 4C 41 |".xT...".1. BLA|
00001460: 43 4B 20 20 20 20 20 12 31 2E 20 20 42 4C 41 43 |CK .1. BLAC|
00001470: 4B 20 20 20 20 20 92 22 00 9F 54 9A 06 99 22 05 |K ."..T...".|
00001480: 32 2E 20 20 57 48 49 54 45 20 20 20 20 20 12 32 |2. WHITE .2|
00001490: 2E 20 20 57 48 49 54 45 20 20 20 20 20 92 22 00 |. WHITE .".|
000014A0: C6 54 A4 06 99 22 1C 33 2E 20 20 52 45 44 20 20 |.T...".3. RED |
000014B0: 20 20 20 20 20 12 33 2E 20 20 52 45 44 20 20 20 | .3. RED |
000014C0: 20 20 20 20 92 22 00 ED 54 AE 06 99 22 9F 34 2E | ."..T...".4.|
000014D0: 20 20 43 59 41 4E 20 20 20 20 20 20 12 34 2E 20 | CYAN .4. |
000014E0: 20 43 59 41 4E 20 20 20 20 20 20 92 22 00 14 55 | CYAN ."..U|
000014F0: B8 06 99 22 9C 35 2E 20 20 50 55 52 50 4C 45 20 |...".5. PURPLE |
00001500: 20 20 20 12 35 2E 20 20 50 55 52 50 4C 45 20 20 | .5. PURPLE |
00001510: 20 20 92 22 00 3B 55 C2 06 99 22 1E 36 2E 20 20 | .".;U...".6. |
00001520: 47 52 45 45 4E 20 20 20 20 20 12 36 2E 20 20 47 |GREEN .6. G|
00001530: 52 45 45 4E 20 20 20 20 20 92 22 00 62 55 CC 06 |REEN .".bU..|
00001540: 99 22 1F 37 2E 20 20 42 4C 55 45 20 20 20 20 20 |.".7. BLUE |
00001550: 20 12 37 2E 20 20 42 4C 55 45 20 20 20 20 20 20 | .7. BLUE |
00001560: 92 22 00 89 55 D6 06 99 22 9E 38 2E 20 20 59 45 |."..U...".8. YE|
00001570: 4C 4C 4F 57 20 20 20 20 12 38 2E 20 20 59 45 4C |LLOW .8. YEL|
00001580: 4C 4F 57 20 20 20 20 92 22 00 B0 55 E0 06 99 22 |LOW ."..U..."|
00001590: 81 39 2E 20 20 4F 52 41 4E 47 45 20 20 20 20 12 |.9. ORANGE .|
000015A0: 39 2E 20 20 4F 52 41 4E 47 45 20 20 20 20 92 22 |9. ORANGE ."|
000015B0: 00 D7 55 EA 06 99 22 95 31 30 2E 20 42 52 4F 57 |..U...".10. BROW|
000015C0: 4E 20 20 20 20 20 12 31 30 2E 20 42 52 4F 57 4E |N .10. BROWN|
000015D0: 20 20 20 20 20 92 22 00 FE 55 F4 06 99 22 96 31 | ."..U...".1|
000015E0: 31 2E 20 4C 54 2E 20 52 45 44 20 20 20 12 31 31 |1. LT. RED .11|
000015F0: 2E 20 4C 54 2E 20 52 45 44 20 20 20 92 22 00 25 |. LT. RED .".%|
00001600: 56 FE 06 99 22 97 31 32 2E 20 44 4B 2E 20 47 52 |V...".12. DK. GR|
00001610: 41 59 20 20 12 31 32 2E 20 44 4B 2E 20 47 52 41 |AY .12. DK. GRA|
00001620: 59 20 20 92 22 00 4C 56 08 07 99 22 98 31 33 2E |Y .".LV...".13.|
00001630: 20 4D 45 44 2E 20 47 52 41 59 20 12 31 33 2E 20 | MED. GRAY .13. |
00001640: 4D 45 44 2E 20 47 52 41 59 20 92 22 00 73 56 12 |MED. GRAY .".sV.|
00001650: 07 99 22 99 31 34 2E 20 4C 54 2E 20 47 52 45 45 |..".14. LT. GREE|
00001660: 4E 20 12 31 34 2E 20 4C 54 2E 20 47 52 45 45 4E |N .14. LT. GREEN|
00001670: 20 92 22 00 9A 56 1C 07 99 22 9A 31 35 2E 20 4C | ."..V...".15. L|
00001680: 54 2E 20 42 4C 55 45 20 20 12 31 35 2E 20 4C 54 |T. BLUE .15. LT|
00001690: 2E 20 42 4C 55 45 20 20 92 22 00 C2 56 26 07 99 |. BLUE ."..V&..|
000016A0: 22 9B 31 36 2E 20 4C 54 2E 20 47 52 41 59 20 20 |".16. LT. GRAY |
000016B0: 12 31 36 2E 20 4C 54 2E 20 47 52 41 59 20 20 92 |.16. LT. GRAY .|
000016C0: 90 22 00 EA 56 30 07 99 22 13 12 53 92 45 4C 45 |."..V0.."..S.ELE|
000016D0: 43 54 20 59 4F 55 52 20 4F 57 4E 20 43 4F 4C 4F |CT YOUR OWN COLO|
000016E0: 52 53 20 4F 52 20 55 53 45 22 00 11 57 3A 07 99 |RS OR USE"..W:..|
000016F0: 22 12 50 92 52 45 53 45 54 20 43 4F 4D 42 49 4E |".P.RESET COMBIN|
00001700: 41 54 49 4F 4E 20 28 12 53 92 2C 12 50 92 29 3F |ATION (.S.,.P.)?|
00001710: 22 00 26 57 44 07 A1 41 24 3A 8B 41 24 B2 22 53 |".&WD..A$:.A$."S|
00001720: 22 A7 31 38 39 30 00 56 57 4E 07 8B 41 24 B2 22 |".1890.VWN..A$."|
00001730: 50 22 A7 E7 30 2C 32 3A E7 31 2C 31 3A E7 32 2C |P"..0,2:.1,1:.2,|
00001740: 37 3A E7 33 2C 33 3A E7 34 2C 31 35 3A E7 35 2C |7:.3,3:.4,15:.5,|
00001750: 32 3A 89 32 38 30 00 68 57 58 07 8B 41 24 B3 B1 |2:.280.hWX..A$..|
00001760: 22 43 22 A7 31 38 36 30 00 98 57 62 07 99 22 13 |"C".1860..Wb..".|
00001770: 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00001780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001790: 20 20 20 20 20 20 20 22 00 CE 57 6C 07 99 22 13 | "..Wl..".|
000017A0: 45 4E 54 45 52 20 43 4F 44 45 20 46 4F 52 20 53 |ENTER CODE FOR S|
000017B0: 43 52 45 45 4E 20 43 4F 4C 4F 52 20 20 20 20 20 |CREEN COLOR |
000017C0: 20 22 3A 8D 32 30 32 30 3A E7 30 2C 43 43 00 E4 | ":.2020:.0,CC..|
000017D0: 57 76 07 8B 43 43 B2 31 B0 43 43 B2 31 32 A7 99 |Wv..CC.1.CC.12..|
000017E0: 22 05 22 3B 00 19 58 80 07 99 22 13 45 4E 54 45 |".";..X...".ENTE|
000017F0: 52 20 43 4F 44 45 20 46 4F 52 20 42 4F 52 44 45 |R CODE FOR BORDE|
00001800: 52 20 43 4F 4C 4F 52 20 20 20 20 20 22 3A 8D 32 |R COLOR ":.2|
00001810: 30 32 30 3A E7 34 2C 43 43 00 4E 58 8A 07 99 22 |020:.4,CC.NX..."|
00001820: 13 45 4E 54 45 52 20 43 4F 44 45 20 46 4F 52 20 |.ENTER CODE FOR |
00001830: 46 4F 52 45 47 52 4F 55 4E 44 20 43 4F 4C 4F 52 |FOREGROUND COLOR|
00001840: 20 22 3A 8D 32 30 32 30 3A E7 31 2C 43 43 00 89 | ":.2020:.1,CC..|
00001850: 58 94 07 8B 4D 4F B2 32 A7 99 22 13 45 4E 54 45 |X...MO.2..".ENTE|
00001860: 52 20 43 4F 44 45 20 46 4F 52 20 4D 55 4C 54 49 |R CODE FOR MULTI|
00001870: 43 4F 4C 4F 52 20 4F 4E 45 20 20 20 22 3A 8D 32 |COLOR ONE ":.2|
00001880: 30 32 30 3A E7 32 2C 43 43 00 C4 58 9E 07 8B 4D |020:.2,CC..X...M|
00001890: 4F B2 32 A7 99 22 13 45 4E 54 45 52 20 43 4F 44 |O.2..".ENTER COD|
000018A0: 45 20 46 4F 52 20 4D 55 4C 54 49 43 4F 4C 4F 52 |E FOR MULTICOLOR|
000018B0: 20 54 57 4F 20 20 20 22 3A 8D 32 30 32 30 3A E7 | TWO ":.2020:.|
000018C0: 33 2C 43 43 00 EF 58 A8 07 99 22 13 53 41 54 49 |3,CC..X...".SATI|
000018D0: 53 46 49 45 44 20 57 49 54 48 20 59 4F 55 52 20 |SFIED WITH YOUR |
000018E0: 43 48 4F 49 43 45 53 20 12 59 2F 4E 92 3F 22 00 |CHOICES .Y/N.?".|
000018F0: 1D 59 B2 07 99 22 20 20 20 20 20 20 20 20 20 20 |.Y..." |
00001900: 20 20 20 20 20 20 20 20 22 3A 99 22 11 20 20 20 | ":.". |
00001910: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 31 59 | ".1Y|
00001920: BC 07 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 39 38 |...A$:.A$."".198|
00001930: 30 00 42 59 C6 07 8B 41 24 B2 22 4E 22 A7 31 38 |0.BY...A$."N".18|
00001940: 39 30 00 54 59 D0 07 8B 41 24 B3 B1 22 59 22 A7 |90.TY...A$.."Y".|
00001950: 31 39 38 30 00 5D 59 DA 07 89 32 38 30 00 92 59 |1980.]Y...280..Y|
00001960: E4 07 99 22 41 4E 44 20 50 52 45 53 53 20 12 52 |..."AND PRESS .R|
00001970: 45 54 55 52 4E 92 22 3A 85 22 11 59 4F 55 52 20 |ETURN.":.".YOUR |
00001980: 43 48 4F 49 43 45 20 20 20 20 9D 9D 9D 9D 22 3B |CHOICE ....";|
00001990: 43 43 00 C2 59 EE 07 8B 43 43 B3 31 B0 43 43 B1 |CC..Y...CC.1.CC.|
000019A0: 31 36 B0 43 43 B3 B1 B5 28 43 43 29 A7 85 22 54 |16.CC...(CC).."T|
000019B0: 52 59 20 41 47 41 49 4E 22 3B 43 43 3A 89 32 30 |RY AGAIN";CC:.20|
000019C0: 33 30 00 C8 59 F8 07 8E 00 D1 59 02 08 8D 38 33 |30..Y.....Y...83|
000019D0: 30 00 E4 59 0C 08 81 49 B2 31 A4 37 3A FE 07 49 |0..Y...I.1.7:..I|
000019E0: 2C 30 3A 82 00 1A 5A 16 08 8B 4A B2 30 A7 91 53 |,0:...Z...J.0..S|
000019F0: 4E 8D 32 31 31 30 2C 32 33 38 30 2C 32 37 31 30 |N.2110,2380,2710|
00001A00: 2C 33 33 39 30 2C 32 39 35 30 2C 33 31 35 30 2C |,3390,2950,3150,|
00001A10: 32 38 31 30 3A 89 32 31 30 30 00 50 5A 20 08 8B |2810:.2100.PZ ..|
00001A20: 4A B2 31 A7 91 53 4E 8D 33 34 30 30 2C 33 35 36 |J.1..SN.3400,356|
00001A30: 30 2C 33 37 30 30 2C 33 37 35 30 2C 34 31 33 30 |0,3700,3750,4130|
00001A40: 2C 34 30 33 30 2C 34 30 38 30 3A 89 32 31 30 30 |,4030,4080:.2100|
00001A50: 00 80 5A 2A 08 8B 4A B2 32 A7 91 53 4E 8D 33 37 |..Z*..J.2..SN.37|
00001A60: 36 30 2C 33 38 39 30 2C 34 33 34 30 2C 34 33 39 |60,3890,4340,439|
00001A70: 30 2C 34 34 30 30 2C 34 36 37 30 2C 34 38 32 30 |0,4400,4670,4820|
00001A80: 00 86 5A 34 08 8E 00 9A 5A 3E 08 43 49 B2 30 3A |..Z4....Z>.CI.0:|
00001A90: 20 8F 20 43 49 52 43 4C 45 53 00 CB 5A 48 08 E0 | . CIRCLES..ZH..|
00001AA0: 31 2C 30 2C 32 34 2C 22 45 4E 54 45 52 20 43 45 |1,0,24,"ENTER CE|
00001AB0: 4E 54 45 52 22 2C 31 3A 49 58 B2 31 3A 49 59 B2 |NTER",1:IX.1:IY.|
00001AC0: 31 3A FE 06 38 2C 46 58 2C 46 59 00 F6 5A 52 08 |1:..8,FX,FY..ZR.|
00001AD0: 55 44 24 B2 22 55 50 2F 44 4F 57 4E 22 3A 4C 52 |UD$."UP/DOWN":LR|
00001AE0: 24 B2 22 4C 45 46 54 2F 52 49 47 48 54 22 3A 4B |$."LEFT/RIGHT":K|
00001AF0: B2 31 3A 4C B2 30 00 0A 5B 5C 08 8D 31 31 30 3A |.1:L.0..[\..110:|
00001B00: 8B 4A 42 B2 31 A7 32 31 35 30 00 1E 5B 66 08 8D |.JB.1.2150..[f..|
00001B10: 32 37 30 3A E5 44 43 2C 58 AD 4D 4F 2C 59 00 2D |270:.DC,X.MO,Y.-|
00001B20: 5B 70 08 8B 43 49 B2 32 A7 32 32 32 30 00 4E 5B |[p..CI.2.2220.N[|
00001B30: 7A 08 E0 31 2C 30 2C 32 34 2C 22 52 41 44 49 55 |z..1,0,24,"RADIU|
00001B40: 53 20 44 49 52 45 43 54 49 4F 4E 22 2C 31 00 70 |S DIRECTION",1.p|
00001B50: 5B 84 08 E0 31 2C 32 32 2C 32 34 2C 55 44 24 2C |[...1,22,24,UD$,|
00001B60: 4B 3A E0 31 2C 33 30 2C 32 34 2C 4C 52 24 2C 4C |K:.1,30,24,LR$,L|
00001B70: 00 84 5B 8E 08 8D 31 36 30 3A 8B 4A 42 B2 31 A7 |..[...160:.JB.1.|
00001B80: 32 32 32 30 00 A0 5B 98 08 4B B2 B6 28 4B AB 31 |2220..[..K..(K.1|
00001B90: 29 3A 4C B2 B6 28 4C AB 31 29 3A 89 32 31 38 30 |):L..(L.1):.2180|
00001BA0: 00 AA 5B A2 08 89 32 31 34 30 00 BE 5B AC 08 43 |..[...2140..[..C|
00001BB0: 58 B2 D0 28 30 29 3A 43 59 B2 D0 28 31 29 00 C6 |X..(0):CY..(1)..|
00001BC0: 5B B6 08 8D 32 30 00 E4 5B C0 08 E0 31 2C 30 2C |[...20..[...1,0,|
00001BD0: 32 34 2C 22 45 4E 54 45 52 20 52 41 44 49 55 53 |24,"ENTER RADIUS|
00001BE0: 20 22 2C 31 00 0D 5C CA 08 8B 4B B2 31 A7 49 59 | ",1..\...K.1.IY|
00001BF0: B2 31 3A 49 58 B2 30 3A 8B 43 49 B2 32 A7 3A E0 |.1:IX.0:.CI.2.:.|
00001C00: 31 2C 31 33 2C 32 34 2C 55 44 24 2C 31 00 36 5C |1,13,24,UD$,1.6\|
00001C10: D4 08 8B 4C B2 31 A7 49 59 B2 30 3A 49 58 B2 31 |...L.1.IY.0:IX.1|
00001C20: 3A 8B 43 49 B2 32 A7 3A E0 31 2C 31 33 2C 32 34 |:.CI.2.:.1,13,24|
00001C30: 2C 4C 52 24 2C 31 00 4A 5C DE 08 8D 31 31 30 3A |,LR$,1.J\...110:|
00001C40: 8B 4A 42 B2 31 A7 32 32 39 30 00 54 5C E8 08 89 |.JB.1.2290.T\...|
00001C50: 32 32 37 30 00 78 5C F2 08 8D 32 37 30 3A 46 58 |2270.x\...270:FX|
00001C60: B2 58 AA 31 33 3A 46 59 B2 59 AA 34 30 3A E5 44 |.X.13:FY.Y.40:.D|
00001C70: 43 2C 58 AD 4D 4F 2C 59 00 90 5C FC 08 52 58 B2 |C,X.MO,Y..\..RX.|
00001C80: D0 28 30 29 3A 52 59 B2 D0 28 31 29 3A 8D 32 30 |.(0):RY..(1):.20|
00001C90: 00 C7 5C 06 09 8B 43 49 B2 32 AF 4B B2 31 A7 4B |..\...CI.2.K.1.K|
00001CA0: B2 30 3A 4C B2 31 3A FE 06 38 2C 28 43 58 AC 4D |.0:L.1:..8,(CX.M|
00001CB0: 4F 29 AA 31 33 2C 43 59 AA 34 30 3A 4F 59 B2 52 |O).13,CY.40:OY.R|
00001CC0: 59 3A 89 32 32 34 30 00 DD 5C 10 09 8B 43 49 B2 |Y:.2240..\...CI.|
00001CD0: 31 B0 41 31 B2 31 A7 43 49 B2 30 3A 8E 00 EB 5C |1.A1.1.CI.0:...\|
00001CE0: 1A 09 8B 4B B2 31 A7 32 33 36 30 00 F7 5C 24 09 |...K.1.2360..\$.|
00001CF0: 8B 43 49 B2 32 A7 8E 00 21 5D 2E 09 52 B2 B6 28 |.CI.2...!]..R..(|
00001D00: 52 58 AB 43 58 29 3A E2 44 43 2C 43 58 2C 43 59 |RX.CX):.DC,CX,CY|
00001D10: 2C 52 2C 52 AC 50 58 28 4D 4F 29 3A 89 32 33 37 |,R,R.PX(MO):.237|
00001D20: 30 00 45 5D 38 09 52 B2 B6 28 52 59 AB 43 59 29 |0.E]8.R..(RY.CY)|
00001D30: 3A E2 44 43 2C 43 58 2C 43 59 2C 52 AC 50 59 28 |:.DC,CX,CY,R.PY(|
00001D40: 4D 4F 29 2C 52 00 4B 5D 42 09 8E 00 61 5D 4C 09 |MO),R.K]B...a]L.|
00001D50: 4C B2 31 3A FE 07 38 2C 30 3A 8F 20 43 4F 4C 4F |L.1:..8,0:. COLO|
00001D60: 52 00 A3 5D 56 09 E0 31 2C 30 2C 32 34 2C 22 44 |R..]V..1,0,24,"D|
00001D70: 52 41 57 20 43 4F 4C 4F 52 20 3C 3D 20 20 43 4F |RAW COLOR <= CO|
00001D80: 4C 4F 52 20 43 48 4F 49 43 45 3F 22 2C 31 3A 43 |LOR CHOICE?",1:C|
00001D90: 31 B2 31 3A 8D 33 30 33 30 3A 8B 4C B2 30 A7 32 |1.1:.3030:.L.0.2|
00001DA0: 34 33 30 00 BB 5D 60 09 43 31 B2 31 3A 8D 33 31 |430..]`.C1.1:.31|
00001DB0: 36 30 3A 8B 4B B2 34 A7 4B B2 30 00 D4 5D 6A 09 |60:.K.4.K.0..]j.|
00001DC0: 44 43 B2 4B 3A 8B 44 43 B2 32 AF 4D 4F B2 31 A7 |DC.K:.DC.2.MO.1.|
00001DD0: 44 43 B2 30 00 E0 5D 74 09 FE 07 38 2C 31 3A 8E |DC.0..]t...8,1:.|
00001DE0: 00 02 5E 7E 09 43 43 24 B2 22 3C 3D 43 4F 4C 4F |..^~.CC$."<=COLO|
00001DF0: 52 3F 20 4A 4F 59 3D 4E 2F 42 55 54 54 4F 4E 3D |R? JOY=N/BUTTON=|
00001E00: 59 22 00 11 5E 88 09 8B 4D 4F B2 32 A7 32 35 32 |Y"..^...MO.2.252|
00001E10: 30 00 24 5E 92 09 E0 31 2C 31 31 2C 32 34 2C 43 |0.$^...1,11,24,C|
00001E20: 43 24 2C 31 00 38 5E 9C 09 42 47 B2 CD 28 30 29 |C$,1.8^..BG..(0)|
00001E30: 3A 46 47 B2 CD 28 31 29 00 54 5E A6 09 E0 31 2C |:FG..(1).T^...1,|
00001E40: 30 2C 32 34 2C 22 20 20 20 20 20 20 20 20 20 20 |0,24," |
00001E50: B6 22 2C 31 00 68 5E B0 09 8D 31 36 30 3A 8B 4A |.",1.h^...160:.J|
00001E60: 42 B2 31 A7 32 36 39 30 00 80 5E BA 09 46 47 B2 |B.1.2690..^..FG.|
00001E70: 46 47 AA 31 3A 8B 46 47 B2 31 36 A7 46 47 B2 30 |FG.1:.FG.16.FG.0|
00001E80: 00 93 5E C4 09 8B 42 47 B2 46 47 A7 46 47 B2 46 |..^...BG.FG.FG.F|
00001E90: 47 AA 31 00 A9 5E CE 09 E7 30 2C 42 47 3A E7 31 |G.1..^...0,BG:.1|
00001EA0: 2C 46 47 3A 89 32 34 35 30 00 B1 5E D8 09 8D 32 |,FG:.2450..^...2|
00001EB0: 30 00 EC 5E E2 09 E0 31 2C 30 2C 32 34 2C 22 43 |0..^...1,0,24,"C|
00001EC0: 48 41 4E 47 45 20 57 48 49 43 48 3D 3E 22 2C 31 |HANGE WHICH=>",1|
00001ED0: 3A FE 06 38 2C 31 36 35 2C 32 33 30 3A FE 07 38 |:..8,165,230:..8|
00001EE0: 2C 31 3A 49 58 B2 32 3A 49 59 B2 30 00 18 5F EC |,1:IX.2:IY.0.._.|
00001EF0: 09 81 4B B2 31 A4 33 3A E1 4B 2C 4B AC 33 33 AA |..K.1.3:.K,K.33.|
00001F00: 32 36 2C 31 39 32 2C 4B AC 33 33 AA 35 38 2C 31 |26,192,K.33.58,1|
00001F10: 39 39 2C 2C 31 3A 82 3A 00 2E 5F F6 09 8D 31 31 |99,,1:.:.._...11|
00001F20: 30 3A 51 57 B2 28 CE 05 28 38 2C 30 29 29 00 40 |0:QW.(..(8,0)).@|
00001F30: 5F 00 0A 8B 51 57 B3 B2 31 32 39 A7 32 36 39 30 |_...QW..129.2690|
00001F40: 00 58 5F 0A 0A 8B 51 57 B3 B2 31 39 37 A7 57 51 |.X_...QW..197.WQ|
00001F50: B2 31 3A 89 32 36 30 30 00 70 5F 14 0A 8B 51 57 |.1:.2600.p_...QW|
00001F60: B3 B2 32 36 31 A7 57 51 B2 32 3A 89 32 36 30 30 |..261.WQ.2:.2600|
00001F70: 00 79 5F 1E 0A 57 51 B2 33 00 81 5F 28 0A 8D 32 |.y_..WQ.3.._(..2|
00001F80: 30 00 95 5F 32 0A E0 57 51 2C 31 31 2C 32 34 2C |0.._2..WQ,11,24,|
00001F90: 43 43 24 2C 31 00 B2 5F 3C 0A E0 57 51 2C 30 2C |CC$,1.._<..WQ,0,|
00001FA0: 32 34 2C 22 20 20 20 20 20 20 20 20 20 20 B6 22 |24," ."|
00001FB0: 2C 31 00 CD 5F 46 0A 8D 31 36 30 3A 8B 4A 42 B2 |,1.._F..160:.JB.|
00001FC0: 31 A7 FE 07 38 2C 31 3A 89 32 36 39 30 00 EE 5F |1...8,1:.2690.._|
00001FD0: 50 0A 43 43 B2 CD 28 57 51 29 3A 43 43 B2 43 43 |P.CC..(WQ):CC.CC|
00001FE0: AA 31 3A 8B 43 43 B2 31 37 A7 43 43 B2 31 00 0B |.1:.CC.17.CC.1..|
00001FF0: 60 5A 0A 91 57 51 8D 32 36 36 30 2C 32 36 37 30 |`Z..WQ.2660,2670|
00002000: 2C 32 36 38 30 3A 89 32 36 31 30 00 17 60 64 0A |,2680:.2610..`d.|
00002010: E7 31 2C 43 43 3A 8E 00 23 60 6E 0A E7 32 2C 43 |.1,CC:..#`n..2,C|
00002020: 43 3A 8E 00 2F 60 78 0A E7 33 2C 43 43 3A 8E 00 |C:../`x..3,CC:..|
00002030: 3D 60 82 0A 8D 32 30 3A FE 07 38 2C 31 00 43 60 |=`...20:..8,1.C`|
00002040: 8C 0A 8E 00 4F 60 96 0A 8F 20 4C 49 4E 45 53 00 |....O`... LINES.|
00002050: 81 60 A0 0A E0 31 2C 30 2C 32 34 2C 22 45 4E 54 |.`...1,0,24,"ENT|
00002060: 45 52 20 4F 4E 45 20 45 4E 44 22 2C 31 3A 49 58 |ER ONE END",1:IX|
00002070: B2 31 3A 49 59 B2 31 3A FE 06 38 2C 46 58 2C 46 |.1:IY.1:..8,FX,F|
00002080: 59 00 8A 60 AA 0A 8D 31 31 30 00 9E 60 B4 0A 8D |Y..`...110..`...|
00002090: 32 37 30 3A E5 44 43 2C 58 AD 4D 4F 2C 59 00 CE |270:.DC,X.MO,Y..|
000020A0: 60 BE 0A 43 58 B2 D0 28 30 29 3A 43 59 B2 D0 28 |`..CX..(0):CY..(|
000020B0: 31 29 3A E0 31 2C 30 2C 32 34 2C 22 45 4E 54 45 |1):.1,0,24,"ENTE|
000020C0: 52 20 4F 54 48 45 52 20 45 4E 44 22 2C 31 00 D7 |R OTHER END",1..|
000020D0: 60 C8 0A 8D 31 31 30 00 FB 60 D2 0A 8D 32 37 30 |`...110..`...270|
000020E0: 3A 46 58 B2 58 AA 31 33 3A 46 59 B2 59 AA 34 30 |:FX.X.13:FY.Y.40|
000020F0: 3A E5 44 43 2C 58 AD 4D 4F 2C 59 00 13 61 DC 0A |:.DC,X.MO,Y..a..|
00002100: 52 58 B2 D0 28 30 29 3A 52 59 B2 D0 28 31 29 3A |RX..(0):RY..(1):|
00002110: 8D 32 30 00 27 61 E6 0A E5 44 43 2C 43 58 2C 43 |.20.'a...DC,CX,C|
00002120: 59 A4 52 58 2C 52 59 00 2D 61 F0 0A 8E 00 76 61 |Y.RX,RY.-a....va|
00002130: FA 0A FE 06 38 2C 46 58 2C 46 59 3A FE 07 38 2C |....8,FX,FY:..8,|
00002140: 31 3A 4B B2 32 3A 44 24 28 32 29 B2 22 4D 4F 56 |1:K.2:D$(2)."MOV|
00002150: 45 20 22 3A 44 24 28 31 29 B2 22 44 52 41 57 20 |E ":D$(1)."DRAW |
00002160: 22 3A 44 24 28 30 29 B2 22 45 52 41 53 45 22 3A |":D$(0)."ERASE":|
00002170: 8F 20 44 52 41 57 00 B6 61 04 0B E6 28 46 58 AB |. DRAW..a...(FX.|
00002180: 31 33 29 AD 4D 4F 2C 46 59 AB 34 30 3A E0 31 2C |13).MO,FY.40:.1,|
00002190: 30 2C 32 34 2C 44 24 28 4B 29 2C 31 3A E0 31 2C |0,24,D$(K),1:.1,|
000021A0: 32 38 2C 32 34 2C 22 46 31 20 54 4F 20 52 45 54 |28,24,"F1 TO RET|
000021B0: 55 52 4E 22 2C 31 00 C8 61 0E 0B 49 58 B2 31 3A |URN",1..a..IX.1:|
000021C0: 49 59 B2 31 3A 4A B2 30 00 06 62 18 0B A1 41 24 |IY.1:J.0..b...A$|
000021D0: 3A 8B 41 24 B2 22 85 22 A7 E0 31 2C 30 2C 32 34 |:.A$."."..1,0,24|
000021E0: 2C 22 20 20 20 20 20 22 2C 30 3A E0 31 2C 32 38 |," ",0:.1,28|
000021F0: 2C 32 34 2C 22 20 20 20 20 20 20 20 20 20 20 20 |,24," |
00002200: 20 22 2C 30 3A 8E 00 1D 62 22 0B 8B 41 24 B3 B1 | ",0:...b"..A$..|
00002210: 22 22 A7 8D 32 31 30 3A 89 32 38 38 30 00 34 62 |""..210:.2880.4b|
00002220: 2C 0B 4A 32 B2 CF 28 32 29 3A 8B 4A 32 B2 30 A7 |,.J2..(2):.J2.0.|
00002230: 32 38 34 30 00 55 62 36 0B 91 4A 32 8D 33 30 2C |2840.Ub6..J2.30,|
00002240: 34 30 2C 35 30 2C 36 30 2C 37 30 2C 38 30 2C 39 |40,50,60,70,80,9|
00002250: 30 2C 31 30 30 00 8F 62 40 0B 8B 4A 32 AF 31 32 |0,100..b@..J2.12|
00002260: 38 A7 4B B2 4B AA 31 3A 8D 32 39 33 30 3A E0 31 |8.K.K.1:.2930:.1|
00002270: 2C 30 2C 32 34 2C 44 24 28 4B 29 2C 31 3A 81 54 |,0,24,D$(K),1:.T|
00002280: B2 31 A4 33 30 3A 4A 32 B2 CF 28 32 29 3A 82 00 |.1.30:J2..(2):..|
00002290: 9D 62 4A 0B 8B 4B B2 32 A7 32 38 34 30 00 BD 62 |.bJ..K.2.2840..b|
000022A0: 54 0B 8D 32 37 30 3A E5 4B AC 44 43 2C D0 28 30 |T..270:.K.DC,.(0|
000022B0: 29 2C D0 28 31 29 A4 58 AD 4D 4F 2C 59 00 D1 62 |),.(1).X.MO,Y..b|
000022C0: 5E 0B 46 58 B2 58 AA 31 33 3A 46 59 B2 59 AA 34 |^.FX.X.13:FY.Y.4|
000022D0: 30 00 DB 62 68 0B 89 32 38 34 30 00 04 63 72 0B |0..bh..2840..cr.|
000022E0: 8B 4B B2 33 A7 4B B2 30 3A E6 28 CE 05 28 38 2C |.K.3.K.0:.(..(8,|
000022F0: 30 29 AB 31 33 29 AD 4D 4F 2C CE 05 28 38 2C 31 |0).13).MO,..(8,1|
00002300: 29 AB 34 30 00 20 63 7C 0B 46 58 B2 CE 05 28 38 |).40. c|.FX...(8|
00002310: 2C 30 29 3A 46 59 B2 CE 05 28 38 2C 31 29 3A 8E |,0):FY...(8,1):.|
00002320: 00 2C 63 86 0B 8F 20 42 4F 58 45 53 00 66 63 90 |.,c... BOXES.fc.|
00002330: 0B E0 31 2C 30 2C 32 34 2C 22 4C 4F 43 41 54 45 |..1,0,24,"LOCATE|
00002340: 20 4F 4E 45 20 43 4F 52 4E 45 52 22 2C 31 3A 49 | ONE CORNER",1:I|
00002350: 58 B2 31 3A 49 59 B2 31 3A 4C B2 31 3A FE 06 38 |X.1:IY.1:L.1:..8|
00002360: 2C 46 58 2C 46 59 00 6F 63 9A 0B 8D 31 31 30 00 |,FX,FY.oc...110.|
00002370: 90 63 A4 0B 8D 32 37 30 3A E5 44 43 2C 58 AD 4D |.c...270:.DC,X.M|
00002380: 4F 2C 59 3A 43 58 B2 58 AD 4D 4F 3A 43 59 B2 59 |O,Y:CX.X.MO:CY.Y|
00002390: 00 B7 63 AE 0B E0 31 2C 30 2C 32 34 2C 22 4C 4F |..c...1,0,24,"LO|
000023A0: 43 41 54 45 20 4F 50 50 4F 53 49 54 45 20 43 4F |CATE OPPOSITE CO|
000023B0: 52 4E 45 52 22 2C 31 00 D2 63 B8 0B 81 54 B2 31 |RNER",1..c...T.1|
000023C0: A4 31 30 3A 4A 32 B2 CF 28 32 29 3A 82 3A 8D 31 |.10:J2..(2):.:.1|
000023D0: 31 30 00 FB 63 C2 0B 8D 32 37 30 3A 3A 46 58 B2 |10..c...270::FX.|
000023E0: 58 AA 31 33 3A 46 59 B2 59 AA 34 30 3A E5 44 43 |X.13:FY.Y.40:.DC|
000023F0: 2C 58 AD 4D 4F 2C 59 3A 4B B2 31 00 30 64 CC 0B |,X.MO,Y:K.1.0d..|
00002400: 52 58 B2 58 AD 4D 4F 3A 52 59 B2 59 3A E0 31 2C |RX.X.MO:RY.Y:.1,|
00002410: 30 2C 32 34 2C 22 46 49 4C 4C 3F 20 20 20 28 59 |0,24,"FILL? (Y|
00002420: 20 3C 3D 20 20 4E 29 20 20 20 20 20 20 22 2C 31 | <= N) ",1|
00002430: 00 46 64 D6 0B 81 49 B2 31 A4 35 30 3A 4A 32 B2 |.Fd...I.1.50:J2.|
00002440: CF 28 32 29 3A 82 00 5D 64 E0 0B 4A 32 B2 CF 28 |.(2):..]d..J2..(|
00002450: 32 29 3A 8B 4A 32 B2 30 A7 33 30 34 30 00 6E 64 |2):.J2.0.3040.nd|
00002460: EA 0B 8B 4A 32 AF 31 32 38 A7 33 30 39 30 00 93 |...J2.128.3090..|
00002470: 64 F4 0B 8B 4A 32 B2 37 A7 4C B2 31 3A E0 31 2C |d...J2.7.L.1:.1,|
00002480: 31 31 2C 32 34 2C 22 3C 3D 20 22 2C 31 3A 89 33 |11,24,"<= ",1:.3|
00002490: 30 33 30 00 B8 64 FE 0B 8B 4A 32 B2 33 A7 4C B2 |030..d...J2.3.L.|
000024A0: 30 3A E0 31 2C 31 31 2C 32 34 2C 22 20 3D 3E 22 |0:.1,11,24," =>"|
000024B0: 2C 31 3A 89 33 30 33 30 00 C2 64 08 0C 89 33 30 |,1:.3030..d...30|
000024C0: 33 30 00 D3 64 12 0C 8B 43 31 B2 31 A7 43 31 B2 |30..d...C1.1.C1.|
000024D0: 30 3A 8E 00 ED 64 1C 0C 8B 4D 4F B2 32 AF 4C B2 |0:...d...MO.2.L.|
000024E0: 31 A7 8D 33 31 36 30 3A 89 33 31 32 30 00 F6 64 |1..3160:.3120..d|
000024F0: 26 0C 4B B2 44 43 00 03 65 30 0C 8B 4B B2 34 A7 |&.K.DC..e0..K.4.|
00002500: 4B B2 30 00 1B 65 3A 0C E1 4B 2C 43 58 2C 43 59 |K.0..e:..K,CX,CY|
00002510: 2C 52 58 2C 52 59 2C 41 4E 2C 4C 00 25 65 44 0C |,RX,RY,AN,L.%eD.|
00002520: 8D 32 30 3A 8E 00 35 65 4E 0C 4C B2 30 3A 8F 20 |.20:..5eN.L.0:. |
00002530: 50 41 49 4E 54 00 59 65 58 0C 4B B2 31 3A 49 58 |PAINT.YeX.K.1:IX|
00002540: B2 31 3A 49 59 B2 31 3A FE 06 38 2C 46 58 2C 46 |.1:IY.1:..8,FX,F|
00002550: 59 3A 8F 20 50 41 49 4E 54 00 89 65 62 0C E0 31 |Y:. PAINT..eb..1|
00002560: 2C 30 2C 32 34 2C 22 53 45 4C 45 43 54 20 43 4F |,0,24,"SELECT CO|
00002570: 4C 4F 52 3D 4A 4F 59 2D 2D 51 55 49 54 20 42 55 |LOR=JOY--QUIT BU|
00002580: 54 54 4F 4E 3D 3E 22 2C 31 00 AE 65 6C 0C 56 B2 |TTON=>",1..el.V.|
00002590: 32 35 30 3A 57 B2 31 39 32 3A 5A B2 33 31 39 3A |250:W.192:Z.319:|
000025A0: 48 B2 31 39 39 3A 8B 4B B2 35 A7 4B B2 31 00 F2 |H.199:.K.5.K.1..|
000025B0: 65 76 0C 8B 4B B2 34 B0 28 4B B2 32 AF 4D 4F B2 |ev..K.4.(K.2.MO.|
000025C0: 31 29 A7 E1 30 2C 56 AD 4D 4F 2C 57 2C 5A AD 4D |1)..0,V.MO,W,Z.M|
000025D0: 4F 2C 48 2C 30 2C 31 3A E1 31 2C 56 AD 4D 4F 2C |O,H,0,1:.1,V.MO,|
000025E0: 57 2C 5A AD 4D 4F 2C 48 2C 30 2C 30 3A 89 33 32 |W,Z.MO,H,0,0:.32|
000025F0: 32 30 00 15 66 80 0C E1 20 4B 2C 32 35 30 AD 4D |20..f... K,250.M|
00002600: 4F 20 2C 31 39 32 2C 33 31 39 AD 4D 4F 2C 31 39 |O ,192,319.MO,19|
00002610: 39 2C 30 2C 31 00 2C 66 8A 0C A1 41 24 3A 8B 41 |9,0,1.,f...A$:.A|
00002620: 24 B2 22 88 22 A7 4A 32 B2 31 32 38 00 4A 66 94 |$.".".J2.128.Jf.|
00002630: 0C 8B 41 24 B2 22 22 A7 4A 32 B2 CF 28 32 29 3A |..A$."".J2..(2):|
00002640: 8B 4A 32 B2 30 A7 33 32 31 30 00 60 66 9E 0C 8B |.J2.0.3210.`f...|
00002650: 4A 32 AF 31 32 38 A7 8D 32 30 3A 89 33 32 36 30 |J2.128..20:.3260|
00002660: 00 79 66 A8 0C 4B B2 4B AA 31 3A 8B 4D 4F B2 31 |.yf..K.K.1:.MO.1|
00002670: A7 8B 4B B2 33 A7 4B B2 31 00 83 66 B2 0C 89 33 |..K.3.K.1..f...3|
00002680: 31 38 30 00 94 66 BC 0C 8B 43 31 B2 31 A7 43 31 |180..f...C1.1.C1|
00002690: B2 30 3A 8E 00 A3 66 C6 0C 8D 32 30 3A 8B 4C B2 |.0:...f...20:.L.|
000026A0: 31 A7 8E 00 CA 66 D0 0C E0 31 2C 30 2C 32 34 2C |1....f...1,0,24,|
000026B0: 22 53 45 4C 45 43 54 20 52 45 47 49 4F 4E 20 54 |"SELECT REGION T|
000026C0: 4F 20 50 41 49 4E 54 22 2C 31 00 D3 66 DA 0C 8D |O PAINT",1..f...|
000026D0: 31 31 30 00 F3 66 E4 0C 8D 32 37 30 3A 46 58 B2 |110..f...270:FX.|
000026E0: 58 AA 31 33 3A 46 59 B2 59 AA 34 30 3A 58 B2 58 |X.13:FY.Y.40:X.X|
000026F0: AD 4D 4F 00 11 67 EE 0C 8B 4D 4F B2 31 AF 4B B2 |.MO..g...MO.1.K.|
00002700: 32 A7 3A DF 30 2C 58 2C 59 2C 30 3A 89 33 33 34 |2.:.0,X,Y,0:.334|
00002710: 30 00 29 67 F8 0C 8B 4B B2 34 A7 DF 30 2C 58 2C |0.)g...K.4..0,X,|
00002720: 59 2C 30 3A 89 33 33 34 30 00 36 67 02 0D DF 4B |Y,0:.3340.6g...K|
00002730: 2C 58 2C 59 2C 31 00 4E 67 0C 0D 52 58 B2 D0 28 |,X,Y,1.Ng..RX..(|
00002740: 30 29 3A 52 59 B2 D0 28 31 29 3A 8D 32 30 00 84 |0):RY..(1):.20..|
00002750: 67 16 0D E0 31 2C 30 2C 32 34 2C 22 41 47 41 49 |g...1,0,24,"AGAI|
00002760: 4E 3F 20 20 28 59 20 3C 3D 20 20 4E 29 20 20 20 |N? (Y <= N) |
00002770: 20 20 22 2C 31 3A 43 31 B2 31 3A 4C B2 31 3A 8D | ",1:C1.1:L.1:.|
00002780: 33 30 33 30 00 92 67 20 0D 8B 4C B2 31 A7 33 32 |3030..g ..L.1.32|
00002790: 38 30 00 AA 67 2A 0D 52 58 B2 D0 28 30 29 3A 52 |80..g*.RX..(0):R|
000027A0: 59 B2 D0 28 31 29 3A 8D 32 30 00 B0 67 34 0D 8E |Y..(1):.20..g4..|
000027B0: 00 E2 67 3E 0D 4A B2 31 3A 81 49 B2 31 A4 37 3A |..g>.J.1:.I.1.7:|
000027C0: FE 16 53 24 28 49 AA 4A AC 37 29 2C 49 3A 82 3A |..S$(I.J.7),I:.:|
000027D0: 8E 3A 8F 20 43 48 41 4E 47 45 20 4F 50 54 49 4F |.:. CHANGE OPTIO|
000027E0: 4E 53 00 EE 67 48 0D 8F 20 41 4E 47 4C 45 00 11 |NS..gH.. ANGLE..|
000027F0: 68 52 0D FE 16 53 24 28 35 29 2C 31 3A FE 16 53 |hR...S$(5),1:..S|
00002800: 24 28 39 29 2C 32 3A FE 16 53 24 28 31 30 29 2C |$(9),2:..S$(10),|
00002810: 33 00 28 68 5C 0D FE 07 38 2C 30 3A FE 06 38 2C |3.(h\...8,0:..8,|
00002820: 34 AC 34 34 2C 32 32 33 00 39 68 66 0D FE 06 31 |4.44,223.9hf...1|
00002830: 2C 33 AC 34 34 2C 32 32 34 00 4A 68 70 0D FE 06 |,3.44,224.Jhp...|
00002840: 32 2C 34 AC 34 34 2C 32 32 34 00 5B 68 7A 0D FE |2,4.44,224.[hz..|
00002850: 06 33 2C 35 AC 34 34 2C 32 32 34 00 6E 68 84 0D |.3,5.44,224.nh..|
00002860: 81 54 B2 31 A4 33 3A FE 07 54 2C 31 3A 82 00 A1 |.T.1.3:..T,1:...|
00002870: 68 8E 0D E0 31 2C 30 2C 32 34 2C 22 41 4E 47 4C |h...1,0,24,"ANGL|
00002880: 45 20 28 30 20 2D 20 33 36 30 29 3F 22 2C 31 3A |E (0 - 360)?",1:|
00002890: 42 24 B2 22 22 3A 8D 33 35 38 30 3A 41 4E B2 53 |B$."":.3580:AN.S|
000028A0: 49 00 A9 68 98 0D 8D 32 30 00 B3 68 A2 0D FE 07 |I..h...20..h....|
000028B0: 38 2C 31 00 C6 68 AC 0D 49 59 B2 30 3A 49 58 B2 |8,1..h..IY.0:IX.|
000028C0: 35 3A 8D 31 31 30 00 DF 68 B6 0D 8D 38 33 30 3A |5:.110..h...830:|
000028D0: 8B 53 4E B3 31 B0 53 4E B1 33 A7 33 35 30 30 00 |.SN.1.SN.3.3500.|
000028E0: F2 68 C0 0D 81 54 B2 31 A4 33 3A FE 07 54 2C 30 |.h...T.1.3:..T,0|
000028F0: 3A 82 00 09 69 CA 0D 91 53 4E 8D 32 39 35 30 2C |:...i...SN.2950,|
00002900: 33 35 36 30 2C 33 37 30 30 00 18 69 D4 0D 41 4E |3560,3700..i..AN|
00002910: B2 30 3A 8D 33 33 39 30 00 1E 69 DE 0D 8E 00 38 |.0:.3390..i....8|
00002920: 69 E8 0D 43 49 B2 31 3A 8D 32 31 32 30 3A 8F 20 |i..CI.1:.2120:. |
00002930: 50 4F 4C 59 47 4F 4E 53 00 6F 69 F2 0D E0 31 2C |POLYGONS.oi...1,|
00002940: 30 2C 32 34 2C 22 4E 55 4D 42 45 52 20 4F 46 20 |0,24,"NUMBER OF |
00002950: 53 49 44 45 53 3F 22 2C 31 3A 4C B2 30 3A 42 24 |SIDES?",1:L.0:B$|
00002960: B2 22 22 3A 8D 33 35 38 30 3A 89 33 36 34 30 00 |."":.3580:.3640.|
00002970: 83 69 FC 0D A1 41 24 3A 8B 41 24 B2 22 22 A7 33 |.i...A$:.A$."".3|
00002980: 35 38 30 00 96 69 06 0E 8B 41 24 B2 C7 28 31 33 |580..i...A$..(13|
00002990: 29 A7 33 36 33 30 00 AE 69 10 0E 8B 41 24 B3 22 |).3630..i...A$."|
000029A0: 30 22 B0 41 24 B1 22 39 22 A7 33 35 38 30 00 D1 |0".A$."9".3580..|
000029B0: 69 1A 0E 4C B2 4C AA 31 3A E0 31 2C 31 37 AA 4C |i..L.L.1:.1,17.L|
000029C0: 2C 32 34 2C 41 24 2C 31 3A 42 24 B2 42 24 AA 41 |,24,A$,1:B$.B$.A|
000029D0: 24 00 DB 69 24 0E 89 33 35 38 30 00 EA 69 2E 0E |$..i$..3580..i..|
000029E0: 53 49 B2 C5 28 42 24 29 3A 8E 00 F7 69 38 0E 8B |SI..(B$):...i8..|
000029F0: 53 49 B3 B2 31 A7 8E 00 05 6A 42 0E 8B 4B B2 31 |SI..1....jB..K.1|
00002A00: A7 33 36 37 30 00 45 6A 4C 0E 52 B2 B6 28 52 58 |.3670.EjL.R..(RX|
00002A10: AB 43 58 29 3A E2 44 43 2C 43 58 2C 43 59 2C 52 |.CX):.DC,CX,CY,R|
00002A20: 2C 52 AC 50 58 28 4D 4F 29 2C 32 37 30 2C 32 37 |,R.PX(MO),270,27|
00002A30: 30 2C 31 38 30 AA 41 4E 2C 33 36 30 AD 53 49 3A |0,180.AN,360.SI:|
00002A40: 89 33 36 38 30 00 79 6A 56 0E 52 B2 B6 28 52 59 |.3680.yjV.R..(RY|
00002A50: AB 43 59 29 3A E2 44 43 2C 43 58 2C 43 59 2C 52 |.CY):.DC,CX,CY,R|
00002A60: AC 50 59 28 4D 4F 29 2C 52 2C 2C 2C 31 38 30 AA |.PY(MO),R,,,180.|
00002A70: 41 4E 2C 33 36 30 AD 53 49 00 81 6A 60 0E 8D 32 |AN,360.SI..j`..2|
00002A80: 30 00 87 6A 6A 0E 8E 00 93 6A 74 0E 8F 20 4F 56 |0..jj....jt.. OV|
00002A90: 41 4C 53 00 A2 6A 7E 0E 43 49 B2 32 3A 8D 32 31 |ALS..j~.CI.2:.21|
00002AA0: 32 30 00 B3 6A 88 0E 8B 41 31 B2 31 A7 41 31 B2 |20..j...A1.1.A1.|
00002AB0: 30 3A 8E 00 D8 6A 92 0E E2 44 43 2C 43 58 2C 43 |0:...j...DC,CX,C|
00002AC0: 59 2C B6 28 43 58 AB 52 58 29 2C B6 28 4F 59 AB |Y,.(CX.RX),.(OY.|
00002AD0: 43 59 29 2C 2C 2C 41 4E 00 DE 6A 9C 0E 8E 00 FF |CY),,,AN..j.....|
00002AE0: 6A A6 0E 4A B2 32 3A 81 49 B2 31 A4 37 3A FE 16 |j..J.2:.I.1.7:..|
00002AF0: 53 24 28 49 AA 4A AC 37 29 2C 49 3A 82 3A 8E 00 |S$(I.J.7),I:.:..|
00002B00: 0A 6B B0 0E 8F 20 53 41 56 45 00 1D 6B BA 0E 4C |.k... SAVE..k..L|
00002B10: B2 30 3A 43 54 B2 30 3A 46 24 B2 22 22 00 55 6B |.0:CT.0:F$."".Uk|
00002B20: C4 0E E0 31 2C 30 2C 32 34 2C 22 46 49 4C 45 4E |...1,0,24,"FILEN|
00002B30: 41 4D 45 3F 22 2C 31 3A E0 31 2C 39 2C 32 34 2C |AME?",1:.1,9,24,|
00002B40: 22 20 20 20 20 20 20 20 20 20 20 20 22 2C 30 3A |" ",0:|
00002B50: 46 24 B2 22 22 00 5E 6B CE 0E A1 F9 41 24 00 71 |F$."".^k....A$.q|
00002B60: 6B D8 0E 8B 41 24 B2 C7 28 31 33 29 A7 33 38 33 |k...A$..(13).383|
00002B70: 30 00 84 6B E2 0E 8B 41 24 B2 C7 28 32 30 29 A7 |0..k...A$..(20).|
00002B80: 33 37 37 30 00 B0 6B EC 0E 46 24 B2 46 24 AA 41 |3770..k..F$.F$.A|
00002B90: 24 3A E0 31 2C 31 30 AA 43 54 2C 32 34 2C 41 24 |$:.1,10.CT,24,A$|
00002BA0: 2C 31 3A 43 54 B2 43 54 AA 31 3A 89 33 37 39 30 |,1:CT.CT.1:.3790|
00002BB0: 00 C0 6B F6 0E 54 24 B2 22 30 31 2E 22 AA 46 24 |..k..T$."01.".F$|
00002BC0: 00 E0 6B 00 0F FE 10 28 54 24 29 2C 44 30 2C 55 |..k....(T$),D0,U|
00002BD0: 38 2C 42 30 2C 50 37 31 36 38 A4 50 38 31 39 33 |8,B0,P7168.P8193|
00002BE0: 00 F0 6B 0A 0F 54 24 B2 22 30 32 2E 22 AA 46 24 |..k..T$."02.".F$|
00002BF0: 00 11 6C 14 0F FE 10 28 54 24 29 2C 44 30 2C 55 |..l....(T$),D0,U|
00002C00: 38 2C 42 30 2C 50 38 31 39 33 A4 50 31 36 33 38 |8,B0,P8193.P1638|
00002C10: 35 00 22 6C 1E 0F E0 31 2C 30 2C 30 2C 44 53 24 |5."l...1,0,0,DS$|
00002C20: 2C 31 00 30 6C 28 0F FE 0B 35 3A 8D 32 30 3A 8E |,1.0l(...5:.20:.|
00002C30: 00 3B 6C 32 0F 8F 20 4C 4F 41 44 00 5A 6C 3C 0F |.;l2.. LOAD.Zl<.|
00002C40: 4C B2 30 3A 43 54 B2 30 3A 44 56 B2 38 3A 3A 46 |L.0:CT.0:DV.8::F|
00002C50: 24 B2 22 22 3A 54 24 B2 22 22 00 92 6C 46 0F E0 |$."":T$.""..lF..|
00002C60: 31 2C 30 2C 32 34 2C 22 46 49 4C 45 4E 41 4D 45 |1,0,24,"FILENAME|
00002C70: 3F 22 2C 31 3A E0 31 2C 39 2C 32 34 2C 22 20 20 |?",1:.1,9,24," |
00002C80: 20 20 20 20 20 20 20 20 20 22 2C 30 3A 46 24 B2 | ",0:F$.|
00002C90: 22 22 00 9B 6C 50 0F A1 F9 41 24 00 AE 6C 5A 0F |""..lP...A$..lZ.|
00002CA0: 8B 41 24 B2 C7 28 31 33 29 A7 33 39 36 30 00 C1 |.A$..(13).3960..|
00002CB0: 6C 64 0F 8B 41 24 B2 C7 28 32 30 29 A7 33 39 30 |ld..A$..(20).390|
00002CC0: 30 00 ED 6C 6E 0F 46 24 B2 46 24 AA 41 24 3A E0 |0..ln.F$.F$.A$:.|
00002CD0: 31 2C 31 30 AA 43 54 2C 32 34 2C 41 24 2C 31 3A |1,10.CT,24,A$,1:|
00002CE0: 43 54 B2 43 54 AA 31 3A 89 33 39 32 30 00 FD 6C |CT.CT.1:.3920..l|
00002CF0: 78 0F 54 24 B2 22 30 31 2E 22 AA 46 24 00 17 6D |x.T$."01.".F$..m|
00002D00: 82 0F FE 11 28 54 24 29 2C 44 30 2C 55 38 2C 42 |....(T$),D0,U8,B|
00002D10: 30 2C 50 37 31 36 38 00 27 6D 8C 0F 54 24 B2 22 |0,P7168.'m..T$."|
00002D20: 30 32 2E 22 AA 46 24 00 41 6D 96 0F FE 11 28 54 |02.".F$.Am....(T|
00002D30: 24 29 2C 44 30 2C 55 38 2C 42 30 2C 50 38 31 39 |$),D0,U8,B0,P819|
00002D40: 33 00 54 6D A0 0F E0 31 2C 32 36 2C 32 34 2C 44 |3.Tm...1,26,24,D|
00002D50: 53 24 2C 31 00 62 6D AA 0F FE 0B 35 3A 8D 32 30 |S$,1.bm....5:.20|
00002D60: 3A 8E 00 83 6D B4 0F 4A B2 30 3A 81 49 B2 31 A4 |:...m..J.0:.I.1.|
00002D70: 37 3A FE 16 53 24 28 49 AA 4A AC 37 29 2C 49 3A |7:..S$(I.J.7),I:|
00002D80: 82 3A 8E 00 96 6D BE 0F 8F 20 43 4C 45 41 52 20 |.:...m... CLEAR |
00002D90: 53 43 52 45 45 4E 00 BB 6D C8 0F E0 31 2C 30 2C |SCREEN..m...1,0,|
00002DA0: 32 34 2C 22 41 52 45 20 59 4F 55 20 53 55 52 45 |24,"ARE YOU SURE|
00002DB0: 3F 20 20 28 59 2F 4E 29 22 2C 31 00 C4 6D D2 0F |? (Y/N)",1..m..|
00002DC0: A1 F9 41 24 00 D2 6D DC 0F 8B 41 24 B2 22 59 22 |..A$..m...A$."Y"|
00002DD0: A7 E8 00 DC 6D E6 0F 8D 32 30 3A 8E 00 E7 6D F0 |....m...20:...m.|
00002DE0: 0F 8F 20 51 55 49 54 00 0C 6E FA 0F E0 31 2C 30 |.. QUIT..n...1,0|
00002DF0: 2C 32 34 2C 22 41 52 45 20 59 4F 55 20 53 55 52 |,24,"ARE YOU SUR|
00002E00: 45 3F 20 20 28 59 2F 4E 29 22 2C 31 00 15 6E 04 |E? (Y/N)",1..n.|
00002E10: 10 A1 F9 41 24 00 52 6E 0E 10 8B 41 24 B2 22 59 |...A$.Rn...A$."Y|
00002E20: 22 A7 E7 30 2C 31 32 3A E7 31 2C 31 34 3A E7 32 |"..0,12:.1,14:.2|
00002E30: 2C 37 3A E7 33 2C 36 3A E7 34 2C 31 34 3A E7 35 |,7:.3,6:.4,14:.5|
00002E40: 2C 31 34 3A E7 36 2C 31 3A DE 30 3A 99 22 93 22 |,14:.6,1:.0:."."|
00002E50: 3A 80 00 5C 6E 18 10 8D 32 30 3A 8E 00 66 6E 22 |:..\n...20:..fn"|
00002E60: 10 8F 20 41 52 43 00 9C 6E 2C 10 41 31 B2 31 3A |.. ARC..n,.A1.1:|
00002E70: FE 16 53 24 28 31 30 29 2C 32 3A FE 16 53 24 28 |..S$(10),2:..S$(|
00002E80: 31 29 2C 31 3A FE 06 31 2C 31 35 30 2C 32 32 34 |1),1:..1,150,224|
00002E90: 3A FE 06 32 2C 32 30 32 2C 32 32 34 00 BE 6E 36 |:..2,202,224..n6|
00002EA0: 10 FE 06 38 2C 31 37 36 2C 32 32 33 3A FE 07 31 |...8,176,223:..1|
00002EB0: 2C 31 3A FE 07 32 2C 31 3A FE 07 38 2C 31 00 D1 |,1:..2,1:..8,1..|
00002EC0: 6E 40 10 49 59 B2 30 3A 49 58 B2 35 3A 8D 31 31 |n@.IY.0:IX.5:.11|
00002ED0: 30 00 E8 6E 4A 10 8D 38 33 30 3A 91 53 4E 8D 32 |0..nJ..830:.SN.2|
00002EE0: 31 31 30 2C 33 37 30 30 00 28 6F 54 10 41 31 B2 |110,3700.(oT.A1.|
00002EF0: 30 3A E0 31 2C 30 2C 32 34 2C 22 4A 4F 59 42 55 |0:.1,0,24,"JOYBU|
00002F00: 54 54 4F 4E 20 54 4F 20 53 54 41 52 54 2F 53 54 |TTON TO START/ST|
00002F10: 4F 50 20 4C 49 4E 45 22 2C 31 3A 91 53 4E 89 34 |OP LINE",1:.SN.4|
00002F20: 31 39 30 2C 34 32 38 30 00 36 6F 5E 10 8B 4B B2 |190,4280.6o^..K.|
00002F30: 31 A7 34 32 34 30 00 6D 6F 68 10 52 B2 B6 28 52 |1.4240.moh.R..(R|
00002F40: 58 AB 43 58 29 3A 81 4D B2 30 A4 33 38 30 A9 32 |X.CX):.M.0.380.2|
00002F50: 3A E2 4B AC 44 43 2C 43 58 2C 43 59 2C 52 2C 52 |:.K.DC,CX,CY,R,R|
00002F60: AC 50 58 28 4D 4F 29 2C 4D 2C 4D AA 32 00 9B 6F |.PX(MO),M,M.2..o|
00002F70: 72 10 58 B2 D0 28 30 29 3A 59 B2 D0 28 31 29 3A |r.X..(0):Y..(1):|
00002F80: FE 06 38 2C 58 AC 4D 4F AA 31 33 2C 59 AA 34 30 |..8,X.MO.13,Y.40|
00002F90: 3A 81 54 B2 31 A4 31 30 30 3A 82 00 B8 6F 7C 10 |:.T.1.100:...o|.|
00002FA0: 4A 32 B2 CF 28 32 29 3A 8B 4A 32 AF 31 32 38 A7 |J2..(2):.J2.128.|
00002FB0: 4B B2 B6 28 4B AB 31 29 00 CA 6F 86 10 82 3A 8D |K..(K.1)..o...:.|
00002FC0: 32 30 3A 8D 33 33 39 30 3A 8E 00 01 70 90 10 52 |20:.3390:...p..R|
00002FD0: B2 B6 28 52 59 AB 43 59 29 3A 81 4D B2 30 A4 33 |..(RY.CY):.M.0.3|
00002FE0: 38 30 A9 32 3A E2 4C AC 44 43 2C 43 58 2C 43 59 |80.2:.L.DC,CX,CY|
00002FF0: 2C 52 AC 50 59 28 4D 4F 29 2C 52 2C 4D 2C 4D AA |,R.PY(MO),R,M,M.|
00003000: 32 00 2F 70 9A 10 58 B2 D0 28 30 29 3A 59 B2 D0 |2./p..X..(0):Y..|
00003010: 28 31 29 3A FE 06 38 2C 58 AC 4D 4F AA 31 33 2C |(1):..8,X.MO.13,|
00003020: 59 AA 34 30 3A 81 54 B2 31 A4 31 30 30 3A 82 00 |Y.40:.T.1.100:..|
00003030: 4C 70 A4 10 4A 32 B2 CF 28 32 29 3A 8B 4A 32 AF |Lp..J2..(2):.J2.|
00003040: 31 32 38 A7 4C B2 B6 28 4C AB 31 29 00 5E 70 AE |128.L..(L.1).^p.|
00003050: 10 82 3A 8D 32 30 3A 8D 33 33 39 30 3A 8E 00 76 |..:.20:.3390:..v|
00003060: 70 B8 10 4B B2 30 3A 41 31 B2 30 3A 81 4D B2 30 |p..K.0:A1.0:.M.0|
00003070: A4 33 38 30 A9 32 00 A1 70 C2 10 E2 44 43 AC 4B |.380.2..p...DC.K|
00003080: 2C 43 58 2C 43 59 2C B6 28 43 58 AB 52 58 29 2C |,CX,CY,.(CX.RX),|
00003090: B6 28 4F 59 AB 43 59 29 2C 4D 2C 4D AA 32 2C 41 |.(OY.CY),M,M.2,A|
000030A0: 4E 00 CF 70 CC 10 58 B2 D0 28 30 29 3A 59 B2 D0 |N..p..X..(0):Y..|
000030B0: 28 31 29 3A FE 06 38 2C 58 AC 4D 4F AA 31 33 3A |(1):..8,X.MO.13:|
000030C0: 59 AA 34 30 3A 81 54 B2 31 A4 31 30 30 3A 82 00 |Y.40:.T.1.100:..|
000030D0: EC 70 D6 10 4A 32 B2 CF 28 32 29 3A 8B 4A 32 AF |.p..J2..(2):.J2.|
000030E0: 31 32 38 A7 4B B2 B6 28 4B AB 31 29 00 FE 70 E0 |128.K..(K.1)..p.|
000030F0: 10 82 3A 8D 32 30 3A 8D 33 33 39 30 3A 8E 00 04 |..:.20:.3390:...|
00003100: 71 EA 10 8E 00 0E 71 F4 10 8F 20 4F 46 46 00 21 |q.....q... OFF.!|
00003110: 71 FE 10 81 49 B2 31 A4 38 3A FE 07 49 2C 30 3A |q...I.1.8:..I,0:|
00003120: 82 00 2A 71 08 11 8D 31 31 30 00 3D 71 12 11 81 |..*q...110.=q...|
00003130: 49 B2 31 A4 38 3A FE 07 49 2C 31 3A 82 00 43 71 |I.1.8:..I,1:..Cq|
00003140: 1C 11 8E 00 64 71 26 11 4A B2 30 3A 81 49 B2 31 |....dq&.J.0:.I.1|
00003150: A4 37 3A FE 16 53 24 28 49 AA 4A AC 37 29 2C 49 |.7:..S$(I.J.7),I|
00003160: 3A 82 3A 8E 00 6F 71 30 11 8F 20 43 4F 50 59 00 |:.:..oq0.. COPY.|
00003170: AB 71 3A 11 E0 31 2C 30 2C 32 34 2C 22 45 4E 54 |.q:..1,0,24,"ENT|
00003180: 45 52 20 55 50 50 45 52 20 4C 45 46 54 20 43 4F |ER UPPER LEFT CO|
00003190: 52 4E 45 52 22 2C 31 3A 49 58 B2 31 3A 49 59 B2 |RNER",1:IX.1:IY.|
000031A0: 31 3A FE 06 38 2C 46 58 2C 46 59 00 BF 71 44 11 |1:..8,FX,FY..qD.|
000031B0: 8D 31 31 30 3A 8B 4A 42 B2 31 A7 34 34 33 30 00 |.110:.JB.1.4430.|
000031C0: DA 71 4E 11 8D 32 37 30 3A E5 44 43 2C 58 AD 4D |.qN..270:.DC,X.M|
000031D0: 4F 2C 59 3A 58 B2 58 AD 4D 4F 00 03 72 58 11 E0 |O,Y:X.X.MO..rX..|
000031E0: 31 2C 30 2C 32 34 2C 22 45 4E 54 45 52 20 4C 4F |1,0,24,"ENTER LO|
000031F0: 57 45 52 20 52 49 47 48 54 20 43 4F 52 4E 45 52 |WER RIGHT CORNER|
00003200: 22 2C 31 00 17 72 62 11 8D 31 31 30 3A 8B 4A 42 |",1..rb..110:.JB|
00003210: B2 31 A7 34 34 36 30 00 59 72 6C 11 58 4C B2 CE |.1.4460.Yrl.XL..|
00003220: 05 28 38 2C 30 29 3A 59 4C B2 CE 05 28 38 2C 31 |.(8,0):YL...(8,1|
00003230: 29 3A 58 4C B2 58 4C AB 31 33 3A 59 4C B2 59 4C |):XL.XL.13:YL.YL|
00003240: AB 34 30 3A E5 44 43 2C 58 4C AD 4D 4F 2C 59 4C |.40:.DC,XL.MO,YL|
00003250: 3A 58 4C B2 58 4C AD 4D 4F 00 68 72 76 11 8B 4D |:XL.XL.MO.hrv..M|
00003260: 4F B2 31 A7 34 35 30 30 00 92 72 80 11 43 53 B2 |O.1.4500..r..CS.|
00003270: B5 28 28 B6 28 58 AB 58 4C 29 AA 31 29 AD 34 AA |.((.(X.XL).1).4.|
00003280: 2E 39 39 29 AC 28 B6 28 59 AB 59 4C 29 AA 31 29 |.99).(.(Y.YL).1)|
00003290: AA 34 00 9C 72 8A 11 89 34 35 31 30 00 C6 72 94 |.4..r...4510..r.|
000032A0: 11 43 53 B2 B5 28 28 B6 28 58 AB 58 4C 29 AA 31 |.CS..((.(X.XL).1|
000032B0: 29 AD 38 AA 2E 39 39 29 AC 28 B6 28 59 AB 59 4C |).8..99).(.(Y.YL|
000032C0: 29 AA 31 29 AA 34 00 DE 72 9E 11 8B 43 53 B1 32 |).1).4..r...CS.2|
000032D0: 35 35 A7 8D 34 36 32 30 3A 89 34 34 31 30 00 F1 |55..4620:.4410..|
000032E0: 72 A8 11 E4 53 53 24 2C 58 2C 59 2C 58 4C 2C 59 |r...SS$,X,Y,XL,Y|
000032F0: 4C 00 21 73 B2 11 E0 31 2C 30 2C 32 34 2C 22 4C |L.!s...1,0,24,"L|
00003300: 4F 43 41 54 45 20 55 50 50 45 52 2D 4C 45 46 54 |OCATE UPPER-LEFT|
00003310: 20 43 4F 50 59 20 50 4F 53 49 54 49 4F 4E 22 2C | COPY POSITION",|
00003320: 31 00 2A 73 BC 11 8D 31 31 30 00 3A 73 C6 11 8D |1.*s...110.:s...|
00003330: 32 37 30 3A 58 B2 58 AD 4D 4F 00 47 73 D0 11 E3 |270:X.X.MO.Gs...|
00003340: 53 53 24 2C 58 2C 59 00 4F 73 DA 11 8D 32 30 00 |SS$,X,Y.Os...20.|
00003350: 86 73 E4 11 43 31 B2 31 3A 4C B2 31 3A E0 31 2C |.s..C1.1:L.1:.1,|
00003360: 30 2C 32 34 2C 22 41 47 41 49 4E 3F 20 20 28 59 |0,24,"AGAIN? (Y|
00003370: 20 3C 3D 20 20 4E 29 20 20 20 20 20 20 22 2C 31 | <= N) ",1|
00003380: 3A 8D 33 30 33 30 00 8E 73 EE 11 8D 32 30 00 9D |:.3030..s...20..|
00003390: 73 F8 11 8B 4C B2 31 A7 89 34 35 33 30 00 A3 73 |s...L.1..4530..s|
000033A0: 02 12 8E 00 D3 73 0C 12 E0 31 2C 30 2C 32 34 2C |.....s...1,0,24,|
000033B0: 22 41 52 45 41 20 43 4F 50 49 45 44 20 54 4F 4F |"AREA COPIED TOO|
000033C0: 20 4C 41 52 47 45 2D 54 52 59 20 41 47 41 49 4E | LARGE-TRY AGAIN|
000033D0: 22 2C 31 00 09 74 16 12 43 53 24 B2 22 20 22 AA |",1..t..CS$." ".|
000033E0: C4 28 B5 28 28 43 53 AD 32 35 35 29 AC 31 30 30 |.(.((CS.255).100|
000033F0: AA 2E 35 29 29 AA 22 25 20 22 3A E0 31 2C 33 33 |..5))."% ":.1,33|
00003400: 2C 32 34 2C 43 53 24 2C 31 00 11 74 20 12 FE 0B |,24,CS$,1..t ...|
00003410: 35 00 19 74 2A 12 8D 32 30 00 1F 74 34 12 8E 00 |5..t*..20..t4...|
00003420: 5A 74 3E 12 8F 20 53 43 52 45 45 4E 20 44 55 4D |Zt>.. SCREEN DUM|
00003430: 50 20 54 4F 20 50 52 49 4E 54 45 52 3A 20 46 52 |P TO PRINTER: FR|
00003440: 4F 4D 20 42 52 55 43 45 20 42 4F 57 44 45 4E 20 |OM BRUCE BOWDEN |
00003450: 48 45 55 52 49 53 54 49 43 53 00 64 74 48 12 FE |HEURISTICS.dtH..|
00003460: 07 38 2C 30 00 9D 74 52 12 E0 31 2C 30 2C 32 34 |.8,0..tR..1,0,24|
00003470: 2C 22 54 41 4B 45 53 20 41 42 4F 55 54 20 31 30 |,"TAKES ABOUT 10|
00003480: 20 4D 49 4E 55 54 45 53 21 20 20 43 4F 4E 54 49 | MINUTES! CONTI|
00003490: 4E 55 45 3F 20 28 59 2F 4E 29 22 2C 31 00 A6 74 |NUE? (Y/N)",1..t|
000034A0: 5C 12 A1 F9 41 24 00 AE 74 66 12 8D 32 30 00 C2 |\...A$..tf..20..|
000034B0: 74 70 12 8B 41 24 B2 22 4E 22 A7 FE 07 38 2C 31 |tp..A$."N"...8,1|
000034C0: 3A 8E 00 D5 74 7A 12 8B 41 24 B3 B1 22 59 22 A7 |:...tz..A$.."Y".|
000034D0: 89 34 36 39 30 00 0C 75 84 12 E0 31 2C 30 2C 32 |.4690..u...1,0,2|
000034E0: 34 2C 22 53 43 52 45 45 4E 20 57 49 4C 4C 20 42 |4,"SCREEN WILL B|
000034F0: 4C 41 4E 4B 20 46 4F 52 20 53 50 45 45 44 22 2C |LANK FOR SPEED",|
00003500: 31 3A FE 0B 35 3A 8D 32 30 3A FE 25 00 26 75 8E |1:..5:.20:.%.&u.|
00003510: 12 9F 33 2C 34 3A 81 58 31 B2 38 35 31 31 A4 38 |..3,4:.X1.8511.8|
00003520: 31 39 39 A9 AB 38 00 5A 75 98 12 81 59 31 B2 58 |199..8.Zu...Y1.X|
00003530: 31 A4 31 36 31 39 31 AB 38 AC 28 38 AB B5 28 28 |1.16191.8.(8..((|
00003540: 58 31 AB 38 31 39 31 29 AD 34 30 AA 2E 35 29 29 |X1.8191).40..5))|
00003550: A9 33 32 30 3A 41 24 B2 22 22 00 89 75 A2 12 81 |.320:A$.""..u...|
00003560: 5A 31 B2 59 31 AB 37 A4 59 31 3A 57 57 B2 C2 28 |Z1.Y1.7.Y1:WW..(|
00003570: 5A 31 29 B0 31 32 38 3A 8B C2 28 5A 31 29 B2 31 |Z1).128:..(Z1).1|
00003580: 32 38 A7 57 57 B2 31 39 32 00 AD 75 AC 12 41 24 |28.WW.192..u..A$|
00003590: B2 41 24 AA C7 28 57 57 29 3A 82 3A 98 33 2C C7 |.A$..(WW):.:.3,.|
000035A0: 28 38 29 41 24 3B 3A 82 3A 98 33 3A 82 00 C0 75 |(8)A$;:.:.3:...u|
000035B0: B6 12 98 33 2C C7 28 31 35 29 3A A0 33 3A FE 26 |...3,.(15):.3:.&|
000035C0: 00 CA 75 C0 12 FE 07 38 2C 31 00 D0 75 CA 12 8E |..u....8,1..u...|
000035D0: 00 E0 75 D4 12 8F 20 45 58 50 41 4E 53 49 4F 4E |..u... EXPANSION|
000035E0: 00 E6 75 DE 12 8E 00 FC 75 E8 12 FE 06 38 2C 31 |..u.....u....8,1|
000035F0: 37 33 2C 31 34 30 3A FE 07 38 2C 31 00 09 76 F2 |73,140:..8,1..v.|
00003600: 12 E6 31 36 30 2C 31 30 30 00 3F 76 FC 12 41 24 |..160,100.?v..A$|
00003610: B2 C4 28 45 52 29 AA 22 20 20 22 AA D3 28 45 52 |..(ER)." "..(ER|
00003620: 29 AA 22 20 45 52 52 4F 52 20 49 4E 22 AA C4 28 |)." ERROR IN"..(|
00003630: 45 4C 29 3A 8B 45 52 B2 33 30 A7 34 30 38 30 00 |EL):.ER.30.4080.|
00003640: 5E 76 06 13 E0 31 2C 30 2C 32 34 2C 41 24 2C 31 |^v...1,0,24,A$,1|
00003650: 3A FE 0B 35 3A 8D 32 30 3A D6 34 38 38 30 00 64 |:..5:.20:.4880.d|
00003660: 76 10 13 8E 00 00 00 |v...... |
.@.@..W4860:IX.1:IY.1:.1540.V@...1,0,24,
"
",0:..H@....8,.00,.IY:..Z@(...8,.IX,.IY
:...@2...8,.IX,.00:...@<...8,.IX,.IY:...
@F...8,.00,.IY:..B@P...8,.IX,.IY:..T@Z..
.8,.IX,.00:...@D...8,.IX,.IY:...AN.JB.0:
.T.1.20:J2.O(2):..(AX..A$:J2.O(2):.A$.."
"..210:.J2.0.120.IA...J2.30,40,50,60,70,
80,90,100.^A...(J2.128).JB.1:..GA...120.
.A .JB.0:.T.1.30:J2.O(2):...A...A$:J2.O(
2):.J2.0.A$."".170..A...(J2.128).JB.1:..
JA...A$.".".JB.1:..PAH....AR.FB.0:.A$.".
"..70:...A...A$."."..30:...B...A$."."..5
0:...B...A$."."..90:..2B...A$.".".J2.128
:..8B....`B..X.N.(8,0):Y.N.(8,1):X.X.13:
Y.Y.40:..UB...1,1:X..(0):DC.1..B"..I.1.8
:.X:.I,G(X):.:.I.1.2:.PX(I),PY(I):..ZB,.
.133,137,134,138,135,139,136,140,.79,1.2
8,1.6,.625..B6..16,3,6,7,8,9,13,4."C@..
CIRCLE,COLOR,LINE,ALTERNATE,BOX,PAINT,DR
AW.QCJ..ANGLE,POLYGON,OVAL,ALTERNATE,ARC
,CLR,QUIT..CT.. SAVE,LOAD,OFF,ALTERNATE,
COPY,PRINT-OUT,EXPANSION..C^.Q.24:J.0..C
H..SN$(22),S$(22),DU(320):. SN$ IS THE F
UNCTION NAME, S$ IS THE SPRITE STR$..DR.
.I.0.7:.C(I):.:. C() ARE THE SPRITE COLO
RS.....D|..I.1.7:.SN$(I.J.7):..7D...430.
VD...:.Z.1.8:A.10.(.(.(0).36)).OD....Z,,
,Z.1:..Z,A#4:.Z..D...I.1.7:.T.0.20:..S$(
0),I:.:.:.1430.OD..CC.M(1):.1,(M(0)):.I.
1.7:X.0:Y.2:.1,0,1,SN$(I.J.7),1..D...1,0
,0,"......",0..DB..1,0,2,"......",0..EL.
..I,0:..I,0#0.1EV..A$(I),X,Y,X.23,Y.20:.
A$,50,100.LE....A$(I),I:..I,X.Q,Y.50.IE.
...I,1,C(I),0,0,0,0:X.X.Q..E...530:. 250
TO 270 MOVES 'EM SLOWLY INSTEAD......E.
..Z.1.I.25.CE....I,1;150:.Z:.I:.540.YE..
..I,I.50.14;122:...E...I.1.7:..(I),S$(I.
J.7):.:.1,1..F&.. FORT=1TO2500:NEXT.3F0
.. PRINT"...PRESS ANY KEY".=F:..1,CC.ZF
D.. 0,0,0," ",0.WFN.. 0,0,1,"
",0..FX.. 0,0,2,"
",0:.J.1..690..FB.. GETA$:IFA$=""THEN3
00..FL.. PRINT"......................."
..FV.. 1,11,10,11,10,0..G....11,08:.,11,
12.11,20.0G..., 1,10.08,10:.,14,10.20,10
.PG....8,0 :.A$(0),0,0,0.23,0.20.{G....A
$(0),8:..8,24,50:..8,1,C(0),0,0,0,0..G..
...G...1,26,0,"F1 TO CONTINUE",1:.J.1.J.
2.730.KG...1,0,20,"USE JOYSTICK #2"..GF.
.1,0,21,"TO SELECT OPTION. PRESS.2HP..1
,0,22,"FIREBUTTON TO LEARN ABOUT
THE OPTION".LHZ..A$:.210:.A$.".".
1440.BH..J2.O(2):.J2.0.730..H...".......
................"..H...A$:.A$.".".1440..
H..IX.3:IY.3:J2.O(2):.J2.0.760..H...(J2.
128)..:.1,26,0,"F1 TO CONTINUE",1:.820:.
880..I...J2.30,40,50,60,70,80,90,100.FI
..: IFSN=7ANDJ=0THENFORT=1TO500:NEXT:PR
INT".":GOTO150.OI*..760.\I4..:."=>";.{I>
.CL.N.(1):.CL.0.J2.J2.128:...IH..I.1.4:C
L.N.(1):.T.1.10:.:...IR.CL.CL.128.CI\..I
.0.7:.CL.2.I.SN.I.1.KIF..:...JP..1,0,20,
"=>":.1,4,20,SN$(SN.J.7),0:.J.0..SN.960,
1130,1000,1080,1040,1060,1020.LJZ..J.1..
SN.1100,980,1160,1080,1180,1260,1280.|J.
..J.2..SN.1220,1240,1300,1080,1330,1390,
1360..J...1,0,21,A$,0:.1,0,22,B$:.1,0,23
,C$..J.....J..K.0:.EJ..K.K.1:.K.3.K.0.QJ
...K:.940..J..A$." CREATES REGULAR CIRC
LES":.1420..KJ...*KT.A$." CREATES REGUL
AR POLYGONS":.1420.0K....QK..A$." CONNE
CT POINTS WITH":B$." STRAIGHT LINES":C$
."":D$."".WK.... K..A$." ALLOWS FREEHAN
D DRAWING":.1420..K.....L..A$." DRAWS S
QUARES AND":B$." RECTANGLES WHICH":C$."
MAY BE FILLED WITH COLOR":D$.""..L....
0L$.A$." FILLS SHAPES WITH COLOR":.1420
.6L....AL8.A$." SELECTS ALTERNATE OPTIO
NS":.1420.GLB....LL.A$." ALLOWS YOU TO
DRAW BOXES,":B$." OVALS, AND POLYGONS A
T".PLV.C$." AN ANGLE YOU SPECIFY":D$.""
.VL`....LJ.A$." CHANGE DRAWING COLOR"..
MT.B$." OR THE PRESELECTED COLOR CHOICE
S":C$."":D$."".4M~...CM..A$." FOR DRAWI
NG OVALS OR ELLIPSES":.1420.IM.....M..A$
." CREATES SECTIONS OF":B$." CIRCLES A
ND ARCS":C$."":D$.""..M....UM..A$." LEA
VE THE PROGRAM":.1420..M.....ND.A$." SA
VES A SCREEN TO DISK":.1420..NN...3NX.A$
." LOADS A SCREEN FROM DISK":.1420.9N..
..\N..A$." CLEARS THE SCREEN":.1420.BN.
....N..A$." LEAVE THE PROGRAM":.1420..N
.....N..A$." TURNS OFF THE OPTIONS FOR.
.N..B$." A NEATER SCREEN DISPLAY":C$.""
:D$.""..N(....O2.A$." COPIES A SMALL PO
RTION OF".?O<.B$." THE SCREEN TO ANOTHE
R LOCATION":C$."":D$."".EOF...KOP.A$."
RESERVED FOR FUTURE SYSTEM"..OZ.B$." EX
PANSION":C$."":D$.""..OD....ON.A$." TRA
NSFERS THE SCREEN TO".YOX.B$." YOUR PRI
NTER":C$."":D$.""..O.....O..B$."":C$."":
D$."":...P....1:J.J.1:..8,0#0:..8,24,50:
.380.-P ..J.0.J.1.400.WP...MO.2..".":.3,
1:.I.1.7:..I,0:.:.0:J.0..P...MO.1..".":.
1,1:.I.1.7:..I,0:.:.0:J.0..P...I.1.7:..S
$(I),I:.:.1520:FX.173:FY.140..PH...8,1.E
PR..110:.1500..P...JB.1.:.20:.2050:.1520
..P...1490..Q...1,27,24,"SELECT OPTION",
1:IX.5:IY.0:..8,176,223.DQ...I.1.7:..I,I
.44,224:..I,1,,0:.:..KQ... SET MULTI OR
HIRES, INSTRUCTIONS..Q...MO=1:COLOR0,2:C
OLOR1,1:COLOR2,7:COLOR3,3:COLOR4,15:COLO
R5,2:GOTO27:REM....THIS IS FOR DEBUGGING
, ADD A REM TO THE FRONT WHEN DONE..R...
.2,2:.0,2:.4,7:."..".9R"..".....DOODLE P
ROGRAM BY A. SCOT CULLEN".HR,..".THIS PR
OGRAM WILL ENABLE YOU TO CREATE"..R6.."D
RAWINGS AND ART ON YOUR SCREEN."..R8..".
USE JOYSTICK PORT #2. FOR MOST OPTIONS"
:."THE CURSOR KEYS WITH F7 CAN ALSO BE U
SED".7S@..".YOU WILL HAVE YOUR CHOICE OF
TWO":."OPERATING MODES. THESE ARE:..".
XSJ..". 1 .HIGH-RESOLUTION (FINER LINES
IN ONE".22)"COLOR ONLY)".AST..".. 2 .MUL
TI-COLOR (THREE COLORS AT ONCE".21)"
WITH WIDER LINES)..S^.."..PLEASE ENTER Y
OUR CHOICE(. 1 . OR . 2 .)"..TH..A$:.A$.
."1".A$.."2".1640."TR.MO.E(A$):.MO.8T|..
MO..1.MO..2.1630.QT...T.1.500:.:."......
".XT...".1. BLACK .1. BLACK ."
..T...".2. WHITE .2. WHITE .".
FT...".3. RED .3. RED ."..
T...".4. CYAN .4. CYAN ."..U
...".5. PURPLE .5. PURPLE .".;UB
..".6. GREEN .6. GREEN .".BUL.
.".7. BLUE .7. BLUE ."..UV..
".8. YELLOW .8. YELLOW ."..U..."
.9. ORANGE .9. ORANGE .".WU...".
10. BROWN .10. BROWN ."..U...".1
1. LT. RED .11. LT. RED .".%V...".12
. DK. GRAY .12. DK. GRAY .".LV...".13.
MED. GRAY .13. MED. GRAY .".SV...".14.
LT. GREEN .14. LT. GREEN ."..V...".15. L
T. BLUE .15. LT. BLUE .".BV&..".16. LT
. GRAY .16. LT. GRAY .."..V0.."..S.ELE
CT YOUR OWN COLORS OR USE"..W:..".P.RESE
T COMBINATION (.S.,.P.)?".&WD..A$:.A$."S
".1890.VWN..A$."P"..0,2:.1,1:.2,7:.3,3:.
4,15:.5,2:.280.HWX..A$.."C".1860..WB..".
. "
.NWL..".ENTER CODE FOR SCREEN COLOR
":.2020:.0,CC..WV..CC.1.CC.12..".";..X.
..".ENTER CODE FOR BORDER COLOR ":.2
020:.4,CC.NX...".ENTER CODE FOR FOREGROU
ND COLOR ":.2020:.1,CC..X...MO.2..".ENTE
R CODE FOR MULTICOLOR ONE ":.2020:.2,C
C.DX...MO.2..".ENTER CODE FOR MULTICOLOR
TWO ":.2020:.3,CC..X...".SATISFIED WI
TH YOUR CHOICES .Y/N.?"..Y..."
":.". ".1Y...A$:.A
$."".1980.BYF..A$."N".1890.TYP..A$.."Y".
1980.]YZ..280..Y..."AND PRESS .RETURN.":
.".YOUR CHOICE ....";CC.BY...CC.1.CC.
16.CC...(CC).."TRY AGAIN";CC:.2030.HY...
.QY...830..Y...I.1.7:..I,0:...Z...J.0..S
N.2110,2380,2710,3390,2950,3150,2810:.21
00.PZ ..J.1..SN.3400,3560,3700,3750,4130
,4030,4080:.2100..Z*..J.2..SN.3760,3890,
4340,4390,4400,4670,4820..Z4....Z>.CI.0:
. CIRCLES.KZH..1,0,24,"ENTER CENTER",1:
IX.1:IY.1:..8,FX,FY..ZR.UD$."UP/DOWN":LR
$."LEFT/RIGHT":K.1:L.0..[\..110:.JB.1.21
50..[F..270:.DC,X.MO,Y.-[P..CI.2.2220.N[
Z..1,0,24,"RADIUS DIRECTION",1.P[...1,22
,24,UD$,K:.1,30,24,LR$,L..[...160:.JB.1.
2220. [..K..(K.1):L..(L.1):.2180..[...21
40..[..CX.P(0):CY.P(1).F[...20..[...1,0,
24,"ENTER RADIUS ",1..\J..K.1.IY.1:IX.0:
.CI.2.:.1,13,24,UD$,1.6\T..L.1.IY.0:IX.1
:.CI.2.:.1,13,24,LR$,1.J\...110:.JB.1.22
90.T\...2270.X\...270:FX.X.13:FY.Y.40:.D
C,X.MO,Y..\..RX.P(0):RY.P(1):.20.G\...CI
.2.K.1.K.0:L.1:..8,(CX.MO).13,CY.40:OY.R
Y:.2240..\...CI.1.A1.1.CI.0:...\...K.1.2
360..\$..CI.2...!]..R..(RX.CX):.DC,CX,CY
,R,R.PX(MO):.2370.E]8.R..(RY.CY):.DC,CX,
CY,R.PY(MO),R.K]B...A]L.L.1:..8,0:. COLO
R..]V..1,0,24,"DRAW COLOR <= COLOR CHOI
CE?",1:C1.1:.3030:.L.0.2430..]`.C1.1:.31
60:.K.4.K.0.T]J.DC.K:.DC.2.MO.1.DC.0..]T
...8,1:...^~.CC$."<=COLOR? JOY=N/BUTTON=
Y"..^...MO.2.2520.$^...1,11,24,CC$,1.8^.
.BG.M(0):FG.M(1).T^...1,0,24,"
.",1.H^...160:.JB.1.2690..^..FG.FG.1:.FG
.16.FG.0..^D..BG.FG.FG.FG.1..^N..0,BG:.1
,FG:.2450..^X..20..^...1,0,24,"CHANGE WH
ICH=>",1:..8,165,230:..8,1:IX.2:IY.0.._.
..K.1.3:.K,K.33.26,192,K.33.58,199,,1:.:
.._...110:QW.(N.(8,0)).@_...QW..129.2690
.X_...QW..197.WQ.1:.2600.P_...QW..261.WQ
.2:.2600.Y_..WQ.3.._(..20.._2..WQ,11,24,
CC$,1.._<..WQ,0,24," .",1.M_F..
160:.JB.1...8,1:.2690.._P.CC.M(WQ):CC.CC
.1:.CC.17.CC.1..`Z..WQ.2660,2670,2680:.2
610..`D..1,CC:..#`N..2,CC:../`X..3,CC:..
=`...20:..8,1.C`....O`... LINES..` ..1,0
,24,"ENTER ONE END",1:IX.1:IY.1:..8,FX,F
Y..`...110..`...270:.DC,X.MO,Y.N`..CX.P(
0):CY.P(1):.1,0,24,"ENTER OTHER END",1.W
`H..110..`R..270:FX.X.13:FY.Y.40:.DC,X.M
O,Y..A..RX.P(0):RY.P(1):.20.'A...DC,CX,C
Y.RX,RY.-A....VA....8,FX,FY:..8,1:K.2:D$
(2)."MOVE ":D$(1)."DRAW ":D$(0)."ERASE":
. DRAW..A...(FX.13).MO,FY.40:.1,0,24,D$(
K),1:.1,28,24,"F1 TO RETURN",1.HA..IX.1:
IY.1:J.0..B...A$:.A$."."..1,0,24," "
,0:.1,28,24," ",0:...B"..A$..
""..210:.2880.4B,.J2.O(2):.J2.0.2840.UB6
..J2.30,40,50,60,70,80,90,100..B@..J2.12
8.K.K.1:.2930:.1,0,24,D$(K),1:.T.1.30:J2
.O(2):...BJ..K.2.2840..BT..270:.K.DC,P(0
),P(1).X.MO,Y.QB^.FX.X.13:FY.Y.40..BH..2
840..CR..K.3.K.0:.(N.(8,0).13).MO,N.(8,1
).40. C|.FX.N.(8,0):FY.N.(8,1):..,C... B
OXES.FC...1,0,24,"LOCATE ONE CORNER",1:I
X.1:IY.1:L.1:..8,FX,FY.OC...110..C...270
:.DC,X.MO,Y:CX.X.MO:CY.Y..C...1,0,24,"LO
CATE OPPOSITE CORNER",1.RC...T.1.10:J2.O
(2):.:.110..CB..270::FX.X.13:FY.Y.40:.DC
,X.MO,Y:K.1.0DL.RX.X.MO:RY.Y:.1,0,24,"FI
LL? (Y <= N) ",1.FDV..I.1.50:J2.
O(2):..]D..J2.O(2):.J2.0.3040.ND...J2.12
8.3090..D...J2.7.L.1:.1,11,24,"<= ",1:.3
030..D...J2.3.L.0:.1,11,24," =>",1:.3030
.BD...3030.SD...C1.1.C1.0:...D...MO.2.L.
1..3160:.3120..D&.K.DC..E0..K.4.K.0..E:.
.K,CX,CY,RX,RY,AN,L.%ED..20:..5EN.L.0:.
PAINT.YEX.K.1:IX.1:IY.1:..8,FX,FY:. PAIN
T..EB..1,0,24,"SELECT COLOR=JOY--QUIT BU
TTON=>",1..EL.V.250:W.192:Z.319:H.199:.K
.5.K.1..EV..K.4.(K.2.MO.1)..0,V.MO,W,Z.M
O,H,0,1:.1,V.MO,W,Z.MO,H,0,0:.3220..F...
K,250.MO ,192,319.MO,199,0,1.,F...A$:.A
$.".".J2.128.JF...A$."".J2.O(2):.J2.0.32
10.`F...J2.128..20:.3260.YF..K.K.1:.MO.1
..K.3.K.1..F...3180..F...C1.1.C1.0:...FF
..20:.L.1...JFP..1,0,24,"SELECT REGION T
O PAINT",1.SFZ..110..F...270:FX.X.13:FY.
Y.40:X.X.MO..G...MO.1.K.2.:.0,X,Y,0:.334
0.)G...K.4..0,X,Y,0:.3340.6G...K,X,Y,1.N
G..RX.P(0):RY.P(1):.20..G...1,0,24,"AGAI
N? (Y <= N) ",1:C1.1:L.1:.3030..G
..L.1.3280..G*.RX.P(0):RY.P(1):.20..G4..
..G>.J.1:.I.1.7:..S$(I.J.7),I:.:.:. CHAN
GE OPTIONS..GH.. ANGLE..HR...S$(5),1:..S
$(9),2:..S$(10),3.(H\...8,0:..8,4.44,223
.9HF...1,3.44,224.JHP...2,4.44,224.[HZ..
.3,5.44,224.NH...T.1.3:..T,1:...H...1,0,
24,"ANGLE (0 - 360)?",1:B$."":.3580:AN.S
I..H...20..H....8,1.FH..IY.0:IX.5:.110..
H...830:.SN.1.SN.3.3500..H...T.1.3:..T,0
:...IJ..SN.2950,3560,3700..IT.AN.0:.3390
..I....8I..CI.1:.2120:. POLYGONS.OI...1,
0,24,"NUMBER OF SIDES?",1:L.0:B$."":.358
0:.3640..I...A$:.A$."".3580..I...A$.G(13
).3630..I...A$."0".A$."9".3580.QI..L.L.1
:.1,17.L,24,A$,1:B$.B$.A$..I$..3580..I..
SI.E(B$):...I8..SI..1....JB..K.1.3670.EJ
L.R..(RX.CX):.DC,CX,CY,R,R.PX(MO),270,27
0,180.AN,360.SI:.3680.YJV.R..(RY.CY):.DC
,CX,CY,R.PY(MO),R,,,180.AN,360.SI..J`..2
0..JJ....JT.. OVALS..J~.CI.2:.2120..J...
A1.1.A1.0:..XJ...DC,CX,CY,.(CX.RX),.(OY.
CY),,,AN..J.....J..J.2:.I.1.7:..S$(I.J.7
),I:.:...K... SAVE..K..L.0:CT.0:F$."".UK
D..1,0,24,"FILENAME?",1:.1,9,24,"
",0:F$."".^KN...A$.QKX..A$.G(13).383
0..K...A$.G(20).3770..K..F$.F$.A$:.1,10.
CT,24,A$,1:CT.CT.1:.3790..K..T$."01.".F$
..K....(T$),D0,U8,B0,P7168.P8193..K..T$.
"02.".F$..L....(T$),D0,U8,B0,P8193.P1638
5."L...1,0,0,DS$,1.0L(...5:.20:..;L2.. L
OAD.ZL<.L.0:CT.0:DV.8::F$."":T$.""..LF..
1,0,24,"FILENAME?",1:.1,9,24,"
",0:F$.""..LP...A$..LZ..A$.G(13).3960.A
LD..A$.G(20).3900..LN.F$.F$.A$:.1,10.CT,
24,A$,1:CT.CT.1:.3920..LX.T$."01.".F$..M
....(T$),D0,U8,B0,P7168.'M..T$."02.".F$.
AM....(T$),D0,U8,B0,P8193.TM ..1,26,24,D
S$,1.BM....5:.20:...M..J.0:.I.1.7:..S$(I
.J.7),I:.:...M... CLEAR SCREEN..MH..1,0,
24,"ARE YOU SURE? (Y/N)",1.DMR...A$.RM.
..A$."Y"....M...20:...M... QUIT..N...1,0
,24,"ARE YOU SURE? (Y/N)",1..N....A$.RN
...A$."Y"..0,12:.1,14:.2,7:.3,6:.4,14:.5
,14:.6,1:.0:.".":..\N...20:..FN".. ARC..
N,.A1.1:..S$(10),2:..S$(1),1:..1,150,224
:..2,202,224..N6...8,176,223:..1,1:..2,1
:..8,1.QN@.IY.0:IX.5:.110..NJ..830:.SN.2
110,3700.(OT.A1.0:.1,0,24,"JOYBUTTON TO
START/STOP LINE",1:.SN.4190,4280.6O^..K.
1.4240.MOH.R..(RX.CX):.M.0.380.2:.K.DC,C
X,CY,R,R.PX(MO),M,M.2..OR.X.P(0):Y.P(1):
..8,X.MO.13,Y.40:.T.1.100:...O|.J2.O(2):
.J2.128.K..(K.1).JO...:.20:.3390:...P..R
..(RY.CY):.M.0.380.2:.L.DC,CX,CY,R.PY(MO
),R,M,M.2./P..X.P(0):Y.P(1):..8,X.MO.13,
Y.40:.T.1.100:..LP..J2.O(2):.J2.128.L..(
L.1).^P...:.20:.3390:..VP..K.0:A1.0:.M.0
.380.2..PB..DC.K,CX,CY,.(CX.RX),.(OY.CY)
,M,M.2,AN.OPL.X.P(0):Y.P(1):..8,X.MO.13:
Y.40:.T.1.100:...PV.J2.O(2):.J2.128.K..(
K.1)..P...:.20:.3390:...Q.....Q... OFF.!
Q...I.1.8:..I,0:..*Q...110.=Q...I.1.8:..
I,1:..CQ....DQ&.J.0:.I.1.7:..S$(I.J.7),I
:.:..OQ0.. COPY..Q:..1,0,24,"ENTER UPPER
LEFT CORNER",1:IX.1:IY.1:..8,FX,FY..QD.
.110:.JB.1.4430.ZQN..270:.DC,X.MO,Y:X.X.
MO..RX..1,0,24,"ENTER LOWER RIGHT CORNER
",1..RB..110:.JB.1.4460.YRL.XL.N.(8,0):Y
L.N.(8,1):XL.XL.13:YL.YL.40:.DC,XL.MO,YL
:XL.XL.MO.HRV..MO.1.4500..R..CS..((.(X.X
L).1).4..99).(.(Y.YL).1).4..R...4510.FR.
.CS..((.(X.XL).1).8..99).(.(Y.YL).1).4..
R...CS.255..4620:.4410..R...SS$,X,Y,XL,Y
L.!S...1,0,24,"LOCATE UPPER-LEFT COPY PO
SITION",1.*S...110.:SF..270:X.X.MO.GSP..
SS$,X,Y.OSZ..20..S..C1.1:L.1:.1,0,24,"AG
AIN? (Y <= N) ",1:.3030..S...20..
S...L.1..4530..S....SS...1,0,24,"AREA CO
PIED TOO LARGE-TRY AGAIN",1..T..CS$." ".
D(.((CS.255).100..5))."% ":.1,33,24,CS$,
1..T ...5..T*..20..T4...ZT>.. SCREEN DUM
P TO PRINTER: FROM BRUCE BOWDEN HEURISTI
CS.DTH...8,0..TR..1,0,24,"TAKES ABOUT 10
MINUTES! CONTINUE? (Y/N)",1..T\...A$..
TF..20.BTP..A$."N"...8,1:..UTZ..A$.."Y".
.4690..U...1,0,24,"SCREEN WILL BLANK FOR
SPEED",1:..5:.20:.%.&U...3,4:.X1.8511.8
199..8.ZU...Y1.X1.16191.8.(8..((X1.8191)
.40..5)).320:A$.""..U...Z1.Y1.7.Y1:WW.B(
Z1).128:.B(Z1).128.WW.192..U..A$.A$.G(WW
):.:.3,G(8)A$;:.:.3:...U...3,G(15): 3:.&
.JU....8,1.PUJ....UT.. EXPANSION..U.....
U....8,173,140:..8,1..V...160,100.?V..A$
.D(ER)." ".S(ER)." ERROR IN".D(EL):.ER.
30.4080.^V...1,0,24,A$,1:..5:.20:V4880.D
V......
> CLICK IMAGE PREVIEW FOR FULL MODAL