PERGEO
FILE INFORMATION
FILENAME(S): PERGEO
FILE TYPE(S): PRG
FILE SIZE: 11K
FIRST SEEN: 2025-10-20 14:30:58
APPEARS ON: 3 disk(s)
FILE HASH
dc6661f8c2dbdc50bfbd17561b4159d1ad890605f84ee8d9a15b6422ec4bfa6d
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| WOLF S SOFT C020 | PERGEO | PRG | Treasure Chest - Klaus Der Suhler | 21 | 5 | DOWNLOAD FILE |
| C128 Z004 | PERGEO | PRG | Treasure Chest - Plattfuss | 21 | 0 | DOWNLOAD FILE |
| 18 | PERGEO | PRG | Treasure Chest - Plattfuss | 11 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 30 1C 0A 00 FE 15 3A E7 31 2C 32 3A 8B 20 |..0.....:.1,2:. | 00000010: 49 50 B2 31 A7 33 36 30 3A D5 49 50 B2 31 3A E8 |IP.1.360:.IP.1:.| 00000020: 30 3A E7 30 2C 37 3A E7 34 2C 37 3A E7 35 2C 32 |0:.0,7:.4,7:.5,2| 00000030: 00 55 1C 14 00 8F 20 2A 2A 2A 20 44 45 46 49 4E |.U.... *** DEFIN| 00000040: 49 4E 47 20 54 48 45 20 46 55 4E 43 54 49 4F 4E |ING THE FUNCTION| 00000050: 20 4B 45 59 53 00 73 1C 1E 00 58 B2 30 3A 81 59 | KEYS.s...X.0:.Y| 00000060: B2 31 A4 38 3A F9 59 2C C9 28 C4 28 59 29 2C 31 |.1.8:.Y,.(.(Y),1| 00000070: 29 3A 82 00 95 1C 28 00 E8 3A 81 58 B2 31 A4 38 |):....(..:.X.1.8| 00000080: 3A FE 07 58 2C 30 3A 82 3A 99 C7 28 31 34 29 3A |:..X,0:.:..(14):| 00000090: 99 C7 28 38 29 00 0A 1D 32 00 4D 24 B2 22 D0 45 |..(8)...2.M$.".E| 000000A0: 52 53 50 45 43 54 49 56 45 20 C7 45 4F 4D 45 54 |RSPECTIVE .EOMET| 000000B0: 52 59 20 D4 4F 4F 4C 22 3A 8D 31 35 30 30 3A 99 |RY .OOL":.1500:.| 000000C0: 22 9B 22 3A 4D 24 B2 22 2D 20 41 20 47 52 41 50 |".":M$."- A GRAP| 000000D0: 48 49 43 53 20 55 54 49 4C 49 54 59 20 46 4F 52 |HICS UTILITY FOR| 000000E0: 20 54 48 45 20 2D 22 3A 8D 31 35 30 30 3A 4D 24 | THE -":.1500:M$| 000000F0: B2 22 2D 20 C3 4F 4D 4D 4F 44 4F 52 45 20 31 32 |."- .OMMODORE 12| 00000100: 38 20 2D 22 3A 8D 31 35 30 30 00 3B 1D 3C 00 8C |8 -":.1500.;.<..| 00000110: 37 30 3A 53 50 24 B2 22 22 3A 81 58 B2 31 A4 36 |70:SP$."":.X.1.6| 00000120: 37 3A 87 59 3A 53 50 24 B2 53 50 24 AA C7 28 59 |7:.Y:SP$.SP$..(Y| 00000130: 29 3A 82 3A FE 16 53 50 24 2C 38 00 C1 1D 46 00 |):.:..SP$,8...F.| 00000140: 83 32 34 30 2C 32 35 35 2C 32 35 35 2C 32 34 30 |.240,255,255,240| 00000150: 2C 32 35 35 2C 32 35 35 2C 32 34 30 2C 32 35 35 |,255,255,240,255| 00000160: 2C 32 35 35 2C 32 34 30 2C 32 34 30 2C 31 35 2C |,255,240,240,15,| 00000170: 32 34 30 2C 32 34 30 2C 31 35 2C 32 34 30 2C 32 |240,240,15,240,2| 00000180: 34 30 2C 31 35 2C 32 34 30 2C 32 35 35 2C 31 35 |40,15,240,255,15| 00000190: 2C 32 34 30 2C 32 35 35 2C 31 35 2C 32 34 30 2C |,240,255,15,240,| 000001A0: 32 35 35 2C 31 35 2C 32 34 30 2C 30 2C 31 35 2C |255,15,240,0,15,| 000001B0: 32 34 30 2C 30 2C 31 35 2C 32 34 30 2C 30 2C 31 |240,0,15,240,0,1| 000001C0: 35 00 30 1E 50 00 83 32 34 30 2C 32 35 35 2C 31 |5.0.P..240,255,1| 000001D0: 35 2C 32 34 30 2C 32 35 35 2C 31 35 2C 32 34 30 |5,240,255,15,240| 000001E0: 2C 32 35 35 2C 31 35 2C 32 34 30 2C 31 35 2C 31 |,255,15,240,15,1| 000001F0: 35 2C 32 34 30 2C 31 35 2C 31 35 2C 32 34 30 2C |5,240,15,15,240,| 00000200: 31 35 2C 31 35 2C 32 35 35 2C 32 35 35 2C 31 35 |15,15,255,255,15| 00000210: 2C 32 35 35 2C 32 35 35 2C 31 35 2C 32 35 35 2C |,255,255,15,255,| 00000220: 32 35 35 2C 31 35 2C 32 33 2C 30 2C 32 30 2C 30 |255,15,23,0,20,0| 00000230: 00 58 1E 5A 00 FE 07 38 2C 30 2C 32 2C 31 2C 31 |.X.Z...8,0,2,1,1| 00000240: 2C 31 2C 30 3A FE 06 38 2C 31 36 34 2C 31 32 30 |,1,0:..8,164,120| 00000250: 3A FE 07 38 2C 31 2C 32 00 CD 1E 64 00 99 22 99 |:..8,1,2...d..".| 00000260: 11 11 11 11 11 11 11 11 22 3A 4D 24 B2 22 C3 53 |........":M$.".S| 00000270: 56 44 46 21 C3 50 58 45 46 4F 21 C9 46 56 53 4A |VDF!.PXEFO!.FVSJ| 00000280: 54 55 4A 44 54 22 3A 8D 31 34 38 30 3A 4D 24 B2 |TUJDT":.1480:M$.| 00000290: 22 34 32 32 31 C3 21 CD 42 58 4F 45 42 4D 46 21 |"4221.!.BXOEBMF!| 000002A0: C5 53 4A 57 46 22 3A 8D 31 34 38 30 3A 4D 24 B2 |.SJWF":.1480:M$.| 000002B0: 22 C8 53 46 46 4F 54 43 50 53 50 2D 21 CF C4 21 |".SFFOTCPSP-!..!| 000002C0: 21 33 38 35 31 39 22 3A 8D 31 34 38 30 00 29 1F |!38519":.1480.).| 000002D0: 6E 00 4D 24 B2 22 C4 50 4E 51 56 D4 46 53 57 46 |n.M$.".PNQV.FSWF| 000002E0: 21 CA C5 21 24 38 35 32 38 37 2D 33 32 35 35 22 |!..!$85287-3255"| 000002F0: 3A 8D 31 34 38 30 3A 4D 24 B2 22 42 4F 45 21 38 |:.1480:M$."BOE!8| 00000300: 33 33 33 38 2D 33 32 31 35 22 3A 8D 31 34 38 30 |3338-3215":.1480| 00000310: 3A 8D 31 38 37 30 3A 86 41 28 35 30 30 2C 36 29 |:.1870:.A(500,6)| 00000320: 2C 42 28 35 30 30 2C 32 29 00 38 1F 78 00 E7 35 |,B(500,2).8.x..5| 00000330: 2C 31 3A 8D 31 31 39 30 00 6C 1F 82 00 FE 07 38 |,1:.1190.l.....8| 00000340: 2C 30 3A FE 06 38 2C 33 31 35 2C 32 32 30 3A E7 |,0:..8,315,220:.| 00000350: 30 2C 31 3A E7 34 2C 31 3A E7 35 2C 31 35 3A FE |0,1:.4,1:.5,15:.| 00000360: 07 38 2C 31 2C 37 2C 31 2C 30 2C 30 00 B6 1F 8C |.8,1,7,1,0,0....| 00000370: 00 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.. -------------| 00000380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000390: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000003A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000003B0: 2D 2D 2D 2D 2D 2D 00 24 20 96 00 99 22 11 11 22 |------.$ ...".."| 000003C0: 3A 4D 24 B2 22 D0 52 45 53 53 20 22 AA C7 28 33 |:M$.".RESS "..(3| 000003D0: 34 29 AA 22 C9 22 AA C7 28 33 34 29 AA 22 20 54 |4)."."..(34)." T| 000003E0: 4F 20 53 45 45 20 54 48 45 20 C9 4E 54 52 4F 44 |O SEE THE .NTROD| 000003F0: 55 43 54 49 4F 4E 22 3A 8D 31 35 30 30 3A 4D 24 |UCTION":.1500:M$| 00000400: B2 22 28 41 4E 59 20 4F 54 48 45 52 20 4B 45 59 |."(ANY OTHER KEY| 00000410: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 29 22 3A 8D | TO CONTINUE)":.| 00000420: 31 35 30 30 00 3A 20 A0 00 A1 F9 41 24 3A 8B 41 |1500.: ....A$:.A| 00000430: 24 B3 B1 22 49 22 A7 32 37 30 00 84 20 AA 00 8F |$.."I".270.. ...| 00000440: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------| 00000450: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000460: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000470: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000480: 2D 2D 2D 2D 00 E9 20 B4 00 99 22 93 11 22 3A 4D |----.. ..."..":M| 00000490: 24 B2 22 D4 48 45 20 D0 45 52 53 50 45 43 54 49 |$.".HE .ERSPECTI| 000004A0: 56 45 20 C7 45 4F 4D 45 54 52 59 20 D0 52 4F 47 |VE .EOMETRY .ROG| 000004B0: 52 41 4D 22 3A 8D 31 35 30 30 3A 4D 24 B2 22 43 |RAM":.1500:M$."C| 000004C0: 52 45 41 54 45 53 20 41 20 48 49 47 48 2D 52 45 |REATES A HIGH-RE| 000004D0: 53 4F 4C 55 54 49 4F 4E 20 44 45 50 49 43 54 49 |SOLUTION DEPICTI| 000004E0: 4F 4E 22 3A 8D 31 35 30 30 00 17 21 BE 00 4D 24 |ON":.1500..!..M$| 000004F0: B2 22 4F 46 20 4F 42 4A 45 43 54 53 20 49 4E 20 |."OF OBJECTS IN | 00000500: 54 52 55 45 20 50 45 52 53 50 45 43 54 49 56 45 |TRUE PERSPECTIVE| 00000510: 22 3A 8D 31 35 30 30 00 75 21 C8 00 4D 24 B2 22 |":.1500.u!..M$."| 00000520: D4 48 45 20 4F 42 4A 45 43 54 53 20 54 4F 20 42 |.HE OBJECTS TO B| 00000530: 45 20 44 45 50 49 43 54 45 44 20 4D 55 53 54 20 |E DEPICTED MUST | 00000540: 42 45 22 3A 8D 31 35 30 30 3A 4D 24 B2 22 44 45 |BE":.1500:M$."DE| 00000550: 46 49 4E 45 44 20 42 59 20 47 49 56 49 4E 47 20 |FINED BY GIVING | 00000560: 54 48 45 20 C3 41 52 54 45 53 49 41 4E 2C 22 3A |THE .ARTESIAN,":| 00000570: 8D 31 35 30 30 00 CC 21 D2 00 4D 24 B2 22 43 4F |.1500..!..M$."CO| 00000580: 4F 52 44 49 4E 41 54 45 53 20 4F 46 20 54 48 45 |ORDINATES OF THE| 00000590: 49 52 20 56 45 52 54 49 43 45 53 22 3A 8D 31 35 |IR VERTICES":.15| 000005A0: 30 30 3A 4D 24 B2 22 28 43 4F 52 4E 45 52 53 29 |00:M$."(CORNERS)| 000005B0: 20 41 4E 44 20 53 50 45 43 49 46 59 49 4E 47 20 | AND SPECIFYING | 000005C0: 57 48 49 43 48 22 3A 8D 31 35 30 30 00 20 22 DC |WHICH":.1500. ".| 000005D0: 00 4D 24 B2 22 56 45 52 54 49 43 45 53 20 41 52 |.M$."VERTICES AR| 000005E0: 45 20 43 4F 4E 4E 45 43 54 45 44 2E 22 3A 8D 31 |E CONNECTED.":.1| 000005F0: 35 30 30 3A 4D 24 B2 22 C1 44 44 49 54 49 4F 4E |500:M$.".DDITION| 00000600: 41 4C 4C 59 2C 20 41 20 C3 41 52 54 45 53 49 41 |ALLY, A .ARTESIA| 00000610: 4E 20 56 41 4E 54 41 47 45 22 3A 8D 31 35 30 30 |N VANTAGE":.1500| 00000620: 00 4E 22 E6 00 4D 24 B2 22 50 4F 49 4E 54 20 49 |.N"..M$."POINT I| 00000630: 53 20 52 45 51 55 49 52 45 44 20 46 4F 52 20 56 |S REQUIRED FOR V| 00000640: 49 45 57 49 4E 47 2E 22 3A 8D 31 35 30 30 00 A7 |IEWING.":.1500..| 00000650: 22 F0 00 99 22 11 11 22 3A 4D 24 B2 22 C1 20 44 |"..."..":M$.". D| 00000660: 49 53 4B 20 44 52 49 56 45 20 44 45 56 49 43 45 |ISK DRIVE DEVICE| 00000670: 20 4E 55 4D 42 45 52 20 4F 46 22 3A 8D 31 35 30 | NUMBER OF":.150| 00000680: 30 3A 4D 24 B2 22 38 20 49 53 20 55 53 45 44 20 |0:M$."8 IS USED | 00000690: 42 59 20 54 48 49 53 20 50 52 4F 47 52 41 4D 2E |BY THIS PROGRAM.| 000006A0: 22 3A 8D 31 35 30 30 00 B7 22 FA 00 99 22 11 11 |":.1500.."..."..| 000006B0: 22 3A 8D 31 31 39 30 00 01 23 04 01 8F 20 2D 2D |":.1190..#... --| 000006C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000006D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000006E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000006F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000700: 2D 00 6D 23 0E 01 99 22 93 11 11 22 3A 4D 24 B2 |-.m#..."...":M$.| 00000710: 22 D0 52 45 53 53 20 22 AA C7 28 33 34 29 AA 22 |".RESS "..(34)."| 00000720: C4 22 AA C7 28 33 34 29 AA 22 20 54 4F 20 53 45 |."..(34)." TO SE| 00000730: 45 20 54 48 45 20 C4 45 4D 4F 22 3A 8D 31 35 30 |E THE .EMO":.150| 00000740: 30 3A 4D 24 B2 22 28 41 4E 59 20 4F 54 48 45 52 |0:M$."(ANY OTHER| 00000750: 20 4B 45 59 20 46 4F 52 20 4D 41 49 4E 20 50 52 | KEY FOR MAIN PR| 00000760: 4F 47 52 41 4D 29 22 3A 8D 31 35 30 30 00 8A 23 |OGRAM)":.1500..#| 00000770: 18 01 A1 F9 41 24 3A 8B 41 24 B3 B1 22 44 22 A7 |....A$:.A$.."D".| 00000780: 32 39 30 3A D5 89 31 37 34 30 00 08 24 22 01 E8 |290:..1740..$"..| 00000790: 3A 99 22 11 11 22 3A 4D 24 B2 22 D4 4F 20 4C 4F |:."..":M$.".O LO| 000007A0: 41 44 20 41 4E 20 41 4C 52 45 41 44 59 2D 53 41 |AD AN ALREADY-SA| 000007B0: 56 45 44 20 50 49 43 54 55 52 45 2C 22 3A 8D 31 |VED PICTURE,":.1| 000007C0: 35 30 30 3A 4D 24 B2 22 50 52 45 53 53 20 CC 2E |500:M$."PRESS ..| 000007D0: 22 3A 8D 31 35 30 30 3A 4D 24 B2 22 CF 54 48 45 |":.1500:M$.".THE| 000007E0: 52 57 49 53 45 2C 20 50 52 45 53 53 20 41 4E 59 |RWISE, PRESS ANY| 000007F0: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE| 00000800: 2E 22 3A 8D 31 35 30 30 00 1F 24 2C 01 A1 F9 41 |.":.1500..$,...A| 00000810: 24 3A 8B 41 24 B3 B1 22 4C 22 A7 31 32 32 30 00 |$:.A$.."L".1220.| 00000820: 69 24 36 01 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |i$6.. ----------| 00000830: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000840: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000850: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000860: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 88 24 40 01 8F 20 |---------..$@.. | 00000870: 2A 2A 2A 20 4C 4F 41 44 20 50 49 43 54 55 52 45 |*** LOAD PICTURE| 00000880: 20 52 4F 55 54 49 4E 45 00 D4 24 4A 01 99 22 93 | ROUTINE..$J..".| 00000890: 11 11 22 3A FE 0C 22 50 47 2E 2A 22 3A 99 22 11 |..":.."PG.*":.".| 000008A0: 11 96 D7 48 41 54 20 49 53 20 54 48 45 20 50 49 |...HAT IS THE PI| 000008B0: 43 54 55 52 45 20 4E 41 4D 45 3F 9A 22 3A 85 4E |CTURE NAME?.":.N| 000008C0: 41 24 3A 8B 4E 41 24 B2 22 22 A7 32 37 30 3A D5 |A$:.NA$."".270:.| 000008D0: DE 31 2C 31 00 F1 24 54 01 8B C8 28 4E 41 24 2C |.1,1..$T...(NA$,| 000008E0: 33 29 B2 22 50 47 2E 22 A7 93 4E 41 24 2C 38 2C |3)."PG."..NA$,8,| 000008F0: 31 00 0C 25 5E 01 4E 41 24 B2 22 50 47 2E 22 AA |1..%^.NA$."PG.".| 00000900: 4E 41 24 3A 93 4E 41 24 2C 38 2C 31 00 49 25 68 |NA$:.NA$,8,1.I%h| 00000910: 01 41 24 B2 22 20 20 20 20 20 53 54 41 4E 44 42 |.A$." STANDB| 00000920: 59 2E 2E 2E 20 47 45 54 54 49 4E 47 20 44 41 54 |Y... GETTING DAT| 00000930: 41 20 46 49 4C 45 20 20 20 20 20 22 3A E0 31 2C |A FILE ":.1,| 00000940: 31 2C 32 34 2C 41 24 2C 30 00 82 25 72 01 58 58 |1,24,A$,0..%r.XX| 00000950: B2 C3 28 4E 41 24 29 AB 33 3A 4D 24 B2 22 50 44 |..(NA$).3:M$."PD| 00000960: 2E 22 AA C9 28 4E 41 24 2C 58 58 29 3A 9F 39 2C |."..(NA$,XX):.9,| 00000970: 38 2C 37 2C 22 30 3A 22 AA 4D 24 AA 22 2C 53 2C |8,7,"0:".M$.",S,| 00000980: 52 22 00 E2 25 7C 01 84 39 2C 56 3A 84 39 2C 53 |R"..%|..9,V:.9,S| 00000990: 3A 81 58 58 B2 31 A4 56 3A 81 59 59 B2 31 A4 33 |:.XX.1.V:.YY.1.3| 000009A0: 3A 84 39 2C 41 28 58 58 2C 59 59 29 3A 82 3A 82 |:.9,A(XX,YY):.:.| 000009B0: 3A 81 58 58 B2 31 A4 53 3A 84 39 2C 42 28 58 58 |:.XX.1.S:.9,B(XX| 000009C0: 2C 31 29 3A 84 39 2C 42 28 58 58 2C 32 29 3A 82 |,1):.9,B(XX,2):.| 000009D0: 3A 84 39 2C 58 3A 84 39 2C 59 3A 84 39 2C 5A 3A |:.9,X:.9,Y:.9,Z:| 000009E0: A0 39 00 2C 26 86 01 8F 20 2D 2D 2D 2D 2D 2D 2D |.9.,&... -------| 000009F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000A00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000A10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000A20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 4C 26 90 |------------.L&.| 00000A30: 01 8F 20 2A 2A 2A 20 52 45 54 55 52 4E 20 54 4F |.. *** RETURN TO| 00000A40: 20 4D 41 49 4E 20 4D 45 4D 4F 52 59 00 98 26 9A | MAIN MEMORY..&.| 00000A50: 01 DA 31 2C 39 30 30 30 2C 34 30 2C 32 2C 31 30 |..1,9000,40,2,10| 00000A60: 30 30 30 2C 31 3A E0 31 2C 31 2C 32 34 2C 22 20 |000,1:.1,1,24," | 00000A70: 20 20 20 20 20 20 50 52 45 53 53 20 41 4E 59 20 | PRESS ANY | 00000A80: 4B 45 59 20 54 4F 20 52 45 43 4F 56 45 52 20 20 |KEY TO RECOVER | 00000A90: 20 20 20 20 20 22 2C 30 00 A4 26 A4 01 A1 F9 41 | ",0..&....A| 00000AA0: 24 3A DE 30 00 EE 26 AE 01 8F 20 2D 2D 2D 2D 2D |$:.0..&... -----| 00000AB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000AC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000AD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000AE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 1B |--------------..| 00000AF0: 27 B8 01 99 22 93 9A 11 22 3A 4D 24 B2 22 D5 53 |'..."...":M$.".S| 00000B00: 45 20 54 48 45 20 C6 55 4E 43 54 49 4F 4E 20 CB |E THE .UNCTION .| 00000B10: 45 59 53 3A 22 3A 8D 31 35 30 30 00 69 27 C2 01 |EYS:":.1500.i'..| 00000B20: 99 22 11 11 46 31 20 2A 2A 2A 20 D3 45 45 20 54 |."..F1 *** .EE T| 00000B30: 48 45 20 D0 49 43 54 55 52 45 20 C1 47 41 49 4E |HE .ICTURE .GAIN| 00000B40: 22 3A 99 22 11 46 32 20 2A 2A 2A 20 C4 41 54 41 |":.".F2 *** .ATA| 00000B50: 20 C4 49 53 50 4C 41 59 20 46 4F 52 20 54 48 45 | .ISPLAY FOR THE| 00000B60: 20 D0 49 43 54 55 52 45 22 00 B6 27 CC 01 99 22 | .ICTURE"..'..."| 00000B70: 11 46 33 20 2A 2A 2A 20 D3 45 4E 44 20 54 48 45 |.F3 *** .END THE| 00000B80: 20 D0 49 43 54 55 52 45 20 54 4F 20 54 48 45 20 | .ICTURE TO THE | 00000B90: D0 52 49 4E 54 45 52 22 3A 99 22 11 46 34 20 2A |.RINTER":.".F4 *| 00000BA0: 2A 2A 20 D2 45 2D D2 55 4E 20 54 48 45 20 D0 52 |** .E-.UN THE .R| 00000BB0: 4F 47 52 41 4D 22 00 38 28 D6 01 99 22 11 46 35 |OGRAM".8(...".F5| 00000BC0: 20 2A 2A 2A 20 CE 45 57 20 D6 41 4E 54 41 47 45 | *** .EW .ANTAGE| 00000BD0: 20 D0 4F 49 4E 54 22 3A 99 22 11 46 36 20 2A 2A | .OINT":.".F6 **| 00000BE0: 2A 20 D1 55 49 54 20 54 48 45 20 D0 52 4F 47 52 |* .UIT THE .ROGR| 00000BF0: 41 4D 22 3A 99 22 11 46 37 20 2A 2A 2A 20 CC 4F |AM":.".F7 *** .O| 00000C00: 41 44 20 41 20 D3 54 4F 52 45 44 20 D0 49 43 54 |AD A .TORED .ICT| 00000C10: 55 52 45 22 3A 99 22 11 46 38 20 2A 2A 2A 20 D3 |URE":.".F8 *** .| 00000C20: 41 56 45 20 54 48 45 20 C3 55 52 52 45 4E 54 20 |AVE THE .URRENT | 00000C30: D0 49 43 54 55 52 45 22 00 41 28 E0 01 A1 F9 41 |.ICTURE".A(....A| 00000C40: 24 00 58 28 EA 01 8B 41 24 B3 22 31 22 B0 41 24 |$.X(...A$."1".A$| 00000C50: B1 22 38 22 A7 34 38 30 00 84 28 F4 01 91 20 C5 |."8".480..(... .| 00000C60: 28 41 24 29 89 36 36 30 2C 36 39 30 2C 39 39 30 |(A$).660,690,990| 00000C70: 2C 38 30 30 2C 35 33 30 2C 35 36 30 2C 33 33 30 |,800,530,560,330| 00000C80: 2C 38 33 30 00 CE 28 FE 01 8F 20 2D 2D 2D 2D 2D |,830..(... -----| 00000C90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000CA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000CB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000CC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 EA |--------------..| 00000CD0: 28 08 02 8F 20 2A 2A 2A 20 4E 45 57 20 56 41 4E |(... *** NEW VAN| 00000CE0: 54 41 47 45 20 50 4F 49 4E 54 00 FE 28 12 02 99 |TAGE POINT..(...| 00000CF0: 22 93 11 11 11 11 9A 22 3A 89 31 33 30 30 00 48 |"......":.1300.H| 00000D00: 29 1C 02 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |)... -----------| 00000D10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000D20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000D30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000D40: 2D 2D 2D 2D 2D 2D 2D 2D 00 67 29 26 02 8F 20 2A |--------.g)&.. *| 00000D50: 2A 2A 20 51 55 49 54 54 49 4E 47 20 54 48 45 20 |** QUITTING THE | 00000D60: 50 52 4F 47 52 41 4D 00 BA 29 30 02 99 22 93 11 |PROGRAM..)0.."..| 00000D70: 11 22 3A 4D 24 B2 22 96 D1 D5 C9 D4 D4 C9 CE C7 |.":M$.".........| 00000D80: 20 D4 C8 C5 20 D0 D2 CF C7 D2 C1 CD 22 3A 8D 31 | ... .......":.1| 00000D90: 35 30 30 3A 99 22 11 11 9A 20 20 CF 4B 41 59 2C |500:."... .KAY,| 00000DA0: 20 C9 20 55 4E 44 45 52 53 54 41 4E 44 20 54 48 | . UNDERSTAND TH| 00000DB0: 41 54 20 59 4F 55 27 56 45 22 00 09 2A 3A 02 99 |AT YOU'VE"..*:..| 00000DC0: 22 41 4C 52 45 41 44 59 20 53 50 45 43 49 46 49 |"ALREADY SPECIFI| 00000DD0: 45 44 20 54 48 41 54 20 59 4F 55 20 57 41 4E 54 |ED THAT YOU WANT| 00000DE0: 20 54 4F 22 3A 99 22 51 55 49 54 20 54 48 45 20 | TO":."QUIT THE | 00000DF0: 50 52 4F 47 52 41 4D 2E 2E 2E 20 42 55 54 2E 2E |PROGRAM... BUT..| 00000E00: 2E 20 C9 20 4A 55 53 54 22 00 84 2A 44 02 99 22 |. . JUST"..*D.."| 00000E10: 4B 49 4E 44 20 4F 46 2E 2E 2E 20 45 52 2E 2E 2E |KIND OF... ER...| 00000E20: 20 53 4F 52 54 20 4F 46 20 57 41 4E 54 45 44 20 | SORT OF WANTED | 00000E30: 54 4F 20 42 45 22 3A 99 22 53 55 52 45 2E 20 C9 |TO BE":."SURE. .| 00000E40: 20 44 4F 4E 27 54 20 57 41 4E 54 20 54 4F 20 4D | DON'T WANT TO M| 00000E50: 45 53 53 20 59 4F 55 20 55 50 20 49 46 22 3A 99 |ESS YOU UP IF":.| 00000E60: 22 59 4F 55 20 48 49 54 20 54 48 45 20 D1 D5 C9 |"YOU HIT THE ...| 00000E70: D4 20 4B 45 59 20 41 43 43 49 44 45 4E 54 41 4C |. KEY ACCIDENTAL| 00000E80: 4C 59 2E 22 00 FC 2A 4E 02 99 22 D7 45 4C 4C 2C |LY."..*N..".ELL,| 00000E90: 20 52 45 41 4C 4C 59 20 C9 20 50 52 45 46 45 52 | REALLY . PREFER| 00000EA0: 20 54 4F 20 41 56 4F 49 44 20 54 48 45 22 3A 99 | TO AVOID THE":.| 00000EB0: 22 45 4D 42 41 52 52 41 53 53 4D 45 4E 54 20 4F |"EMBARRASSMENT O| 00000EC0: 46 20 59 4F 55 20 47 4F 49 4E 47 20 41 52 4F 55 |F YOU GOING AROU| 00000ED0: 4E 44 20 41 4E 44 22 3A 99 22 54 45 4C 4C 49 4E |ND AND":."TELLIN| 00000EE0: 47 20 45 56 45 52 59 4F 4E 45 20 54 48 41 54 20 |G EVERYONE THAT | 00000EF0: C9 20 57 41 53 4E 27 54 20 41 53 22 00 73 2B 58 |. WASN'T AS".s+X| 00000F00: 02 99 22 46 52 49 45 4E 44 4C 59 20 41 53 20 54 |.."FRIENDLY AS T| 00000F10: 48 45 20 C9 C2 CD 20 50 52 4F 47 52 41 4D 20 4F |HE ... PROGRAM O| 00000F20: 52 20 54 48 45 20 4F 4E 45 22 3A 99 22 4F 4E 20 |R THE ONE":."ON | 00000F30: 54 48 45 20 C1 D0 D0 CC C5 20 4F 52 20 53 4F 4D |THE ..... OR SOM| 00000F40: 45 54 48 49 4E 47 2E 2E 2E 20 53 4F 2E 2E 2E 22 |ETHING... SO..."| 00000F50: 3A 99 22 45 58 43 55 53 45 20 4D 45 20 46 4F 52 |:."EXCUSE ME FOR| 00000F60: 20 41 53 4B 49 4E 47 2E 2E 2E 2E 20 42 55 54 2E | ASKING.... BUT.| 00000F70: 2E 2E 22 00 98 2B 62 02 99 22 11 11 22 3A 4D 24 |.."..+b.."..":M$| 00000F80: B2 22 96 C1 D2 C5 20 D9 CF D5 20 D3 D5 D2 C5 3F |.".... ... ....?| 00000F90: 9A 22 3A 8D 31 35 30 30 00 B6 2B 6C 02 A1 F9 41 |.":.1500..+l...A| 00000FA0: 24 3A 8B 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 |$:.A$.."Y".A$.."| 00000FB0: 4E 22 A7 36 32 30 00 D5 2B 76 02 8B 41 24 B2 22 |N".620..+v..A$."| 00000FC0: 59 22 A7 8D 31 38 37 30 3A 9E 35 37 33 34 34 3A |Y"..1870:.57344:| 00000FD0: D5 89 34 34 30 00 1F 2C 80 02 8F 20 2D 2D 2D 2D |..440..,... ----| 00000FE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000FF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.| 00001020: 40 2C 8A 02 8F 20 2A 2A 2A 20 52 45 2D 56 49 45 |@,... *** RE-VIE| 00001030: 57 49 4E 47 20 54 48 45 20 50 49 43 54 55 52 45 |WING THE PICTURE| 00001040: 00 4C 2C 94 02 DE 31 3A 89 34 32 30 00 96 2C 9E |.L,...1:.420..,.| 00001050: 02 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.. -------------| 00001060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001090: 2D 2D 2D 2D 2D 2D 00 BC 2C A8 02 8F 20 2A 2A 2A |------..,... ***| 000010A0: 20 44 41 54 41 20 53 43 52 45 45 4E 20 46 4F 52 | DATA SCREEN FOR| 000010B0: 20 54 48 45 20 50 49 43 54 55 52 45 00 F1 2C B2 | THE PICTURE..,.| 000010C0: 02 99 22 93 11 96 22 3A 4D 24 B2 22 C4 C1 D4 C1 |.."...":M$."....| 000010D0: 20 D5 D3 C5 C4 20 C6 CF D2 20 D4 C8 C5 20 D0 C9 | .... ... ... ..| 000010E0: C3 D4 D5 D2 C5 22 3A 8D 31 35 30 30 3A 99 22 98 |.....":.1500:.".| 000010F0: 22 00 26 2D BC 02 FE 1A 30 2C 31 30 2C 33 39 2C |".&-....0,10,39,| 00001100: 31 32 2C 31 3A 99 22 D6 45 52 54 49 43 45 53 20 |12,1:.".ERTICES | 00001110: 54 4F 20 54 48 45 20 46 49 47 55 52 45 3A 22 3A |TO THE FIGURE:":| 00001120: 99 56 3A FE 0B 32 00 4F 2D C6 02 99 22 13 13 22 |.V:..2.O-...".."| 00001130: 3A FE 1A 30 2C 31 30 2C 33 39 2C 31 36 2C 31 3A |:..0,10,39,16,1:| 00001140: 81 58 58 B2 31 A4 56 3A 81 59 59 B2 31 A4 33 00 |.XX.1.V:.YY.1.3.| 00001150: 97 2D D0 02 99 22 9A D4 48 45 20 22 3B C7 28 38 |.-..."..HE ";.(8| 00001160: 37 AA 59 59 29 3B 22 20 56 41 4C 55 45 20 4F 46 |7.YY);" VALUE OF| 00001170: 20 56 45 52 54 45 58 22 3B 58 58 3B 22 3A 96 22 | VERTEX";XX;":."| 00001180: 3A 99 41 28 58 58 2C 59 59 29 3A 82 3A FE 0B 32 |:.A(XX,YY):.:..2| 00001190: 3A 99 22 93 22 3A 82 00 D1 2D DA 02 99 22 13 13 |:.".":...-..."..| 000011A0: 22 3A FE 1A 30 2C 31 30 2C 33 39 2C 31 32 2C 31 |":..0,10,39,12,1| 000011B0: 3A 99 22 9A CC 49 4E 45 53 20 4A 4F 49 4E 20 56 |:."..INES JOIN V| 000011C0: 45 52 54 49 43 45 53 3A 96 22 3A 99 53 3A FE 0B |ERTICES:.":.S:..| 000011D0: 32 00 EA 2D E4 02 99 22 13 13 22 3A FE 1A 30 2C |2..-..."..":..0,| 000011E0: 31 30 2C 33 39 2C 31 33 2C 31 00 4A 2E EE 02 81 |10,39,13,1.J....| 000011F0: 58 58 B2 31 A4 53 3A 4D 24 B2 22 9A D4 48 45 20 |XX.1.S:M$."..HE | 00001200: D3 D4 C1 D2 D4 C9 CE C7 20 56 45 52 54 45 58 20 |........ VERTEX | 00001210: 46 4F 52 22 3A 8D 31 35 30 30 3A 4D 24 B2 22 53 |FOR":.1500:M$."S| 00001220: 45 47 4D 45 4E 54 22 AA C4 28 58 58 29 AA 22 3A |EGMENT"..(XX).":| 00001230: 96 22 3A 8D 31 35 30 30 3A 99 42 28 58 58 2C 31 |.":.1500:.B(XX,1| 00001240: 29 3A FE 0B 32 3A 99 22 93 22 00 A2 2E F8 02 4D |):..2:.".".....M| 00001250: 24 B2 22 9A D4 48 45 20 C5 CE C4 C9 CE C7 20 56 |$."..HE ...... V| 00001260: 45 52 54 45 58 20 46 4F 52 22 3A 8D 31 35 30 30 |ERTEX FOR":.1500| 00001270: 3A 4D 24 B2 22 53 45 47 4D 45 4E 54 22 AA C4 28 |:M$."SEGMENT"..(| 00001280: 58 58 29 AA 22 3A 96 22 3A 8D 31 35 30 30 3A 99 |XX).":.":.1500:.| 00001290: 42 28 58 58 2C 32 29 3A FE 0B 32 3A 99 22 93 22 |B(XX,2):..2:."."| 000012A0: 3A 82 00 FD 2E 02 03 4D 24 B2 22 9A D4 48 45 20 |:......M$."..HE | 000012B0: D8 2C 20 D9 20 41 4E 44 20 DA 20 56 41 4C 55 45 |., . AND . VALUE| 000012C0: 53 20 4F 46 22 3A 8D 31 35 30 30 3A 4D 24 B2 22 |S OF":.1500:M$."| 000012D0: 54 48 45 20 D6 41 4E 54 41 47 45 20 D0 4F 49 4E |THE .ANTAGE .OIN| 000012E0: 54 3A 96 22 3A 8D 31 35 30 30 3A 99 58 3B 22 2C |T:.":.1500:.X;",| 000012F0: 22 3B 59 3B 22 2C 22 3B 5A 3A FE 0B 32 00 17 2F |";Y;",";Z:..2../| 00001300: 0C 03 99 22 93 22 3A 8D 31 31 39 30 3A 99 22 13 |...".":.1190:.".| 00001310: 13 22 3A 89 34 34 30 00 38 2F 16 03 8F 20 2A 2A |.":.440.8/... **| 00001320: 2A 20 52 45 2D 52 55 4E 4E 49 4E 47 20 54 48 45 |* RE-RUNNING THE| 00001330: 20 50 52 4F 47 52 41 4D 00 3E 2F 20 03 8A 00 88 | PROGRAM.>/ ....| 00001340: 2F 2A 03 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |/*.. -----------| 00001350: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001360: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001370: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001380: 2D 2D 2D 2D 2D 2D 2D 2D 00 A5 2F 34 03 8F 20 2A |--------../4.. *| 00001390: 2A 2A 20 53 41 56 49 4E 47 20 54 48 45 20 50 49 |** SAVING THE PI| 000013A0: 43 54 55 52 45 00 10 30 3E 03 99 22 93 11 99 C3 |CTURE..0>.."....| 000013B0: 55 52 52 45 4E 54 20 D0 49 43 54 55 52 45 53 3A |URRENT .ICTURES:| 000013C0: 22 3A 99 22 9E 11 22 3A FE 0C 22 50 47 2E 2A 22 |":."..":.."PG.*"| 000013D0: 3A 99 22 9A 11 D7 48 41 54 20 4E 41 4D 45 20 57 |:."...HAT NAME W| 000013E0: 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 54 4F |OULD YOU LIKE TO| 000013F0: 20 53 41 56 45 20 54 48 45 20 20 20 20 50 49 43 | SAVE THE PIC| 00001400: 54 55 52 45 20 57 49 54 48 3F 22 3A 85 4E 41 24 |TURE WITH?":.NA$| 00001410: 00 24 30 48 03 8B 4E 41 24 B2 22 22 A7 4E 41 24 |.$0H..NA$."".NA$| 00001420: B2 54 49 24 00 3B 30 52 03 8B 4E 41 24 B2 22 50 |.TI$.;0R..NA$."P| 00001430: 47 2E 22 A7 4E 41 24 B2 54 49 24 00 4C 30 5C 03 |G.".NA$.TI$.L0\.| 00001440: 8B C3 28 4E 41 24 29 B1 33 A7 FE 18 00 7A 30 66 |..(NA$).3....z0f| 00001450: 03 8B C8 28 4E 41 24 2C 33 29 B3 B1 22 50 47 2E |...(NA$,3).."PG.| 00001460: 22 A7 8B C3 28 4E 41 24 29 B1 31 31 A7 4E 41 24 |"...(NA$).11.NA$| 00001470: B2 C8 28 4E 41 24 2C 31 31 29 00 97 30 70 03 8B |..(NA$,11)..0p..| 00001480: C3 28 4E 41 24 29 B1 31 34 A7 4E 41 24 B2 C8 28 |.(NA$).14.NA$..(| 00001490: 4E 41 24 2C 31 34 29 00 9E 30 7A 03 FE 19 00 C4 |NA$,14)..0z.....| 000014A0: 30 84 03 99 22 9E 11 11 22 3A 4D 24 B2 22 D3 41 |0..."...":M$.".A| 000014B0: 56 49 4E 47 2E 2E 2E 22 3A 8D 31 35 30 30 3A 99 |VING...":.1500:.| 000014C0: 22 9A 11 22 00 E7 30 8E 03 8B C8 28 4E 41 24 2C |".."..0....(NA$,| 000014D0: 33 29 B3 B1 22 50 47 2E 22 A7 4E 41 24 B2 22 50 |3).."PG.".NA$."P| 000014E0: 47 2E 22 AA 4E 41 24 00 09 31 98 03 FE 10 28 4E |G.".NA$..1....(N| 000014F0: 41 24 29 2C 44 30 2C 55 38 2C 42 30 2C 50 38 31 |A$),D0,U8,B0,P81| 00001500: 39 33 A4 50 31 36 31 39 31 00 42 31 A2 03 58 58 |93.P16191.B1..XX| 00001510: B2 C3 28 4E 41 24 29 AB 33 3A 4D 24 B2 22 50 44 |..(NA$).3:M$."PD| 00001520: 2E 22 AA C9 28 4E 41 24 2C 58 58 29 3A 9F 39 2C |."..(NA$,XX):.9,| 00001530: 38 2C 37 2C 22 30 3A 22 AA 4D 24 AA 22 2C 53 2C |8,7,"0:".M$.",S,| 00001540: 57 22 00 A2 31 AC 03 98 39 2C 56 3A 98 39 2C 53 |W"..1...9,V:.9,S| 00001550: 3A 81 58 58 B2 31 A4 56 3A 81 59 59 B2 31 A4 33 |:.XX.1.V:.YY.1.3| 00001560: 3A 98 39 2C 41 28 58 58 2C 59 59 29 3A 82 3A 82 |:.9,A(XX,YY):.:.| 00001570: 3A 81 58 58 B2 31 A4 53 3A 98 39 2C 42 28 58 58 |:.XX.1.S:.9,B(XX| 00001580: 2C 31 29 3A 98 39 2C 42 28 58 58 2C 32 29 3A 82 |,1):.9,B(XX,2):.| 00001590: 3A 98 39 2C 58 3A 98 39 2C 59 3A 98 39 2C 5A 3A |:.9,X:.9,Y:.9,Z:| 000015A0: A0 39 00 C3 31 B6 03 FE 0C 22 50 47 2E 2A 22 3A |.9..1...."PG.*":| 000015B0: 99 22 11 9E 22 3B 4E 41 24 3B 22 9A 22 3A 8D 31 |."..";NA$;".":.1| 000015C0: 31 39 30 00 EE 31 C0 03 89 34 34 30 3A 8F 20 47 |190..1...440:. G| 000015D0: 4F 49 4E 47 20 42 41 43 4B 20 54 4F 20 54 48 45 |OING BACK TO THE| 000015E0: 20 49 4E 54 45 52 4E 41 4C 20 4D 45 4E 55 00 14 | INTERNAL MENU..| 000015F0: 32 CA 03 99 22 11 11 22 3A 4D 24 B2 22 D0 4C 45 |2..."..":M$.".LE| 00001600: 41 53 45 20 D3 54 41 4E 44 42 59 22 3A 8D 31 35 |ASE .TANDBY":.15| 00001610: 30 30 3A 8E 00 5E 32 D4 03 8F 20 2D 2D 2D 2D 2D |00:..^2... -----| 00001620: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001630: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001640: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001650: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 82 |--------------..| 00001660: 32 DE 03 8F 20 2A 2A 2A 20 54 48 45 20 50 52 49 |2... *** THE PRI| 00001670: 4E 54 4F 55 54 20 52 4F 55 54 49 4E 45 20 48 45 |NTOUT ROUTINE HE| 00001680: 52 45 00 B4 32 E8 03 99 22 93 11 96 B0 C0 C0 C0 |RE..2...".......| 00001690: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000016A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000016B0: C0 C0 AE 22 00 3F 33 F2 03 99 22 A5 05 20 20 20 |...".?3...".. | 000016C0: D0 4C 45 41 53 45 20 49 4E 53 55 52 45 20 54 48 |.LEASE INSURE TH| 000016D0: 41 54 20 59 4F 55 52 20 50 52 49 4E 54 45 52 20 |AT YOUR PRINTER | 000016E0: 20 20 96 A7 22 3A 99 22 A5 05 20 20 20 20 49 53 | ..":.".. IS| 000016F0: 20 4F 46 20 54 48 45 20 C3 4F 4D 4D 4F 44 4F 52 | OF THE .OMMODOR| 00001700: 45 20 CD D0 D3 20 54 59 50 45 20 20 20 20 20 96 |E ... TYPE .| 00001710: A7 22 3A 99 22 A5 05 20 20 20 20 41 4E 44 20 49 |.":.".. AND I| 00001720: 53 20 43 4F 4E 46 49 47 55 52 45 44 20 41 53 20 |S CONFIGURED AS | 00001730: 44 45 56 49 43 45 20 34 20 20 20 20 96 A7 22 00 |DEVICE 4 ..".| 00001740: 6F 33 FC 03 99 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 |o3..."..........| 00001750: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00001760: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 9A 22 00 |..............".| 00001770: D1 33 06 04 99 3A 4D 24 B2 22 D4 4F 20 41 42 4F |.3...:M$.".O ABO| 00001780: 52 54 20 54 48 49 53 20 53 45 4C 45 43 54 49 4F |RT THIS SELECTIO| 00001790: 4E 2C 20 50 52 45 53 53 20 C1 22 3A 8D 31 35 30 |N, PRESS .":.150| 000017A0: 30 3A 4D 24 B2 22 CF 54 48 45 52 57 49 53 45 2C |0:M$.".THERWISE,| 000017B0: 20 41 4E 59 20 4F 54 48 45 52 20 4B 45 59 20 54 | ANY OTHER KEY T| 000017C0: 4F 20 43 4F 4E 54 49 4E 55 45 22 3A 8D 31 35 30 |O CONTINUE":.150| 000017D0: 30 00 E6 33 10 04 A1 F9 41 24 3A 8B 41 24 B2 22 |0..3....A$:.A$."| 000017E0: 41 22 A7 34 34 30 00 40 34 1A 04 99 22 93 11 11 |A".440.@4..."...| 000017F0: D7 48 41 54 20 4D 45 53 53 41 47 45 20 57 4F 55 |.HAT MESSAGE WOU| 00001800: 4C 44 20 59 4F 55 20 4C 49 4B 45 20 4F 4E 20 54 |LD YOU LIKE ON T| 00001810: 48 45 20 20 20 20 20 20 50 52 49 4E 54 4F 55 54 |HE PRINTOUT| 00001820: 3F 20 28 4C 45 53 53 20 54 48 41 4E 20 34 30 20 |? (LESS THAN 40 | 00001830: 43 48 41 52 41 43 54 45 52 53 29 22 3A 85 41 24 |CHARACTERS)":.A$| 00001840: 00 68 34 24 04 8B 41 24 B2 22 22 A7 41 24 B2 22 |.h4$..A$."".A$."| 00001850: 42 52 55 43 45 20 42 4F 57 44 45 4E 20 48 45 55 |BRUCE BOWDEN HEU| 00001860: 52 49 53 54 49 43 53 22 00 98 34 2E 04 59 59 B2 |RISTICS"..4..YY.| 00001870: B5 28 28 33 39 AB C3 28 41 24 29 29 AD 32 29 3A |.((39..(A$)).2):| 00001880: 81 58 58 B2 31 A4 59 59 3A 41 24 B2 22 20 22 AA |.XX.1.YY:A$." ".| 00001890: 41 24 AA 22 20 22 3A 82 00 C5 34 38 04 8B 20 C3 |A$." ":...48.. .| 000018A0: 28 41 24 29 B3 33 39 A7 59 B2 C3 28 41 24 29 3A |(A$).39.Y..(A$):| 000018B0: 81 58 58 B2 59 59 A4 33 39 3A 41 24 B2 41 24 AA |.XX.YY.39:A$.A$.| 000018C0: 22 20 22 3A 82 00 E0 34 42 04 DE 31 3A E0 31 2C |" ":...4B..1:.1,| 000018D0: 31 2C 32 34 2C 41 24 2C 30 3A FE 0B 32 3A DE 30 |1,24,A$,0:..2:.0| 000018E0: 00 38 35 4C 04 99 22 93 11 11 22 3A 4D 24 B2 22 |.85L.."...":M$."| 000018F0: D0 52 49 4E 54 49 4E 47 20 54 48 45 20 50 49 43 |.RINTING THE PIC| 00001900: 54 55 52 45 20 4E 4F 57 2E 2E 2E 22 3A 8D 31 35 |TURE NOW...":.15| 00001910: 30 30 3A 99 22 11 11 11 11 11 22 3A 4D 24 B2 22 |00:.".....":M$."| 00001920: D3 54 41 4E 44 42 59 20 D0 4C 45 41 53 45 2E 2E |.TANDBY .LEASE..| 00001930: 2E 22 3A 8D 31 35 30 30 00 52 35 56 04 9F 33 2C |.":.1500.R5V..3,| 00001940: 34 3A 81 58 31 B2 38 35 31 31 A4 38 31 39 39 A9 |4:.X1.8511.8199.| 00001950: AB 38 00 86 35 60 04 81 59 31 B2 58 31 A4 31 36 |.8..5`..Y1.X1.16| 00001960: 31 39 31 AB 38 AC 28 38 AB B5 28 28 58 31 AB 38 |191.8.(8..((X1.8| 00001970: 31 39 31 29 AD 34 30 AA 2E 35 29 29 A9 33 32 30 |191).40..5)).320| 00001980: 3A 41 24 B2 22 22 00 B5 35 6A 04 81 5A 31 B2 59 |:A$.""..5j..Z1.Y| 00001990: 31 AB 37 A4 59 31 3A 57 57 B2 C2 28 5A 31 29 B0 |1.7.Y1:WW..(Z1).| 000019A0: 31 32 38 3A 8B C2 28 5A 31 29 B2 31 32 38 A7 57 |128:..(Z1).128.W| 000019B0: 57 B2 31 39 32 00 D9 35 74 04 41 24 B2 41 24 AA |W.192..5t.A$.A$.| 000019C0: C7 28 57 57 29 3A 82 3A 98 33 2C C7 28 38 29 41 |.(WW):.:.3,.(8)A| 000019D0: 24 3B 3A 82 3A 98 33 3A 82 00 EF 35 7E 04 98 33 |$;:.:.3:...5~..3| 000019E0: 2C C7 28 31 35 29 3A A0 33 3A 8D 31 31 39 30 00 |,.(15):.3:.1190.| 000019F0: 53 36 88 04 DE 31 3A E0 31 2C 31 2C 32 34 2C 22 |S6...1:.1,1,24,"| 00001A00: 20 20 20 20 20 20 20 50 52 45 53 53 20 41 4E 59 | PRESS ANY| 00001A10: 20 4B 45 59 20 54 4F 20 52 45 43 4F 56 45 52 20 | KEY TO RECOVER | 00001A20: 20 20 20 20 20 20 22 2C 30 3A FE 0B 31 3A DE 30 | ",0:..1:.0| 00001A30: 3A 89 34 34 30 3A 8F 20 52 45 54 55 52 4E 20 54 |:.440:. RETURN T| 00001A40: 4F 20 54 48 45 20 49 4E 54 45 52 4E 41 4C 20 4D |O THE INTERNAL M| 00001A50: 45 4E 55 00 5F 36 92 04 8D 31 31 39 30 3A 8E 00 |ENU._6...1190:..| 00001A60: 72 36 9C 04 99 22 11 52 45 4D 4F 56 45 20 4D 45 |r6...".REMOVE ME| 00001A70: 21 22 00 AE 36 A6 04 99 22 99 22 3A 4D 24 B2 22 |!"..6...".":M$."| 00001A80: D0 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F |.RESS ANY KEY TO| 00001A90: 20 43 4F 4E 54 49 4E 55 45 22 3A 8D 31 35 30 30 | CONTINUE":.1500| 00001AA0: 3A 99 22 9A 22 3A A1 F9 41 24 3A E8 3A 8E 00 F8 |:.".":..A$:.:...| 00001AB0: 36 B0 04 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |6... -----------| 00001AC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001AD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001AE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001AF0: 2D 2D 2D 2D 2D 2D 2D 2D 00 17 37 BA 04 8F 20 2A |--------..7... *| 00001B00: 2A 2A 20 50 49 43 54 55 52 45 20 45 4E 54 52 59 |** PICTURE ENTRY| 00001B10: 20 53 43 52 45 45 4E 00 50 37 C4 04 99 22 93 99 | SCREEN.P7..."..| 00001B20: 22 3A 4D 24 B2 22 12 20 D0 45 52 53 50 45 43 54 |":M$.". .ERSPECT| 00001B30: 49 56 45 20 C7 45 4F 4D 45 54 52 59 20 D4 4F 4F |IVE .EOMETRY .OO| 00001B40: 4C 20 20 22 3A 8D 31 35 30 30 3A 99 22 96 11 22 |L ":.1500:.".."| 00001B50: 00 9E 37 CE 04 FE 1A 30 2C 31 30 2C 33 39 2C 31 |..7....0,10,39,1| 00001B60: 31 2C 31 3A 99 22 C8 4F 57 20 4D 41 4E 59 20 56 |1,1:.".OW MANY V| 00001B70: 45 52 54 49 43 45 53 20 54 4F 20 54 48 45 20 46 |ERTICES TO THE F| 00001B80: 49 47 55 52 45 3F 22 3A 85 56 3A 56 B2 B5 28 B6 |IGURE?":.V:V..(.| 00001B90: 28 56 29 29 3A 8B 56 B2 30 A7 31 32 33 30 00 C7 |(V)):.V.0.1230..| 00001BA0: 37 D8 04 99 22 13 13 22 3A FE 1A 30 2C 31 30 2C |7..."..":..0,10,| 00001BB0: 33 39 2C 31 35 2C 31 3A 81 58 58 B2 31 A4 56 3A |39,15,1:.XX.1.V:| 00001BC0: 81 59 59 B2 31 A4 33 00 13 38 E2 04 99 22 9A D7 |.YY.1.3..8..."..| 00001BD0: 48 41 54 20 49 53 20 54 48 45 20 22 3B C7 28 38 |HAT IS THE ";.(8| 00001BE0: 37 AA 59 59 29 3B 22 20 56 41 4C 55 45 20 4F 46 |7.YY);" VALUE OF| 00001BF0: 20 56 45 52 54 45 58 22 3B 58 58 3B 22 3F 96 22 | VERTEX";XX;"?."| 00001C00: 3A 85 41 28 58 58 2C 59 59 29 3A 82 3A 99 22 93 |:.A(XX,YY):.:.".| 00001C10: 22 3A 82 00 6B 38 EC 04 99 22 13 13 22 3A FE 1A |":..k8..."..":..| 00001C20: 30 2C 31 30 2C 33 39 2C 31 31 2C 31 3A 99 22 9A |0,10,39,11,1:.".| 00001C30: C8 4F 57 20 4D 41 4E 59 20 4C 49 4E 45 53 20 57 |.OW MANY LINES W| 00001C40: 49 4C 4C 20 4A 4F 49 4E 20 56 45 52 54 49 43 45 |ILL JOIN VERTICE| 00001C50: 53 3F 96 22 3A 85 53 3A 53 B2 B5 28 B6 28 53 29 |S?.":.S:S..(.(S)| 00001C60: 29 3A 8B 53 B2 30 A7 31 32 36 30 00 84 38 F6 04 |):.S.0.1260..8..| 00001C70: 99 22 13 13 22 3A FE 1A 30 2C 31 30 2C 33 39 2C |."..":..0,10,39,| 00001C80: 31 32 2C 31 00 E8 38 00 05 81 58 58 B2 31 A4 53 |12,1..8...XX.1.S| 00001C90: 3A 4D 24 B2 22 9A D7 48 41 54 20 49 53 20 54 48 |:M$."..HAT IS TH| 00001CA0: 45 20 D3 D4 C1 D2 D4 C9 CE C7 20 56 45 52 54 45 |E ........ VERTE| 00001CB0: 58 20 46 4F 52 22 3A 8D 31 35 30 30 3A 4D 24 B2 |X FOR":.1500:M$.| 00001CC0: 22 53 45 47 4D 45 4E 54 22 AA C4 28 58 58 29 AA |"SEGMENT"..(XX).| 00001CD0: 22 3F 96 22 3A 8D 31 35 30 30 3A 85 42 28 58 58 |"?.":.1500:.B(XX| 00001CE0: 2C 31 29 3A 99 22 93 22 00 44 39 0A 05 4D 24 B2 |,1):.".".D9..M$.| 00001CF0: 22 9A D7 48 41 54 20 49 53 20 54 48 45 20 C5 CE |"..HAT IS THE ..| 00001D00: C4 C9 CE C7 20 56 45 52 54 45 58 20 46 4F 52 22 |.... VERTEX FOR"| 00001D10: 3A 8D 31 35 30 30 3A 4D 24 B2 22 53 45 47 4D 45 |:.1500:M$."SEGME| 00001D20: 4E 54 22 AA C4 28 58 58 29 AA 22 3F 96 22 3A 8D |NT"..(XX)."?.":.| 00001D30: 31 35 30 30 3A 85 42 28 58 58 2C 32 29 3A 99 22 |1500:.B(XX,2):."| 00001D40: 93 22 3A 82 00 A8 39 14 05 4D 24 B2 22 9A D7 48 |.":...9..M$."..H| 00001D50: 41 54 20 41 52 45 20 54 48 45 20 D8 2C 20 D9 20 |AT ARE THE ., . | 00001D60: 41 4E 44 20 DA 20 56 41 4C 55 45 53 20 4F 46 22 |AND . VALUES OF"| 00001D70: 3A 8D 31 35 30 30 3A 4D 24 B2 22 54 48 45 20 D6 |:.1500:M$."THE .| 00001D80: 41 4E 54 41 47 45 20 D0 4F 49 4E 54 3F 96 22 3A |ANTAGE .OINT?.":| 00001D90: 8D 31 35 30 30 3A 85 58 2C 59 2C 5A 3A 99 22 13 |.1500:.X,Y,Z:.".| 00001DA0: 13 22 3A 8D 31 35 32 30 00 1F 3A 1E 05 99 22 93 |.":.1520..:...".| 00001DB0: 13 13 11 11 11 11 11 11 11 11 11 11 22 3A 4D 24 |............":M$| 00001DC0: B2 22 C3 4F 4D 50 55 54 49 4E 47 2E 2E 2E 22 3A |.".OMPUTING...":| 00001DD0: 8D 31 35 30 30 3A 4D 24 B2 22 D0 4C 45 41 53 45 |.1500:M$.".LEASE| 00001DE0: 20 D3 54 41 4E 44 42 59 22 3A 8D 31 35 30 30 3A | .TANDBY":.1500:| 00001DF0: 4D B2 58 AC 58 AA 59 AC 59 AA 5A AC 5A 3A 81 43 |M.X.X.Y.Y.Z.Z:.C| 00001E00: B2 31 A4 56 3A 49 B2 41 28 43 2C 31 29 3A 4F B2 |.1.V:I.A(C,1):O.| 00001E10: 41 28 43 2C 32 29 3A 50 B2 41 28 43 2C 33 29 00 |A(C,2):P.A(C,3).| 00001E20: 56 3A 28 05 49 41 B2 B4 28 58 29 AC 28 58 AB 49 |V:(.IA..(X).(X.I| 00001E30: 29 3A 4F 41 B2 B4 28 59 29 AC 28 59 AB 4F 29 3A |):OA..(Y).(Y.O):| 00001E40: 50 41 B2 B4 28 5A 29 AC 28 5A AB 50 29 3A 41 28 |PA..(Z).(Z.P):A(| 00001E50: 43 2C 36 29 B2 30 00 91 3A 32 05 8B 28 49 41 AC |C,6).0..:2..(IA.| 00001E60: 58 AA 4F 41 AC 59 AA 50 41 AC 5A 29 AD 28 BA 28 |X.OA.Y.PA.Z).(.(| 00001E70: 4D 29 AC BA 28 49 41 AE 32 AA 4F 41 AE 32 AA 50 |M)..(IA.2.OA.2.P| 00001E80: 41 AE 32 29 29 B3 2E 35 A7 41 28 43 2C 36 29 B2 |A.2))..5.A(C,6).| 00001E90: 31 00 CD 3A 3C 05 54 B2 4D AD 28 4D AB 58 AC 49 |1..:<.T.M.(M.X.I| 00001EA0: AB 59 AC 4F AB 5A AC 50 29 3A 49 B2 58 AA 54 AC |.Y.O.Z.P):I.X.T.| 00001EB0: 28 49 AB 58 29 3A 4F B2 59 AA 54 AC 28 4F AB 59 |(I.X):O.Y.T.(O.Y| 00001EC0: 29 3A 50 B2 5A AA 54 AC 28 50 AB 5A 29 00 15 3B |):P.Z.T.(P.Z)..;| 00001ED0: 46 05 41 28 43 2C 34 29 B2 28 58 AC 4F AB 49 AC |F.A(C,4).(X.O.I.| 00001EE0: 59 29 AD BA 28 59 AC 59 AA 58 AC 58 29 3A 4B B2 |Y)..(Y.Y.X.X):K.| 00001EF0: BA 28 49 AC 49 AA 4F AC 4F AA 50 AC 50 29 3A 8B |.(I.I.O.O.P.P):.| 00001F00: 4B B2 30 A7 41 28 43 2C 35 29 B2 30 3A 82 43 3A |K.0.A(C,5).0:.C:| 00001F10: 89 31 33 37 30 00 3F 3B 50 05 41 28 43 2C 35 29 |.1370.?;P.A(C,5)| 00001F20: B2 B4 28 50 29 AC 4B AC BA 28 B6 28 31 AB 28 41 |..(P).K..(.(1.(A| 00001F30: 28 43 2C 34 29 AD 4B 29 AE 32 29 29 3A 82 43 00 |(C,4).K).2)):.C.| 00001F40: 7A 3B 5A 05 45 B2 31 45 32 30 3A 46 B2 AB 45 3A |z;Z.E.1E20:F..E:| 00001F50: 47 B2 45 3A 49 B2 46 3A 81 43 B2 31 A4 56 3A 8B |G.E:I.F:.C.1.V:.| 00001F60: 41 28 43 2C 34 29 B3 45 AF 41 28 43 2C 36 29 B2 |A(C,4).E.A(C,6).| 00001F70: 30 A7 45 B2 41 28 43 2C 34 29 00 9A 3B 64 05 8B |0.E.A(C,4)..;d..| 00001F80: 41 28 43 2C 34 29 B1 46 AF 41 28 43 2C 36 29 B2 |A(C,4).F.A(C,6).| 00001F90: 30 A7 46 B2 41 28 43 2C 34 29 00 BA 3B 6E 05 8B |0.F.A(C,4)..;n..| 00001FA0: 41 28 43 2C 35 29 B3 47 AF 41 28 43 2C 36 29 B2 |A(C,5).G.A(C,6).| 00001FB0: 30 A7 47 B2 41 28 43 2C 35 29 00 DA 3B 78 05 8B |0.G.A(C,5)..;x..| 00001FC0: 41 28 43 2C 35 29 B1 49 AF 41 28 43 2C 36 29 B2 |A(C,5).I.A(C,6).| 00001FD0: 30 A7 49 B2 41 28 43 2C 35 29 00 11 3C 82 05 82 |0.I.A(C,5)..<...| 00001FE0: 43 3A 8B 28 46 AB 45 29 B1 28 49 AB 47 29 A7 50 |C:.(F.E).(I.G).P| 00001FF0: B2 31 AD 28 46 AB 45 29 3A D5 8B 28 46 AB 45 29 |.1.(F.E):..(F.E)| 00002000: B3 B2 28 49 AB 47 29 A7 50 B2 31 AD 28 49 AB 47 |..(I.G).P.1.(I.G| 00002010: 29 00 2F 3C 8C 05 DA 31 2C 39 30 30 30 2C 34 30 |)./<...1,9000,40| 00002020: 2C 32 2C 31 30 30 30 30 2C 31 3A DE 31 2C 31 00 |,2,10000,1:.1,1.| 00002030: 60 3C 96 05 81 43 B2 31 A4 53 3A 8B 41 28 42 28 |`<...C.1.S:.A(B(| 00002040: 43 2C 31 29 2C 36 29 B2 31 B0 41 28 42 28 43 2C |C,1),6).1.A(B(C,| 00002050: 32 29 2C 36 29 B2 31 A7 82 43 3A 89 31 34 36 30 |2),6).1..C:.1460| 00002060: 00 DC 3C A0 05 51 B2 41 28 42 28 43 2C 31 29 2C |..<..Q.A(B(C,1),| 00002070: 34 29 3A 57 B2 41 28 42 28 43 2C 31 29 2C 35 29 |4):W.A(B(C,1),5)| 00002080: 3A 49 B2 41 28 42 28 43 2C 32 29 2C 34 29 3A 52 |:I.A(B(C,2),4):R| 00002090: B2 41 28 42 28 43 2C 32 29 2C 35 29 3A 51 B2 31 |.A(B(C,2),5):Q.1| 000020A0: 38 34 AC 28 51 AB 45 29 AC 50 3A 57 B2 31 38 34 |84.(Q.E).P:W.184| 000020B0: AB 28 57 AB 47 29 AC 50 AC 31 38 34 3A 49 B2 31 |.(W.G).P.184:I.1| 000020C0: 38 34 AC 28 49 AB 45 29 AC 50 3A 52 B2 31 38 34 |84.(I.E).P:R.184| 000020D0: AB 28 52 AB 47 29 AC 50 AC 31 38 34 00 08 3D AA |.(R.G).P.184..=.| 000020E0: 05 E5 31 2C B5 28 51 AC 31 2E 35 AA 32 37 29 2C |..1,.(Q.1.5.27),| 000020F0: B5 28 57 29 A4 B5 28 49 AC 31 2E 35 AA 32 37 29 |.(W)..(I.1.5.27)| 00002100: 2C B5 28 52 29 3A 82 43 00 11 3D B4 05 89 34 31 |,.(R):.C..=...41| 00002110: 30 00 5B 3D BE 05 8F 20 2D 2D 2D 2D 2D 2D 2D 2D |0.[=... --------| 00002120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 81 3D C8 05 |-----------..=..| 00002160: 8F 20 54 45 58 54 20 43 45 4E 54 45 52 49 4E 47 |. TEXT CENTERING| 00002170: 20 52 4F 55 54 49 4E 45 20 55 53 49 4E 47 20 4D | ROUTINE USING M| 00002180: 24 00 BA 3D D2 05 44 43 24 B2 22 22 3A 81 58 B2 |$..=..DC$."":.X.| 00002190: 31 A4 C3 28 4D 24 29 3A 44 43 24 B2 44 43 24 AA |1..(M$):DC$.DC$.| 000021A0: C7 28 C6 28 CA 28 4D 24 2C 58 2C 31 29 29 AB 31 |.(.(.(M$,X,1)).1| 000021B0: 29 3A 82 3A 4D 24 B2 44 43 24 00 E9 3D DC 05 81 |):.:M$.DC$..=...| 000021C0: 42 42 B2 31 A4 B5 28 28 34 30 AB C3 28 4D 24 29 |BB.1..((40..(M$)| 000021D0: 29 AD 32 AA 2E 35 29 3A 4D 24 B2 22 20 22 AA 4D |).2..5):M$." ".M| 000021E0: 24 3A 82 3A 99 4D 24 3A 8E 00 33 3E E6 05 8F 20 |$:.:.M$:..3>... | 000021F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002200: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002210: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002220: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002230: 2D 2D 2D 00 89 3E F0 05 99 22 93 9A 11 11 22 3A |---..>..."....":| 00002240: 4D 24 B2 22 C3 48 4F 4F 53 45 20 4F 4E 45 20 4F |M$.".HOOSE ONE O| 00002250: 46 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 |F THE FOLLOWING | 00002260: 43 4F 4C 4F 52 53 22 3A 8D 31 35 30 30 3A 4D 24 |COLORS":.1500:M$| 00002270: B2 22 46 4F 52 20 54 48 45 20 50 49 43 54 55 52 |."FOR THE PICTUR| 00002280: 45 3A 22 3A 8D 31 35 30 30 00 B9 3E FA 05 4D 24 |E:":.1500..>..M$| 00002290: B2 22 31 29 20 05 D7 48 49 54 45 20 20 20 20 20 |."1) ..HITE | 000022A0: 20 20 20 20 20 20 20 9A 35 29 20 1F C2 4C 55 45 | .5) ..LUE| 000022B0: 20 20 22 3A 8D 31 35 30 30 00 EA 3E 04 06 4D 24 | ":.1500..>..M$| 000022C0: B2 22 9A 32 29 20 1C D2 45 44 20 20 20 20 20 20 |.".2) ..ED | 000022D0: 20 20 20 20 20 20 20 20 9A 36 29 20 9F C3 59 41 | .6) ..YA| 000022E0: 4E 20 20 22 3A 8D 31 35 30 30 00 1B 3F 0E 06 4D |N ":.1500..?..M| 000022F0: 24 B2 22 9A 33 29 20 1E C7 52 45 45 4E 20 20 20 |$.".3) ..REEN | 00002300: 20 20 20 20 20 20 20 20 20 9A 37 29 20 9E D9 45 | .7) ..E| 00002310: 4C 4C 4F 57 22 3A 8D 31 35 30 30 00 4C 3F 18 06 |LLOW":.1500.L?..| 00002320: 4D 24 B2 22 9A 34 29 20 99 CC 49 47 48 54 20 C7 |M$.".4) ..IGHT .| 00002330: 52 45 45 4E 20 20 20 20 20 20 9A 38 29 20 81 CF |REEN .8) ..| 00002340: 52 41 4E 47 45 22 3A 8D 31 35 30 30 00 6A 3F 22 |RANGE":.1500.j?"| 00002350: 06 4D 24 B2 22 9A 39 29 20 CC 49 47 48 54 20 C2 |.M$.".9) .IGHT .| 00002360: 4C 55 45 22 3A 8D 31 35 30 30 00 87 3F 2C 06 A1 |LUE":.1500..?,..| 00002370: F9 41 24 3A 8B 41 24 B3 22 31 22 B0 41 24 B1 22 |.A$:.A$."1".A$."| 00002380: 39 22 A7 31 35 38 30 00 95 3F 36 06 4D 42 B2 30 |9".1580..?6.MB.0| 00002390: 3A 42 42 B2 30 00 C2 3F 40 06 8C 31 36 31 30 3A |:BB.0..?@..1610:| 000023A0: EB 20 FC 20 4D 42 B2 C5 28 41 24 29 3A 87 42 42 |. . MB..(A$):.BB| 000023B0: 3A E7 31 2C 42 42 3A 4D 42 B2 4D 42 AA 31 3A EC |:.1,BB:MB.MB.1:.| 000023C0: 3A 8E 00 DB 3F 4A 06 83 32 2C 33 2C 36 2C 31 34 |:...?J..2,3,6,14| 000023D0: 2C 37 2C 34 2C 38 2C 39 2C 31 35 00 25 40 54 06 |,7,4,8,9,15.%@T.| 000023E0: 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |. --------------| 000023F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002420: 2D 2D 2D 2D 2D 00 3D 40 5E 06 8F 20 2A 2A 2A 20 |-----.=@^.. *** | 00002430: 44 41 54 41 20 46 4F 52 20 44 45 4D 4F 00 53 40 |DATA FOR DEMO.S@| 00002440: 68 06 8F 20 2A 2A 2A 20 34 31 20 56 45 52 54 49 |h.. *** 41 VERTI| 00002450: 43 45 53 00 AA 40 72 06 83 31 33 2C 30 2C 30 2C |CES..@r..13,0,0,| 00002460: 35 2C 30 2C 32 2C 34 2E 35 2C 30 2C 31 2E 35 2C |5,0,2,4.5,0,1.5,| 00002470: 30 2C 30 2C 31 2E 35 2C 30 2C 31 37 2C 31 2E 35 |0,0,1.5,0,17,1.5| 00002480: 2C 30 2C 31 37 2C 30 2C 34 2E 35 2C 31 37 2C 31 |,0,17,0,4.5,17,1| 00002490: 2E 35 2C 31 33 2C 31 37 2C 30 2C 35 2C 31 37 2C |.5,13,17,0,5,17,| 000024A0: 32 2C 33 2C 31 37 2C 31 2E 32 00 21 41 7C 06 83 |2,3,17,1.2.!A|..| 000024B0: 31 2C 31 37 2C 31 2E 32 2C 33 2C 31 37 2C 2E 35 |1,17,1.2,3,17,.5| 000024C0: 2C 31 2C 31 37 2C 2E 35 2C 37 2E 32 2C 2E 37 35 |,1,17,.5,7.2,.75| 000024D0: 2C 31 2E 37 2C 37 2E 32 2C 33 2E 37 35 2C 31 2E |,1.7,7.2,3.75,1.| 000024E0: 37 2C 38 2E 32 2C 2E 37 35 2C 31 2E 34 2C 38 2E |7,8.2,.75,1.4,8.| 000024F0: 32 2C 33 2E 37 35 2C 31 2E 34 2C 37 2E 32 2C 35 |2,3.75,1.4,7.2,5| 00002500: 2E 32 35 2C 31 2E 37 2C 37 2E 32 2C 38 2E 32 35 |.25,1.7,7.2,8.25| 00002510: 2C 31 2E 37 2C 38 2E 32 2C 35 2E 32 35 2C 31 2E |,1.7,8.2,5.25,1.| 00002520: 34 00 AA 41 86 06 83 38 2E 32 2C 38 2E 32 35 2C |4..A...8.2,8.25,| 00002530: 31 2E 34 2C 37 2E 32 2C 39 2E 37 35 2C 31 2E 37 |1.4,7.2,9.75,1.7| 00002540: 2C 37 2E 32 2C 31 32 2E 37 35 2C 31 2E 37 2C 38 |,7.2,12.75,1.7,8| 00002550: 2E 32 2C 39 2E 37 35 2C 31 2E 34 2C 38 2E 32 2C |.2,9.75,1.4,8.2,| 00002560: 31 32 2E 37 35 2C 31 2E 34 2C 37 2E 32 2C 31 33 |12.75,1.4,7.2,13| 00002570: 2E 35 2C 31 2E 37 2C 37 2E 32 2C 31 36 2E 35 2C |.5,1.7,7.2,16.5,| 00002580: 31 2E 37 2C 38 2E 32 2C 31 33 2E 35 2C 31 2E 34 |1.7,8.2,13.5,1.4| 00002590: 2C 38 2E 32 2C 31 36 2E 35 2C 31 2E 34 2C 38 2E |,8.2,16.5,1.4,8.| 000025A0: 34 2C 2E 37 35 2C 31 2E 32 36 00 2E 42 90 06 83 |4,.75,1.26..B...| 000025B0: 38 2E 34 2C 31 32 2E 37 35 2C 31 2E 32 36 2C 31 |8.4,12.75,1.26,1| 000025C0: 31 2C 2E 37 35 2C 2E 35 35 2C 31 31 2C 31 32 2E |1,.75,.55,11,12.| 000025D0: 37 35 2C 2E 35 35 2C 38 2E 34 2C 31 33 2E 35 2C |75,.55,8.4,13.5,| 000025E0: 31 2E 32 36 2C 38 2E 34 2C 31 36 2E 35 2C 31 2E |1.26,8.4,16.5,1.| 000025F0: 32 36 2C 31 31 2C 31 33 2E 35 2C 2E 35 35 2C 31 |26,11,13.5,.55,1| 00002600: 31 2C 31 36 2E 35 2C 2E 35 35 2C 31 31 2C 33 2C |1,16.5,.55,11,3,| 00002610: 2E 35 35 2C 31 31 2C 31 30 2C 2E 35 35 2C 31 32 |.55,11,10,.55,12| 00002620: 2C 33 2C 2E 34 2C 31 32 2C 31 30 2C 2E 34 00 49 |,3,.4,12,10,.4.I| 00002630: 42 9A 06 8F 20 2A 2A 2A 20 34 33 20 4C 49 4E 45 |B... *** 43 LINE| 00002640: 20 53 45 47 4D 45 4E 54 53 00 D2 42 A4 06 83 31 | SEGMENTS..B...1| 00002650: 2C 38 2C 31 2C 32 2C 32 2C 39 2C 32 2C 33 2C 33 |,8,1,2,2,9,2,3,3| 00002660: 2C 34 2C 33 2C 37 2C 34 2C 35 2C 35 2C 36 2C 35 |,4,3,7,4,5,5,6,5| 00002670: 2C 37 2C 36 2C 38 2C 37 2C 39 2C 38 2C 39 2C 31 |,7,6,8,7,9,8,9,1| 00002680: 30 2C 31 31 2C 31 30 2C 31 32 2C 31 31 2C 31 33 |0,11,10,12,11,13| 00002690: 2C 31 32 2C 31 33 2C 31 34 2C 31 35 2C 31 34 2C |,12,13,14,15,14,| 000026A0: 31 36 2C 31 35 2C 31 37 2C 31 36 2C 31 37 2C 31 |16,15,17,16,17,1| 000026B0: 38 2C 31 39 2C 31 38 2C 32 30 2C 31 39 2C 32 31 |8,19,18,20,19,21| 000026C0: 2C 32 30 2C 32 31 2C 32 32 2C 32 33 2C 32 32 2C |,20,21,22,23,22,| 000026D0: 32 34 00 3D 43 AE 06 83 32 33 2C 32 35 2C 32 34 |24.=C...23,25,24| 000026E0: 2C 32 35 2C 32 36 2C 32 37 2C 32 36 2C 32 38 2C |,25,26,27,26,28,| 000026F0: 32 37 2C 32 39 2C 32 39 2C 32 38 2C 33 30 2C 33 |27,29,29,28,30,3| 00002700: 31 2C 33 30 2C 33 32 2C 33 31 2C 33 33 2C 33 32 |1,30,32,31,33,32| 00002710: 2C 33 33 2C 33 34 2C 33 35 2C 33 34 2C 33 36 2C |,33,34,35,34,36,| 00002720: 33 35 2C 33 37 2C 33 36 2C 33 37 2C 33 38 2C 34 |35,37,36,37,38,4| 00002730: 30 2C 34 30 2C 34 31 2C 34 31 2C 33 39 00 87 43 |0,40,41,41,39..C| 00002740: B8 06 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |... ------------| 00002750: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002780: 2D 2D 2D 2D 2D 2D 2D 00 9E 43 C2 06 8F 20 2A 2A |-------..C... **| 00002790: 2A 20 44 45 4D 4F 20 52 4F 55 54 49 4E 45 00 D8 |* DEMO ROUTINE..| 000027A0: 43 CC 06 4D 24 B2 22 C4 45 4D 4F 4E 53 54 52 41 |C..M$.".EMONSTRA| 000027B0: 54 49 4F 4E 20 C1 43 54 49 56 41 54 45 44 2E 2E |TION .CTIVATED..| 000027C0: 2E 22 3A 8D 31 35 30 30 3A 8C 31 36 35 30 3A 56 |.":.1500:.1650:V| 000027D0: B2 34 31 3A 53 B2 34 33 00 15 44 D6 06 99 22 93 |.41:S.43..D...".| 000027E0: 99 22 3A 4D 24 B2 22 12 20 D0 45 52 53 50 45 43 |.":M$.". .ERSPEC| 000027F0: 54 49 56 45 20 C7 45 4F 4D 45 54 52 59 20 D4 4F |TIVE .EOMETRY .O| 00002800: 4F 4C 20 20 22 3A 8D 31 35 30 30 3A 99 22 96 11 |OL ":.1500:."..| 00002810: 22 3A FE 0B 31 00 53 44 E0 06 FE 1A 30 2C 31 30 |":..1.SD....0,10| 00002820: 2C 33 39 2C 31 32 2C 31 3A 99 22 C8 4F 57 20 4D |,39,12,1:.".OW M| 00002830: 41 4E 59 20 56 45 52 54 49 43 45 53 20 54 4F 20 |ANY VERTICES TO | 00002840: 54 48 45 20 46 49 47 55 52 45 3F 22 3A 99 56 3A |THE FIGURE?":.V:| 00002850: FE 0B 31 00 7C 44 EA 06 99 22 13 13 22 3A FE 1A |..1.|D..."..":..| 00002860: 30 2C 31 30 2C 33 39 2C 31 36 2C 31 3A 81 58 58 |0,10,39,16,1:.XX| 00002870: B2 31 A4 56 3A 81 59 59 B2 31 A4 33 00 D6 44 F4 |.1.V:.YY.1.3..D.| 00002880: 06 99 22 9A D7 48 41 54 20 49 53 20 54 48 45 20 |.."..HAT IS THE | 00002890: 22 3B C7 28 38 37 AA 59 59 29 3B 22 20 56 41 4C |";.(87.YY);" VAL| 000028A0: 55 45 20 4F 46 20 56 45 52 54 45 58 22 3B 58 58 |UE OF VERTEX";XX| 000028B0: 3B 22 3F 96 22 3A 87 41 28 58 58 2C 59 59 29 3A |;"?.":.A(XX,YY):| 000028C0: 99 41 28 58 58 2C 59 59 29 3A FE 0B 31 3A 82 3A |.A(XX,YY):..1:.:| 000028D0: 99 22 93 22 3A 82 00 1E 45 FE 06 99 22 13 13 22 |.".":...E...".."| 000028E0: 3A FE 1A 30 2C 31 30 2C 33 39 2C 31 32 2C 31 3A |:..0,10,39,12,1:| 000028F0: 99 22 9A C8 4F 57 20 4D 41 4E 59 20 4C 49 4E 45 |."..OW MANY LINE| 00002900: 53 20 57 49 4C 4C 20 4A 4F 49 4E 20 56 45 52 54 |S WILL JOIN VERT| 00002910: 49 43 45 53 3F 96 22 3A 99 53 3A FE 0B 31 00 37 |ICES?.":.S:..1.7| 00002920: 45 08 07 99 22 13 13 22 3A FE 1A 30 2C 31 30 2C |E..."..":..0,10,| 00002930: 33 39 2C 31 33 2C 31 00 A8 45 12 07 81 58 58 B2 |39,13,1..E...XX.| 00002940: 31 A4 53 3A 4D 24 B2 22 9A D7 48 41 54 20 49 53 |1.S:M$."..HAT IS| 00002950: 20 54 48 45 20 D3 D4 C1 D2 D4 C9 CE C7 20 56 45 | THE ........ VE| 00002960: 52 54 45 58 20 46 4F 52 22 3A 8D 31 35 30 30 3A |RTEX FOR":.1500:| 00002970: 4D 24 B2 22 53 45 47 4D 45 4E 54 22 AA C4 28 58 |M$."SEGMENT"..(X| 00002980: 58 29 AA 22 3F 96 22 3A 8D 31 35 30 30 3A 87 42 |X)."?.":.1500:.B| 00002990: 28 58 58 2C 31 29 3A 99 42 28 58 58 2C 31 29 3A |(XX,1):.B(XX,1):| 000029A0: FE 0B 31 3A 99 22 93 22 00 11 46 1C 07 4D 24 B2 |..1:."."..F..M$.| 000029B0: 22 9A D7 48 41 54 20 49 53 20 54 48 45 20 C5 CE |"..HAT IS THE ..| 000029C0: C4 C9 CE C7 20 56 45 52 54 45 58 20 46 4F 52 22 |.... VERTEX FOR"| 000029D0: 3A 8D 31 35 30 30 3A 4D 24 B2 22 53 45 47 4D 45 |:.1500:M$."SEGME| 000029E0: 4E 54 22 AA C4 28 58 58 29 AA 22 3F 96 22 3A 8D |NT"..(XX)."?.":.| 000029F0: 31 35 30 30 3A 87 42 28 58 58 2C 32 29 3A 99 42 |1500:.B(XX,2):.B| 00002A00: 28 58 58 2C 32 29 3A FE 0B 31 3A 99 22 93 22 3A |(XX,2):..1:.".":| 00002A10: 82 00 84 46 26 07 4D 24 B2 22 9A D7 48 41 54 20 |...F&.M$."..HAT | 00002A20: 41 52 45 20 54 48 45 20 D8 2C 20 D9 20 41 4E 44 |ARE THE ., . AND| 00002A30: 20 DA 20 56 41 4C 55 45 53 20 4F 46 22 3A 8D 31 | . VALUES OF":.1| 00002A40: 35 30 30 3A 4D 24 B2 22 54 48 45 20 D6 41 4E 54 |500:M$."THE .ANT| 00002A50: 41 47 45 20 D0 4F 49 4E 54 3F 96 22 3A 8D 31 35 |AGE .OINT?.":.15| 00002A60: 30 30 3A 58 B2 32 30 3A 59 B2 32 30 3A 5A B2 31 |00:X.20:Y.20:Z.1| 00002A70: 30 3A 99 58 3B 22 2C 22 3B 59 3B 22 2C 22 3B 5A |0:.X;",";Y;",";Z| 00002A80: 3A FE 0B 31 00 8E 46 30 07 89 31 33 31 30 00 D5 |:..1..F0..1310..| 00002A90: 46 3A 07 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |F:.. -----------| 00002AA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002AB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002AC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002AD0: 2D 2D 2D 2D 2D 00 E5 46 44 07 8F 20 2A 2A 2A 20 |-----..FD.. *** | 00002AE0: 4D 55 53 49 43 00 55 47 4E 07 81 58 B2 35 34 32 |MUSIC.UGN..X.542| 00002AF0: 37 32 A4 35 34 32 39 35 3A 97 58 2C 30 3A 82 3A |72.54295:.X,0:.:| 00002B00: 97 35 34 32 39 36 2C 31 35 3A 97 35 34 32 37 37 |.54296,15:.54277| 00002B10: 2C 38 3A 97 35 34 32 37 38 2C 32 35 35 3A 97 35 |,8:.54278,255:.5| 00002B20: 34 32 37 36 2C 32 33 3A 59 B2 34 3A 81 5A B2 31 |4276,23:Y.4:.Z.1| 00002B30: A4 33 3A 97 35 34 32 38 37 2C 59 3A 81 57 B2 31 |.3:.54287,Y:.W.1| 00002B40: A4 31 35 30 3A 97 35 34 32 37 33 2C 57 3A 59 B2 |.150:.54273,W:Y.| 00002B50: 59 AA 2E 30 31 00 69 47 58 07 82 3A 82 3A 97 35 |Y..01.iGX..:.:.5| 00002B60: 34 32 37 38 2C 31 35 3A 8E 00 AF 47 62 07 8F 20 |4278,15:...Gb.. | 00002B70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002B80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002B90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002BA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.| 00002BB0: F2 47 6C 07 85 22 44 41 54 45 22 3B 41 24 3A 85 |.Gl.."DATE";A$:.| 00002BC0: 22 54 49 4D 45 22 3B 42 24 3A EF 28 41 24 29 AA |"TIME";B$:.(A$).| 00002BD0: 22 20 22 AA 42 24 AA 22 A0 AC B8 BA 22 3A FE 14 |" ".B$."....":..| 00002BE0: 28 41 24 29 AA 22 20 22 AA 42 24 AA 22 2A 22 3A |(A$)." ".B$."*":| 00002BF0: FE 0C 00 00 00 |..... |
..0.....:.1,2:. IP.1.360:UIP.1:.0:.0,7:.
4,7:.5,2.U.... *** DEFINING THE FUNCTION
KEYS.S...X.0:.Y.1.8:.Y,I(D(Y),1):....(.
.:.X.1.8:..X,0:.:.G(14):.G(8)...2.M$."PE
RSPECTIVE GEOMETRY TOOL":.1500:.".":M$."
- A GRAPHICS UTILITY FOR THE -":.1500:M$
."- COMMODORE 128 -":.1500.;.<..70:SP$."
":.X.1.67:.Y:SP$.SP$.G(Y):.:..SP$,8.A.F.
.240,255,255,240,255,255,240,255,255,240
,240,15,240,240,15,240,240,15,240,255,15
,240,255,15,240,255,15,240,0,15,240,0,15
,240,0,15.0.P..240,255,15,240,255,15,240
,255,15,240,15,15,240,15,15,240,15,15,25
5,255,15,255,255,15,255,255,15,23,0,20,0
.X.Z...8,0,2,1,1,1,0:..8,164,120:..8,1,2
.M.D..".........":M$."CSVDF!CPXEFO!IFVSJ
TUJDT":.1480:M$."4221C!MBXOEBMF!ESJWF":.
1480:M$."HSFFOTCPSP-!OD!!38519":.1480.).
N.M$."DPNQVTFSWF!JE!$85287-3255":.1480:M
$."BOE!83338-3215":.1480:.1870:.A(500,6)
,B(500,2).8.X..5,1:.1190.L.....8,0:..8,3
15,220:.0,1:.4,1:.5,15:..8,1,7,1,0,0....
.. -------------------------------------
------------------------------.$ ...".."
:M$."PRESS ".G(34)."I".G(34)." TO SEE TH
E INTRODUCTION":.1500:M$."(ANY OTHER KEY
TO CONTINUE)":.1500.: ...A$:.A$.."I".2
70.. ... -------------------------------
------------------------------------.. .
.."..":M$."THE PERSPECTIVE GEOMETRY PROG
RAM":.1500:M$."CREATES A HIGH-RESOLUTION
DEPICTION":.1500..!..M$."OF OBJECTS IN
TRUE PERSPECTIVE":.1500.U!H.M$."THE OBJE
CTS TO BE DEPICTED MUST BE":.1500:M$."DE
FINED BY GIVING THE CARTESIAN,":.1500.L!
R.M$."COORDINATES OF THEIR VERTICES":.15
00:M$."(CORNERS) AND SPECIFYING WHICH":.
1500. "..M$."VERTICES ARE CONNECTED.":.1
500:M$."ADDITIONALLY, A CARTESIAN VANTAG
E":.1500.N"..M$."POINT IS REQUIRED FOR V
IEWING.":.1500.."..."..":M$."A DISK DRIV
E DEVICE NUMBER OF":.1500:M$."8 IS USED
BY THIS PROGRAM.":.1500.."..."..":.1190.
.#... ----------------------------------
---------------------------------.M#..."
...":M$."PRESS ".G(34)."D".G(34)." TO SE
E THE DEMO":.1500:M$."(ANY OTHER KEY FOR
MAIN PROGRAM)":.1500..#....A$:.A$.."D".
290:U.1740..$"..:."..":M$."TO LOAD AN AL
READY-SAVED PICTURE,":.1500:M$."PRESS L.
":.1500:M$."OTHERWISE, PRESS ANY KEY TO
CONTINUE.":.1500..$,...A$:.A$.."L".1220.
I$6.. ----------------------------------
---------------------------------..$@..
*** LOAD PICTURE ROUTINE.T$J.."...":.."P
G.*":."...WHAT IS THE PICTURE NAME?.":.N
A$:.NA$."".270:U.1,1..$T..H(NA$,3)."PG."
..NA$,8,1..%^.NA$."PG.".NA$:.NA$,8,1.I%H
.A$." STANDBY... GETTING DATA FILE
":.1,1,24,A$,0..%R.XX.C(NA$).3:M$."PD
.".I(NA$,XX):.9,8,7,"0:".M$.",S,R"..%|..
9,V:.9,S:.XX.1.V:.YY.1.3:.9,A(XX,YY):.:.
:.XX.1.S:.9,B(XX,1):.9,B(XX,2):.:.9,X:.9
,Y:.9,Z: 9.,&... -----------------------
----------------------------------------
----.L&... *** RETURN TO MAIN MEMORY..&.
.Z1,9000,40,2,10000,1:.1,1,24," PR
ESS ANY KEY TO RECOVER ",0..&....A
$:.0..&... -----------------------------
--------------------------------------..
'..."...":M$."USE THE FUNCTION KEYS:":.1
500.I'B.."..F1 *** SEE THE PICTURE AGAIN
":.".F2 *** DATA DISPLAY FOR THE PICTURE
"..'L..".F3 *** SEND THE PICTURE TO THE
PRINTER":.".F4 *** RE-RUN THE PROGRAM".8
(V..".F5 *** NEW VANTAGE POINT":.".F6 **
* QUIT THE PROGRAM":.".F7 *** LOAD A STO
RED PICTURE":.".F8 *** SAVE THE CURRENT
PICTURE".A(....A$.X(...A$."1".A$."8".480
..(... E(A$).660,690,990,800,530,560,330
,830.N(... -----------------------------
--------------------------------------..
(... *** NEW VANTAGE POINT..(..."......"
:.1300.H)... ---------------------------
----------------------------------------
.G)&.. *** QUITTING THE PROGRAM..)0.."..
.":M$.".QUITTING THE PROGRAM":.1500:."..
. OKAY, I UNDERSTAND THAT YOU'VE"..*:..
"ALREADY SPECIFIED THAT YOU WANT TO":."Q
UIT THE PROGRAM... BUT... I JUST"..*D.."
KIND OF... ER... SORT OF WANTED TO BE":.
"SURE. I DON'T WANT TO MESS YOU UP IF":.
"YOU HIT THE QUIT KEY ACCIDENTALLY."..*N
.."WELL, REALLY I PREFER TO AVOID THE":.
"EMBARRASSMENT OF YOU GOING AROUND AND":
."TELLING EVERYONE THAT I WASN'T AS".S+X
.."FRIENDLY AS THE IBM PROGRAM OR THE ON
E":."ON THE APPLE OR SOMETHING... SO..."
:."EXCUSE ME FOR ASKING.... BUT..."..+B.
."..":M$.".ARE YOU SURE?.":.1500..+L...A
$:.A$.."Y".A$.."N".620.U+V..A$."Y"..1870
:.57344:U.440..,... --------------------
----------------------------------------
-------.@,... *** RE-VIEWING THE PICTURE
.L,...1:.420..,... ---------------------
----------------------------------------
------..,... *** DATA SCREEN FOR THE PIC
TURE..,..."...":M$."DATA USED FOR THE PI
CTURE":.1500:.".".&-....0,10,39,12,1:."V
ERTICES TO THE FIGURE:":.V:..2.O-F..".."
:..0,10,39,16,1:.XX.1.V:.YY.1.3..-P..".T
HE ";G(87.YY);" VALUE OF VERTEX";XX;":."
:.A(XX,YY):.:..2:.".":..Q-Z.."..":..0,10
,39,12,1:.".LINES JOIN VERTICES:.":.S:..
2..-..."..":..0,10,39,13,1.J....XX.1.S:M
$.".THE STARTING VERTEX FOR":.1500:M$."S
EGMENT".D(XX).":.":.1500:.B(XX,1):..2:."
.".....M$.".THE ENDING VERTEX FOR":.1500
:M$."SEGMENT".D(XX).":.":.1500:.B(XX,2):
..2:.".":......M$.".THE X, Y AND Z VALUE
S OF":.1500:M$."THE VANTAGE POINT:.":.15
00:.X;",";Y;",";Z:..2../...".":.1190:.".
.":.440.8/... *** RE-RUNNING THE PROGRAM
.>/ ..../*.. ---------------------------
----------------------------------------
../4.. *** SAVING THE PICTURE..0>.."...C
URRENT PICTURES:":."..":.."PG.*":."..WHA
T NAME WOULD YOU LIKE TO SAVE THE PIC
TURE WITH?":.NA$.$0H..NA$."".NA$.TI$.;0R
..NA$."PG.".NA$.TI$.L0\..C(NA$).3....Z0F
..H(NA$,3).."PG."..C(NA$).11.NA$.H(NA$,1
1)..0P..C(NA$).14.NA$.H(NA$,14)..0Z....D
0..."...":M$."SAVING...":.1500:.".."..0.
..H(NA$,3).."PG.".NA$."PG.".NA$..1....(N
A$),D0,U8,B0,P8193.P16191.B1..XX.C(NA$).
3:M$."PD.".I(NA$,XX):.9,8,7,"0:".M$.",S,
W"..1...9,V:.9,S:.XX.1.V:.YY.1.3:.9,A(XX
,YY):.:.:.XX.1.S:.9,B(XX,1):.9,B(XX,2):.
:.9,X:.9,Y:.9,Z: 9.C1...."PG.*":."..";NA
$;".":.1190..1...440:. GOING BACK TO THE
INTERNAL MENU..2J.."..":M$."PLEASE STAN
DBY":.1500:..^2T.. ---------------------
----------------------------------------
------..2... *** THE PRINTOUT ROUTINE HE
RE..2..."...............................
...........".?3...".. PLEASE INSURE TH
AT YOUR PRINTER ..":.".. IS OF THE
COMMODORE MPS TYPE ..":.".. AND I
S CONFIGURED AS DEVICE 4 ..".O3..."..
......................................".
Q3...:M$."TO ABORT THIS SELECTION, PRESS
A":.1500:M$."OTHERWISE, ANY OTHER KEY T
O CONTINUE":.1500..3....A$:.A$."A".440.@
4..."...WHAT MESSAGE WOULD YOU LIKE ON T
HE PRINTOUT? (LESS THAN 40 CHARACTE
RS)":.A$.H4$..A$."".A$."BRUCE BOWDEN HEU
RISTICS"..4..YY..((39.C(A$)).2):.XX.1.YY
:A$." ".A$." ":..E48.. C(A$).39.Y.C(A$):
.XX.YY.39:A$.A$." ":...4B..1:.1,1,24,A$,
0:..2:.0.85L.."...":M$."PRINTING THE PIC
TURE NOW...":.1500:.".....":M$."STANDBY
PLEASE...":.1500.R5V..3,4:.X1.8511.8199.
.8..5`..Y1.X1.16191.8.(8..((X1.8191).40.
.5)).320:A$.""..5J..Z1.Y1.7.Y1:WW.B(Z1).
128:.B(Z1).128.WW.192.Y5T.A$.A$.G(WW):.:
.3,G(8)A$;:.:.3:...5~..3,G(15): 3:.1190.
S6...1:.1,1,24," PRESS ANY KEY TO
RECOVER ",0:..1:.0:.440:. RETURN T
O THE INTERNAL MENU._6...1190:..R6...".R
EMOVE ME!"..6...".":M$."PRESS ANY KEY TO
CONTINUE":.1500:.".":..A$:.:...6... ---
----------------------------------------
------------------------..7... *** PICTU
RE ENTRY SCREEN.P7D.."..":M$.". PERSPECT
IVE GEOMETRY TOOL ":.1500:.".."..7N...0
,10,39,11,1:."HOW MANY VERTICES TO THE F
IGURE?":.V:V..(.(V)):.V.0.1230.G7X..".."
:..0,10,39,15,1:.XX.1.V:.YY.1.3..8...".W
HAT IS THE ";G(87.YY);" VALUE OF VERTEX"
;XX;"?.":.A(XX,YY):.:.".":..K8..."..":..
0,10,39,11,1:.".HOW MANY LINES WILL JOIN
VERTICES?.":.S:S..(.(S)):.S.0.1260..8..
."..":..0,10,39,12,1..8...XX.1.S:M$.".WH
AT IS THE STARTING VERTEX FOR":.1500:M$.
"SEGMENT".D(XX)."?.":.1500:.B(XX,1):."."
.D9..M$.".WHAT IS THE ENDING VERTEX FOR"
:.1500:M$."SEGMENT".D(XX)."?.":.1500:.B(
XX,2):.".":...9..M$.".WHAT ARE THE X, Y
AND Z VALUES OF":.1500:M$."THE VANTAGE P
OINT?.":.1500:.X,Y,Z:."..":.1520..:...".
............":M$."COMPUTING...":.1500:M$
."PLEASE STANDBY":.1500:M.X.X.Y.Y.Z.Z:.C
.1.V:I.A(C,1):O.A(C,2):P.A(C,3).V:(.IA..
(X).(X.I):OA..(Y).(Y.O):PA..(Z).(Z.P):A(
C,6).0..:2..(IA.X.OA.Y.PA.Z).(.(M)..(IA.
2.OA.2.PA.2))..5.A(C,6).1.M:<.T.M.(M.X.I
.Y.O.Z.P):I.X.T.(I.X):O.Y.T.(O.Y):P.Z.T.
(P.Z)..;F.A(C,4).(X.O.I.Y)..(Y.Y.X.X):K.
.(I.I.O.O.P.P):.K.0.A(C,5).0:.C:.1370.?;
P.A(C,5)..(P).K..(.(1.(A(C,4).K).2)):.C.
Z;Z.E.1E20:F..E:G.E:I.F:.C.1.V:.A(C,4).E
.A(C,6).0.E.A(C,4)..;D..A(C,4).F.A(C,6).
0.F.A(C,4)..;N..A(C,5).G.A(C,6).0.G.A(C,
5).Z;X..A(C,5).I.A(C,6).0.I.A(C,5)..<...
C:.(F.E).(I.G).P.1.(F.E):U.(F.E)..(I.G).
P.1.(I.G)./<..Z1,9000,40,2,10000,1:.1,1.
`<...C.1.S:.A(B(C,1),6).1.A(B(C,2),6).1.
.C:.1460..< .Q.A(B(C,1),4):W.A(B(C,1),5)
:I.A(B(C,2),4):R.A(B(C,2),5):Q.184.(Q.E)
.P:W.184.(W.G).P.184:I.184.(I.E).P:R.184
.(R.G).P.184..=...1,.(Q.1.5.27),.(W)..(I
.1.5.27),.(R):.C..=...410.[=... --------
----------------------------------------
-------------------..=H.. TEXT CENTERING
ROUTINE USING M$..=R.DC$."":.X.1.C(M$):
DC$.DC$.G(F(J(M$,X,1)).1):.:M$.DC$..=...
BB.1..((40.C(M$)).2..5):M$." ".M$:.:.M$:
..3>... --------------------------------
-----------------------------------..>..
."....":M$."CHOOSE ONE OF THE FOLLOWING
COLORS":.1500:M$."FOR THE PICTURE:":.150
0..>..M$."1) .WHITE .5) .BLUE
":.1500..>..M$.".2) .RED
.6) .CYAN ":.1500..?..M$.".3) .GREEN
.7) .YELLOW":.1500.L?..M$.".4)
.LIGHT GREEN .8) .ORANGE":.1500.J?"
.M$.".9) LIGHT BLUE":.1500..?,...A$:.A$.
"1".A$."9".1580..?6.MB.0:BB.0.B?@..1610:
. . MB.E(A$):.BB:.1,BB:MB.MB.1:.:...?J..
2,3,6,14,7,4,8,9,15.%@T.. --------------
----------------------------------------
-------------.=@^.. *** DATA FOR DEMO.S@
H.. *** 41 VERTICES..@R..13,0,0,5,0,2,4.
5,0,1.5,0,0,1.5,0,17,1.5,0,17,0,4.5,17,1
.5,13,17,0,5,17,2,3,17,1.2.!A|..1,17,1.2
,3,17,.5,1,17,.5,7.2,.75,1.7,7.2,3.75,1.
7,8.2,.75,1.4,8.2,3.75,1.4,7.2,5.25,1.7,
7.2,8.25,1.7,8.2,5.25,1.4..A...8.2,8.25,
1.4,7.2,9.75,1.7,7.2,12.75,1.7,8.2,9.75,
1.4,8.2,12.75,1.4,7.2,13.5,1.7,7.2,16.5,
1.7,8.2,13.5,1.4,8.2,16.5,1.4,8.4,.75,1.
26..B...8.4,12.75,1.26,11,.75,.55,11,12.
75,.55,8.4,13.5,1.26,8.4,16.5,1.26,11,13
.5,.55,11,16.5,.55,11,3,.55,11,10,.55,12
,3,.4,12,10,.4.IB... *** 43 LINE SEGMENT
S.RB...1,8,1,2,2,9,2,3,3,4,3,7,4,5,5,6,5
,7,6,8,7,9,8,9,10,11,10,12,11,13,12,13,1
4,15,14,16,15,17,16,17,18,19,18,20,19,21
,20,21,22,23,22,24.=C...23,25,24,25,26,2
7,26,28,27,29,29,28,30,31,30,32,31,33,32
,33,34,35,34,36,35,37,36,37,38,40,40,41,
41,39..C... ----------------------------
---------------------------------------.
.CB.. *** DEMO ROUTINE.XCL.M$."DEMONSTRA
TION ACTIVATED...":.1500:.1650:V.41:S.43
..DV.."..":M$.". PERSPECTIVE GEOMETRY TO
OL ":.1500:."..":..1.SD....0,10,39,12,1
:."HOW MANY VERTICES TO THE FIGURE?":.V:
..1.|D..."..":..0,10,39,16,1:.XX.1.V:.YY
.1.3.VD...".WHAT IS THE ";G(87.YY);" VAL
UE OF VERTEX";XX;"?.":.A(XX,YY):.A(XX,YY
):..1:.:.".":...E..."..":..0,10,39,12,1:
.".HOW MANY LINES WILL JOIN VERTICES?.":
.S:..1.7E..."..":..0,10,39,13,1..E...XX.
1.S:M$.".WHAT IS THE STARTING VERTEX FOR
":.1500:M$."SEGMENT".D(XX)."?.":.1500:.B
(XX,1):.B(XX,1):..1:."."..F..M$.".WHAT I
S THE ENDING VERTEX FOR":.1500:M$."SEGME
NT".D(XX)."?.":.1500:.B(XX,2):.B(XX,2):.
.1:.".":...F&.M$.".WHAT ARE THE X, Y AND
Z VALUES OF":.1500:M$."THE VANTAGE POIN
T?.":.1500:X.20:Y.20:Z.10:.X;",";Y;",";Z
:..1..F0..1310.UF:.. -------------------
----------------------------------------
-----..FD.. *** MUSIC.UGN..X.54272.54295
:.X,0:.:.54296,15:.54277,8:.54278,255:.5
4276,23:Y.4:.Z.1.3:.54287,Y:.W.1.150:.54
273,W:Y.Y..01.IGX..:.:.54278,15:...GB..
----------------------------------------
-----------------------..GL.."DATE";A$:.
"TIME";B$:.(A$)." ".B$." ...":..(A$)." "
.B$."*":.....
> CLICK IMAGE PREVIEW FOR FULL MODAL