CURVES.REM
FILE INFORMATION
FILENAME(S): CURVES.REM
FILE TYPE(S): PRG
FILE SIZE: 10.3K
FIRST SEEN: 2025-10-20 14:32:02
APPEARS ON: 1 disk(s)
FILE HASH
a1d5256ed74a4cda26f05996b95d5c0b73d33bbb15537506ffc76bedd9e346ca
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0055GR | CURVES.REM | PRG | Treasure Chest - Klaus Der Suhler | 22 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 24 1C E8 03 8F 22 20 20 20 B0 C0 C0 C0 C0 |..$...." .....| 00000010: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000020: C0 C0 C0 AE 00 47 1C F2 03 8F 22 20 20 20 DD 20 |.....G...." . | 00000030: 20 20 50 52 4F 47 52 41 4D 20 4C 49 4E 45 20 49 | PROGRAM LINE I| 00000040: 4E 44 45 58 20 20 DD 00 6A 1C FC 03 8F 22 20 20 |NDEX ..j...." | 00000050: 20 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ...............| 00000060: C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 00 70 1C 06 04 3A |...........p...:| 00000070: 00 B2 1C 10 04 3A 20 89 20 20 31 32 37 30 20 3A |.....: . 1270 :| 00000080: 8F 20 53 45 54 20 55 50 20 53 49 44 20 52 45 47 |. SET UP SID REG| 00000090: 49 53 54 45 52 53 20 46 4F 52 20 42 45 4C 4C 20 |ISTERS FOR BELL | 000000A0: 53 4F 55 4E 44 20 41 54 20 38 38 30 20 48 45 52 |SOUND AT 880 HER| 000000B0: 54 5A 00 DA 1C 1A 04 3A 20 89 20 20 31 33 34 30 |TZ.....: . 1340| 000000C0: 20 3A 8F 20 53 45 54 20 54 45 58 54 20 53 43 52 | :. SET TEXT SCR| 000000D0: 45 45 4E 20 43 4F 4C 4F 52 53 00 FB 1C 24 04 3A |EEN COLORS...$.:| 000000E0: 20 89 20 20 31 34 30 30 20 3A 8F 20 47 45 54 20 | . 1400 :. GET | 000000F0: 55 53 45 52 20 49 4E 50 55 54 53 00 1B 1D 2E 04 |USER INPUTS.....| 00000100: 3A 20 89 20 20 31 37 33 30 20 3A 8F 20 53 45 54 |: . 1730 :. SET| 00000110: 20 55 50 20 4F 55 54 50 55 54 53 00 52 1D 38 04 | UP OUTPUTS.R.8.| 00000120: 3A 20 89 20 20 31 37 37 30 20 3A 8F 20 44 45 46 |: . 1770 :. DEF| 00000130: 49 4E 45 20 49 4D 41 47 45 20 46 49 45 4C 44 20 |INE IMAGE FIELD | 00000140: 4C 49 4D 49 54 53 20 41 4E 44 20 53 43 41 4C 49 |LIMITS AND SCALI| 00000150: 4E 47 00 74 1D 42 04 3A 20 89 20 20 31 39 32 30 |NG.t.B.: . 1920| 00000160: 20 3A 8F 20 46 49 4E 44 20 46 49 52 53 54 20 50 | :. FIND FIRST P| 00000170: 4F 49 4E 54 00 9F 1D 4C 04 3A 20 89 20 20 32 30 |OINT...L.: . 20| 00000180: 35 30 20 3A 8F 20 46 49 4E 44 20 4E 45 58 54 20 |50 :. FIND NEXT | 00000190: 43 4C 4F 43 4B 57 49 53 45 20 50 4F 49 4E 54 00 |CLOCKWISE POINT.| 000001A0: BD 1D 56 04 3A 20 89 20 20 32 31 33 30 20 3A 8F |..V.: . 2130 :.| 000001B0: 20 46 4F 4C 4C 4F 57 20 43 55 52 56 45 00 DC 1D | FOLLOW CURVE...| 000001C0: 60 04 3A 20 89 20 20 32 32 35 30 20 3A 8F 20 44 |`.: . 2250 :. D| 000001D0: 4F 20 4E 45 58 54 20 43 55 52 56 45 00 F6 1D 6A |O NEXT CURVE...j| 000001E0: 04 3A 20 89 20 20 32 33 32 30 20 3A 8F 20 41 4C |.: . 2320 :. AL| 000001F0: 4C 20 44 4F 4E 45 00 27 1E 74 04 3A 20 8D 20 32 |L DONE.'.t.: . 2| 00000200: 34 35 30 20 3A 8F 20 46 49 4E 44 20 44 57 45 4C |450 :. FIND DWEL| 00000210: 4C 20 43 4F 55 4E 54 20 46 4F 52 20 50 4F 49 4E |L COUNT FOR POIN| 00000220: 54 20 4E 58 2C 4E 59 00 4E 1E 7E 04 3A 20 8D 20 |T NX,NY.N.~.: . | 00000230: 32 35 39 30 20 3A 8F 20 54 55 52 4E 20 4F 4E 20 |2590 :. TURN ON | 00000240: 50 49 58 45 4C 20 41 54 20 4E 58 2C 4E 59 00 71 |PIXEL AT NX,NY.q| 00000250: 1E 88 04 3A 20 8D 20 32 37 34 30 20 3A 8F 20 50 |...: . 2740 :. P| 00000260: 4C 4F 54 20 4C 49 4E 45 20 54 4F 20 4E 58 2C 4E |LOT LINE TO NX,N| 00000270: 59 00 8C 1E 92 04 3A 20 8D 20 32 38 34 30 20 3A |Y.....: . 2840 :| 00000280: 8F 20 53 4F 55 4E 44 20 42 45 4C 4C 00 AB 1E 9C |. SOUND BELL....| 00000290: 04 3A 20 8D 20 32 39 35 30 20 3A 8F 20 53 45 54 |.: . 2950 :. SET| 000002A0: 20 55 50 20 50 4C 4F 54 54 45 52 00 D8 1E A6 04 | UP PLOTTER.....| 000002B0: 3A 20 8D 20 33 32 32 30 20 3A 8F 20 43 4C 45 41 |: . 3220 :. CLEA| 000002C0: 52 20 42 49 54 4D 41 50 2C 20 54 45 58 54 20 41 |R BITMAP, TEXT A| 000002D0: 4E 44 20 43 4F 4C 4F 52 00 FF 1E B0 04 3A 20 89 |ND COLOR.....: .| 000002E0: 20 20 33 34 35 30 20 3A 8F 20 4D 41 43 48 49 4E | 3450 :. MACHIN| 000002F0: 45 20 4C 41 4E 47 55 41 47 45 20 44 41 54 41 00 |E LANGUAGE DATA.| 00000300: 05 1F BA 04 3A 00 28 1F C4 04 8F 22 20 20 20 B0 |....:.(...." .| 00000310: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000320: C0 C0 C0 C0 C0 C0 C0 AE 00 4B 1F CE 04 8F 22 20 |.........K...." | 00000330: 20 20 DD 20 20 20 20 49 4E 49 54 49 41 4C 49 5A | . INITIALIZ| 00000340: 41 54 49 4F 4E 20 20 20 20 20 DD 00 6E 1F D8 04 |ATION ..n...| 00000350: 8F 22 20 20 20 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |." ...........| 00000360: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 00 74 |...............t| 00000370: 1F E2 04 3A 00 AB 1F EC 04 8F 20 53 45 54 20 55 |...:...... SET U| 00000380: 50 20 53 49 44 20 52 45 47 49 53 54 45 52 53 20 |P SID REGISTERS | 00000390: 46 4F 52 20 42 45 4C 4C 20 53 4F 55 4E 44 20 41 |FOR BELL SOUND A| 000003A0: 54 20 38 38 30 20 48 45 52 54 5A 00 D5 1F F6 04 |T 880 HERTZ.....| 000003B0: 3A 20 53 44 B2 35 34 32 37 32 20 20 20 20 20 3A |: SD.54272 :| 000003C0: 8F 20 41 44 44 52 45 53 53 20 4F 46 20 53 49 44 |. ADDRESS OF SID| 000003D0: 20 43 48 49 50 00 04 20 00 05 3A 20 97 20 53 44 | CHIP.. ..: . SD| 000003E0: 2C 20 31 30 30 20 3A 8F 20 56 4F 49 43 45 20 31 |, 100 :. VOICE 1| 000003F0: 20 46 52 45 51 55 45 4E 43 59 2C 20 4C 4F 57 20 | FREQUENCY, LOW | 00000400: 42 59 54 45 00 34 20 0A 05 3A 20 97 20 53 44 AA |BYTE.4 ..: . SD.| 00000410: 31 2C 35 36 20 3A 8F 20 56 4F 49 43 45 20 31 20 |1,56 :. VOICE 1 | 00000420: 46 52 45 51 55 45 4E 43 59 2C 20 48 49 47 48 20 |FREQUENCY, HIGH | 00000430: 42 59 54 45 00 69 20 14 05 3A 20 97 20 53 44 AA |BYTE.i ..: . SD.| 00000440: 35 2C 20 38 20 3A 8F 20 56 4F 49 43 45 20 31 20 |5, 8 :. VOICE 1 | 00000450: 41 54 54 41 43 4B 3D 30 20 4D 53 2C 20 44 45 43 |ATTACK=0 MS, DEC| 00000460: 41 59 3D 31 30 30 20 4D 53 00 9E 20 1E 05 3A 20 |AY=100 MS.. ..: | 00000470: 97 20 53 44 AA 36 2C 20 39 20 3A 8F 20 56 4F 49 |. SD.6, 9 :. VOI| 00000480: 43 45 20 31 20 53 55 53 54 41 49 4E 3D 30 2C 20 |CE 1 SUSTAIN=0, | 00000490: 52 45 4C 45 41 53 45 3D 37 35 30 20 4D 53 00 A4 |RELEASE=750 MS..| 000004A0: 20 28 05 3A 00 C1 20 32 05 8F 20 53 45 54 20 54 | (.:.. 2.. SET T| 000004B0: 45 58 54 20 53 43 52 45 45 4E 20 43 4F 4C 4F 52 |EXT SCREEN COLOR| 000004C0: 53 00 DC 20 3C 05 3A 20 97 20 35 33 32 38 30 2C |S.. <.: . 53280,| 000004D0: 31 32 20 3A 8F 20 42 4F 52 44 45 52 00 FB 20 46 |12 :. BORDER.. F| 000004E0: 05 3A 20 97 20 35 33 32 38 31 2C 31 35 20 3A 8F |.: . 53281,15 :.| 000004F0: 20 42 41 43 4B 47 52 4F 55 4E 44 00 18 21 50 05 | BACKGROUND..!P.| 00000500: 3A 20 99 20 22 97 22 20 20 20 20 20 3A 8F 20 43 |: . "." :. C| 00000510: 48 41 52 41 43 54 45 52 00 1E 21 5A 05 3A 00 34 |HARACTER..!Z.:.4| 00000520: 21 64 05 8F 20 47 45 54 20 55 53 45 52 20 49 4E |!d.. GET USER IN| 00000530: 50 55 54 53 00 5C 21 6E 05 3A 20 8F 20 43 4C 45 |PUTS.\!n.: . CLE| 00000540: 41 52 20 53 43 52 45 45 4E 20 41 4E 44 20 44 49 |AR SCREEN AND DI| 00000550: 53 50 4C 41 59 20 42 41 4E 4E 45 52 00 6B 21 78 |SPLAY BANNER.k!x| 00000560: 05 3A 20 20 20 99 20 22 93 11 22 00 9E 21 82 05 |.: . ".."..!..| 00000570: 3A 20 20 20 99 20 22 20 20 20 12 B0 C0 C0 C0 C0 |: . " ......| 00000580: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000590: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 D1 |............."..| 000005A0: 21 8C 05 3A 20 20 20 99 20 22 20 20 20 12 DD 20 |!..: . " .. | 000005B0: 4D 41 4E 44 45 4C 42 52 4F 54 20 53 45 54 20 20 |MANDELBROT SET | 000005C0: 43 55 52 56 45 20 46 4F 4C 4C 4F 57 45 52 20 DD |CURVE FOLLOWER .| 000005D0: 22 00 04 22 96 05 3A 20 20 20 99 20 22 20 20 20 |".."..: . " | 000005E0: 12 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000005F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000600: C0 C0 BD 22 00 1A 22 A0 05 3A 20 8F 20 53 45 4C |...".."..: . SEL| 00000610: 45 43 54 20 4F 55 54 50 55 54 00 52 22 AA 05 3A |ECT OUTPUT.R"..:| 00000620: 20 20 20 99 20 22 11 11 20 20 20 53 45 4C 45 43 | . ".. SELEC| 00000630: 54 20 12 50 92 4C 4F 54 54 45 52 2C 20 12 53 92 |T .P.LOTTER, .S.| 00000640: 43 52 45 45 4E 2C 20 4F 52 20 12 42 92 4F 54 48 |CREEN, OR .B.OTH| 00000650: 3A 22 00 86 22 B4 05 3A 20 20 20 85 20 22 11 20 |:".."..: . ". | 00000660: 20 20 20 20 45 4E 54 45 52 20 12 50 92 2C 20 12 | ENTER .P., .| 00000670: 53 92 2C 20 4F 52 20 12 42 92 20 20 20 20 9D 9D |S., OR .B. ..| 00000680: 9D 22 3B 49 4E 24 00 BF 22 BE 05 3A 20 20 20 8B |.";IN$.."..: .| 00000690: 20 49 4E 24 B2 22 50 22 20 A7 20 50 B2 AB 31 20 | IN$."P" . P..1 | 000006A0: 20 20 20 20 20 20 3A 89 20 31 35 32 30 20 3A 8F | :. 1520 :.| 000006B0: 20 50 4C 4F 54 54 45 52 20 4F 55 54 50 55 54 00 | PLOTTER OUTPUT.| 000006C0: F7 22 C8 05 3A 20 20 20 8B 20 49 4E 24 B2 22 53 |."..: . IN$."S| 000006D0: 22 20 A7 20 53 B2 AB 31 20 20 20 20 20 20 20 3A |" . S..1 :| 000006E0: 89 20 31 35 32 30 20 3A 8F 20 53 43 52 45 45 4E |. 1520 :. SCREEN| 000006F0: 20 4F 55 54 50 55 54 00 26 23 D2 05 3A 20 20 20 | OUTPUT.&#..: | 00000700: 8B 20 49 4E 24 B2 22 42 22 20 A7 20 53 B2 AB 31 |. IN$."B" . S..1| 00000710: 20 3A 50 B2 AB 31 20 3A 89 20 31 35 32 30 20 3A | :P..1 :. 1520 :| 00000720: 8F 20 42 4F 54 48 00 5A 23 DC 05 3A 20 20 20 99 |. BOTH.Z#..: .| 00000730: 20 22 91 91 91 22 20 3A 8D 20 32 38 34 30 20 3A | "..." :. 2840 :| 00000740: 89 20 31 34 36 30 20 20 20 20 3A 8F 20 49 4E 56 |. 1460 :. INV| 00000750: 41 4C 49 44 20 49 4E 50 55 54 00 70 23 E6 05 3A |ALID INPUT.p#..:| 00000760: 20 8F 20 53 45 4C 45 43 54 20 43 55 52 56 45 53 | . SELECT CURVES| 00000770: 00 A2 23 F0 05 3A 20 20 20 99 20 22 11 20 20 20 |..#..: . ". | 00000780: 53 45 4C 45 43 54 20 43 55 52 56 45 20 4E 55 4D |SELECT CURVE NUM| 00000790: 42 45 52 53 20 12 32 92 20 54 4F 20 12 32 30 92 |BERS .2. TO .20.| 000007A0: 3A 22 00 E2 23 FA 05 3A 20 20 20 49 4E 24 B2 22 |:"..#..: IN$."| 000007B0: 22 20 3A 85 20 22 11 20 20 20 20 20 45 4E 54 45 |" :. ". ENTE| 000007C0: 52 20 46 49 52 53 54 20 43 55 52 56 45 20 4E 55 |R FIRST CURVE NU| 000007D0: 4D 42 45 52 20 20 20 20 20 9D 9D 9D 9D 22 3B 49 |MBER ....";I| 000007E0: 4E 24 00 F4 23 04 06 3A 20 20 20 46 43 B2 C5 28 |N$..#..: FC..(| 000007F0: 49 4E 24 29 00 25 24 0E 06 3A 20 20 20 8B 20 46 |IN$).%$..: . F| 00000800: 43 B3 32 20 B0 20 46 43 B1 32 30 20 A7 20 99 20 |C.2 . FC.20 . . | 00000810: 22 91 91 91 22 20 3A 8D 20 32 38 34 30 20 3A 89 |"..." :. 2840 :.| 00000820: 20 31 35 33 30 00 64 24 18 06 3A 20 20 20 49 4E | 1530.d$..: IN| 00000830: 24 B2 22 22 20 3A 85 20 22 20 20 20 20 20 45 4E |$."" :. " EN| 00000840: 54 45 52 20 4C 41 53 54 20 20 43 55 52 56 45 20 |TER LAST CURVE | 00000850: 4E 55 4D 42 45 52 20 20 20 20 20 9D 9D 9D 9D 22 |NUMBER ...."| 00000860: 3B 49 4E 24 00 76 24 22 06 3A 20 20 20 4C 43 B2 |;IN$.v$".: LC.| 00000870: C5 28 49 4E 24 29 00 AE 24 2C 06 3A 20 20 20 8B |.(IN$)..$,.: .| 00000880: 20 4C 43 B3 46 43 20 B0 20 4C 43 B3 32 20 B0 20 | LC.FC . LC.2 . | 00000890: 4C 43 B1 32 30 20 A7 20 99 20 22 91 91 22 20 3A |LC.20 . . ".." :| 000008A0: 8D 20 32 38 34 30 20 3A 89 20 31 35 36 30 00 C9 |. 2840 :. 1560..| 000008B0: 24 36 06 3A 20 8F 20 53 45 4C 45 43 54 20 50 45 |$6.: . SELECT PE| 000008C0: 4E 20 4F 50 54 49 4F 4E 53 00 F4 24 40 06 3A 20 |N OPTIONS..$@.: | 000008D0: 20 20 8B 20 A8 20 50 20 A7 20 31 37 33 30 20 20 | . . P . 1730 | 000008E0: 20 3A 8F 20 50 4C 4F 54 54 45 52 20 4E 4F 54 20 | :. PLOTTER NOT | 000008F0: 55 53 45 44 00 1F 25 4A 06 3A 20 20 20 8B 20 4C |USED..%J.: . L| 00000900: 43 AB 46 43 B2 30 20 A7 20 31 36 36 30 20 3A 8F |C.FC.0 . 1660 :.| 00000910: 20 4F 4E 4C 59 20 4F 4E 45 20 43 55 52 56 45 00 | ONLY ONE CURVE.| 00000920: 4F 25 54 06 3A 20 20 20 99 20 22 11 20 20 20 43 |O%T.: . ". C| 00000930: 59 43 4C 45 20 50 45 4E 20 43 4F 4C 4F 52 53 20 |YCLE PEN COLORS | 00000940: 12 59 92 45 53 20 4F 52 20 12 4E 92 4F 3A 22 00 |.Y.ES OR .N.O:".| 00000950: 7D 25 5E 06 3A 20 20 20 85 20 22 11 20 20 20 20 |}%^.: . ". | 00000960: 20 45 4E 54 45 52 20 12 59 92 20 4F 52 20 12 4E | ENTER .Y. OR .N| 00000970: 92 20 20 20 20 9D 9D 9D 22 3B 49 4E 24 00 B5 25 |. ...";IN$..%| 00000980: 68 06 3A 20 20 20 8B 20 49 4E 24 B3 B1 22 59 22 |h.: . IN$.."Y"| 00000990: 20 AF 20 49 4E 24 B3 B1 22 4E 22 20 A7 20 99 20 | . IN$.."N" . . | 000009A0: 22 91 91 91 22 20 3A 8D 20 32 38 34 30 20 3A 89 |"..." :. 2840 :.| 000009B0: 20 31 36 33 30 00 DB 25 72 06 3A 20 20 20 8B 20 | 1630..%r.: . | 000009C0: 49 4E 24 B2 22 59 22 20 A7 20 43 B2 AB 31 20 3A |IN$."Y" . C..1 :| 000009D0: 53 24 B2 22 46 49 52 53 54 20 22 00 1E 26 7C 06 |S$."FIRST "..&|.| 000009E0: 3A 20 20 20 99 20 22 11 20 20 20 12 30 92 3D 90 |: . ". .0.=.| 000009F0: 42 4C 41 43 4B 97 20 20 20 12 31 92 3D 1F 42 4C |BLACK. .1.=.BL| 00000A00: 55 45 97 20 20 20 12 32 92 3D 1E 47 52 45 45 4E |UE. .2.=.GREEN| 00000A10: 97 20 20 20 12 33 92 3D 1C 52 45 44 97 22 00 62 |. .3.=.RED.".b| 00000A20: 26 86 06 3A 20 20 20 49 4E 24 B2 22 22 20 3A 99 |&..: IN$."" :.| 00000A30: 20 22 11 20 20 20 20 20 45 4E 54 45 52 20 22 53 | ". ENTER "S| 00000A40: 24 22 50 45 4E 20 43 4F 4C 4F 52 20 4E 55 4D 42 |$"PEN COLOR NUMB| 00000A50: 45 52 20 20 20 20 9D 9D 9D 22 3B 20 3A 85 20 49 |ER ..."; :. I| 00000A60: 4E 24 00 79 26 90 06 3A 20 20 20 49 4E B2 C6 28 |N$.y&..: IN..(| 00000A70: 49 4E 24 AA C7 28 30 29 29 00 AB 26 9A 06 3A 20 |IN$..(0))..&..: | 00000A80: 20 20 8B 20 49 4E B3 34 38 20 B0 20 49 4E B1 35 | . IN.48 . IN.5| 00000A90: 31 20 A7 20 99 20 22 91 91 91 22 20 3A 8D 20 32 |1 . . "..." :. 2| 00000AA0: 38 34 30 20 3A 89 20 31 36 37 30 00 BC 26 A4 06 |840 :. 1670..&..| 00000AB0: 3A 20 20 20 50 43 B2 49 4E AB 34 38 00 C2 26 AE |: PC.IN.48..&.| 00000AC0: 06 3A 00 D7 26 B8 06 8F 20 53 45 54 20 55 50 20 |.:..&... SET UP | 00000AD0: 4F 55 54 50 55 54 53 00 FC 26 C2 06 3A 20 8B 20 |OUTPUTS..&..: . | 00000AE0: 50 20 A7 20 8D 20 32 39 35 30 20 3A 8F 20 53 45 |P . . 2950 :. SE| 00000AF0: 54 20 55 50 20 50 4C 4F 54 54 45 52 00 20 27 CC |T UP PLOTTER. '.| 00000B00: 06 3A 20 8B 20 53 20 A7 20 8D 20 33 32 32 30 20 |.: . S . . 3220 | 00000B10: 3A 8F 20 53 45 54 20 55 50 20 53 43 52 45 45 4E |:. SET UP SCREEN| 00000B20: 00 26 27 D6 06 3A 00 52 27 E0 06 8F 20 44 45 46 |.&'..:.R'... DEF| 00000B30: 49 4E 45 20 49 4D 41 47 45 20 46 49 45 4C 44 20 |INE IMAGE FIELD | 00000B40: 4C 49 4D 49 54 53 20 41 4E 44 20 53 43 41 4C 49 |LIMITS AND SCALI| 00000B50: 4E 47 00 79 27 EA 06 3A 20 4C 52 B2 AB 32 20 20 |NG.y'..: LR..2 | 00000B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F | :.| 00000B70: 20 4C 4F 57 20 52 45 41 4C 00 A1 27 F4 06 3A 20 | LOW REAL..'..: | 00000B80: 48 52 B2 20 32 20 20 20 20 20 20 20 20 20 20 20 |HR. 2 | 00000B90: 20 20 20 20 20 3A 8F 20 48 49 47 48 20 52 45 41 | :. HIGH REA| 00000BA0: 4C 00 D9 27 FE 06 3A 20 8B 20 46 43 B2 33 20 20 |L..'..: . FC.3 | 00000BB0: A7 20 48 52 B2 31 20 20 20 3A 8F 20 41 44 4A 55 |. HR.1 :. ADJU| 00000BC0: 53 54 20 53 43 41 4C 49 4E 47 20 46 4F 52 20 43 |ST SCALING FOR C| 00000BD0: 55 52 56 45 20 53 49 5A 45 00 0F 28 08 07 3A 20 |URVE SIZE..(..: | 00000BE0: 8B 20 46 43 B1 33 20 20 A7 20 48 52 B2 32 AD 33 |. FC.3 . HR.2.3| 00000BF0: 20 3A 8F 20 20 20 22 20 20 20 20 20 20 20 22 20 | :. " " | 00000C00: 20 20 20 20 22 20 20 20 20 22 20 20 20 20 22 00 | " " ".| 00000C10: 42 28 12 07 3A 20 49 52 B2 B6 28 4C 52 AB 48 52 |B(..: IR..(LR.HR| 00000C20: 29 AD 32 20 20 20 20 20 20 3A 8F 20 43 45 4E 54 |).2 :. CENT| 00000C30: 45 52 20 49 4D 41 47 49 4E 41 52 59 20 52 41 4E |ER IMAGINARY RAN| 00000C40: 47 45 00 6E 28 1C 07 3A 20 4C 49 B2 AB 49 52 20 |GE.n(..: LI..IR | 00000C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F | :.| 00000C60: 20 4C 4F 57 20 49 4D 41 47 49 4E 41 52 59 00 9B | LOW IMAGINARY..| 00000C70: 28 26 07 3A 20 48 49 B2 20 49 52 20 20 20 20 20 |(&.: HI. IR | 00000C80: 20 20 20 20 20 20 20 20 20 20 3A 8F 20 48 49 47 | :. HIG| 00000C90: 48 20 49 4D 41 47 49 4E 41 52 59 00 C9 28 30 07 |H IMAGINARY..(0.| 00000CA0: 3A 20 44 52 B2 B6 28 4C 52 AB 48 52 29 AD 34 38 |: DR..(LR.HR).48| 00000CB0: 30 20 20 20 20 3A 8F 20 52 45 41 4C 20 41 58 49 |0 :. REAL AXI| 00000CC0: 53 20 53 43 41 4C 49 4E 47 00 FC 28 3A 07 3A 20 |S SCALING..(:.: | 00000CD0: 44 49 B2 B6 28 4C 49 AB 48 49 29 AD 34 38 30 20 |DI..(LI.HI).480 | 00000CE0: 20 20 20 3A 8F 20 49 4D 41 47 49 4E 41 52 59 20 | :. IMAGINARY | 00000CF0: 41 58 49 53 20 53 43 41 4C 49 4E 47 00 02 29 44 |AXIS SCALING..)D| 00000D00: 07 3A 00 25 29 4E 07 8F 22 20 20 20 B0 C0 C0 C0 |.:.%)N.." ....| 00000D10: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000D20: C0 C0 C0 C0 AE 00 48 29 58 07 8F 22 20 20 20 DD |......H)X.." .| 00000D30: 20 20 20 20 20 4D 41 49 4E 20 50 52 4F 47 52 41 | MAIN PROGRA| 00000D40: 4D 20 20 20 20 20 20 DD 00 6B 29 62 07 8F 22 20 |M ..k)b.." | 00000D50: 20 20 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ..............| 00000D60: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 00 71 29 6C 07 |............q)l.| 00000D70: 3A 00 88 29 76 07 8F 20 46 49 4E 44 20 46 49 52 |:..)v.. FIND FIR| 00000D80: 53 54 20 50 4F 49 4E 54 00 C8 29 80 07 3A 20 44 |ST POINT..)..: D| 00000D90: 4C B2 46 43 20 20 20 20 20 20 20 20 20 20 20 20 |L.FC | 00000DA0: 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 49 | :. I| 00000DB0: 4E 49 54 49 41 4C 20 44 57 45 4C 4C 20 43 4F 55 |NITIAL DWELL COU| 00000DC0: 4E 54 20 4C 49 4D 49 54 00 01 2A 8A 07 3A 20 4E |NT LIMIT..*..: N| 00000DD0: 58 B2 30 20 3A 4E 59 B2 32 34 30 20 20 20 20 20 |X.0 :NY.240 | 00000DE0: 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 53 | :. S| 00000DF0: 45 41 52 43 48 20 53 54 41 52 54 20 50 4F 49 4E |EARCH START POIN| 00000E00: 54 00 3C 2A 94 07 3A 20 4E 58 B2 4E 58 AA 31 20 |T.<*..: NX.NX.1 | 00000E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000E20: 20 20 20 20 20 3A 8F 20 53 45 41 52 43 48 20 4C | :. SEARCH L| 00000E30: 45 46 54 20 54 4F 20 52 49 47 48 54 00 6E 2A 9E |EFT TO RIGHT.n*.| 00000E40: 07 3A 20 20 20 8B 20 4E 58 B1 34 37 39 20 A7 20 |.: . NX.479 . | 00000E50: 32 32 35 30 20 20 20 20 20 20 20 20 3A 8F 20 43 |2250 :. C| 00000E60: 55 52 56 45 20 4E 4F 54 20 46 4F 55 4E 44 00 A1 |URVE NOT FOUND..| 00000E70: 2A A8 07 3A 20 20 20 8D 20 32 34 35 30 20 20 20 |*..: . 2450 | 00000E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F | :.| 00000E90: 20 46 49 4E 44 20 44 57 45 4C 4C 20 43 4F 55 4E | FIND DWELL COUN| 00000EA0: 54 00 D0 2A B2 07 3A 20 8B 20 44 43 B3 44 4C 20 |T..*..: . DC.DL | 00000EB0: A7 20 31 39 34 30 20 20 20 20 20 20 20 20 20 20 |. 1940 | 00000EC0: 20 3A 8F 20 4E 4F 54 20 4F 4E 20 43 55 52 56 45 | :. NOT ON CURVE| 00000ED0: 00 10 2B BC 07 3A 20 53 58 B2 4E 58 20 20 20 3A |..+..: SX.NX :| 00000EE0: 53 59 B2 4E 59 20 20 20 20 20 20 20 20 20 20 20 |SY.NY | 00000EF0: 20 20 20 20 3A 8F 20 53 54 41 52 54 20 50 4F 49 | :. START POI| 00000F00: 4E 54 20 4F 46 20 54 48 49 53 20 43 55 52 56 45 |NT OF THIS CURVE| 00000F10: 00 4F 2B C6 07 3A 20 43 58 B2 4E 58 20 20 20 3A |.O+..: CX.NX :| 00000F20: 43 59 B2 4E 59 20 20 20 20 20 20 20 20 20 20 20 |CY.NY | 00000F30: 20 20 20 20 3A 8F 20 4D 41 4B 45 20 46 49 52 53 | :. MAKE FIRS| 00000F40: 54 20 50 4F 49 4E 54 20 43 55 52 52 45 4E 54 00 |T POINT CURRENT.| 00000F50: 8A 2B D0 07 3A 20 4F 58 B2 4E 58 AB 31 20 3A 4F |.+..: OX.NX.1 :O| 00000F60: 59 B2 4E 59 20 20 20 20 20 20 20 20 20 20 20 20 |Y.NY | 00000F70: 20 20 20 3A 8F 20 44 55 4D 4D 59 20 50 52 45 56 | :. DUMMY PREV| 00000F80: 49 4F 55 53 20 50 4F 49 4E 54 00 BB 2B DA 07 3A |IOUS POINT..+..:| 00000F90: 20 8B 20 50 20 A7 20 98 31 2C 22 4D 22 2C 4E 58 | . P . .1,"M",NX| 00000FA0: 3B AB 4E 59 20 3A 8F 20 4D 4F 56 45 20 54 4F 20 |;.NY :. MOVE TO | 00000FB0: 46 49 52 53 54 20 50 4F 49 4E 54 00 E9 2B E4 07 |FIRST POINT..+..| 00000FC0: 3A 20 8B 20 50 20 A7 20 98 32 2C 50 43 20 20 20 |: . P . .2,PC | 00000FD0: 20 20 20 20 20 20 3A 8F 20 53 45 4C 45 43 54 20 | :. SELECT | 00000FE0: 50 45 4E 20 43 4F 4C 4F 52 00 EF 2B EE 07 3A 00 |PEN COLOR..+..:.| 00000FF0: 0F 2C F8 07 8F 20 46 49 4E 44 20 4E 45 58 54 20 |.,... FIND NEXT | 00001000: 43 4C 4F 43 4B 57 49 53 45 20 50 4F 49 4E 54 00 |CLOCKWISE POINT.| 00001010: 52 2C 02 08 3A 20 44 58 B2 4F 58 AB 43 58 20 3A |R,..: DX.OX.CX :| 00001020: 44 59 B2 4F 59 AB 43 59 20 20 20 20 20 20 20 20 |DY.OY.CY | 00001030: 20 20 20 20 20 20 3A 8F 20 4F 46 46 53 45 54 53 | :. OFFSETS| 00001040: 20 4F 46 20 50 52 45 56 49 4F 55 53 20 50 4F 49 | OF PREVIOUS POI| 00001050: 4E 54 00 90 2C 0C 08 3A 20 8B 20 44 58 B2 30 20 |NT..,..: . DX.0 | 00001060: 20 A7 20 44 58 B2 AB 44 59 20 3A 89 20 32 31 30 | . DX..DY :. 210| 00001070: 30 20 3A 8F 20 4D 4F 56 45 20 4C 45 46 54 2F 52 |0 :. MOVE LEFT/R| 00001080: 49 47 48 54 20 46 52 4F 4D 20 43 45 4E 54 45 52 |IGHT FROM CENTER| 00001090: 00 CB 2C 16 08 3A 20 8B 20 44 59 B2 30 20 20 A7 |..,..: . DY.0 .| 000010A0: 20 44 59 B2 44 58 20 20 3A 89 20 32 31 30 30 20 | DY.DX :. 2100 | 000010B0: 3A 8F 20 4D 4F 56 45 20 55 50 2F 44 4F 57 4E 20 |:. MOVE UP/DOWN | 000010C0: 46 52 4F 4D 20 43 45 4E 54 45 52 00 09 2D 20 08 |FROM CENTER..- .| 000010D0: 3A 20 8B 20 44 58 B2 44 59 20 A7 20 44 58 B2 30 |: . DX.DY . DX.0| 000010E0: 20 20 20 3A 89 20 32 31 30 30 20 3A 8F 20 4D 4F | :. 2100 :. MO| 000010F0: 56 45 20 4C 45 46 54 2F 52 49 47 48 54 20 46 52 |VE LEFT/RIGHT FR| 00001100: 4F 4D 20 43 4F 52 4E 45 52 00 4B 2D 2A 08 3A 20 |OM CORNER.K-*.: | 00001110: 44 59 B2 30 20 20 20 20 20 20 20 20 20 20 20 20 |DY.0 | 00001120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001130: 3A 8F 20 4D 4F 56 45 20 55 50 2F 44 4F 57 4E 20 |:. MOVE UP/DOWN | 00001140: 46 52 4F 4D 20 43 4F 52 4E 45 52 00 8D 2D 34 08 |FROM CORNER..-4.| 00001150: 3A 20 4E 58 B2 43 58 AA 44 58 20 3A 4E 59 B2 43 |: NX.CX.DX :NY.C| 00001160: 59 AA 44 59 20 20 20 20 20 20 20 20 20 20 20 20 |Y.DY | 00001170: 20 20 3A 8F 20 43 4F 4F 52 44 49 4E 41 54 45 53 | :. COORDINATES| 00001180: 20 4F 46 20 4E 45 57 20 50 4F 49 4E 54 00 93 2D | OF NEW POINT..-| 00001190: 3E 08 3A 00 A6 2D 48 08 8F 20 46 4F 4C 4C 4F 57 |>.:..-H.. FOLLOW| 000011A0: 20 43 55 52 56 45 00 D9 2D 52 08 3A 20 8D 20 32 | CURVE..-R.: . 2| 000011B0: 34 35 30 20 20 20 20 20 20 20 20 20 20 20 20 20 |450 | 000011C0: 20 20 20 20 20 20 3A 8F 20 46 49 4E 44 20 44 57 | :. FIND DW| 000011D0: 45 4C 4C 20 43 4F 55 4E 54 00 07 2E 5C 08 3A 20 |ELL COUNT...\.: | 000011E0: 8B 20 44 43 B1 B2 44 4C 20 A7 20 32 31 38 30 20 |. DC..DL . 2180 | 000011F0: 20 20 20 20 20 20 20 20 20 3A 8F 20 43 55 52 56 | :. CURV| 00001200: 45 20 46 4F 55 4E 44 00 46 2E 66 08 3A 20 4F 58 |E FOUND.F.f.: OX| 00001210: B2 4E 58 20 3A 4F 59 B2 4E 59 20 20 20 20 20 20 |.NX :OY.NY | 00001220: 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 53 41 | :. SA| 00001230: 56 45 20 4C 41 53 54 20 50 4F 49 4E 54 20 45 58 |VE LAST POINT EX| 00001240: 41 4D 49 4E 45 44 00 91 2E 70 08 3A 20 44 58 B2 |AMINED...p.: DX.| 00001250: 4E 58 AB 43 58 20 3A 44 59 B2 4E 59 AB 43 59 20 |NX.CX :DY.NY.CY | 00001260: 20 20 20 20 20 20 20 20 20 20 3A 8F 20 44 45 54 | :. DET| 00001270: 45 52 4D 49 4E 45 20 4F 46 46 53 45 54 53 20 46 |ERMINE OFFSETS F| 00001280: 52 4F 4D 20 43 55 52 52 45 4E 54 20 50 4F 49 4E |ROM CURRENT POIN| 00001290: 54 00 C4 2E 7A 08 3A 20 89 20 32 30 36 30 20 20 |T...z.: . 2060 | 000012A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000012B0: 20 20 3A 8F 20 54 45 53 54 20 4E 45 58 54 20 50 | :. TEST NEXT P| 000012C0: 4F 49 4E 54 00 F0 2E 84 08 3A 20 8B 20 53 20 A7 |OINT.....: . S .| 000012D0: 20 8D 20 32 35 39 30 20 20 20 20 20 20 20 20 20 | . 2590 | 000012E0: 3A 8F 20 54 55 52 4E 20 4F 4E 20 50 49 58 45 4C |:. TURN ON PIXEL| 000012F0: 00 18 2F 8E 08 3A 20 8B 20 50 20 A7 20 8D 20 32 |../..: . P . . 2| 00001300: 37 34 30 20 20 20 20 20 20 20 20 20 3A 8F 20 44 |740 :. D| 00001310: 52 41 57 20 4C 49 4E 45 00 53 2F 98 08 3A 20 43 |RAW LINE.S/..: C| 00001320: 58 B2 4E 58 20 3A 43 59 B2 4E 59 20 20 20 20 20 |X.NX :CY.NY | 00001330: 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 4E | :. N| 00001340: 45 57 20 50 4F 49 4E 54 20 54 4F 20 43 55 52 52 |EW POINT TO CURR| 00001350: 45 4E 54 00 84 2F A2 08 3A 20 8B 20 4E 58 B2 53 |ENT../..: . NX.S| 00001360: 58 20 AF 20 4E 59 B2 53 59 20 A7 20 32 32 35 30 |X . NY.SY . 2250| 00001370: 20 3A 8F 20 53 54 41 52 54 20 4E 45 58 54 20 43 | :. START NEXT C| 00001380: 55 52 56 45 00 B6 2F AC 08 3A 20 89 20 32 30 35 |URVE../..: . 205| 00001390: 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |0 | 000013A0: 20 20 20 20 20 3A 8F 20 47 45 54 20 4E 45 58 54 | :. GET NEXT| 000013B0: 20 50 4F 49 4E 54 00 BC 2F B6 08 3A 00 D0 2F C0 | POINT../..:../.| 000013C0: 08 8F 20 44 4F 20 4E 45 58 54 20 43 55 52 56 45 |.. DO NEXT CURVE| 000013D0: 00 13 30 CA 08 3A 20 44 4C B2 44 4C AA 31 20 20 |..0..: DL.DL.1 | 000013E0: 20 20 20 20 20 20 20 20 20 20 3A 8F 20 44 45 54 | :. DET| 000013F0: 45 52 4D 49 4E 45 20 4E 45 58 54 20 43 55 52 56 |ERMINE NEXT CURV| 00001400: 45 20 44 57 45 4C 4C 20 43 4F 55 4E 54 20 4C 49 |E DWELL COUNT LI| 00001410: 4D 49 54 00 43 30 D4 08 3A 20 8B 20 44 4C B1 4C |MIT.C0..: . DL.L| 00001420: 43 20 A7 20 32 33 32 30 20 3A 8F 20 49 46 20 4C |C . 2320 :. IF L| 00001430: 41 53 54 20 43 55 52 56 45 20 54 48 45 4E 20 44 |AST CURVE THEN D| 00001440: 4F 4E 45 00 6C 30 DE 08 3A 20 8B 20 43 20 A7 20 |ONE.l0..: . C . | 00001450: 50 43 B2 50 43 AA 31 20 20 3A 8F 20 43 59 43 4C |PC.PC.1 :. CYCL| 00001460: 45 20 50 45 4E 20 43 4F 4C 4F 52 53 00 92 30 E8 |E PEN COLORS..0.| 00001470: 08 3A 20 8B 20 50 43 B1 33 20 A7 20 50 43 B2 30 |.: . PC.3 . PC.0| 00001480: 20 20 3A 8F 20 20 20 22 20 20 20 20 22 20 20 20 | :. " " | 00001490: 20 22 00 BF 30 F2 08 3A 20 89 20 31 39 33 30 20 | "..0..: . 1930 | 000014A0: 20 20 20 20 20 20 20 20 20 3A 8F 20 47 4F 20 53 | :. GO S| 000014B0: 45 41 52 43 48 20 46 4F 52 20 43 55 52 56 45 00 |EARCH FOR CURVE.| 000014C0: C5 30 FC 08 3A 00 D4 30 06 09 8F 20 41 4C 4C 20 |.0..:..0... ALL | 000014D0: 44 4F 4E 45 00 FB 30 10 09 3A 20 8B 20 A8 20 50 |DONE..0..: . . P| 000014E0: 20 A7 20 32 33 37 30 20 3A 8F 20 50 4C 4F 54 54 | . 2370 :. PLOTT| 000014F0: 45 52 20 4E 4F 54 20 55 53 45 44 00 20 31 1A 09 |ER NOT USED. 1..| 00001500: 3A 20 98 31 2C 22 4D 22 2C 30 2C AB 35 34 30 20 |: .1,"M",0,.540 | 00001510: 3A 8F 20 45 4A 45 43 54 20 44 52 41 57 49 4E 47 |:. EJECT DRAWING| 00001520: 00 44 31 24 09 3A 20 98 34 20 20 20 20 20 20 20 |.D1$.: .4 | 00001530: 20 20 20 20 20 3A 8F 20 53 45 54 20 4E 45 57 20 | :. SET NEW | 00001540: 48 4F 4D 45 00 70 31 2E 09 3A 20 A0 20 31 20 20 |HOME.p1..: . 1 | 00001550: 20 20 20 20 20 20 20 20 20 20 3A 8F 20 43 4C 4F | :. CLO| 00001560: 53 45 20 50 4C 4F 54 54 49 4E 47 20 50 4F 52 54 |SE PLOTTING PORT| 00001570: 00 99 31 38 09 3A 20 A0 20 34 20 20 20 20 20 20 |..18.: . 4 | 00001580: 20 20 20 20 20 20 3A 8F 20 43 4C 4F 53 45 20 41 | :. CLOSE A| 00001590: 53 43 49 49 20 50 4F 52 54 00 BB 31 42 09 3A 20 |SCII PORT..1B.: | 000015A0: 8D 20 32 38 34 30 20 20 20 20 20 20 20 20 20 3A |. 2840 :| 000015B0: 8F 20 52 49 4E 47 20 42 45 4C 4C 00 C3 31 4C 09 |. RING BELL..1L.| 000015C0: 3A 20 80 00 C9 31 56 09 3A 00 EC 31 60 09 8F 22 |: ...1V.:..1`.."| 000015D0: 20 20 20 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | .............| 000015E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 00 0F 32 6A |..............2j| 000015F0: 09 8F 22 20 20 20 DD 20 20 50 52 4F 47 52 41 4D |.." . PROGRAM| 00001600: 20 53 55 42 52 4F 55 54 49 4E 45 53 20 20 DD 00 | SUBROUTINES ..| 00001610: 32 32 74 09 8F 22 20 20 20 AD C0 C0 C0 C0 C0 C0 |22t.." .......| 00001620: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00001630: C0 BD 00 38 32 7E 09 3A 00 5B 32 88 09 8F 20 46 |...82~.:.[2... F| 00001640: 49 4E 44 20 43 4F 55 4E 54 20 4A 20 46 4F 52 20 |IND COUNT J FOR | 00001650: 50 4F 49 4E 54 20 4E 58 2C 4E 59 00 98 32 92 09 |POINT NX,NY..2..| 00001660: 3A 20 43 49 B2 4C 49 AA 4E 59 AC 44 49 20 20 20 |: CI.LI.NY.DI | 00001670: 20 20 20 20 20 20 20 20 3A 8F 20 43 55 52 52 45 | :. CURRE| 00001680: 4E 54 20 50 4F 49 4E 54 20 49 4D 41 47 49 4E 41 |NT POINT IMAGINA| 00001690: 52 59 20 56 41 4C 55 45 00 D0 32 9C 09 3A 20 43 |RY VALUE..2..: C| 000016A0: 52 B2 4C 52 AA 4E 58 AC 44 52 20 20 20 20 20 20 |R.LR.NX.DR | 000016B0: 20 20 20 20 20 3A 8F 20 43 55 52 52 45 4E 54 20 | :. CURRENT | 000016C0: 50 4F 49 4E 54 20 52 45 41 4C 20 56 41 4C 55 45 |POINT REAL VALUE| 000016D0: 00 FA 32 A6 09 3A 20 44 43 B2 30 20 3A 5A 52 B2 |..2..: DC.0 :ZR.| 000016E0: 30 20 3A 5A 49 B2 30 20 20 20 20 20 20 3A 8F 20 |0 :ZI.0 :. | 000016F0: 49 4E 49 54 49 41 4C 49 5A 45 00 25 33 B0 09 3A |INITIALIZE.%3..:| 00001700: 20 44 43 B2 44 43 AA 31 20 20 20 20 20 20 20 20 | DC.DC.1 | 00001710: 20 20 20 20 20 20 20 3A 8F 20 44 57 45 4C 4C 20 | :. DWELL | 00001720: 43 4F 55 4E 54 00 50 33 BA 09 3A 20 20 20 52 50 |COUNT.P3..: RP| 00001730: B2 5A 52 AC 5A 52 AB 5A 49 AC 5A 49 AA 43 52 20 |.ZR.ZR.ZI.ZI.CR | 00001740: 20 20 3A 8F 20 5A 20 52 45 41 4C 20 50 41 52 54 | :. Z REAL PART| 00001750: 00 80 33 C4 09 3A 20 20 20 49 50 B2 32 AC 5A 52 |..3..: IP.2.ZR| 00001760: AC 5A 49 AA 43 49 20 20 20 20 20 20 20 3A 8F 20 |.ZI.CI :. | 00001770: 5A 20 49 4D 41 47 49 4E 41 52 59 20 50 41 52 54 |Z IMAGINARY PART| 00001780: 00 A9 33 CE 09 3A 20 20 20 4D 5A B2 BA 28 52 50 |..3..: MZ..(RP| 00001790: AC 52 50 AA 49 50 AC 49 50 29 20 3A 8F 20 5A 20 |.RP.IP.IP) :. Z | 000017A0: 4D 41 47 4E 49 54 55 44 45 00 CF 33 D8 09 3A 20 |MAGNITUDE..3..: | 000017B0: 20 20 8B 20 4D 5A B1 B2 32 20 A7 20 32 35 35 30 | . MZ..2 . 2550| 000017C0: 20 20 3A 8F 20 4E 4F 54 20 49 4E 20 53 45 54 00 | :. NOT IN SET.| 000017D0: F9 33 E2 09 3A 20 20 20 5A 52 B2 52 50 20 3A 5A |.3..: ZR.RP :Z| 000017E0: 49 B2 49 50 20 20 20 20 20 20 20 20 3A 8F 20 46 |I.IP :. F| 000017F0: 45 45 44 42 41 43 4B 20 5A 00 2A 34 EC 09 3A 20 |EEDBACK Z.*4..: | 00001800: 8B 20 44 43 B3 44 4C 20 A7 20 32 34 38 30 20 20 |. DC.DL . 2480 | 00001810: 20 20 3A 8F 20 4E 4F 54 20 44 57 45 4C 4C 20 43 | :. NOT DWELL C| 00001820: 4F 55 4E 54 20 4C 49 4D 49 54 00 61 34 F6 09 3A |OUNT LIMIT.a4..:| 00001830: 20 8E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | . | 00001840: 20 20 3A 8F 20 52 45 54 55 52 4E 20 44 57 45 4C | :. RETURN DWEL| 00001850: 4C 20 43 4F 55 4E 54 20 54 4F 20 43 41 4C 4C 45 |L COUNT TO CALLE| 00001860: 52 00 67 34 00 0A 3A 00 84 34 0A 0A 8F 20 54 55 |R.g4..:..4... TU| 00001870: 52 4E 20 4F 4E 20 50 49 58 45 4C 20 41 54 20 4E |RN ON PIXEL AT N| 00001880: 58 2C 4E 59 00 BE 34 14 0A 3A 20 8F 20 43 4F 4E |X,NY..4..: . CON| 00001890: 56 45 52 54 20 50 4C 4F 54 54 45 52 20 43 4F 4F |VERT PLOTTER COO| 000018A0: 52 44 49 4E 41 54 45 53 20 54 4F 20 53 43 52 45 |RDINATES TO SCRE| 000018B0: 45 4E 20 43 4F 4F 52 44 49 4E 41 54 45 53 00 F5 |EN COORDINATES..| 000018C0: 34 1E 0A 3A 20 20 20 59 50 B2 B5 28 4E 59 AC 32 |4..: YP..(NY.2| 000018D0: 30 30 AD 34 38 30 29 20 20 20 20 20 20 20 20 20 |00.480) | 000018E0: 20 3A 8F 20 56 45 52 54 49 43 41 4C 20 50 4F 53 | :. VERTICAL POS| 000018F0: 49 54 49 4F 4E 00 2B 35 28 0A 3A 20 20 20 8B 20 |ITION.+5(.: . | 00001900: 59 50 B3 30 20 A7 20 59 50 B2 30 20 20 20 20 20 |YP.0 . YP.0 | 00001910: 20 20 20 20 20 20 3A 8F 20 4C 49 4D 49 54 20 54 | :. LIMIT T| 00001920: 4F 50 20 50 4F 53 49 54 49 4F 4E 00 64 35 32 0A |OP POSITION.d52.| 00001930: 3A 20 20 20 8B 20 59 50 B1 31 39 39 20 A7 20 59 |: . YP.199 . Y| 00001940: 50 B2 31 39 39 20 20 20 20 20 20 20 3A 8F 20 4C |P.199 :. L| 00001950: 49 4D 49 54 20 42 4F 54 54 4F 4D 20 50 4F 53 49 |IMIT BOTTOM POSI| 00001960: 54 49 4F 4E 00 9D 35 3C 0A 3A 20 20 20 58 50 B2 |TION..5<.: XP.| 00001970: B5 28 4E 58 AC 33 32 30 AD 34 38 30 29 20 20 20 |.(NX.320.480) | 00001980: 20 20 20 20 20 20 20 3A 8F 20 48 4F 52 49 5A 4F | :. HORIZO| 00001990: 4E 54 41 4C 20 50 4F 53 49 54 49 4F 4E 00 D4 35 |NTAL POSITION..5| 000019A0: 46 0A 3A 20 20 20 8B 20 58 50 B3 30 20 A7 20 58 |F.: . XP.0 . X| 000019B0: 50 B2 30 20 20 20 20 20 20 20 20 20 20 20 3A 8F |P.0 :.| 000019C0: 20 4C 49 4D 49 54 20 4C 45 46 54 20 50 4F 53 49 | LIMIT LEFT POSI| 000019D0: 54 49 4F 4E 00 0C 36 50 0A 3A 20 20 20 8B 20 58 |TION..6P.: . X| 000019E0: 50 B1 33 31 39 20 A7 20 58 50 B2 33 31 39 20 20 |P.319 . XP.319 | 000019F0: 20 20 20 20 20 3A 8F 20 4C 49 4D 49 54 20 52 49 | :. LIMIT RI| 00001A00: 47 48 54 20 50 4F 53 49 54 49 4F 4E 00 2F 36 5A |GHT POSITION./6Z| 00001A10: 0A 3A 20 8F 20 46 49 4E 44 20 53 43 52 45 45 4E |.: . FIND SCREEN| 00001A20: 20 50 49 58 45 4C 20 50 4F 53 49 54 49 4F 4E 00 | PIXEL POSITION.| 00001A30: 5D 36 64 0A 3A 20 20 20 56 50 B2 B5 28 59 50 AD |]6d.: VP..(YP.| 00001A40: 38 29 AC 33 32 30 AA 28 59 50 20 AF 20 37 29 20 |8).320.(YP . 7) | 00001A50: 3A 8F 20 53 43 52 45 45 4E 20 52 4F 57 00 90 36 |:. SCREEN ROW..6| 00001A60: 6E 0A 3A 20 20 20 48 50 B2 B5 28 58 50 AD 38 29 |n.: HP..(XP.8)| 00001A70: AC 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.8 | 00001A80: 3A 8F 20 53 43 52 45 45 4E 20 43 4F 4C 55 4D 4E |:. SCREEN COLUMN| 00001A90: 00 CF 36 78 0A 3A 20 20 20 42 50 B2 37 AB 28 58 |..6x.: BP.7.(X| 00001AA0: 50 20 AF 20 37 29 20 20 20 20 20 20 20 20 20 20 |P . 7) | 00001AB0: 20 20 20 3A 8F 20 42 49 54 20 50 4F 53 49 54 49 | :. BIT POSITI| 00001AC0: 4F 4E 20 49 4E 20 43 48 41 52 41 43 54 45 52 00 |ON IN CHARACTER.| 00001AD0: 0C 37 82 0A 3A 20 20 20 53 50 B2 32 34 35 37 36 |.7..: SP.24576| 00001AE0: AA 56 50 AA 48 50 20 20 20 20 20 20 20 20 20 20 |.VP.HP | 00001AF0: 20 20 20 20 3A 8F 20 53 43 52 45 45 4E 20 4D 45 | :. SCREEN ME| 00001B00: 4D 4F 52 59 20 41 44 44 52 45 53 53 00 3A 37 8C |MORY ADDRESS.:7.| 00001B10: 0A 3A 20 20 20 97 20 53 50 2C C2 28 53 50 29 20 |.: . SP,.(SP) | 00001B20: B0 20 32 AE 42 50 20 20 20 20 3A 8F 20 54 55 52 |. 2.BP :. TUR| 00001B30: 4E 20 4F 4E 20 50 49 58 45 4C 00 42 37 96 0A 3A |N ON PIXEL.B7..:| 00001B40: 20 8E 00 48 37 A0 0A 3A 00 61 37 AA 0A 8F 20 50 | ..H7..:.a7... P| 00001B50: 4C 4F 54 20 4C 49 4E 45 20 54 4F 20 4E 58 2C 4E |LOT LINE TO NX,N| 00001B60: 59 00 96 37 B4 0A 3A 20 59 50 B2 4E 59 20 20 20 |Y..7..: YP.NY | 00001B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F | :.| 00001B80: 20 47 45 54 20 56 45 52 54 49 43 41 4C 20 50 4F | GET VERTICAL PO| 00001B90: 53 49 54 49 4F 4E 00 C4 37 BE 0A 3A 20 8B 20 59 |SITION..7..: . Y| 00001BA0: 50 B3 30 20 A7 20 59 50 B2 30 20 20 20 20 20 3A |P.0 . YP.0 :| 00001BB0: 8F 20 4C 49 4D 49 54 20 54 4F 50 20 50 4F 53 49 |. LIMIT TOP POSI| 00001BC0: 54 49 4F 4E 00 F5 37 C8 0A 3A 20 8B 20 59 50 B1 |TION..7..: . YP.| 00001BD0: 34 37 39 20 A7 20 59 50 B2 34 37 39 20 3A 8F 20 |479 . YP.479 :. | 00001BE0: 4C 49 4D 49 54 20 42 4F 54 54 4F 4D 20 50 4F 53 |LIMIT BOTTOM POS| 00001BF0: 49 54 49 4F 4E 00 2C 38 D2 0A 3A 20 58 50 B2 4E |ITION.,8..: XP.N| 00001C00: 58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |X | 00001C10: 20 20 3A 8F 20 47 45 54 20 48 4F 52 49 5A 4F 4E | :. GET HORIZON| 00001C20: 54 41 4C 20 50 4F 53 49 54 49 4F 4E 00 5B 38 DC |TAL POSITION.[8.| 00001C30: 0A 3A 20 8B 20 58 50 B3 30 20 A7 20 58 50 B2 30 |.: . XP.0 . XP.0| 00001C40: 20 20 20 20 20 3A 8F 20 4C 49 4D 49 54 20 4C 45 | :. LIMIT LE| 00001C50: 46 54 20 50 4F 53 49 54 49 4F 4E 00 8B 38 E6 0A |FT POSITION..8..| 00001C60: 3A 20 8B 20 58 50 B1 34 37 39 20 A7 20 58 50 B2 |: . XP.479 . XP.| 00001C70: 34 37 39 20 3A 8F 20 4C 49 4D 49 54 20 52 49 47 |479 :. LIMIT RIG| 00001C80: 48 54 20 50 4F 53 49 54 49 4F 4E 00 AF 38 F0 0A |HT POSITION..8..| 00001C90: 3A 20 98 31 2C 22 44 22 2C 58 50 3B AB 59 50 20 |: .1,"D",XP;.YP | 00001CA0: 20 20 20 3A 8F 20 44 52 41 57 20 4C 49 4E 45 00 | :. DRAW LINE.| 00001CB0: B7 38 FA 0A 3A 20 8E 00 BD 38 04 0B 3A 00 D9 38 |.8..: ...8..:..8| 00001CC0: 0E 0B 8F 20 53 4F 55 4E 44 20 42 45 4C 4C 20 53 |... SOUND BELL S| 00001CD0: 55 42 52 4F 55 54 49 4E 45 00 22 39 18 0B 3A 20 |UBROUTINE."9..: | 00001CE0: 97 20 53 44 20 AA 34 2C 31 37 20 20 20 20 20 20 |. SD .4,17 | 00001CF0: 20 20 20 3A 8F 20 56 4F 49 43 45 20 31 20 53 54 | :. VOICE 1 ST| 00001D00: 41 52 54 20 41 54 54 41 43 4B 2F 44 45 43 41 59 |ART ATTACK/DECAY| 00001D10: 2F 53 55 53 54 41 49 4E 2C 20 54 52 49 41 4E 47 |/SUSTAIN, TRIANG| 00001D20: 4C 45 00 63 39 22 0B 3A 20 97 20 53 44 20 AA 34 |LE.c9".: . SD .4| 00001D30: 2C 31 36 20 20 20 20 20 20 20 20 20 3A 8F 20 56 |,16 :. V| 00001D40: 4F 49 43 45 20 31 20 53 54 41 52 54 20 52 45 4C |OICE 1 START REL| 00001D50: 45 41 53 45 2C 20 54 52 49 41 4E 47 4C 45 20 57 |EASE, TRIANGLE W| 00001D60: 41 56 45 00 93 39 2C 0B 3A 20 97 20 53 44 AA 32 |AVE..9,.: . SD.2| 00001D70: 34 2C 31 35 20 20 20 20 20 20 20 20 20 3A 8F 20 |4,15 :. | 00001D80: 56 4F 49 43 45 20 31 20 56 4F 4C 55 4D 45 20 48 |VOICE 1 VOLUME H| 00001D90: 49 47 48 00 C6 39 36 0B 3A 20 9E 20 36 35 34 39 |IGH..96.: . 6549| 00001DA0: 39 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F |9 :.| 00001DB0: 20 49 4E 49 54 49 41 4C 49 5A 45 20 54 49 4D 45 | INITIALIZE TIME| 00001DC0: 2C 20 54 49 3D 30 00 F6 39 40 0B 3A 20 54 54 B2 |, TI=0..9@.: TT.| 00001DD0: 54 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |TI | 00001DE0: 20 20 20 3A 8F 20 53 41 56 45 20 54 49 4D 45 52 | :. SAVE TIMER| 00001DF0: 20 56 41 4C 55 45 00 26 3A 4A 0B 3A 20 8B 20 54 | VALUE.&:J.: . T| 00001E00: 49 AB 54 54 B3 33 30 20 A7 20 32 38 39 30 20 3A |I.TT.30 . 2890 :| 00001E10: 8F 20 44 45 4C 41 59 20 46 4F 52 20 33 30 20 4A |. DELAY FOR 30 J| 00001E20: 49 46 46 49 45 53 00 55 3A 54 0B 3A 20 97 20 53 |IFFIES.U:T.: . S| 00001E30: 44 AA 32 34 2C 30 20 20 20 20 20 20 20 20 20 20 |D.24,0 | 00001E40: 3A 8F 20 56 4F 49 43 45 20 31 20 56 4F 4C 55 4D |:. VOICE 1 VOLUM| 00001E50: 45 20 4F 46 46 00 5D 3A 5E 0B 3A 20 8E 00 63 3A |E OFF.]:^.: ..c:| 00001E60: 68 0B 3A 00 78 3A 72 0B 8F 20 53 45 54 20 55 50 |h.:.x:r.. SET UP| 00001E70: 20 50 4C 4F 54 54 45 52 00 98 3A 7C 0B 3A 20 8F | PLOTTER..:|.: .| 00001E80: 20 54 45 53 54 20 49 46 20 50 4C 4F 54 54 45 52 | TEST IF PLOTTER| 00001E90: 20 50 52 45 53 45 4E 54 00 D4 3A 86 0B 3A 20 20 | PRESENT..:..: | 00001EA0: 20 99 20 22 93 11 11 11 11 11 11 11 11 11 11 11 | . "............| 00001EB0: 11 11 11 22 20 20 20 20 20 20 20 20 20 20 20 20 |..." | 00001EC0: 20 20 3A 8F 20 50 4F 53 49 54 49 4F 4E 20 43 55 | :. POSITION CU| 00001ED0: 52 53 4F 52 00 16 3B 90 0B 3A 20 20 20 53 43 24 |RSOR..;..: SC$| 00001EE0: B2 22 1C 12 22 20 20 20 20 20 20 20 20 20 20 20 |.".." | 00001EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001F00: 20 20 3A 8F 20 52 45 44 20 52 45 56 45 52 53 45 | :. RED REVERSE| 00001F10: 20 56 49 44 45 4F 00 53 3B 9A 0B 3A 20 20 20 9F | VIDEO.S;..: .| 00001F20: 20 34 2C 36 2C 30 20 20 20 20 20 20 20 20 20 20 | 4,6,0 | 00001F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001F40: 20 3A 8F 20 4F 50 45 4E 20 41 53 43 49 49 20 50 | :. OPEN ASCII P| 00001F50: 4F 52 54 00 9B 3B A4 0B 3A 20 20 20 A0 20 34 20 |ORT..;..: . 4 | 00001F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 | :. | 00001F80: 43 4C 4F 53 45 20 50 4F 52 54 2C 20 53 54 3D 30 |CLOSE PORT, ST=0| 00001F90: 20 49 46 20 50 52 45 53 45 4E 54 00 DD 3B AE 0B | IF PRESENT..;..| 00001FA0: 3A 20 20 20 8B 20 53 54 B2 30 20 A7 20 33 31 34 |: . ST.0 . 314| 00001FB0: 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |0 | 00001FC0: 20 20 20 20 20 3A 8F 20 47 4F 20 4F 50 45 4E 20 | :. GO OPEN | 00001FD0: 50 52 49 4E 54 45 52 20 50 4F 52 54 53 00 20 3C |PRINTER PORTS. <| 00001FE0: B8 0B 3A 20 20 20 8B 20 42 4C B2 30 20 A7 20 42 |..: . BL.0 . B| 00001FF0: 4C B2 31 3A 20 8D 20 32 38 34 30 20 20 20 20 20 |L.1: . 2840 | 00002000: 20 20 20 3A 8F 20 53 4F 55 4E 44 20 42 45 4C 4C | :. SOUND BELL| 00002010: 2C 20 4F 4E 43 45 20 49 53 20 45 4E 4F 55 47 48 |, ONCE IS ENOUGH| 00002020: 00 61 3C C2 0B 3A 20 20 20 99 20 22 91 91 91 91 |.a<..: . "....| 00002030: 91 91 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." | 00002040: 20 20 20 20 20 20 20 20 20 20 3A 8F 20 43 55 52 | :. CUR| 00002050: 53 4F 52 20 55 50 20 54 4F 20 4F 56 45 52 4C 41 |SOR UP TO OVERLA| 00002060: 59 00 8A 3C CC 0B 3A 20 20 20 99 20 A3 38 29 3B |Y..<..: . .8);| 00002070: 22 D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"...............| 00002080: C0 C0 C0 C0 C0 C0 C0 C0 C9 22 00 BC 3C D6 0B 3A |........."..<..:| 00002090: 20 20 20 99 20 A3 38 29 3B 22 DD 22 3B 53 43 24 | . .8);".";SC$| 000020A0: 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;" | 000020B0: 20 20 20 20 20 20 20 20 92 97 DD 22 00 EE 3C E0 | ..."..<.| 000020C0: 0B 3A 20 20 20 99 20 A3 38 29 3B 22 DD 22 3B 53 |.: . .8);".";S| 000020D0: 43 24 3B 22 20 20 4D 41 4B 45 20 50 4C 4F 54 54 |C$;" MAKE PLOTT| 000020E0: 45 52 20 52 45 41 44 59 20 20 92 97 DD 22 00 20 |ER READY ...". | 000020F0: 3D EA 0B 3A 20 20 20 99 20 A3 38 29 3B 22 DD 22 |=..: . .8);"."| 00002100: 3B 53 43 24 3B 22 20 20 20 20 20 20 20 20 20 20 |;SC$;" | 00002110: 20 20 20 20 20 20 20 20 20 20 20 20 92 97 DD 22 | ..."| 00002120: 00 49 3D F4 0B 3A 20 20 20 99 20 A3 38 29 3B 22 |.I=..: . .8);"| 00002130: CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00002140: C0 C0 C0 C0 C0 C0 C0 CB 22 00 8E 3D FE 0B 3A 20 |........"..=..: | 00002150: 20 20 8B 20 53 43 24 B2 22 1C 12 22 20 A7 20 53 | . SC$.".." . S| 00002160: 43 24 B2 22 9B 22 3A 20 89 20 33 30 39 30 20 20 |C$.".": . 3090 | 00002170: 3A 8F 20 41 4C 54 45 52 4E 41 54 45 20 42 45 54 |:. ALTERNATE BET| 00002180: 57 45 45 4E 20 49 4E 56 49 53 49 42 4C 45 00 DB |WEEN INVISIBLE..| 00002190: 3D 08 0C 3A 20 20 20 53 43 24 B2 22 1C 12 22 20 |=..: SC$.".." | 000021A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000021B0: 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 20 | :. | 000021C0: 20 4C 49 47 48 54 20 47 52 41 59 20 41 4E 44 20 | LIGHT GRAY AND | 000021D0: 52 45 44 20 52 45 56 45 52 53 45 00 1F 3E 12 0C |RED REVERSE..>..| 000021E0: 3A 20 20 20 9E 20 36 35 34 39 39 20 20 20 20 20 |: . 65499 | 000021F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002200: 20 20 20 20 20 20 20 3A 8F 20 49 4E 49 54 49 41 | :. INITIA| 00002210: 4C 49 5A 45 20 54 49 4D 45 2C 20 54 49 3D 30 00 |LIZE TIME, TI=0.| 00002220: 60 3E 1C 0C 3A 20 20 20 54 54 B2 54 49 20 20 20 |`>..: TT.TI | 00002230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002240: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 | :. | 00002250: 53 41 56 45 20 54 49 4D 45 52 20 56 41 4C 55 45 |SAVE TIMER VALUE| 00002260: 00 A0 3E 26 0C 3A 20 20 20 8B 20 54 49 AB 54 54 |..>&.: . TI.TT| 00002270: B3 33 30 20 A7 20 33 31 31 30 20 20 20 20 20 20 |.30 . 3110 | 00002280: 20 20 20 20 20 20 20 20 20 20 3A 8F 20 4C 4F 4F | :. LOO| 00002290: 50 20 46 4F 52 20 33 30 20 4A 49 46 46 49 45 53 |P FOR 30 JIFFIES| 000022A0: 00 DE 3E 30 0C 3A 20 20 20 89 20 32 39 37 30 20 |..>0.: . 2970 | 000022B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000022C0: 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 47 4F | :. GO| 000022D0: 20 52 45 54 52 59 20 50 4C 4F 54 54 45 52 00 09 | RETRY PLOTTER..| 000022E0: 3F 3A 0C 3A 20 8F 20 50 4C 4F 54 54 45 52 20 49 |?:.: . PLOTTER I| 000022F0: 53 20 50 52 45 53 45 4E 54 2C 20 4F 50 45 4E 20 |S PRESENT, OPEN | 00002300: 54 48 45 20 50 4F 52 54 53 00 44 3F 44 0C 3A 20 |THE PORTS.D?D.: | 00002310: 20 20 9F 20 31 2C 36 2C 31 20 20 20 20 20 20 20 | . 1,6,1 | 00002320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002330: 20 20 20 20 3A 8F 20 50 4C 4F 54 54 49 4E 47 20 | :. PLOTTING | 00002340: 50 4F 52 54 00 87 3F 4E 0C 3A 20 20 20 9F 20 32 |PORT..?N.: . 2| 00002350: 2C 36 2C 32 20 20 20 20 20 20 20 20 20 20 20 20 |,6,2 | 00002360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :| 00002370: 8F 20 50 45 4E 20 43 4F 4C 4F 52 20 53 45 4C 45 |. PEN COLOR SELE| 00002380: 43 54 20 50 4F 52 54 00 BF 3F 58 0C 3A 20 20 20 |CT PORT..?X.: | 00002390: 9F 20 34 2C 36 2C 30 20 20 20 20 20 20 20 20 20 |. 4,6,0 | 000023A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000023B0: 20 20 3A 8F 20 41 53 43 49 49 20 50 4F 52 54 00 | :. ASCII PORT.| 000023C0: F8 3F 62 0C 3A 20 99 20 22 93 22 20 20 20 20 20 |.?b.: . "." | 000023D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000023E0: 20 20 20 20 20 20 20 20 20 3A 8F 20 43 4C 45 41 | :. CLEA| 000023F0: 52 20 53 43 52 45 45 4E 00 00 40 6C 0C 3A 20 8E |R SCREEN..@l.: .| 00002400: 00 06 40 76 0C 3A 00 29 40 80 0C 8F 20 43 4C 45 |..@v.:.)@... CLE| 00002410: 41 52 20 42 49 54 4D 41 50 2C 20 54 45 58 54 20 |AR BITMAP, TEXT | 00002420: 41 4E 44 20 43 4F 4C 4F 52 00 64 40 8A 0C 3A 20 |AND COLOR.d@..: | 00002430: 8F 20 4C 4F 41 44 20 42 49 54 20 4D 41 50 20 43 |. LOAD BIT MAP C| 00002440: 4C 45 41 52 20 4D 41 43 48 49 4E 45 20 4C 41 4E |LEAR MACHINE LAN| 00002450: 47 55 41 47 45 20 41 4E 44 20 45 58 45 43 55 54 |GUAGE AND EXECUT| 00002460: 45 20 49 54 00 AF 40 94 0C 3A 20 20 20 4D 4C B2 |E IT..@..: ML.| 00002470: 34 39 31 35 32 20 20 20 20 20 20 20 20 20 20 20 |49152 | 00002480: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 | :. | 00002490: 4D 41 43 48 49 4E 45 20 4C 41 4E 47 55 41 47 45 |MACHINE LANGUAGE| 000024A0: 20 4D 45 4D 4F 52 59 20 41 44 44 52 45 53 53 00 | MEMORY ADDRESS.| 000024B0: E6 40 9E 0C 3A 20 20 20 81 20 49 B2 4D 4C 20 A4 |.@..: . I.ML .| 000024C0: 20 4D 4C AA 32 35 20 20 20 20 20 20 20 20 20 20 | ML.25 | 000024D0: 20 20 20 20 20 3A 8F 20 41 44 44 52 45 53 53 20 | :. ADDRESS | 000024E0: 4D 45 4D 4F 52 59 00 18 41 A8 0C 3A 20 20 20 20 |MEMORY..A..: | 000024F0: 20 87 20 41 20 20 20 20 20 20 20 20 20 20 20 20 | . A | 00002500: 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 52 | :. R| 00002510: 45 41 44 20 44 41 54 41 00 4B 41 B2 0C 3A 20 20 |EAD DATA.KA..: | 00002520: 20 20 20 97 20 49 2C 41 20 20 20 20 20 20 20 20 | . I,A | 00002530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F | :.| 00002540: 20 53 54 4F 52 45 20 44 41 54 41 00 55 41 BC 0C | STORE DATA.UA..| 00002550: 3A 20 20 20 82 00 97 41 C6 0C 3A 20 20 20 9E 20 |: ...A..: . | 00002560: 4D 4C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |ML | 00002570: 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 45 | :. E| 00002580: 58 45 43 55 54 45 20 4D 41 43 48 49 4E 45 20 4C |XECUTE MACHINE L| 00002590: 41 4E 47 55 41 47 45 00 B4 41 D0 0C 3A 20 8F 20 |ANGUAGE..A..: . | 000025A0: 54 55 52 4E 20 4F 4E 20 42 49 54 20 4D 41 50 20 |TURN ON BIT MAP | 000025B0: 4D 4F 44 45 00 F3 41 DA 0C 3A 20 20 20 56 43 B2 |MODE..A..: VC.| 000025C0: 35 33 32 34 38 20 20 20 20 20 20 20 20 20 20 20 |53248 | 000025D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 | :. | 000025E0: 41 44 44 52 45 53 53 20 4F 46 20 56 49 43 20 43 |ADDRESS OF VIC C| 000025F0: 48 49 50 00 35 42 E4 0C 3A 20 20 20 43 41 B2 35 |HIP.5B..: CA.5| 00002600: 36 35 37 36 20 20 20 20 20 20 20 20 20 20 20 20 |6576 | 00002610: 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 41 | :. A| 00002620: 44 44 52 45 53 53 20 4F 46 20 43 49 41 20 23 32 |DDRESS OF CIA #2| 00002630: 20 43 48 49 50 00 6D 42 EE 0C 3A 20 20 20 97 20 | CHIP.mB..: . | 00002640: 43 41 2C 28 C2 28 43 41 29 20 AF 20 32 35 32 29 |CA,(.(CA) . 252)| 00002650: 20 B0 20 32 20 3A 8F 20 52 45 4C 4F 43 41 54 45 | . 2 :. RELOCATE| 00002660: 20 48 49 52 45 53 20 53 43 52 45 45 4E 00 A0 42 | HIRES SCREEN..B| 00002670: F8 0C 3A 20 20 20 97 20 56 43 AA 32 34 2C C2 28 |..: . VC.24,.(| 00002680: 56 43 AA 32 34 29 20 B0 20 38 20 20 20 20 20 3A |VC.24) . 8 :| 00002690: 8F 20 4C 4F 43 41 54 45 20 42 49 54 20 4D 41 50 |. LOCATE BIT MAP| 000026A0: 00 D9 42 02 0D 3A 20 20 20 97 20 56 43 AA 31 37 |..B..: . VC.17| 000026B0: 2C C2 28 56 43 AA 31 37 29 20 B0 20 33 32 20 20 |,.(VC.17) . 32 | 000026C0: 20 20 3A 8F 20 54 55 52 4E 20 4F 4E 20 42 49 54 | :. TURN ON BIT| 000026D0: 20 4D 41 50 20 4D 4F 44 45 00 09 43 0C 0D 3A 20 | MAP MODE..C..: | 000026E0: 8F 20 49 4E 49 54 49 41 4C 49 5A 45 20 43 48 41 |. INITIALIZE CHA| 000026F0: 52 41 43 54 45 52 20 41 4E 44 20 43 4F 4C 4F 52 |RACTER AND COLOR| 00002700: 20 4D 45 4D 4F 52 49 45 53 00 41 43 16 0D 3A 20 | MEMORIES.AC..: | 00002710: 20 20 42 4F B2 30 20 20 20 20 20 20 20 20 20 20 | BO.0 | 00002720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002730: 20 20 3A 8F 20 42 4F 52 44 45 52 20 43 4F 4C 4F | :. BORDER COLO| 00002740: 52 00 7D 43 20 0D 3A 20 20 20 42 47 B2 31 20 20 |R.}C .: BG.1 | 00002750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002760: 20 20 20 20 20 20 20 20 20 20 3A 8F 20 42 41 43 | :. BAC| 00002770: 4B 47 52 4F 55 4E 44 20 43 4F 4C 4F 52 00 B9 43 |KGROUND COLOR..C| 00002780: 2A 0D 3A 20 20 20 46 47 B2 30 20 20 20 20 20 20 |*.: FG.0 | 00002790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000027A0: 20 20 20 20 20 20 3A 8F 20 46 4F 52 45 47 52 4F | :. FOREGRO| 000027B0: 55 4E 44 20 43 4F 4C 4F 52 00 F2 43 34 0D 3A 20 |UND COLOR..C4.: | 000027C0: 20 20 97 20 56 43 AA 33 32 2C 42 4F 20 20 20 20 | . VC.32,BO | 000027D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :| 000027E0: 8F 20 53 45 54 20 42 4F 52 44 45 52 20 43 4F 4C |. SET BORDER COL| 000027F0: 4F 52 00 2E 44 3E 0D 3A 20 20 20 81 20 49 B2 31 |OR..D>.: . I.1| 00002800: 37 34 30 38 20 A4 20 31 38 34 30 37 20 20 20 20 |7408 . 18407 | 00002810: 20 20 20 20 20 20 20 20 3A 8F 20 41 44 44 52 45 | :. ADDRE| 00002820: 53 53 20 54 45 58 54 20 4D 45 4D 4F 52 59 00 70 |SS TEXT MEMORY.p| 00002830: 44 48 0D 3A 20 20 20 20 20 97 20 49 2C 31 36 AC |DH.: . I,16.| 00002840: 46 47 AA 42 47 20 20 20 20 20 20 20 20 20 20 20 |FG.BG | 00002850: 20 20 20 20 3A 8F 20 50 4F 4B 45 20 48 49 47 48 | :. POKE HIGH| 00002860: 20 41 4E 44 20 4C 4F 57 20 4E 49 42 42 4C 45 53 | AND LOW NIBBLES| 00002870: 00 7A 44 52 0D 3A 20 20 20 82 00 82 44 5C 0D 3A |.zDR.: ...D\.:| 00002880: 20 8E 00 88 44 66 0D 3A 00 A4 44 70 0D 8F 20 4D | ...Df.:..Dp.. M| 00002890: 41 43 48 49 4E 45 20 4C 41 4E 47 55 41 47 45 20 |ACHINE LANGUAGE | 000028A0: 44 41 54 41 00 C4 44 7A 0D 3A 20 83 20 31 36 39 |DATA..Dz.: . 169| 000028B0: 2C 30 30 30 2C 31 33 33 2C 32 35 31 2C 31 36 39 |,000,133,251,169| 000028C0: 2C 30 39 36 00 E4 44 84 0D 3A 20 83 20 31 33 33 |,096..D..: . 133| 000028D0: 2C 32 35 32 2C 31 36 32 2C 30 33 32 2C 31 36 30 |,252,162,032,160| 000028E0: 2C 30 30 30 00 04 45 8E 0D 3A 20 83 20 31 35 32 |,000..E..: . 152| 000028F0: 2C 31 34 35 2C 32 35 31 2C 32 30 30 2C 32 30 38 |,145,251,200,208| 00002900: 2C 32 35 31 00 24 45 98 0D 3A 20 83 20 32 30 32 |,251.$E..: . 202| 00002910: 2C 32 34 30 2C 30 30 34 2C 32 33 30 2C 32 35 32 |,240,004,230,252| 00002920: 2C 32 30 38 00 34 45 A2 0D 3A 20 83 20 32 34 34 |,208.4E..: . 244| 00002930: 2C 30 39 36 00 00 00 |,096... |
..$...." ..........................G..
.." . PROGRAM LINE INDEX ..J...."
..........................P...:.....: .
1270 :. SET UP SID REGISTERS FOR BELL
SOUND AT 880 HERTZ.Z...: . 1340 :. SET
TEXT SCREEN COLORS...$.: . 1400 :. GET
USER INPUTS.....: . 1730 :. SET UP OUTP
UTS.R.8.: . 1770 :. DEFINE IMAGE FIELD
LIMITS AND SCALING.T.B.: . 1920 :. FIND
FIRST POINT...L.: . 2050 :. FIND NEXT
CLOCKWISE POINT...V.: . 2130 :. FOLLOW
CURVE...`.: . 2250 :. DO NEXT CURVE...J
.: . 2320 :. ALL DONE.'.T.: . 2450 :. F
IND DWELL COUNT FOR POINT NX,NY.N.~.: .
2590 :. TURN ON PIXEL AT NX,NY.Q...: . 2
740 :. PLOT LINE TO NX,NY.....: . 2840 :
. SOUND BELL.....: . 2950 :. SET UP PLOT
TER.X...: . 3220 :. CLEAR BITMAP, TEXT A
ND COLOR.....: . 3450 :. MACHINE LANGUA
GE DATA.....:.(.D.." .................
.........K.N.." . INITIALIZATION
..N.X.." ..........................T
...:...... SET UP SID REGISTERS FOR BELL
SOUND AT 880 HERTZ.U...: SD.54272 :
. ADDRESS OF SID CHIP.. ..: . SD, 100 :.
VOICE 1 FREQUENCY, LOW BYTE.4 ..: . SD.
1,56 :. VOICE 1 FREQUENCY, HIGH BYTE.I .
.: . SD.5, 8 :. VOICE 1 ATTACK=0 MS, DEC
AY=100 MS.. ..: . SD.6, 9 :. VOICE 1 SUS
TAIN=0, RELEASE=750 MS.. (.:.A 2.. SET T
EXT SCREEN COLORS.. <.: . 53280,12 :. BO
RDER.. F.: . 53281,15 :. BACKGROUND..!P.
: . "." :. CHARACTER..!Z.:.4!D.. GET
USER INPUTS.\!N.: . CLEAR SCREEN AND DI
SPLAY BANNER.K!X.: . ".."..!..: . "
...................................".Q
!..: . " .. MANDELBROT SET CURVE FO
LLOWER .".."..: . " ................
...................".." .: . SELECT OUTP
UT.R"..: . ".. SELECT .P.LOTTER, .S.
CREEN, OR .B.OTH:".."..: . ". ENTE
R .P., .S., OR .B. ...";IN$.."..: .
IN$."P" . P..1 :. 1520 :. PLOTTER
OUTPUT.."H.: . IN$."S" . S..1 :
. 1520 :. SCREEN OUTPUT.&#R.: . IN$."B
" . S..1 :P..1 :. 1520 :. BOTH.Z#..: .
"..." :. 2840 :. 1460 :. INVALID INP
UT.P#..: . SELECT CURVES..#..: . ".
SELECT CURVE NUMBERS .2. TO .20.:"..#..:
IN$."" :. ". ENTER FIRST CURVE NU
MBER ....";IN$..#..: FC.E(IN$).%$.
.: . FC.2 . FC.20 . . "..." :. 2840 :.
1530.D$..: IN$."" :. " ENTER LAST
CURVE NUMBER ....";IN$.V$".: LC.
E(IN$)..$,.: . LC.FC . LC.2 . LC.20 .
. ".." :. 2840 :. 1560.I$6.: . SELECT PE
N OPTIONS..$@.: . . P . 1730 :. PLOT
TER NOT USED..%J.: . LC.FC.0 . 1660 :.
ONLY ONE CURVE.O%T.: . ". CYCLE PEN
COLORS .Y.ES OR .N.O:".}%^.: . ".
ENTER .Y. OR .N. ...";IN$..%H.: .
IN$.."Y" . IN$.."N" . . "..." :. 2840 :.
1630..%R.: . IN$."Y" . C..1 :S$."FIRS
T "..&|.: . ". .0.=.BLACK. .1.=.BL
UE. .2.=.GREEN. .3.=.RED.".B&..: I
N$."" :. ". ENTER "S$"PEN COLOR NUMB
ER ..."; :. IN$.Y&..: IN.F(IN$.G(0)
)..&..: . IN.48 . IN.51 . . "..." :. 2
840 :. 1670..&..: PC.IN.48.B&..:.W&...
SET UP OUTPUTS..&B.: . P . . 2950 :. SE
T UP PLOTTER. 'L.: . S . . 3220 :. SET U
P SCREEN.&'V.:.R'... DEFINE IMAGE FIELD
LIMITS AND SCALING.Y'..: LR..2
:. LOW REAL..'..: HR. 2
:. HIGH REAL.Y'..: . FC.3 . HR.1
:. ADJUST SCALING FOR CURVE SIZE..(..:
. FC.3 . HR.2.3 :. " " "
" ".B(..: IR..(LR.HR).2 :. CENT
ER IMAGINARY RANGE.N(..: LI..IR
:. LOW IMAGINARY..(&.: HI. IR
:. HIGH IMAGINARY.I(0.: DR..(L
R.HR).480 :. REAL AXIS SCALING..(:.:
DI..(LI.HI).480 :. IMAGINARY AXIS SCA
LING..)D.:.%)N.." ....................
......H)X.." . MAIN PROGRAM .
.K)B.." ..........................Q)L.
:..)V.. FIND FIRST POINT.H)..: DL.FC
:. INITIAL DWELL COU
NT LIMIT..*..: NX.0 :NY.240
:. SEARCH START POINT.<*..: NX.NX.1
:. SEARCH LEFT TO R
IGHT.N*..: . NX.479 . 2250 :. C
URVE NOT FOUND..*..: . 2450
:. FIND DWELL COUNT.P*..: . DC.DL
. 1940 :. NOT ON CURVE..+..: S
X.NX :SY.NY :. START POI
NT OF THIS CURVE.O+F.: CX.NX :CY.NY
:. MAKE FIRST POINT CURRENT.
.+P.: OX.NX.1 :OY.NY :. DU
MMY PREVIOUS POINT..+Z.: . P . .1,"M",NX
;.NY :. MOVE TO FIRST POINT..+..: . P .
.2,PC :. SELECT PEN COLOR..+..:.
.,... FIND NEXT CLOCKWISE POINT.R,..: DX
.OX.CX :DY.OY.CY :. OFFSETS
OF PREVIOUS POINT..,..: . DX.0 . DX..D
Y :. 2100 :. MOVE LEFT/RIGHT FROM CENTER
.K,..: . DY.0 . DY.DX :. 2100 :. MOVE
UP/DOWN FROM CENTER..- .: . DX.DY . DX.0
:. 2100 :. MOVE LEFT/RIGHT FROM CORNE
R.K-*.: DY.0
:. MOVE UP/DOWN FROM CORNER..-4.: NX.CX.
DX :NY.CY.DY :. COORDINATES
OF NEW POINT..->.:..-H.. FOLLOW CURVE.Y
-R.: . 2450 :. FIND DW
ELL COUNT...\.: . DC..DL . 2180
:. CURVE FOUND.F.F.: OX.NX :OY.NY
:. SAVE LAST POINT EXAMINED..
.P.: DX.NX.CX :DY.NY.CY :. DET
ERMINE OFFSETS FROM CURRENT POINT.D.Z.:
. 2060 :. TEST NEXT P
OINT.....: . S . . 2590 :. TURN
ON PIXEL../..: . P . . 2740 :. D
RAW LINE.S/..: CX.NX :CY.NY
:. NEW POINT TO CURRENT../..: . NX.S
X . NY.SY . 2250 :. START NEXT CURVE../.
.: . 2050 :. GET NEXT
POINT../..:.P/... DO NEXT CURVE..0J.: D
L.DL.1 :. DETERMINE NEXT CURV
E DWELL COUNT LIMIT.C0T.: . DL.LC . 2320
:. IF LAST CURVE THEN DONE.L0..: . C .
PC.PC.1 :. CYCLE PEN COLORS..0..: . PC.
3 . PC.0 :. " " "..0..: . 1930
:. GO SEARCH FOR CURVE.E0..:.T0
... ALL DONE..0..: . . P . 2370 :. PLOTT
ER NOT USED. 1..: .1,"M",0,.540 :. EJECT
DRAWING.D1$.: .4 :. SET NEW
HOME.P1..: 1 :. CLOSE PLOTT
ING PORT..18.: 4 :. CLOSE A
SCII PORT..1B.: . 2840 :. RING B
ELL.C1L.: ..I1V.:..1`.." .............
..............2J.." . PROGRAM SUBROUT
INES ..22T.." .......................
...82~.:.[2... FIND COUNT J FOR POINT NX
,NY..2..: CI.LI.NY.DI :. CURRE
NT POINT IMAGINARY VALUE.P2..: CR.LR.NX.
DR :. CURRENT POINT REAL VALUE
..2..: DC.0 :ZR.0 :ZI.0 :. INITIALI
ZE.%3..: DC.DC.1 :. DWELL
COUNT.P3..: RP.ZR.ZR.ZI.ZI.CR :. Z R
EAL PART..3D.: IP.2.ZR.ZI.CI :.
Z IMAGINARY PART..3N.: MZ..(RP.RP.IP.I
P) :. Z MAGNITUDE.O3X.: . MZ..2 . 2550
:. NOT IN SET..3..: ZR.RP :ZI.IP
:. FEEDBACK Z.*4..: . DC.DL . 2480
:. NOT DWELL COUNT LIMIT.A4..: .
:. RETURN DWELL COUNT TO CALLE
R.G4..:..4... TURN ON PIXEL AT NX,NY..4.
.: . CONVERT PLOTTER COORDINATES TO SCRE
EN COORDINATES..4..: YP..(NY.200.480)
:. VERTICAL POSITION.+5(.: .
YP.0 . YP.0 :. LIMIT TOP POSIT
ION.D52.: . YP.199 . YP.199 :. L
IMIT BOTTOM POSITION..5<.: XP..(NX.320
.480) :. HORIZONTAL POSITION.T5
F.: . XP.0 . XP.0 :. LIMIT L
EFT POSITION..6P.: . XP.319 . XP.319
:. LIMIT RIGHT POSITION./6Z.: . FIN
D SCREEN PIXEL POSITION.]6D.: VP..(YP.
8).320.(YP . 7) :. SCREEN ROW..6N.: HP
..(XP.8).8 :. SCREEN COLUMN
.O6X.: BP.7.(XP . 7) :. BI
T POSITION IN CHARACTER..7..: SP.24576
.VP.HP :. SCREEN MEMORY ADD
RESS.:7..: . SP,B(SP) . 2.BP :. TUR
N ON PIXEL.B7..: ..H7 .:.A7... PLOT LINE
TO NX,NY..7..: YP.NY :.
GET VERTICAL POSITION.D7..: . YP.0 . YP
.0 :. LIMIT TOP POSITION..7H.: . YP.
479 . YP.479 :. LIMIT BOTTOM POSITION.,8
R.: XP.NX :. GET HORIZON
TAL POSITION.[8..: . XP.0 . XP.0 :.
LIMIT LEFT POSITION..8..: . XP.479 . XP.
479 :. LIMIT RIGHT POSITION..8..: .1,"D"
,XP;.YP :. DRAW LINE..8..: ...8..:.Y8
... SOUND BELL SUBROUTINE."9..: . SD .4,
17 :. VOICE 1 START ATTACK/DECAY
/SUSTAIN, TRIANGLE.C9".: . SD .4,16
:. VOICE 1 START RELEASE, TRIANGLE W
AVE..9,.: . SD.24,15 :. VOICE 1
VOLUME HIGH.F96.: . 65499 :.
INITIALIZE TIME, TI=0..9@.: TT.TI
:. SAVE TIMER VALUE.&:J.: . T
I.TT.30 . 2890 :. DELAY FOR 30 JIFFIES.U
:T.: . SD.24,0 :. VOICE 1 VOLUM
E OFF.]:^.: ..C:H.:.X:R.. SET UP PLOTTER
..:|.: . TEST IF PLOTTER PRESENT.T:..:
. "..............." :. POS
ITION CURSOR..;..: SC$.".."
:. RED REVERSE VIDEO.S
;..: . 4,6,0
:. OPEN ASCII PORT..;..: 4
:. CLOSE PORT, ST=0
IF PRESENT..;..: . ST.0 . 3140
:. GO OPEN PRINTER PORTS. <
..: . BL.0 . BL.1: . 2840 :. SO
UND BELL, ONCE IS ENOUGH.A<B.: . "....
.." :. CURSOR UP T
O OVERLAY..<L.: . .8);"U..............
........I"..<V.: . .8);".";SC$;"
..."..<..: . .8);".";S
C$;" MAKE PLOTTER READY ...". =..: .
.8);".";SC$;" ..."
.I=..: . .8);"J......................K
"..=..: . SC$.".." . SC$.".": . 3090
:. ALTERNATE BETWEEN INVISIBLE..=..: S
C$.".." :.
LIGHT GRAY AND RED REVERSE..>..: . 65
499 :. INITIA
LIZE TIME, TI=0.`>..: TT.TI
:. SAVE TIMER VALUE
. >&.: . TI.TT.30 . 3110
:. LOOP FOR 30 JIFFIES..>0.: . 2970
:. GO RETRY P
LOTTER..?:.: . PLOTTER IS PRESENT, OPEN
THE PORTS.D?D.: . 1,6,1
:. PLOTTING PORT..?N.: . 2
,6,2 :. PEN CO
LOR SELECT PORT..?X.: . 4,6,0
:. ASCII PORT..?B.: .
"." :. CLEA
R SCREEN..@L.: ...@V.:.)@... CLEAR BITMA
P, TEXT AND COLOR.D@..: . LOAD BIT MAP C
LEAR MACHINE LANGUAGE AND EXECUTE IT..@.
.: ML.49152 :.
MACHINE LANGUAGE MEMORY ADDRESS..@..:
. I.ML . ML.25 :. ADDRESS
MEMORY..A..: . A
:. READ DATA.KA..: . I,A
:. STORE DATA.UA..: ...A
F.: . ML :. E
XECUTE MACHINE LANGUAGE..AP.: . TURN ON
BIT MAP MODE..AZ.: VC.53248
:. ADDRESS OF VIC CHIP.5B..
: CA.56576 :. A
DDRESS OF CIA #2 CHIP.MB..: . CA,(B(CA
) . 252) . 2 :. RELOCATE HIRES SCREEN. B
..: . VC.24,B(VC.24) . 8 :. LOCATE
BIT MAP.YB..: . VC.17,B(VC.17) . 32
:. TURN ON BIT MAP MODE..C..: . INITIA
LIZE CHARACTER AND COLOR MEMORIES.AC..:
BO.0 :. BOR
DER COLOR.}C .: BG.1
:. BACKGROUND COLOR..C*.: FG
.0 :. FOREGRO
UND COLOR..C4.: . VC.32,BO
:. SET BORDER COLOR..D>.: . I.1
7408 . 18407 :. ADDRESS TEXT
MEMORY.PDH.: . I,16.FG.BG
:. POKE HIGH AND LOW NIBBLES.ZDR.:
...D\.: ...DF.:..DP.. MACHINE LANGUAGE
DATA.DDZ.: . 169,000,133,251,169,096..D.
.: . 133,252,162,032,160,000..E..: . 152
,145,251,200,208,251.$E..: . 202,240,004
,230,252,208.4E..: . 244,096...
> CLICK IMAGE PREVIEW FOR FULL MODAL