1520 MANUAL DEMO
FILE INFORMATION
FILENAME(S): 1520 MANUAL DEMO
FILE TYPE(S): PRG
FILE SIZE: 14.1K
FIRST SEEN: 2025-10-20 14:29:56
APPEARS ON: 1 disk(s)
FILE HASH
ad2e6d92e4593f640748e9fc6bbc16f9ebfcfb15e85ffdf6e9488bbe7d5895c3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0054GR | 1520 MANUAL DEMO | PRG | Treasure Chest - Klaus Der Suhler | 9 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 64 00 8F 20 20 53 45 54 20 55 50 20 |....d.. SET UP |
00000010: 53 4F 55 4E 44 20 52 45 47 49 53 54 45 52 53 00 |SOUND REGISTERS.|
00000020: 3C 08 65 00 3A 20 8D 36 35 35 3A 20 20 8F 20 53 |<.e.: .655: . S|
00000030: 4F 55 4E 44 20 52 4F 55 54 49 4E 45 00 42 08 66 |OUND ROUTINE.B.f|
00000040: 00 3A 00 5E 08 67 00 8F 20 20 53 45 54 20 55 50 |.:.^.g.. SET UP|
00000050: 20 53 43 52 45 45 4E 20 43 4F 4C 4F 52 53 00 86 | SCREEN COLORS..|
00000060: 08 68 00 3A 20 97 20 35 33 32 38 30 2C 31 32 20 |.h.: . 53280,12 |
00000070: 20 3A 8F 20 42 4F 52 44 45 52 20 4D 45 44 49 55 | :. BORDER MEDIU|
00000080: 4D 20 47 52 41 59 00 B1 08 69 00 3A 20 97 20 35 |M GRAY...i.: . 5|
00000090: 33 32 38 31 2C 31 35 20 20 3A 8F 20 42 41 43 4B |3281,15 :. BACK|
000000A0: 47 52 4F 55 4E 44 20 4C 49 47 48 54 20 47 52 41 |GROUND LIGHT GRA|
000000B0: 59 00 D5 08 6A 00 3A 20 97 20 36 34 36 2C 31 31 |Y...j.: . 646,11|
000000C0: 20 20 20 20 3A 8F 20 54 45 58 54 20 44 41 52 4B | :. TEXT DARK|
000000D0: 20 47 52 41 59 00 DB 08 6B 00 3A 00 FA 08 6C 00 | GRAY...k.:...l.|
000000E0: 8F 20 20 54 45 53 54 20 49 46 20 50 4C 4F 54 54 |. TEST IF PLOTT|
000000F0: 45 52 20 50 52 45 53 45 4E 54 00 35 09 6D 00 3A |ER PRESENT.5.m.:|
00000100: 20 99 20 22 93 11 11 11 11 11 11 11 11 11 11 11 | . "............|
00000110: 11 11 11 22 20 20 20 20 20 20 20 20 20 20 20 20 |..." |
00000120: 20 20 3A 8F 20 20 50 4F 53 49 54 49 4F 4E 20 43 | :. POSITION C|
00000130: 55 52 53 4F 52 00 76 09 6E 00 3A 20 53 43 24 B2 |URSOR.v.n.: SC$.|
00000140: 22 1C 12 22 20 20 20 20 20 20 20 20 20 20 20 20 |".." |
00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000160: 20 3A 8F 20 20 52 45 44 20 52 45 56 45 52 53 45 | :. RED REVERSE|
00000170: 20 56 49 44 45 4F 00 B2 09 6F 00 3A 20 9F 20 34 | VIDEO...o.: . 4|
00000180: 2C 36 2C 30 20 20 20 20 20 20 20 20 20 20 20 20 |,6,0 |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :|
000001A0: 8F 20 20 4F 50 45 4E 20 41 53 43 49 49 20 50 4F |. OPEN ASCII PO|
000001B0: 52 54 00 F9 09 70 00 3A 20 A0 20 34 20 20 20 20 |RT...p.: . 4 |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001D0: 20 20 20 20 20 20 20 20 20 20 3A 8F 20 20 43 4C | :. CL|
000001E0: 4F 53 45 20 50 4F 52 54 2C 20 53 54 3D 30 20 49 |OSE PORT, ST=0 I|
000001F0: 46 20 50 52 45 53 45 4E 54 00 24 0A 71 00 3A 20 |F PRESENT.$.q.: |
00000200: 8B 20 53 54 B2 30 20 A7 31 32 38 3A 8F 20 20 47 |. ST.0 .128:. G|
00000210: 4F 20 4F 50 45 4E 20 50 52 49 4E 54 45 52 20 50 |O OPEN PRINTER P|
00000220: 4F 52 54 53 00 5C 0A 72 00 3A 20 8B 20 42 4C B2 |ORTS.\.r.: . BL.|
00000230: 30 20 A7 20 42 4C B2 31 3A 20 8D 36 36 34 3A 8F |0 . BL.1: .664:.|
00000240: 20 20 53 4F 55 4E 44 20 42 45 4C 4C 2C 20 4F 4E | SOUND BELL, ON|
00000250: 43 45 20 49 53 20 45 4E 4F 55 47 48 00 9C 0A 73 |CE IS ENOUGH...s|
00000260: 00 3A 20 99 20 22 91 91 91 91 91 91 22 20 20 20 |.: . "......" |
00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000280: 20 20 20 20 3A 8F 20 20 43 55 52 53 4F 52 20 55 | :. CURSOR U|
00000290: 50 20 54 4F 20 4F 56 45 52 4C 41 59 00 C3 0A 74 |P TO OVERLAY...t|
000002A0: 00 3A 20 99 20 A3 38 29 3B 22 D5 C0 C0 C0 C0 C0 |.: . .8);"......|
000002B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000002C0: C0 C9 22 00 F3 0A 75 00 3A 20 99 20 A3 38 29 3B |.."...u.: . .8);|
000002D0: 22 DD 22 3B 53 43 24 3B 22 20 20 20 20 20 20 20 |".";SC$;" |
000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 92 | .|
000002F0: 97 DD 22 00 23 0B 76 00 3A 20 99 20 A3 38 29 3B |..".#.v.: . .8);|
00000300: 22 DD 22 3B 53 43 24 3B 22 20 20 4D 41 4B 45 20 |".";SC$;" MAKE |
00000310: 50 4C 4F 54 54 45 52 20 52 45 41 44 59 20 20 92 |PLOTTER READY .|
00000320: 97 DD 22 00 53 0B 77 00 3A 20 99 20 A3 38 29 3B |..".S.w.: . .8);|
00000330: 22 DD 22 3B 53 43 24 3B 22 20 20 20 20 20 20 20 |".";SC$;" |
00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 92 | .|
00000350: 97 DD 22 00 7A 0B 78 00 3A 20 99 20 A3 38 29 3B |..".z.x.: . .8);|
00000360: 22 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"...............|
00000370: C0 C0 C0 C0 C0 C0 C0 C0 CB 22 00 BA 0B 79 00 3A |........."...y.:|
00000380: 20 8B 20 53 43 24 B2 22 1C 12 22 20 A7 20 53 43 | . SC$.".." . SC|
00000390: 24 B2 22 9B 22 3A 20 89 31 32 33 3A 8F 20 20 41 |$.".": .123:. A|
000003A0: 4C 54 45 52 4E 41 54 45 20 42 45 54 57 45 45 4E |LTERNATE BETWEEN|
000003B0: 20 49 4E 56 49 53 49 42 4C 45 00 04 0C 7A 00 3A | INVISIBLE...z.:|
000003C0: 20 8B 20 53 43 24 B2 22 9B 22 20 A7 20 53 43 24 | . SC$."." . SC$|
000003D0: B2 22 1C 12 22 20 20 20 20 20 20 20 20 20 20 20 |.".." |
000003E0: 20 20 3A 8F 20 20 20 20 28 4C 49 47 48 54 20 47 | :. (LIGHT G|
000003F0: 52 41 59 29 20 41 4E 44 20 52 45 44 20 52 45 56 |RAY) AND RED REV|
00000400: 45 52 53 45 00 44 0C 7B 00 3A 20 47 54 B2 54 49 |ERSE.D.{.: GT.TI|
00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000430: 3A 8F 20 20 53 41 56 45 20 54 49 4D 45 52 20 56 |:. SAVE TIMER V|
00000440: 41 4C 55 45 00 71 0C 7C 00 3A 20 8B 20 54 49 AB |ALUE.q.|.: . TI.|
00000450: 47 54 B3 36 30 20 A7 31 32 34 3A 8F 20 20 4C 4F |GT.60 .124:. LO|
00000460: 4F 50 20 46 4F 52 20 36 30 20 4A 49 46 46 49 45 |OP FOR 60 JIFFIE|
00000470: 53 00 90 0C 7D 00 3A 20 89 31 31 31 3A 8F 20 20 |S...}.: .111:. |
00000480: 47 4F 20 52 45 54 52 59 20 50 4C 4F 54 54 45 52 |GO RETRY PLOTTER|
00000490: 00 96 0C 7E 00 3A 00 C0 0C 7F 00 8F 20 20 50 4C |...~.:...... PL|
000004A0: 4F 54 54 45 52 20 49 53 20 50 52 45 53 45 4E 54 |OTTER IS PRESENT|
000004B0: 2C 20 4F 50 45 4E 20 54 48 45 20 50 4F 52 54 53 |, OPEN THE PORTS|
000004C0: 00 E0 0C 80 00 3A 20 9F 20 31 2C 36 2C 31 20 20 |.....: . 1,6,1 |
000004D0: 3A 8F 20 50 4C 4F 54 54 49 4E 47 20 50 4F 52 54 |:. PLOTTING PORT|
000004E0: 00 08 0D 81 00 3A 20 9F 20 32 2C 36 2C 32 20 20 |.....: . 2,6,2 |
000004F0: 3A 8F 20 50 45 4E 20 43 4F 4C 4F 52 20 53 45 4C |:. PEN COLOR SEL|
00000500: 45 43 54 20 50 4F 52 54 00 2E 0D 82 00 3A 20 9F |ECT PORT.....: .|
00000510: 20 33 2C 36 2C 33 20 20 3A 8F 20 43 48 41 52 41 | 3,6,3 :. CHARA|
00000520: 43 54 45 52 20 53 49 5A 45 20 50 4F 52 54 00 4B |CTER SIZE PORT.K|
00000530: 0D 83 00 3A 20 9F 20 34 2C 36 2C 30 20 20 3A 8F |...: . 4,6,0 :.|
00000540: 20 41 53 43 49 49 20 50 4F 52 54 00 51 0D 84 00 | ASCII PORT.Q...|
00000550: 3A 00 78 0D 85 00 8F 20 20 43 4C 45 41 52 20 53 |:.x.... CLEAR S|
00000560: 43 52 45 45 4E 20 41 4E 44 20 50 52 45 53 45 4E |CREEN AND PRESEN|
00000570: 54 20 42 41 4E 4E 45 52 00 AA 0D 86 00 3A 20 20 |T BANNER.....: |
00000580: 99 20 22 93 11 20 20 20 20 20 20 20 12 1F B0 C0 |. ".. ....|
00000590: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000005A0: C0 C0 C0 C0 C0 C0 C0 AE 92 22 00 D9 0D 87 00 3A |.........".....:|
000005B0: 20 20 99 20 22 20 20 20 20 20 20 20 12 DD 20 20 | . " .. |
000005C0: 31 35 32 30 20 50 52 49 4E 54 45 52 20 50 4C 4F |1520 PRINTER PLO|
000005D0: 54 54 45 52 20 20 DD 92 22 00 08 0E 88 00 3A 20 |TTER ..".....: |
000005E0: 20 99 20 22 20 20 20 20 20 20 20 12 DD 20 20 55 | . " .. U|
000005F0: 53 45 52 53 27 53 20 4D 41 4E 55 41 4C 20 44 45 |SERS'S MANUAL DE|
00000600: 4D 4F 53 20 20 DD 92 22 00 37 0E 89 00 3A 20 20 |MOS ..".7...: |
00000610: 99 20 22 20 20 20 20 20 20 20 12 DD 20 20 20 20 |. " .. |
00000620: 20 20 20 20 20 20 46 52 4F 4D 20 20 20 20 20 20 | FROM |
00000630: 20 20 20 20 DD 92 22 00 66 0E 8A 00 3A 20 20 99 | ..".f...: .|
00000640: 20 22 20 20 20 20 20 20 20 12 DD 20 20 27 54 48 | " .. 'TH|
00000650: 45 20 50 4C 4F 54 54 49 4E 47 20 53 48 45 44 27 |E PLOTTING SHED'|
00000660: 20 20 20 DD 92 22 00 96 0E 8B 00 3A 20 20 99 20 | ..".....: . |
00000670: 22 20 20 20 20 20 20 20 12 AD C0 C0 C0 C0 C0 C0 |" ........|
00000680: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000690: C0 C0 BD 97 92 22 00 9C 0E 8C 00 3A 00 CB 0E 8D |.....".....:....|
000006A0: 00 3A 20 99 22 11 20 20 20 20 12 41 92 20 2D 20 |.: .". .A. - |
000006B0: 43 4F 4E 43 45 4E 54 52 49 43 20 43 49 52 43 4C |CONCENTRIC CIRCL|
000006C0: 45 53 20 20 20 50 2E 20 34 36 22 00 F9 0E 8E 00 |ES P. 46".....|
000006D0: 3A 20 99 22 20 20 20 20 12 42 92 20 2D 20 43 4F |: ." .B. - CO|
000006E0: 4E 43 45 4E 54 52 49 43 20 53 51 55 41 52 45 53 |NCENTRIC SQUARES|
000006F0: 20 20 20 50 2E 20 34 37 22 00 27 0F 8F 00 3A 20 | P. 47".'...: |
00000700: 99 22 20 20 20 20 12 43 92 20 2D 20 52 4F 54 41 |." .C. - ROTA|
00000710: 54 49 4E 47 20 20 20 54 52 49 41 4E 47 4C 45 53 |TING TRIANGLES|
00000720: 20 50 2E 20 34 38 22 00 55 0F 90 00 3A 20 99 22 | P. 48".U...: ."|
00000730: 20 20 20 20 12 44 92 20 2D 20 43 4F 4E 45 20 20 | .D. - CONE |
00000740: 20 46 52 4F 4D 20 43 49 52 43 4C 45 53 20 20 50 | FROM CIRCLES P|
00000750: 2E 20 34 39 22 00 83 0F 91 00 3A 20 99 22 20 20 |. 49".....: ." |
00000760: 20 20 12 45 92 20 2D 20 43 49 52 43 4C 45 20 46 | .E. - CIRCLE F|
00000770: 52 4F 4D 20 43 49 52 43 4C 45 53 20 20 50 2E 20 |ROM CIRCLES P. |
00000780: 35 30 22 00 B1 0F 92 00 3A 20 99 22 20 20 20 20 |50".....: ." |
00000790: 12 46 92 20 2D 20 52 4F 54 41 54 49 4E 47 20 45 |.F. - ROTATING E|
000007A0: 4C 4C 49 50 53 45 53 20 20 20 20 50 2E 20 35 31 |LLIPSES P. 51|
000007B0: 22 00 DF 0F 93 00 3A 20 99 22 20 20 20 20 12 47 |".....: ." .G|
000007C0: 92 20 2D 20 41 52 43 48 49 4D 45 44 49 41 4E 20 |. - ARCHIMEDIAN |
000007D0: 53 50 49 52 41 4C 20 20 20 50 2E 20 35 32 22 00 |SPIRAL P. 52".|
000007E0: 0D 10 94 00 3A 20 99 22 20 20 20 20 12 48 92 20 |....: ." .H. |
000007F0: 2D 20 47 45 4F 4D 45 54 52 49 43 20 44 45 53 49 |- GEOMETRIC DESI|
00000800: 47 4E 20 20 20 20 20 50 2E 20 35 33 22 00 3B 10 |GN P. 53".;.|
00000810: 95 00 3A 20 99 22 20 20 20 20 12 49 92 20 2D 20 |..: ." .I. - |
00000820: 43 48 45 43 4B 45 52 20 42 4F 41 52 44 20 20 20 |CHECKER BOARD |
00000830: 20 20 20 20 20 50 2E 20 35 34 22 00 69 10 96 00 | P. 54".i...|
00000840: 3A 20 99 22 20 20 20 20 12 4A 92 20 2D 20 43 52 |: ." .J. - CR|
00000850: 4F 53 53 20 48 41 54 43 48 49 4E 47 20 20 20 20 |OSS HATCHING |
00000860: 20 20 20 50 2E 20 35 36 22 00 97 10 97 00 3A 20 | P. 56".....: |
00000870: 99 22 20 20 20 20 12 4B 92 20 2D 20 43 48 41 4E |." .K. - CHAN|
00000880: 47 49 4E 47 20 46 4F 52 4D 53 20 20 20 20 20 20 |GING FORMS |
00000890: 20 50 2E 20 35 37 22 00 C5 10 98 00 3A 20 99 22 | P. 57".....: ."|
000008A0: 20 20 20 20 12 4C 92 20 2D 20 52 4F 54 41 54 49 | .L. - ROTATI|
000008B0: 4E 47 20 46 49 47 55 52 45 53 20 20 20 20 20 50 |NG FIGURES P|
000008C0: 2E 20 35 39 22 00 F3 10 99 00 3A 20 99 22 20 20 |. 59".....: ." |
000008D0: 20 20 12 4D 92 20 2D 20 42 41 52 20 43 48 41 52 | .M. - BAR CHAR|
000008E0: 54 20 23 31 20 20 20 20 20 20 20 20 20 50 2E 20 |T #1 P. |
000008F0: 36 30 22 00 07 11 9A 00 3A 20 99 22 20 20 20 20 |60".....: ." |
00000900: 12 51 92 55 49 54 22 00 27 11 9B 00 3A 20 85 22 |.Q.UIT".'...: ."|
00000910: 11 20 20 53 45 4C 45 43 54 49 4F 4E 3A 20 20 51 |. SELECTION: Q|
00000920: 9D 9D 9D 22 3B 41 24 00 2D 11 9C 00 3A 00 40 11 |...";A$.-...:.@.|
00000930: 9D 00 3A 20 8B 41 24 B2 22 41 22 A7 8D 31 37 34 |..: .A$."A"..174|
00000940: 00 53 11 9E 00 3A 20 8B 41 24 B2 22 42 22 A7 8D |.S...: .A$."B"..|
00000950: 31 39 38 00 66 11 9F 00 3A 20 8B 41 24 B2 22 43 |198.f...: .A$."C|
00000960: 22 A7 8D 32 32 32 00 79 11 A0 00 3A 20 8B 41 24 |"..222.y...: .A$|
00000970: B2 22 44 22 A7 8D 32 34 36 00 8C 11 A1 00 3A 20 |."D"..246.....: |
00000980: 8B 41 24 B2 22 45 22 A7 8D 32 37 31 00 9F 11 A2 |.A$."E"..271....|
00000990: 00 3A 20 8B 41 24 B2 22 46 22 A7 8D 32 39 39 00 |.: .A$."F"..299.|
000009A0: B2 11 A3 00 3A 20 8B 41 24 B2 22 47 22 A7 8D 33 |....: .A$."G"..3|
000009B0: 32 37 00 C5 11 A4 00 3A 20 8B 41 24 B2 22 48 22 |27.....: .A$."H"|
000009C0: A7 8D 33 35 31 00 D8 11 A5 00 3A 20 8B 41 24 B2 |..351.....: .A$.|
000009D0: 22 49 22 A7 8D 33 38 31 00 EB 11 A6 00 3A 20 8B |"I"..381.....: .|
000009E0: 41 24 B2 22 4A 22 A7 8D 34 31 38 00 FE 11 A7 00 |A$."J"..418.....|
000009F0: 3A 20 8B 41 24 B2 22 4B 22 A7 8D 34 35 39 00 11 |: .A$."K"..459..|
00000A00: 12 A8 00 3A 20 8B 41 24 B2 22 4C 22 A7 8D 35 30 |...: .A$."L"..50|
00000A10: 30 00 24 12 A9 00 3A 20 8B 41 24 B2 22 4D 22 A7 |0.$...: .A$."M".|
00000A20: 8D 35 33 31 00 38 12 AA 00 3A 20 8B 41 24 B2 22 |.531.8...: .A$."|
00000A30: 51 22 A7 20 89 36 34 36 00 43 12 AB 00 3A 20 89 |Q". .646.C...: .|
00000A40: 31 33 34 00 49 12 AC 00 3A 00 70 12 AD 00 8F 20 |134.I...:.p.... |
00000A50: 20 43 4C 45 41 52 20 53 43 52 45 45 4E 20 41 4E | CLEAR SCREEN AN|
00000A60: 44 20 50 52 45 53 45 4E 54 20 42 41 4E 4E 45 52 |D PRESENT BANNER|
00000A70: 00 7E 12 AE 00 3A 20 99 20 22 93 11 90 22 00 AB |.~...: . "..."..|
00000A80: 12 AF 00 3A 20 99 20 22 20 20 20 20 20 20 20 20 |...: . " |
00000A90: 12 D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000AA0: C0 C0 C0 C0 C0 C0 C0 C0 C9 92 22 00 D8 12 B0 00 |..........".....|
00000AB0: 3A 20 99 20 22 20 20 20 20 20 20 20 20 12 DD 20 |: . " .. |
00000AC0: 20 43 4F 4E 43 45 4E 54 52 49 43 20 43 49 52 43 | CONCENTRIC CIRC|
00000AD0: 4C 45 53 20 20 DD 92 22 00 05 13 B1 00 3A 20 99 |LES ..".....: .|
00000AE0: 20 22 20 20 20 20 20 20 20 20 12 DD 20 20 20 20 | " .. |
00000AF0: 20 20 20 50 41 47 45 20 34 36 20 20 20 20 20 20 | PAGE 46 |
00000B00: 20 20 DD 92 22 00 32 13 B2 00 3A 20 99 20 22 20 | ..".2...: . " |
00000B10: 20 20 20 20 20 20 20 12 CA C0 C0 C0 C0 C0 C0 C0 | .........|
00000B20: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB |................|
00000B30: 92 22 00 3C 13 B3 00 3A 20 43 B2 30 00 52 13 B4 |.".<...: C.0.R..|
00000B40: 00 3A 20 98 31 2C 22 4D 22 3B 32 34 30 2C AB 32 |.: .1,"M";240,.2|
00000B50: 34 30 00 5F 13 B5 00 3A 20 98 31 2C 22 49 22 00 |40._...: .1,"I".|
00000B60: 76 13 B6 00 3A 20 81 20 4C B2 33 30 20 A4 20 31 |v...: . L.30 . 1|
00000B70: 38 30 20 A9 33 30 00 91 13 B7 00 3A 20 20 20 43 |80 .30.....: C|
00000B80: B2 43 AA 31 3A 8B 20 43 B1 B2 34 20 A7 20 43 B2 |.C.1:. C..4 . C.|
00000B90: 30 00 9E 13 B8 00 3A 20 20 20 98 32 2C 43 00 B1 |0.....: .2,C..|
00000BA0: 13 B9 00 3A 20 20 20 81 20 5A B2 31 20 A4 20 31 |...: . Z.1 . 1|
00000BB0: 35 00 CB 13 BA 00 3A 20 20 20 20 20 81 20 49 B2 |5.....: . I.|
00000BC0: 30 20 A4 20 33 36 30 20 A9 31 30 00 EA 13 BB 00 |0 . 360 .10.....|
00000BD0: 3A 20 20 20 20 20 20 20 58 B2 28 5A AA 4C 29 AC |: X.(Z.L).|
00000BE0: BF 28 49 AC FF AD 31 38 30 29 00 09 14 BC 00 3A |.(I...180).....:|
00000BF0: 20 20 20 20 20 20 20 59 B2 28 5A AA 4C 29 AC BE | Y.(Z.L)..|
00000C00: 28 49 AC FF AD 31 38 30 29 00 2C 14 BD 00 3A 20 |(I...180).,...: |
00000C10: 20 20 20 20 20 20 8B 20 49 B2 30 20 A7 98 31 2C | . I.0 ..1,|
00000C20: 22 52 22 3B 58 2C 59 3A 89 31 39 31 00 43 14 BE |"R";X,Y:.191.C..|
00000C30: 00 3A 20 20 20 20 20 20 20 98 31 2C 22 4A 22 3B |.: .1,"J";|
00000C40: 58 2C 59 00 51 14 BF 00 3A 20 20 20 20 20 82 20 |X,Y.Q...: . |
00000C50: 49 00 5D 14 C0 00 3A 20 20 20 82 20 5A 00 67 14 |I.]...: . Z.g.|
00000C60: C1 00 3A 20 82 20 4C 00 7B 14 C2 00 3A 20 98 31 |..: . L.{...: .1|
00000C70: 2C 22 52 22 3B 30 2C AB 32 34 30 00 8A 14 C3 00 |,"R";0,.240.....|
00000C80: 3A 20 98 34 3A 98 34 3A 98 34 00 90 14 C4 00 8E |: .4:.4:.4......|
00000C90: 00 96 14 C5 00 3A 00 A4 14 C6 00 3A 20 99 20 22 |.....:.....: . "|
00000CA0: 93 11 90 22 00 D1 14 C7 00 3A 20 99 20 22 20 20 |...".....: . " |
00000CB0: 20 20 20 20 20 20 12 D5 C0 C0 C0 C0 C0 C0 C0 C0 | ..........|
00000CC0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 92 |................|
00000CD0: 22 00 FE 14 C8 00 3A 20 99 20 22 20 20 20 20 20 |".....: . " |
00000CE0: 20 20 20 12 DD 20 20 43 4F 4E 43 45 4E 54 52 49 | .. CONCENTRI|
00000CF0: 43 20 53 51 55 41 52 45 53 20 20 DD 92 22 00 2B |C SQUARES ..".+|
00000D00: 15 C9 00 3A 20 99 20 22 20 20 20 20 20 20 20 20 |...: . " |
00000D10: 12 DD 20 20 20 20 20 20 20 50 41 47 45 20 34 37 |.. PAGE 47|
00000D20: 20 20 20 20 20 20 20 20 DD 92 22 00 58 15 CA 00 | ..".X...|
00000D30: 3A 20 99 20 22 20 20 20 20 20 20 20 20 12 CA C0 |: . " ...|
00000D40: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000D50: C0 C0 C0 C0 C0 CB 92 22 00 6E 15 CB 00 3A 20 98 |.......".n...: .|
00000D60: 31 2C 22 4D 22 3B 32 34 30 2C AB 32 34 30 00 7B |1,"M";240,.240.{|
00000D70: 15 CC 00 3A 20 98 31 2C 22 49 22 00 90 15 CD 00 |...: .1,"I".....|
00000D80: 3A 20 81 20 49 B2 30 20 A4 20 39 30 20 A9 31 30 |: . I.0 . 90 .10|
00000D90: 00 AB 15 CE 00 3A 20 20 20 43 B2 43 AA 31 3A 8B |.....: C.C.1:.|
00000DA0: 20 43 B1 B2 34 20 A7 20 43 B2 30 00 B8 15 CF 00 | C..4 . C.0.....|
00000DB0: 3A 20 20 20 98 32 2C 43 00 CB 15 D0 00 3A 20 20 |: .2,C.....: |
00000DC0: 20 81 20 4A B2 31 20 A4 20 31 31 00 DB 15 D1 00 | . J.1 . 11.....|
00000DD0: 3A 20 20 20 20 20 58 B2 49 AA 4A 00 EB 15 D2 00 |: X.I.J.....|
00000DE0: 3A 20 20 20 20 20 59 B2 49 AA 4A 00 01 16 D3 00 |: Y.I.J.....|
00000DF0: 3A 20 20 20 20 20 98 31 2C 22 52 22 3B 58 3B AB |: .1,"R";X;.|
00000E00: 59 00 16 16 D4 00 3A 20 20 20 20 20 98 31 2C 22 |Y.....: .1,"|
00000E10: 4A 22 3B 58 2C 59 00 2C 16 D5 00 3A 20 20 20 20 |J";X,Y.,...: |
00000E20: 20 98 31 2C 22 4A 22 3B AB 58 3B 59 00 43 16 D6 | .1,"J";.X;Y.C..|
00000E30: 00 3A 20 20 20 20 20 98 31 2C 22 4A 22 3B AB 58 |.: .1,"J";.X|
00000E40: 3B AB 59 00 59 16 D7 00 3A 20 20 20 20 20 98 31 |;.Y.Y...: .1|
00000E50: 2C 22 4A 22 3B 58 3B AB 59 00 65 16 D8 00 3A 20 |,"J";X;.Y.e...: |
00000E60: 20 20 82 20 4A 00 6F 16 D9 00 3A 20 82 20 49 00 | . J.o...: . I.|
00000E70: 7E 16 DA 00 3A 20 98 34 3A 98 34 3A 98 34 00 92 |~...: .4:.4:.4..|
00000E80: 16 DB 00 3A 20 98 31 2C 22 52 22 3B 30 2C AB 32 |...: .1,"R";0,.2|
00000E90: 30 30 00 98 16 DC 00 8E 00 9E 16 DD 00 3A 00 AC |00...........:..|
00000EA0: 16 DE 00 3A 20 99 20 22 93 11 90 22 00 D9 16 DF |...: . "..."....|
00000EB0: 00 3A 20 99 20 22 20 20 20 20 20 20 20 20 12 D5 |.: . " ..|
00000EC0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000ED0: C0 C0 C0 C0 C0 C0 C9 92 22 00 06 17 E0 00 3A 20 |........".....: |
00000EE0: 99 20 22 20 20 20 20 20 20 20 20 12 DD 20 20 52 |. " .. R|
00000EF0: 4F 54 41 54 49 4E 47 20 54 52 49 41 4E 47 4C 45 |OTATING TRIANGLE|
00000F00: 53 20 20 DD 92 22 00 33 17 E1 00 3A 20 99 20 22 |S ..".3...: . "|
00000F10: 20 20 20 20 20 20 20 20 12 DD 20 20 20 20 20 20 | .. |
00000F20: 20 50 41 47 45 20 34 38 20 20 20 20 20 20 20 20 | PAGE 48 |
00000F30: DD 92 22 00 60 17 E2 00 3A 20 99 20 22 20 20 20 |..".`...: . " |
00000F40: 20 20 20 20 20 12 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 | ...........|
00000F50: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB 92 22 |..............."|
00000F60: 00 6A 17 E3 00 3A 20 43 B2 34 00 80 17 E4 00 3A |.j...: C.4.....:|
00000F70: 20 98 31 2C 22 4D 22 3B 32 34 30 2C AB 32 30 30 | .1,"M";240,.200|
00000F80: 00 8D 17 E5 00 3A 20 98 31 2C 22 49 22 00 9D 17 |.....: .1,"I"...|
00000F90: E6 00 3A 20 4E B2 33 3A 4C B2 31 36 30 00 B5 17 |..: N.3:L.160...|
00000FA0: E7 00 3A 20 81 20 41 B2 30 20 A4 20 33 36 30 AD |..: . A.0 . 360.|
00000FB0: 4E 20 A9 31 30 00 D1 17 E8 00 3A 20 20 20 43 B2 |N .10.....: C.|
00000FC0: 43 AA 31 3A 8B 20 43 20 B1 B2 34 20 A7 20 43 B2 |C.1:. C ..4 . C.|
00000FD0: 30 00 DE 17 E9 00 3A 20 20 20 98 32 2C 43 00 F1 |0.....: .2,C..|
00000FE0: 17 EA 00 3A 20 20 20 54 48 B2 41 AC FF AD 31 38 |...: TH.A...18|
00000FF0: 30 00 03 18 EB 00 3A 20 20 20 81 20 49 B2 30 20 |0.....: . I.0 |
00001000: A4 20 4E 00 1F 18 EC 00 3A 20 20 20 20 20 58 B2 |. N.....: X.|
00001010: 4C AC BF 28 54 48 AA 49 AC 32 AC FF AD 4E 29 00 |L..(TH.I.2...N).|
00001020: 3B 18 ED 00 3A 20 20 20 20 20 59 B2 4C AC BE 28 |;...: Y.L..(|
00001030: 54 48 AA 49 AC 32 AC FF AD 4E 29 00 5C 18 EE 00 |TH.I.2...N).\...|
00001040: 3A 20 20 20 20 20 8B 20 49 B2 30 20 A7 98 31 2C |: . I.0 ..1,|
00001050: 22 52 22 3B 58 2C 59 3A 89 32 34 30 00 71 18 EF |"R";X,Y:.240.q..|
00001060: 00 3A 20 20 20 20 20 98 31 2C 22 4A 22 3B 58 2C |.: .1,"J";X,|
00001070: 59 00 7D 18 F0 00 3A 20 20 20 82 20 49 00 87 18 |Y.}...: . I...|
00001080: F1 00 3A 20 82 20 41 00 9B 18 F2 00 3A 20 98 31 |..: . A.....: .1|
00001090: 2C 22 52 22 3B 30 2C AB 32 30 30 00 AA 18 F3 00 |,"R";0,.200.....|
000010A0: 3A 20 98 34 3A 98 34 3A 98 34 00 B0 18 F4 00 8E |: .4:.4:.4......|
000010B0: 00 B6 18 F5 00 3A 00 C4 18 F6 00 3A 20 99 20 22 |.....:.....: . "|
000010C0: 93 11 90 22 00 F1 18 F7 00 3A 20 99 20 22 20 20 |...".....: . " |
000010D0: 20 20 20 20 20 20 12 D5 C0 C0 C0 C0 C0 C0 C0 C0 | ..........|
000010E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 92 |................|
000010F0: 22 00 1E 19 F8 00 3A 20 99 20 22 20 20 20 20 20 |".....: . " |
00001100: 20 20 20 12 DD 20 20 43 4F 4E 45 20 46 52 4F 4D | .. CONE FROM|
00001110: 20 43 49 52 43 4C 45 53 20 20 20 DD 92 22 00 4B | CIRCLES ..".K|
00001120: 19 F9 00 3A 20 99 20 22 20 20 20 20 20 20 20 20 |...: . " |
00001130: 12 DD 20 20 20 20 20 20 20 50 41 47 45 20 34 39 |.. PAGE 49|
00001140: 20 20 20 20 20 20 20 20 DD 92 22 00 78 19 FA 00 | ..".x...|
00001150: 3A 20 99 20 22 20 20 20 20 20 20 20 20 12 CA C0 |: . " ...|
00001160: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001170: C0 C0 C0 C0 C0 CB 92 22 00 A5 19 FB 00 8F 20 20 |......."...... |
00001180: 47 45 54 20 50 45 4E 20 43 4F 4C 4F 52 20 53 45 |GET PEN COLOR SE|
00001190: 4C 45 43 54 49 4F 4E 20 46 52 4F 4D 20 54 48 45 |LECTION FROM THE|
000011A0: 20 55 53 45 52 00 DC 19 FC 00 3A 20 85 22 11 11 | USER.....: ."..|
000011B0: 20 50 45 4E 20 43 4F 4C 4F 52 20 20 20 20 20 20 | PEN COLOR |
000011C0: 20 28 90 30 20 1F 31 20 1E 32 20 1C 33 97 29 32 | (.0 .1 .2 .3.)2|
000011D0: 9D 20 20 30 9D 9D 9D 22 3B 50 43 24 00 F0 19 FD |. 0...";PC$....|
000011E0: 00 3A 20 50 43 B2 C6 28 50 43 24 AA 22 20 22 29 |.: PC..(PC$." ")|
000011F0: 00 1E 1A FE 00 3A 20 8B 20 50 43 B3 34 38 20 B0 |.....: . PC.48 .|
00001200: 20 50 43 B1 35 31 20 A7 20 99 20 22 91 22 3B A3 | PC.51 . . ".";.|
00001210: 32 38 29 22 20 20 91 22 20 3A 89 32 35 32 00 2D |28)" ." :.252.-|
00001220: 1A FF 00 3A 20 50 43 B2 50 43 AB 34 38 00 43 1A |...: PC.PC.48.C.|
00001230: 00 01 3A 20 98 31 2C 22 4D 22 3B 32 34 30 2C AB |..: .1,"M";240,.|
00001240: 32 30 30 00 50 1A 01 01 3A 20 98 31 2C 22 49 22 |200.P...: .1,"I"|
00001250: 00 65 1A 02 01 3A 20 81 20 4C B2 35 20 A4 20 31 |.e...: . L.5 . 1|
00001260: 35 30 20 A9 35 00 73 1A 03 01 3A 20 20 20 98 32 |50 .5.s...: .2|
00001270: 2C 50 43 00 8B 1A 04 01 3A 20 20 20 81 20 49 B2 |,PC.....: . I.|
00001280: 30 20 A4 20 33 36 30 20 A9 31 30 00 A4 1A 05 01 |0 . 360 .10.....|
00001290: 3A 20 20 20 20 20 58 B2 4C AC BF 28 49 AC FF AD |: X.L..(I...|
000012A0: 31 38 30 29 00 CA 1A 06 01 3A 20 20 20 20 20 44 |180).....: D|
000012B0: B2 4C AC 32 3A 59 B2 AB 32 34 30 AA 44 AA 4C AC |.L.2:Y..240.D.L.|
000012C0: BE 28 49 AC FF AD 31 38 30 29 00 EB 1A 07 01 3A |.(I...180).....:|
000012D0: 20 20 20 20 20 8B 20 49 B2 30 20 A7 98 31 2C 22 | . I.0 ..1,"|
000012E0: 52 22 3B 58 2C 59 3A 89 32 36 35 00 00 1B 08 01 |R";X,Y:.265.....|
000012F0: 3A 20 20 20 20 20 98 31 2C 22 4A 22 3B 58 2C 59 |: .1,"J";X,Y|
00001300: 00 0C 1B 09 01 3A 20 20 20 82 20 49 00 16 1B 0A |.....: . I....|
00001310: 01 3A 20 82 20 4C 00 2A 1B 0B 01 3A 20 98 31 2C |.: . L.*...: .1,|
00001320: 22 52 22 3B 30 2C AB 33 30 30 00 39 1B 0C 01 3A |"R";0,.300.9...:|
00001330: 20 98 34 3A 98 34 3A 98 34 00 3F 1B 0D 01 8E 00 | .4:.4:.4.?.....|
00001340: 45 1B 0E 01 3A 00 53 1B 0F 01 3A 20 99 20 22 93 |E...:.S...: . ".|
00001350: 11 90 22 00 80 1B 10 01 3A 20 99 20 22 20 20 20 |..".....: . " |
00001360: 20 20 20 20 20 12 D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ...........|
00001370: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 92 22 |..............."|
00001380: 00 AD 1B 11 01 3A 20 99 20 22 20 20 20 20 20 20 |.....: . " |
00001390: 20 20 12 DD 20 20 43 49 52 43 4C 45 20 46 52 4F | .. CIRCLE FRO|
000013A0: 4D 20 43 49 52 43 4C 45 53 20 DD 92 22 00 DA 1B |M CIRCLES .."...|
000013B0: 12 01 3A 20 99 20 22 20 20 20 20 20 20 20 20 12 |..: . " .|
000013C0: DD 20 20 20 20 20 20 20 50 41 47 45 20 35 30 20 |. PAGE 50 |
000013D0: 20 20 20 20 20 20 20 DD 92 22 00 07 1C 13 01 3A | ..".....:|
000013E0: 20 99 20 22 20 20 20 20 20 20 20 20 12 CA C0 C0 | . " ....|
000013F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001400: C0 C0 C0 C0 CB 92 22 00 1D 1C 14 01 3A 20 98 31 |......".....: .1|
00001410: 2C 22 4D 22 3B 32 34 30 2C AB 32 30 30 00 2A 1C |,"M";240,.200.*.|
00001420: 15 01 3A 20 98 31 2C 22 49 22 00 57 1C 16 01 8F |..: .1,"I".W....|
00001430: 20 20 47 45 54 20 50 45 4E 20 43 4F 4C 4F 52 20 | GET PEN COLOR |
00001440: 53 45 4C 45 43 54 49 4F 4E 20 46 52 4F 4D 20 54 |SELECTION FROM T|
00001450: 48 45 20 55 53 45 52 00 92 1C 17 01 3A 20 85 22 |HE USER.....: ."|
00001460: 11 11 20 50 45 4E 20 43 4F 4C 4F 52 20 20 20 20 |.. PEN COLOR |
00001470: 20 20 20 20 20 20 20 28 90 30 20 1F 31 20 1E 32 | (.0 .1 .2|
00001480: 20 1C 33 97 29 32 9D 20 20 30 9D 9D 9D 22 3B 50 | .3.)2. 0...";P|
00001490: 43 24 00 A6 1C 18 01 3A 20 50 43 B2 C6 28 50 43 |C$.....: PC..(PC|
000014A0: 24 AA 22 20 22 29 00 D4 1C 19 01 3A 20 8B 20 50 |$." ").....: . P|
000014B0: 43 B3 34 38 20 B0 20 50 43 B1 35 31 20 A7 20 99 |C.48 . PC.51 . .|
000014C0: 20 22 91 22 3B A3 32 38 29 22 20 20 91 22 20 3A | ".";.28)" ." :|
000014D0: 89 32 37 39 00 E3 1C 1A 01 3A 20 50 43 B2 50 43 |.279.....: PC.PC|
000014E0: AB 34 38 00 10 1D 1B 01 3A 20 98 32 2C 50 43 20 |.48.....: .2,PC |
000014F0: 20 3A 8F 20 43 48 41 4E 47 45 20 50 45 4E 20 54 | :. CHANGE PEN T|
00001500: 4F 20 53 45 4C 45 43 54 45 44 20 43 4F 4C 4F 52 |O SELECTED COLOR|
00001510: 00 3C 1D 1C 01 3A 20 85 22 20 45 4E 54 45 52 20 |.<...: ." ENTER |
00001520: 53 49 5A 45 20 4F 46 20 43 49 52 43 4C 45 53 20 |SIZE OF CIRCLES |
00001530: 28 31 32 2D 38 30 29 3A 22 3B 50 54 00 57 1D 1D |(12-80):";PT.W..|
00001540: 01 3A 20 8B 20 50 54 B3 31 32 20 B0 20 50 54 B1 |.: . PT.12 . PT.|
00001550: 38 30 20 A7 32 38 34 00 67 1D 1E 01 3A 20 4C B2 |80 .284.g...: L.|
00001560: 50 54 3A 52 B2 38 30 00 7D 1D 1F 01 3A 20 81 20 |PT:R.80.}...: . |
00001570: 4A B2 30 20 A4 20 33 36 30 20 A9 31 35 00 95 1D |J.0 . 360 .15...|
00001580: 20 01 3A 20 20 20 81 20 49 B2 30 20 A4 20 33 36 | .: . I.0 . 36|
00001590: 30 20 A9 31 30 00 BB 1D 21 01 3A 20 20 20 20 20 |0 .10...!.: |
000015A0: 58 B2 52 AC BF 28 4A AC FF AD 31 38 30 29 AA 4C |X.R..(J...180).L|
000015B0: AC BF 28 49 AC FF AD 31 38 30 29 00 E1 1D 22 01 |..(I...180)...".|
000015C0: 3A 20 20 20 20 20 59 B2 52 AC BE 28 4A AC FF AD |: Y.R..(J...|
000015D0: 31 38 30 29 AA 4C AC BE 28 49 AC FF AD 31 38 30 |180).L..(I...180|
000015E0: 29 00 03 1E 23 01 3A 20 20 20 20 20 8B 20 49 B2 |)...#.: . I.|
000015F0: 30 20 A7 98 31 2C 22 52 22 2C 3B 58 2C 59 3A 89 |0 ..1,"R",;X,Y:.|
00001600: 32 39 33 00 18 1E 24 01 3A 20 20 20 20 20 98 31 |293...$.: .1|
00001610: 2C 22 4A 22 3B 58 2C 59 00 24 1E 25 01 3A 20 20 |,"J";X,Y.$.%.: |
00001620: 20 82 20 49 00 2E 1E 26 01 3A 20 82 20 4A 00 42 | . I...&.: . J.B|
00001630: 1E 27 01 3A 20 98 31 2C 22 52 22 2C 30 2C AB 31 |.'.: .1,"R",0,.1|
00001640: 30 30 00 52 1E 28 01 3A 20 98 34 3A 98 34 3A 98 |00.R.(.: .4:.4:.|
00001650: 34 3A 00 58 1E 29 01 8E 00 5E 1E 2A 01 3A 00 6C |4:.X.)...^.*.:.l|
00001660: 1E 2B 01 3A 20 99 20 22 93 11 90 22 00 99 1E 2C |.+.: . "..."...,|
00001670: 01 3A 20 99 20 22 20 20 20 20 20 20 20 20 12 D5 |.: . " ..|
00001680: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001690: C0 C0 C0 C0 C0 C0 C9 92 22 00 C6 1E 2D 01 3A 20 |........"...-.: |
000016A0: 99 20 22 20 20 20 20 20 20 20 20 12 DD 20 20 20 |. " .. |
000016B0: 52 4F 54 41 54 49 4E 47 20 45 4C 4C 49 50 53 45 |ROTATING ELLIPSE|
000016C0: 53 20 20 DD 92 22 00 F3 1E 2E 01 3A 20 99 20 22 |S ..".....: . "|
000016D0: 20 20 20 20 20 20 20 20 12 DD 20 20 20 20 20 20 | .. |
000016E0: 20 50 41 47 45 20 35 31 20 20 20 20 20 20 20 20 | PAGE 51 |
000016F0: DD 92 22 00 20 1F 2F 01 3A 20 99 20 22 20 20 20 |..". ./.: . " |
00001700: 20 20 20 20 20 12 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 | ...........|
00001710: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB 92 22 |..............."|
00001720: 00 4D 1F 30 01 8F 20 20 47 45 54 20 50 45 4E 20 |.M.0.. GET PEN |
00001730: 43 4F 4C 4F 52 20 53 45 4C 45 43 54 49 4F 4E 20 |COLOR SELECTION |
00001740: 46 52 4F 4D 20 54 48 45 20 55 53 45 52 00 84 1F |FROM THE USER...|
00001750: 31 01 3A 20 85 22 11 11 20 50 45 4E 20 43 4F 4C |1.: .".. PEN COL|
00001760: 4F 52 20 20 20 20 20 20 20 28 90 30 20 1F 31 20 |OR (.0 .1 |
00001770: 1E 32 20 1C 33 97 29 32 9D 20 20 30 9D 9D 9D 22 |.2 .3.)2. 0..."|
00001780: 3B 50 43 24 00 98 1F 32 01 3A 20 50 43 B2 C6 28 |;PC$...2.: PC..(|
00001790: 50 43 24 AA 22 20 22 29 00 C6 1F 33 01 3A 20 8B |PC$." ")...3.: .|
000017A0: 20 50 43 B3 34 38 20 B0 20 50 43 B1 35 31 20 A7 | PC.48 . PC.51 .|
000017B0: 20 99 20 22 91 22 3B A3 32 38 29 22 20 20 91 22 | . ".";.28)" ."|
000017C0: 20 3A 89 33 30 35 00 D5 1F 34 01 3A 20 50 43 B2 | :.305...4.: PC.|
000017D0: 50 43 AB 34 38 00 02 20 35 01 3A 20 98 32 2C 50 |PC.48.. 5.: .2,P|
000017E0: 43 20 20 3A 8F 20 43 48 41 4E 47 45 20 50 45 4E |C :. CHANGE PEN|
000017F0: 20 54 4F 20 53 45 4C 45 43 54 45 44 20 43 4F 4C | TO SELECTED COL|
00001800: 4F 52 00 18 20 36 01 3A 20 98 31 2C 22 4D 22 3B |OR.. 6.: .1,"M";|
00001810: 32 34 30 2C AB 32 30 30 00 25 20 37 01 3A 20 98 |240,.200.% 7.: .|
00001820: 31 2C 22 49 22 00 3F 20 38 01 3A 20 41 B2 31 38 |1,"I".? 8.: A.18|
00001830: 30 3A 42 B2 36 30 3A 54 48 B2 FF AD 31 38 30 00 |0:B.60:TH...180.|
00001840: 55 20 39 01 3A 20 81 20 4A B2 30 20 A4 20 31 38 |U 9.: . J.0 . 18|
00001850: 30 20 A9 31 35 00 6D 20 3A 01 3A 20 20 20 81 20 |0 .15.m :.: . |
00001860: 49 B2 30 20 A4 20 33 36 30 20 A9 31 35 00 83 20 |I.0 . 360 .15.. |
00001870: 3B 01 3A 20 20 20 20 20 52 B2 41 AC BE 28 49 AC |;.: R.A..(I.|
00001880: 54 48 29 00 99 20 3C 01 3A 20 20 20 20 20 4C B2 |TH).. <.: L.|
00001890: 42 AC BF 28 49 AC 54 48 29 00 B9 20 3D 01 3A 20 |B..(I.TH).. =.: |
000018A0: 20 20 20 20 58 B2 52 AC BE 28 4A AC 54 48 29 AB | X.R..(J.TH).|
000018B0: 4C AC BF 28 4A AC 54 48 29 00 D9 20 3E 01 3A 20 |L..(J.TH).. >.: |
000018C0: 20 20 20 20 59 B2 52 AC BF 28 4A AC 54 48 29 AB | Y.R..(J.TH).|
000018D0: 4C AC BE 28 4A AC 54 48 29 00 FA 20 3F 01 3A 20 |L..(J.TH).. ?.: |
000018E0: 20 20 20 20 8B 20 49 B2 30 20 A7 98 31 2C 22 52 | . I.0 ..1,"R|
000018F0: 22 3B 58 2C 59 3A 89 33 32 31 00 0F 21 40 01 3A |";X,Y:.321..!@.:|
00001900: 20 20 20 20 20 98 31 2C 22 4A 22 3B 58 2C 59 00 | .1,"J";X,Y.|
00001910: 1B 21 41 01 3A 20 20 20 82 20 49 00 25 21 42 01 |.!A.: . I.%!B.|
00001920: 3A 20 82 20 4A 00 39 21 43 01 3A 20 98 31 2C 22 |: . J.9!C.: .1,"|
00001930: 52 22 3B 30 2C AB 32 30 30 00 48 21 44 01 3A 20 |R";0,.200.H!D.: |
00001940: 98 34 3A 98 34 3A 98 34 00 4E 21 45 01 8E 00 54 |.4:.4:.4.N!E...T|
00001950: 21 46 01 3A 00 62 21 47 01 3A 20 99 20 22 93 11 |!F.:.b!G.: . "..|
00001960: 90 22 00 8F 21 48 01 3A 20 99 20 22 20 20 20 20 |."..!H.: . " |
00001970: 20 20 20 20 12 D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ............|
00001980: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 92 22 00 |..............".|
00001990: BC 21 49 01 3A 20 99 20 22 20 20 20 20 20 20 20 |.!I.: . " |
000019A0: 20 12 DD 20 20 41 52 43 48 49 4D 45 44 49 41 4E | .. ARCHIMEDIAN|
000019B0: 20 53 50 49 52 41 4C 20 20 DD 92 22 00 E9 21 4A | SPIRAL .."..!J|
000019C0: 01 3A 20 99 20 22 20 20 20 20 20 20 20 20 12 DD |.: . " ..|
000019D0: 20 20 20 20 20 20 20 50 41 47 45 20 35 32 20 20 | PAGE 52 |
000019E0: 20 20 20 20 20 20 DD 92 22 00 16 22 4B 01 3A 20 | ..".."K.: |
000019F0: 99 20 22 20 20 20 20 20 20 20 20 12 CA C0 C0 C0 |. " .....|
00001A00: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001A10: C0 C0 C0 CB 92 22 00 43 22 4C 01 8F 20 20 47 45 |.....".C"L.. GE|
00001A20: 54 20 50 45 4E 20 43 4F 4C 4F 52 20 53 45 4C 45 |T PEN COLOR SELE|
00001A30: 43 54 49 4F 4E 20 46 52 4F 4D 20 54 48 45 20 55 |CTION FROM THE U|
00001A40: 53 45 52 00 7A 22 4D 01 3A 20 85 22 11 11 20 50 |SER.z"M.: .".. P|
00001A50: 45 4E 20 43 4F 4C 4F 52 20 20 20 20 20 20 20 28 |EN COLOR (|
00001A60: 90 30 20 1F 31 20 1E 32 20 1C 33 97 29 32 9D 20 |.0 .1 .2 .3.)2. |
00001A70: 20 30 9D 9D 9D 22 3B 50 43 24 00 8E 22 4E 01 3A | 0...";PC$.."N.:|
00001A80: 20 50 43 B2 C6 28 50 43 24 AA 22 20 22 29 00 BC | PC..(PC$." ")..|
00001A90: 22 4F 01 3A 20 8B 20 50 43 B3 34 38 20 B0 20 50 |"O.: . PC.48 . P|
00001AA0: 43 B1 35 31 20 A7 20 99 20 22 91 22 3B A3 32 38 |C.51 . . ".";.28|
00001AB0: 29 22 20 20 91 22 20 3A 89 33 33 33 00 CB 22 50 |)" ." :.333.."P|
00001AC0: 01 3A 20 50 43 B2 50 43 AB 34 38 00 F8 22 51 01 |.: PC.PC.48.."Q.|
00001AD0: 3A 20 98 32 2C 50 43 20 20 3A 8F 20 43 48 41 4E |: .2,PC :. CHAN|
00001AE0: 47 45 20 50 45 4E 20 54 4F 20 53 45 4C 45 43 54 |GE PEN TO SELECT|
00001AF0: 45 44 20 43 4F 4C 4F 52 00 0E 23 52 01 3A 20 98 |ED COLOR..#R.: .|
00001B00: 31 2C 22 4D 22 3B 32 34 30 2C AB 32 30 30 00 1B |1,"M";240,.200..|
00001B10: 23 53 01 3A 20 98 31 2C 22 49 22 00 29 23 54 01 |#S.: .1,"I".)#T.|
00001B20: 3A 20 50 B2 39 3A 41 B2 34 00 43 23 55 01 3A 20 |: P.9:A.4.C#U.: |
00001B30: 81 20 54 48 B2 30 20 A4 20 41 AC 32 AC FF A9 FF |. TH.0 . A.2....|
00001B40: AD 32 34 00 58 23 56 01 3A 20 20 20 58 B2 50 AC |.24.X#V.: X.P.|
00001B50: 54 48 AC BE 28 54 48 29 00 6D 23 57 01 3A 20 20 |TH..(TH).m#W.: |
00001B60: 20 59 B2 50 AC 54 48 AC BF 28 54 48 29 00 8D 23 | Y.P.TH..(TH)..#|
00001B70: 58 01 3A 20 20 20 8B 20 54 48 B2 30 20 A7 98 31 |X.: . TH.0 ..1|
00001B80: 2C 22 52 22 3B 58 2C 59 3A 89 33 34 36 00 A0 23 |,"R";X,Y:.346..#|
00001B90: 59 01 3A 20 20 20 98 31 2C 22 4A 22 3B 58 2C 59 |Y.: .1,"J";X,Y|
00001BA0: 00 AB 23 5A 01 3A 20 82 20 54 48 00 BF 23 5B 01 |..#Z.: . TH..#[.|
00001BB0: 3A 20 98 31 2C 22 52 22 3B 30 2C AB 32 34 30 00 |: .1,"R";0,.240.|
00001BC0: CE 23 5C 01 3A 20 98 34 3A 98 34 3A 98 34 00 D4 |.#\.: .4:.4:.4..|
00001BD0: 23 5D 01 8E 00 DA 23 5E 01 3A 00 E8 23 5F 01 3A |#]....#^.:..#_.:|
00001BE0: 20 99 20 22 93 11 90 22 00 15 24 60 01 3A 20 99 | . "..."..$`.: .|
00001BF0: 20 22 20 20 20 20 20 20 20 20 12 D5 C0 C0 C0 C0 | " ......|
00001C00: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001C10: C0 C0 C9 92 22 00 42 24 61 01 3A 20 99 20 22 20 |....".B$a.: . " |
00001C20: 20 20 20 20 20 20 20 12 DD 20 20 20 47 45 4F 4D | .. GEOM|
00001C30: 45 54 52 49 43 20 44 45 53 49 47 4E 20 20 20 DD |ETRIC DESIGN .|
00001C40: 92 22 00 6F 24 62 01 3A 20 99 20 22 20 20 20 20 |.".o$b.: . " |
00001C50: 20 20 20 20 12 DD 20 20 20 20 20 20 20 50 41 47 | .. PAG|
00001C60: 45 20 35 33 20 20 20 20 20 20 20 20 DD 92 22 00 |E 53 ..".|
00001C70: 9C 24 63 01 3A 20 99 20 22 20 20 20 20 20 20 20 |.$c.: . " |
00001C80: 20 12 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ...............|
00001C90: C0 C0 C0 C0 C0 C0 C0 C0 C0 CB 92 22 00 C9 24 64 |..........."..$d|
00001CA0: 01 8F 20 20 47 45 54 20 50 45 4E 20 43 4F 4C 4F |.. GET PEN COLO|
00001CB0: 52 20 53 45 4C 45 43 54 49 4F 4E 20 46 52 4F 4D |R SELECTION FROM|
00001CC0: 20 54 48 45 20 55 53 45 52 00 00 25 65 01 3A 20 | THE USER..%e.: |
00001CD0: 85 22 11 11 20 50 45 4E 20 43 4F 4C 4F 52 20 20 |.".. PEN COLOR |
00001CE0: 20 20 20 20 20 28 90 30 20 1F 31 20 1E 32 20 1C | (.0 .1 .2 .|
00001CF0: 33 97 29 32 9D 20 20 30 9D 9D 9D 22 3B 50 43 24 |3.)2. 0...";PC$|
00001D00: 00 14 25 66 01 3A 20 50 43 B2 C6 28 50 43 24 AA |..%f.: PC..(PC$.|
00001D10: 22 20 22 29 00 42 25 67 01 3A 20 8B 20 50 43 B3 |" ").B%g.: . PC.|
00001D20: 34 38 20 B0 20 50 43 B1 35 31 20 A7 20 99 20 22 |48 . PC.51 . . "|
00001D30: 91 22 3B A3 32 38 29 22 20 20 91 22 20 3A 89 33 |.";.28)" ." :.3|
00001D40: 35 37 00 51 25 68 01 3A 20 50 43 B2 50 43 AB 34 |57.Q%h.: PC.PC.4|
00001D50: 38 00 7E 25 69 01 3A 20 98 32 2C 50 43 20 20 3A |8.~%i.: .2,PC :|
00001D60: 8F 20 43 48 41 4E 47 45 20 50 45 4E 20 54 4F 20 |. CHANGE PEN TO |
00001D70: 53 45 4C 45 43 54 45 44 20 43 4F 4C 4F 52 00 94 |SELECTED COLOR..|
00001D80: 25 6A 01 3A 20 98 31 2C 22 4D 22 3B 30 30 30 2C |%j.: .1,"M";000,|
00001D90: AB 32 36 30 00 9D 25 6B 01 3A 20 98 34 00 CA 25 |.260..%k.: .4..%|
00001DA0: 6C 01 3A 20 85 22 11 11 45 4E 54 45 52 20 4E 55 |l.: ."..ENTER NU|
00001DB0: 4D 42 45 52 20 4F 46 20 50 4F 49 4E 54 53 20 28 |MBER OF POINTS (|
00001DC0: 33 2D 33 32 29 3A 22 3B 50 54 00 E4 25 6D 01 3A |3-32):";PT..%m.:|
00001DD0: 20 8B 20 50 54 B3 33 20 B0 20 50 54 B1 33 32 20 | . PT.3 . PT.32 |
00001DE0: A7 33 36 34 00 F5 25 6E 01 3A 20 4E B2 50 54 3A |.364..%n.: N.PT:|
00001DF0: 4C B2 31 36 30 00 07 26 6F 01 3A 20 81 20 4A B2 |L.160..&o.: . J.|
00001E00: 30 20 A4 20 4E AB 31 00 1A 26 70 01 3A 20 20 20 |0 . N.1..&p.: |
00001E10: 81 20 49 B2 30 20 A4 4A AB 31 00 38 26 71 01 3A |. I.0 .J.1.8&q.:|
00001E20: 20 20 20 20 20 58 31 B2 32 34 30 AA 4C AC BE 28 | X1.240.L..(|
00001E30: 32 AD 4E AC 4A AC FF 29 00 56 26 72 01 3A 20 20 |2.N.J..).V&r.: |
00001E40: 20 20 20 59 31 B2 31 30 30 AA 4C AC BF 28 32 AD | Y1.100.L..(2.|
00001E50: 4E AC 4A AC FF 29 00 74 26 73 01 3A 20 20 20 20 |N.J..).t&s.: |
00001E60: 20 58 32 B2 32 34 30 AA 4C AC BE 28 32 AD 4E AC | X2.240.L..(2.N.|
00001E70: 49 AC FF 29 00 92 26 74 01 3A 20 20 20 20 20 59 |I..)..&t.: Y|
00001E80: 32 B2 31 30 30 AA 4C AC BF 28 32 AD 4E AC 49 AC |2.100.L..(2.N.I.|
00001E90: FF 29 00 A9 26 75 01 3A 20 20 20 20 20 98 31 2C |.)..&u.: .1,|
00001EA0: 22 4D 22 3B 58 31 2C 59 31 00 C0 26 76 01 3A 20 |"M";X1,Y1..&v.: |
00001EB0: 20 20 20 20 98 31 2C 22 44 22 3B 58 32 2C 59 32 | .1,"D";X2,Y2|
00001EC0: 00 CC 26 77 01 3A 20 20 20 82 20 49 00 D6 26 78 |..&w.: . I..&x|
00001ED0: 01 3A 20 82 20 4A 00 EA 26 79 01 3A 20 98 31 2C |.: . J..&y.: .1,|
00001EE0: 22 4D 22 3B 30 2C AB 31 30 30 00 F9 26 7A 01 3A |"M";0,.100..&z.:|
00001EF0: 20 98 34 3A 98 34 3A 98 34 00 FF 26 7B 01 8E 00 | .4:.4:.4..&{...|
00001F00: 05 27 7C 01 3A 00 13 27 7D 01 3A 20 99 20 22 93 |.'|.:..'}.: . ".|
00001F10: 11 90 22 00 40 27 7E 01 3A 20 99 20 22 20 20 20 |..".@'~.: . " |
00001F20: 20 20 20 20 20 12 D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ...........|
00001F30: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 92 22 |..............."|
00001F40: 00 6D 27 7F 01 3A 20 99 20 22 20 20 20 20 20 20 |.m'..: . " |
00001F50: 20 20 12 DD 20 20 20 20 43 48 45 43 4B 45 52 20 | .. CHECKER |
00001F60: 42 4F 41 52 44 20 20 20 20 20 DD 92 22 00 9A 27 |BOARD .."..'|
00001F70: 80 01 3A 20 99 20 22 20 20 20 20 20 20 20 20 12 |..: . " .|
00001F80: DD 20 20 20 20 20 20 20 50 41 47 45 20 35 34 20 |. PAGE 54 |
00001F90: 20 20 20 20 20 20 20 DD 92 22 00 C7 27 81 01 3A | .."..'..:|
00001FA0: 20 99 20 22 20 20 20 20 20 20 20 20 12 CA C0 C0 | . " ....|
00001FB0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001FC0: C0 C0 C0 C0 CB 92 22 00 F4 27 82 01 8F 20 20 47 |......"..'... G|
00001FD0: 45 54 20 50 45 4E 20 43 4F 4C 4F 52 20 53 45 4C |ET PEN COLOR SEL|
00001FE0: 45 43 54 49 4F 4E 20 46 52 4F 4D 20 54 48 45 20 |ECTION FROM THE |
00001FF0: 55 53 45 52 00 2B 28 83 01 3A 20 85 22 11 11 20 |USER.+(..: .".. |
00002000: 50 45 4E 20 43 4F 4C 4F 52 20 20 20 20 20 20 20 |PEN COLOR |
00002010: 28 90 30 20 1F 31 20 1E 32 20 1C 33 97 29 32 9D |(.0 .1 .2 .3.)2.|
00002020: 20 20 30 9D 9D 9D 22 3B 50 43 24 00 3F 28 84 01 | 0...";PC$.?(..|
00002030: 3A 20 50 43 B2 C6 28 50 43 24 AA 22 20 22 29 00 |: PC..(PC$." ").|
00002040: 6D 28 85 01 3A 20 8B 20 50 43 B3 34 38 20 B0 20 |m(..: . PC.48 . |
00002050: 50 43 B1 35 31 20 A7 20 99 20 22 91 22 3B A3 32 |PC.51 . . ".";.2|
00002060: 38 29 22 20 20 91 22 20 3A 89 33 38 37 00 7C 28 |8)" ." :.387.|(|
00002070: 86 01 3A 20 50 43 B2 50 43 AB 34 38 00 A9 28 87 |..: PC.PC.48..(.|
00002080: 01 3A 20 98 32 2C 50 43 20 20 3A 8F 20 43 48 41 |.: .2,PC :. CHA|
00002090: 4E 47 45 20 50 45 4E 20 54 4F 20 53 45 4C 45 43 |NGE PEN TO SELEC|
000020A0: 54 45 44 20 43 4F 4C 4F 52 00 BF 28 88 01 3A 20 |TED COLOR..(..: |
000020B0: 98 31 2C 22 4D 22 3B 20 36 30 2C AB 33 36 30 00 |.1,"M"; 60,.360.|
000020C0: CC 28 89 01 3A 20 98 31 2C 22 49 22 00 D8 28 8A |.(..: .1,"I"..(.|
000020D0: 01 3A 20 42 B2 33 36 30 00 E8 28 8B 01 3A 20 81 |.: B.360..(..: .|
000020E0: 20 52 B2 30 20 A4 20 38 00 F6 28 8C 01 3A 20 20 | R.0 . 8..(..: |
000020F0: 20 44 B2 42 AD 38 00 0B 29 8D 01 3A 20 20 20 98 | D.B.8..)..: .|
00002100: 31 2C 22 52 22 3B 30 3B 44 AC 52 00 20 29 8E 01 |1,"R";0;D.R. )..|
00002110: 3A 20 20 20 98 31 2C 22 4A 22 3B 42 3B 44 AC 52 |: .1,"J";B;D.R|
00002120: 00 29 29 8F 01 3A 20 82 52 00 39 29 90 01 3A 20 |.))..: .R.9)..: |
00002130: 81 20 43 B2 30 20 A4 20 38 00 47 29 91 01 3A 20 |. C.0 . 8.G)..: |
00002140: 20 20 57 B2 42 AD 38 00 5C 29 92 01 3A 20 20 20 | W.B.8.\)..: |
00002150: 98 31 2C 22 52 22 3B 57 AC 43 3B 30 00 71 29 93 |.1,"R";W.C;0.q).|
00002160: 01 3A 20 20 20 98 31 2C 22 4A 22 3B 57 AC 43 3B |.: .1,"J";W.C;|
00002170: 42 00 7A 29 94 01 3A 20 82 43 00 8A 29 95 01 3A |B.z)..: .C..)..:|
00002180: 20 81 20 4A B2 30 20 A4 20 37 00 9F 29 96 01 3A | . J.0 . 7..)..:|
00002190: 20 20 20 41 B2 4A AB 32 AC B5 28 4A AD 32 29 00 | A.J.2..(J.2).|
000021A0: B4 29 97 01 3A 20 20 20 81 20 49 B2 41 20 A4 20 |.)..: . I.A . |
000021B0: 37 20 A9 32 00 C8 29 98 01 3A 20 20 20 20 20 81 |7 .2..)..: .|
000021C0: 20 56 B2 30 20 A4 20 44 00 E5 29 99 01 3A 20 20 | V.0 . D..)..: |
000021D0: 20 20 20 20 20 98 31 2C 22 52 22 3B 49 AC 57 3B | .1,"R";I.W;|
000021E0: 4A AC 44 AA 56 00 06 2A 9A 01 3A 20 20 20 20 20 |J.D.V..*..: |
000021F0: 20 20 98 31 2C 22 4A 22 3B 28 49 AA 31 29 AC 57 | .1,"J";(I.1).W|
00002200: 3B 4A AC 44 AA 56 00 14 2A 9B 01 3A 20 20 20 20 |;J.D.V..*..: |
00002210: 20 82 20 56 00 20 2A 9C 01 3A 20 20 20 82 20 49 | . V. *..: . I|
00002220: 00 2A 2A 9D 01 3A 20 82 20 4A 00 37 2A 9E 01 3A |.**..: . J.7*..:|
00002230: 20 98 31 2C 22 48 22 00 46 2A 9F 01 3A 20 98 34 | .1,"H".F*..: .4|
00002240: 3A 98 34 3A 98 34 00 4C 2A A0 01 8E 00 52 2A A1 |:.4:.4.L*....R*.|
00002250: 01 3A 00 60 2A A2 01 3A 20 99 20 22 93 11 90 22 |.:.`*..: . "..."|
00002260: 00 8D 2A A3 01 3A 20 99 20 22 20 20 20 20 20 20 |..*..: . " |
00002270: 20 20 12 D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ..............|
00002280: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 92 22 00 BA 2A |............"..*|
00002290: A4 01 3A 20 99 20 22 20 20 20 20 20 20 20 20 12 |..: . " .|
000022A0: DD 20 20 20 20 43 52 4F 53 53 20 48 41 54 43 48 |. CROSS HATCH|
000022B0: 49 4E 47 20 20 20 20 DD 92 22 00 E7 2A A5 01 3A |ING .."..*..:|
000022C0: 20 99 20 22 20 20 20 20 20 20 20 20 12 DD 20 20 | . " .. |
000022D0: 20 20 20 20 20 50 41 47 45 20 35 36 20 20 20 20 | PAGE 56 |
000022E0: 20 20 20 20 DD 92 22 00 14 2B A6 01 3A 20 99 20 | .."..+..: . |
000022F0: 22 20 20 20 20 20 20 20 20 12 CA C0 C0 C0 C0 C0 |" .......|
00002300: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002310: C0 CB 92 22 00 41 2B A7 01 8F 20 20 47 45 54 20 |...".A+... GET |
00002320: 50 45 4E 20 43 4F 4C 4F 52 20 53 45 4C 45 43 54 |PEN COLOR SELECT|
00002330: 49 4F 4E 20 46 52 4F 4D 20 54 48 45 20 55 53 45 |ION FROM THE USE|
00002340: 52 00 78 2B A8 01 3A 20 85 22 11 11 20 50 45 4E |R.x+..: .".. PEN|
00002350: 20 43 4F 4C 4F 52 20 20 20 20 20 20 20 28 90 30 | COLOR (.0|
00002360: 20 1F 31 20 1E 32 20 1C 33 97 29 32 9D 20 20 30 | .1 .2 .3.)2. 0|
00002370: 9D 9D 9D 22 3B 50 43 24 00 8C 2B A9 01 3A 20 50 |...";PC$..+..: P|
00002380: 43 B2 C6 28 50 43 24 AA 22 20 22 29 00 BA 2B AA |C..(PC$." ")..+.|
00002390: 01 3A 20 8B 20 50 43 B3 34 38 20 B0 20 50 43 B1 |.: . PC.48 . PC.|
000023A0: 35 31 20 A7 20 99 20 22 91 22 3B A3 32 38 29 22 |51 . . ".";.28)"|
000023B0: 20 20 91 22 20 3A 89 34 32 34 00 C9 2B AB 01 3A | ." :.424..+..:|
000023C0: 20 50 43 B2 50 43 AB 34 38 00 F6 2B AC 01 3A 20 | PC.PC.48..+..: |
000023D0: 98 32 2C 50 43 20 20 3A 8F 20 43 48 41 4E 47 45 |.2,PC :. CHANGE|
000023E0: 20 50 45 4E 20 54 4F 20 53 45 4C 45 43 54 45 44 | PEN TO SELECTED|
000023F0: 20 43 4F 4C 4F 52 00 0E 2C AD 01 3A 20 58 B2 30 | COLOR..,..: X.0|
00002400: 3A 81 20 44 B2 32 20 A4 20 31 35 20 A9 32 00 2B |:. D.2 . 15 .2.+|
00002410: 2C AE 01 3A 20 20 20 98 31 2C 22 4D 22 3B 58 2C |,..: .1,"M";X,|
00002420: AB 31 30 30 3A 58 B2 58 AA 36 30 00 3A 2C AF 01 |.100:X.X.60.:,..|
00002430: 3A 20 20 20 98 31 2C 22 49 22 00 4D 2C B0 01 3A |: .1,"I".M,..:|
00002440: 20 20 20 41 B2 35 30 3A 42 B2 31 30 30 00 60 2C | A.50:B.100.`,|
00002450: B1 01 3A 20 20 20 98 31 2C 22 4A 22 3B 30 3B 42 |..: .1,"J";0;B|
00002460: 00 73 2C B2 01 3A 20 20 20 98 31 2C 22 4A 22 3B |.s,..: .1,"J";|
00002470: 41 3B 42 00 86 2C B3 01 3A 20 20 20 98 31 2C 22 |A;B..,..: .1,"|
00002480: 4A 22 3B 41 3B 30 00 99 2C B4 01 3A 20 20 20 98 |J";A;0..,..: .|
00002490: 31 2C 22 4A 22 3B 30 3B 30 00 B8 2C B5 01 3A 20 |1,"J";0;0..,..: |
000024A0: 20 20 50 31 B2 AB 42 3A 51 31 B2 42 3A 50 32 B2 | P1..B:Q1.B:P2.|
000024B0: 30 3A 51 32 B2 41 AA 42 00 C5 2C B6 01 3A 20 20 |0:Q2.A.B..,..: |
000024C0: 20 8D 34 35 31 00 DC 2C B7 01 3A 20 8B 20 51 32 | .451..,..: . Q2|
000024D0: B3 44 20 A7 20 82 44 3A 89 34 34 37 00 EF 2C B8 |.D . .D:.447..,.|
000024E0: 01 3A 20 98 31 2C 22 52 22 3B 58 31 3B 59 31 00 |.: .1,"R";X1;Y1.|
000024F0: 02 2D B9 01 3A 20 98 31 2C 22 52 22 3B 58 31 3B |.-..: .1,"R";X1;|
00002500: 59 32 00 0D 2D BA 01 3A 20 8D 34 35 31 00 20 2D |Y2..-..: .451. -|
00002510: BB 01 3A 20 98 31 2C 22 52 22 3B 58 32 3B 59 32 |..: .1,"R";X2;Y2|
00002520: 00 33 2D BC 01 3A 20 98 31 2C 22 4A 22 3B 58 31 |.3-..: .1,"J";X1|
00002530: 3B 59 31 00 3E 2D BD 01 3A 20 89 34 33 38 00 52 |;Y1.>-..: .438.R|
00002540: 2D BE 01 3A 20 98 31 2C 22 4D 22 3B 30 3B AB 31 |-..: .1,"M";0;.1|
00002550: 32 30 00 61 2D BF 01 3A 20 98 34 3A 98 34 3A 98 |20.a-..: .4:.4:.|
00002560: 34 00 67 2D C0 01 8E 00 6D 2D C1 01 3A 00 7E 2D |4.g-....m-..:.~-|
00002570: C2 01 8F 20 53 55 42 52 4F 55 54 49 4E 45 00 94 |... SUBROUTINE..|
00002580: 2D C3 01 3A 20 50 31 B2 50 31 AA 44 3A 51 31 B2 |-..: P1.P1.D:Q1.|
00002590: 51 31 AB 44 00 B3 2D C4 01 3A 20 8B 20 51 31 B3 |Q1.D..-..: . Q1.|
000025A0: 30 20 A7 20 59 31 B2 30 3A 58 31 B2 50 31 3A 89 |0 . Y1.0:X1.P1:.|
000025B0: 34 35 34 00 C4 2D C5 01 3A 20 59 31 B2 51 31 3A |454..-..: Y1.Q1:|
000025C0: 58 31 B2 30 00 DA 2D C6 01 3A 20 50 32 B2 50 32 |X1.0..-..: P2.P2|
000025D0: AA 44 3A 51 32 B2 51 32 AB 44 00 F9 2D C7 01 3A |.D:Q2.Q2.D..-..:|
000025E0: 20 8B 20 50 32 B1 41 20 A7 20 58 32 B2 41 3A 59 | . P2.A . X2.A:Y|
000025F0: 32 B2 51 32 3A 89 34 35 37 00 0A 2E C8 01 3A 20 |2.Q2:.457.....: |
00002600: 58 32 B2 50 32 3A 59 32 B2 42 00 10 2E C9 01 8E |X2.P2:Y2.B......|
00002610: 00 16 2E CA 01 3A 00 24 2E CB 01 3A 20 99 20 22 |.....:.$...: . "|
00002620: 93 11 90 22 00 51 2E CC 01 3A 20 99 20 22 20 20 |...".Q...: . " |
00002630: 20 20 20 20 20 20 12 D5 C0 C0 C0 C0 C0 C0 C0 C0 | ..........|
00002640: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 92 |................|
00002650: 22 00 7E 2E CD 01 3A 20 99 20 22 20 20 20 20 20 |".~...: . " |
00002660: 20 20 20 12 DD 20 20 20 20 43 48 41 4E 47 49 4E | .. CHANGIN|
00002670: 47 20 46 4F 52 4D 53 20 20 20 20 DD 92 22 00 AB |G FORMS .."..|
00002680: 2E CE 01 3A 20 99 20 22 20 20 20 20 20 20 20 20 |...: . " |
00002690: 12 DD 20 20 20 20 20 20 20 50 41 47 45 20 35 37 |.. PAGE 57|
000026A0: 20 20 20 20 20 20 20 20 DD 92 22 00 D8 2E CF 01 | ..".....|
000026B0: 3A 20 99 20 22 20 20 20 20 20 20 20 20 12 CA C0 |: . " ...|
000026C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000026D0: C0 C0 C0 C0 C0 CB 92 22 00 05 2F D0 01 8F 20 20 |......."../... |
000026E0: 47 45 54 20 50 45 4E 20 43 4F 4C 4F 52 20 53 45 |GET PEN COLOR SE|
000026F0: 4C 45 43 54 49 4F 4E 20 46 52 4F 4D 20 54 48 45 |LECTION FROM THE|
00002700: 20 55 53 45 52 00 38 2F D1 01 3A 20 85 22 11 11 | USER.8/..: ."..|
00002710: 20 50 45 4E 20 43 4F 4C 4F 52 20 20 20 28 90 30 | PEN COLOR (.0|
00002720: 20 1F 31 20 1E 32 20 1C 33 97 29 32 9D 20 20 30 | .1 .2 .3.)2. 0|
00002730: 9D 9D 9D 22 3B 50 43 24 00 4C 2F D2 01 3A 20 50 |...";PC$.L/..: P|
00002740: 43 B2 C6 28 50 43 24 AA 22 20 22 29 00 7A 2F D3 |C..(PC$." ").z/.|
00002750: 01 3A 20 8B 20 50 43 B3 34 38 20 B0 20 50 43 B1 |.: . PC.48 . PC.|
00002760: 35 31 20 A7 20 99 20 22 91 22 3B A3 32 38 29 22 |51 . . ".";.28)"|
00002770: 20 20 91 22 20 3A 89 34 36 35 00 89 2F D4 01 3A | ." :.465../..:|
00002780: 20 50 43 B2 50 43 AB 34 38 00 AC 2F D5 01 3A 20 | PC.PC.48../..: |
00002790: 85 22 11 20 45 4E 54 45 52 20 4E 55 4D 42 45 52 |.". ENTER NUMBER|
000027A0: 20 4F 46 20 53 54 45 50 53 22 3B 4D 00 C8 2F D6 | OF STEPS";M../.|
000027B0: 01 3A 20 99 22 11 11 20 4F 4B 2E 2E 2E 22 4D 22 |.: .".. OK..."M"|
000027C0: 20 49 54 20 49 53 21 22 00 F5 2F D7 01 3A 20 98 | IT IS!"../..: .|
000027D0: 32 2C 50 43 20 20 3A 8F 20 43 48 41 4E 47 45 20 |2,PC :. CHANGE |
000027E0: 50 45 4E 20 54 4F 20 53 45 4C 45 43 54 45 44 20 |PEN TO SELECTED |
000027F0: 43 4F 4C 4F 52 00 0B 30 D8 01 3A 20 98 31 2C 22 |COLOR..0..: .1,"|
00002800: 4D 22 3B 32 34 30 2C AB 32 30 30 00 18 30 D9 01 |M";240,.200..0..|
00002810: 3A 20 98 31 2C 22 49 22 00 28 30 DA 01 3A 20 81 |: .1,"I".(0..: .|
00002820: 20 49 B2 31 20 A4 20 34 00 46 30 DB 01 3A 20 20 | I.1 . 4.F0..: |
00002830: 20 87 20 41 2C 42 3A 58 31 28 49 29 B2 41 3A 59 | . A,B:X1(I).A:Y|
00002840: 31 28 49 29 B2 42 00 50 30 DC 01 3A 20 82 20 49 |1(I).B.P0..: . I|
00002850: 00 5D 30 DD 01 3A 20 81 49 B2 31 A4 34 00 7A 30 |.]0..: .I.1.4.z0|
00002860: DE 01 3A 20 20 20 87 41 2C 42 3A 58 32 28 49 29 |..: .A,B:X2(I)|
00002870: B2 41 3A 59 32 28 49 29 B2 42 00 84 30 DF 01 3A |.A:Y2(I).B..0..:|
00002880: 20 82 20 49 00 93 30 E0 01 3A 20 81 4B B2 30 A4 | . I..0..: .K.0.|
00002890: 4D AA 31 00 A2 30 E1 01 3A 20 20 20 81 49 B2 31 |M.1..0..: .I.1|
000028A0: A4 34 00 BB 30 E2 01 3A 20 20 20 20 20 41 58 B2 |.4..0..: AX.|
000028B0: 58 32 28 49 29 AB 58 31 28 49 29 00 D4 30 E3 01 |X2(I).X1(I)..0..|
000028C0: 3A 20 20 20 20 20 41 59 B2 59 32 28 49 29 AB 59 |: AY.Y2(I).Y|
000028D0: 31 28 49 29 00 F5 30 E4 01 3A 20 20 20 20 20 58 |1(I)..0..: X|
000028E0: 58 28 49 29 B2 58 31 28 49 29 AA 4B AC 41 58 AD |X(I).X1(I).K.AX.|
000028F0: 28 4D AA 31 29 00 16 31 E5 01 3A 20 20 20 20 20 |(M.1)..1..: |
00002900: 59 59 28 49 29 B2 59 31 28 49 29 AA 4B AC 41 59 |YY(I).Y1(I).K.AY|
00002910: AD 28 4D AA 31 29 00 22 31 E6 01 3A 20 20 20 82 |.(M.1)."1..: .|
00002920: 20 49 00 31 31 E7 01 3A 20 20 20 81 4A B2 31 A4 | I.11..: .J.1.|
00002930: 34 00 5A 31 E8 01 3A 20 20 20 20 20 8B 20 4A B2 |4.Z1..: . J.|
00002940: 31 20 A7 98 31 2C 22 52 22 3B 58 58 28 4A 29 3B |1 ..1,"R";XX(J);|
00002950: 59 59 28 4A 29 3A 89 34 39 30 00 77 31 E9 01 3A |YY(J):.490.w1..:|
00002960: 20 20 20 20 20 98 31 2C 22 4A 22 3B 58 58 28 4A | .1,"J";XX(J|
00002970: 29 3B 59 59 28 4A 29 00 83 31 EA 01 3A 20 20 20 |);YY(J)..1..: |
00002980: 82 20 4A 00 9E 31 EB 01 3A 20 20 20 98 31 2C 22 |. J..1..: .1,"|
00002990: 4A 22 3B 58 58 28 31 29 3B 59 59 28 31 29 00 A8 |J";XX(1);YY(1)..|
000029A0: 31 EC 01 3A 20 82 20 4B 00 BC 31 ED 01 3A 20 98 |1..: . K..1..: .|
000029B0: 31 2C 22 4D 22 3B 30 2C AB 33 36 30 00 CB 31 EE |1,"M";0,.360..1.|
000029C0: 01 3A 20 98 34 3A 98 34 3A 98 34 00 D1 31 EF 01 |.: .4:.4:.4..1..|
000029D0: 8E 00 D7 31 F0 01 3A 00 FD 31 F1 01 83 20 31 35 |...1..:..1... 15|
000029E0: 30 2C 32 31 30 2C 31 35 30 2C 31 37 30 2C 32 30 |0,210,150,170,20|
000029F0: 30 2C 31 37 30 2C 32 30 30 2C 32 31 30 00 23 32 |0,170,200,210.#2|
00002A00: F2 01 83 20 2D 32 30 30 2C 2D 39 30 2C 2D 31 35 |... -200,-90,-15|
00002A10: 30 2C 2D 39 30 2C 2D 31 35 30 2C 30 2C 2D 32 30 |0,-90,-150,0,-20|
00002A20: 30 2C 30 00 29 32 F3 01 3A 00 37 32 F4 01 3A 20 |0,0.)2..:.72..: |
00002A30: 99 20 22 93 11 90 22 00 64 32 F5 01 3A 20 99 20 |. "...".d2..: . |
00002A40: 22 20 20 20 20 20 20 20 20 12 D5 C0 C0 C0 C0 C0 |" .......|
00002A50: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002A60: C0 C9 92 22 00 91 32 F6 01 3A 20 99 20 22 20 20 |..."..2..: . " |
00002A70: 20 20 20 20 20 20 12 DD 20 20 20 52 4F 54 41 54 | .. ROTAT|
00002A80: 49 4E 47 20 46 49 47 55 52 45 53 20 20 20 DD 92 |ING FIGURES ..|
00002A90: 22 00 BE 32 F7 01 3A 20 99 20 22 20 20 20 20 20 |"..2..: . " |
00002AA0: 20 20 20 12 DD 20 20 20 20 20 20 20 50 41 47 45 | .. PAGE|
00002AB0: 20 35 39 20 20 20 20 20 20 20 20 DD 92 22 00 EB | 59 .."..|
00002AC0: 32 F8 01 3A 20 99 20 22 20 20 20 20 20 20 20 20 |2..: . " |
00002AD0: 12 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002AE0: C0 C0 C0 C0 C0 C0 C0 C0 CB 92 22 00 18 33 F9 01 |.........."..3..|
00002AF0: 8F 20 20 47 45 54 20 50 45 4E 20 43 4F 4C 4F 52 |. GET PEN COLOR|
00002B00: 20 53 45 4C 45 43 54 49 4F 4E 20 46 52 4F 4D 20 | SELECTION FROM |
00002B10: 54 48 45 20 55 53 45 52 00 4F 33 FA 01 3A 20 85 |THE USER.O3..: .|
00002B20: 22 11 11 20 50 45 4E 20 43 4F 4C 4F 52 20 20 20 |".. PEN COLOR |
00002B30: 20 20 20 20 28 90 30 20 1F 31 20 1E 32 20 1C 33 | (.0 .1 .2 .3|
00002B40: 97 29 32 9D 20 20 30 9D 9D 9D 22 3B 50 43 24 00 |.)2. 0...";PC$.|
00002B50: 63 33 FB 01 3A 20 50 43 B2 C6 28 50 43 24 AA 22 |c3..: PC..(PC$."|
00002B60: 20 22 29 00 91 33 FC 01 3A 20 8B 20 50 43 B3 34 | ")..3..: . PC.4|
00002B70: 38 20 B0 20 50 43 B1 35 31 20 A7 20 99 20 22 91 |8 . PC.51 . . ".|
00002B80: 22 3B A3 32 38 29 22 20 20 91 22 20 3A 89 35 30 |";.28)" ." :.50|
00002B90: 36 00 A0 33 FD 01 3A 20 50 43 B2 50 43 AB 34 38 |6..3..: PC.PC.48|
00002BA0: 00 CD 33 FE 01 3A 20 98 32 2C 50 43 20 20 3A 8F |..3..: .2,PC :.|
00002BB0: 20 43 48 41 4E 47 45 20 50 45 4E 20 54 4F 20 53 | CHANGE PEN TO S|
00002BC0: 45 4C 45 43 54 45 44 20 43 4F 4C 4F 52 00 E3 33 |ELECTED COLOR..3|
00002BD0: FF 01 3A 20 98 31 2C 22 4D 22 3B 32 34 30 2C AB |..: .1,"M";240,.|
00002BE0: 32 34 30 00 F0 33 00 02 3A 20 98 31 2C 22 49 22 |240..3..: .1,"I"|
00002BF0: 00 FF 33 01 02 3A 20 54 48 B2 FF AD 31 38 30 00 |..3..: TH...180.|
00002C00: 15 34 02 02 3A 20 58 28 31 29 B2 37 30 3A 59 28 |.4..: X(1).70:Y(|
00002C10: 31 29 B2 38 30 00 2C 34 03 02 3A 20 58 28 32 29 |1).80.,4..: X(2)|
00002C20: B2 39 30 3A 59 28 32 29 B2 31 33 30 00 44 34 04 |.90:Y(2).130.D4.|
00002C30: 02 3A 20 58 28 33 29 B2 31 31 30 3A 59 28 33 29 |.: X(3).110:Y(3)|
00002C40: B2 31 33 30 00 5B 34 05 02 3A 20 58 28 34 29 B2 |.130.[4..: X(4).|
00002C50: 31 33 30 3A 59 28 34 29 B2 38 30 00 71 34 06 02 |130:Y(4).80.q4..|
00002C60: 3A 20 81 20 4A B2 30 20 A4 20 33 35 39 20 A9 31 |: . J.0 . 359 .1|
00002C70: 35 00 83 34 07 02 3A 20 20 20 81 20 49 B2 31 20 |5..4..: . I.1 |
00002C80: A4 20 34 00 AD 34 08 02 3A 20 20 20 20 20 58 58 |. 4..4..: XX|
00002C90: 28 49 29 B2 58 28 49 29 AC BE 28 4A AC 54 48 29 |(I).X(I)..(J.TH)|
00002CA0: AB 59 28 49 29 AC BF 28 4A AC 54 48 29 00 D7 34 |.Y(I)..(J.TH)..4|
00002CB0: 09 02 3A 20 20 20 20 20 59 59 28 49 29 B2 58 28 |..: YY(I).X(|
00002CC0: 49 29 AC BF 28 4A AC 54 48 29 AA 59 28 49 29 AC |I)..(J.TH).Y(I).|
00002CD0: BE 28 4A AC 54 48 29 00 00 35 0A 02 3A 20 20 20 |.(J.TH)..5..: |
00002CE0: 20 20 8B 20 49 B2 31 20 A7 98 31 2C 22 52 22 3B | . I.1 ..1,"R";|
00002CF0: 58 58 28 49 29 3B 59 59 28 49 29 3A 89 35 32 34 |XX(I);YY(I):.524|
00002D00: 00 1D 35 0B 02 3A 20 20 20 20 20 98 31 2C 22 4A |..5..: .1,"J|
00002D10: 22 3B 58 58 28 49 29 3B 59 59 28 49 29 00 29 35 |";XX(I);YY(I).)5|
00002D20: 0C 02 3A 20 20 20 82 20 49 00 44 35 0D 02 3A 20 |..: . I.D5..: |
00002D30: 20 20 98 31 2C 22 4A 22 3B 58 58 28 31 29 3B 59 | .1,"J";XX(1);Y|
00002D40: 59 28 31 29 00 4E 35 0E 02 3A 20 82 20 4A 00 62 |Y(1).N5..: . J.b|
00002D50: 35 0F 02 3A 20 98 31 2C 22 4D 22 3B 30 2C AB 34 |5..: .1,"M";0,.4|
00002D60: 30 30 00 71 35 10 02 3A 20 98 34 3A 98 34 3A 98 |00.q5..: .4:.4:.|
00002D70: 34 00 77 35 11 02 8E 00 7D 35 12 02 3A 00 8B 35 |4.w5....}5..:..5|
00002D80: 13 02 3A 20 99 20 22 93 11 90 22 00 B8 35 14 02 |..: . "..."..5..|
00002D90: 3A 20 99 20 22 20 20 20 20 20 20 20 20 12 D5 C0 |: . " ...|
00002DA0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002DB0: C0 C0 C0 C0 C0 C9 92 22 00 E5 35 15 02 3A 20 99 |......."..5..: .|
00002DC0: 20 22 20 20 20 20 20 20 20 20 12 DD 20 20 20 20 | " .. |
00002DD0: 20 42 41 52 20 47 52 41 50 48 20 23 31 20 20 20 | BAR GRAPH #1 |
00002DE0: 20 20 DD 92 22 00 12 36 16 02 3A 20 99 20 22 20 | .."..6..: . " |
00002DF0: 20 20 20 20 20 20 20 12 DD 20 20 20 20 20 20 20 | .. |
00002E00: 50 41 47 45 20 36 30 20 20 20 20 20 20 20 20 DD |PAGE 60 .|
00002E10: 92 22 00 3F 36 17 02 3A 20 99 20 22 20 20 20 20 |.".?6..: . " |
00002E20: 20 20 20 20 12 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ............|
00002E30: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB 92 22 00 |..............".|
00002E40: 4D 36 18 02 3A 20 86 41 24 28 31 32 29 00 58 36 |M6..: .A$(12).X6|
00002E50: 19 02 3A 20 8D 36 32 33 00 67 36 1A 02 3A 20 43 |..: .623.g6..: C|
00002E60: B2 31 3A 8D 36 31 39 00 7B 36 1B 02 3A 20 98 31 |.1:.619.{6..: .1|
00002E70: 2C 22 4D 22 3B 30 2C AB 32 30 30 00 84 36 1C 02 |,"M";0,.200..6..|
00002E80: 3A 20 98 34 00 96 36 1D 02 3A 20 98 31 2C 22 4D |: .4..6..: .1,"M|
00002E90: 22 3B 32 30 2C 30 00 AA 36 1E 02 3A 20 98 31 2C |";20,0..6..: .1,|
00002EA0: 22 44 22 3B 32 30 2C 32 30 30 00 B7 36 1F 02 3A |"D";20,200..6..:|
00002EB0: 20 98 31 2C 22 48 22 00 C9 36 20 02 3A 20 98 31 | .1,"H"..6 .: .1|
00002EC0: 2C 22 4D 22 3B 32 30 2C 30 00 DC 36 21 02 3A 20 |,"M";20,0..6!.: |
00002ED0: 98 31 2C 22 44 22 3B 34 38 30 2C 30 00 F3 36 22 |.1,"D";480,0..6"|
00002EE0: 02 3A 20 81 20 49 B2 32 35 20 A4 20 32 30 30 20 |.: . I.25 . 200 |
00002EF0: A9 32 35 00 07 37 23 02 3A 20 20 20 98 31 2C 22 |.25..7#.: .1,"|
00002F00: 4D 22 3B 31 35 2C 49 00 1B 37 24 02 3A 20 20 20 |M";15,I..7$.: |
00002F10: 98 31 2C 22 44 22 3B 32 30 2C 49 00 24 37 25 02 |.1,"D";20,I.$7%.|
00002F20: 3A 20 82 49 00 2A 37 26 02 3A 00 4B 37 27 02 3A |: .I.*7&.:.K7'.:|
00002F30: 20 81 20 49 B2 31 20 A4 20 4C 3A 8F 20 46 52 4F | . I.1 . L:. FRO|
00002F40: 4D 20 4C 49 4E 45 20 31 30 31 30 00 5C 37 28 02 |M LINE 1010.\7(.|
00002F50: 3A 20 20 20 43 B2 49 3A 8D 36 31 39 00 72 37 29 |: C.I:.619.r7)|
00002F60: 02 3A 20 20 20 48 B2 41 28 49 29 AC 35 3A 8D 35 |.: H.A(I).5:.5|
00002F70: 38 31 00 7B 37 2A 02 3A 20 82 49 00 81 37 2B 02 |81.{7*.: .I..7+.|
00002F80: 3A 00 91 37 2C 02 3A 20 81 20 49 B2 31 20 A4 20 |:..7,.: . I.1 . |
00002F90: 4C 00 A2 37 2D 02 3A 20 20 20 43 B2 49 3A 8D 36 |L..7-.: C.I:.6|
00002FA0: 31 39 00 B8 37 2E 02 3A 20 20 20 48 B2 41 28 49 |19..7..: H.A(I|
00002FB0: 29 AC 35 3A 8D 35 39 32 00 C1 37 2F 02 3A 20 82 |).5:.592..7/.: .|
00002FC0: 49 00 C7 37 30 02 3A 00 D4 37 31 02 3A 20 98 31 |I..70.:..71.: .1|
00002FD0: 2C 22 48 22 00 DD 37 32 02 3A 20 98 34 00 E3 37 |,"H"..72.: .4..7|
00002FE0: 33 02 3A 00 F3 37 34 02 3A 20 81 20 49 B2 31 20 |3.:..74.: . I.1 |
00002FF0: A4 20 4C 00 08 38 35 02 3A 20 20 20 43 B2 49 3A |. L..85.: C.I:|
00003000: 53 B2 31 3A 8D 36 31 39 00 26 38 36 02 3A 20 20 |S.1:.619.&86.: |
00003010: 20 58 B2 30 3A 59 B2 30 3A 42 24 B2 41 24 28 49 | X.0:Y.0:B$.A$(I|
00003020: 29 3A 8D 36 30 35 00 2F 38 37 02 3A 20 82 49 00 |):.605./87.: .I.|
00003030: 35 38 38 02 3A 00 41 38 39 02 3A 20 41 24 B2 54 |588.:.A89.: A$.T|
00003040: 24 00 54 38 3A 02 3A 20 43 B2 33 3A 53 B2 32 3A |$.T8:.: C.3:S.2:|
00003050: 8D 36 31 39 00 6A 38 3B 02 3A 20 58 B2 33 30 3A |.619.j8;.: X.30:|
00003060: 59 B2 32 32 30 3A 8D 36 31 34 00 76 38 3C 02 3A |Y.220:.614.v8<.:|
00003070: 20 41 24 B2 53 24 00 89 38 3D 02 3A 20 43 B2 32 | A$.S$..8=.: C.2|
00003080: 3A 53 B2 31 3A 8D 36 31 39 00 A0 38 3E 02 3A 20 |:S.1:.619..8>.: |
00003090: 58 B2 32 30 30 3A 59 B2 32 30 30 3A 8D 36 31 34 |X.200:Y.200:.614|
000030A0: 00 A6 38 3F 02 3A 00 BC 38 40 02 3A 20 98 31 2C |..8?.:..8@.: .1,|
000030B0: 22 48 22 3A 98 34 3A 98 34 3A 98 34 00 CB 38 41 |"H":.4:.4:.4..8A|
000030C0: 02 3A 20 98 34 3A 98 34 3A 98 34 00 D6 38 42 02 |.: .4:.4:.4..8B.|
000030D0: 3A 20 8D 36 33 36 00 E1 38 43 02 3A 20 89 31 30 |: .636..8C.: .10|
000030E0: 31 00 E7 38 44 02 3A 00 FA 38 45 02 8F 3D 3D 57 |1..8D.:..8E..==W|
000030F0: 52 49 54 45 20 42 4F 58 3D 3D 00 0F 39 46 02 3A |RITE BOX==..9F.:|
00003100: 20 A0 31 35 3A 20 9F 31 35 2C 4F 44 2C 31 35 00 | .15: .15,OD,15.|
00003110: 2D 39 47 02 3A 20 58 28 49 29 B2 28 49 AB 31 29 |-9G.: X(I).(I.1)|
00003120: AC 33 36 AC 32 AA 33 36 3A 57 B2 33 36 00 52 39 |.36.2.36:W.36.R9|
00003130: 48 02 3A 20 99 22 11 20 50 52 49 4E 54 49 4E 47 |H.: .". PRINTING|
00003140: 20 42 41 52 20 43 48 41 52 54 20 4E 4F 57 2E 2E | BAR CHART NOW..|
00003150: 2E 22 00 66 39 49 02 3A 20 98 31 2C 22 4D 22 3B |.".f9I.: .1,"M";|
00003160: 58 28 49 29 2C 30 00 7A 39 4A 02 3A 20 98 31 2C |X(I),0.z9J.: .1,|
00003170: 22 44 22 3B 58 28 49 29 2C 48 00 80 39 4B 02 8E |"D";X(I),H..9K..|
00003180: 00 96 39 4C 02 3A 20 98 31 2C 22 44 22 3B 58 28 |..9L.: .1,"D";X(|
00003190: 49 29 AA 57 2C 48 00 AC 39 4D 02 3A 20 98 31 2C |I).W,H..9M.: .1,|
000031A0: 22 44 22 3B 58 28 49 29 AA 57 2C 30 00 B2 39 4E |"D";X(I).W,0..9N|
000031B0: 02 8E 00 B8 39 4F 02 3A 00 CA 39 50 02 8F 3D 3D |....9O.:..9P..==|
000031C0: 46 49 4C 4C 20 42 4F 58 3D 3D 00 E8 39 51 02 3A |FILL BOX==..9Q.:|
000031D0: 20 58 28 49 29 B2 28 49 AB 31 29 AC 33 36 AC 32 | X(I).(I.1).36.2|
000031E0: AA 33 36 3A 57 B2 33 36 00 FC 39 52 02 3A 20 98 |.36:W.36..9R.: .|
000031F0: 31 2C 22 4D 22 3B 58 28 49 29 2C 30 00 0F 3A 53 |1,"M";X(I),0..:S|
00003200: 02 3A 20 81 20 4A B2 30 20 A4 20 48 20 A9 32 00 |.: . J.0 . H .2.|
00003210: 27 3A 54 02 3A 20 20 20 98 31 2C 22 44 22 3B 58 |':T.: .1,"D";X|
00003220: 28 49 29 AA 57 2C 4A 00 41 3A 55 02 3A 20 20 20 |(I).W,J.A:U.: |
00003230: 98 31 2C 22 44 22 3B 58 28 49 29 AA 57 2C 4A AA |.1,"D";X(I).W,J.|
00003240: 31 00 58 3A 56 02 3A 20 20 20 8B 20 4A AA 31 20 |1.X:V.: . J.1 |
00003250: B1 B2 48 20 A7 36 30 32 00 70 3A 57 02 3A 20 20 |..H .602.p:W.: |
00003260: 20 98 31 2C 22 44 22 3B 58 28 49 29 2C 4A AA 31 | .1,"D";X(I),J.1|
00003270: 00 88 3A 58 02 3A 20 20 20 98 31 2C 22 44 22 3B |..:X.: .1,"D";|
00003280: 58 28 49 29 2C 4A AA 32 00 92 3A 59 02 3A 20 82 |X(I),J.2..:Y.: .|
00003290: 20 4A 00 98 3A 5A 02 8E 00 9E 3A 5B 02 3A 00 B3 | J..:Z....:[.:..|
000032A0: 3A 5C 02 8F 3D 3D 43 48 41 52 41 43 54 45 52 20 |:\..==CHARACTER |
000032B0: 59 3D 3D 00 C7 3A 5D 02 3A 20 98 31 2C 22 4D 22 |Y==..:].: .1,"M"|
000032C0: 3B 58 2C 59 3A 98 34 00 D9 3A 5E 02 3A 20 53 53 |;X,Y:.4..:^.: SS|
000032D0: B2 28 32 AE 53 29 AC 31 30 00 ED 3A 5F 02 3A 20 |.(2.S).10..:_.: |
000032E0: 81 20 4D B2 31 20 A4 20 C3 28 42 24 29 00 08 3B |. M.1 . .(B$)..;|
000032F0: 60 02 3A 20 20 20 98 31 2C 22 4D 22 3B 58 28 49 |`.: .1,"M";X(I|
00003300: 29 AA 39 2C 53 53 AD 35 00 1D 3B 61 02 3A 20 20 |).9,SS.5..;a.: |
00003310: 20 98 34 2C CA 28 42 24 2C 4D 2C 31 29 00 27 3B | .4,.(B$,M,1).';|
00003320: 62 02 3A 20 82 20 4D 00 4D 3B 63 02 3A 20 98 31 |b.: . M.M;c.: .1|
00003330: 2C 22 4D 22 3B 30 2C 53 53 AC 34 AD 35 AC C3 28 |,"M";0,SS.4.5..(|
00003340: 42 24 29 AA 53 53 AC 32 AA 59 3A 98 34 00 53 3B |B$).SS.2.Y:.4.S;|
00003350: 64 02 8E 00 59 3B 65 02 3A 00 6E 3B 66 02 8F 3D |d...Y;e.:.n;f..=|
00003360: 3D 43 48 41 52 41 43 54 45 52 20 58 3D 3D 00 7F |=CHARACTER X==..|
00003370: 3B 67 02 3A 20 98 31 2C 22 4D 22 3B 58 2C 59 00 |;g.: .1,"M";X,Y.|
00003380: 8B 3B 68 02 3A 20 98 34 2C 41 24 00 A7 3B 69 02 |.;h.: .4,A$..;i.|
00003390: 3A 20 98 31 2C 22 4D 22 3B 58 2C AB 59 AA 34 30 |: .1,"M";X,.Y.40|
000033A0: AC 53 3A 98 34 3A 8E 00 AD 3B 6A 02 3A 00 C2 3B |.S:.4:...;j.:..;|
000033B0: 6B 02 8F 3D 3D 43 4F 4C 4F 52 2C 20 53 49 5A 45 |k..==COLOR, SIZE|
000033C0: 3D 3D 00 D4 3B 6C 02 3A 20 98 32 2C 43 3A 98 33 |==..;l.: .2,C:.3|
000033D0: 2C 53 3A 8E 00 DA 3B 6D 02 8E 00 E0 3B 6E 02 3A |,S:...;m....;n.:|
000033E0: 00 06 3C 6F 02 3A 20 85 20 22 11 20 45 4E 54 45 |..<o.: . ". ENTE|
000033F0: 52 20 59 4F 55 52 20 4D 41 49 4E 20 54 49 54 4C |R YOUR MAIN TITL|
00003400: 45 3A 22 3B 54 24 00 28 3C 70 02 3A 20 85 22 20 |E:";T$.(<p.: ." |
00003410: 45 4E 54 45 52 20 41 4E 59 20 53 55 42 2D 54 49 |ENTER ANY SUB-TI|
00003420: 54 4C 45 3A 22 3B 53 24 00 50 3C 71 02 3A 20 85 |TLE:";S$.P<q.: .|
00003430: 22 20 45 4E 54 45 52 20 4E 55 4D 42 45 52 20 4F |" ENTER NUMBER O|
00003440: 46 20 42 41 52 53 20 28 31 2D 36 29 3A 22 3B 4C |F BARS (1-6):";L|
00003450: 00 68 3C 72 02 3A 20 8B 20 4C B3 31 20 B0 20 4C |.h<r.: . L.1 . L|
00003460: B1 36 20 A7 89 36 32 35 00 78 3C 73 02 3A 20 81 |.6 ..625.x<s.: .|
00003470: 20 49 B2 31 20 A4 20 4C 00 94 3C 74 02 3A 20 20 | I.1 . L..<t.: |
00003480: 20 99 22 20 20 20 20 44 41 54 41 20 50 4F 49 4E | ." DATA POIN|
00003490: 54 22 3B 49 00 C5 3C 75 02 3A 20 20 20 85 22 20 |T";I..<u.: ." |
000034A0: 45 4E 54 45 52 20 4E 41 4D 45 20 4F 46 20 42 41 |ENTER NAME OF BA|
000034B0: 52 20 28 31 2D 36 20 43 48 41 52 53 29 3A 22 3B |R (1-6 CHARS):";|
000034C0: 41 24 28 49 29 00 E2 3C 76 02 3A 20 20 20 8B 20 |A$(I)..<v.: . |
000034D0: C3 28 41 24 28 49 29 29 20 B1 20 36 20 A7 89 36 |.(A$(I)) . 6 ..6|
000034E0: 32 39 00 0A 3D 77 02 3A 20 20 20 85 22 20 45 4E |29..=w.: ." EN|
000034F0: 54 45 52 20 42 41 52 20 53 49 5A 45 20 28 30 2D |TER BAR SIZE (0-|
00003500: 34 30 29 3A 22 3B 41 28 49 29 00 2E 3D 78 02 3A |40):";A(I)..=x.:|
00003510: 20 20 20 8B 20 41 28 49 29 20 B3 20 30 20 B0 20 | . A(I) . 0 . |
00003520: 41 28 49 29 20 B1 20 34 30 20 A7 36 33 31 00 38 |A(I) . 40 .631.8|
00003530: 3D 79 02 3A 20 82 20 49 00 3E 3D 7A 02 8E 00 44 |=y.: . I.>=z...D|
00003540: 3D 7B 02 3A 00 4F 3D 7C 02 3A 20 98 32 2C 32 00 |={.:.O=|.: .2,2.|
00003550: 6A 3D 7D 02 3A 20 98 34 2C 22 44 41 54 41 20 50 |j=}.: .4,"DATA P|
00003560: 4F 49 4E 54 53 2E 2E 2E 2E 22 00 7A 3D 7E 02 3A |OINTS....".z=~.:|
00003570: 20 81 20 49 B2 31 20 A4 20 4C 00 90 3D 7F 02 3A | . I.1 . L..=..:|
00003580: 20 20 20 98 34 2C 41 24 28 49 29 2C 41 28 49 29 | .4,A$(I),A(I)|
00003590: 00 99 3D 80 02 3A 20 82 49 00 A9 3D 81 02 3A 20 |..=..: .I..=..: |
000035A0: 81 20 49 B2 30 20 A4 20 36 00 B4 3D 82 02 3A 20 |. I.0 . 6..=..: |
000035B0: 20 20 98 34 00 BD 3D 83 02 3A 20 82 49 00 C3 3D | .4..=..: .I..=|
000035C0: 84 02 8E 00 C9 3D 85 02 3A 00 DC 3D 86 02 8F 20 |.....=..:..=... |
000035D0: 20 43 4C 4F 53 45 20 46 49 4C 45 53 00 E6 3D 87 | CLOSE FILES..=.|
000035E0: 02 3A 20 A0 20 31 00 F0 3D 88 02 3A 20 A0 20 32 |.: . 1..=..: . 2|
000035F0: 00 FA 3D 89 02 3A 20 A0 20 33 00 04 3E 8A 02 3A |..=..: . 3..>..:|
00003600: 20 A0 20 34 00 0F 3E 8B 02 3A 20 99 22 93 22 00 | . 4..>..: .".".|
00003610: 15 3E 8C 02 80 00 1B 3E 8D 02 3A 00 38 3E 8E 02 |.>.....>..:.8>..|
00003620: 8F 20 20 53 4F 55 4E 44 20 42 45 4C 4C 20 53 55 |. SOUND BELL SU|
00003630: 42 52 4F 55 54 49 4E 45 00 6E 3E 8F 02 3A 20 97 |BROUTINE.n>..: .|
00003640: 20 53 44 AA 32 34 2C 31 35 20 20 3A 8F 20 56 4F | SD.24,15 :. VO|
00003650: 49 43 45 20 31 20 56 4F 4C 55 4D 45 20 41 4E 44 |ICE 1 VOLUME AND|
00003660: 20 46 49 4C 54 45 52 20 53 45 4C 45 43 54 00 A0 | FILTER SELECT..|
00003670: 3E 90 02 3A 20 97 20 53 44 AA 34 2C 31 37 20 20 |>..: . SD.4,17 |
00003680: 3A 8F 20 56 4F 49 43 45 20 31 20 43 4F 4E 54 52 |:. VOICE 1 CONTR|
00003690: 4F 4C 2C 20 53 54 41 52 54 20 41 54 54 41 43 4B |OL, START ATTACK|
000036A0: 00 D3 3E 91 02 3A 20 97 20 53 44 AA 34 2C 31 36 |..>..: . SD.4,16|
000036B0: 20 20 3A 8F 20 56 4F 49 43 45 20 31 20 43 4F 4E | :. VOICE 1 CON|
000036C0: 54 52 4F 4C 2C 20 53 54 41 52 54 20 52 45 4C 45 |TROL, START RELE|
000036D0: 41 53 45 00 DF 3E 92 02 3A 20 54 42 B2 54 49 00 |ASE..>..: TB.TI.|
000036E0: F7 3E 93 02 3A 20 8B 20 28 54 49 AB 54 42 29 B3 |.>..: . (TI.TB).|
000036F0: 36 30 20 A7 36 35 39 00 29 3F 94 02 3A 20 97 20 |60 .659.)?..: . |
00003700: 53 44 AA 32 34 2C 30 20 20 3A 8F 20 56 4F 49 43 |SD.24,0 :. VOIC|
00003710: 45 20 31 20 43 4F 4E 54 52 4F 4C 2C 20 43 4C 45 |E 1 CONTROL, CLE|
00003720: 41 52 20 56 4F 4C 55 4D 45 00 31 3F 95 02 3A 20 |AR VOLUME.1?..: |
00003730: 8E 00 37 3F 96 02 3A 00 62 3F 97 02 8F 20 20 53 |..7?..:.b?... S|
00003740: 45 54 20 55 50 20 53 49 44 20 52 45 47 49 53 54 |ET UP SID REGIST|
00003750: 45 52 53 20 46 4F 52 20 42 45 4C 4C 20 53 4F 55 |ERS FOR BELL SOU|
00003760: 4E 44 00 8E 3F 98 02 3A 20 53 44 B2 35 34 32 37 |ND..?..: SD.5427|
00003770: 32 20 20 20 20 20 20 20 3A 8F 20 41 44 44 52 45 |2 :. ADDRE|
00003780: 53 53 20 4F 46 20 53 49 44 20 43 48 49 50 00 BF |SS OF SID CHIP..|
00003790: 3F 99 02 3A 20 97 20 53 44 2C 20 20 31 30 30 20 |?..: . SD, 100 |
000037A0: 20 3A 8F 20 56 4F 49 43 45 20 31 20 46 52 45 51 | :. VOICE 1 FREQ|
000037B0: 55 45 4E 43 59 2C 20 4C 4F 57 20 42 59 54 45 00 |UENCY, LOW BYTE.|
000037C0: F1 3F 9A 02 3A 20 97 20 53 44 AA 20 31 2C 35 36 |.?..: . SD. 1,56|
000037D0: 20 20 3A 8F 20 56 4F 49 43 45 20 31 20 46 52 45 | :. VOICE 1 FRE|
000037E0: 51 55 45 4E 43 59 2C 20 48 49 47 48 20 42 59 54 |QUENCY, HIGH BYT|
000037F0: 45 00 1B 40 9B 02 3A 20 97 20 53 44 AA 20 35 2C |E..@..: . SD. 5,|
00003800: 20 38 20 20 3A 8F 20 56 4F 49 43 45 20 31 20 41 | 8 :. VOICE 1 A|
00003810: 54 54 41 43 4B 2F 44 45 43 41 59 00 4D 40 9C 02 |TTACK/DECAY.M@..|
00003820: 3A 20 97 20 53 44 AA 20 36 2C 28 39 AC 31 36 AA |: . SD. 6,(9.16.|
00003830: 31 30 29 3A 8F 20 56 4F 49 43 45 20 31 20 53 55 |10):. VOICE 1 SU|
00003840: 53 54 41 49 4E 2F 52 45 4C 45 41 53 45 00 55 40 |STAIN/RELEASE.U@|
00003850: 9D 02 3A 20 8E 00 00 00 |..: .... |
....D.. SET UP SOUND REGISTERS.<.E.: .6
55: . SOUND ROUTINE.B.F.:.^.G.. SET UP
SCREEN COLORS...H.: . 53280,12 :. BORD
ER MEDIUM GRAY...I.: . 53281,15 :. BACK
GROUND LIGHT GRAY.U.J.: . 646,11 :. T
EXT DARK GRAY...K.:...L.. TEST IF PLOTT
ER PRESENT.5.M.: . "..............."
:. POSITION CURSOR.V.N.: SC$.
".." :. RED
REVERSE VIDEO...O.: . 4,6,0
:. OPEN ASCII PORT...P.:
4 :. CL
OSE PORT, ST=0 IF PRESENT.$.Q.: . ST.0 .
128:. GO OPEN PRINTER PORTS.\.R.: . BL.
0 . BL.1: .664:. SOUND BELL, ONCE IS EN
OUGH...S.: . "......"
:. CURSOR UP TO OVERLAY.C.T.: . .8)
;"U......................I"...U.: . .8);
".";SC$;" ...".#.V.
: . .8);".";SC$;" MAKE PLOTTER READY .
..".S.W.: . .8);".";SC$;"
...".Z.X.: . .8);"J..............
........K"...Y.: . SC$.".." . SC$.".": .
123:. ALTERNATE BETWEEN INVISIBLE...Z.:
. SC$."." . SC$.".." :.
(LIGHT GRAY) AND RED REVERSE.D.{.: GT.TI
:. SAVE
TIMER VALUE.Q.|.: . TI.GT.60 .124:. LO
OP FOR 60 JIFFIES...}.: .111:. GO RETRY
PLOTTER...~.:..... PLOTTER IS PRESENT
, OPEN THE PORTS.....: . 1,6,1 :. PLOTT
ING PORT.....: . 2,6,2 :. PEN COLOR SEL
ECT PORT.....: . 3,6,3 :. CHARACTER SIZ
E PORT.K...: . 4,6,0 :. ASCII PORT.Q...
:.X.... CLEAR SCREEN AND PRESENT BANNER
.....: . ".. ....................
.........".Y...: . " .. 1520 PRI
NTER PLOTTER ..".....: . " .. U
SERS'S MANUAL DEMOS ..".7...: . "
.. FROM ..".F...: .
" .. 'THE PLOTTING SHED' .."..
...: . " ........................
.....".....:.K...: .". .A. - CONCENTR
IC CIRCLES P. 46".....: ." .B. - CO
NCENTRIC SQUARES P. 47".'...: ." .C
. - ROTATING TRIANGLES P. 48".U...: ."
.D. - CONE FROM CIRCLES P. 49"...
..: ." .E. - CIRCLE FROM CIRCLES P.
50".....: ." .F. - ROTATING ELLIPSES
P. 51".....: ." .G. - ARCHIMEDIAN
SPIRAL P. 52".....: ." .H. - GEOMET
RIC DESIGN P. 53".;...: ." .I. -
CHECKER BOARD P. 54".I...: ."
.J. - CROSS HATCHING P. 56".....:
." .K. - CHANGING FORMS P. 57".
E...: ." .L. - ROTATING FIGURES P
. 59".....: ." .M. - BAR CHART #1
P. 60".....: ." .Q.UIT".'...: ."
. SELECTION: Q...";A$.-...:.@...: .A$.
"A"..174.S...: .A$."B"..198.F...: .A$."C
"..222.Y. .: .A$."D"..246.....: .A$."E".
.271.....: .A$."F"..299.....: .A$."G"..3
27.E...: .A$."H"..351.X...: .A$."I"..381
.....: .A$."J"..418.....: .A$."K"..459..
...: .A$."L"..500.$...: .A$."M"..531.8..
.: .A$."Q". .646.C...: .134.I...:.P....
CLEAR SCREEN AND PRESENT BANNER.~...: .
"...".....: . " .U..............
........I.".X...: . " .. CONCENT
RIC CIRCLES ..".....: . " ..
PAGE 46 ..".2...: . " .
J......................K.".<...: C.0.R..
.: .1,"M";240,.240._...: .1,"I".V...: .
L.30 . 180 .30.....: C.C.1:. C..4 . C.
0.....: .2,C.....: . Z.1 . 15.K...:
. I.0 . 360 .10.....: X.(Z.L).
.(I...180).....: Y.(Z.L)..(I...180
).,...: . I.0 ..1,"R";X,Y:.191.C..
.: .1,"J";X,Y.Q...: . I.]...:
. Z.G.A.: . L.{.B.: .1,"R";0,.240...C.
: .4:.4:.4...D.....E.:...F.: . "...".Q.G
.: . " .U......................I.
"...H.: . " .. CONCENTRIC SQUARE
S ..".+.I.: . " .. PAGE 47
..".X.J.: . " .J.........
.............K.".N.K.: .1,"M";240,.240.{
.L.: .1,"I"...M.: . I.0 . 90 .10...N.:
C.C.1:. C..4 . C.0...O.: .2,C.K.P.:
. J.1 . 11...Q.: X.I.J...R.: Y.
I.J...S.: .1,"R";X;.Y...T.: .1,"
J";X,Y.,.U.: .1,"J";.X;Y.C.V.: .
1,"J";.X;.Y.Y.W.: .1,"J";X;.Y.E.X.:
. J.O.Y.: . I.~.Z.: .4:.4:.4.....: .1,
"R";0,.200...........:.....: . "...".Y..
.: . " .U......................I.
".....: . " .. ROTATING TRIANGLE
S ..".3...: . " .. PAGE 48
..".`...: . " .J.........
.............K.".J...: C.4.....: .1,"M";
240,.200.....: .1,"I".....: N.3:L.160...
..: . A.0 . 360.N .10.Q...: C.C.1:. C
..4 . C.0.....: .2,C.....: TH.A...18
0.....: . I.0 . N.....: X.L..(TH.I
.2...N).;...: Y.L..(TH.I.2...N).\...
: . I.0 ..1,"R";X,Y:.240.Q...: .
1,"J";X,Y.}...: . I.....: . A.....: .1
,"R";0,.200.....: .4:.4:.4...........:.D
...: . "...".....: . " .U........
..............I.".....: . " .. C
ONE FROM CIRCLES ..".K...: . "
.. PAGE 49 ..".X...: . "
.J......................K."......
GET PEN COLOR SELECTION FROM THE USER...
..: .".. PEN COLOR (.0 .1 .2 .3.)2
. 0...";PC$.....: PC.F(PC$." ").....: .
PC.48 . PC.51 . . ".";.28)" ." :.252.-
...: PC.PC.48.C...: .1,"M";240,.200.P...
: .1,"I".E...: . L.5 . 150 .5.S...: .2
,PC.....: . I.0 . 360 .10.....: X.
L..(I...180).J...: D.L.2:Y..240.D.L.
.(I...180).....: . I.0 ..1,"R";X,Y:.
265.....: .1,"J";X,Y.....: . I....
.: . L.*...: .1,"R";0,.300.9...: .4:.4:.
4.?.....E...:.S...: . "...".....: . "
.U......................I.".....: .
" .. CIRCLE FROM CIRCLES ..".Z.
..: . " .. PAGE 50 .
.".....: . " .J..................
....K.".....: .1,"M";240,.200.*...: .1,"
I".W.... GET PEN COLOR SELECTION FROM T
HE USER.....: .".. PEN COLOR (
.0 .1 .2 .3.)2. 0...";PC$.....: PC.F(PC
$." ").T...: . PC.48 . PC.51 . . ".";.28
)" ." :.279.....: PC.PC.48.....: .2,PC
:. CHANGE PEN TO SELECTED COLOR.<...: .
" ENTER SIZE OF CIRCLES (12-80):";PT.W..
.: . PT.12 . PT.80 .284.G...: L.PT:R.80.
}...: . J.0 . 360 .15... .: . I.0 . 36
0 .10...!.: X.R..(J...180).L..(I...1
80)...".: Y.R..(J...180).L..(I...180
)...#.: . I.0 ..1,"R",;X,Y:.293...$.
: .1,"J";X,Y.$.%.: . I...&.: . J.B
.'.: .1,"R",0,.100.R.(.: .4:.4:.4:.X.)..
.^.*.:.L.+.: . "..."...,.: . " .U
......................I.".F.-.: . "
.. ROTATING ELLIPSES ..".....: . "
.. PAGE 51 ..". ./.
: . " .J......................K."
.M.0.. GET PEN COLOR SELECTION FROM THE
USER...1.: .".. PEN COLOR (.0 .1
.2 .3.)2. 0...";PC$...2.: PC.F(PC$." ")
.F.3.: . PC.48 . PC.51 . . ".";.28)" ."
:.305.U.4.: PC.PC.48.. 5.: .2,PC :. CH
ANGE PEN TO SELECTED COLOR.. 6.: .1,"M";
240,.200.% 7.: .1,"I".? 8.: A.180:B.60:T
H...180.U 9.: . J.0 . 180 .15.M :.: .
I.0 . 360 .15.. ;.: R.A..(I.TH).. <.
: L.B..(I.TH).. =.: X.R..(J.TH).
L..(J.TH).Y >.: Y.R..(J.TH).L..(J.TH
).. ?.: . I.0 ..1,"R";X,Y:.321..!@.:
.1,"J";X,Y..!A.: . I.%!B.: . J.9!
C.: .1,"R";0,.200.H!D.: .4:.4:.4.N!E...T
!F.:.B!G.: . "..."..!H.: . " .U..
....................I."..!I.: . "
.. ARCHIMEDIAN SPIRAL .."..!J.: . "
.. PAGE 52 ..".."K.:
. " .J......................K.".C
"L.. GET PEN COLOR SELECTION FROM THE U
SER.Z"M.: .".. PEN COLOR (.0 .1 .2
.3.)2. 0...";PC$.."N.: PC.F(PC$." ")..
"O.: . PC.48 . PC.51 . . ".";.28)" ." :
.333.K"P.: PC.PC.48.."Q.: .2,PC :. CHAN
GE PEN TO SELECTED COLOR..#R.: .1,"M";24
0,.200..#S.: .1,"I".)#T.: P.9:A.4.C#U.:
. TH.0 . A.2.....24.X#V.: X.P.TH..(TH)
.M#W.: Y.P.TH..(TH)..#X.: . TH.0 ..1
,"R";X,Y:.346. #Y.: .1,"J";X,Y..#Z.: .
TH..#[.: .1,"R";0,.240.N#\.: .4:.4:.4.T
#]...Z#^.:..#_.: . "..."..$`.: . "
.U......................I.".B$A.: . "
.. GEOMETRIC DESIGN ..".O$B.:
. " .. PAGE 53 ..".
.$C.: . " .J.....................
.K.".I$D.. GET PEN COLOR SELECTION FROM
THE USER..%E.: .".. PEN COLOR (.0
.1 .2 .3.)2. 0...";PC$..%F.: PC.F(PC$.
" ").B%G.: . PC.48 . PC.51 . . ".";.28)"
." :.357.Q%H.: PC.PC.48.~%I.: .2,PC :
. CHANGE PEN TO SELECTED COLOR..%J.: .1,
"M";000,.260..%K.: .4.J%L.: ."..ENTER NU
MBER OF POINTS (3-32):";PT..%M.: . PT.3
. PT.32 .364..%N.: N.PT:L.160..&O.: . J.
0 . N.1..&P.: . I.0 .J.1.8&Q.: X1.
240.L..(2.N.J..).V&R.: Y1.100.L..(2.
N.J..).T&S.: X2.240.L..(2.N.I..)..&T
.: Y2.100.L..(2.N.I..)..&U.: .1,
"M";X1,Y1..&V.: .1,"D";X2,Y2.L&W.:
. I.V&X.: . J..&Y.: .1,"M";0,.100..&Z.:
.4:.4:.4..&{....'|.:..'}.: . "...".@'~.
: . " .U......................I."
.M'.: . " .. CHECKER BOARD
.."..'..: . " .. PAGE 54
..".G'..: . " .J..........
............K."..'... GET PEN COLOR SEL
ECTION FROM THE USER.+(..: .".. PEN COLO
R (.0 .1 .2 .3.)2. 0...";PC$.?(..
: PC.F(PC$." ").M(..: . PC.48 . PC.51 .
. ".";.28)" ." :.387.|(..: PC.PC.48..(.
.: .2,PC :. CHANGE PEN TO SELECTED COLO
R..(..: .1,"M"; 60,.360.L(..: .1,"I".X(.
.: B.360..(..: . R.0 . 8..(..: D.B.8..
)..: .1,"R";0;D.R. )..: .1,"J";B;D.R
.))..: .R.9)..: . C.0 . 8.G)..: W.B.8.
\)..: .1,"R";W.C;0.Q)..: .1,"J";W.C;
B.Z)..: .C..)..: . J.0 . 7..)..: A.J.2
..(J.2)..)..: . I.A . 7 .2.H)..: .
V.0 . D..)..: .1,"R";I.W;J.D.V..*
..: .1,"J";(I.1).W;J.D.V..*..:
. V. *..: . I.**..: . J.7*..: .1,"H".
F*..: .4:.4:.4.L* ...R*..:.`*..: . "..."
..*..: . " .U....................
..I."..*..: . " .. CROSS HATCH
ING .."..*..: . " .. PAG
E 56 .."..+..: . " .J.....
.................K.".A+... GET PEN COLO
R SELECTION FROM THE USER.X+..: .".. PEN
COLOR (.0 .1 .2 .3.)2. 0...";PC$
..+..: PC.F(PC$." ")..+..: . PC.48 . PC.
51 . . ".";.28)" ." :.424.I+..: PC.PC.4
8..+..: .2,PC :. CHANGE PEN TO SELECTED
COLOR..,..: X.0:. D.2 . 15 .2.+,..: .
1,"M";X,.100:X.X.60.:,..: .1,"I".M,..:
A.50:B.100.`,..: .1,"J";0;B.S,..:
.1,"J";A;B..,..: .1,"J";A;0..,..: .
1,"J";0;0..,..: P1..B:Q1.B:P2.0:Q2.A.B
.E,..: .451..,..: . Q2.D . .D:.447..,.
.: .1,"R";X1;Y1..-..: .1,"R";X1;Y2..-..:
.451. -..: .1,"R";X2;Y2.3-..: .1,"J";X1
;Y1.>-..: .438.R-..: .1,"M";0;.120.A-..:
.4:.4:.4.G-....M-A.:.~-B.. SUBROUTINE..
-C.: P1.P1.D:Q1.Q1.D..-D.: . Q1.0 . Y1.0
:X1.P1:.454.D-E.: Y1.Q1:X1.0.Z-F.: P2.P2
.D:Q2.Q2.D..-G.: . P2.A . X2.A:Y2.Q2:.45
7...H.: X2.P2:Y2.B...I.....J.:.$.K.: . "
...".Q.L.: . " .U................
......I.".~.M.: . " .. CHANGIN
G FORMS .."...N.: . " ..
PAGE 57 ..".X.O.: . " .J.
.....................K."../P.. GET PEN
COLOR SELECTION FROM THE USER.8/Q.: ."..
PEN COLOR (.0 .1 .2 .3.)2. 0...";PC$
.L/R.: PC.F(PC$." ").Z/S.: . PC.48 . PC.
51 . . ".";.28)" ." :.465../T.: PC.PC.4
8../U.: .". ENTER NUMBER OF STEPS";M.H/V
.: .".. OK..."M" IT IS!"../W.: .2,PC :.
CHANGE PEN TO SELECTED COLOR..0X.: .1,"
M";240,.200..0Y.: .1,"I".(0Z.: . I.1 . 4
.F0..: . A,B:X1(I).A:Y1(I).B.P0..: . I
.]0..: .I.1.4.Z0..: .A,B:X2(I).A:Y2(I)
.B..0..: . I..0..: .K.0.M.1..0..: .I.1
.4..0..: AX.X2(I).X1(I).T0..: AY
.Y2(I).Y1(I)..0..: XX(I).X1(I).K.AX.
(M.1)..1..: YY(I).Y1(I).K.AY.(M.1)."
1..: . I.11..: .J.1.4.Z1..: . J.
1 ..1,"R";XX(J);YY(J):.490.W1..: .1,
"J";XX(J);YY(J)..1..: . J..1..: .1,"
J";XX(1);YY(1)..1..: . K..1..: .1,"M";0,
.360.K1..: .4:.4:.4.Q1....W1..:..1... 15
0,210,150,170,200,170,200,210.#2... -200
,-90,-150,-90,-150,0,-200,0.)2..:.72..:
. "...".D2..: . " .U.............
.........I."..2..: . " .. ROTAT
ING FIGURES .."..2..: . " ..
PAGE 59 .."..2..: . "
.J......................K."..3... GET P
EN COLOR SELECTION FROM THE USER.O3..: .
".. PEN COLOR (.0 .1 .2 .3.)2. 0.
..";PC$.C3..: PC.F(PC$." ")..3..: . PC.4
8 . PC.51 . . ".";.28)" ." :.506. 3..:
PC.PC.48.M3..: .2,PC :. CHANGE PEN TO S
ELECTED COLOR..3..: .1,"M";240,.240..3..
: .1,"I"..3..: TH...180..4..: X(1).70:Y(
1).80.,4..: X(2).90:Y(2).130.D4..: X(3).
110:Y(3).130.[4..: X(4).130:Y(4).80.Q4..
: . J.0 . 359 .15..4..: . I.1 . 4..4..
: XX(I).X(I)..(J.TH).Y(I)..(J.TH).W4
..: YY(I).X(I)..(J.TH).Y(I)..(J.TH).
.5..: . I.1 ..1,"R";XX(I);YY(I):.524
..5..: .1,"J";XX(I);YY(I).)5..: .
I.D5..: .1,"J";XX(1);YY(1).N5..: . J.B
5..: .1,"M";0,.400.Q5..: .4:.4:.4.W5....
}5..:..5..: . "..."..5..: . " .U.
.....................I."..5..: . "
.. BAR GRAPH #1 .."..6..: . "
.. PAGE 60 ..".?6..:
. " .J......................K.".
M6..: .A$(12).X6..: .623.G6..: C.1:.619.
{6..: .1,"M";0,.200..6..: .4..6..: .1,"M
";20,0..6..: .1,"D";20,200..6..: .1,"H".
I6 .: .1,"M";20,0..6!.: .1,"D";480,0..6"
.: . I.25 . 200 .25..7#.: .1,"M";15,I.
.7$.: .1,"D";20,I.$7%.: .I.*7&.:.K7'.:
. I.1 . L:. FROM LINE 1010.\7(.: C.I:
.619.R7).: H.A(I).5:.581.{7*.: .I..7+.
:..7,.: . I.1 . L..7-.: C.I:.619..7..:
H.A(I).5:.592.A7/.: .I.G70.:.T71.: .1
,"H"..72.: .4..73.:..74.: . I.1 . L..85.
: C.I:S.1:.619.&86.: X.0:Y.0:B$.A$(I
):.605./87.: .I.588.:.A89.: A$.T$.T8:.:
C.3:S.2:.619.J8;.: X.30:Y.220:.614.V8<.:
A$.S$..8=.: C.2:S.1:.619. 8>.: X.200:Y.
200:.614..8?.:..8@.: .1,"H":.4:.4:.4.K8A
.: .4:.4:.4.V8B.: .636..8C.: .101..8D.:.
.8E..==WRITE BOX==..9F.: 15: .15,OD,15.
-9G.: X(I).(I.1).36.2.36:W.36.R9H.: .".
PRINTING BAR CHART NOW...".F9I.: .1,"M";
X(I),0.Z9J.: .1,"D";X(I),H..9K....9L.: .
1,"D";X(I).W,H..9M.: .1,"D";X(I).W,0..9N
....9O.:.J9P..==FILL BOX==..9Q.: X(I).(I
.1).36.2.36:W.36..9R.: .1,"M";X(I),0..:S
.: . J.0 . H .2.':T.: .1,"D";X(I).W,J.
A:U.: .1,"D";X(I).W,J.1.X:V.: . J.1
..H .602.P:W.: .1,"D";X(I),J.1..:X.:
.1,"D";X(I),J.2..:Y.: . J..:Z....:[.:..
:\..==CHARACTER Y==.G:].: .1,"M";X,Y:.4.
Y:^.: SS.(2.S).10..:_.: . M.1 . C(B$)..;
`.: .1,"M";X(I).9,SS.5..;A.: .4,J(B$
,M,1).';B.: . M.M;C.: .1,"M";0,SS.4.5.C(
B$).SS.2.Y:.4.S;D...Y;E.:.N;F..==CHARACT
ER X==.;G.: .1,"M";X,Y..;H.: .4,A$..;I.
: .1,"M";X,.Y.40.S:.4:...;J.:.B;K..==COL
OR, SIZE==.T;L.: .2,C:.3,S:..Z;M....;N.:
..<O.: . ". ENTER YOUR MAIN TITLE:";T$.(
<P.: ." ENTER ANY SUB-TITLE:";S$.P<Q.: .
" ENTER NUMBER OF BARS (1-6):";L.H<R.: .
L.1 . L.6 ..625.X<S.: . I.1 . L..<T.:
." DATA POINT";I.E<U.: ." ENTER NA
ME OF BAR (1-6 CHARS):";A$(I)..<V.: .
C(A$(I)) . 6 ..629..=W.: ." ENTER BAR
SIZE (0-40):";A(I)..=X.: . A(I) . 0 .
A(I) . 40 .631.8=Y.: . I.>=Z...D={.:.O=|
.: .2,2.J=}.: .4,"DATA POINTS....".Z=~.:
. I.1 . L..=.: .4,A$(I),A(I)..=..: .
I..=..: . I.0 . 6..=..: .4..=..: .I.C=
....I=..:..=... CLOSE FILES..=..: 1..
=..: 2..=..: 3..>..: 4..>..: .".".
.>.....>..:.8>... SOUND BELL SUBROUTINE
.N>..: . SD.24,15 :. VOICE 1 VOLUME AND
FILTER SELECT. >..: . SD.4,17 :. VOICE
1 CONTROL, START ATTACK.S>..: . SD.4,16
:. VOICE 1 CONTROL, START RELEASE..>..
: TB.TI..>..: . (TI.TB).60 .659.)?..: .
SD.24,0 :. VOICE 1 CONTROL, CLEAR VOLUM
E.1?..: ..7?..:.B?... SET UP SID REGIST
ERS FOR BELL SOUND..?..: SD.54272
:. ADDRESS OF SID CHIP..?..: . SD, 100
:. VOICE 1 FREQUENCY, LOW BYTE..?..: .
SD. 1,56 :. VOICE 1 FREQUENCY, HIGH BYT
E..@..: . SD. 5, 8 :. VOICE 1 ATTACK/DE
CAY.M@..: . SD. 6,(9.16.10):. VOICE 1 SU
STAIN/RELEASE.U@..: ....
> CLICK IMAGE PREVIEW FOR FULL MODAL