NEW DRAW N PAINT
FILE INFORMATION
FILENAME(S): NEW DRAW N PAINT
FILE TYPE(S): PRG
FILE SIZE: 14.7K
FIRST SEEN: 2025-11-30 21:07:27
APPEARS ON: 1 disk(s)
FILE HASH
03129ac56a7e840790610a44c21bb177927923cc111c17179c31b082675f6ea0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VCGN C 128 D0011 | NEW DRAW N PAINT | PRG | DuncanTwain | 17 | 1 | 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 85 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 4C |COPY,PRINT-OUT,L|
00000380: 41 42 45 4C 53 00 92 43 5E 01 51 B2 32 34 3A 4A |ABELS..C^.Q.24:J|
00000390: B2 30 00 E0 43 68 01 86 53 4E 24 28 32 32 29 2C |.0..Ch..SN$(22),|
000003A0: 53 24 28 32 32 29 2C 44 55 28 33 32 30 29 3A 8F |S$(22),DU(320):.|
000003B0: 20 53 4E 24 20 49 53 20 54 48 45 20 46 55 4E 43 | SN$ IS THE FUNC|
000003C0: 54 49 4F 4E 20 4E 41 4D 45 2C 20 53 24 20 49 53 |TION NAME, S$ IS|
000003D0: 20 54 48 45 20 53 50 52 49 54 45 20 53 54 52 24 | THE SPRITE STR$|
000003E0: 00 12 44 72 01 81 49 B2 30 A4 37 3A 87 43 28 49 |..Dr..I.0.7:.C(I|
000003F0: 29 3A 82 3A 8F 20 43 28 29 20 41 52 45 20 54 48 |):.:. C() ARE TH|
00000400: 45 20 53 50 52 49 54 45 20 43 4F 4C 4F 52 53 2E |E SPRITE COLORS.|
00000410: 2E 2E 00 2B 44 7C 01 81 49 B2 31 A4 37 3A 87 53 |...+D|..I.1.7:.S|
00000420: 4E 24 28 49 AA 4A AC 37 29 3A 82 00 34 44 86 01 |N$(I.J.7):..4D..|
00000430: 89 34 33 30 00 53 44 90 01 E8 3A 81 5A B2 31 A4 |.430.SD...:.Z.1.|
00000440: 38 3A 41 B2 31 30 AC 28 B5 28 BB 28 30 29 AC 33 |8:A.10.(.(.(0).3|
00000450: 36 29 29 00 6C 44 9A 01 FE 07 5A 2C 2C 2C 5A AF |6)).lD....Z,,,Z.|
00000460: 31 3A FE 06 5A 2C 41 23 34 3A 82 5A 00 93 44 A4 |1:..Z,A#4:.Z..D.|
00000470: 01 81 49 B2 31 A4 37 3A 81 54 B2 30 A4 32 30 3A |..I.1.7:.T.0.20:|
00000480: FE 16 53 24 28 30 29 2C 49 3A 82 3A 82 3A 89 31 |..S$(0),I:.:.:.1|
00000490: 34 33 30 00 CC 44 AE 01 43 43 B2 CD 28 31 29 3A |430..D..CC..(1):|
000004A0: E7 31 2C 28 CD 28 30 29 29 3A 81 49 B2 31 A4 37 |.1,(.(0)):.I.1.7|
000004B0: 3A 58 B2 30 3A 59 B2 32 3A E0 31 2C 30 2C 31 2C |:X.0:Y.2:.1,0,1,|
000004C0: 53 4E 24 28 49 AA 4A AC 37 29 2C 31 00 E2 44 B8 |SN$(I.J.7),1..D.|
000004D0: 01 E0 31 2C 30 2C 30 2C 22 B9 B9 B9 B9 B9 B9 22 |..1,0,0,"......"|
000004E0: 2C 30 00 F8 44 C2 01 E0 31 2C 30 2C 32 2C 22 B8 |,0..D...1,0,2,".|
000004F0: B8 B8 B8 B8 B8 22 2C 30 00 0A 45 CC 01 FE 07 49 |.....",0..E....I|
00000500: 2C 30 3A FE 06 49 2C 30 23 30 00 2E 45 D6 01 E4 |,0:..I,0#0..E...|
00000510: 41 24 28 49 29 2C 58 2C 59 2C 58 AA 32 33 2C 59 |A$(I),X,Y,X.23,Y|
00000520: AA 32 30 3A E3 41 24 2C 35 30 2C 31 30 30 00 49 |.20:.A$,50,100.I|
00000530: 45 E0 01 FE 16 41 24 28 49 29 2C 49 3A FE 06 49 |E....A$(I),I:..I|
00000540: 2C 58 AA 51 2C 59 AA 35 30 00 66 45 EA 01 FE 07 |,X.Q,Y.50.fE....|
00000550: 49 2C 31 2C 43 28 49 29 2C 30 2C 30 2C 30 2C 30 |I,1,C(I),0,0,0,0|
00000560: 3A 58 B2 58 AA 51 00 99 45 F4 01 89 35 33 30 3A |:X.X.Q..E...530:|
00000570: 8F 20 32 35 30 20 54 4F 20 32 37 30 20 4D 4F 56 |. 250 TO 270 MOV|
00000580: 45 53 20 27 45 4D 20 53 4C 4F 57 4C 59 20 49 4E |ES 'EM SLOWLY IN|
00000590: 53 54 45 41 44 2E 2E 2E 2E 00 A7 45 FE 01 81 5A |STEAD......E...Z|
000005A0: B2 31 A4 49 AC 32 35 00 C0 45 08 02 FE 06 49 2C |.1.I.25..E....I,|
000005B0: 31 3B 31 35 30 3A 82 5A 3A 82 49 3A 89 35 34 30 |1;150:.Z:.I:.540|
000005C0: 00 D6 45 12 02 FE 06 49 2C 49 AC 35 30 AB 31 34 |..E....I,I.50.14|
000005D0: 3B 31 32 32 3A 82 00 F8 45 1C 02 81 49 B2 31 A4 |;122:...E...I.1.|
000005E0: 37 3A FE 16 28 49 29 2C 53 24 28 49 AA 4A AC 37 |7:..(I),S$(I.J.7|
000005F0: 29 3A 82 3A E7 31 2C 31 00 11 46 26 02 8F 20 20 |):.:.1,1..F&.. |
00000600: 46 4F 52 54 3D 31 54 4F 32 35 30 30 3A 4E 45 58 |FORT=1TO2500:NEX|
00000610: 54 00 30 46 30 02 8F 20 20 50 52 49 4E 54 22 11 |T.0F0.. PRINT".|
00000620: 11 11 50 52 45 53 53 20 41 4E 59 20 4B 45 59 22 |..PRESS ANY KEY"|
00000630: 00 3A 46 3A 02 E7 31 2C 43 43 00 57 46 44 02 E0 |.:F:..1,CC.WFD..|
00000640: 20 30 2C 30 2C 30 2C 22 20 20 20 20 20 20 20 20 | 0,0,0," |
00000650: 20 20 20 20 22 2C 30 00 74 46 4E 02 E0 20 30 2C | ",0.tFN.. 0,|
00000660: 30 2C 31 2C 22 20 20 20 20 20 20 20 20 20 20 20 |0,1," |
00000670: 20 22 2C 30 00 9B 46 58 02 E0 20 30 2C 30 2C 32 | ",0..FX.. 0,0,2|
00000680: 2C 22 20 20 20 20 20 20 20 20 20 20 20 20 22 2C |," ",|
00000690: 30 3A 8B 4A B2 31 A7 89 36 39 30 00 B7 46 62 02 |0:.J.1..690..Fb.|
000006A0: 8F 20 20 47 45 54 41 24 3A 49 46 41 24 3D 22 22 |. GETA$:IFA$=""|
000006B0: 54 48 45 4E 33 30 30 00 DD 46 6C 02 8F 20 20 50 |THEN300..Fl.. P|
000006C0: 52 49 4E 54 22 93 11 11 11 11 11 11 11 11 11 11 |RINT"...........|
000006D0: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 F3 46 |............"..F|
000006E0: 76 02 E2 20 31 2C 31 31 2C 31 30 2C 31 31 2C 31 |v.. 1,11,10,11,1|
000006F0: 30 2C 30 00 0D 47 80 02 E5 A4 31 31 2C 30 38 3A |0,0..G....11,08:|
00000700: E5 2C 31 31 2C 31 32 A4 31 31 2C 32 30 00 2D 47 |.,11,12.11,20.-G|
00000710: 8A 02 E5 2C 20 31 2C 31 30 A4 30 38 2C 31 30 3A |..., 1,10.08,10:|
00000720: E5 2C 31 34 2C 31 30 A4 32 30 2C 31 30 00 4D 47 |.,14,10.20,10.MG|
00000730: 94 02 FE 07 38 2C 30 20 3A E4 41 24 28 30 29 2C |....8,0 :.A$(0),|
00000740: 30 2C 30 2C 30 AA 32 33 2C 30 AA 32 30 00 78 47 |0,0,0.23,0.20.xG|
00000750: 9E 02 FE 16 41 24 28 30 29 2C 38 3A FE 06 38 2C |....A$(0),8:..8,|
00000760: 32 34 2C 35 30 3A FE 07 38 2C 31 2C 43 28 30 29 |24,50:..8,1,C(0)|
00000770: 2C 30 2C 30 2C 30 2C 30 00 7E 47 A8 02 E8 00 AA |,0,0,0,0.~G.....|
00000780: 47 B2 02 E0 31 2C 32 36 2C 30 2C 22 46 31 20 54 |G...1,26,0,"F1 T|
00000790: 4F 20 43 4F 4E 54 49 4E 55 45 22 2C 31 3A 8B 4A |O CONTINUE",1:.J|
000007A0: B2 31 B0 4A B2 32 A7 37 33 30 00 C8 47 BC 02 E0 |.1.J.2.730..G...|
000007B0: 31 2C 30 2C 32 30 2C 22 55 53 45 20 4A 4F 59 53 |1,0,20,"USE JOYS|
000007C0: 54 49 43 4B 20 23 32 22 00 EE 47 C6 02 E0 31 2C |TICK #2"..G...1,|
000007D0: 30 2C 32 31 2C 22 54 4F 20 53 45 4C 45 43 54 20 |0,21,"TO SELECT |
000007E0: 4F 50 54 49 4F 4E 2E 20 20 50 52 45 53 53 00 2F |OPTION. PRESS./|
000007F0: 48 D0 02 E0 31 2C 30 2C 32 32 2C 22 46 49 52 45 |H...1,0,22,"FIRE|
00000800: 42 55 54 54 4F 4E 20 54 4F 20 4C 45 41 52 4E 20 |BUTTON TO LEARN |
00000810: 41 42 4F 55 54 20 20 20 20 20 20 20 20 20 20 20 |ABOUT |
00000820: 20 20 20 20 54 48 45 20 4F 50 54 49 4F 4E 22 00 | THE OPTION".|
00000830: 49 48 DA 02 A1 41 24 3A 8D 32 31 30 3A 8B 41 24 |IH...A$:.210:.A$|
00000840: B2 22 85 22 A7 31 34 34 30 00 5F 48 E4 02 4A 32 |.".".1440._H..J2|
00000850: B2 CF 28 32 29 3A 8B 4A 32 B2 30 A7 37 33 30 00 |..(2):.J2.0.730.|
00000860: 7E 48 EE 02 99 22 93 11 11 11 11 11 11 11 11 11 |~H..."..........|
00000870: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 93 |............."..|
00000880: 48 F8 02 A1 41 24 3A 8B 41 24 B2 22 85 22 A7 31 |H...A$:.A$.".".1|
00000890: 34 34 30 00 B3 48 02 03 49 58 B2 33 3A 49 59 B2 |440..H..IX.3:IY.|
000008A0: 33 3A 4A 32 B2 CF 28 32 29 3A 8B 4A 32 B2 30 A7 |3:J2..(2):.J2.0.|
000008B0: 37 36 30 00 E8 48 0C 03 8B 28 4A 32 AF 31 32 38 |760..H...(J2.128|
000008C0: 29 A7 E8 3A E0 31 2C 32 36 2C 30 2C 22 46 31 20 |)..:.1,26,0,"F1 |
000008D0: 54 4F 20 43 4F 4E 54 49 4E 55 45 22 2C 31 3A 8D |TO CONTINUE",1:.|
000008E0: 38 32 30 3A 8D 38 38 30 00 09 49 16 03 91 4A 32 |820:.880..I...J2|
000008F0: 8D 33 30 2C 34 30 2C 35 30 2C 36 30 2C 37 30 2C |.30,40,50,60,70,|
00000900: 38 30 2C 39 30 2C 31 30 30 00 43 49 20 03 8F 3A |80,90,100.CI ..:|
00000910: 20 20 49 46 53 4E 3D 37 41 4E 44 4A 3D 30 54 48 | IFSN=7ANDJ=0TH|
00000920: 45 4E 46 4F 52 54 3D 31 54 4F 35 30 30 3A 4E 45 |ENFORT=1TO500:NE|
00000930: 58 54 3A 50 52 49 4E 54 22 93 22 3A 47 4F 54 4F |XT:PRINT".":GOTO|
00000940: 31 35 30 00 4C 49 2A 03 89 37 36 30 00 59 49 34 |150.LI*..760.YI4|
00000950: 03 99 3A 99 22 3D 3E 22 3B 00 78 49 3E 03 43 4C |..:."=>";.xI>.CL|
00000960: B2 CE 03 28 31 29 3A 8B 43 4C B2 30 A7 4A 32 B2 |...(1):.CL.0.J2.|
00000970: 4A 32 AB 31 32 38 3A 8E 00 98 49 48 03 81 49 B2 |J2.128:...IH..I.|
00000980: 31 A4 34 3A 43 4C B2 CE 03 28 31 29 3A 81 54 B2 |1.4:CL...(1):.T.|
00000990: 31 A4 31 30 3A 82 3A 82 00 A6 49 52 03 43 4C B2 |1.10:.:...IR.CL.|
000009A0: 43 4C AB 31 32 38 00 C0 49 5C 03 81 49 B2 30 A4 |CL.128..I\..I.0.|
000009B0: 37 3A 8B 43 4C B2 32 AE 49 A7 53 4E B2 49 AA 31 |7:.CL.2.I.SN.I.1|
000009C0: 00 C8 49 66 03 82 3A 8E 00 1A 4A 70 03 E0 31 2C |..If..:...Jp..1,|
000009D0: 30 2C 32 30 2C 22 3D 3E 22 3A E0 31 2C 34 2C 32 |0,20,"=>":.1,4,2|
000009E0: 30 2C 53 4E 24 28 53 4E AA 4A AC 37 29 2C 30 3A |0,SN$(SN.J.7),0:|
000009F0: 8B 4A B2 30 A7 91 53 4E 8D 39 36 30 2C 31 31 33 |.J.0..SN.960,113|
00000A00: 30 2C 31 30 30 30 2C 31 30 38 30 2C 31 30 34 30 |0,1000,1080,1040|
00000A10: 2C 31 30 36 30 2C 31 30 32 30 00 49 4A 7A 03 8B |,1060,1020.IJz..|
00000A20: 4A B2 31 A7 91 53 4E 8D 31 31 30 30 2C 39 38 30 |J.1..SN.1100,980|
00000A30: 2C 31 31 36 30 2C 31 30 38 30 2C 31 31 38 30 2C |,1160,1080,1180,|
00000A40: 31 32 36 30 2C 31 32 38 30 00 79 4A 84 03 8B 4A |1260,1280.yJ...J|
00000A50: B2 32 A7 91 53 4E 8D 31 32 32 30 2C 31 32 34 30 |.2..SN.1220,1240|
00000A60: 2C 31 33 30 30 2C 31 30 38 30 2C 31 33 33 30 2C |,1300,1080,1330,|
00000A70: 31 33 39 30 2C 31 33 36 30 00 A0 4A 8E 03 E0 31 |1390,1360..J...1|
00000A80: 2C 30 2C 32 31 2C 41 24 2C 30 3A E0 31 2C 30 2C |,0,21,A$,0:.1,0,|
00000A90: 32 32 2C 42 24 3A E0 31 2C 30 2C 32 33 2C 43 24 |22,B$:.1,0,23,C$|
00000AA0: 00 A6 4A 98 03 8E 00 AF 4A A2 03 4B B2 30 3A 00 |..J.....J..K.0:.|
00000AB0: C2 4A AC 03 4B B2 4B AA 31 3A 8B 4B B2 33 A7 4B |.J..K.K.1:.K.3.K|
00000AC0: B2 30 00 CE 4A B6 03 99 4B 3A 89 39 34 30 00 F7 |.0..J...K:.940..|
00000AD0: 4A C0 03 41 24 B2 22 20 20 43 52 45 41 54 45 53 |J..A$." CREATES|
00000AE0: 20 52 45 47 55 4C 41 52 20 43 49 52 43 4C 45 53 | REGULAR CIRCLES|
00000AF0: 22 3A 8D 31 34 32 30 00 FD 4A CA 03 8E 00 27 4B |":.1420..J....'K|
00000B00: D4 03 41 24 B2 22 20 20 43 52 45 41 54 45 53 20 |..A$." CREATES |
00000B10: 52 45 47 55 4C 41 52 20 50 4F 4C 59 47 4F 4E 53 |REGULAR POLYGONS|
00000B20: 22 3A 8D 31 34 32 30 00 2D 4B DE 03 8E 00 6E 4B |":.1420.-K....nK|
00000B30: E8 03 41 24 B2 22 20 20 43 4F 4E 4E 45 43 54 20 |..A$." CONNECT |
00000B40: 50 4F 49 4E 54 53 20 57 49 54 48 22 3A 42 24 B2 |POINTS WITH":B$.|
00000B50: 22 20 20 53 54 52 41 49 47 48 54 20 4C 49 4E 45 |" STRAIGHT LINE|
00000B60: 53 22 3A 43 24 B2 22 22 3A 44 24 B2 22 22 00 74 |S":C$."":D$."".t|
00000B70: 4B F2 03 8E 00 9D 4B FC 03 41 24 B2 22 20 20 41 |K.....K..A$." A|
00000B80: 4C 4C 4F 57 53 20 46 52 45 45 48 41 4E 44 20 44 |LLOWS FREEHAND D|
00000B90: 52 41 57 49 4E 47 22 3A 8D 31 34 32 30 00 A3 4B |RAWING":.1420..K|
00000BA0: 06 04 8E 00 FE 4B 10 04 41 24 B2 22 20 20 44 52 |.....K..A$." DR|
00000BB0: 41 57 53 20 53 51 55 41 52 45 53 20 41 4E 44 22 |AWS SQUARES AND"|
00000BC0: 3A 42 24 B2 22 20 20 52 45 43 54 41 4E 47 4C 45 |:B$." RECTANGLE|
00000BD0: 53 20 57 48 49 43 48 22 3A 43 24 B2 22 20 20 4D |S WHICH":C$." M|
00000BE0: 41 59 20 42 45 A0 46 49 4C 4C 45 44 20 57 49 54 |AY BE.FILLED WIT|
00000BF0: 48 20 43 4F 4C 4F 52 22 3A 44 24 B2 22 22 00 04 |H COLOR":D$.""..|
00000C00: 4C 1A 04 8E 00 2D 4C 24 04 41 24 B2 22 20 20 46 |L....-L$.A$." F|
00000C10: 49 4C 4C 53 20 53 48 41 50 45 53 20 57 49 54 48 |ILLS SHAPES WITH|
00000C20: 20 43 4F 4C 4F 52 22 3A 8D 31 34 32 30 00 33 4C | COLOR":.1420.3L|
00000C30: 2E 04 8E 00 5E 4C 38 04 41 24 B2 22 20 20 53 45 |....^L8.A$." SE|
00000C40: 4C 45 43 54 53 20 41 4C 54 45 52 4E 41 54 45 20 |LECTS ALTERNATE |
00000C50: 4F 50 54 49 4F 4E 53 22 3A 8D 31 34 32 30 00 64 |OPTIONS":.1420.d|
00000C60: 4C 42 04 8E 00 A7 4C 4C 04 41 24 B2 22 20 20 41 |LB....LL.A$." A|
00000C70: 4C 4C 4F 57 53 20 59 4F 55 20 54 4F 20 44 52 41 |LLOWS YOU TO DRA|
00000C80: 57 20 42 4F 58 45 53 2C 22 3A 42 24 B2 22 20 20 |W BOXES,":B$." |
00000C90: 4F 56 41 4C 53 2C 20 41 4E 44 20 50 4F 4C 59 47 |OVALS, AND POLYG|
00000CA0: 4F 4E 53 20 41 54 22 00 CD 4C 56 04 43 24 B2 22 |ONS AT"..LV.C$."|
00000CB0: 20 20 41 4E 20 41 4E 47 4C 45 20 59 4F 55 20 53 | AN ANGLE YOU S|
00000CC0: 50 45 43 49 46 59 22 3A 44 24 B2 22 22 00 D3 4C |PECIFY":D$.""..L|
00000CD0: 60 04 8E 00 04 4D 6A 04 41 24 B2 22 43 48 41 4E |`....Mj.A$."CHAN|
00000CE0: 47 45 20 44 52 41 57 49 4E 47 20 43 4F 4C 4F 52 |GE DRAWING COLOR|
00000CF0: 20 4F 52 20 54 48 45 20 50 52 45 53 45 4C 45 43 | OR THE PRESELEC|
00000D00: 54 45 44 22 00 58 4D 74 04 42 24 B2 22 43 4F 4C |TED".XMt.B$."COL|
00000D10: 4F 52 20 43 48 4F 49 43 45 53 2E 20 57 41 52 4E |OR CHOICES. WARN|
00000D20: 49 4E 47 3A 20 43 48 41 4E 47 49 4E 47 20 43 4F |ING: CHANGING CO|
00000D30: 4C 4F 52 20 33 22 3A 43 24 B2 22 43 41 55 53 45 |LOR 3":C$."CAUSE|
00000D40: 53 20 55 4E 50 52 45 44 49 43 54 41 42 4C 45 20 |S UNPREDICTABLE |
00000D50: 52 45 53 55 4C 54 53 22 00 5E 4D 7E 04 8E 00 8D |RESULTS".^M~....|
00000D60: 4D 88 04 41 24 B2 22 20 20 46 4F 52 20 44 52 41 |M..A$." FOR DRA|
00000D70: 57 49 4E 47 20 4F 56 41 4C 53 20 4F 52 20 45 4C |WING OVALS OR EL|
00000D80: 4C 49 50 53 45 53 22 3A 8D 31 34 32 30 00 93 4D |LIPSES":.1420..M|
00000D90: 92 04 8E 00 D6 4D 9C 04 41 24 B2 22 20 20 43 52 |.....M..A$." CR|
00000DA0: 45 41 54 45 53 20 53 45 43 54 49 4F 4E 53 20 4F |EATES SECTIONS O|
00000DB0: 46 22 3A 42 24 B2 22 20 20 43 49 52 43 4C 45 53 |F":B$." CIRCLES|
00000DC0: 20 41 4E 44 20 41 52 43 53 22 3A 43 24 B2 22 22 | AND ARCS":C$.""|
00000DD0: 3A 44 24 B2 22 22 00 DC 4D A6 04 8E 00 FF 4D B0 |:D$.""..M.....M.|
00000DE0: 04 41 24 B2 22 20 20 4C 45 41 56 45 20 54 48 45 |.A$." LEAVE THE|
00000DF0: 20 50 52 4F 47 52 41 4D 22 3A 8D 31 34 32 30 00 | PROGRAM":.1420.|
00000E00: 05 4E BA 04 8E 00 2D 4E C4 04 41 24 B2 22 20 20 |.N....-N..A$." |
00000E10: 53 41 56 45 53 20 41 20 53 43 52 45 45 4E 20 54 |SAVES A SCREEN T|
00000E20: 4F 20 44 49 53 4B 22 3A 8D 31 34 32 30 00 33 4E |O DISK":.1420.3N|
00000E30: CE 04 8E 00 5D 4E D8 04 41 24 B2 22 20 20 4C 4F |....]N..A$." LO|
00000E40: 41 44 53 20 41 20 53 43 52 45 45 4E 20 46 52 4F |ADS A SCREEN FRO|
00000E50: 4D 20 44 49 53 4B 22 3A 8D 31 34 32 30 00 63 4E |M DISK":.1420.cN|
00000E60: E2 04 8E 00 86 4E EC 04 41 24 B2 22 20 20 43 4C |.....N..A$." CL|
00000E70: 45 41 52 53 20 54 48 45 20 53 43 52 45 45 4E 22 |EARS THE SCREEN"|
00000E80: 3A 8D 31 34 32 30 00 8C 4E F6 04 8E 00 AF 4E 00 |:.1420..N.....N.|
00000E90: 05 41 24 B2 22 20 20 4C 45 41 56 45 20 54 48 45 |.A$." LEAVE THE|
00000EA0: 20 50 52 4F 47 52 41 4D 22 3A 8D 31 34 32 30 00 | PROGRAM":.1420.|
00000EB0: B5 4E 0A 05 8E 00 D9 4E 14 05 41 24 B2 22 20 20 |.N.....N..A$." |
00000EC0: 54 55 52 4E 53 20 4F 46 46 20 54 48 45 20 4F 50 |TURNS OFF THE OP|
00000ED0: 54 49 4F 4E 53 20 46 4F 52 00 08 4F 1E 05 42 24 |TIONS FOR..O..B$|
00000EE0: B2 22 20 20 41 20 4E 45 41 54 45 52 20 53 43 52 |." A NEATER SCR|
00000EF0: 45 45 4E 20 44 49 53 50 4C 41 59 22 3A 43 24 B2 |EEN DISPLAY":C$.|
00000F00: 22 22 3A 44 24 B2 22 22 00 0E 4F 28 05 8E 00 33 |"":D$.""..O(...3|
00000F10: 4F 32 05 41 24 B2 22 20 20 43 4F 50 49 45 53 20 |O2.A$." COPIES |
00000F20: 41 20 53 4D 41 4C 4C 20 50 4F 52 54 49 4F 4E 20 |A SMALL PORTION |
00000F30: 4F 46 22 00 69 4F 3C 05 42 24 B2 22 20 20 54 48 |OF".iO<.B$." TH|
00000F40: 45 20 53 43 52 45 45 4E 20 54 4F 20 41 4E 4F 54 |E SCREEN TO ANOT|
00000F50: 48 45 52 20 4C 4F 43 41 54 49 4F 4E 22 3A 43 24 |HER LOCATION":C$|
00000F60: B2 22 22 3A 44 24 B2 22 22 00 6F 4F 46 05 8E 00 |."":D$."".oOF...|
00000F70: 94 4F 50 05 41 24 B2 22 20 20 41 44 44 53 20 4C |.OP.A$." ADDS L|
00000F80: 41 42 45 4C 53 20 54 4F 20 54 48 45 20 53 43 52 |ABELS TO THE SCR|
00000F90: 45 45 4E 22 00 AA 4F 5A 05 42 24 B2 22 22 3A 43 |EEN"..OZ.B$."":C|
00000FA0: 24 B2 22 22 3A 44 24 B2 22 22 00 B0 4F 64 05 8E |$."":D$.""..Od..|
00000FB0: 00 D3 4F 6E 05 41 24 B2 22 20 20 54 52 41 4E 53 |..On.A$." TRANS|
00000FC0: 46 45 52 53 20 54 48 45 20 53 43 52 45 45 4E 20 |FERS THE SCREEN |
00000FD0: 54 4F 22 00 F7 4F 78 05 42 24 B2 22 20 20 59 4F |TO"..Ox.B$." YO|
00000FE0: 55 52 20 50 52 49 4E 54 45 52 22 3A 43 24 B2 22 |UR PRINTER":C$."|
00000FF0: 22 3A 44 24 B2 22 22 00 FD 4F 82 05 8E 00 15 50 |":D$.""..O.....P|
00001000: 8C 05 42 24 B2 22 22 3A 43 24 B2 22 22 3A 44 24 |..B$."":C$."":D$|
00001010: B2 22 22 3A 8E 00 3A 50 96 05 FE 0B 31 3A 4A B2 |."":..:P....1:J.|
00001020: 4A AA 31 3A FE 06 38 2C 30 23 30 3A FE 06 38 2C |J.1:..8,0#0:..8,|
00001030: 32 34 2C 35 30 3A 89 33 38 30 00 4B 50 A0 05 8B |24,50:.380.KP...|
00001040: 4A B2 30 B0 4A B2 31 A7 34 30 30 00 75 50 AA 05 |J.0.J.1.400.uP..|
00001050: 8B 4D 4F B2 32 A7 99 22 93 22 3A DE 33 2C 31 3A |.MO.2..".":.3,1:|
00001060: 81 49 B2 31 A4 37 3A FE 07 49 2C 30 3A 82 3A E9 |.I.1.7:..I,0:.:.|
00001070: 30 3A 4A B2 30 00 9F 50 B4 05 8B 4D 4F B2 31 A7 |0:J.0..P...MO.1.|
00001080: 99 22 93 22 3A DE 31 2C 31 3A 81 49 B2 31 A4 37 |.".":.1,1:.I.1.7|
00001090: 3A FE 07 49 2C 30 3A 82 3A E9 30 3A 4A B2 30 00 |:..I,0:.:.0:J.0.|
000010A0: CA 50 BE 05 81 49 B2 31 A4 37 3A FE 16 53 24 28 |.P...I.1.7:..S$(|
000010B0: 49 29 2C 49 3A 82 3A 8D 31 35 32 30 3A 46 58 B2 |I),I:.:.1520:FX.|
000010C0: 31 37 33 3A 46 59 B2 31 34 30 00 D4 50 C8 05 FE |173:FY.140..P...|
000010D0: 07 38 2C 31 00 E3 50 D2 05 8D 31 31 30 3A 89 31 |.8,1..P...110:.1|
000010E0: 35 30 30 00 FE 50 DC 05 8B 4A 42 B2 31 A7 3A 8D |500..P...JB.1.:.|
000010F0: 32 30 3A 8D 32 30 35 30 3A 8D 31 35 32 30 00 08 |20:.2050:.1520..|
00001100: 51 E6 05 89 31 34 39 30 00 3D 51 F0 05 E0 31 2C |Q...1490.=Q...1,|
00001110: 32 37 2C 32 34 2C 22 53 45 4C 45 43 54 20 4F 50 |27,24,"SELECT OP|
00001120: 54 49 4F 4E 22 2C 31 3A 49 58 B2 35 3A 49 59 B2 |TION",1:IX.5:IY.|
00001130: 30 3A FE 06 38 2C 31 37 36 2C 32 32 33 00 62 51 |0:..8,176,223.bQ|
00001140: FA 05 81 49 B2 31 A4 37 3A FE 06 49 2C 49 AC 34 |...I.1.7:..I,I.4|
00001150: 34 2C 32 32 34 3A FE 07 49 2C 31 2C 2C 30 3A 82 |4,224:..I,1,,0:.|
00001160: 3A 8E 00 89 51 04 06 8F 20 53 45 54 20 4D 55 4C |:...Q... SET MUL|
00001170: 54 49 20 4F 52 20 48 49 52 45 53 2C 20 49 4E 53 |TI OR HIRES, INS|
00001180: 54 52 55 43 54 49 4F 4E 53 00 10 52 0E 06 8F 4D |TRUCTIONS..R...M|
00001190: 4F 3D 31 3A 43 4F 4C 4F 52 30 2C 32 3A 43 4F 4C |O=1:COLOR0,2:COL|
000011A0: 4F 52 31 2C 31 3A 43 4F 4C 4F 52 32 2C 37 3A 43 |OR1,1:COLOR2,7:C|
000011B0: 4F 4C 4F 52 33 2C 33 3A 43 4F 4C 4F 52 34 2C 31 |OLOR3,3:COLOR4,1|
000011C0: 35 3A 43 4F 4C 4F 52 35 2C 32 3A 47 4F 54 4F 32 |5:COLOR5,2:GOTO2|
000011D0: 37 3A 52 45 4D 2E 2E 2E 2E 54 48 49 53 20 49 53 |7:REM....THIS IS|
000011E0: 20 46 4F 52 20 44 45 42 55 47 47 49 4E 47 2C 20 | FOR DEBUGGING, |
000011F0: 41 44 44 20 41 20 52 45 4D 20 54 4F 20 54 48 45 |ADD A REM TO THE|
00001200: 20 46 52 4F 4E 54 20 57 48 45 4E 20 44 4F 4E 45 | FRONT WHEN DONE|
00001210: 00 2A 52 18 06 FE 08 32 2C 32 3A E7 30 2C 32 3A |.*R....2,2:.0,2:|
00001220: E7 34 2C 37 3A 99 22 93 90 22 00 58 52 22 06 99 |.4,7:."..".XR"..|
00001230: 22 11 11 1D 1D 1D 12 44 4F 4F 44 4C 45 20 50 52 |"......DOODLE PR|
00001240: 4F 47 52 41 4D 20 42 59 20 41 2E 20 53 43 4F 54 |OGRAM BY A. SCOT|
00001250: 20 43 55 4C 4C 45 4E 22 00 87 52 2C 06 99 22 11 | CULLEN"..R,..".|
00001260: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C |THIS PROGRAM WIL|
00001270: 4C 20 45 4E 41 42 4C 45 20 59 4F 55 20 54 4F 20 |L ENABLE YOU TO |
00001280: 43 52 45 41 54 45 22 00 AF 52 36 06 99 22 44 52 |CREATE"..R6.."DR|
00001290: 41 57 49 4E 47 53 20 41 4E 44 20 41 52 54 20 4F |AWINGS AND ART O|
000012A0: 4E 20 59 4F 55 52 20 53 43 52 45 45 4E 2E 22 00 |N YOUR SCREEN.".|
000012B0: F9 52 40 06 99 22 11 59 4F 55 20 57 49 4C 4C 20 |.R@..".YOU WILL |
000012C0: 48 41 56 45 20 59 4F 55 52 20 43 48 4F 49 43 45 |HAVE YOUR CHOICE|
000012D0: 20 4F 46 20 54 57 4F 22 3A 99 22 4F 50 45 52 41 | OF TWO":."OPERA|
000012E0: 54 49 4E 47 20 4D 4F 44 45 53 2E 20 20 54 48 45 |TING MODES. THE|
000012F0: 53 45 20 41 52 45 3A 11 22 00 3A 53 4A 06 99 22 |SE ARE:.".:SJ.."|
00001300: 12 20 31 20 92 48 49 47 48 2D 52 45 53 4F 4C 55 |. 1 .HIGH-RESOLU|
00001310: 54 49 4F 4E 20 28 46 49 4E 45 52 20 4C 49 4E 45 |TION (FINER LINE|
00001320: 53 20 49 4E 20 4F 4E 45 22 A6 32 32 29 22 43 4F |S IN ONE".22)"CO|
00001330: 4C 4F 52 20 4F 4E 4C 59 29 22 00 83 53 54 06 99 |LOR ONLY)"..ST..|
00001340: 22 11 12 20 32 20 92 4D 55 4C 54 49 2D 43 4F 4C |".. 2 .MULTI-COL|
00001350: 4F 52 20 20 20 20 20 28 54 48 52 45 45 20 43 4F |OR (THREE CO|
00001360: 4C 4F 52 53 20 41 54 20 4F 4E 43 45 22 A6 32 31 |LORS AT ONCE".21|
00001370: 29 22 57 49 54 48 20 57 49 44 45 52 20 4C 49 4E |)"WITH WIDER LIN|
00001380: 45 53 29 00 B5 53 5E 06 99 22 11 11 50 4C 45 41 |ES)..S^.."..PLEA|
00001390: 53 45 20 45 4E 54 45 52 20 59 4F 55 52 20 43 48 |SE ENTER YOUR CH|
000013A0: 4F 49 43 45 28 12 20 31 20 92 20 4F 52 20 12 20 |OICE(. 1 . OR . |
000013B0: 32 20 92 29 22 00 D3 53 68 06 A1 41 24 3A 8B 41 |2 .)"..Sh..A$:.A|
000013C0: 24 B3 B1 22 31 22 AF 41 24 B3 B1 22 32 22 A7 31 |$.."1".A$.."2".1|
000013D0: 36 34 30 00 E4 53 72 06 4D 4F B2 C5 28 41 24 29 |640..Sr.MO..(A$)|
000013E0: 3A 99 4D 4F 00 FA 53 7C 06 8B 4D 4F B3 B1 31 AF |:.MO..S|..MO..1.|
000013F0: 4D 4F B3 B1 32 A7 31 36 33 30 00 13 54 86 06 81 |MO..2.1630..T...|
00001400: 54 B2 31 A4 35 30 30 3A 82 3A 99 22 93 11 11 11 |T.1.500:.:."....|
00001410: 11 11 22 00 3A 54 90 06 99 22 90 31 2E 20 20 42 |..".:T...".1. B|
00001420: 4C 41 43 4B 20 20 20 20 20 12 31 2E 20 20 42 4C |LACK .1. BL|
00001430: 41 43 4B 20 20 20 20 20 92 22 00 61 54 9A 06 99 |ACK .".aT...|
00001440: 22 05 32 2E 20 20 57 48 49 54 45 20 20 20 20 20 |".2. WHITE |
00001450: 12 32 2E 20 20 57 48 49 54 45 20 20 20 20 20 92 |.2. WHITE .|
00001460: 22 00 88 54 A4 06 99 22 1C 33 2E 20 20 52 45 44 |"..T...".3. RED|
00001470: 20 20 20 20 20 20 20 12 33 2E 20 20 52 45 44 20 | .3. RED |
00001480: 20 20 20 20 20 20 92 22 00 AF 54 AE 06 99 22 9F | ."..T...".|
00001490: 34 2E 20 20 43 59 41 4E 20 20 20 20 20 20 12 34 |4. CYAN .4|
000014A0: 2E 20 20 43 59 41 4E 20 20 20 20 20 20 92 22 00 |. CYAN .".|
000014B0: D6 54 B8 06 99 22 9C 35 2E 20 20 50 55 52 50 4C |.T...".5. PURPL|
000014C0: 45 20 20 20 20 12 35 2E 20 20 50 55 52 50 4C 45 |E .5. PURPLE|
000014D0: 20 20 20 20 92 22 00 FD 54 C2 06 99 22 1E 36 2E | ."..T...".6.|
000014E0: 20 20 47 52 45 45 4E 20 20 20 20 20 12 36 2E 20 | GREEN .6. |
000014F0: 20 47 52 45 45 4E 20 20 20 20 20 92 22 00 24 55 | GREEN .".$U|
00001500: CC 06 99 22 1F 37 2E 20 20 42 4C 55 45 20 20 20 |...".7. BLUE |
00001510: 20 20 20 12 37 2E 20 20 42 4C 55 45 20 20 20 20 | .7. BLUE |
00001520: 20 20 92 22 00 4B 55 D6 06 99 22 9E 38 2E 20 20 | .".KU...".8. |
00001530: 59 45 4C 4C 4F 57 20 20 20 20 12 38 2E 20 20 59 |YELLOW .8. Y|
00001540: 45 4C 4C 4F 57 20 20 20 20 92 22 00 72 55 E0 06 |ELLOW .".rU..|
00001550: 99 22 81 39 2E 20 20 4F 52 41 4E 47 45 20 20 20 |.".9. ORANGE |
00001560: 20 12 39 2E 20 20 4F 52 41 4E 47 45 20 20 20 20 | .9. ORANGE |
00001570: 92 22 00 99 55 EA 06 99 22 95 31 30 2E 20 42 52 |."..U...".10. BR|
00001580: 4F 57 4E 20 20 20 20 20 12 31 30 2E 20 42 52 4F |OWN .10. BRO|
00001590: 57 4E 20 20 20 20 20 92 22 00 C0 55 F4 06 99 22 |WN ."..U..."|
000015A0: 96 31 31 2E 20 4C 54 2E 20 52 45 44 20 20 20 12 |.11. LT. RED .|
000015B0: 31 31 2E 20 4C 54 2E 20 52 45 44 20 20 20 92 22 |11. LT. RED ."|
000015C0: 00 E7 55 FE 06 99 22 97 31 32 2E 20 44 4B 2E 20 |..U...".12. DK. |
000015D0: 47 52 41 59 20 20 12 31 32 2E 20 44 4B 2E 20 47 |GRAY .12. DK. G|
000015E0: 52 41 59 20 20 92 22 00 0E 56 08 07 99 22 98 31 |RAY ."..V...".1|
000015F0: 33 2E 20 4D 45 44 2E 20 47 52 41 59 20 12 31 33 |3. MED. GRAY .13|
00001600: 2E 20 4D 45 44 2E 20 47 52 41 59 20 92 22 00 35 |. MED. GRAY .".5|
00001610: 56 12 07 99 22 99 31 34 2E 20 4C 54 2E 20 47 52 |V...".14. LT. GR|
00001620: 45 45 4E 20 12 31 34 2E 20 4C 54 2E 20 47 52 45 |EEN .14. LT. GRE|
00001630: 45 4E 20 92 22 00 5C 56 1C 07 99 22 9A 31 35 2E |EN .".\V...".15.|
00001640: 20 4C 54 2E 20 42 4C 55 45 20 20 12 31 35 2E 20 | LT. BLUE .15. |
00001650: 4C 54 2E 20 42 4C 55 45 20 20 92 22 00 84 56 26 |LT. BLUE ."..V&|
00001660: 07 99 22 9B 31 36 2E 20 4C 54 2E 20 47 52 41 59 |..".16. LT. GRAY|
00001670: 20 20 12 31 36 2E 20 4C 54 2E 20 47 52 41 59 20 | .16. LT. GRAY |
00001680: 20 92 90 22 00 AC 56 30 07 99 22 13 12 53 92 45 | .."..V0.."..S.E|
00001690: 4C 45 43 54 20 59 4F 55 52 20 4F 57 4E 20 43 4F |LECT YOUR OWN CO|
000016A0: 4C 4F 52 53 20 4F 52 20 55 53 45 22 00 D3 56 3A |LORS OR USE"..V:|
000016B0: 07 99 22 12 50 92 52 45 53 45 54 20 43 4F 4D 42 |..".P.RESET COMB|
000016C0: 49 4E 41 54 49 4F 4E 20 28 12 53 92 2C 12 50 92 |INATION (.S.,.P.|
000016D0: 29 3F 22 00 E8 56 44 07 A1 41 24 3A 8B 41 24 B2 |)?"..VD..A$:.A$.|
000016E0: 22 53 22 A7 31 38 39 30 00 18 57 4E 07 8B 41 24 |"S".1890..WN..A$|
000016F0: B2 22 50 22 A7 E7 30 2C 32 3A E7 31 2C 31 3A E7 |."P"..0,2:.1,1:.|
00001700: 32 2C 37 3A E7 33 2C 33 3A E7 34 2C 31 35 3A E7 |2,7:.3,3:.4,15:.|
00001710: 35 2C 32 3A 89 32 38 30 00 2A 57 58 07 8B 41 24 |5,2:.280.*WX..A$|
00001720: B3 B1 22 43 22 A7 31 38 36 30 00 5A 57 62 07 99 |.."C".1860.ZWb..|
00001730: 22 13 11 20 20 20 20 20 20 20 20 20 20 20 20 20 |".. |
00001740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001750: 20 20 20 20 20 20 20 20 20 22 00 90 57 6C 07 99 | "..Wl..|
00001760: 22 13 45 4E 54 45 52 20 43 4F 44 45 20 46 4F 52 |".ENTER CODE FOR|
00001770: 20 53 43 52 45 45 4E 20 43 4F 4C 4F 52 20 20 20 | SCREEN COLOR |
00001780: 20 20 20 22 3A 8D 32 30 32 30 3A E7 30 2C 43 43 | ":.2020:.0,CC|
00001790: 00 A6 57 76 07 8B 43 43 B2 31 B0 43 43 B2 31 32 |..Wv..CC.1.CC.12|
000017A0: A7 99 22 05 22 3B 00 DB 57 80 07 99 22 13 45 4E |..".";..W...".EN|
000017B0: 54 45 52 20 43 4F 44 45 20 46 4F 52 20 42 4F 52 |TER CODE FOR BOR|
000017C0: 44 45 52 20 43 4F 4C 4F 52 20 20 20 20 20 22 3A |DER COLOR ":|
000017D0: 8D 32 30 32 30 3A E7 34 2C 43 43 00 10 58 8A 07 |.2020:.4,CC..X..|
000017E0: 99 22 13 45 4E 54 45 52 20 43 4F 44 45 20 46 4F |.".ENTER CODE FO|
000017F0: 52 20 46 4F 52 45 47 52 4F 55 4E 44 20 43 4F 4C |R FOREGROUND COL|
00001800: 4F 52 20 22 3A 8D 32 30 32 30 3A E7 31 2C 43 43 |OR ":.2020:.1,CC|
00001810: 00 4B 58 94 07 8B 4D 4F B2 32 A7 99 22 13 45 4E |.KX...MO.2..".EN|
00001820: 54 45 52 20 43 4F 44 45 20 46 4F 52 20 4D 55 4C |TER CODE FOR MUL|
00001830: 54 49 43 4F 4C 4F 52 20 4F 4E 45 20 20 20 22 3A |TICOLOR ONE ":|
00001840: 8D 32 30 32 30 3A E7 32 2C 43 43 00 86 58 9E 07 |.2020:.2,CC..X..|
00001850: 8B 4D 4F B2 32 A7 99 22 13 45 4E 54 45 52 20 43 |.MO.2..".ENTER C|
00001860: 4F 44 45 20 46 4F 52 20 4D 55 4C 54 49 43 4F 4C |ODE FOR MULTICOL|
00001870: 4F 52 20 54 57 4F 20 20 20 22 3A 8D 32 30 32 30 |OR TWO ":.2020|
00001880: 3A E7 33 2C 43 43 00 B1 58 A8 07 99 22 13 53 41 |:.3,CC..X...".SA|
00001890: 54 49 53 46 49 45 44 20 57 49 54 48 20 59 4F 55 |TISFIED WITH YOU|
000018A0: 52 20 43 48 4F 49 43 45 53 20 12 59 2F 4E 92 3F |R CHOICES .Y/N.?|
000018B0: 22 00 DF 58 B2 07 99 22 20 20 20 20 20 20 20 20 |"..X..." |
000018C0: 20 20 20 20 20 20 20 20 20 20 22 3A 99 22 11 20 | ":.". |
000018D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
000018E0: F3 58 BC 07 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 |.X...A$:.A$."".1|
000018F0: 39 38 30 00 04 59 C6 07 8B 41 24 B2 22 4E 22 A7 |980..Y...A$."N".|
00001900: 31 38 39 30 00 16 59 D0 07 8B 41 24 B3 B1 22 59 |1890..Y...A$.."Y|
00001910: 22 A7 31 39 38 30 00 1F 59 DA 07 89 32 38 30 00 |".1980..Y...280.|
00001920: 54 59 E4 07 99 22 41 4E 44 20 50 52 45 53 53 20 |TY..."AND PRESS |
00001930: 12 52 45 54 55 52 4E 92 22 3A 85 22 11 59 4F 55 |.RETURN.":.".YOU|
00001940: 52 20 43 48 4F 49 43 45 20 20 20 20 9D 9D 9D 9D |R CHOICE ....|
00001950: 22 3B 43 43 00 84 59 EE 07 8B 43 43 B3 31 B0 43 |";CC..Y...CC.1.C|
00001960: 43 B1 31 36 B0 43 43 B3 B1 B5 28 43 43 29 A7 85 |C.16.CC...(CC)..|
00001970: 22 54 52 59 20 41 47 41 49 4E 22 3B 43 43 3A 89 |"TRY AGAIN";CC:.|
00001980: 32 30 33 30 00 8A 59 F8 07 8E 00 93 59 02 08 8D |2030..Y.....Y...|
00001990: 38 33 30 00 A6 59 0C 08 81 49 B2 31 A4 37 3A FE |830..Y...I.1.7:.|
000019A0: 07 49 2C 30 3A 82 00 DC 59 16 08 8B 4A B2 30 A7 |.I,0:...Y...J.0.|
000019B0: 91 53 4E 8D 32 31 31 30 2C 32 33 38 30 2C 32 37 |.SN.2110,2380,27|
000019C0: 31 30 2C 33 33 39 30 2C 32 39 35 30 2C 33 31 35 |10,3390,2950,315|
000019D0: 30 2C 32 38 31 30 3A 89 32 31 30 30 00 12 5A 20 |0,2810:.2100..Z |
000019E0: 08 8B 4A B2 31 A7 91 53 4E 8D 33 34 30 30 2C 33 |..J.1..SN.3400,3|
000019F0: 35 36 30 2C 33 37 30 30 2C 33 37 35 30 2C 34 31 |560,3700,3750,41|
00001A00: 33 30 2C 34 30 33 30 2C 34 30 38 30 3A 89 32 31 |30,4030,4080:.21|
00001A10: 30 30 00 42 5A 2A 08 8B 4A B2 32 A7 91 53 4E 8D |00.BZ*..J.2..SN.|
00001A20: 33 37 36 30 2C 33 38 39 30 2C 34 33 34 30 2C 34 |3760,3890,4340,4|
00001A30: 33 39 30 2C 34 34 30 30 2C 34 36 37 30 2C 34 38 |390,4400,4670,48|
00001A40: 32 30 00 48 5A 34 08 8E 00 5C 5A 3E 08 43 49 B2 |20.HZ4...\Z>.CI.|
00001A50: 30 3A 20 8F 20 43 49 52 43 4C 45 53 00 8D 5A 48 |0: . CIRCLES..ZH|
00001A60: 08 E0 31 2C 30 2C 32 34 2C 22 45 4E 54 45 52 20 |..1,0,24,"ENTER |
00001A70: 43 45 4E 54 45 52 22 2C 31 3A 49 58 B2 31 3A 49 |CENTER",1:IX.1:I|
00001A80: 59 B2 31 3A FE 06 38 2C 46 58 2C 46 59 00 B8 5A |Y.1:..8,FX,FY..Z|
00001A90: 52 08 55 44 24 B2 22 55 50 2F 44 4F 57 4E 22 3A |R.UD$."UP/DOWN":|
00001AA0: 4C 52 24 B2 22 4C 45 46 54 2F 52 49 47 48 54 22 |LR$."LEFT/RIGHT"|
00001AB0: 3A 4B B2 31 3A 4C B2 30 00 CC 5A 5C 08 8D 31 31 |:K.1:L.0..Z\..11|
00001AC0: 30 3A 8B 4A 42 B2 31 A7 32 31 35 30 00 E0 5A 66 |0:.JB.1.2150..Zf|
00001AD0: 08 8D 32 37 30 3A E5 44 43 2C 58 AD 4D 4F 2C 59 |..270:.DC,X.MO,Y|
00001AE0: 00 EF 5A 70 08 8B 43 49 B2 32 A7 32 32 32 30 00 |..Zp..CI.2.2220.|
00001AF0: 10 5B 7A 08 E0 31 2C 30 2C 32 34 2C 22 52 41 44 |.[z..1,0,24,"RAD|
00001B00: 49 55 53 20 44 49 52 45 43 54 49 4F 4E 22 2C 31 |IUS DIRECTION",1|
00001B10: 00 32 5B 84 08 E0 31 2C 32 32 2C 32 34 2C 55 44 |.2[...1,22,24,UD|
00001B20: 24 2C 4B 3A E0 31 2C 33 30 2C 32 34 2C 4C 52 24 |$,K:.1,30,24,LR$|
00001B30: 2C 4C 00 46 5B 8E 08 8D 31 36 30 3A 8B 4A 42 B2 |,L.F[...160:.JB.|
00001B40: 31 A7 32 32 32 30 00 62 5B 98 08 4B B2 B6 28 4B |1.2220.b[..K..(K|
00001B50: AB 31 29 3A 4C B2 B6 28 4C AB 31 29 3A 89 32 31 |.1):L..(L.1):.21|
00001B60: 38 30 00 6C 5B A2 08 89 32 31 34 30 00 80 5B AC |80.l[...2140..[.|
00001B70: 08 43 58 B2 D0 28 30 29 3A 43 59 B2 D0 28 31 29 |.CX..(0):CY..(1)|
00001B80: 00 88 5B B6 08 8D 32 30 00 A6 5B C0 08 E0 31 2C |..[...20..[...1,|
00001B90: 30 2C 32 34 2C 22 45 4E 54 45 52 20 52 41 44 49 |0,24,"ENTER RADI|
00001BA0: 55 53 20 22 2C 31 00 CF 5B CA 08 8B 4B B2 31 A7 |US ",1..[...K.1.|
00001BB0: 49 59 B2 31 3A 49 58 B2 30 3A 8B 43 49 B2 32 A7 |IY.1:IX.0:.CI.2.|
00001BC0: 3A E0 31 2C 31 33 2C 32 34 2C 55 44 24 2C 31 00 |:.1,13,24,UD$,1.|
00001BD0: F8 5B D4 08 8B 4C B2 31 A7 49 59 B2 30 3A 49 58 |.[...L.1.IY.0:IX|
00001BE0: B2 31 3A 8B 43 49 B2 32 A7 3A E0 31 2C 31 33 2C |.1:.CI.2.:.1,13,|
00001BF0: 32 34 2C 4C 52 24 2C 31 00 0C 5C DE 08 8D 31 31 |24,LR$,1..\...11|
00001C00: 30 3A 8B 4A 42 B2 31 A7 32 32 39 30 00 16 5C E8 |0:.JB.1.2290..\.|
00001C10: 08 89 32 32 37 30 00 3A 5C F2 08 8D 32 37 30 3A |..2270.:\...270:|
00001C20: 46 58 B2 58 AA 31 33 3A 46 59 B2 59 AA 34 30 3A |FX.X.13:FY.Y.40:|
00001C30: E5 44 43 2C 58 AD 4D 4F 2C 59 00 52 5C FC 08 52 |.DC,X.MO,Y.R\..R|
00001C40: 58 B2 D0 28 30 29 3A 52 59 B2 D0 28 31 29 3A 8D |X..(0):RY..(1):.|
00001C50: 32 30 00 89 5C 06 09 8B 43 49 B2 32 AF 4B B2 31 |20..\...CI.2.K.1|
00001C60: A7 4B B2 30 3A 4C B2 31 3A FE 06 38 2C 28 43 58 |.K.0:L.1:..8,(CX|
00001C70: AC 4D 4F 29 AA 31 33 2C 43 59 AA 34 30 3A 4F 59 |.MO).13,CY.40:OY|
00001C80: B2 52 59 3A 89 32 32 34 30 00 9F 5C 10 09 8B 43 |.RY:.2240..\...C|
00001C90: 49 B2 31 B0 41 31 B2 31 A7 43 49 B2 30 3A 8E 00 |I.1.A1.1.CI.0:..|
00001CA0: AD 5C 1A 09 8B 4B B2 31 A7 32 33 36 30 00 B9 5C |.\...K.1.2360..\|
00001CB0: 24 09 8B 43 49 B2 32 A7 8E 00 E3 5C 2E 09 52 B2 |$..CI.2....\..R.|
00001CC0: B6 28 52 58 AB 43 58 29 3A E2 44 43 2C 43 58 2C |.(RX.CX):.DC,CX,|
00001CD0: 43 59 2C 52 2C 52 AC 50 58 28 4D 4F 29 3A 89 32 |CY,R,R.PX(MO):.2|
00001CE0: 33 37 30 00 07 5D 38 09 52 B2 B6 28 52 59 AB 43 |370..]8.R..(RY.C|
00001CF0: 59 29 3A E2 44 43 2C 43 58 2C 43 59 2C 52 AC 50 |Y):.DC,CX,CY,R.P|
00001D00: 59 28 4D 4F 29 2C 52 00 0D 5D 42 09 8E 00 23 5D |Y(MO),R..]B...#]|
00001D10: 4C 09 4C B2 31 3A FE 07 38 2C 30 3A 8F 20 43 4F |L.L.1:..8,0:. CO|
00001D20: 4C 4F 52 00 65 5D 56 09 E0 31 2C 30 2C 32 34 2C |LOR.e]V..1,0,24,|
00001D30: 22 44 52 41 57 20 43 4F 4C 4F 52 20 3C 3D 20 20 |"DRAW COLOR <= |
00001D40: 43 4F 4C 4F 52 20 43 48 4F 49 43 45 3F 22 2C 31 |COLOR CHOICE?",1|
00001D50: 3A 43 31 B2 31 3A 8D 33 30 33 30 3A 8B 4C B2 30 |:C1.1:.3030:.L.0|
00001D60: A7 32 34 33 30 00 7D 5D 60 09 43 31 B2 31 3A 8D |.2430.}]`.C1.1:.|
00001D70: 33 31 36 30 3A 8B 4B B2 34 A7 4B B2 30 00 96 5D |3160:.K.4.K.0..]|
00001D80: 6A 09 44 43 B2 4B 3A 8B 44 43 B2 32 AF 4D 4F B2 |j.DC.K:.DC.2.MO.|
00001D90: 31 A7 44 43 B2 30 00 A2 5D 74 09 FE 07 38 2C 31 |1.DC.0..]t...8,1|
00001DA0: 3A 8E 00 C4 5D 7E 09 43 43 24 B2 22 3C 3D 43 4F |:...]~.CC$."<=CO|
00001DB0: 4C 4F 52 3F 20 4A 4F 59 3D 4E 2F 42 55 54 54 4F |LOR? JOY=N/BUTTO|
00001DC0: 4E 3D 59 22 00 D3 5D 88 09 8B 4D 4F B2 32 A7 32 |N=Y"..]...MO.2.2|
00001DD0: 35 32 30 00 E6 5D 92 09 E0 31 2C 31 31 2C 32 34 |520..]...1,11,24|
00001DE0: 2C 43 43 24 2C 31 00 FA 5D 9C 09 42 47 B2 CD 28 |,CC$,1..]..BG..(|
00001DF0: 30 29 3A 46 47 B2 CD 28 31 29 00 16 5E A6 09 E0 |0):FG..(1)..^...|
00001E00: 31 2C 30 2C 32 34 2C 22 20 20 20 20 20 20 20 20 |1,0,24," |
00001E10: 20 20 B6 22 2C 31 00 2A 5E B0 09 8D 31 36 30 3A | .",1.*^...160:|
00001E20: 8B 4A 42 B2 31 A7 32 36 39 30 00 42 5E BA 09 46 |.JB.1.2690.B^..F|
00001E30: 47 B2 46 47 AA 31 3A 8B 46 47 B2 31 36 A7 46 47 |G.FG.1:.FG.16.FG|
00001E40: B2 30 00 55 5E C4 09 8B 42 47 B2 46 47 A7 46 47 |.0.U^...BG.FG.FG|
00001E50: B2 46 47 AA 31 00 6B 5E CE 09 E7 30 2C 42 47 3A |.FG.1.k^...0,BG:|
00001E60: E7 31 2C 46 47 3A 89 32 34 35 30 00 73 5E D8 09 |.1,FG:.2450.s^..|
00001E70: 8D 32 30 00 AE 5E E2 09 E0 31 2C 30 2C 32 34 2C |.20..^...1,0,24,|
00001E80: 22 43 48 41 4E 47 45 20 57 48 49 43 48 3D 3E 22 |"CHANGE WHICH=>"|
00001E90: 2C 31 3A FE 06 38 2C 31 36 35 2C 32 33 30 3A FE |,1:..8,165,230:.|
00001EA0: 07 38 2C 31 3A 49 58 B2 32 3A 49 59 B2 30 00 DA |.8,1:IX.2:IY.0..|
00001EB0: 5E EC 09 81 4B B2 31 A4 33 3A E1 4B 2C 4B AC 33 |^...K.1.3:.K,K.3|
00001EC0: 33 AA 32 36 2C 31 39 32 2C 4B AC 33 33 AA 35 38 |3.26,192,K.33.58|
00001ED0: 2C 31 39 39 2C 2C 31 3A 82 3A 00 F0 5E F6 09 8D |,199,,1:.:..^...|
00001EE0: 31 31 30 3A 51 57 B2 28 CE 05 28 38 2C 30 29 29 |110:QW.(..(8,0))|
00001EF0: 00 02 5F 00 0A 8B 51 57 B3 B2 31 32 39 A7 32 36 |.._...QW..129.26|
00001F00: 39 30 00 1A 5F 0A 0A 8B 51 57 B3 B2 31 39 37 A7 |90.._...QW..197.|
00001F10: 57 51 B2 31 3A 89 32 36 30 30 00 32 5F 14 0A 8B |WQ.1:.2600.2_...|
00001F20: 51 57 B3 B2 32 36 31 A7 57 51 B2 32 3A 89 32 36 |QW..261.WQ.2:.26|
00001F30: 30 30 00 3B 5F 1E 0A 57 51 B2 33 00 43 5F 28 0A |00.;_..WQ.3.C_(.|
00001F40: 8D 32 30 00 57 5F 32 0A E0 57 51 2C 31 31 2C 32 |.20.W_2..WQ,11,2|
00001F50: 34 2C 43 43 24 2C 31 00 74 5F 3C 0A E0 57 51 2C |4,CC$,1.t_<..WQ,|
00001F60: 30 2C 32 34 2C 22 20 20 20 20 20 20 20 20 20 20 |0,24," |
00001F70: B6 22 2C 31 00 8F 5F 46 0A 8D 31 36 30 3A 8B 4A |.",1.._F..160:.J|
00001F80: 42 B2 31 A7 FE 07 38 2C 31 3A 89 32 36 39 30 00 |B.1...8,1:.2690.|
00001F90: B0 5F 50 0A 43 43 B2 CD 28 57 51 29 3A 43 43 B2 |._P.CC..(WQ):CC.|
00001FA0: 43 43 AA 31 3A 8B 43 43 B2 31 37 A7 43 43 B2 31 |CC.1:.CC.17.CC.1|
00001FB0: 00 CD 5F 5A 0A 91 57 51 8D 32 36 36 30 2C 32 36 |.._Z..WQ.2660,26|
00001FC0: 37 30 2C 32 36 38 30 3A 89 32 36 31 30 00 D9 5F |70,2680:.2610.._|
00001FD0: 64 0A E7 31 2C 43 43 3A 8E 00 E5 5F 6E 0A E7 32 |d..1,CC:..._n..2|
00001FE0: 2C 43 43 3A 8E 00 F1 5F 78 0A E7 33 2C 43 43 3A |,CC:..._x..3,CC:|
00001FF0: 8E 00 FF 5F 82 0A 8D 32 30 3A FE 07 38 2C 31 00 |..._...20:..8,1.|
00002000: 05 60 8C 0A 8E 00 11 60 96 0A 8F 20 4C 49 4E 45 |.`.....`... LINE|
00002010: 53 00 43 60 A0 0A E0 31 2C 30 2C 32 34 2C 22 45 |S.C`...1,0,24,"E|
00002020: 4E 54 45 52 20 4F 4E 45 20 45 4E 44 22 2C 31 3A |NTER ONE END",1:|
00002030: 49 58 B2 31 3A 49 59 B2 31 3A FE 06 38 2C 46 58 |IX.1:IY.1:..8,FX|
00002040: 2C 46 59 00 4C 60 AA 0A 8D 31 31 30 00 60 60 B4 |,FY.L`...110.``.|
00002050: 0A 8D 32 37 30 3A E5 44 43 2C 58 AD 4D 4F 2C 59 |..270:.DC,X.MO,Y|
00002060: 00 90 60 BE 0A 43 58 B2 D0 28 30 29 3A 43 59 B2 |..`..CX..(0):CY.|
00002070: D0 28 31 29 3A E0 31 2C 30 2C 32 34 2C 22 45 4E |.(1):.1,0,24,"EN|
00002080: 54 45 52 20 4F 54 48 45 52 20 45 4E 44 22 2C 31 |TER OTHER END",1|
00002090: 00 99 60 C8 0A 8D 31 31 30 00 BD 60 D2 0A 8D 32 |..`...110..`...2|
000020A0: 37 30 3A 46 58 B2 58 AA 31 33 3A 46 59 B2 59 AA |70:FX.X.13:FY.Y.|
000020B0: 34 30 3A E5 44 43 2C 58 AD 4D 4F 2C 59 00 D5 60 |40:.DC,X.MO,Y..`|
000020C0: DC 0A 52 58 B2 D0 28 30 29 3A 52 59 B2 D0 28 31 |..RX..(0):RY..(1|
000020D0: 29 3A 8D 32 30 00 E9 60 E6 0A E5 44 43 2C 43 58 |):.20..`...DC,CX|
000020E0: 2C 43 59 A4 52 58 2C 52 59 00 EF 60 F0 0A 8E 00 |,CY.RX,RY..`....|
000020F0: 38 61 FA 0A FE 06 38 2C 46 58 2C 46 59 3A FE 07 |8a....8,FX,FY:..|
00002100: 38 2C 31 3A 4B B2 32 3A 44 24 28 32 29 B2 22 4D |8,1:K.2:D$(2)."M|
00002110: 4F 56 45 20 22 3A 44 24 28 31 29 B2 22 44 52 41 |OVE ":D$(1)."DRA|
00002120: 57 20 22 3A 44 24 28 30 29 B2 22 45 52 41 53 45 |W ":D$(0)."ERASE|
00002130: 22 3A 8F 20 44 52 41 57 00 78 61 04 0B E6 28 46 |":. DRAW.xa...(F|
00002140: 58 AB 31 33 29 AD 4D 4F 2C 46 59 AB 34 30 3A E0 |X.13).MO,FY.40:.|
00002150: 31 2C 30 2C 32 34 2C 44 24 28 4B 29 2C 31 3A E0 |1,0,24,D$(K),1:.|
00002160: 31 2C 32 38 2C 32 34 2C 22 46 31 20 54 4F 20 52 |1,28,24,"F1 TO R|
00002170: 45 54 55 52 4E 22 2C 31 00 8A 61 0E 0B 49 58 B2 |ETURN",1..a..IX.|
00002180: 31 3A 49 59 B2 31 3A 4A B2 30 00 C8 61 18 0B A1 |1:IY.1:J.0..a...|
00002190: 41 24 3A 8B 41 24 B2 22 85 22 A7 E0 31 2C 30 2C |A$:.A$."."..1,0,|
000021A0: 32 34 2C 22 20 20 20 20 20 22 2C 30 3A E0 31 2C |24," ",0:.1,|
000021B0: 32 38 2C 32 34 2C 22 20 20 20 20 20 20 20 20 20 |28,24," |
000021C0: 20 20 20 22 2C 30 3A 8E 00 DF 61 22 0B 8B 41 24 | ",0:...a"..A$|
000021D0: B3 B1 22 22 A7 8D 32 31 30 3A 89 32 38 38 30 00 |..""..210:.2880.|
000021E0: F6 61 2C 0B 4A 32 B2 CF 28 32 29 3A 8B 4A 32 B2 |.a,.J2..(2):.J2.|
000021F0: 30 A7 32 38 34 30 00 17 62 36 0B 91 4A 32 8D 33 |0.2840..b6..J2.3|
00002200: 30 2C 34 30 2C 35 30 2C 36 30 2C 37 30 2C 38 30 |0,40,50,60,70,80|
00002210: 2C 39 30 2C 31 30 30 00 51 62 40 0B 8B 4A 32 AF |,90,100.Qb@..J2.|
00002220: 31 32 38 A7 4B B2 4B AA 31 3A 8D 32 39 33 30 3A |128.K.K.1:.2930:|
00002230: E0 31 2C 30 2C 32 34 2C 44 24 28 4B 29 2C 31 3A |.1,0,24,D$(K),1:|
00002240: 81 54 B2 31 A4 33 30 3A 4A 32 B2 CF 28 32 29 3A |.T.1.30:J2..(2):|
00002250: 82 00 5F 62 4A 0B 8B 4B B2 32 A7 32 38 34 30 00 |.._bJ..K.2.2840.|
00002260: 7F 62 54 0B 8D 32 37 30 3A E5 4B AC 44 43 2C D0 |.bT..270:.K.DC,.|
00002270: 28 30 29 2C D0 28 31 29 A4 58 AD 4D 4F 2C 59 00 |(0),.(1).X.MO,Y.|
00002280: 93 62 5E 0B 46 58 B2 58 AA 31 33 3A 46 59 B2 59 |.b^.FX.X.13:FY.Y|
00002290: AA 34 30 00 9D 62 68 0B 89 32 38 34 30 00 C6 62 |.40..bh..2840..b|
000022A0: 72 0B 8B 4B B2 33 A7 4B B2 30 3A E6 28 CE 05 28 |r..K.3.K.0:.(..(|
000022B0: 38 2C 30 29 AB 31 33 29 AD 4D 4F 2C CE 05 28 38 |8,0).13).MO,..(8|
000022C0: 2C 31 29 AB 34 30 00 E2 62 7C 0B 46 58 B2 CE 05 |,1).40..b|.FX...|
000022D0: 28 38 2C 30 29 3A 46 59 B2 CE 05 28 38 2C 31 29 |(8,0):FY...(8,1)|
000022E0: 3A 8E 00 EE 62 86 0B 8F 20 42 4F 58 45 53 00 28 |:...b... BOXES.(|
000022F0: 63 90 0B E0 31 2C 30 2C 32 34 2C 22 4C 4F 43 41 |c...1,0,24,"LOCA|
00002300: 54 45 20 4F 4E 45 20 43 4F 52 4E 45 52 22 2C 31 |TE ONE CORNER",1|
00002310: 3A 49 58 B2 31 3A 49 59 B2 31 3A 4C B2 31 3A FE |:IX.1:IY.1:L.1:.|
00002320: 06 38 2C 46 58 2C 46 59 00 31 63 9A 0B 8D 31 31 |.8,FX,FY.1c...11|
00002330: 30 00 52 63 A4 0B 8D 32 37 30 3A E5 44 43 2C 58 |0.Rc...270:.DC,X|
00002340: AD 4D 4F 2C 59 3A 43 58 B2 58 AD 4D 4F 3A 43 59 |.MO,Y:CX.X.MO:CY|
00002350: B2 59 00 79 63 AE 0B E0 31 2C 30 2C 32 34 2C 22 |.Y.yc...1,0,24,"|
00002360: 4C 4F 43 41 54 45 20 4F 50 50 4F 53 49 54 45 20 |LOCATE OPPOSITE |
00002370: 43 4F 52 4E 45 52 22 2C 31 00 94 63 B8 0B 81 54 |CORNER",1..c...T|
00002380: B2 31 A4 31 30 3A 4A 32 B2 CF 28 32 29 3A 82 3A |.1.10:J2..(2):.:|
00002390: 8D 31 31 30 00 BD 63 C2 0B 8D 32 37 30 3A 3A 46 |.110..c...270::F|
000023A0: 58 B2 58 AA 31 33 3A 46 59 B2 59 AA 34 30 3A E5 |X.X.13:FY.Y.40:.|
000023B0: 44 43 2C 58 AD 4D 4F 2C 59 3A 4B B2 31 00 F2 63 |DC,X.MO,Y:K.1..c|
000023C0: CC 0B 52 58 B2 58 AD 4D 4F 3A 52 59 B2 59 3A E0 |..RX.X.MO:RY.Y:.|
000023D0: 31 2C 30 2C 32 34 2C 22 46 49 4C 4C 3F 20 20 20 |1,0,24,"FILL? |
000023E0: 28 59 20 3C 3D 20 20 4E 29 20 20 20 20 20 20 22 |(Y <= N) "|
000023F0: 2C 31 00 08 64 D6 0B 81 49 B2 31 A4 35 30 3A 4A |,1..d...I.1.50:J|
00002400: 32 B2 CF 28 32 29 3A 82 00 1F 64 E0 0B 4A 32 B2 |2..(2):...d..J2.|
00002410: CF 28 32 29 3A 8B 4A 32 B2 30 A7 33 30 34 30 00 |.(2):.J2.0.3040.|
00002420: 30 64 EA 0B 8B 4A 32 AF 31 32 38 A7 33 30 39 30 |0d...J2.128.3090|
00002430: 00 55 64 F4 0B 8B 4A 32 B2 37 A7 4C B2 31 3A E0 |.Ud...J2.7.L.1:.|
00002440: 31 2C 31 31 2C 32 34 2C 22 3C 3D 20 22 2C 31 3A |1,11,24,"<= ",1:|
00002450: 89 33 30 33 30 00 7A 64 FE 0B 8B 4A 32 B2 33 A7 |.3030.zd...J2.3.|
00002460: 4C B2 30 3A E0 31 2C 31 31 2C 32 34 2C 22 20 3D |L.0:.1,11,24," =|
00002470: 3E 22 2C 31 3A 89 33 30 33 30 00 84 64 08 0C 89 |>",1:.3030..d...|
00002480: 33 30 33 30 00 95 64 12 0C 8B 43 31 B2 31 A7 43 |3030..d...C1.1.C|
00002490: 31 B2 30 3A 8E 00 AF 64 1C 0C 8B 4D 4F B2 32 AF |1.0:...d...MO.2.|
000024A0: 4C B2 31 A7 8D 33 31 36 30 3A 89 33 31 32 30 00 |L.1..3160:.3120.|
000024B0: B8 64 26 0C 4B B2 44 43 00 C5 64 30 0C 8B 4B B2 |.d&.K.DC..d0..K.|
000024C0: 34 A7 4B B2 30 00 DD 64 3A 0C E1 4B 2C 43 58 2C |4.K.0..d:..K,CX,|
000024D0: 43 59 2C 52 58 2C 52 59 2C 41 4E 2C 4C 00 E7 64 |CY,RX,RY,AN,L..d|
000024E0: 44 0C 8D 32 30 3A 8E 00 F7 64 4E 0C 4C B2 30 3A |D..20:...dN.L.0:|
000024F0: 8F 20 50 41 49 4E 54 00 1B 65 58 0C 4B B2 31 3A |. PAINT..eX.K.1:|
00002500: 49 58 B2 31 3A 49 59 B2 31 3A FE 06 38 2C 46 58 |IX.1:IY.1:..8,FX|
00002510: 2C 46 59 3A 8F 20 50 41 49 4E 54 00 4B 65 62 0C |,FY:. PAINT.Keb.|
00002520: E0 31 2C 30 2C 32 34 2C 22 53 45 4C 45 43 54 20 |.1,0,24,"SELECT |
00002530: 43 4F 4C 4F 52 3D 4A 4F 59 2D 2D 51 55 49 54 20 |COLOR=JOY--QUIT |
00002540: 42 55 54 54 4F 4E 3D 3E 22 2C 31 00 70 65 6C 0C |BUTTON=>",1.pel.|
00002550: 56 B2 32 35 30 3A 57 B2 31 39 32 3A 5A B2 33 31 |V.250:W.192:Z.31|
00002560: 39 3A 48 B2 31 39 39 3A 8B 4B B2 35 A7 4B B2 31 |9:H.199:.K.5.K.1|
00002570: 00 82 65 71 0C 8B 4B B2 33 AF 4D 4F B2 31 A7 4B |..eq..K.3.MO.1.K|
00002580: B2 31 00 C6 65 76 0C 8B 4B B2 34 B0 28 4B B2 32 |.1..ev..K.4.(K.2|
00002590: AF 4D 4F B2 31 29 A7 E1 30 2C 56 AD 4D 4F 2C 57 |.MO.1)..0,V.MO,W|
000025A0: 2C 5A AD 4D 4F 2C 48 2C 30 2C 31 3A E1 31 2C 56 |,Z.MO,H,0,1:.1,V|
000025B0: AD 4D 4F 2C 57 2C 5A AD 4D 4F 2C 48 2C 30 2C 30 |.MO,W,Z.MO,H,0,0|
000025C0: 3A 89 33 32 32 30 00 E9 65 80 0C E1 20 4B 2C 32 |:.3220..e... K,2|
000025D0: 35 30 AD 4D 4F 20 2C 31 39 32 2C 33 31 39 AD 4D |50.MO ,192,319.M|
000025E0: 4F 2C 31 39 39 2C 30 2C 31 00 00 66 8A 0C A1 41 |O,199,0,1..f...A|
000025F0: 24 3A 8B 41 24 B2 22 88 22 A7 4A 32 B2 31 32 38 |$:.A$.".".J2.128|
00002600: 00 1E 66 94 0C 8B 41 24 B2 22 22 A7 4A 32 B2 CF |..f...A$."".J2..|
00002610: 28 32 29 3A 8B 4A 32 B2 30 A7 33 32 31 30 00 34 |(2):.J2.0.3210.4|
00002620: 66 9E 0C 8B 4A 32 AF 31 32 38 A7 8D 32 30 3A 89 |f...J2.128..20:.|
00002630: 33 32 36 30 00 4D 66 A8 0C 8B 4D 4F B2 31 A7 8B |3260.Mf...MO.1..|
00002640: 4B B2 33 A7 4B B2 31 3A 89 33 31 38 30 00 5D 66 |K.3.K.1:.3180.]f|
00002650: B2 0C 4B B2 4B AA 31 3A 89 33 31 38 30 00 6E 66 |..K.K.1:.3180.nf|
00002660: BC 0C 8B 43 31 B2 31 A7 43 31 B2 30 3A 8E 00 7D |...C1.1.C1.0:..}|
00002670: 66 C6 0C 8D 32 30 3A 8B 4C B2 31 A7 8E 00 A4 66 |f...20:.L.1....f|
00002680: D0 0C E0 31 2C 30 2C 32 34 2C 22 53 45 4C 45 43 |...1,0,24,"SELEC|
00002690: 54 20 52 45 47 49 4F 4E 20 54 4F 20 50 41 49 4E |T REGION TO PAIN|
000026A0: 54 22 2C 31 00 AD 66 DA 0C 8D 31 31 30 00 CD 66 |T",1..f...110..f|
000026B0: E4 0C 8D 32 37 30 3A 46 58 B2 58 AA 31 33 3A 46 |...270:FX.X.13:F|
000026C0: 59 B2 59 AA 34 30 3A 58 B2 58 AD 4D 4F 00 EB 66 |Y.Y.40:X.X.MO..f|
000026D0: EE 0C 8B 4D 4F B2 31 AF 4B B2 32 A7 3A DF 4B 2C |...MO.1.K.2.:.K,|
000026E0: 58 2C 59 2C 30 3A 89 33 33 34 30 00 03 67 F8 0C |X,Y,0:.3340..g..|
000026F0: 8B 4B B2 34 A7 DF 30 2C 58 2C 59 2C 30 3A 89 33 |.K.4..0,X,Y,0:.3|
00002700: 33 34 30 00 10 67 02 0D DF 4B 2C 58 2C 59 2C 31 |340..g...K,X,Y,1|
00002710: 00 28 67 0C 0D 52 58 B2 D0 28 30 29 3A 52 59 B2 |.(g..RX..(0):RY.|
00002720: D0 28 31 29 3A 8D 32 30 00 5E 67 16 0D E0 31 2C |.(1):.20.^g...1,|
00002730: 30 2C 32 34 2C 22 41 47 41 49 4E 3F 20 20 28 59 |0,24,"AGAIN? (Y|
00002740: 20 3C 3D 20 20 4E 29 20 20 20 20 20 22 2C 31 3A | <= N) ",1:|
00002750: 43 31 B2 31 3A 4C B2 31 3A 8D 33 30 33 30 00 6C |C1.1:L.1:.3030.l|
00002760: 67 20 0D 8B 4C B2 31 A7 33 32 38 30 00 84 67 2A |g ..L.1.3280..g*|
00002770: 0D 52 58 B2 D0 28 30 29 3A 52 59 B2 D0 28 31 29 |.RX..(0):RY..(1)|
00002780: 3A 8D 32 30 00 8A 67 34 0D 8E 00 BC 67 3E 0D 4A |:.20..g4....g>.J|
00002790: B2 31 3A 81 49 B2 31 A4 37 3A FE 16 53 24 28 49 |.1:.I.1.7:..S$(I|
000027A0: AA 4A AC 37 29 2C 49 3A 82 3A 8E 3A 8F 20 43 48 |.J.7),I:.:.:. CH|
000027B0: 41 4E 47 45 20 4F 50 54 49 4F 4E 53 00 C8 67 48 |ANGE OPTIONS..gH|
000027C0: 0D 8F 20 41 4E 47 4C 45 00 EB 67 52 0D FE 16 53 |.. ANGLE..gR...S|
000027D0: 24 28 35 29 2C 31 3A FE 16 53 24 28 39 29 2C 32 |$(5),1:..S$(9),2|
000027E0: 3A FE 16 53 24 28 31 30 29 2C 33 00 02 68 5C 0D |:..S$(10),3..h\.|
000027F0: FE 07 38 2C 30 3A FE 06 38 2C 34 AC 34 34 2C 32 |..8,0:..8,4.44,2|
00002800: 32 33 00 13 68 66 0D FE 06 31 2C 33 AC 34 34 2C |23..hf...1,3.44,|
00002810: 32 32 34 00 24 68 70 0D FE 06 32 2C 34 AC 34 34 |224.$hp...2,4.44|
00002820: 2C 32 32 34 00 35 68 7A 0D FE 06 33 2C 35 AC 34 |,224.5hz...3,5.4|
00002830: 34 2C 32 32 34 00 48 68 84 0D 81 54 B2 31 A4 33 |4,224.Hh...T.1.3|
00002840: 3A FE 07 54 2C 31 3A 82 00 7B 68 8E 0D E0 31 2C |:..T,1:..{h...1,|
00002850: 30 2C 32 34 2C 22 41 4E 47 4C 45 20 28 30 20 2D |0,24,"ANGLE (0 -|
00002860: 20 33 36 30 29 3F 22 2C 31 3A 42 24 B2 22 22 3A | 360)?",1:B$."":|
00002870: 8D 33 35 38 30 3A 41 4E B2 53 49 00 83 68 98 0D |.3580:AN.SI..h..|
00002880: 8D 32 30 00 8D 68 A2 0D FE 07 38 2C 31 00 A0 68 |.20..h....8,1..h|
00002890: AC 0D 49 59 B2 30 3A 49 58 B2 35 3A 8D 31 31 30 |..IY.0:IX.5:.110|
000028A0: 00 B9 68 B6 0D 8D 38 33 30 3A 8B 53 4E B3 31 B0 |..h...830:.SN.1.|
000028B0: 53 4E B1 33 A7 33 35 30 30 00 CC 68 C0 0D 81 54 |SN.3.3500..h...T|
000028C0: B2 31 A4 33 3A FE 07 54 2C 30 3A 82 00 E3 68 CA |.1.3:..T,0:...h.|
000028D0: 0D 91 53 4E 8D 32 39 35 30 2C 33 35 36 30 2C 33 |..SN.2950,3560,3|
000028E0: 37 30 30 00 F2 68 D4 0D 41 4E B2 30 3A 8D 33 33 |700..h..AN.0:.33|
000028F0: 39 30 00 F8 68 DE 0D 8E 00 12 69 E8 0D 43 49 B2 |90..h.....i..CI.|
00002900: 31 3A 8D 32 31 32 30 3A 8F 20 50 4F 4C 59 47 4F |1:.2120:. POLYGO|
00002910: 4E 53 00 49 69 F2 0D E0 31 2C 30 2C 32 34 2C 22 |NS.Ii...1,0,24,"|
00002920: 4E 55 4D 42 45 52 20 4F 46 20 53 49 44 45 53 3F |NUMBER OF SIDES?|
00002930: 22 2C 31 3A 4C B2 30 3A 42 24 B2 22 22 3A 8D 33 |",1:L.0:B$."":.3|
00002940: 35 38 30 3A 89 33 36 34 30 00 5D 69 FC 0D A1 41 |580:.3640.]i...A|
00002950: 24 3A 8B 41 24 B2 22 22 A7 33 35 38 30 00 70 69 |$:.A$."".3580.pi|
00002960: 06 0E 8B 41 24 B2 C7 28 31 33 29 A7 33 36 33 30 |...A$..(13).3630|
00002970: 00 88 69 10 0E 8B 41 24 B3 22 30 22 B0 41 24 B1 |..i...A$."0".A$.|
00002980: 22 39 22 A7 33 35 38 30 00 AB 69 1A 0E 4C B2 4C |"9".3580..i..L.L|
00002990: AA 31 3A E0 31 2C 31 37 AA 4C 2C 32 34 2C 41 24 |.1:.1,17.L,24,A$|
000029A0: 2C 31 3A 42 24 B2 42 24 AA 41 24 00 B5 69 24 0E |,1:B$.B$.A$..i$.|
000029B0: 89 33 35 38 30 00 C4 69 2E 0E 53 49 B2 C5 28 42 |.3580..i..SI..(B|
000029C0: 24 29 3A 8E 00 D1 69 38 0E 8B 53 49 B3 B2 31 A7 |$):...i8..SI..1.|
000029D0: 8E 00 DF 69 42 0E 8B 4B B2 31 A7 33 36 37 30 00 |...iB..K.1.3670.|
000029E0: 1F 6A 4C 0E 52 B2 B6 28 52 58 AB 43 58 29 3A E2 |.jL.R..(RX.CX):.|
000029F0: 44 43 2C 43 58 2C 43 59 2C 52 2C 52 AC 50 58 28 |DC,CX,CY,R,R.PX(|
00002A00: 4D 4F 29 2C 32 37 30 2C 32 37 30 2C 31 38 30 AA |MO),270,270,180.|
00002A10: 41 4E 2C 33 36 30 AD 53 49 3A 89 33 36 38 30 00 |AN,360.SI:.3680.|
00002A20: 53 6A 56 0E 52 B2 B6 28 52 59 AB 43 59 29 3A E2 |SjV.R..(RY.CY):.|
00002A30: 44 43 2C 43 58 2C 43 59 2C 52 AC 50 59 28 4D 4F |DC,CX,CY,R.PY(MO|
00002A40: 29 2C 52 2C 2C 2C 31 38 30 AA 41 4E 2C 33 36 30 |),R,,,180.AN,360|
00002A50: AD 53 49 00 5B 6A 60 0E 8D 32 30 00 61 6A 6A 0E |.SI.[j`..20.ajj.|
00002A60: 8E 00 6D 6A 74 0E 8F 20 4F 56 41 4C 53 00 7C 6A |..mjt.. OVALS.|j|
00002A70: 7E 0E 43 49 B2 32 3A 8D 32 31 32 30 00 8D 6A 88 |~.CI.2:.2120..j.|
00002A80: 0E 8B 41 31 B2 31 A7 41 31 B2 30 3A 8E 00 B2 6A |..A1.1.A1.0:...j|
00002A90: 92 0E E2 44 43 2C 43 58 2C 43 59 2C B6 28 43 58 |...DC,CX,CY,.(CX|
00002AA0: AB 52 58 29 2C B6 28 4F 59 AB 43 59 29 2C 2C 2C |.RX),.(OY.CY),,,|
00002AB0: 41 4E 00 B8 6A 9C 0E 8E 00 D9 6A A6 0E 4A B2 32 |AN..j.....j..J.2|
00002AC0: 3A 81 49 B2 31 A4 37 3A FE 16 53 24 28 49 AA 4A |:.I.1.7:..S$(I.J|
00002AD0: AC 37 29 2C 49 3A 82 3A 8E 00 EB 6A B0 0E 97 31 |.7),I:.:...j...1|
00002AE0: 2C 31 31 36 3A 8F 20 53 41 56 45 00 04 6B BA 0E |,116:. SAVE..k..|
00002AF0: FE 07 38 2C 30 3A 4C B2 30 3A 43 54 B2 30 3A 46 |..8,0:L.0:CT.0:F|
00002B00: 24 B2 22 22 00 3C 6B C4 0E E0 31 2C 30 2C 32 34 |$."".<k...1,0,24|
00002B10: 2C 22 46 49 4C 45 4E 41 4D 45 3F 22 2C 31 3A E0 |,"FILENAME?",1:.|
00002B20: 31 2C 39 2C 32 34 2C 22 20 20 20 20 20 20 20 20 |1,9,24," |
00002B30: 20 20 20 22 2C 30 3A 46 24 B2 22 22 00 45 6B CE | ",0:F$."".Ek.|
00002B40: 0E A1 F9 41 24 00 58 6B D8 0E 8B 41 24 B2 C7 28 |...A$.Xk...A$..(|
00002B50: 31 33 29 A7 33 38 33 30 00 6B 6B E2 0E 8B 41 24 |13).3830.kk...A$|
00002B60: B2 C7 28 32 30 29 A7 33 37 37 30 00 97 6B EC 0E |..(20).3770..k..|
00002B70: 46 24 B2 46 24 AA 41 24 3A E0 31 2C 31 30 AA 43 |F$.F$.A$:.1,10.C|
00002B80: 54 2C 32 34 2C 41 24 2C 31 3A 43 54 B2 43 54 AA |T,24,A$,1:CT.CT.|
00002B90: 31 3A 89 33 37 39 30 00 A7 6B F6 0E 54 24 B2 22 |1:.3790..k..T$."|
00002BA0: 53 31 2E 22 AA 46 24 00 E0 6B FB 0E FE 02 31 35 |S1.".F$..k....15|
00002BB0: 3A 41 B2 C2 28 35 33 32 38 30 29 AF 31 35 3A 42 |:A..(53280).15:B|
00002BC0: B2 C2 28 35 33 32 38 31 29 AF 31 35 3A FE 02 30 |..(53281).15:..0|
00002BD0: 3A 97 38 31 36 38 2C 41 3A 97 38 31 36 39 2C 42 |:.8168,A:.8169,B|
00002BE0: 00 01 6C 00 0F FE 10 28 54 24 29 2C 44 30 2C 55 |..l....(T$),D0,U|
00002BF0: 38 2C 42 30 2C 50 37 31 36 38 A4 50 31 36 33 38 |8,B0,P7168.P1638|
00002C00: 33 00 11 6C 0A 0F 54 24 B2 22 43 4C 2E 22 AA 46 |3..l..T$."CL.".F|
00002C10: 24 00 3A 6C 0F 0F FE 02 31 35 3A 97 35 33 32 37 |$.:l....15:.5327|
00002C20: 34 2C C2 28 35 33 32 37 34 29 AF 32 35 34 3A 97 |4,.(53274).254:.|
00002C30: 31 2C C2 28 31 29 AF 32 35 34 00 5D 6C 14 0F FE |1,.(1).254.]l...|
00002C40: 10 28 54 24 29 2C 44 30 2C 55 38 2C 42 31 35 2C |.(T$),D0,U8,B15,|
00002C50: 50 35 35 32 39 36 A4 50 35 36 33 31 39 00 6B 6C |P55296.P56319.kl|
00002C60: 19 0F 97 31 2C C2 28 31 29 B0 31 00 81 6C 1B 0F |...1,.(1).1..l..|
00002C70: 97 35 33 32 37 34 2C C2 28 35 33 32 37 34 29 B0 |.53274,.(53274).|
00002C80: 31 00 AA 6C 1E 0F E0 31 2C 30 2C 32 34 2C 44 53 |1..l...1,0,24,DS|
00002C90: 24 AA 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
00002CA0: 20 20 20 20 20 20 20 22 2C 31 00 E6 6C 28 0F FE | ",1..l(..|
00002CB0: 0B 35 3A 8D 32 30 3A E0 31 2C 30 2C 32 34 2C 22 |.5:.20:.1,0,24,"|
00002CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002CD0: 20 20 20 20 22 2C 30 3A 97 31 2C 31 31 35 3A FE | ",0:.1,115:.|
00002CE0: 07 38 2C 31 3A 8E 00 F1 6C 32 0F 8F 20 4C 4F 41 |.8,1:...l2.. LOA|
00002CF0: 44 00 27 6D 33 0F E0 31 2C 30 2C 32 34 2C 22 44 |D.'m3..1,0,24,"D|
00002D00: 45 53 54 52 4F 59 53 20 45 58 49 53 54 49 4E 47 |ESTROYS EXISTING|
00002D10: 20 50 49 43 54 55 52 45 2D 43 4F 4E 54 49 4E 55 | PICTURE-CONTINU|
00002D20: 45 28 59 2F 4E 29 22 00 7B 6D 34 0F A1 F9 41 24 |E(Y/N)".{m4...A$|
00002D30: 3A E0 31 2C 30 2C 32 34 2C 22 20 20 20 20 20 20 |:.1,0,24," |
00002D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002D50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002D60: 20 20 22 2C 30 3A 8B 41 24 B2 22 59 22 A7 33 38 | ",0:.A$."Y".38|
00002D70: 39 35 3A D5 FE 07 38 2C 31 3A 8E 00 87 6D 37 0F |95:...8,1:...m7.|
00002D80: FE 07 38 2C 30 3A E8 00 A6 6D 3C 0F 4C B2 30 3A |..8,0:...m<.L.0:|
00002D90: 43 54 B2 30 3A 44 56 B2 38 3A 3A 46 24 B2 22 22 |CT.0:DV.8::F$.""|
00002DA0: 3A 54 24 B2 22 22 00 DE 6D 46 0F E0 31 2C 30 2C |:T$.""..mF..1,0,|
00002DB0: 32 34 2C 22 46 49 4C 45 4E 41 4D 45 3F 22 2C 31 |24,"FILENAME?",1|
00002DC0: 3A E0 31 2C 39 2C 32 34 2C 22 20 20 20 20 20 20 |:.1,9,24," |
00002DD0: 20 20 20 20 20 22 2C 30 3A 46 24 B2 22 22 00 E7 | ",0:F$.""..|
00002DE0: 6D 50 0F A1 F9 41 24 00 FA 6D 5A 0F 8B 41 24 B2 |mP...A$..mZ..A$.|
00002DF0: C7 28 31 33 29 A7 33 39 35 35 00 0D 6E 64 0F 8B |.(13).3955..nd..|
00002E00: 41 24 B2 C7 28 32 30 29 A7 33 39 30 30 00 39 6E |A$..(20).3900.9n|
00002E10: 6E 0F 46 24 B2 46 24 AA 41 24 3A E0 31 2C 31 30 |n.F$.F$.A$:.1,10|
00002E20: AA 43 54 2C 32 34 2C 41 24 2C 31 3A 43 54 B2 43 |.CT,24,A$,1:CT.C|
00002E30: 54 AA 31 3A 89 33 39 32 30 00 66 6E 73 0F 8B 46 |T.1:.3920.fns..F|
00002E40: 24 B2 22 24 22 A7 DE 30 2C 31 3A E7 35 2C 28 CD |$."$"..0,1:.5,(.|
00002E50: 28 31 29 29 3A FE 0C 22 3F 31 2E 2A 22 3A DE 30 |(1)):.."?1.*":.0|
00002E60: 3A D5 33 39 36 30 00 83 6E 74 0F 99 22 11 11 53 |:.3960..nt.."..S|
00002E70: 54 52 49 4B 45 20 41 4E 59 20 4B 45 59 22 3A A1 |TRIKE ANY KEY":.|
00002E80: F9 41 24 00 98 6E 75 0F 8B 4D 4F B2 32 A7 DE 33 |.A$..nu..MO.2..3|
00002E90: 2C 31 3A D5 DE 31 2C 31 00 A2 6E 76 0F 89 33 39 |,1:..1,1..nv..39|
00002EA0: 30 30 00 C9 6E 78 0F 54 24 B2 22 30 31 2E 22 AA |00..nx.T$."01.".|
00002EB0: 46 24 3A FE 0D 23 31 2C 28 54 24 29 3A 8B 44 53 |F$:..#1,(T$):.DS|
00002EC0: B3 B1 36 32 A7 33 39 39 38 00 E1 6E 7D 0F FE 0F |..62.3998..n}...|
00002ED0: 23 31 3A FE 15 3A 54 24 B2 22 53 31 2E 22 AA 46 |#1:..:T$."S1.".F|
00002EE0: 24 00 FB 6E 82 0F FE 11 28 54 24 29 2C 44 30 2C |$..n....(T$),D0,|
00002EF0: 55 38 2C 42 30 2C 50 37 31 36 38 00 24 6F 87 0F |U8,B0,P7168.$o..|
00002F00: FE 02 31 35 3A 97 35 33 32 37 34 2C C2 28 35 33 |..15:.53274,.(53|
00002F10: 32 37 34 29 AF 32 35 34 3A 97 31 2C C2 28 31 29 |274).254:.1,.(1)|
00002F20: AF 32 35 34 00 34 6F 8C 0F 54 24 B2 22 43 4C 2E |.254.4o..T$."CL.|
00002F30: 22 AA 46 24 00 50 6F 96 0F FE 11 28 54 24 29 2C |".F$.Po....(T$),|
00002F40: 44 30 2C 55 38 2C 42 31 35 2C 50 35 35 32 39 36 |D0,U8,B15,P55296|
00002F50: 00 5E 6F 9A 0F 97 31 2C C2 28 31 29 B0 31 00 74 |.^o...1,.(1).1.t|
00002F60: 6F 9B 0F 97 35 33 32 37 34 2C C2 28 35 33 32 37 |o...53274,.(5327|
00002F70: 34 29 B0 31 00 A9 6F 9C 0F FE 02 31 35 3A 41 B2 |4).1..o....15:A.|
00002F80: 28 C2 28 38 31 36 38 29 AF 31 35 29 AA 31 3A 42 |(.(8168).15).1:B|
00002F90: B2 28 C2 28 38 31 36 39 29 AF 31 35 29 AA 31 3A |.(.(8169).15).1:|
00002FA0: E7 30 2C 42 3A E7 34 2C 41 00 B3 6F 9D 0F 89 34 |.0,B:.4,A..o...4|
00002FB0: 30 30 30 00 D5 6F 9E 0F FE 0F 23 31 3A FE 15 3A |000..o....#1:..:|
00002FC0: FE 11 28 54 24 29 2C 44 30 2C 55 38 2C 42 30 2C |..(T$),D0,U8,B0,|
00002FD0: 50 37 31 36 38 00 FB 6F 9F 0F 54 24 B2 22 30 32 |P7168..o..T$."02|
00002FE0: 2E 22 AA 46 24 3A FE 11 28 54 24 29 2C 44 30 2C |.".F$:..(T$),D0,|
00002FF0: 55 38 2C 42 30 2C 50 38 31 39 33 00 25 70 A0 0F |U8,B0,P8193.%p..|
00003000: E0 31 2C 30 2C 32 34 2C 44 53 24 AA 22 20 20 20 |.1,0,24,DS$." |
00003010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003020: 20 20 22 2C 31 00 53 70 AA 0F FE 0B 35 3A 8D 32 | ",1.Sp....5:.2|
00003030: 30 3A E0 31 2C 30 2C 32 34 2C 22 20 20 20 20 20 |0:.1,0,24," |
00003040: 20 20 20 20 20 20 20 20 22 2C 30 3A FE 07 38 2C | ",0:..8,|
00003050: 31 3A 8E 00 74 70 B4 0F 4A B2 30 3A 81 49 B2 31 |1:..tp..J.0:.I.1|
00003060: A4 37 3A FE 16 53 24 28 49 AA 4A AC 37 29 2C 49 |.7:..S$(I.J.7),I|
00003070: 3A 82 3A 8E 00 87 70 BE 0F 8F 20 43 4C 45 41 52 |:.:...p... CLEAR|
00003080: 20 53 43 52 45 45 4E 00 AC 70 C8 0F E0 31 2C 30 | SCREEN..p...1,0|
00003090: 2C 32 34 2C 22 41 52 45 20 59 4F 55 20 53 55 52 |,24,"ARE YOU SUR|
000030A0: 45 3F 20 20 28 59 2F 4E 29 22 2C 31 00 B5 70 D2 |E? (Y/N)",1..p.|
000030B0: 0F A1 F9 41 24 00 C3 70 DC 0F 8B 41 24 B2 22 59 |...A$..p...A$."Y|
000030C0: 22 A7 E8 00 CD 70 E6 0F 8D 32 30 3A 8E 00 D8 70 |"....p...20:...p|
000030D0: F0 0F 8F 20 51 55 49 54 00 FD 70 FA 0F E0 31 2C |... QUIT..p...1,|
000030E0: 30 2C 32 34 2C 22 41 52 45 20 59 4F 55 20 53 55 |0,24,"ARE YOU SU|
000030F0: 52 45 3F 20 20 28 59 2F 4E 29 22 2C 31 00 06 71 |RE? (Y/N)",1..q|
00003100: 04 10 A1 F9 41 24 00 2A 71 0E 10 8B 41 24 B2 22 |....A$.*q...A$."|
00003110: 59 22 A7 DE 30 3A E7 35 2C CD 28 31 29 3A FE 07 |Y"..0:.5,.(1):..|
00003120: 38 2C 30 3A 99 22 93 22 3A 80 00 34 71 18 10 8D |8,0:.".":..4q...|
00003130: 32 30 3A 8E 00 3E 71 22 10 8F 20 41 52 43 00 74 |20:..>q".. ARC.t|
00003140: 71 2C 10 41 31 B2 31 3A FE 16 53 24 28 31 30 29 |q,.A1.1:..S$(10)|
00003150: 2C 32 3A FE 16 53 24 28 31 29 2C 31 3A FE 06 31 |,2:..S$(1),1:..1|
00003160: 2C 31 35 30 2C 32 32 34 3A FE 06 32 2C 32 30 32 |,150,224:..2,202|
00003170: 2C 32 32 34 00 96 71 36 10 FE 06 38 2C 31 37 36 |,224..q6...8,176|
00003180: 2C 32 32 33 3A FE 07 31 2C 31 3A FE 07 32 2C 31 |,223:..1,1:..2,1|
00003190: 3A FE 07 38 2C 31 00 A9 71 40 10 49 59 B2 30 3A |:..8,1..q@.IY.0:|
000031A0: 49 58 B2 35 3A 8D 31 31 30 00 C0 71 4A 10 8D 38 |IX.5:.110..qJ..8|
000031B0: 33 30 3A 91 53 4E 8D 32 31 31 30 2C 33 37 30 30 |30:.SN.2110,3700|
000031C0: 00 00 72 54 10 41 31 B2 30 3A E0 31 2C 30 2C 32 |..rT.A1.0:.1,0,2|
000031D0: 34 2C 22 4A 4F 59 42 55 54 54 4F 4E 20 54 4F 20 |4,"JOYBUTTON TO |
000031E0: 53 54 41 52 54 2F 53 54 4F 50 20 4C 49 4E 45 22 |START/STOP LINE"|
000031F0: 2C 31 3A 91 53 4E 89 34 31 39 30 2C 34 32 38 30 |,1:.SN.4190,4280|
00003200: 00 0E 72 5E 10 8B 4B B2 31 A7 34 32 34 30 00 45 |..r^..K.1.4240.E|
00003210: 72 68 10 52 B2 B6 28 52 58 AB 43 58 29 3A 81 4D |rh.R..(RX.CX):.M|
00003220: B2 30 A4 33 38 30 A9 32 3A E2 4B AC 44 43 2C 43 |.0.380.2:.K.DC,C|
00003230: 58 2C 43 59 2C 52 2C 52 AC 50 58 28 4D 4F 29 2C |X,CY,R,R.PX(MO),|
00003240: 4D 2C 4D AA 32 00 73 72 72 10 58 B2 D0 28 30 29 |M,M.2.srr.X..(0)|
00003250: 3A 59 B2 D0 28 31 29 3A FE 06 38 2C 58 AC 4D 4F |:Y..(1):..8,X.MO|
00003260: AA 31 33 2C 59 AA 34 30 3A 81 54 B2 31 A4 31 30 |.13,Y.40:.T.1.10|
00003270: 30 3A 82 00 90 72 7C 10 4A 32 B2 CF 28 32 29 3A |0:...r|.J2..(2):|
00003280: 8B 4A 32 AF 31 32 38 A7 4B B2 B6 28 4B AB 31 29 |.J2.128.K..(K.1)|
00003290: 00 A2 72 86 10 82 3A 8D 32 30 3A 8D 33 33 39 30 |..r...:.20:.3390|
000032A0: 3A 8E 00 D9 72 90 10 52 B2 B6 28 52 59 AB 43 59 |:...r..R..(RY.CY|
000032B0: 29 3A 81 4D B2 30 A4 33 38 30 A9 32 3A E2 4C AC |):.M.0.380.2:.L.|
000032C0: 44 43 2C 43 58 2C 43 59 2C 52 AC 50 59 28 4D 4F |DC,CX,CY,R.PY(MO|
000032D0: 29 2C 52 2C 4D 2C 4D AA 32 00 07 73 9A 10 58 B2 |),R,M,M.2..s..X.|
000032E0: D0 28 30 29 3A 59 B2 D0 28 31 29 3A FE 06 38 2C |.(0):Y..(1):..8,|
000032F0: 58 AC 4D 4F AA 31 33 2C 59 AA 34 30 3A 81 54 B2 |X.MO.13,Y.40:.T.|
00003300: 31 A4 31 30 30 3A 82 00 24 73 A4 10 4A 32 B2 CF |1.100:..$s..J2..|
00003310: 28 32 29 3A 8B 4A 32 AF 31 32 38 A7 4C B2 B6 28 |(2):.J2.128.L..(|
00003320: 4C AB 31 29 00 36 73 AE 10 82 3A 8D 32 30 3A 8D |L.1).6s...:.20:.|
00003330: 33 33 39 30 3A 8E 00 4E 73 B8 10 4B B2 30 3A 41 |3390:..Ns..K.0:A|
00003340: 31 B2 30 3A 81 4D B2 30 A4 33 38 30 A9 32 00 79 |1.0:.M.0.380.2.y|
00003350: 73 C2 10 E2 44 43 AC 4B 2C 43 58 2C 43 59 2C B6 |s...DC.K,CX,CY,.|
00003360: 28 43 58 AB 52 58 29 2C B6 28 4F 59 AB 43 59 29 |(CX.RX),.(OY.CY)|
00003370: 2C 4D 2C 4D AA 32 2C 41 4E 00 A7 73 CC 10 58 B2 |,M,M.2,AN..s..X.|
00003380: D0 28 30 29 3A 59 B2 D0 28 31 29 3A FE 06 38 2C |.(0):Y..(1):..8,|
00003390: 58 AC 4D 4F AA 31 33 3A 59 AA 34 30 3A 81 54 B2 |X.MO.13:Y.40:.T.|
000033A0: 31 A4 31 30 30 3A 82 00 C4 73 D6 10 4A 32 B2 CF |1.100:...s..J2..|
000033B0: 28 32 29 3A 8B 4A 32 AF 31 32 38 A7 4B B2 B6 28 |(2):.J2.128.K..(|
000033C0: 4B AB 31 29 00 D6 73 E0 10 82 3A 8D 32 30 3A 8D |K.1)..s...:.20:.|
000033D0: 33 33 39 30 3A 8E 00 DC 73 EA 10 8E 00 E6 73 F4 |3390:...s.....s.|
000033E0: 10 8F 20 4F 46 46 00 F9 73 FE 10 81 49 B2 31 A4 |.. OFF..s...I.1.|
000033F0: 38 3A FE 07 49 2C 30 3A 82 00 02 74 08 11 8D 31 |8:..I,0:...t...1|
00003400: 31 30 00 15 74 12 11 81 49 B2 31 A4 38 3A FE 07 |10..t...I.1.8:..|
00003410: 49 2C 31 3A 82 00 1B 74 1C 11 8E 00 3C 74 26 11 |I,1:...t....<t&.|
00003420: 4A B2 30 3A 81 49 B2 31 A4 37 3A FE 16 53 24 28 |J.0:.I.1.7:..S$(|
00003430: 49 AA 4A AC 37 29 2C 49 3A 82 3A 8E 00 47 74 30 |I.J.7),I:.:..Gt0|
00003440: 11 8F 20 43 4F 50 59 00 83 74 3A 11 E0 31 2C 30 |.. COPY..t:..1,0|
00003450: 2C 32 34 2C 22 45 4E 54 45 52 20 55 50 50 45 52 |,24,"ENTER UPPER|
00003460: 20 4C 45 46 54 20 43 4F 52 4E 45 52 22 2C 31 3A | LEFT CORNER",1:|
00003470: 49 58 B2 31 3A 49 59 B2 31 3A FE 06 38 2C 46 58 |IX.1:IY.1:..8,FX|
00003480: 2C 46 59 00 97 74 44 11 8D 31 31 30 3A 8B 4A 42 |,FY..tD..110:.JB|
00003490: B2 31 A7 34 34 33 30 00 B2 74 4E 11 8D 32 37 30 |.1.4430..tN..270|
000034A0: 3A E5 44 43 2C 58 AD 4D 4F 2C 59 3A 58 B2 58 AD |:.DC,X.MO,Y:X.X.|
000034B0: 4D 4F 00 DB 74 58 11 E0 31 2C 30 2C 32 34 2C 22 |MO..tX..1,0,24,"|
000034C0: 45 4E 54 45 52 20 4C 4F 57 45 52 20 52 49 47 48 |ENTER LOWER RIGH|
000034D0: 54 20 43 4F 52 4E 45 52 22 2C 31 00 EF 74 62 11 |T CORNER",1..tb.|
000034E0: 8D 31 31 30 3A 8B 4A 42 B2 31 A7 34 34 36 30 00 |.110:.JB.1.4460.|
000034F0: 31 75 6C 11 58 4C B2 CE 05 28 38 2C 30 29 3A 59 |1ul.XL...(8,0):Y|
00003500: 4C B2 CE 05 28 38 2C 31 29 3A 58 4C B2 58 4C AB |L...(8,1):XL.XL.|
00003510: 31 33 3A 59 4C B2 59 4C AB 34 30 3A E5 44 43 2C |13:YL.YL.40:.DC,|
00003520: 58 4C AD 4D 4F 2C 59 4C 3A 58 4C B2 58 4C AD 4D |XL.MO,YL:XL.XL.M|
00003530: 4F 00 40 75 76 11 8B 4D 4F B2 31 A7 34 35 30 30 |O.@uv..MO.1.4500|
00003540: 00 6A 75 80 11 43 53 B2 B5 28 28 B6 28 58 AB 58 |.ju..CS..((.(X.X|
00003550: 4C 29 AA 31 29 AD 34 AA 2E 39 39 29 AC 28 B6 28 |L).1).4..99).(.(|
00003560: 59 AB 59 4C 29 AA 31 29 AA 34 00 74 75 8A 11 89 |Y.YL).1).4.tu...|
00003570: 34 35 31 30 00 9E 75 94 11 43 53 B2 B5 28 28 B6 |4510..u..CS..((.|
00003580: 28 58 AB 58 4C 29 AA 31 29 AD 38 AA 2E 39 39 29 |(X.XL).1).8..99)|
00003590: AC 28 B6 28 59 AB 59 4C 29 AA 31 29 AA 34 00 B6 |.(.(Y.YL).1).4..|
000035A0: 75 9E 11 8B 43 53 B1 32 35 35 A7 8D 34 36 32 30 |u...CS.255..4620|
000035B0: 3A 89 34 34 31 30 00 C9 75 A8 11 E4 53 53 24 2C |:.4410..u...SS$,|
000035C0: 58 2C 59 2C 58 4C 2C 59 4C 00 F9 75 B2 11 E0 31 |X,Y,XL,YL..u...1|
000035D0: 2C 30 2C 32 34 2C 22 4C 4F 43 41 54 45 20 55 50 |,0,24,"LOCATE UP|
000035E0: 50 45 52 2D 4C 45 46 54 20 43 4F 50 59 20 50 4F |PER-LEFT COPY PO|
000035F0: 53 49 54 49 4F 4E 22 2C 31 00 02 76 BC 11 8D 31 |SITION",1..v...1|
00003600: 31 30 00 12 76 C6 11 8D 32 37 30 3A 58 B2 58 AD |10..v...270:X.X.|
00003610: 4D 4F 00 1F 76 D0 11 E3 53 53 24 2C 58 2C 59 00 |MO..v...SS$,X,Y.|
00003620: 27 76 DA 11 8D 32 30 00 5E 76 E4 11 43 31 B2 31 |'v...20.^v..C1.1|
00003630: 3A 4C B2 31 3A E0 31 2C 30 2C 32 34 2C 22 41 47 |:L.1:.1,0,24,"AG|
00003640: 41 49 4E 3F 20 20 28 59 20 3C 3D 20 20 4E 29 20 |AIN? (Y <= N) |
00003650: 20 20 20 20 20 22 2C 31 3A 8D 33 30 33 30 00 66 | ",1:.3030.f|
00003660: 76 EE 11 8D 32 30 00 75 76 F8 11 8B 4C B2 31 A7 |v...20.uv...L.1.|
00003670: 89 34 35 33 30 00 7B 76 02 12 8E 00 AB 76 0C 12 |.4530.{v.....v..|
00003680: E0 31 2C 30 2C 32 34 2C 22 41 52 45 41 20 43 4F |.1,0,24,"AREA CO|
00003690: 50 49 45 44 20 54 4F 4F 20 4C 41 52 47 45 2D 54 |PIED TOO LARGE-T|
000036A0: 52 59 20 41 47 41 49 4E 22 2C 31 00 E1 76 16 12 |RY AGAIN",1..v..|
000036B0: 43 53 24 B2 22 20 22 AA C4 28 B5 28 28 43 53 AD |CS$." "..(.((CS.|
000036C0: 32 35 35 29 AC 31 30 30 AA 2E 35 29 29 AA 22 25 |255).100..5))."%|
000036D0: 20 22 3A E0 31 2C 33 33 2C 32 34 2C 43 53 24 2C | ":.1,33,24,CS$,|
000036E0: 31 00 E9 76 20 12 FE 0B 35 00 F1 76 2A 12 8D 32 |1..v ...5..v*..2|
000036F0: 30 00 F7 76 34 12 8E 00 32 77 3E 12 8F 20 53 43 |0..v4...2w>.. SC|
00003700: 52 45 45 4E 20 44 55 4D 50 20 54 4F 20 50 52 49 |REEN DUMP TO PRI|
00003710: 4E 54 45 52 3A 20 46 52 4F 4D 20 42 52 55 43 45 |NTER: FROM BRUCE|
00003720: 20 42 4F 57 44 45 4E 20 48 45 55 52 49 53 54 49 | BOWDEN HEURISTI|
00003730: 43 53 00 3C 77 48 12 FE 07 38 2C 30 00 75 77 52 |CS.<wH...8,0.uwR|
00003740: 12 E0 31 2C 30 2C 32 34 2C 22 54 41 4B 45 53 20 |..1,0,24,"TAKES |
00003750: 41 42 4F 55 54 20 33 30 20 4D 49 4E 55 54 45 53 |ABOUT 30 MINUTES|
00003760: 21 20 20 43 4F 4E 54 49 4E 55 45 3F 20 28 59 2F |! CONTINUE? (Y/|
00003770: 4E 29 22 2C 31 00 7E 77 5C 12 A1 F9 41 24 00 86 |N)",1.~w\...A$..|
00003780: 77 66 12 8D 32 30 00 9A 77 70 12 8B 41 24 B2 22 |wf..20..wp..A$."|
00003790: 4E 22 A7 FE 07 38 2C 31 3A 8E 00 AD 77 7A 12 8B |N"...8,1:...wz..|
000037A0: 41 24 B3 B1 22 59 22 A7 89 34 36 39 30 00 E4 77 |A$.."Y"..4690..w|
000037B0: 84 12 E0 31 2C 30 2C 32 34 2C 22 53 43 52 45 45 |...1,0,24,"SCREE|
000037C0: 4E 20 57 49 4C 4C 20 42 4C 41 4E 4B 20 46 4F 52 |N WILL BLANK FOR|
000037D0: 20 53 50 45 45 44 22 2C 31 3A FE 0B 35 3A 8D 32 | SPEED",1:..5:.2|
000037E0: 30 3A FE 25 00 FE 77 8E 12 9F 33 2C 34 3A 81 58 |0:.%..w...3,4:.X|
000037F0: 31 B2 38 35 31 31 A4 38 31 39 39 A9 AB 38 00 32 |1.8511.8199..8.2|
00003800: 78 98 12 81 59 31 B2 58 31 A4 31 36 31 39 31 AB |x...Y1.X1.16191.|
00003810: 38 AC 28 38 AB B5 28 28 58 31 AB 38 31 39 31 29 |8.(8..((X1.8191)|
00003820: AD 34 30 AA 2E 35 29 29 A9 33 32 30 3A 41 24 B2 |.40..5)).320:A$.|
00003830: 22 22 00 61 78 A2 12 81 5A 31 B2 59 31 AB 37 A4 |"".ax...Z1.Y1.7.|
00003840: 59 31 3A 57 57 B2 C2 28 5A 31 29 B0 31 32 38 3A |Y1:WW..(Z1).128:|
00003850: 8B C2 28 5A 31 29 B2 31 32 38 A7 57 57 B2 31 39 |..(Z1).128.WW.19|
00003860: 32 00 85 78 AC 12 41 24 B2 41 24 AA C7 28 57 57 |2..x..A$.A$..(WW|
00003870: 29 3A 82 3A 98 33 2C C7 28 38 29 41 24 3B 3A 82 |):.:.3,.(8)A$;:.|
00003880: 3A 98 33 3A 82 00 98 78 B6 12 98 33 2C C7 28 31 |:.3:...x...3,.(1|
00003890: 35 29 3A A0 33 3A FE 26 00 A2 78 C0 12 FE 07 38 |5):.3:.&..x....8|
000038A0: 2C 31 00 A8 78 CA 12 8E 00 BB 78 D4 12 FE 07 38 |,1..x.....x....8|
000038B0: 2C 30 3A 8F 20 4C 41 42 45 4C 53 00 09 79 D5 12 |,0:. LABELS..y..|
000038C0: 43 54 B2 30 3A 46 24 B2 22 22 3A 54 24 B2 22 22 |CT.0:F$."":T$.""|
000038D0: 3A E0 31 2C 30 2C 32 34 2C 22 4C 41 42 45 4C 3F |:.1,0,24,"LABEL?|
000038E0: 22 2C 31 3A E0 31 2C 37 2C 32 34 2C 22 20 20 20 |",1:.1,7,24," |
000038F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003900: 22 2C 30 3A 46 24 B2 22 22 00 12 79 D6 12 A1 F9 |",0:F$.""..y....|
00003910: 41 24 00 25 79 D7 12 8B 41 24 B2 C7 28 31 33 29 |A$.%y...A$..(13)|
00003920: A7 34 38 32 36 00 38 79 D8 12 8B 41 24 B2 C7 28 |.4826.8y...A$..(|
00003930: 32 30 29 A7 34 38 32 31 00 63 79 D9 12 46 24 B2 |20).4821.cy..F$.|
00003940: 46 24 AA 41 24 3A E0 31 2C 38 AA 43 54 2C 32 34 |F$.A$:.1,8.CT,24|
00003950: 2C 41 24 2C 31 3A 43 54 B2 43 54 AA 31 3A 89 34 |,A$,1:CT.CT.1:.4|
00003960: 38 32 32 00 BD 79 DA 12 E0 31 2C 30 2C 32 34 2C |822..y...1,0,24,|
00003970: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00003980: 20 20 20 20 20 20 20 22 2C 30 3A E0 31 2C 30 2C | ",0:.1,0,|
00003990: 32 34 2C 22 4C 4F 43 41 54 45 20 4C 41 42 45 4C |24,"LOCATE LABEL|
000039A0: 22 2C 31 3A 49 58 B2 31 3A 49 59 B2 31 3A FE 06 |",1:IX.1:IY.1:..|
000039B0: 38 2C 46 58 2C 46 59 3A FE 07 38 2C 31 00 C6 79 |8,FX,FY:..8,1..y|
000039C0: DB 12 8D 31 31 30 00 F6 79 DC 12 8D 32 37 30 3A |...110..y...270:|
000039D0: 46 58 B2 58 AA 31 33 3A 46 59 B2 59 AA 34 30 3A |FX.X.13:FY.Y.40:|
000039E0: E0 44 43 2C B5 28 58 AD 38 29 2C B5 28 59 AD 38 |.DC,.(X.8),.(Y.8|
000039F0: 29 2C 46 24 2C 30 00 2D 7A DD 12 E0 31 2C 30 2C |),F$,0.-z...1,0,|
00003A00: 32 34 2C 22 20 20 20 20 20 20 20 20 20 20 20 20 |24," |
00003A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003A20: 20 20 20 20 20 20 20 20 20 20 22 2C 30 00 33 7A | ",0.3z|
00003A30: E7 12 8E 00 49 7A E8 12 FE 06 38 2C 31 37 33 2C |....Iz....8,173,|
00003A40: 31 34 30 3A FE 07 38 2C 31 00 56 7A F2 12 E6 31 |140:..8,1.Vz...1|
00003A50: 36 30 2C 31 30 30 00 71 7A FC 12 8B 45 4C B2 33 |60,100.qz...EL.3|
00003A60: 39 37 30 B0 45 4C B2 33 39 39 30 A7 89 34 30 30 |970.EL.3990..400|
00003A70: 30 00 A7 7A 01 13 41 24 B2 C4 28 45 52 29 AA 22 |0..z..A$..(ER)."|
00003A80: 20 20 22 AA D3 28 45 52 29 AA 22 20 45 52 52 4F | "..(ER)." ERRO|
00003A90: 52 20 49 4E 22 AA C4 28 45 4C 29 3A 8B 45 52 B2 |R IN"..(EL):.ER.|
00003AA0: 33 30 A7 34 30 38 30 00 C6 7A 06 13 E0 31 2C 30 |30.4080..z...1,0|
00003AB0: 2C 32 34 2C 41 24 2C 31 3A FE 0B 35 3A 8D 32 30 |,24,A$,1:..5:.20|
00003AC0: 3A D6 34 38 38 30 00 CC 7A 10 13 8E 00 00 00 |:.4880..z...... |
.@.@..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,LABELS..C^.Q.24:J.0..CH..
SN$(22),S$(22),DU(320):. SN$ IS THE FUNC
TION NAME, S$ IS THE SPRITE STR$..DR..I.
0.7:.C(I):.:. C() ARE THE SPRITE COLORS.
...+D|..I.1.7:.SN$(I.J.7):..4D...430.SD.
..:.Z.1.8:A.10.(.(.(0).36)).LD....Z,,,Z.
1:..Z,A#4:.Z..D...I.1.7:.T.0.20:..S$(0),
I:.:.:.1430.LD..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..EV..A$(I),X,Y,X.23,Y.20:.A$,
50,100.IE....A$(I),I:..I,X.Q,Y.50.FE....
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..E....I,1;150:.Z:.I:.540.VE....I
,I.50.14;122:...E...I.1.7:..(I),S$(I.J.7
):.:.1,1..F&.. FORT=1TO2500:NEXT.0F0..
PRINT"...PRESS ANY KEY".:F:..1,CC.WFD..
0,0,0," ",0.TFN.. 0,0,1,"
",0..FX.. 0,0,2," ",
0:.J.1..690..FB.. GETA$:IFA$=""THEN300.
.FL.. PRINT"......................."..F
V.. 1,11,10,11,10,0..G....11,08:.,11,12.
11,20.-G..., 1,10.08,10:.,14,10.20,10.MG
....8,0 :.A$(0),0,0,0.23,0.20.XG....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.7
30.HG...1,0,20,"USE JOYSTICK #2"..GF..1,
0,21,"TO SELECT OPTION. PRESS./HP..1,0,
22,"FIREBUTTON TO LEARN ABOUT
THE OPTION".IHZ..A$:.210:.A$.".".144
0._H..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.CI ..:
IFSN=7ANDJ=0THENFORT=1TO500:NEXT:PRINT
".":GOTO150.LI*..760.YI4..:."=>";.XI>.CL
.N.(1):.CL.0.J2.J2.128:...IH..I.1.4:CL.N
.(1):.T.1.10:.:...IR.CL.CL.128..I\..I.0.
7:.CL.2.I.SN.I.1.HIF..:...JP..1,0,20,"=>
":.1,4,20,SN$(SN.J.7),0:.J.0..SN.960,113
0,1000,1080,1040,1060,1020.IJZ..J.1..SN.
1100,980,1160,1080,1180,1260,1280.YJ...J
.2..SN.1220,1240,1300,1080,1330,1390,136
0. J...1,0,21,A$,0:.1,0,22,B$:.1,0,23,C$
..J.....J..K.0:.BJ..K.K.1:.K.3.K.0.NJ...
K:.940..J..A$." CREATES REGULAR CIRCLES
":.1420..JJ...'KT.A$." CREATES REGULAR
POLYGONS":.1420.-K....NK..A$." CONNECT
POINTS WITH":B$." STRAIGHT LINES":C$.""
:D$."".TK.....K..A$." ALLOWS FREEHAND D
RAWING":.1420..K.....K..A$." DRAWS SQUA
RES AND":B$." RECTANGLES WHICH":C$." M
AY BE FILLED WITH COLOR":D$.""..L....-L$
.A$." FILLS SHAPES WITH COLOR":.1420.3L
....^L8.A$." SELECTS ALTERNATE OPTIONS"
:.1420.DLB....LL.A$." ALLOWS YOU TO DRA
W BOXES,":B$." OVALS, AND POLYGONS AT".
MLV.C$." AN ANGLE YOU SPECIFY":D$."".SL
`....MJ.A$."CHANGE DRAWING COLOR OR THE
PRESELECTED".XMT.B$."COLOR CHOICES. WARN
ING: CHANGING COLOR 3":C$."CAUSES UNPRED
ICTABLE RESULTS".^M~....M..A$." FOR DRA
WING OVALS OR ELLIPSES":.1420..M....VM..
A$." CREATES SECTIONS OF":B$." CIRCLES
AND ARCS":C$."":D$.""..M.....M..A$." L
EAVE THE PROGRAM":.1420..N....-ND.A$."
SAVES A SCREEN TO DISK":.1420.3NN...]NX.
A$." LOADS A SCREEN FROM DISK":.1420.CN
.....N..A$." CLEARS THE SCREEN":.1420..
N.....N..A$." LEAVE THE PROGRAM":.1420.
.N....YN..A$." TURNS OFF THE OPTIONS FO
R..O..B$." A NEATER SCREEN DISPLAY":C$.
"":D$.""..O(...3O2.A$." COPIES A SMALL
PORTION OF".IO<.B$." THE SCREEN TO ANOT
HER LOCATION":C$."":D$."".OOF....OP.A$."
ADDS LABELS TO THE SCREEN"..OZ.B$."":C
$."":D$.""..OD...SON.A$." TRANSFERS THE
SCREEN TO"..OX.B$." YOUR PRINTER":C$."
":D$.""..O.....P..B$."":C$."":D$."":..:P
....1:J.J.1:..8,0#0:..8,24,50:.380.KP ..
J.0.J.1.400.UP...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.JP...I.1.7:..S$(I),I:.:.
1520:FX.173:FY.140.TPH...8,1..PR..110:.1
500..P...JB.1.:.20:.2050:.1520..Q...1490
.=Q...1,27,24,"SELECT OPTION",1:IX.5:IY.
0:..8,176,223.BQ...I.1.7:..I,I.44,224:..
I,1,,0:.:...Q... SET MULTI OR HIRES, INS
TRUCTIONS..R...MO=1:COLOR0,2:COLOR1,1:CO
LOR2,7:COLOR3,3:COLOR4,15:COLOR5,2:GOTO2
7:REM....THIS IS FOR DEBUGGING, ADD A RE
M TO THE FRONT WHEN DONE.*R....2,2:.0,2:
.4,7:."..".XR".."......DOODLE PROGRAM BY
A. SCOT CULLEN"..R,..".THIS PROGRAM WIL
L ENABLE YOU TO CREATE"..R6.."DRAWINGS A
ND ART ON YOUR SCREEN."..R@..".YOU WILL
HAVE YOUR CHOICE OF TWO":."OPERATING MOD
ES. THESE ARE:.".:SJ..". 1 .HIGH-RESOLU
TION (FINER LINES IN ONE".22)"COLOR ONLY
)"..ST..".. 2 .MULTI-COLOR (THREE CO
LORS AT ONCE".21)"WITH WIDER LINES)..S^.
."..PLEASE ENTER YOUR CHOICE(. 1 . OR .
2 .)".SSH..A$:.A$.."1".A$.."2".1640..SR.
MO.E(A$):.MO..S|..MO..1.MO..2.1630..T...
T.1.500:.:."......".:T...".1. BLACK
.1. BLACK .".AT...".2. WHITE
.2. WHITE ."..T...".3. RED .
3. RED ."..T...".4. CYAN .4
. CYAN .".VT...".5. PURPLE .5.
PURPLE ."..TB..".6. GREEN .6.
GREEN .".$UL..".7. BLUE .7.
BLUE .".KUV..".8. YELLOW .8. Y
ELLOW .".RU...".9. ORANGE .9. OR
ANGE ."..U...".10. BROWN .10. BRO
WN ."..U...".11. LT. RED .11. LT.
RED ."..U...".12. DK. GRAY .12. DK. G
RAY ."..V...".13. MED. GRAY .13. MED. G
RAY .".5V...".14. LT. GREEN .14. LT. GRE
EN .".\V...".15. LT. BLUE .15. LT. BLUE
."..V&..".16. LT. GRAY .16. LT. GRAY
.."..V0.."..S.ELECT YOUR OWN COLORS OR
USE".SV:..".P.RESET COMBINATION (.S.,.P.
)?"..VD..A$:.A$."S".1890..WN..A$."P"..0,
2:.1,1:.2,7:.3,3:.4,15:.5,2:.280.*WX..A$
.."C".1860.ZWB.."..
"..WL..".ENTER CODE FOR
SCREEN COLOR ":.2020:.0,CC..WV..CC
.1.CC.12..".";..W...".ENTER CODE FOR BOR
DER COLOR ":.2020:.4,CC..X...".ENTER
CODE FOR FOREGROUND COLOR ":.2020:.1,CC
.KX...MO.2..".ENTER CODE FOR MULTICOLOR
ONE ":.2020:.2,CC..X...MO.2..".ENTER C
ODE FOR MULTICOLOR TWO ":.2020:.3,CC..
X...".SATISFIED WITH YOUR CHOICES .Y/N.?
"..X..." ":.".
"..X...A$:.A$."".1980..YF..A$."N".
1890..YP..A$.."Y".1980..YZ..280.TY..."AN
D PRESS .RETURN.":.".YOUR CHOICE ....
";CC..Y...CC.1.CC.16.CC...(CC).."TRY AGA
IN";CC:.2030..Y.....Y...830..Y...I.1.7:.
.I,0:...Y...J.0..SN.2110,2380,2710,3390,
2950,3150,2810:.2100..Z ..J.1..SN.3400,3
560,3700,3750,4130,4030,4080:.2100.BZ*..
J.2..SN.3760,3890,4340,4390,4400,4670,48
20.HZ4...\Z>.CI.0: . CIRCLES..ZH..1,0,24
,"ENTER CENTER",1:IX.1:IY.1:..8,FX,FY..Z
R.UD$."UP/DOWN":LR$."LEFT/RIGHT":K.1:L.0
.LZ\..110:.JB.1.2150..ZF..270:.DC,X.MO,Y
..ZP..CI.2.2220..[Z..1,0,24,"RADIUS DIRE
CTION",1.2[...1,22,24,UD$,K:.1,30,24,LR$
,L.F[...160:.JB.1.2220.B[..K..(K.1):L..(
L.1):.2180.L[...2140..[..CX.P(0):CY.P(1)
..[...20..[...1,0,24,"ENTER RADIUS ",1.O
[J..K.1.IY.1:IX.0:.CI.2.:.1,13,24,UD$,1.
.[T..L.1.IY.0:IX.1:.CI.2.:.1,13,24,LR$,1
..\...110:.JB.1.2290..\...2270.:\...270:
FX.X.13:FY.Y.40:.DC,X.MO,Y.R\..RX.P(0):R
Y.P(1):.20..\...CI.2.K.1.K.0:L.1:..8,(CX
.MO).13,CY.40:OY.RY:.2240..\...CI.1.A1.1
.CI.0:...\...K.1.2360..\$..CI.2....\..R.
.(RX.CX):.DC,CX,CY,R,R.PX(MO):.2370..]8.
R..(RY.CY):.DC,CX,CY,R.PY(MO),R..]B...#]
L.L.1:..8,0:. COLOR.E]V..1,0,24,"DRAW CO
LOR <= COLOR CHOICE?",1:C1.1:.3030:.L.0
.2430.}]`.C1.1:.3160:.K.4.K.0..]J.DC.K:.
DC.2.MO.1.DC.0..]T...8,1:..D]~.CC$."<=CO
LOR? JOY=N/BUTTON=Y".S]...MO.2.2520..]..
.1,11,24,CC$,1..]..BG.M(0):FG.M(1)..^...
1,0,24," .",1.*^...160:.JB.1.26
90.B^..FG.FG.1:.FG.16.FG.0.U^D..BG.FG.FG
.FG.1.K^N..0,BG:.1,FG:.2450.S^X..20..^..
.1,0,24,"CHANGE WHICH=>",1:..8,165,230:.
.8,1:IX.2:IY.0.Z^...K.1.3:.K,K.33.26,192
,K.33.58,199,,1:.:..^...110:QW.(N.(8,0))
.._...QW..129.2690.._...QW..197.WQ.1:.26
00.2_...QW..261.WQ.2:.2600.;_..WQ.3.C_(.
.20.W_2..WQ,11,24,CC$,1.T_<..WQ,0,24,"
.",1.._F..160:.JB.1...8,1:.2690.
._P.CC.M(WQ):CC.CC.1:.CC.17.CC.1.M_Z..WQ
.2660,2670,2680:.2610.Y_D..1,CC:..._N..2
,CC:..._X..3,CC:..._...20:..8,1..`.....`
... LINES.C` ..1,0,24,"ENTER ONE END",1:
IX.1:IY.1:..8,FX,FY.L`...110.``...270:.D
C,X.MO,Y..`..CX.P(0):CY.P(1):.1,0,24,"EN
TER OTHER END",1..`H..110..`R..270:FX.X.
13:FY.Y.40:.DC,X.MO,Y.U`..RX.P(0):RY.P(1
):.20..`...DC,CX,CY.RX,RY..`....8A....8,
FX,FY:..8,1:K.2:D$(2)."MOVE ":D$(1)."DRA
W ":D$(0)."ERASE":. DRAW.XA...(FX.13).MO
,FY.40:.1,0,24,D$(K),1:.1,28,24,"F1 TO R
ETURN",1..A..IX.1:IY.1:J.0.HA...A$:.A$."
."..1,0,24," ",0:.1,28,24,"
",0:...A"..A$..""..210:.2880..A,.J2.O
(2):.J2.0.2840..B6..J2.30,40,50,60,70,80
,90,100.QB@..J2.128.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..B^.FX.X
.13:FY.Y.40..BH..2840.FBR..K.3.K.0:.(N.(
8,0).13).MO,N.(8,1).40..B|.FX.N.(8,0):FY
.N.(8,1):...B... BOXES.(C...1,0,24,"LOCA
TE ONE CORNER",1:IX.1:IY.1:L.1:..8,FX,FY
.1C...110.RC...270:.DC,X.MO,Y:CX.X.MO:CY
.Y.YC...1,0,24,"LOCATE OPPOSITE CORNER",
1..C...T.1.10:J2.O(2):.:.110..CB..270::F
X.X.13:FY.Y.40:.DC,X.MO,Y:K.1..CL.RX.X.M
O:RY.Y:.1,0,24,"FILL? (Y <= N) "
,1..DV..I.1.50:J2.O(2):...D..J2.O(2):.J2
.0.3040.0D...J2.128.3090.UD...J2.7.L.1:.
1,11,24,"<= ",1:.3030.ZD...J2.3.L.0:.1,1
1,24," =>",1:.3030..D...3030..D...C1.1.C
1.0:...D...MO.2.L.1..3160:.3120..D&.K.DC
.ED0..K.4.K.0..D:..K,CX,CY,RX,RY,AN,L..D
D..20:...DN.L.0:. PAINT..EX.K.1:IX.1:IY.
1:..8,FX,FY:. PAINT.KEB..1,0,24,"SELECT
COLOR=JOY--QUIT BUTTON=>",1.PEL.V.250:W.
192:Z.319:H.199:.K.5.K.1..EQ..K.3.MO.1.K
.1.FEV..K.4.(K.2.MO.1)..0,V.MO,W,Z.MO,H,
0,1:.1,V.MO,W,Z.MO,H,0,0:.3220..E... K,2
50.MO ,192,319.MO,199,0,1..F...A$:.A$.".
".J2.128..F...A$."".J2.O(2):.J2.0.3210.4
F...J2.128..20:.3260.MF...MO.1..K.3.K.1:
.3180.]F..K.K.1:.3180.NF...C1.1.C1.0:..}
FF..20:.L.1....FP..1,0,24,"SELECT REGION
TO PAINT",1..FZ..110.MF...270:FX.X.13:F
Y.Y.40:X.X.MO..F...MO.1.K.2.:.K,X,Y,0:.3
340..G...K.4..0,X,Y,0:.3340..G...K,X,Y,1
.(G..RX.P(0):RY.P(1):.20.^G...1,0,24,"AG
AIN? (Y <= N) ",1:C1.1:L.1:.3030.L
G ..L.1.3280..G*.RX.P(0):RY.P(1):.20..G4
....G>.J.1:.I.1.7:..S$(I.J.7),I:.:.:. CH
ANGE OPTIONS.HGH.. ANGLE..GR...S$(5),1:.
.S$(9),2:..S$(10),3..H\...8,0:..8,4.44,2
23..HF...1,3.44,224.$HP...2,4.44,224.5HZ
...3,5.44,224.HH...T.1.3:..T,1:..{H...1,
0,24,"ANGLE (0 - 360)?",1:B$."":.3580:AN
.SI..H...20..H....8,1. H..IY.0:IX.5:.110
..H...830:.SN.1.SN.3.3500.LH...T.1.3:..T
,0:...HJ..SN.2950,3560,3700..HT.AN.0:.33
90..H.....I..CI.1:.2120:. POLYGONS.II...
1,0,24,"NUMBER OF SIDES?",1:L.0:B$."":.3
580:.3640.]I...A$:.A$."".3580.PI...A$.G(
13).3630..I...A$."0".A$."9".3580..I..L.L
.1:.1,17.L,24,A$,1:B$.B$.A$..I$..3580.DI
..SI.E(B$):..QI8..SI..1....IB..K.1.3670.
.JL.R..(RX.CX):.DC,CX,CY,R,R.PX(MO),270,
270,180.AN,360.SI:.3680.SJV.R..(RY.CY):.
DC,CX,CY,R.PY(MO),R,,,180.AN,360.SI.[J`.
.20.AJJ...MJT.. OVALS.|J~.CI.2:.2120..J.
..A1.1.A1.0:...J...DC,CX,CY,.(CX.RX),.(O
Y.CY),,,AN..J....YJ..J.2:.I.1.7:..S$(I.J
.7),I:.:...J...1,116:. SAVE..K....8,0:L.
0:CT.0:F$."".<KD..1,0,24,"FILENAME?",1:.
1,9,24," ",0:F$."".EKN...A$.XK
X..A$.G(13).3830.KK...A$.G(20).3770..K..
F$.F$.A$:.1,10.CT,24,A$,1:CT.CT.1:.3790.
.K..T$."S1.".F$..K....15:A.B(53280).15:B
.B(53281).15:..0:.8168,A:.8169,B..L....(
T$),D0,U8,B0,P7168.P16383..L..T$."CL.".F
$.:L....15:.53274,B(53274).254:.1,B(1).2
54.]L....(T$),D0,U8,B15,P55296.P56319.KL
...1,B(1).1..L...53274,B(53274).1..L...1
,0,24,DS$." ",1..L(..
.5:.20:.1,0,24," ",0:
.1,115:..8,1:...L2.. LOAD.'M3..1,0,24,"D
ESTROYS EXISTING PICTURE-CONTINUE(Y/N)".
{M4...A$:.1,0,24,"
",0:.A$."Y".3895:U..8,
1:...M7...8,0:...M<.L.0:CT.0:DV.8::F$.""
:T$.""..MF..1,0,24,"FILENAME?",1:.1,9,24
," ",0:F$.""..MP...A$..MZ..A$.
G(13).3955..ND..A$.G(20).3900.9NN.F$.F$.
A$:.1,10.CT,24,A$,1:CT.CT.1:.3920.FNS..F
$."$"..0,1:.5,(M(1)):.."?1.*":.0:U3960..
NT.."..STRIKE ANY KEY":..A$..NU..MO.2..3
,1:U.1,1..NV..3900.INX.T$."01.".F$:..#1,
(T$):.DS..62.3998..N}...#1:..:T$."S1.".F
$..N....(T$),D0,U8,B0,P7168.$O....15:.53
274,B(53274).254:.1,B(1).254.4O..T$."CL.
".F$.PO....(T$),D0,U8,B15,P55296.^O...1,
B(1).1.TO...53274,B(53274).1..O....15:A.
(B(8168).15).1:B.(B(8169).15).1:.0,B:.4,
A..O...4000.UO....#1:..:..(T$),D0,U8,B0,
P7168..O..T$."02.".F$:..(T$),D0,U8,B0,P8
193.%P ..1,0,24,DS$."
",1.SP....5:.20:.1,0,24,"
",0:..8,1:..TP..J.0:.I.1.7:..S$(I.J.7),I
:.:...P... CLEAR SCREEN..PH..1,0,24,"ARE
YOU SURE? (Y/N)",1..PR...A$.CP...A$."Y
"...MP...20:..XP... QUIT..P...1,0,24,"AR
E YOU SURE? (Y/N)",1..Q....A$.*Q...A$."
Y"..0:.5,M(1):..8,0:.".":..4Q...20:..>Q"
.. ARC.TQ,.A1.1:..S$(10),2:..S$(1),1:..1
,150,224:..2,202,224..Q6...8,176,223:..1
,1:..2,1:..8,1..Q@.IY.0:IX.5:.110..QJ..8
30:.SN.2110,3700..RT.A1.0:.1,0,24,"JOYBU
TTON TO START/STOP LINE",1:.SN.4190,4280
..R^..K.1.4240.ERH.R..(RX.CX):.M.0.380.2
:.K.DC,CX,CY,R,R.PX(MO),M,M.2.SRR.X.P(0)
:Y.P(1):..8,X.MO.13,Y.40:.T.1.100:...R|.
J2.O(2):.J2.128.K..(K.1)..R...:.20:.3390
:..YR..R..(RY.CY):.M.0.380.2:.L.DC,CX,CY
,R.PY(MO),R,M,M.2..S..X.P(0):Y.P(1):..8,
X.MO.13,Y.40:.T.1.100:..$S..J2.O(2):.J2.
128.L..(L.1).6S...:.20:.3390:..NS..K.0:A
1.0:.M.0.380.2.YSB..DC.K,CX,CY,.(CX.RX),
.(OY.CY),M,M.2,AN..SL.X.P(0):Y.P(1):..8,
X.MO.13:Y.40:.T.1.100:..DSV.J2.O(2):.J2.
128.K..(K.1).VS...:.20:.3390:...S.....S.
.. OFF..S...I.1.8:..I,0:...T...110..T...
I.1.8:..I,1:...T....<T&.J.0:.I.1.7:..S$(
I.J.7),I:.:..GT0.. COPY..T:..1,0,24,"ENT
ER UPPER LEFT CORNER",1:IX.1:IY.1:..8,FX
,FY..TD..110:.JB.1.4430..TN..270:.DC,X.M
O,Y:X.X.MO..TX..1,0,24,"ENTER LOWER RIGH
T CORNER",1..TB..110:.JB.1.4460.1UL.XL.N
.(8,0):YL.N.(8,1):XL.XL.13:YL.YL.40:.DC,
XL.MO,YL:XL.XL.MO.@UV..MO.1.4500.JU..CS.
.((.(X.XL).1).4..99).(.(Y.YL).1).4.TU...
4510..U..CS..((.(X.XL).1).8..99).(.(Y.YL
).1).4..U...CS.255..4620:.4410.IU...SS$,
X,Y,XL,YL..U...1,0,24,"LOCATE UPPER-LEFT
COPY POSITION",1..V...110..VF..270:X.X.
MO..VP..SS$,X,Y.'VZ..20.^V..C1.1:L.1:.1,
0,24,"AGAIN? (Y <= N) ",1:.3030.F
V...20.UV...L.1..4530.{V.....V...1,0,24,
"AREA COPIED TOO LARGE-TRY AGAIN",1..V..
CS$." ".D(.((CS.255).100..5))."% ":.1,33
,24,CS$,1..V ...5..V*..20..V4...2W>.. SC
REEN DUMP TO PRINTER: FROM BRUCE BOWDEN
HEURISTICS.<WH...8,0.UWR..1,0,24,"TAKES
ABOUT 30 MINUTES! CONTINUE? (Y/N)",1.~W
\...A$..WF..20..WP..A$."N"...8,1:...WZ..
A$.."Y"..4690..W...1,0,24,"SCREEN WILL B
LANK FOR SPEED",1:..5:.20:.%..W...3,4:.X
1.8511.8199..8.2X...Y1.X1.16191.8.(8..((
X1.8191).40..5)).320:A$."".AX...Z1.Y1.7.
Y1:WW.B(Z1).128:.B(Z1).128.WW.192..X..A$
.A$.G(WW):.:.3,G(8)A$;:.:.3:...X...3,G(1
5): 3:.&..X....8,1..XJ....XT...8,0:. LAB
ELS..YU.CT.0:F$."":T$."":.1,0,24,"LABEL?
",1:.1,7,24," ",0:F$."
"..YV...A$.%YW..A$.G(13).4826.8YX..A$.G(
20).4821.CYY.F$.F$.A$:.1,8.CT,24,A$,1:CT
.CT.1:.4822..YZ..1,0,24,"
",0:.1,0,24,"LOCATE LABEL",1:IX.1
:IY.1:..8,FX,FY:..8,1.FY...110..Y...270:
FX.X.13:FY.Y.40:.DC,.(X.8),.(Y.8),F$,0.-
Z...1,0,24,"
",0.3Z....IZ....8,173,140:..8,
1.VZ...160,100.QZ...EL.3970.EL.3990..400
0..Z..A$.D(ER)." ".S(ER)." ERROR IN".D(
EL):.ER.30.4080.FZ...1,0,24,A$,1:..5:.20
:V4880.LZ......
> CLICK IMAGE PREVIEW FOR FULL MODAL