UH.DESIGNER/FP
FILE INFORMATION
FILENAME(S): UH.DESIGNER/FP
FILE TYPE(S): PRG
FILE SIZE: 18.2K
FIRST SEEN: 2025-10-20 14:29:52
APPEARS ON: 1 disk(s)
FILE HASH
570eee43c09782440d46b61060fdf531d223e1f39bad212cb6a4237462e43ec3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UH CAD DRAW | UH.DESIGNER/FP | PRG | Treasure Chest - Klaus Der Suhler | 20 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 40 29 40 0A 00 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D |.@)@...---------|
00000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000020: 2D 44 45 53 49 47 4E 45 52 00 3F 40 14 00 43 B2 |-DESIGNER.?@..C.|
00000030: C2 28 37 31 36 38 29 3A 8B 43 B2 34 A7 36 30 00 |.(7168):.C.4.60.|
00000040: 5B 40 1E 00 DE 31 2C 31 3A DE 35 3A 97 34 37 2C |[@...1,1:.5:.47,|
00000050: 30 3A 97 34 38 2C 31 38 30 3A 9C 00 7E 40 28 00 |0:.48,180:..~@(.|
00000060: FE 11 22 55 4C 54 52 41 20 48 49 52 45 53 22 2C |.."ULTRA HIRES",|
00000070: 42 30 2C 50 37 31 36 38 3A 9E 38 34 34 38 00 E3 |B0,P7168:.8448..|
00000080: 40 3C 00 FE 25 3A 42 41 B2 35 33 32 34 38 3A 45 |@<..%:BA.53248:E|
00000090: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000E0: 20 20 22 00 03 41 41 00 42 47 B2 30 3A 46 47 B2 | "..AA.BG.0:FG.|
000000F0: 33 3A 44 49 B2 31 3A 41 45 B2 33 36 30 3A 45 4E |3:DI.1:AE.360:EN|
00000100: B2 31 38 00 0D 41 46 00 D7 32 33 35 30 00 22 41 |.18..AF..2350."A|
00000110: 50 00 40 57 41 4C 52 55 53 3A FE 0B 31 3A 40 9C |P.@WALRUS:..1:@.|
00000120: 2C 30 00 65 41 5A 00 50 24 B2 22 11 11 11 11 11 |,0.eAZ.P$.".....|
00000130: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000140: 11 11 11 11 11 11 11 11 11 11 11 44 45 53 49 47 |...........DESIG|
00000150: 4E 45 52 22 3A 40 E0 2C 42 41 2C 31 2C 31 2C 33 |NER":@.,BA,1,1,3|
00000160: 2C 39 2C 50 24 00 96 41 64 00 50 24 B2 22 28 41 |,9,P$..Ad.P$."(A|
00000170: 20 4B 45 52 4E 53 20 50 55 42 4C 49 43 41 54 49 | KERNS PUBLICATI|
00000180: 4F 4E 29 22 3A 40 E0 2C 42 41 2C 31 2C 35 30 2C |ON)":@.,BA,1,50,|
00000190: 32 2C 32 2C 50 24 00 CD 41 6E 00 50 24 B2 22 52 |2,2,P$..An.P$."R|
000001A0: 45 4D 49 58 45 44 20 42 59 20 52 4F 44 52 58 22 |EMIXED BY RODRX"|
000001B0: 3A 40 E0 2C 42 41 2C 31 2C 31 34 30 2C 32 2C 38 |:@.,BA,1,140,2,8|
000001C0: 2C 50 24 3A FE 0B 31 3A 40 54 45 58 54 00 F9 41 |,P$:..1:@TEXT..A|
000001D0: 78 00 99 22 43 52 45 41 54 45 53 20 41 20 33 44 |x.."CREATES A 3D|
000001E0: 20 44 52 41 57 49 4E 47 20 49 4E 20 33 20 44 49 | DRAWING IN 3 DI|
000001F0: 4D 45 4E 53 49 4F 4E 53 22 00 17 42 82 00 99 22 |MENSIONS"..B..."|
00000200: 57 49 54 48 20 41 20 4D 4F 56 49 4E 47 20 43 55 |WITH A MOVING CU|
00000210: 52 53 4F 52 22 3A 99 00 2A 42 8C 00 4E 4E 44 B2 |RSOR":..*B..NND.|
00000220: 35 35 30 3A 41 4E 41 B2 35 30 00 60 42 96 00 86 |550:ANA.50.`B...|
00000230: 20 58 42 28 4E 4E 44 29 2C 59 42 28 4E 4E 44 29 | XB(NND),YB(NND)|
00000240: 2C 5A 42 28 4E 4E 44 29 2C 58 45 28 4E 4E 44 29 |,ZB(NND),XE(NND)|
00000250: 2C 59 45 28 4E 4E 44 29 2C 5A 45 28 4E 4E 44 29 |,YE(NND),ZE(NND)|
00000260: 00 A2 42 A0 00 86 20 43 28 33 2C 33 29 2C 43 31 |..B... C(3,3),C1|
00000270: 28 33 2C 33 29 3A 86 41 44 28 41 4E 41 29 2C 54 |(3,3):.AD(ANA),T|
00000280: 58 25 28 41 4E 41 29 2C 54 59 25 28 41 4E 41 29 |X%(ANA),TY%(ANA)|
00000290: 2C 42 58 25 28 41 4E 41 29 2C 42 59 25 28 41 4E |,BX%(ANA),BY%(AN|
000002A0: 41 29 00 B5 42 AA 00 52 58 B2 30 3A 52 59 B2 30 |A)..B..RX.0:RY.0|
000002B0: 3A 52 5A B2 30 00 DA 42 B4 00 8F 2D 2D 2D 2D 2D |:RZ.0..B...-----|
000002C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000002D0: 2D 2D 2D 2D 2D 2D 4D 45 4E 55 00 13 43 BE 00 99 |------MENU..C...|
000002E0: 22 41 4E 47 4C 45 53 20 44 52 41 57 20 53 41 56 |"ANGLES DRAW SAV|
000002F0: 45 20 47 45 54 20 52 4F 54 41 54 45 20 48 45 4C |E GET ROTATE HEL|
00000300: 50 20 46 45 54 43 48 26 53 54 41 53 48 20 20 45 |P FETCH&STASH E|
00000310: 4E 44 22 00 3F 43 C8 00 85 22 28 41 29 20 20 28 |ND".?C..."(A) (|
00000320: 44 29 20 28 53 29 20 28 47 29 20 28 52 29 20 28 |D) (S) (G) (R) (|
00000330: 48 29 20 28 46 29 20 20 28 45 29 22 3B 53 24 00 |H) (F) (E)";S$.|
00000340: 54 43 D2 00 8B 20 53 24 B2 22 44 22 20 A7 20 8D |TC... S$."D" . .|
00000350: 20 33 32 30 00 6A 43 DC 00 8B 20 53 24 B2 22 41 | 320.jC... S$."A|
00000360: 22 20 A7 20 8D 20 31 35 38 30 00 CD 43 E6 00 8B |" . . 1580..C...|
00000370: 20 53 24 B2 C7 28 31 39 33 29 A7 20 8D 20 31 36 | S$..(193). . 16|
00000380: 38 30 3A 99 22 52 58 22 3B 52 58 3B 22 20 52 59 |80:."RX";RX;" RY|
00000390: 22 3B 52 59 3B 22 20 52 5A 22 3B 52 5A 3B 22 20 |";RY;" RZ";RZ;" |
000003A0: 53 46 22 3B 53 46 3B 22 20 58 4F 22 3B 58 4F 3B |SF";SF;" XO";XO;|
000003B0: 22 20 59 4F 22 3B 59 4F 3B 22 20 5A 4F 22 3B 5A |" YO";YO;" ZO";Z|
000003C0: 4F 3B 22 20 49 4E 43 22 3B 49 4E 3A 99 00 E3 43 |O;" INC";IN:...C|
000003D0: F0 00 8B 20 53 24 B2 22 53 22 20 A7 20 8D 20 31 |... S$."S" . . 1|
000003E0: 31 34 30 00 F9 43 FA 00 8B 20 53 24 B2 22 47 22 |140..C... S$."G"|
000003F0: 20 A7 20 8D 20 31 33 36 30 00 1B 44 04 01 8B 20 | . . 1360..D... |
00000400: 53 24 B2 22 52 22 20 A7 20 40 9C 2C 30 3A 40 DE |S$."R" . @.,0:@.|
00000410: 2C 30 2C 37 3A 8D 20 31 37 31 30 00 31 44 0E 01 |,0,7:. 1710.1D..|
00000420: 8B 20 53 24 B2 22 45 22 20 A7 20 89 20 32 33 31 |. S$."E" . . 231|
00000430: 30 00 4B 44 18 01 8B 20 53 24 B2 22 46 22 20 A7 |0.KD... S$."F" .|
00000440: 20 40 9C 2C 30 3A 8D 33 31 31 30 00 61 44 22 01 | @.,0:.3110.aD".|
00000450: 8B 20 53 24 B2 22 48 22 20 A7 20 8D 20 32 33 36 |. S$."H" . . 236|
00000460: 30 00 9C 44 27 01 8B 20 53 24 B2 22 43 22 20 A7 |0..D'.. S$."C" .|
00000470: 20 4E 4C B2 30 3A 44 41 B2 30 3A 99 22 43 4C 45 | NL.0:DA.0:."CLE|
00000480: 41 52 45 44 9D 9D 9D 9D 9D 9D 9D 22 3A FE 0B 31 |ARED.......":..1|
00000490: 3A 99 22 91 20 20 20 20 20 20 20 22 00 C9 44 2C |:.". "..D,|
000004A0: 01 8B 20 53 24 B2 22 24 22 20 A7 20 EE 3A 99 22 |.. S$."$" . .:."|
000004B0: 48 49 54 20 41 4E 59 20 4B 45 59 22 3A A1 F9 4B |HIT ANY KEY":..K|
000004C0: 24 3A 8B 4B 24 A7 32 30 30 00 D3 44 36 01 89 20 |$:.K$.200..D6.. |
000004D0: 31 39 30 00 F6 44 40 01 8F 2D 2D 2D 2D 2D 2D 2D |190..D@..-------|
000004E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000004F0: 2D 2D 44 52 41 57 00 FC 44 4A 01 99 00 0C 45 54 |--DRAW..DJ....ET|
00000500: 01 40 9C 2C 30 3A 40 DE 2C 30 2C 37 00 1C 45 5E |.@.,0:@.,0,7..E^|
00000510: 01 40 EB 54 2C 58 4F 2C 59 4F 2C 31 00 37 45 68 |.@.T,XO,YO,1.7Eh|
00000520: 01 41 41 B2 31 30 3A 42 42 B2 30 3A 43 43 B2 30 |.AA.10:BB.0:CC.0|
00000530: 3A 8D 20 32 32 35 30 00 52 45 72 01 40 E5 2C 58 |:. 2250.REr.@.,X|
00000540: 4F 2C 59 4F 2C 58 54 AA 58 4F 2C 59 54 AA 59 4F |O,YO,XT.XO,YT.YO|
00000550: 2C 31 00 62 45 7C 01 40 EB 54 2C 58 4F 2C 59 4F |,1.bE|.@.T,XO,YO|
00000560: 2C 31 00 7D 45 86 01 41 41 B2 30 3A 42 42 B2 31 |,1.}E..AA.0:BB.1|
00000570: 30 3A 43 43 B2 30 3A 8D 20 32 32 35 30 00 98 45 |0:CC.0:. 2250..E|
00000580: 90 01 40 E5 2C 58 4F 2C 59 4F 2C 58 54 AA 58 4F |..@.,XO,YO,XT.XO|
00000590: 2C 59 54 AA 59 4F 2C 31 00 A8 45 9A 01 40 EB 54 |,YT.YO,1..E..@.T|
000005A0: 2C 58 4F 2C 59 4F 2C 31 00 C3 45 A4 01 41 41 B2 |,XO,YO,1..E..AA.|
000005B0: 30 3A 42 42 B2 30 3A 43 43 B2 31 30 3A 8D 20 32 |0:BB.0:CC.10:. 2|
000005C0: 32 35 30 00 DE 45 AE 01 40 E5 2C 58 4F 2C 59 4F |250..E..@.,XO,YO|
000005D0: 2C 58 54 AA 58 4F 2C 59 54 AA 59 4F 2C 31 00 FB |,XT.XO,YT.YO,1..|
000005E0: 45 B8 01 41 41 B2 58 43 3A 42 42 B2 59 43 3A 43 |E..AA.XC:BB.YC:C|
000005F0: 43 B2 5A 43 3A 8D 20 32 32 35 30 00 04 46 C2 01 |C.ZC:. 2250..F..|
00000600: A1 20 41 24 00 21 46 CC 01 41 41 B2 58 43 3A 42 |. A$.!F..AA.XC:B|
00000610: 42 B2 59 43 3A 43 43 B2 5A 43 3A 8D 20 32 32 35 |B.YC:CC.ZC:. 225|
00000620: 30 00 3D 46 D6 01 40 EB 54 2C B6 28 58 54 AA 58 |0.=F..@.T,.(XT.X|
00000630: 4F 29 2C B6 28 59 54 AA 59 4F 29 2C 30 00 55 46 |O),.(YT.YO),0.UF|
00000640: E0 01 8B 20 41 24 B2 22 1D 22 20 A7 20 58 43 B2 |... A$."." . XC.|
00000650: 58 43 AA 49 4E 00 6D 46 EA 01 8B 20 41 24 B2 22 |XC.IN.mF... A$."|
00000660: 9D 22 20 A7 20 58 43 B2 58 43 AB 49 4E 00 85 46 |." . XC.XC.IN..F|
00000670: F4 01 8B 20 41 24 B2 22 11 22 20 A7 20 59 43 B2 |... A$."." . YC.|
00000680: 59 43 AA 49 4E 00 9D 46 FE 01 8B 20 41 24 B2 22 |YC.IN..F... A$."|
00000690: 91 22 20 A7 20 59 43 B2 59 43 AB 49 4E 00 B5 46 |." . YC.YC.IN..F|
000006A0: 08 02 8B 20 41 24 B2 22 49 22 20 A7 20 5A 43 B2 |... A$."I" . ZC.|
000006B0: 5A 43 AA 49 4E 00 CD 46 12 02 8B 20 41 24 B2 22 |ZC.IN..F... A$."|
000006C0: 4F 22 20 A7 20 5A 43 B2 5A 43 AB 49 4E 00 E3 46 |O" . ZC.ZC.IN..F|
000006D0: 1C 02 8B 20 41 24 B2 22 46 22 20 A7 20 8D 20 32 |... A$."F" . . 2|
000006E0: 36 39 30 00 F8 46 26 02 8B 20 41 24 B2 22 53 22 |690..F&.. A$."S"|
000006F0: 20 A7 20 8D 20 39 35 30 00 0E 47 30 02 8B 20 41 | . . 950..G0.. A|
00000700: 24 B2 22 4C 22 20 A7 20 8D 20 31 30 30 30 00 23 |$."L" . . 1000.#|
00000710: 47 3A 02 8B 20 41 24 B2 22 45 22 20 A7 20 8D 20 |G:.. A$."E" . . |
00000720: 38 33 30 00 38 47 44 02 8B 20 41 24 B2 22 50 22 |830.8GD.. A$."P"|
00000730: 20 A7 20 8D 20 38 39 30 00 53 47 4E 02 8B 20 41 | . . 890.SGN.. A|
00000740: 24 B2 22 44 22 20 A7 20 8D 20 33 34 39 30 3A 89 |$."D" . . 3490:.|
00000750: 38 32 30 00 69 47 58 02 8B 20 41 24 B2 22 43 22 |820.iGX.. A$."C"|
00000760: 20 A7 20 8D 20 34 32 34 30 00 7C 47 62 02 8B 20 | . . 4240.|Gb.. |
00000770: 41 24 B2 22 52 22 20 89 20 38 32 30 00 99 47 6C |A$."R" . 820..Gl|
00000780: 02 41 41 B2 58 43 3A 42 42 B2 59 43 3A 43 43 B2 |.AA.XC:BB.YC:CC.|
00000790: 5A 43 3A 8D 20 32 32 35 30 00 B3 47 76 02 8B 58 |ZC:. 2250..Gv..X|
000007A0: 54 AA 58 4F B3 30 A7 58 43 B2 58 43 AA 31 3A 89 |T.XO.0.XC.XC.1:.|
000007B0: 36 32 30 00 CF 47 80 02 8B 58 54 AA 58 4F B1 36 |620..G...XT.XO.6|
000007C0: 33 39 A7 58 43 B2 58 43 AB 31 3A 89 36 32 30 00 |39.XC.XC.1:.620.|
000007D0: E9 47 8A 02 8B 59 54 AA 59 4F B3 30 A7 59 43 B2 |.G...YT.YO.0.YC.|
000007E0: 59 43 AA 31 3A 89 36 32 30 00 05 48 94 02 8B 59 |YC.1:.620..H...Y|
000007F0: 54 AA 59 4F B1 31 39 39 A7 59 43 B2 59 43 AB 31 |T.YO.199.YC.YC.1|
00000800: 3A 89 36 32 30 00 1B 48 9E 02 40 EB 54 2C 58 54 |:.620..H..@.T,XT|
00000810: AA 58 4F 2C 59 54 AA 59 4F 2C 31 00 25 48 A8 02 |.XO,YT.YO,1.%H..|
00000820: 50 24 B2 22 22 00 47 48 B2 02 51 52 B2 51 52 AA |P$."".GH..QR.QR.|
00000830: 31 3A 8B 51 52 B1 32 A7 51 52 B2 30 3A 89 37 30 |1:.QR.2.QR.0:.70|
00000840: 30 3A D5 89 38 31 30 00 5B 48 BC 02 51 B2 51 AA |0:..810.[H..Q.Q.|
00000850: 31 3A 8B 51 B1 32 31 A7 51 B2 30 00 C0 48 C6 02 |1:.Q.21.Q.0..H..|
00000860: 91 51 8D 37 34 30 2C 37 35 30 2C 37 32 30 2C 37 |.Q.740,750,720,7|
00000870: 32 30 2C 37 32 30 2C 37 36 30 2C 37 32 30 2C 37 |20,720,760,720,7|
00000880: 32 30 2C 37 32 30 2C 37 37 30 2C 37 32 30 2C 37 |20,720,770,720,7|
00000890: 32 30 2C 37 32 30 2C 37 38 30 2C 37 32 30 2C 37 |20,720,780,720,7|
000008A0: 32 30 2C 37 32 30 2C 37 39 30 2C 37 32 30 2C 37 |20,720,790,720,7|
000008B0: 32 30 2C 37 32 30 3A 8D 37 33 30 3A 89 38 30 30 |20,720:.730:.800|
000008C0: 00 C6 48 D0 02 8E 00 0C 49 DA 02 50 4B 24 B2 22 |..H.....I..PK$."|
000008D0: 58 43 22 AA C4 28 58 43 29 AA 22 20 59 43 22 AA |XC"..(XC)." YC".|
000008E0: C4 28 59 43 29 AA 22 20 5A 43 22 AA C4 28 5A 43 |.(YC)." ZC"..(ZC|
000008F0: 29 AA 22 20 20 20 20 22 3A 40 E0 2C 42 41 2C 31 |)." ":@.,BA,1|
00000900: 2C 31 2C 31 2C 31 2C 50 4B 24 3A 8E 00 63 49 E4 |,1,1,1,PK$:..cI.|
00000910: 02 50 24 B2 22 3C 43 55 52 53 4F 52 20 4B 45 59 |.P$."<CURSOR KEY|
00000920: 53 3E 20 49 2F 4F 20 53 4C 52 20 20 20 20 20 20 |S> I/O SLR |
00000930: 50 52 45 53 53 20 5B 20 52 20 5D 20 54 4F 20 52 |PRESS [ R ] TO R|
00000940: 45 54 55 52 4E 20 20 22 3A 40 E0 2C 42 41 2C 32 |ETURN ":@.,BA,2|
00000950: 30 38 2C 31 2C 31 2C 31 2C 50 24 3A 50 24 B2 22 |08,1,1,1,P$:P$."|
00000960: 22 3A 8E 00 82 49 EE 02 50 24 B2 22 12 46 92 20 |":...I..P$.".F. |
00000970: 45 54 43 48 20 20 52 4F 55 54 49 4E 45 53 20 22 |ETCH ROUTINES "|
00000980: 3A 8E 00 A1 49 F8 02 50 24 B2 22 12 45 92 20 52 |:...I..P$.".E. R|
00000990: 41 53 45 20 20 4C 49 4E 45 20 20 20 20 20 22 3A |ASE LINE ":|
000009A0: 8E 00 C0 49 02 03 50 24 B2 22 12 50 92 20 49 58 |...I..P$.".P. IX|
000009B0: 45 4C 20 20 49 4E 43 52 45 4D 45 4E 54 22 3A 8E |EL INCREMENT":.|
000009C0: 00 DF 49 0C 03 50 24 B2 22 12 44 92 20 55 50 4C |..I..P$.".D. UPL|
000009D0: 49 43 41 54 45 20 20 4D 4F 44 45 20 22 3A 8E 00 |ICATE MODE ":..|
000009E0: FE 49 16 03 50 24 B2 22 12 43 92 20 49 52 43 4C |.I..P$.".C. IRCL|
000009F0: 45 20 20 52 4F 55 54 49 4E 45 53 22 3A 8E 00 15 |E ROUTINES":...|
00000A00: 4A 20 03 40 E0 2C 42 41 2C 31 2C 31 39 32 2C 31 |J .@.,BA,1,192,1|
00000A10: 2C 31 2C 50 24 00 1F 4A 2A 03 89 20 34 35 30 00 |,1,P$..J*.. 450.|
00000A20: 2B 4A 34 03 40 54 45 58 54 3A 8E 00 AC 4A 3E 03 |+J4.@TEXT:...J>.|
00000A30: 40 E0 2C 42 41 2C 31 2C 31 2C 31 2C 31 2C 45 24 |@.,BA,1,1,1,1,E$|
00000A40: 3A 50 24 B2 22 59 4F 55 52 20 43 55 52 52 45 4E |:P$."YOUR CURREN|
00000A50: 54 20 41 4D 4F 55 4E 54 20 4F 46 20 4C 49 4E 45 |T AMOUNT OF LINE|
00000A60: 53 20 49 53 22 3A 40 E0 2C 42 41 2C 31 2C 31 2C |S IS":@.,BA,1,1,|
00000A70: 31 2C 31 2C 50 24 AA C4 28 4E 4C 29 3A 50 24 B2 |1,1,P$..(NL):P$.|
00000A80: 22 50 52 45 53 53 20 5B 2B 5D 20 4F 52 20 5B 2D |"PRESS [+] OR [-|
00000A90: 5D 20 4F 52 20 5B 52 5D 22 3A 40 E0 2C 42 41 2C |] OR [R]":@.,BA,|
00000AA0: 32 38 30 2C 31 2C 31 2C 31 2C 50 24 00 B5 4A 48 |280,1,1,1,P$..JH|
00000AB0: 03 A1 F9 4B 24 00 F5 4A 52 03 8B 4B 24 B2 22 2D |...K$..JR..K$."-|
00000AC0: 22 A7 4E 4C B2 4E 4C AB 31 3A 50 24 B2 22 4E 45 |".NL.NL.1:P$."NE|
00000AD0: 57 20 4C 49 4E 45 20 4E 4F 57 20 49 53 22 3A 40 |W LINE NOW IS":@|
00000AE0: E0 2C 42 41 2C 31 2C 39 2C 31 2C 31 2C 50 24 AA |.,BA,1,9,1,1,P$.|
00000AF0: C4 28 4E 4C 29 00 35 4B 5C 03 8B 4B 24 B2 22 2B |.(NL).5K\..K$."+|
00000B00: 22 A7 4E 4C B2 4E 4C AA 31 3A 50 24 B2 22 4E 45 |".NL.NL.1:P$."NE|
00000B10: 57 20 4C 49 4E 45 20 4E 4F 57 20 49 53 22 3A 40 |W LINE NOW IS":@|
00000B20: E0 2C 42 41 2C 31 2C 39 2C 31 2C 31 2C 50 24 AA |.,BA,1,9,1,1,P$.|
00000B30: C4 28 4E 4C 29 00 68 4B 66 03 8B 20 4B 24 B2 22 |.(NL).hKf.. K$."|
00000B40: 52 22 20 A7 20 40 E0 2C 42 41 2C 31 2C 31 2C 31 |R" . @.,BA,1,1,1|
00000B50: 2C 31 2C 45 24 3A 40 E0 2C 42 41 2C 31 2C 39 2C |,1,E$:@.,BA,1,9,|
00000B60: 31 2C 31 2C 45 24 3A 8E 00 71 4B 70 03 89 38 34 |1,1,E$:..qKp..84|
00000B70: 30 00 EB 4B 7A 03 50 24 B2 22 43 55 52 53 4F 52 |0..Kz.P$."CURSOR|
00000B80: 20 49 4E 43 52 45 4D 45 4E 54 22 3A 40 E0 2C 42 | INCREMENT":@.,B|
00000B90: 41 2C 31 2C 31 38 34 2C 31 2C 31 2C 50 24 AA C4 |A,1,184,1,1,P$..|
00000BA0: 28 49 4E 29 3A 50 4B 24 B2 22 50 52 45 53 53 20 |(IN):PK$."PRESS |
00000BB0: 5B 2B 5D 20 4F 52 20 5B 2D 5D 20 4F 52 20 5B 52 |[+] OR [-] OR [R|
00000BC0: 5D 22 3A 40 E0 2C 42 41 2C 32 38 30 2C 31 38 34 |]":@.,BA,280,184|
00000BD0: 2C 31 2C 31 2C 50 4B 24 3A 40 E0 2C 42 41 2C 31 |,1,1,PK$:@.,BA,1|
00000BE0: 2C 31 39 32 2C 31 2C 31 2C 45 24 00 F4 4B 84 03 |,192,1,1,E$..K..|
00000BF0: A1 F9 4B 24 00 21 4C 8E 03 8B 4B 24 B2 22 2B 22 |..K$.!L...K$."+"|
00000C00: A7 49 4E B2 49 4E AA 31 3A 40 E0 2C 42 41 2C 31 |.IN.IN.1:@.,BA,1|
00000C10: 2C 31 39 32 2C 31 2C 31 2C 50 24 AA C4 28 49 4E |,192,1,1,P$..(IN|
00000C20: 29 00 4E 4C 98 03 8B 4B 24 B2 22 2D 22 A7 49 4E |).NL...K$."-".IN|
00000C30: B2 49 4E AB 31 3A 40 E0 2C 42 41 2C 31 2C 31 39 |.IN.1:@.,BA,1,19|
00000C40: 32 2C 31 2C 31 2C 50 24 AA C4 28 49 4E 29 00 85 |2,1,1,P$..(IN)..|
00000C50: 4C A2 03 8B 20 4B 24 B2 22 52 22 20 A7 20 40 E0 |L... K$."R" . @.|
00000C60: 2C 42 41 2C 31 2C 31 38 34 2C 31 2C 31 2C 45 24 |,BA,1,184,1,1,E$|
00000C70: 3A 40 E0 2C 42 41 2C 31 2C 31 39 32 2C 31 2C 31 |:@.,BA,1,192,1,1|
00000C80: 2C 45 24 3A 8E 00 8E 4C AC 03 89 39 30 30 00 B7 |,E$:...L...900..|
00000C90: 4C B6 03 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |L...------------|
00000CA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 53 54 41 52 54 20 4E |---------START N|
00000CB0: 45 57 20 4C 49 4E 45 00 C1 4C C0 03 58 53 B2 58 |EW LINE..L..XS.X|
00000CC0: 43 00 CB 4C CA 03 59 53 B2 59 43 00 D5 4C D4 03 |C..L..YS.YC..L..|
00000CD0: 5A 53 B2 5A 43 00 DB 4C DE 03 8E 00 00 4D E8 03 |ZS.ZC..L.....M..|
00000CE0: 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.---------------|
00000CF0: 2D 2D 2D 2D 2D 2D 2D 2D 4E 45 57 20 4C 49 4E 45 |--------NEW LINE|
00000D00: 00 0C 4D F2 03 4E 4C B2 4E 4C AA 31 00 1A 4D FC |..M..NL.NL.1..M.|
00000D10: 03 58 42 28 4E 4C 29 B2 58 53 00 28 4D 06 04 59 |.XB(NL).XS.(M..Y|
00000D20: 42 28 4E 4C 29 B2 59 53 00 36 4D 10 04 5A 42 28 |B(NL).YS.6M..ZB(|
00000D30: 4E 4C 29 B2 5A 53 00 44 4D 1A 04 58 45 28 4E 4C |NL).ZS.DM..XE(NL|
00000D40: 29 B2 58 43 00 52 4D 24 04 59 45 28 4E 4C 29 B2 |).XC.RM$.YE(NL).|
00000D50: 59 43 00 60 4D 2E 04 5A 45 28 4E 4C 29 B2 5A 43 |YC.`M..ZE(NL).ZC|
00000D60: 00 7D 4D 38 04 41 41 B2 58 53 3A 42 42 B2 59 53 |.}M8.AA.XS:BB.YS|
00000D70: 3A 43 43 B2 5A 53 3A 8D 20 32 32 35 30 00 93 4D |:CC.ZS:. 2250..M|
00000D80: 42 04 4E 58 B2 58 54 AA 58 4F 3A 4E 59 B2 59 54 |B.NX.XT.XO:NY.YT|
00000D90: AA 59 4F 00 B0 4D 4C 04 41 41 B2 58 43 3A 42 42 |.YO..ML.AA.XC:BB|
00000DA0: B2 59 43 3A 43 43 B2 5A 43 3A 8D 20 32 32 35 30 |.YC:CC.ZC:. 2250|
00000DB0: 00 CB 4D 56 04 40 E5 2C 4E 58 2C 4E 59 2C 58 54 |..MV.@.,NX,NY,XT|
00000DC0: AA 58 4F 2C 59 54 AA 59 4F 2C 31 00 E1 4D 60 04 |.XO,YT.YO,1..M`.|
00000DD0: 58 53 B2 58 43 3A 59 53 B2 59 43 3A 5A 53 B2 5A |XS.XC:YS.YC:ZS.Z|
00000DE0: 43 00 E7 4D 6A 04 8E 00 0F 4E 74 04 8F 2D 2D 2D |C..Mj....Nt..---|
00000DF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000E00: 2D 2D 53 54 4F 52 45 20 44 52 41 57 49 4E 47 00 |--STORE DRAWING.|
00000E10: 29 4E 7E 04 99 22 46 49 4C 45 20 54 4F 20 42 45 |)N~.."FILE TO BE|
00000E20: 20 53 54 4F 52 45 44 3A 22 00 3F 4E 88 04 85 22 | STORED:".?N..."|
00000E30: 46 49 4C 45 20 4E 41 4D 45 3A 20 22 3B 46 24 00 |FILE NAME: ";F$.|
00000E40: 58 4E 92 04 9F 32 2C 38 2C 32 2C 22 30 3A 22 AA |XN...2,8,2,"0:".|
00000E50: 46 24 AA 22 53 2C 57 22 00 62 4E 9C 04 98 32 2C |F$."S,W".bN...2,|
00000E60: 52 58 00 6C 4E A6 04 98 32 2C 52 59 00 76 4E B0 |RX.lN...2,RY.vN.|
00000E70: 04 98 32 2C 52 5A 00 80 4E BA 04 98 32 2C 58 4F |..2,RZ..N...2,XO|
00000E80: 00 8A 4E C4 04 98 32 2C 59 4F 00 94 4E CE 04 98 |..N...2,YO..N...|
00000E90: 32 2C 5A 4F 00 9E 4E D8 04 98 32 2C 53 46 00 A8 |2,ZO..N...2,SF..|
00000EA0: 4E E2 04 98 32 2C 4E 4C 00 B7 4E EC 04 81 20 49 |N...2,NL..N... I|
00000EB0: B2 31 20 A4 20 4E 4C 00 C4 4E F6 04 98 32 2C 58 |.1 . NL..N...2,X|
00000EC0: 42 28 49 29 00 D1 4E 00 05 98 32 2C 59 42 28 49 |B(I)..N...2,YB(I|
00000ED0: 29 00 DE 4E 0A 05 98 32 2C 5A 42 28 49 29 00 EB |)..N...2,ZB(I)..|
00000EE0: 4E 14 05 98 32 2C 58 45 28 49 29 00 F8 4E 1E 05 |N...2,XE(I)..N..|
00000EF0: 98 32 2C 59 45 28 49 29 00 05 4F 28 05 98 32 2C |.2,YE(I)..O(..2,|
00000F00: 5A 45 28 49 29 00 0D 4F 32 05 82 20 49 00 14 4F |ZE(I)..O2.. I..O|
00000F10: 3C 05 A0 32 00 1A 4F 46 05 8E 00 42 4F 50 05 8F |<..2..OF...BOP..|
00000F20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000F30: 2D 2D 2D 2D 2D 2D 2D 47 45 54 20 44 52 41 57 49 |-------GET DRAWI|
00000F40: 4E 47 00 57 4F 5A 05 85 22 46 49 4C 45 4E 41 4D |NG.WOZ.."FILENAM|
00000F50: 45 3A 20 22 3B 46 24 00 70 4F 64 05 9F 32 2C 38 |E: ";F$.pOd..2,8|
00000F60: 2C 32 2C 22 30 3A 22 AA 46 24 AA 22 53 2C 52 22 |,2,"0:".F$."S,R"|
00000F70: 00 7A 4F 6E 05 84 32 2C 52 58 00 84 4F 78 05 84 |.zOn..2,RX..Ox..|
00000F80: 32 2C 52 59 00 8E 4F 82 05 84 32 2C 52 5A 00 98 |2,RY..O...2,RZ..|
00000F90: 4F 8C 05 84 32 2C 58 4F 00 A2 4F 96 05 84 32 2C |O...2,XO..O...2,|
00000FA0: 59 4F 00 AC 4F A0 05 84 32 2C 5A 4F 00 B6 4F AA |YO..O...2,ZO..O.|
00000FB0: 05 84 32 2C 53 46 00 C0 4F B4 05 84 32 2C 4E 4C |..2,SF..O...2,NL|
00000FC0: 00 CF 4F BE 05 81 20 49 B2 31 20 A4 20 4E 4C 00 |..O... I.1 . NL.|
00000FD0: DC 4F C8 05 84 32 2C 58 42 28 49 29 00 E9 4F D2 |.O...2,XB(I)..O.|
00000FE0: 05 84 32 2C 59 42 28 49 29 00 F6 4F DC 05 84 32 |..2,YB(I)..O...2|
00000FF0: 2C 5A 42 28 49 29 00 03 50 E6 05 84 32 2C 58 45 |,ZB(I)..P...2,XE|
00001000: 28 49 29 00 10 50 F0 05 84 32 2C 59 45 28 49 29 |(I)..P...2,YE(I)|
00001010: 00 1D 50 FA 05 84 32 2C 5A 45 28 49 29 00 25 50 |..P...2,ZE(I).%P|
00001020: 04 06 82 20 49 00 2C 50 0E 06 A0 32 00 43 50 18 |... I.,P...2.CP.|
00001030: 06 40 9C 2C 30 3A 40 DE 2C 30 2C 37 3A 8D 20 31 |.@.,0:@.,0,7:. 1|
00001040: 37 31 30 00 49 50 22 06 8E 00 6E 50 2C 06 8F 2D |710.IP"...nP,..-|
00001050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001060: 2D 2D 2D 2D 2D 2D 2D 2D 41 4E 47 4C 45 53 00 74 |--------ANGLES.t|
00001070: 50 36 06 99 00 8D 50 40 06 85 22 52 58 2C 52 59 |P6....P@.."RX,RY|
00001080: 2C 52 5A 22 3B 52 58 2C 52 59 2C 52 5A 00 C7 50 |,RZ";RX,RY,RZ..P|
00001090: 4A 06 52 58 B2 52 58 AC 33 2E 31 34 31 35 39 AD |J.RX.RX.3.14159.|
000010A0: 31 38 30 3A 52 59 B2 52 59 AC 33 2E 31 34 31 35 |180:RY.RY.3.1415|
000010B0: 39 AD 31 38 30 3A 52 5A B2 52 5A AC 33 2E 31 34 |9.180:RZ.RZ.3.14|
000010C0: 31 35 39 AD 31 38 30 00 E9 50 54 06 85 22 58 4F |159.180..PT.."XO|
000010D0: 2C 59 4F 2C 5A 4F 20 28 47 4C 4F 42 41 4C 29 22 |,YO,ZO (GLOBAL)"|
000010E0: 3B 58 4F 2C 59 4F 2C 5A 4F 00 F8 50 5E 06 8B 58 |;XO,YO,ZO..P^..X|
000010F0: 4F B3 31 A7 58 4F B2 31 00 07 51 68 06 8B 59 4F |O.1.XO.1..Qh..YO|
00001100: B3 31 A7 59 4F B2 31 00 16 51 72 06 8B 5A 4F B3 |.1.YO.1..Qr..ZO.|
00001110: 31 A7 5A 4F B2 31 00 30 51 7C 06 85 22 53 43 41 |1.ZO.1.0Q|.."SCA|
00001120: 4C 45 20 46 41 43 54 4F 52 20 53 46 22 3B 53 46 |LE FACTOR SF";SF|
00001130: 00 6A 51 86 06 85 22 49 4E 43 52 45 4D 45 4E 54 |.jQ..."INCREMENT|
00001140: 20 4F 46 20 44 52 41 57 20 50 49 58 45 4C 22 3B | OF DRAW PIXEL";|
00001150: 49 4E 3A 8B 49 4E B2 30 A7 49 4E B2 31 3A 89 31 |IN:.IN.0.IN.1:.1|
00001160: 36 39 30 3A D5 89 31 36 39 30 00 9B 51 90 06 52 |690:..1690..Q..R|
00001170: 58 B2 30 3A 52 59 B2 30 3A 52 5A B2 30 3A 53 46 |X.0:RY.0:RZ.0:SF|
00001180: B2 31 3A 58 4F B2 33 30 30 3A 59 4F B2 31 30 30 |.1:XO.300:YO.100|
00001190: 3A 5A 4F B2 30 3A 49 4E B2 31 30 00 A6 51 9A 06 |:ZO.0:IN.10..Q..|
000011A0: 8D 20 32 31 34 30 00 AE 51 A4 06 99 3A 8E 00 D3 |. 2140..Q...:...|
000011B0: 51 AE 06 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |Q...------------|
000011C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 52 4F 54 |-------------ROT|
000011D0: 41 54 45 00 E8 51 B8 06 8B 20 53 24 B2 22 47 22 |ATE..Q... S$."G"|
000011E0: A7 20 89 20 31 39 37 30 00 FE 51 C2 06 52 58 B2 |. . 1970..Q..RX.|
000011F0: 4A 58 3A 52 59 B2 4A 59 3A 52 5A B2 4A 5A 00 5E |JX:RY.JY:RZ.JZ.^|
00001200: 52 CC 06 50 24 B2 22 55 53 45 20 43 55 52 53 4F |R..P$."USE CURSO|
00001210: 52 20 55 50 20 41 4E 44 20 43 55 52 53 4F 52 20 |R UP AND CURSOR |
00001220: 44 4F 57 4E 20 46 4F 52 20 56 41 4C 55 45 20 4F |DOWN FOR VALUE O|
00001230: 46 20 52 58 20 54 48 45 4E 20 48 49 54 20 52 45 |F RX THEN HIT RE|
00001240: 54 55 52 4E 22 3A 40 E0 2C 42 41 2C 31 2C 31 38 |TURN":@.,BA,1,18|
00001250: 34 2C 31 2C 31 2C 50 24 3A 89 31 37 39 30 00 67 |4,1,1,P$:.1790.g|
00001260: 52 D6 06 A1 F9 53 24 00 7B 52 E0 06 8B 53 24 B2 |R....S$.{R...S$.|
00001270: 22 91 22 A7 52 58 B2 52 58 AA 31 00 8F 52 EA 06 |".".RX.RX.1..R..|
00001280: 8B 53 24 B2 22 11 22 A7 52 58 B2 52 58 AB 31 00 |.S$.".".RX.RX.1.|
00001290: AA 52 F4 06 8B 53 24 B2 C7 28 31 33 29 A7 40 DE |.R...S$..(13).@.|
000012A0: 2C 30 2C 33 3A 89 31 38 31 30 00 D8 52 FE 06 52 |,0,3:.1810..R..R|
000012B0: 58 24 B2 C4 28 52 58 29 3A 40 E0 2C 42 41 2C 31 |X$..(RX):@.,BA,1|
000012C0: 30 30 2C 31 39 32 2C 31 2C 31 2C 22 52 58 20 22 |00,192,1,1,"RX "|
000012D0: AA 52 58 24 AA 22 20 22 00 E2 52 08 07 89 31 37 |.RX$." "..R...17|
000012E0: 35 30 00 42 53 12 07 50 24 B2 22 55 53 45 20 43 |50.BS..P$."USE C|
000012F0: 55 52 53 4F 52 20 55 50 20 41 4E 44 20 43 55 52 |URSOR UP AND CUR|
00001300: 53 4F 52 20 44 4F 57 4E 20 46 4F 52 20 56 41 4C |SOR DOWN FOR VAL|
00001310: 55 45 20 4F 46 20 52 59 20 54 48 45 4E 20 48 49 |UE OF RY THEN HI|
00001320: 54 20 52 45 54 55 52 4E 22 3A 40 E0 2C 42 41 2C |T RETURN":@.,BA,|
00001330: 31 2C 31 38 34 2C 31 2C 31 2C 50 24 3A 89 31 38 |1,184,1,1,P$:.18|
00001340: 36 30 00 4B 53 1C 07 A1 F9 53 24 00 5F 53 26 07 |60.KS....S$._S&.|
00001350: 8B 53 24 B2 22 91 22 A7 52 59 B2 52 59 AA 31 00 |.S$.".".RY.RY.1.|
00001360: 73 53 30 07 8B 53 24 B2 22 11 22 A7 52 59 B2 52 |sS0..S$.".".RY.R|
00001370: 59 AB 31 00 8E 53 3A 07 8B 53 24 B2 C7 28 31 33 |Y.1..S:..S$..(13|
00001380: 29 A7 40 DE 2C 30 2C 34 3A 89 31 38 38 30 00 BC |).@.,0,4:.1880..|
00001390: 53 44 07 52 59 24 B2 C4 28 52 59 29 3A 40 E0 2C |SD.RY$..(RY):@.,|
000013A0: 42 41 2C 31 37 32 2C 31 39 32 2C 31 2C 31 2C 22 |BA,172,192,1,1,"|
000013B0: 52 59 20 22 AA 52 59 24 AA 22 20 22 00 C6 53 4E |RY ".RY$." "..SN|
000013C0: 07 89 31 38 32 30 00 26 54 58 07 50 24 B2 22 55 |..1820.&TX.P$."U|
000013D0: 53 45 20 43 55 52 53 4F 52 20 55 50 20 41 4E 44 |SE CURSOR UP AND|
000013E0: 20 43 55 52 53 4F 52 20 44 4F 57 4E 20 46 4F 52 | CURSOR DOWN FOR|
000013F0: 20 56 41 4C 55 45 20 4F 46 20 52 5A 20 54 48 45 | VALUE OF RZ THE|
00001400: 4E 20 48 49 54 20 52 45 54 55 52 4E 22 3A 40 E0 |N HIT RETURN":@.|
00001410: 2C 42 41 2C 31 2C 31 38 34 2C 31 2C 31 2C 50 24 |,BA,1,184,1,1,P$|
00001420: 3A 89 31 39 33 30 00 2F 54 62 07 A1 F9 53 24 00 |:.1930./Tb...S$.|
00001430: 43 54 6C 07 8B 53 24 B2 22 91 22 A7 52 5A B2 52 |CTl..S$.".".RZ.R|
00001440: 5A AA 31 00 57 54 76 07 8B 53 24 B2 22 11 22 A7 |Z.1.WTv..S$.".".|
00001450: 52 5A B2 52 5A AB 31 00 72 54 80 07 8B 53 24 B2 |RZ.RZ.1.rT...S$.|
00001460: C7 28 31 33 29 A7 40 DE 2C 30 2C 37 3A 89 31 39 |.(13).@.,0,7:.19|
00001470: 35 30 00 A0 54 8A 07 52 5A 24 B2 C4 28 52 5A 29 |50..T..RZ$..(RZ)|
00001480: 3A 40 E0 2C 42 41 2C 32 33 36 2C 31 39 32 2C 31 |:@.,BA,236,192,1|
00001490: 2C 31 2C 22 52 5A 20 22 AA 52 5A 24 AA 22 20 22 |,1,"RZ ".RZ$." "|
000014A0: 00 AA 54 94 07 89 31 38 39 30 00 CB 54 9E 07 40 |..T...1890..T..@|
000014B0: 9C 2C 30 3A 4A 58 B2 52 58 3A 4A 59 B2 52 59 3A |.,0:JX.RX:JY.RY:|
000014C0: 4A 5A B2 52 5A 3A 4B 24 B2 22 22 00 05 55 A8 07 |JZ.RZ:K$.""..U..|
000014D0: 52 58 B2 52 58 AC 33 2E 31 34 31 35 39 AD 31 38 |RX.RX.3.14159.18|
000014E0: 30 3A 52 59 B2 52 59 AC 33 2E 31 34 31 35 39 AD |0:RY.RY.3.14159.|
000014F0: 31 38 30 3A 52 5A B2 52 5A AC 33 2E 31 34 31 35 |180:RZ.RZ.3.1415|
00001500: 39 AD 31 38 30 00 1B 55 B2 07 8B 4E 4C B2 30 A7 |9.180..U...NL.0.|
00001510: 32 30 34 30 3A D5 8D 32 31 34 30 00 2A 55 BC 07 |2040:..2140.*U..|
00001520: 81 20 49 B2 31 20 A4 20 4E 4C 00 50 55 C6 07 41 |. I.1 . NL.PU..A|
00001530: 41 B2 58 42 28 49 29 3A 42 42 B2 59 42 28 49 29 |A.XB(I):BB.YB(I)|
00001540: 3A 43 43 B2 5A 42 28 49 29 3A 8D 20 32 32 35 30 |:CC.ZB(I):. 2250|
00001550: 00 66 55 D0 07 52 42 B2 58 54 AA 58 4F 3A 52 45 |.fU..RB.XT.XO:RE|
00001560: B2 59 54 AA 59 4F 00 8C 55 DA 07 41 41 B2 58 45 |.YT.YO..U..AA.XE|
00001570: 28 49 29 3A 42 42 B2 59 45 28 49 29 3A 43 43 B2 |(I):BB.YE(I):CC.|
00001580: 5A 45 28 49 29 3A 8D 20 32 32 35 30 00 B3 55 E4 |ZE(I):. 2250..U.|
00001590: 07 40 E5 2C B6 28 52 42 29 2C B6 28 52 45 29 2C |.@.,.(RB),.(RE),|
000015A0: B6 28 58 54 AA 58 4F 29 2C B6 28 59 54 AA 59 4F |.(XT.XO),.(YT.YO|
000015B0: 29 2C 31 00 BA 55 EE 07 82 49 00 CC 55 F8 07 8B |),1..U...I..U...|
000015C0: 53 24 B2 22 47 22 A7 53 24 B2 22 22 00 24 56 02 |S$."G".S$."".$V.|
000015D0: 08 50 24 B2 22 50 52 45 53 53 20 5B 20 53 20 5D |.P$."PRESS [ S ]|
000015E0: 20 46 4F 52 20 53 54 41 53 48 20 52 4F 55 54 49 | FOR STASH ROUTI|
000015F0: 4E 45 53 20 4F 52 20 41 4E 59 20 4F 54 48 45 52 |NES OR ANY OTHER|
00001600: 20 4B 45 59 20 46 4F 52 20 4D 41 49 4E 20 4D 45 | KEY FOR MAIN ME|
00001610: 4E 55 22 3A 40 E0 2C 42 41 2C 31 2C 31 2C 31 2C |NU":@.,BA,1,1,1,|
00001620: 31 2C 50 24 00 5D 56 0C 08 8B 4B 24 B3 B1 22 52 |1,P$.]V...K$.."R|
00001630: 22 A7 50 24 B2 22 50 52 45 53 53 20 5B 20 44 20 |".P$."PRESS [ D |
00001640: 5D 20 54 4F 20 44 52 41 57 22 3A 40 E0 2C 42 41 |] TO DRAW":@.,BA|
00001650: 2C 31 2C 31 39 32 2C 31 2C 31 2C 50 24 00 91 56 |,1,192,1,1,P$..V|
00001660: 16 08 50 24 B2 22 50 52 45 53 53 20 5B 20 52 20 |..P$."PRESS [ R |
00001670: 5D 20 54 4F 20 52 4F 54 41 54 45 22 3A 40 E0 2C |] TO ROTATE":@.,|
00001680: 42 41 2C 34 37 31 2C 31 39 32 2C 31 2C 31 2C 50 |BA,471,192,1,1,P|
00001690: 24 00 9A 56 20 08 A1 F9 4B 24 00 CB 56 2A 08 8B |$..V ...K$..V*..|
000016A0: 20 4B 24 B2 22 53 22 A7 4B 24 B2 22 22 3A 46 24 | K$."S".K$."":F$|
000016B0: B2 22 22 3A 8D 33 31 31 30 3A 40 9C 2C 30 3A 40 |."":.3110:@.,0:@|
000016C0: DE 2C 30 2C 33 3A 89 32 30 35 30 00 F1 56 34 08 |.,0,3:.2050..V4.|
000016D0: 8B 20 4B 24 B2 22 52 22 A7 40 E0 2C 42 41 2C 31 |. K$."R".@.,BA,1|
000016E0: 2C 31 39 32 2C 31 2C 31 2C 45 24 3A 89 31 37 31 |,192,1,1,E$:.171|
000016F0: 30 00 28 57 3E 08 8B 20 4B 24 B2 22 44 22 A7 40 |0.(W>.. K$."D".@|
00001700: E0 2C 42 41 2C 31 2C 31 39 32 2C 31 2C 31 2C 45 |.,BA,1,192,1,1,E|
00001710: 24 3A 40 E0 2C 42 41 2C 31 2C 31 2C 31 2C 31 2C |$:@.,BA,1,1,1,1,|
00001720: 45 24 3A 89 20 33 35 30 00 3B 57 48 08 8B 4B 24 |E$:. 350.;WH..K$|
00001730: B3 B1 22 53 22 A7 40 54 45 58 54 00 41 57 52 08 |.."S".@TEXT.AWR.|
00001740: 8E 00 69 57 5C 08 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D |..iW\..---------|
00001750: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 4D 4F 54 49 |------------MOTI|
00001760: 4F 4E 20 4D 41 54 52 49 58 00 83 57 66 08 43 28 |ON MATRIX..Wf.C(|
00001770: 31 2C 31 29 B2 53 46 AC BE 28 52 59 29 AC BE 28 |1,1).SF..(RY)..(|
00001780: 52 5A 29 00 9D 57 70 08 43 28 31 2C 32 29 B2 53 |RZ)..Wp.C(1,2).S|
00001790: 46 AC BE 28 52 59 29 AC BF 28 52 5A 29 00 B4 57 |F..(RY)..(RZ)..W|
000017A0: 7A 08 43 28 31 2C 33 29 B2 53 46 AC 28 AB BF 28 |z.C(1,3).SF.(..(|
000017B0: 52 59 29 29 00 E5 57 84 08 43 28 32 2C 31 29 B2 |RY))..W..C(2,1).|
000017C0: 53 46 AC 28 BE 28 52 58 29 AC 28 AB BF 28 52 5A |SF.(.(RX).(..(RZ|
000017D0: 29 29 AA BF 28 52 58 29 AC BF 28 52 59 29 AC BE |))..(RX)..(RY)..|
000017E0: 28 52 5A 29 29 00 13 58 8E 08 43 28 32 2C 32 29 |(RZ))..X..C(2,2)|
000017F0: B2 53 46 AC 28 BE 28 52 58 29 AC BE 28 52 5A 29 |.SF.(.(RX)..(RZ)|
00001800: AA BF 28 52 58 29 AC BF 28 52 59 29 AC BF 28 52 |..(RX)..(RY)..(R|
00001810: 5A 29 29 00 2D 58 98 08 43 28 32 2C 33 29 B2 53 |Z)).-X..C(2,3).S|
00001820: 46 AC BF 28 52 58 29 AC BE 28 52 59 29 00 61 58 |F..(RX)..(RY).aX|
00001830: A2 08 43 28 33 2C 31 29 B2 53 46 AC 28 28 AB BF |..C(3,1).SF.((..|
00001840: 28 52 58 29 29 AC 28 AB BF 28 52 5A 29 29 AA BE |(RX)).(..(RZ))..|
00001850: 28 52 58 29 AC BF 28 52 59 29 AC BE 28 52 5A 29 |(RX)..(RY)..(RZ)|
00001860: 29 00 90 58 AC 08 43 28 33 2C 32 29 B2 53 46 AC |)..X..C(3,2).SF.|
00001870: 28 AB BF 28 52 58 29 AC BE 28 52 5A 29 AA BE 28 |(..(RX)..(RZ)..(|
00001880: 52 58 29 AC BF 28 52 59 29 AC BF 28 52 5A 29 29 |RX)..(RY)..(RZ))|
00001890: 00 AA 58 B6 08 43 28 33 2C 33 29 B2 53 46 AC BE |..X..C(3,3).SF..|
000018A0: 28 52 58 29 AC BE 28 52 59 29 00 B0 58 C0 08 8E |(RX)..(RY)..X...|
000018B0: 00 D5 58 CA 08 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..X...----------|
000018C0: 2D 2D 2D 2D 2D 54 52 41 4E 53 46 4F 52 4D 20 43 |-----TRANSFORM C|
000018D0: 4F 4F 52 44 53 00 FA 58 D4 08 58 54 B2 41 41 AC |OORDS..X..XT.AA.|
000018E0: 43 28 31 2C 31 29 AA 42 42 AC 43 28 32 2C 31 29 |C(1,1).BB.C(2,1)|
000018F0: AA 43 43 AC 43 28 33 2C 31 29 00 25 59 DE 08 59 |.CC.C(3,1).%Y..Y|
00001900: 54 B2 28 41 41 AC 43 28 31 2C 32 29 AA 42 42 AC |T.(AA.C(1,2).BB.|
00001910: 43 28 32 2C 32 29 AA 43 43 AC 43 28 33 2C 32 29 |C(2,2).CC.C(3,2)|
00001920: 29 AD 32 2E 31 00 4A 59 E8 08 5A 54 B2 41 41 AC |).2.1.JY..ZT.AA.|
00001930: 43 28 31 2C 33 29 AA 42 42 AC 43 28 32 2C 33 29 |C(1,3).BB.C(2,3)|
00001940: AA 43 43 AC 43 28 33 2C 33 29 00 50 59 F2 08 8E |.CC.C(3,3).PY...|
00001950: 00 79 59 FC 08 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.yY...----------|
00001960: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001970: 2D 2D 2D 2D 45 20 4E 20 44 00 94 59 06 09 40 9C |----E N D..Y..@.|
00001980: 2C 30 3A 40 54 45 58 54 3A FE 26 3A 97 31 36 33 |,0:@TEXT:.&:.163|
00001990: 38 34 2C 30 00 A4 59 10 09 99 22 41 4C 4C 20 44 |84,0..Y..."ALL D|
000019A0: 4F 4E 45 22 00 AA 59 1A 09 90 00 F1 59 24 09 8F |ONE"..Y.....Y$..|
000019B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000019C0: 2D 2D 2D 2D 2D 2D 47 4F 54 4F 20 54 45 58 54 20 |------GOTO TEXT |
000019D0: 4D 4F 44 45 2C 50 52 49 4E 54 20 53 54 41 54 55 |MODE,PRINT STATU|
000019E0: 53 20 41 4E 44 20 45 4E 44 20 50 52 4F 47 52 41 |S AND END PROGRA|
000019F0: 4D 00 FF 59 2E 09 40 54 45 58 54 3A EA 3A 80 00 |M..Y..@TEXT:.:..|
00001A00: 2F 5A 38 09 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |/Z8.. ----------|
00001A10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001A20: 2D 2D 2D 2D 48 45 4C 50 20 53 43 52 45 45 4E 00 |----HELP SCREEN.|
00001A30: 67 5A 42 09 40 54 45 58 54 3A 99 22 11 11 57 20 |gZB.@TEXT:."..W |
00001A40: 48 20 49 20 4C 20 45 20 20 49 20 4E 20 20 44 20 |H I L E I N D |
00001A50: 52 20 41 20 57 20 49 20 4E 20 47 20 20 4D 20 4F |R A W I N G M O|
00001A60: 20 44 20 45 22 3A 99 00 96 5A 4C 09 99 22 43 55 | D E":...ZL.."CU|
00001A70: 52 53 4F 52 20 4C 45 46 54 20 57 49 4C 4C 20 4D |RSOR LEFT WILL M|
00001A80: 4F 56 45 20 58 20 43 4F 4F 52 44 49 4E 41 54 45 |OVE X COORDINATE|
00001A90: 20 4C 45 46 54 22 00 C7 5A 56 09 99 22 43 55 52 | LEFT"..ZV.."CUR|
00001AA0: 53 4F 52 20 52 49 47 48 54 20 57 49 4C 4C 20 4D |SOR RIGHT WILL M|
00001AB0: 4F 56 45 20 58 20 43 4F 4F 52 44 49 4E 41 54 45 |OVE X COORDINATE|
00001AC0: 20 52 49 47 48 54 22 00 F2 5A 60 09 99 22 43 55 | RIGHT"..Z`.."CU|
00001AD0: 52 53 4F 52 20 55 50 20 57 49 4C 4C 20 4D 4F 56 |RSOR UP WILL MOV|
00001AE0: 45 20 59 20 43 4F 4F 52 44 49 4E 41 54 45 20 55 |E Y COORDINATE U|
00001AF0: 50 22 00 21 5B 6A 09 99 22 43 55 52 53 4F 52 20 |P".![j.."CURSOR |
00001B00: 44 4F 57 4E 20 57 49 4C 4C 20 4D 4F 56 45 20 59 |DOWN WILL MOVE Y|
00001B10: 20 43 4F 4F 52 44 49 4E 41 54 45 20 44 4F 57 4E | COORDINATE DOWN|
00001B20: 22 00 59 5B 74 09 99 22 54 48 45 20 5B 20 49 20 |".Y[t.."THE [ I |
00001B30: 5D 20 4B 45 59 20 57 49 4C 4C 20 4D 4F 56 45 20 |] KEY WILL MOVE |
00001B40: 5A 20 43 4F 4F 52 44 49 4E 41 54 45 20 49 4E 54 |Z COORDINATE INT|
00001B50: 4F 20 53 43 52 45 45 4E 22 00 8E 5B 7E 09 99 22 |O SCREEN"..[~.."|
00001B60: 54 48 45 20 5B 20 4F 20 5D 20 4B 45 59 20 57 49 |THE [ O ] KEY WI|
00001B70: 4C 4C 20 4D 4F 56 45 20 5A 20 43 4F 4F 52 44 49 |LL MOVE Z COORDI|
00001B80: 4E 41 54 45 20 4F 55 54 57 41 52 44 53 22 00 B9 |NATE OUTWARDS"..|
00001B90: 5B 88 09 99 22 50 52 45 53 53 20 54 48 45 20 5B |[..."PRESS THE [|
00001BA0: 20 53 20 5D 20 4B 45 59 20 54 4F 20 53 54 41 52 | S ] KEY TO STAR|
00001BB0: 54 20 41 20 4C 49 4E 45 22 00 FE 5B 92 09 99 22 |T A LINE"..[..."|
00001BC0: 50 52 45 53 53 20 54 48 45 20 5B 20 4C 20 5D 20 |PRESS THE [ L ] |
00001BD0: 4B 45 59 20 54 4F 20 44 52 41 57 20 4C 49 4E 45 |KEY TO DRAW LINE|
00001BE0: 20 46 52 4F 4D 20 53 54 41 52 54 20 54 4F 20 43 | FROM START TO C|
00001BF0: 55 52 52 45 4E 54 20 43 55 52 53 4F 52 22 00 28 |URRENT CURSOR".(|
00001C00: 5C 9C 09 99 22 50 52 45 53 53 20 5B 20 52 20 5D |\..."PRESS [ R ]|
00001C10: 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D 41 | TO RETURN TO MA|
00001C20: 49 4E 20 4D 45 4E 55 22 00 59 5C A6 09 99 22 50 |IN MENU".Y\..."P|
00001C30: 52 45 53 53 20 5B 20 44 20 5D 20 54 4F 20 44 55 |RESS [ D ] TO DU|
00001C40: 50 4C 49 43 41 54 45 20 50 49 45 43 45 20 4F 46 |PLICATE PIECE OF|
00001C50: 20 44 52 41 57 49 4E 47 22 00 87 5C B0 09 99 22 | DRAWING"..\..."|
00001C60: 50 52 45 53 53 20 5B 20 50 20 5D 20 54 4F 20 49 |PRESS [ P ] TO I|
00001C70: 4E 43 52 45 4D 45 4E 54 20 50 49 58 45 4C 3C 43 |NCREMENT PIXEL<C|
00001C80: 55 52 53 4F 52 3E 22 00 AD 5C BA 09 99 22 50 52 |URSOR>"..\..."PR|
00001C90: 45 53 53 20 5B 20 45 20 5D 20 54 4F 20 45 52 41 |ESS [ E ] TO ERA|
00001CA0: 53 45 20 4C 41 53 54 20 4C 49 4E 45 22 00 D3 5C |SE LAST LINE"..\|
00001CB0: C4 09 99 22 50 52 45 53 53 20 5B 20 43 20 5D 20 |..."PRESS [ C ] |
00001CC0: 54 4F 20 44 52 41 57 20 33 44 20 43 49 52 43 4C |TO DRAW 3D CIRCL|
00001CD0: 45 53 22 00 11 5D CE 09 99 22 11 11 50 52 45 53 |ES"..]..."..PRES|
00001CE0: 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E |S ANY KEY TO CON|
00001CF0: 54 49 4E 55 45 22 3A A1 F9 4B 24 3A 8B 4B 24 A7 |TINUE":..K$:.K$.|
00001D00: 4B 24 B2 22 22 3A 40 54 45 58 54 3A 99 22 11 11 |K$."":@TEXT:."..|
00001D10: 22 00 35 5D CF 09 99 22 49 20 4E 20 20 20 43 20 |".5]..."I N C |
00001D20: 49 20 52 20 43 20 4C 20 45 20 20 4D 20 45 20 4E |I R C L E M E N|
00001D30: 20 55 22 3A 99 00 5C 5D D0 09 99 22 50 52 45 53 | U":..\]..."PRES|
00001D40: 53 20 5B 20 44 20 5D 20 54 4F 20 44 52 41 57 20 |S [ D ] TO DRAW |
00001D50: 41 20 33 44 20 43 49 52 43 4C 45 22 00 9D 5D D1 |A 3D CIRCLE"..].|
00001D60: 09 99 22 44 45 46 55 41 4C 54 20 56 41 4C 55 45 |.."DEFUALT VALUE|
00001D70: 53 20 41 52 45 20 47 49 56 45 4E 20 46 4F 52 20 |S ARE GIVEN FOR |
00001D80: 45 56 45 52 59 54 48 49 4E 47 20 45 58 43 45 50 |EVERYTHING EXCEP|
00001D90: 54 20 54 48 45 20 52 41 44 49 55 53 22 00 EC 5D |T THE RADIUS"..]|
00001DA0: D2 09 99 22 57 48 45 4E 20 41 20 43 49 52 43 4C |..."WHEN A CIRCL|
00001DB0: 45 20 49 53 20 44 52 41 57 4E 20 49 54 53 20 50 |E IS DRAWN ITS P|
00001DC0: 55 52 45 20 57 49 54 48 20 4E 4F 20 53 43 41 4C |URE WITH NO SCAL|
00001DD0: 49 4E 47 20 57 49 43 48 20 4D 41 4B 45 53 20 49 |ING WICH MAKES I|
00001DE0: 54 20 4C 4F 4F 4B 20 4F 56 41 4C 22 00 3B 5E D3 |T LOOK OVAL".;^.|
00001DF0: 09 99 22 41 53 20 53 4F 4F 4E 20 41 53 20 43 49 |.."AS SOON AS CI|
00001E00: 52 43 4C 45 20 49 53 20 4D 41 49 4E 20 52 4F 54 |RCLE IS MAIN ROT|
00001E10: 41 54 45 44 20 49 54 20 47 45 54 53 20 53 43 41 |ATED IT GETS SCA|
00001E20: 4C 45 44 20 42 45 43 4F 4D 49 4E 47 20 41 20 54 |LED BECOMING A T|
00001E30: 52 55 45 20 43 49 52 43 4C 45 22 00 69 5E D4 09 |RUE CIRCLE".i^..|
00001E40: 99 22 50 52 45 53 53 20 5B 20 45 20 5D 20 54 4F |."PRESS [ E ] TO|
00001E50: 20 45 52 41 53 45 20 4C 41 53 54 20 43 49 52 43 | ERASE LAST CIRC|
00001E60: 4C 45 20 44 52 41 57 4E 22 00 EB 5E D5 09 99 22 |LE DRAWN"..^..."|
00001E70: 50 52 45 53 53 20 5B 20 4D 20 5D 20 54 4F 20 52 |PRESS [ M ] TO R|
00001E80: 4F 54 41 54 45 20 43 49 52 43 4C 45 20 49 4E 20 |OTATE CIRCLE IN |
00001E90: 43 49 52 43 4C 45 20 4D 4F 44 45 20 54 48 49 53 |CIRCLE MODE THIS|
00001EA0: 20 57 49 4C 4C 20 42 45 43 4F 4D 45 20 54 48 45 | WILL BECOME THE|
00001EB0: 20 43 49 52 43 4C 45 53 20 54 52 55 45 20 20 20 | CIRCLES TRUE |
00001EC0: 50 4F 53 49 54 49 4F 4E 20 41 4E 44 20 4D 41 49 |POSITION AND MAI|
00001ED0: 4E 20 52 4F 54 41 54 45 20 57 49 4C 4C 20 57 4F |N ROTATE WILL WO|
00001EE0: 52 4B 20 46 52 4F 4D 20 49 54 22 00 18 5F D6 09 |RK FROM IT".._..|
00001EF0: 99 22 50 52 45 53 53 20 5B 20 52 20 5D 20 54 4F |."PRESS [ R ] TO|
00001F00: 20 52 45 54 55 52 4E 20 54 4F 20 44 52 41 57 49 | RETURN TO DRAWI|
00001F10: 4E 47 20 4D 4F 44 45 22 00 56 5F D7 09 99 22 11 |NG MODE".V_...".|
00001F20: 11 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 |.PRESS ANY KEY T|
00001F30: 4F 20 43 4F 4E 54 49 4E 55 45 22 3A A1 F9 4B 24 |O CONTINUE":..K$|
00001F40: 3A 8B 4B 24 A7 4B 24 B2 22 22 3A 40 54 45 58 54 |:.K$.K$."":@TEXT|
00001F50: 3A 99 22 11 11 22 00 85 5F D8 09 99 22 49 20 4E |:."..".._..."I N|
00001F60: 20 20 46 20 45 20 54 20 43 20 48 20 20 26 20 20 | F E T C H & |
00001F70: 53 20 54 20 41 20 53 20 48 20 20 4D 20 4F 20 44 |S T A S H M O D|
00001F80: 20 45 22 3A 99 00 CB 5F E2 09 99 22 49 4E 43 52 | E":..._..."INCR|
00001F90: 45 4D 45 4E 54 20 4F 46 20 4F 46 20 53 54 41 53 |EMENT OF OF STAS|
00001FA0: 48 20 50 49 58 45 4C 20 49 53 20 41 44 44 45 44 |H PIXEL IS ADDED|
00001FB0: 20 54 4F 20 49 4E 43 52 45 4D 45 4E 54 20 4F 46 | TO INCREMENT OF|
00001FC0: 20 44 52 41 57 20 4D 4F 44 45 22 00 0B 60 EC 09 | DRAW MODE"..`..|
00001FD0: 99 22 45 4E 54 45 52 20 54 4F 50 20 46 49 52 53 |."ENTER TOP FIRS|
00001FE0: 54 20 54 48 45 4E 20 42 4F 54 54 4F 4D 20 53 45 |T THEN BOTTOM SE|
00001FF0: 43 4F 4E 44 20 42 59 20 50 4F 53 49 54 49 4F 4E |COND BY POSITION|
00002000: 49 4E 47 20 43 55 52 53 4F 52 22 00 46 60 F6 09 |ING CURSOR".F`..|
00002010: 99 22 50 52 45 53 53 20 5B 20 54 20 5D 20 46 4F |."PRESS [ T ] FO|
00002020: 52 20 54 4F 50 20 4C 45 46 54 20 43 4F 52 4E 45 |R TOP LEFT CORNE|
00002030: 52 20 4F 46 20 53 54 41 53 48 20 43 4F 4F 52 44 |R OF STASH COORD|
00002040: 49 4E 41 54 45 22 00 85 60 00 0A 99 22 50 52 45 |INATE"..`..."PRE|
00002050: 53 53 20 5B 20 42 20 5D 20 46 4F 52 20 42 4F 54 |SS [ B ] FOR BOT|
00002060: 54 4F 4D 20 52 49 47 48 54 20 43 4F 52 4E 45 52 |TOM RIGHT CORNER|
00002070: 20 4F 46 20 53 54 41 53 48 20 43 4F 4F 52 44 49 | OF STASH COORDI|
00002080: 4E 41 54 45 22 00 B2 60 0A 0A 99 22 50 52 45 53 |NATE"..`..."PRES|
00002090: 53 20 5B 20 4D 20 5D 20 54 4F 20 53 54 41 53 48 |S [ M ] TO STASH|
000020A0: 20 41 52 45 41 20 49 4E 54 4F 20 4D 45 4D 4F 52 | AREA INTO MEMOR|
000020B0: 59 22 00 DD 60 14 0A 99 22 50 52 45 53 53 20 5B |Y"..`..."PRESS [|
000020C0: 20 58 20 5D 20 54 4F 20 50 52 45 56 49 45 57 20 | X ] TO PREVIEW |
000020D0: 53 41 56 45 20 53 43 52 45 45 4E 53 22 00 2A 61 |SAVE SCREENS".*a|
000020E0: 1E 0A 99 22 50 4F 53 49 54 49 4F 4E 20 43 55 52 |..."POSITION CUR|
000020F0: 53 4F 52 20 54 48 45 4E 20 50 52 45 53 53 20 5B |SOR THEN PRESS [|
00002100: 20 46 20 5D 20 54 4F 20 46 45 54 43 48 20 2E 20 | F ] TO FETCH . |
00002110: 54 48 49 53 20 57 49 4C 4C 20 50 4C 41 59 42 41 |THIS WILL PLAYBA|
00002120: 43 4B 20 46 52 41 4D 45 53 22 00 A4 61 23 0A 99 |CK FRAMES"..a#..|
00002130: 3A 99 22 49 46 20 59 4F 55 20 4B 4E 4F 57 20 54 |:."IF YOU KNOW T|
00002140: 48 45 20 53 49 5A 45 20 4F 46 20 59 4F 55 52 20 |HE SIZE OF YOUR |
00002150: 53 54 41 53 48 20 41 52 45 41 20 49 53 20 47 4F |STASH AREA IS GO|
00002160: 49 4E 47 20 54 4F 20 52 45 4D 41 49 4E 20 54 48 |ING TO REMAIN TH|
00002170: 45 20 53 41 4D 45 20 2E 20 59 4F 55 20 4E 45 45 |E SAME . YOU NEE|
00002180: 44 20 20 4F 4E 4C 59 20 45 4E 54 45 52 20 54 4F |D ONLY ENTER TO|
00002190: 50 20 41 4E 44 20 42 4F 54 54 4F 4D 20 4F 4E 43 |P AND BOTTOM ONC|
000021A0: 45 20 2E 22 00 F2 61 24 0A 99 22 54 48 45 4E 20 |E ."..a$.."THEN |
000021B0: 41 46 54 45 52 20 4E 45 58 54 20 52 4F 54 41 54 |AFTER NEXT ROTAT|
000021C0: 49 4F 4E 20 47 4F 20 54 4F 20 53 54 41 53 48 20 |ION GO TO STASH |
000021D0: 4D 4F 44 45 20 41 4E 44 20 4A 55 53 54 20 48 49 |MODE AND JUST HI|
000021E0: 54 20 5B 20 4D 20 5D 20 54 4F 20 53 54 41 53 48 |T [ M ] TO STASH|
000021F0: 20 22 00 55 62 25 0A 99 22 4A 55 53 54 20 4D 41 | ".Ub%.."JUST MA|
00002200: 4B 45 20 53 55 52 45 20 59 4F 55 52 20 52 4F 54 |KE SURE YOUR ROT|
00002210: 41 54 49 4F 4E 20 44 4F 45 53 4E 54 20 43 55 41 |ATION DOESNT CUA|
00002220: 53 45 20 59 4F 55 52 20 44 52 41 57 49 4E 47 20 |SE YOUR DRAWING |
00002230: 54 4F 20 47 4F 20 4F 55 54 20 4F 46 20 54 48 45 |TO GO OUT OF THE|
00002240: 20 42 4F 55 4E 44 52 59 20 59 4F 55 20 53 45 54 | BOUNDRY YOU SET|
00002250: 20 55 50 20 22 00 93 62 28 0A 99 22 11 11 50 52 | UP "..b(.."..PR|
00002260: 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 |ESS ANY KEY TO C|
00002270: 4F 4E 54 49 4E 55 45 22 3A A1 F9 4B 24 3A 8B 4B |ONTINUE":..K$:.K|
00002280: 24 A7 4B 24 B2 22 22 3A 40 54 45 58 54 3A 99 22 |$.K$."":@TEXT:."|
00002290: 11 11 22 00 B6 62 32 0A 99 22 46 20 52 20 4F 20 |.."..b2.."F R O |
000022A0: 4D 20 20 4D 20 41 20 49 20 4E 20 20 4D 20 45 20 |M M A I N M E |
000022B0: 4E 20 55 22 3A 99 00 EB 62 3C 0A 99 22 49 4E 20 |N U":...b<.."IN |
000022C0: 4F 52 44 45 52 20 54 4F 20 44 52 41 57 20 59 4F |ORDER TO DRAW YO|
000022D0: 55 20 4D 55 53 54 20 46 49 52 53 54 20 53 45 54 |U MUST FIRST SET|
000022E0: 20 55 50 20 41 4E 47 4C 45 53 22 00 32 63 46 0A | UP ANGLES".2cF.|
000022F0: 99 22 55 53 41 55 4C 4C 59 20 52 58 3D 30 2C 52 |."USAULLY RX=0,R|
00002300: 59 3D 30 2C 52 5A 3D 30 2C 53 43 41 4C 45 3D 31 |Y=0,RZ=0,SCALE=1|
00002310: 2C 20 4F 52 20 53 48 49 46 54 20 41 20 46 4F 52 |, OR SHIFT A FOR|
00002320: 20 44 45 46 41 55 4C 54 20 56 41 4C 55 45 53 22 | DEFAULT VALUES"|
00002330: 3A 99 00 6B 63 50 0A 99 22 52 45 54 55 52 4E 49 |:..kcP.."RETURNI|
00002340: 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 20 |NG TO MAIN MENU |
00002350: 43 55 41 53 45 53 20 41 4E 20 45 52 41 53 45 20 |CUASES AN ERASE |
00002360: 4F 46 20 53 43 52 45 45 4E 20 22 00 A2 63 5A 0A |OF SCREEN "..cZ.|
00002370: 99 22 59 4F 55 20 4D 55 53 54 20 54 48 45 4E 20 |."YOU MUST THEN |
00002380: 52 4F 54 41 54 45 20 54 4F 20 47 45 54 20 50 49 |ROTATE TO GET PI|
00002390: 43 54 55 52 45 20 42 49 54 20 4D 41 50 50 45 44 |CTURE BIT MAPPED|
000023A0: 21 22 00 C7 63 64 0A 99 3A 99 22 50 52 45 53 53 |!"..cd..:."PRESS|
000023B0: 20 5B 20 24 20 5D 20 46 4F 52 20 44 49 52 45 43 | [ $ ] FOR DIREC|
000023C0: 54 4F 52 59 22 3A 99 00 13 64 69 0A 99 22 49 46 |TORY":...di.."IF|
000023D0: 20 43 55 52 53 4F 52 20 4B 45 45 50 53 20 42 4C | CURSOR KEEPS BL|
000023E0: 49 4E 4B 49 4E 47 20 41 46 54 45 52 20 50 52 45 |INKING AFTER PRE|
000023F0: 53 53 49 4E 47 20 4D 45 4E 55 20 43 4F 4D 4D 41 |SSING MENU COMMA|
00002400: 4E 44 20 54 48 45 4E 20 48 49 54 20 52 45 54 55 |ND THEN HIT RETU|
00002410: 52 4E 22 00 45 64 6B 0A 99 3A 99 22 50 52 45 53 |RN".Edk..:."PRES|
00002420: 53 20 5B 20 43 20 5D 20 54 4F 20 43 4C 45 41 52 |S [ C ] TO CLEAR|
00002430: 20 4D 45 4D 4F 52 59 20 4F 46 20 44 52 41 57 49 | MEMORY OF DRAWI|
00002440: 4E 47 22 3A 99 00 64 64 6E 0A 99 22 50 52 45 53 |NG":..ddn.."PRES|
00002450: 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 52 45 54 |S ANY KEY TO RET|
00002460: 55 52 4E 22 00 7B 64 78 0A A1 F9 4B 24 3A 8B 4B |URN".{dx...K$:.K|
00002470: 24 A7 99 3A 40 54 45 58 54 3A 8E 00 B7 64 82 0A |$..:@TEXT:...d..|
00002480: 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |. --------------|
00002490: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000024A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 46 45 54 43 48 20 |----------FETCH |
000024B0: 41 4E 49 4D 41 54 45 00 EA 64 8C 0A 40 54 45 58 |ANIMATE..d..@TEX|
000024C0: 54 3A 85 22 44 45 4C 41 59 20 42 45 54 57 45 45 |T:."DELAY BETWEE|
000024D0: 4E 20 46 52 41 4D 45 53 22 3B 53 4C 3A 99 3A 8B |N FRAMES";SL:.:.|
000024E0: 53 4C B3 B2 30 A7 53 4C B2 31 00 07 65 96 0A 85 |SL..0.SL.1..e...|
000024F0: 22 48 4F 57 20 4D 41 4E 59 20 4C 4F 4F 50 53 20 |"HOW MANY LOOPS |
00002500: 22 3B 4C 50 3A 99 3A 00 38 65 A0 0A 85 22 43 4C |";LP:.:.8e..."CL|
00002510: 45 41 52 20 53 43 52 45 45 4E 20 41 46 54 45 52 |EAR SCREEN AFTER|
00002520: 20 45 41 43 48 20 46 52 41 4D 45 20 5B 20 59 2F | EACH FRAME [ Y/|
00002530: 4E 20 5D 22 3B 43 4C 24 00 60 65 AA 0A 99 3A 50 |N ]";CL$.`e...:P|
00002540: 24 B2 22 50 52 45 53 53 20 2B 20 4F 52 20 2D 20 |$."PRESS + OR - |
00002550: 46 4F 52 20 43 4F 4C 4F 52 53 22 3A 99 20 50 24 |FOR COLORS":. P$|
00002560: 00 7C 65 B4 0A A1 F9 4B 24 3A 40 E0 2C 42 41 2C |.|e....K$:@.,BA,|
00002570: 31 2C 31 39 32 2C 31 2C 31 2C 50 24 00 9D 65 BE |1,192,1,1,P$..e.|
00002580: 0A 8B 4B 24 B2 22 2B 22 A7 42 47 B2 42 47 AA 31 |..K$."+".BG.BG.1|
00002590: 3A 8B 42 47 B1 32 35 35 A7 42 47 B2 30 00 BE 65 |:.BG.255.BG.0..e|
000025A0: C8 0A 8B 4B 24 B2 22 2D 22 A7 42 47 B2 42 47 AB |...K$."-".BG.BG.|
000025B0: 31 3A 8B 42 47 B3 30 A7 42 47 B2 32 35 35 00 DE |1:.BG.0.BG.255..|
000025C0: 65 D2 0A 8B 4B 24 B2 C7 28 31 33 29 AF 42 47 B3 |e...K$..(13).BG.|
000025D0: B1 46 47 A7 40 9C 2C 30 3A 89 32 38 30 30 00 2B |.FG.@.,0:.2800.+|
000025E0: 66 DC 0A 40 DE 2C 42 47 2C 46 47 3A 40 9C 2C 30 |f..@.,BG,FG:@.,0|
000025F0: 3A 40 E0 2C 42 41 2C 31 2C 31 2C 35 2C 39 2C C4 |:@.,BA,1,1,5,9,.|
00002600: 28 42 47 29 3A 50 24 B2 22 54 48 45 4E 20 48 49 |(BG):P$."THEN HI|
00002610: 54 20 52 45 54 55 52 4E 22 3A 40 E0 2C 42 41 2C |T RETURN":@.,BA,|
00002620: 31 2C 38 30 2C 35 2C 39 2C 50 24 00 35 66 E6 0A |1,80,5,9,P$.5f..|
00002630: 89 32 37 34 30 00 69 66 F0 0A 50 24 B2 22 50 52 |.2740.if..P$."PR|
00002640: 45 53 53 20 2B 20 4F 52 20 2D 20 46 4F 52 20 43 |ESS + OR - FOR C|
00002650: 4F 4C 4F 52 53 22 3A 40 E0 2C 42 41 2C 31 2C 31 |OLORS":@.,BA,1,1|
00002660: 39 32 2C 31 2C 31 2C 50 24 00 72 66 FA 0A A1 F9 |92,1,1,P$.rf....|
00002670: 4B 24 00 93 66 04 0B 8B 4B 24 B2 22 2B 22 A7 46 |K$..f...K$."+".F|
00002680: 47 B2 46 47 AA 31 3A 8B 46 47 B1 32 35 35 A7 46 |G.FG.1:.FG.255.F|
00002690: 47 B2 30 00 B4 66 0E 0B 8B 4B 24 B2 22 2D 22 A7 |G.0..f...K$."-".|
000026A0: 46 47 B2 46 47 AB 31 3A 8B 46 47 B3 30 A7 46 47 |FG.FG.1:.FG.0.FG|
000026B0: B2 32 35 35 00 CD 66 18 0B 8B 4B 24 B2 C7 28 31 |.255..f...K$..(1|
000026C0: 33 29 A7 40 9C 2C 30 3A 89 32 38 37 30 00 1A 67 |3).@.,0:.2870..g|
000026D0: 22 0B 40 DE 2C 42 47 2C 46 47 3A 40 9C 2C 30 3A |".@.,BG,FG:@.,0:|
000026E0: 40 E0 2C 42 41 2C 31 2C 31 2C 35 2C 39 2C C4 28 |@.,BA,1,1,5,9,.(|
000026F0: 46 47 29 3A 50 24 B2 22 54 48 45 4E 20 48 49 54 |FG):P$."THEN HIT|
00002700: 20 52 45 54 55 52 4E 22 3A 40 E0 2C 42 41 2C 31 | RETURN":@.,BA,1|
00002710: 2C 38 30 2C 35 2C 39 2C 50 24 00 24 67 2C 0B 89 |,80,5,9,P$.$g,..|
00002720: 32 38 31 30 00 31 67 36 0B 81 49 4C B2 31 A4 4C |2810.1g6..IL.1.L|
00002730: 50 00 48 67 40 0B 81 49 B2 30 A4 44 41 AB 31 3A |P.Hg@..I.0.DA.1:|
00002740: 41 45 B2 41 44 28 49 29 00 50 67 4A 0B A1 46 24 |AE.AD(I).PgJ..F$|
00002750: 00 75 67 54 0B 8B 20 46 24 B2 22 91 22 A7 46 59 |.ugT.. F$.".".FY|
00002760: B2 46 59 AB 28 32 AA 49 4E 29 3A 8B 46 59 B3 30 |.FY.(2.IN):.FY.0|
00002770: A7 46 59 B2 30 00 9E 67 5E 0B 8B 20 46 24 B2 22 |.FY.0..g^.. F$."|
00002780: 11 22 A7 46 59 B2 46 59 AA 28 32 AA 49 4E 29 3A |.".FY.FY.(2.IN):|
00002790: 8B 46 59 B1 31 39 39 A7 46 59 B2 31 39 39 00 C3 |.FY.199.FY.199..|
000027A0: 67 68 0B 8B 20 46 24 B2 22 9D 22 A7 46 58 B2 46 |gh.. F$.".".FX.F|
000027B0: 58 AB 28 35 AA 49 4E 29 3A 8B 46 58 B3 30 A7 46 |X.(5.IN):.FX.0.F|
000027C0: 58 B2 30 00 EC 67 72 0B 8B 20 46 24 B2 22 1D 22 |X.0..gr.. F$."."|
000027D0: A7 46 58 B2 46 58 AA 28 35 AA 49 4E 29 3A 8B 46 |.FX.FX.(5.IN):.F|
000027E0: 58 B1 36 33 39 A7 46 59 B2 36 33 39 00 15 68 7C |X.639.FY.639..h||
000027F0: 0B 40 FE 21 2C 41 45 2C 46 58 2C 46 59 3A 81 54 |.@.!,AE,FX,FY:.T|
00002800: B2 30 A4 53 4C 3A 82 3A 8B 43 4C 24 B2 22 59 22 |.0.SL:.:.CL$."Y"|
00002810: A7 40 9C 2C 30 00 1D 68 86 0B 82 3A 82 00 4E 68 |.@.,0..h...:..Nh|
00002820: 90 0B 50 24 B2 22 41 4E 49 4D 41 54 45 20 41 47 |..P$."ANIMATE AG|
00002830: 41 49 4E 20 20 5B 20 59 2F 4E 20 5D 22 3A 40 E0 |AIN [ Y/N ]":@.|
00002840: 2C 42 41 2C 31 2C 31 2C 31 2C 31 2C 50 24 00 57 |,BA,1,1,1,1,P$.W|
00002850: 68 9A 0B A1 F9 4B 24 00 6B 68 A4 0B 8B 20 4B 24 |h....K$.kh... K$|
00002860: B2 22 59 22 20 A7 20 32 38 37 30 00 8D 68 AE 0B |."Y" . 2870..h..|
00002870: 8B 20 4B 24 B2 22 4E 22 20 A7 20 40 E0 2C 42 41 |. K$."N" . @.,BA|
00002880: 2C 31 2C 31 2C 31 2C 31 2C 45 24 3A 8E 00 98 68 |,1,1,1,1,E$:...h|
00002890: B8 0B 89 20 32 39 36 30 00 CB 68 C2 0B 8F 2D 2D |... 2960..h...--|
000028A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000028B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000028C0: 2D 2D 2D 2D 2D 2D 53 54 41 53 48 00 1D 69 CC 0B |------STASH..i..|
000028D0: 8B 44 41 B2 30 A7 41 44 28 30 29 B2 30 3A 54 58 |.DA.0.AD(0).0:TX|
000028E0: 25 28 30 29 B2 54 58 3A 54 59 25 28 30 29 B2 54 |%(0).TX:TY%(0).T|
000028F0: 59 3A 42 58 25 28 30 29 B2 42 58 3A 42 59 25 28 |Y:BX%(0).BX:BY%(|
00002900: 30 29 B2 42 59 3A 40 FE 1F 2C 30 2C 54 58 2C 54 |0).BY:@..,0,TX,T|
00002910: 59 2C 42 58 2C 42 59 3A 89 33 30 35 30 00 68 69 |Y,BX,BY:.3050.hi|
00002920: D6 0B 8B 41 44 28 44 41 29 B1 34 32 30 30 30 A7 |...AD(DA).42000.|
00002930: 50 24 B2 22 53 54 41 53 48 20 42 55 46 46 45 52 |P$."STASH BUFFER|
00002940: 20 49 53 20 46 55 4C 4C 22 3A 40 E0 2C 42 41 2C | IS FULL":@.,BA,|
00002950: 34 30 34 2C 31 38 34 2C 31 2C 31 2C 50 24 3A FE |404,184,1,1,P$:.|
00002960: 0B 32 3A 89 33 31 30 30 00 83 69 E0 0B 40 FE 1F |.2:.3100..i..@..|
00002970: 2C 41 44 28 44 41 29 2C 54 58 2C 54 59 2C 42 58 |,AD(DA),TX,TY,BX|
00002980: 2C 42 59 00 9E 69 EA 0B 41 45 B2 C2 28 32 35 30 |,BY..i..AE..(250|
00002990: 29 AA C2 28 32 35 31 29 AC 32 35 36 AA 31 00 AA |)..(251).256.1..|
000029A0: 69 F4 0B 44 41 B2 44 41 AA 31 00 B8 69 FE 0B 41 |i..DA.DA.1..i..A|
000029B0: 44 28 44 41 29 B2 41 45 00 E8 69 08 0C 54 58 25 |D(DA).AE..i..TX%|
000029C0: 28 44 41 29 B2 54 58 3A 54 59 25 28 44 41 29 B2 |(DA).TX:TY%(DA).|
000029D0: 54 59 3A 42 58 25 28 44 41 29 B2 42 58 3A 42 59 |TY:BX%(DA).BX:BY|
000029E0: 25 28 44 41 29 B2 42 59 00 2E 6A 12 0C 50 24 B2 |%(DA).BY..j..P$.|
000029F0: 22 42 55 46 46 45 52 20 41 44 44 52 45 53 53 22 |"BUFFER ADDRESS"|
00002A00: AA C4 28 41 44 28 44 41 29 29 AA 22 20 53 54 41 |..(AD(DA))." STA|
00002A10: 53 48 22 AA C4 28 44 41 29 3A 40 E0 2C 42 41 2C |SH"..(DA):@.,BA,|
00002A20: 34 30 34 2C 31 38 34 2C 31 2C 31 2C 50 24 00 34 |404,184,1,1,P$.4|
00002A30: 6A 1C 0C 8E 00 69 6A 26 0C 8F 2D 2D 2D 2D 2D 2D |j....ij&..------|
00002A40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002A50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002A60: 2D 2D 2D 2D 53 54 41 53 48 00 98 6A 30 0C 40 DE |----STASH..j0.@.|
00002A70: 2C 30 2C 35 3A 40 E0 2C 42 41 2C 31 2C 31 2C 31 |,0,5:@.,BA,1,1,1|
00002A80: 2C 31 2C 45 24 3A 40 E0 2C 42 41 2C 31 2C 31 39 |,1,E$:@.,BA,1,19|
00002A90: 32 2C 31 2C 31 2C 45 24 00 C0 6A 3A 0C 40 E0 2C |2,1,1,E$..j:.@.,|
00002AA0: 42 41 2C 31 2C 31 2C 31 2C 31 2C 45 24 3A 40 E0 |BA,1,1,1,1,E$:@.|
00002AB0: 2C 42 41 2C 31 2C 31 39 32 2C 31 2C 31 2C 45 24 |,BA,1,192,1,1,E$|
00002AC0: 00 41 6B 44 0C 50 24 B2 22 20 28 12 54 92 4F 50 |.AkD.P$." (.T.OP|
00002AD0: 29 20 28 12 42 92 4F 54 54 4F 4D 29 20 28 12 4D |) (.B.OTTOM) (.M|
00002AE0: 92 45 4D 4F 52 59 20 53 54 41 53 48 29 20 28 12 |.EMORY STASH) (.|
00002AF0: 43 55 52 53 4F 52 20 4B 45 59 53 92 29 20 28 12 |CURSOR KEYS.) (.|
00002B00: 46 92 45 54 43 48 29 20 28 12 53 92 41 56 45 29 |F.ETCH) (.S.AVE)|
00002B10: 20 28 12 47 92 45 54 29 20 28 12 52 92 45 54 55 | (.G.ET) (.R.ETU|
00002B20: 52 4E 29 20 20 28 24 29 20 22 3A 40 E0 2C 42 41 |RN) ($) ":@.,BA|
00002B30: 2C 31 2C 31 2C 31 2C 31 2C 50 24 3A 89 33 32 31 |,1,1,1,1,P$:.321|
00002B40: 30 00 4A 6B 4E 0C A1 F9 46 24 00 5A 6B 58 0C 40 |0.JkN...F$.ZkX.@|
00002B50: EB 54 2C 46 58 2C 46 59 2C 30 00 7F 6B 62 0C 8B |.T,FX,FY,0..kb..|
00002B60: 20 46 24 B2 22 91 22 A7 46 59 B2 46 59 AB 28 32 | F$.".".FY.FY.(2|
00002B70: AA 49 4E 29 3A 8B 46 59 B3 30 A7 46 59 B2 30 00 |.IN):.FY.0.FY.0.|
00002B80: A8 6B 6C 0C 8B 20 46 24 B2 22 11 22 A7 46 59 B2 |.kl.. F$.".".FY.|
00002B90: 46 59 AA 28 32 AA 49 4E 29 3A 8B 46 59 B1 31 39 |FY.(2.IN):.FY.19|
00002BA0: 39 A7 46 59 B2 31 39 39 00 CD 6B 76 0C 8B 20 46 |9.FY.199..kv.. F|
00002BB0: 24 B2 22 9D 22 A7 46 58 B2 46 58 AB 28 35 AA 49 |$.".".FX.FX.(5.I|
00002BC0: 4E 29 3A 8B 46 58 B3 30 A7 46 58 B2 30 00 F6 6B |N):.FX.0.FX.0..k|
00002BD0: 80 0C 8B 20 46 24 B2 22 1D 22 A7 46 58 B2 46 58 |... F$.".".FX.FX|
00002BE0: AA 28 35 AA 49 4E 29 3A 8B 46 58 B1 36 33 39 A7 |.(5.IN):.FX.639.|
00002BF0: 46 59 B2 36 33 39 00 23 6C 8A 0C 40 EB 54 2C 46 |FY.639.#l..@.T,F|
00002C00: 58 2C 46 59 2C 31 3A 40 E0 2C 42 41 2C 37 32 2C |X,FY,1:@.,BA,72,|
00002C10: 31 39 32 2C 31 2C 31 2C C4 28 46 58 29 AA C4 28 |192,1,1,.(FX)..(|
00002C20: 46 59 29 00 5D 6C 94 0C 8B 20 46 24 B2 22 54 22 |FY).]l... F$."T"|
00002C30: 20 A7 20 54 58 B2 46 58 3A 54 59 B2 46 59 3A 40 | . TX.FX:TY.FY:@|
00002C40: E0 2C 35 33 32 34 38 2C 31 2C 31 38 34 2C 31 2C |.,53248,1,184,1,|
00002C50: 31 2C C4 28 54 58 29 AA C4 28 54 59 29 00 9D 6C |1,.(TX)..(TY)..l|
00002C60: 9E 0C 8B 20 46 24 B2 22 42 22 20 A7 20 42 58 B2 |... F$."B" . BX.|
00002C70: 46 58 AB 54 58 3A 42 59 B2 46 59 AB 54 59 3A 40 |FX.TX:BY.FY.TY:@|
00002C80: E0 2C 35 33 32 34 38 2C 31 2C 31 39 32 2C 31 2C |.,53248,1,192,1,|
00002C90: 31 2C C4 28 42 58 29 AA C4 28 42 59 29 00 E3 6C |1,.(BX)..(BY)..l|
00002CA0: A8 0C 8B 20 46 24 B2 22 52 22 20 A7 20 40 E0 2C |... F$."R" . @.,|
00002CB0: 42 41 2C 31 2C 31 38 34 2C 32 2C 31 2C 45 24 3A |BA,1,184,2,1,E$:|
00002CC0: 40 E0 2C 42 41 2C 31 2C 31 2C 31 2C 31 2C 45 24 |@.,BA,1,1,1,1,E$|
00002CD0: 3A 40 9C 2C 30 3A 40 54 45 58 54 3A 46 24 B2 22 |:@.,0:@TEXT:F$."|
00002CE0: 22 3A 8E 00 05 6D B2 0C 8B 20 46 24 B2 22 4D 22 |":...m... F$."M"|
00002CF0: 20 A7 20 8D 20 33 30 31 30 3A 46 58 B2 54 58 3A | . . 3010:FX.TX:|
00002D00: 46 59 B2 54 59 00 27 6D BC 0C 8B 20 46 24 B2 22 |FY.TY.'m... F$."|
00002D10: 46 22 20 A7 20 8D 20 32 36 39 30 3A 46 24 B2 22 |F" . . 2690:F$."|
00002D20: 22 3A 89 33 31 32 30 00 43 6D C6 0C 8B 20 46 24 |":.3120.Cm... F$|
00002D30: B2 22 53 22 20 A7 20 8D 20 33 33 32 30 3A 89 33 |."S" . . 3320:.3|
00002D40: 31 32 30 00 65 6D D0 0C 8B 20 46 24 B2 22 58 22 |120.em... F$."X"|
00002D50: 20 A7 20 8D 20 33 39 35 30 3A 46 24 B2 22 22 3A | . . 3950:F$."":|
00002D60: 89 33 31 32 30 00 87 6D DA 0C 8B 20 46 24 B2 22 |.3120..m... F$."|
00002D70: 47 22 20 A7 20 8D 20 34 30 30 30 3A 46 24 B2 22 |G" . . 4000:F$."|
00002D80: 22 3A 89 33 31 32 30 00 E3 6D DF 0C 8B 20 46 24 |":.3120..m... F$|
00002D90: B2 22 24 22 20 A7 20 40 54 45 58 54 3A EE 3A 99 |."$" . @TEXT:.:.|
00002DA0: 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00002DB0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 48 49 54 |.............HIT|
00002DC0: 20 41 4E 59 20 4B 45 59 22 3A A1 F9 4B 24 3A 8B | ANY KEY":..K$:.|
00002DD0: 4B 24 A7 40 9C 2C 30 3A 46 24 B2 22 22 3A 89 33 |K$.@.,0:F$."":.3|
00002DE0: 31 32 30 00 EE 6D E4 0C 89 20 33 31 35 30 00 20 |120..m... 3150. |
00002DF0: 6E EE 0C 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |n...------------|
00002E00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002E10: 2D 2D 2D 2D 2D 2D 53 54 41 53 48 20 53 41 56 45 |------STASH SAVE|
00002E20: 00 2A 6E F8 0C 40 54 45 58 54 00 6F 6E 02 0D 85 |.*n..@TEXT.on...|
00002E30: 22 53 41 56 45 20 41 4E 49 4D 41 54 49 4F 4E 20 |"SAVE ANIMATION |
00002E40: 5B 12 46 49 4C 45 4E 41 4D 45 92 5D 22 3B 46 24 |[.FILENAME.]";F$|
00002E50: 3A 8B C3 28 46 24 29 B1 35 A7 99 22 4E 41 4D 45 |:..(F$).5.."NAME|
00002E60: 20 54 4F 20 4C 4F 4E 47 22 3A 89 33 33 33 30 00 | TO LONG":.3330.|
00002E70: 79 6E 0C 0D 8D 33 39 30 30 00 92 6E 16 0D 9F 32 |yn...3900..n...2|
00002E80: 2C 38 2C 32 2C 22 30 3A 22 AA 46 24 AA 22 53 2C |,8,2,"0:".F$."S,|
00002E90: 57 22 00 9C 6E 20 0D 98 32 2C 44 41 00 A6 6E 2A |W"..n ..2,DA..n*|
00002EA0: 0D 98 32 2C 42 58 00 B0 6E 34 0D 98 32 2C 42 59 |..2,BX..n4..2,BY|
00002EB0: 00 BE 6E 3E 0D 81 49 B2 30 A4 44 41 AB 31 00 CB |..n>..I.0.DA.1..|
00002EC0: 6E 48 0D 98 32 2C 41 44 28 49 29 00 F3 6E 52 0D |nH..2,AD(I)..nR.|
00002ED0: 82 3A A0 32 3A 46 49 24 B2 46 24 3A 50 24 B2 22 |.:.2:FI$.F$:P$."|
00002EE0: 2E 22 3A 40 9C 2C 30 3A 40 DE 2C 30 2C 33 3A 49 |.":@.,0:@.,0,3:I|
00002EF0: 4D B2 30 00 0E 6F 5C 0D 8B 49 4D B2 44 41 A7 49 |M.0..o\..IM.DA.I|
00002F00: 4D B2 30 3A 49 33 B2 30 3A 89 33 34 38 30 00 1D |M.0:I3.0:.3480..|
00002F10: 6F 66 0D 46 49 24 B2 46 49 24 AA 50 24 00 3D 6F |of.FI$.FI$.P$.=o|
00002F20: 70 0D 8B C3 28 46 49 24 29 B1 31 36 A7 50 24 B2 |p...(FI$).16.P$.|
00002F30: 22 2B 22 3A 46 49 24 B2 46 24 AA 50 24 00 47 6F |"+":FI$.F$.P$.Go|
00002F40: 7A 0D 8D 33 38 30 30 00 59 6F 84 0D 40 94 2C 31 |z..3800.Yo..@.,1|
00002F50: 2C 46 49 24 3A 40 9C 2C 30 00 63 6F 8E 0D 89 33 |,FI$:@.,0.co...3|
00002F60: 34 32 30 00 69 6F 98 0D 8E 00 B3 6F A2 0D 8F 2D |420.io.....o...-|
00002F70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002F80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002F90: 2D 2D 2D 2D 2D 2D 2D 44 55 50 4C 49 43 41 54 45 |-------DUPLICATE|
00002FA0: 20 50 4F 52 54 49 4F 4E 20 4F 46 20 44 52 41 57 | PORTION OF DRAW|
00002FB0: 49 4E 47 00 FE 6F AC 0D 40 9C 2C 30 3A 50 24 B2 |ING..o..@.,0:P$.|
00002FC0: 22 50 52 45 53 53 20 5B 20 53 20 5D 20 46 4F 52 |"PRESS [ S ] FOR|
00002FD0: 20 53 54 41 52 54 49 4E 47 20 4C 49 4E 45 20 4F | STARTING LINE O|
00002FE0: 46 20 44 55 50 4C 49 43 41 54 45 20 22 3A 40 E0 |F DUPLICATE ":@.|
00002FF0: 2C 42 41 2C 31 2C 31 2C 31 2C 31 2C 50 24 00 42 |,BA,1,1,1,1,P$.B|
00003000: 70 B6 0D 50 24 B2 22 50 52 45 53 53 20 5B 20 45 |p..P$."PRESS [ E|
00003010: 20 5D 20 46 4F 52 20 45 4E 44 49 4E 47 20 4C 49 | ] FOR ENDING LI|
00003020: 4E 45 20 4F 46 20 44 55 50 4C 49 43 41 54 45 20 |NE OF DUPLICATE |
00003030: 22 3A 40 E0 2C 42 41 2C 31 2C 39 2C 31 2C 31 2C |":@.,BA,1,9,1,1,|
00003040: 50 24 00 84 70 C0 0D 50 24 B2 22 50 52 45 53 53 |P$..p..P$."PRESS|
00003050: 20 53 50 41 43 45 20 42 41 52 20 54 4F 20 49 4E | SPACE BAR TO IN|
00003060: 43 52 45 4D 45 4E 54 20 45 41 43 48 20 4C 49 4E |CREMENT EACH LIN|
00003070: 45 22 3A 40 E0 2C 42 41 2C 31 2C 31 37 2C 31 2C |E":@.,BA,1,17,1,|
00003080: 31 2C 50 24 00 F7 70 CA 0D 50 24 B2 22 50 52 45 |1,P$..p..P$."PRE|
00003090: 53 53 20 5B 20 52 20 5D 20 54 4F 20 52 45 54 55 |SS [ R ] TO RETU|
000030A0: 52 4E 22 3A 40 E0 2C 42 41 2C 31 2C 32 35 2C 31 |RN":@.,BA,1,25,1|
000030B0: 2C 31 2C 50 24 3A 50 24 B2 22 4C 49 4E 45 20 4E |,1,P$:P$."LINE N|
000030C0: 55 4D 42 45 52 20 49 53 20 22 3A 50 31 24 B2 22 |UMBER IS ":P1$."|
000030D0: 20 20 20 53 54 41 52 54 20 4C 49 4E 45 20 49 53 | START LINE IS|
000030E0: 20 22 3A 50 32 24 B2 22 20 20 20 45 4E 44 20 4C | ":P2$." END L|
000030F0: 49 4E 45 20 49 53 22 00 06 71 D4 0D 81 20 49 B2 |INE IS"..q... I.|
00003100: 31 20 A4 20 4E 4C 00 3A 71 DE 0D 40 E0 2C 42 41 |1 . NL.:q..@.,BA|
00003110: 2C 31 2C 33 33 2C 31 2C 31 2C 50 24 AA C4 28 49 |,1,33,1,1,P$..(I|
00003120: 29 AA 50 31 24 AA C4 28 53 44 29 AA 50 32 24 AA |).P1$..(SD).P2$.|
00003130: C4 28 45 44 29 3A A1 F9 4B 24 00 55 71 E8 0D 8B |.(ED):..K$.Uq...|
00003140: 20 4B 24 B2 22 52 22 20 A7 20 53 44 B2 30 3A 45 | K$."R" . SD.0:E|
00003150: 44 B2 30 3A 8E 00 75 71 F2 0D 8B 20 4B 24 B2 22 |D.0:..uq... K$."|
00003160: 53 22 20 A7 20 53 44 B2 49 3A 4B 24 B2 22 22 3A |S" . SD.I:K$."":|
00003170: 89 33 35 35 30 00 95 71 FC 0D 8B 20 4B 24 B2 22 |.3550..q... K$."|
00003180: 45 22 20 A7 20 45 44 B2 49 3A 4B 24 B2 22 22 3A |E" . ED.I:K$."":|
00003190: 89 33 35 35 30 00 A6 71 06 0E 8B 20 4B 24 20 A7 |.3550..q... K$ .|
000031A0: 20 4B 24 B2 22 22 00 CC 71 10 0E 41 41 B2 58 42 | K$.""..q..AA.XB|
000031B0: 28 49 29 3A 42 42 B2 59 42 28 49 29 3A 43 43 B2 |(I):BB.YB(I):CC.|
000031C0: 5A 42 28 49 29 3A 8D 20 32 32 35 30 00 E2 71 1A |ZB(I):. 2250..q.|
000031D0: 0E 52 42 B2 58 54 AA 58 4F 3A 52 45 B2 59 54 AA |.RB.XT.XO:RE.YT.|
000031E0: 59 4F 00 08 72 24 0E 41 41 B2 58 45 28 49 29 3A |YO..r$.AA.XE(I):|
000031F0: 42 42 B2 59 45 28 49 29 3A 43 43 B2 5A 45 28 49 |BB.YE(I):CC.ZE(I|
00003200: 29 3A 8D 20 32 32 35 30 00 2F 72 2E 0E 40 E5 2C |):. 2250./r..@.,|
00003210: B6 28 52 42 29 2C B6 28 52 45 29 2C B6 28 58 54 |.(RB),.(RE),.(XT|
00003220: AA 58 4F 29 2C B6 28 59 54 AA 59 4F 29 2C 31 00 |.XO),.(YT.YO),1.|
00003230: 36 72 38 0E 82 49 00 4F 72 42 0E 40 54 45 58 54 |6r8..I.OrB.@TEXT|
00003240: 3A 58 44 B2 30 3A 59 44 B2 30 3A 5A 44 B2 30 00 |:XD.0:YD.0:ZD.0.|
00003250: 66 72 4C 0E 85 22 20 58 2C 59 2C 5A 22 3B 58 44 |frL.." X,Y,Z";XD|
00003260: 2C 59 44 2C 5A 44 00 76 72 56 0E 8B 45 44 B2 30 |,YD,ZD.vrV..ED.0|
00003270: A7 45 44 B2 4E 4C 00 83 72 60 0E 4E 44 B2 45 44 |.ED.NL..r`.ND.ED|
00003280: AB 53 44 00 8F 72 6A 0E 81 49 B2 30 A4 4E 44 00 |.SD..rj..I.0.ND.|
00003290: 9B 72 74 0E 4E 4C B2 4E 4C AA 31 00 C5 72 7E 0E |.rt.NL.NL.1..r~.|
000032A0: 58 42 28 4E 4C 29 B2 58 42 28 53 44 AA 49 29 AA |XB(NL).XB(SD.I).|
000032B0: 58 44 3A 58 45 28 4E 4C 29 B2 58 45 28 53 44 AA |XD:XE(NL).XE(SD.|
000032C0: 49 29 AA 58 44 00 EF 72 88 0E 59 42 28 4E 4C 29 |I).XD..r..YB(NL)|
000032D0: B2 59 42 28 53 44 AA 49 29 AA 59 44 3A 59 45 28 |.YB(SD.I).YD:YE(|
000032E0: 4E 4C 29 B2 59 45 28 53 44 AA 49 29 AA 59 44 00 |NL).YE(SD.I).YD.|
000032F0: 19 73 92 0E 5A 42 28 4E 4C 29 B2 5A 42 28 53 44 |.s..ZB(NL).ZB(SD|
00003300: AA 49 29 AA 5A 44 3A 5A 45 28 4E 4C 29 B2 5A 45 |.I).ZD:ZE(NL).ZE|
00003310: 28 53 44 AA 49 29 AA 5A 44 00 1F 73 9C 0E 82 00 |(SD.I).ZD..s....|
00003320: 43 73 A6 0E 85 22 4D 4F 52 45 20 44 55 50 4C 49 |Cs..."MORE DUPLI|
00003330: 43 41 54 49 4E 47 20 5B 20 59 2F 4E 20 5D 22 3B |CATING [ Y/N ]";|
00003340: 44 55 24 00 65 73 B0 0E 8B 20 44 55 24 B2 22 59 |DU$.es... DU$."Y|
00003350: 22 A7 20 40 DE 2C 30 2C 33 3A 40 9C 2C 30 3A 89 |". @.,0,3:@.,0:.|
00003360: 20 33 34 39 30 00 7B 73 BA 0E 8B 20 44 55 24 B2 | 3490.{s... DU$.|
00003370: 22 4E 22 A7 20 89 20 33 37 39 30 00 85 73 C4 0E |"N". . 3790..s..|
00003380: 89 33 37 35 30 00 A1 73 CE 0E 40 DE 2C 30 2C 33 |.3750..s..@.,0,3|
00003390: 3A 40 9C 2C 30 3A 45 44 B2 30 3A 53 44 B2 30 3A |:@.,0:ED.0:SD.0:|
000033A0: 8E 00 E0 73 D8 0E 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D |...s...---------|
000033B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000033C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000033D0: 2D 2D 2D 2D 2D 2D 45 58 50 4D 20 46 45 54 43 48 |------EXPM FETCH|
000033E0: 00 F0 73 E2 0E 8B 49 4D B2 30 A7 8D 33 39 31 30 |..s...IM.0..3910|
000033F0: 00 0D 74 EC 0E 81 20 49 31 B2 49 4D 20 A4 20 44 |..t... I1.IM . D|
00003400: 41 AB 31 3A 41 45 B2 41 44 28 49 31 29 00 32 74 |A.1:AE.AD(I1).2t|
00003410: F6 0E 8B 20 49 31 B2 30 20 B0 20 49 33 B2 31 20 |... I1.0 . I3.1 |
00003420: A7 20 41 58 B2 30 3A 41 59 B2 30 3A 89 20 33 38 |. AX.0:AY.0:. 38|
00003430: 36 30 00 58 74 00 0F 41 58 B2 41 58 AA 42 58 3A |60.Xt..AX.AX.BX:|
00003440: 8B 41 58 AA 42 58 B1 36 33 39 A7 41 58 B2 30 3A |.AX.BX.639.AX.0:|
00003450: 41 59 B2 41 59 AA 42 59 00 6E 74 0A 0F 8B 20 41 |AY.AY.BY.nt... A|
00003460: 59 AA 42 59 B1 31 39 39 A7 89 33 38 39 30 00 83 |Y.BY.199..3890..|
00003470: 74 14 0F 46 58 B2 41 58 3A 46 59 B2 41 59 3A 49 |t..FX.AX:FY.AY:I|
00003480: 33 B2 30 00 94 74 1E 0F 40 FE 21 2C 41 45 2C 46 |3.0..t..@.!,AE,F|
00003490: 58 2C 46 59 00 9A 74 28 0F 82 00 AB 74 32 0F 49 |X,FY..t(....t2.I|
000034A0: 4D B2 49 31 3A 49 33 B2 31 3A 8E 00 EA 74 3C 0F |M.I1:I3.1:...t<.|
000034B0: 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.---------------|
000034C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000034D0: 2D 2D 2D 2D 2D 2D 2D 2D 46 49 4E 44 20 4C 41 52 |--------FIND LAR|
000034E0: 47 45 53 54 20 42 58 2C 42 59 00 10 75 46 0F 81 |GEST BX,BY..uF..|
000034F0: 49 32 B2 30 A4 44 41 AB 31 3A 8B 42 58 25 28 49 |I2.0.DA.1:.BX%(I|
00003500: 32 29 B1 42 58 A7 42 58 B2 42 58 25 28 49 32 29 |2).BX.BX.BX%(I2)|
00003510: 00 2B 75 50 0F 8B 42 59 25 28 49 32 29 B1 42 59 |.+uP..BY%(I2).BY|
00003520: A7 42 59 B2 42 59 25 28 49 32 29 00 33 75 5A 0F |.BY.BY%(I2).3uZ.|
00003530: 82 3A 8E 00 75 75 64 0F 8F 2D 2D 2D 2D 2D 2D 2D |.:..uud..-------|
00003540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003550: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003560: 2D 4C 4F 4F 4B 20 41 54 20 53 41 56 45 20 53 43 |-LOOK AT SAVE SC|
00003570: 52 45 45 4E 53 00 9F 75 6E 0F 40 9C 2C 30 3A 40 |REENS..un.@.,0:@|
00003580: E0 2C 42 41 2C 31 2C 31 39 32 2C 31 2C 31 2C C4 |.,BA,1,192,1,1,.|
00003590: 28 49 4D 29 AA 22 20 20 22 AA C4 28 44 41 29 00 |(IM)." "..(DA).|
000035A0: C0 75 78 0F 8B 49 4D B2 44 41 A7 49 4D B2 30 3A |.ux..IM.DA.IM.0:|
000035B0: 49 33 B2 30 3A 4B 24 B2 22 22 3A 89 33 39 39 30 |I3.0:K$."":.3990|
000035C0: 00 CA 75 82 0F 8D 33 38 30 30 00 0D 76 8C 0F 50 |..u...3800..v..P|
000035D0: 24 B2 22 48 49 54 20 41 4E 59 20 4B 45 59 22 3A |$."HIT ANY KEY":|
000035E0: 40 E0 2C 42 41 2C 35 34 32 2C 31 39 32 2C 31 2C |@.,BA,542,192,1,|
000035F0: 31 2C 50 24 3A A1 F9 4B 24 3A 8B 4B 24 A7 41 58 |1,P$:..K$:.K$.AX|
00003600: B2 30 3A 41 59 B2 30 3A 89 33 39 35 30 00 18 76 |.0:AY.0:.3950..v|
00003610: 96 0F 40 9C 2C 30 3A 8E 00 49 76 A0 0F 8F 2D 2D |..@.,0:..Iv...--|
00003620: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003630: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003640: 53 54 41 53 48 20 47 45 54 00 53 76 AA 0F 40 54 |STASH GET.Sv..@T|
00003650: 45 58 54 00 78 76 B4 0F 85 22 47 45 54 20 41 4E |EXT.xv..."GET AN|
00003660: 49 4D 41 54 49 4F 4E 20 5B 12 46 49 4C 45 4E 41 |IMATION [.FILENA|
00003670: 4D 45 92 5D 22 3B 46 24 00 91 76 BE 0F 9F 32 2C |ME.]";F$..v...2,|
00003680: 38 2C 32 2C 22 30 3A 22 AA 46 24 AA 22 53 2C 52 |8,2,"0:".F$."S,R|
00003690: 22 00 A1 76 C8 0F 84 32 2C 44 41 3A 44 44 B2 44 |"..v...2,DA:DD.D|
000036A0: 41 00 AB 76 D2 0F 84 32 2C 42 58 00 B5 76 DC 0F |A..v...2,BX..v..|
000036B0: 84 32 2C 42 59 00 C3 76 E6 0F 81 49 B2 30 A4 44 |.2,BY..v...I.0.D|
000036C0: 41 AB 31 00 D0 76 F0 0F 84 32 2C 41 44 28 49 29 |A.1..v...2,AD(I)|
000036D0: 00 F3 76 FA 0F 82 3A A0 32 3A 46 49 24 B2 46 24 |..v...:.2:FI$.F$|
000036E0: 3A 50 24 B2 22 2E 22 3A 40 9C 2C 30 3A 40 DE 2C |:P$.".":@.,0:@.,|
000036F0: 30 2C 33 00 1E 77 04 10 46 49 24 B2 46 49 24 AA |0,3..w..FI$.FI$.|
00003700: 50 24 3A 8B C3 28 46 49 24 29 B1 31 36 A7 50 24 |P$:..(FI$).16.P$|
00003710: B2 22 2B 22 3A 46 49 24 B2 46 24 AA 50 24 00 40 |."+":FI$.F$.P$.@|
00003720: 77 0E 10 8B 49 4D B2 44 41 A7 49 33 B2 30 3A 49 |w...IM.DA.I3.0:I|
00003730: 4D B2 30 3A 44 41 B2 44 44 3A 40 9C 2C 30 3A 8E |M.0:DA.DD:@.,0:.|
00003740: 00 4D 77 18 10 40 93 2C 31 2C 46 49 24 00 6E 77 |.Mw..@.,1,FI$.nw|
00003750: 22 10 81 20 49 31 B2 49 4D 20 A4 20 44 41 AB 31 |".. I1.IM . DA.1|
00003760: 3A 8B 49 31 B2 30 A7 41 44 28 30 29 B2 30 00 93 |:.I1.0.AD(0).0..|
00003770: 77 2C 10 8B 20 49 31 B2 30 20 B0 20 49 33 B2 31 |w,.. I1.0 . I3.1|
00003780: 20 A7 20 41 58 B2 30 3A 41 59 B2 30 3A 89 20 34 | . AX.0:AY.0:. 4|
00003790: 31 37 30 00 B9 77 36 10 41 58 B2 41 58 AA 42 58 |170..w6.AX.AX.BX|
000037A0: 3A 8B 41 58 AA 42 58 B1 36 33 39 A7 41 58 B2 30 |:.AX.BX.639.AX.0|
000037B0: 3A 41 59 B2 41 59 AA 42 59 00 CF 77 40 10 8B 20 |:AY.AY.BY..w@.. |
000037C0: 41 59 AA 42 59 B1 31 39 39 A7 89 34 32 33 30 00 |AY.BY.199..4230.|
000037D0: E4 77 4A 10 46 58 B2 41 58 3A 46 59 B2 41 59 3A |.wJ.FX.AX:FY.AY:|
000037E0: 49 33 B2 30 00 0C 78 54 10 8F 20 40 43 48 41 52 |I3.0..xT.. @CHAR|
000037F0: 2C 42 41 2C 35 36 36 2C 31 39 32 2C 31 2C 31 2C |,BA,566,192,1,1,|
00003800: 53 54 52 24 28 41 44 28 49 31 29 29 00 31 78 5E |STR$(AD(I1)).1x^|
00003810: 10 8B 41 44 28 49 31 29 B1 34 34 32 30 30 A7 44 |..AD(I1).44200.D|
00003820: 44 B2 28 44 44 AB 31 29 AB 31 3A 89 20 34 32 31 |D.(DD.1).1:. 421|
00003830: 30 00 67 78 68 10 40 FE 1F 2C 41 44 28 49 31 29 |0.gxh.@..,AD(I1)|
00003840: 2C 46 58 2C 46 59 2C 42 58 2C 42 59 3A 41 44 28 |,FX,FY,BX,BY:AD(|
00003850: 49 31 AA 31 29 B2 C2 28 32 35 30 29 AA C2 28 32 |I1.1)..(250)..(2|
00003860: 35 31 29 AC 32 35 37 00 6D 78 72 10 82 00 93 78 |51).257.mxr....x|
00003870: 7C 10 40 E0 2C 42 41 2C 31 2C 31 39 32 2C 31 2C ||.@.,BA,1,192,1,|
00003880: 31 2C C4 28 49 4D 29 AA 22 20 20 20 22 AA C4 28 |1,.(IM)." "..(|
00003890: 44 41 29 00 A9 78 86 10 49 4D B2 49 31 3A 49 33 |DA)..x..IM.I1:I3|
000038A0: B2 31 3A 89 20 34 31 30 30 00 CC 78 90 10 8F 2D |.1:. 4100..x...-|
000038B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000038C0: 2D 2D 2D 2D 2D 2D 2D 2D 43 59 4C 31 00 42 79 9A |--------CYL1.By.|
000038D0: 10 8F 20 54 48 49 53 20 50 41 52 54 20 49 53 20 |.. THIS PART IS |
000038E0: 46 52 4F 4D 20 54 48 45 20 43 59 4C 20 50 52 4F |FROM THE CYL PRO|
000038F0: 47 52 41 4D 53 20 49 4E 20 54 48 45 20 53 41 4D |GRAMS IN THE SAM|
00003900: 45 20 42 4F 4F 4B 2E 54 48 45 59 20 44 4F 4E 27 |E BOOK.THEY DON'|
00003910: 54 20 57 4F 52 4B 20 28 44 45 53 26 43 59 4C 29 |T WORK (DES&CYL)|
00003920: 20 31 30 30 25 20 54 4F 47 45 54 48 45 52 20 42 | 100% TOGETHER B|
00003930: 55 54 20 4B 49 4E 44 20 4F 46 20 53 4F 52 54 20 |UT KIND OF SORT |
00003940: 4F 46 00 67 79 A4 10 8F 2D 2D 2D 2D 2D 2D 2D 2D |OF.gy...--------|
00003950: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003960: 2D 2D 2D 4D 45 4E 55 00 A7 79 AE 10 50 24 B2 22 |---MENU..y..P$."|
00003970: 43 49 52 43 4C 45 20 20 20 20 44 52 41 57 20 20 |CIRCLE DRAW |
00003980: 45 52 41 53 45 20 20 4D 4F 52 45 20 20 52 45 54 |ERASE MORE RET|
00003990: 55 52 4E 22 3A 40 E0 2C 42 41 2C 31 2C 31 38 34 |URN":@.,BA,1,184|
000039A0: 2C 31 2C 31 2C 50 24 00 DC 79 B8 10 50 24 B2 22 |,1,1,P$..y..P$."|
000039B0: 28 44 29 20 28 45 29 20 28 4D 29 20 28 52 29 20 |(D) (E) (M) (R) |
000039C0: 20 20 20 20 20 20 20 20 22 3A 40 E0 2C 42 41 2C | ":@.,BA,|
000039D0: 31 2C 31 39 32 2C 31 2C 31 2C 50 24 00 E5 79 C2 |1,192,1,1,P$..y.|
000039E0: 10 A1 F9 53 24 00 02 7A CC 10 8B 20 53 24 B2 22 |...S$..z... S$."|
000039F0: 44 22 20 A7 20 8D 20 34 37 36 30 3A 8D 20 34 33 |D" . . 4760:. 43|
00003A00: 35 30 00 18 7A D6 10 8B 20 53 24 B2 22 45 22 20 |50..z... S$."E" |
00003A10: A7 20 8D 20 34 38 31 30 00 2E 7A E0 10 8B 20 53 |. . 4810..z... S|
00003A20: 24 B2 22 4D 22 20 A7 20 8D 20 34 38 37 30 00 58 |$."M" . . 4870.X|
00003A30: 7A EA 10 8B 20 53 24 B2 22 52 22 20 A7 20 53 24 |z... S$."R" . S$|
00003A40: B2 22 22 3A 40 E0 2C 42 41 2C 31 2C 31 38 34 2C |."":@.,BA,1,184,|
00003A50: 31 2C 31 2C 45 24 3A 8E 00 63 7A F4 10 89 20 34 |1,1,E$:..cz... 4|
00003A60: 32 37 30 00 88 7A FE 10 8F 2D 2D 2D 2D 2D 2D 2D |270..z...-------|
00003A70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003A80: 2D 2D 2D 2D 44 52 41 57 00 B2 7A 08 11 40 E0 2C |----DRAW..z..@.,|
00003A90: 42 41 2C 31 2C 31 38 34 2C 31 2C 31 2C 45 24 3A |BA,1,184,1,1,E$:|
00003AA0: 40 E0 2C 42 41 2C 31 2C 31 39 32 2C 31 2C 31 2C |@.,BA,1,192,1,1,|
00003AB0: 45 24 00 E5 7A 12 11 50 24 B2 22 52 41 44 49 55 |E$..z..P$."RADIU|
00003AC0: 53 20 20 28 2B 2F 2D 2F 52 45 54 55 52 4E 29 20 |S (+/-/RETURN) |
00003AD0: 20 22 3A 40 E0 2C 42 41 2C 31 2C 31 39 32 2C 31 | ":@.,BA,1,192,1|
00003AE0: 2C 31 2C 50 24 00 09 7B 17 11 40 E0 2C 42 41 2C |,1,P$..{..@.,BA,|
00003AF0: 31 37 32 2C 31 39 32 2C 31 2C 31 2C C4 28 52 29 |172,192,1,1,.(R)|
00003B00: AA 22 20 22 3A A1 F9 4B 24 00 1B 7B 1C 11 8B 4B |." ":..K$..{...K|
00003B10: 24 B2 22 2B 22 A7 52 B2 52 AA 31 00 36 7B 26 11 |$."+".R.R.1.6{&.|
00003B20: 8B 4B 24 B2 22 2D 22 A7 52 B2 52 AB 31 3A 8B 52 |.K$."-".R.R.1:.R|
00003B30: B3 30 A7 52 B2 30 00 63 7B 30 11 8B 4B 24 B2 C7 |.0.R.0.c{0..K$..|
00003B40: 28 31 33 29 A7 40 E0 2C 42 41 2C 31 2C 31 39 32 |(13).@.,BA,1,192|
00003B50: 2C 31 2C 31 2C 45 24 3A 4B 24 B2 22 22 3A 89 34 |,1,1,E$:K$."":.4|
00003B60: 34 32 30 00 6D 7B 3A 11 89 34 33 37 35 00 A1 7B |420.m{:..4375..{|
00003B70: 44 11 50 24 B2 22 44 49 56 49 53 4F 52 20 20 28 |D.P$."DIVISOR (|
00003B80: 2B 2F 2D 2F 52 45 54 55 52 4E 29 20 20 22 3A 40 |+/-/RETURN) ":@|
00003B90: E0 2C 42 41 2C 31 2C 31 39 32 2C 31 2C 31 2C 50 |.,BA,1,192,1,1,P|
00003BA0: 24 00 C6 7B 49 11 40 E0 2C 42 41 2C 31 38 30 2C |$..{I.@.,BA,180,|
00003BB0: 31 39 32 2C 31 2C 31 2C C4 28 44 49 29 AA 22 20 |192,1,1,.(DI)." |
00003BC0: 22 3A A1 F9 4B 24 00 DB 7B 4E 11 8B 4B 24 B2 22 |":..K$..{N..K$."|
00003BD0: 2B 22 A7 44 49 B2 44 49 AA 2E 31 00 FC 7B 58 11 |+".DI.DI..1..{X.|
00003BE0: 8B 4B 24 B2 22 2D 22 A7 44 49 B2 44 49 AB 2E 31 |.K$."-".DI.DI..1|
00003BF0: 3A 8B 44 49 B2 B3 30 A7 44 49 B2 31 00 29 7C 62 |:.DI..0.DI.1.)|b|
00003C00: 11 8B 4B 24 B2 C7 28 31 33 29 A7 40 E0 2C 42 41 |..K$..(13).@.,BA|
00003C10: 2C 31 2C 31 39 32 2C 31 2C 31 2C 45 24 3A 4B 24 |,1,192,1,1,E$:K$|
00003C20: B2 22 22 3A 89 34 34 37 30 00 33 7C 6C 11 89 34 |."":.4470.3|l..4|
00003C30: 34 32 35 00 6F 7C 76 11 50 24 B2 22 53 54 41 52 |425.o|v.P$."STAR|
00003C40: 54 20 41 52 43 20 41 4E 47 4C 45 20 20 28 2B 2F |T ARC ANGLE (+/|
00003C50: 2D 2F 52 45 54 55 52 4E 29 20 20 22 3A 40 E0 2C |-/RETURN) ":@.,|
00003C60: 42 41 2C 31 2C 31 39 32 2C 31 2C 31 2C 50 24 00 |BA,1,192,1,1,P$.|
00003C70: 94 7C 7B 11 40 E0 2C 42 41 2C 32 34 38 2C 31 39 |.|{.@.,BA,248,19|
00003C80: 32 2C 31 2C 31 2C C4 28 41 53 29 AA 22 20 22 3A |2,1,1,.(AS)." ":|
00003C90: A1 F9 4B 24 00 A8 7C 80 11 8B 4B 24 B2 22 2B 22 |..K$..|...K$."+"|
00003CA0: A7 41 53 B2 41 53 AA 31 00 C7 7C 8A 11 8B 4B 24 |.AS.AS.1..|...K$|
00003CB0: B2 22 2D 22 A7 41 53 B2 41 53 AB 31 3A 8B 41 53 |."-".AS.AS.1:.AS|
00003CC0: B3 30 A7 41 53 B2 30 00 F4 7C 94 11 8B 4B 24 B2 |.0.AS.0..|...K$.|
00003CD0: C7 28 31 33 29 A7 40 E0 2C 42 41 2C 31 2C 31 39 |.(13).@.,BA,1,19|
00003CE0: 32 2C 31 2C 31 2C 45 24 3A 4B 24 B2 22 22 3A 89 |2,1,1,E$:K$."":.|
00003CF0: 34 35 32 30 00 FE 7C 9E 11 89 34 34 37 35 00 38 |4520..|...4475.8|
00003D00: 7D A8 11 50 24 B2 22 45 4E 44 20 41 52 43 20 41 |}..P$."END ARC A|
00003D10: 4E 47 4C 45 20 20 28 2B 2F 2D 2F 52 45 54 55 52 |NGLE (+/-/RETUR|
00003D20: 4E 29 20 20 22 3A 40 E0 2C 42 41 2C 31 2C 31 39 |N) ":@.,BA,1,19|
00003D30: 32 2C 31 2C 31 2C 50 24 00 5D 7D AD 11 40 E0 2C |2,1,1,P$.]}..@.,|
00003D40: 42 41 2C 32 34 30 2C 31 39 32 2C 31 2C 31 2C C4 |BA,240,192,1,1,.|
00003D50: 28 41 45 29 AA 22 20 22 3A A1 F9 4B 24 00 71 7D |(AE)." ":..K$.q}|
00003D60: B2 11 8B 4B 24 B2 22 2B 22 A7 41 45 B2 41 45 AA |...K$."+".AE.AE.|
00003D70: 31 00 90 7D BC 11 8B 4B 24 B2 22 2D 22 A7 41 45 |1..}...K$."-".AE|
00003D80: B2 41 45 AB 31 3A 8B 41 45 B3 30 A7 41 45 B2 30 |.AE.1:.AE.0.AE.0|
00003D90: 00 BD 7D C6 11 8B 4B 24 B2 C7 28 31 33 29 A7 40 |..}...K$..(13).@|
00003DA0: E0 2C 42 41 2C 31 2C 31 39 32 2C 31 2C 31 2C 45 |.,BA,1,192,1,1,E|
00003DB0: 24 3A 4B 24 B2 22 22 3A 89 34 35 37 30 00 C7 7D |$:K$."":.4570..}|
00003DC0: D0 11 89 34 35 32 35 00 FD 7D DA 11 50 24 B2 22 |...4525..}..P$."|
00003DD0: 49 4E 43 52 45 4D 45 4E 54 20 20 28 2B 2F 2D 2F |INCREMENT (+/-/|
00003DE0: 52 45 54 55 52 4E 29 20 20 22 3A 40 E0 2C 42 41 |RETURN) ":@.,BA|
00003DF0: 2C 31 2C 31 39 32 2C 31 2C 31 2C 50 24 00 22 7E |,1,192,1,1,P$."~|
00003E00: DF 11 40 E0 2C 42 41 2C 32 30 38 2C 31 39 32 2C |..@.,BA,208,192,|
00003E10: 31 2C 31 2C C4 28 45 4E 29 AA 22 20 22 3A A1 F9 |1,1,.(EN)." ":..|
00003E20: 4B 24 00 36 7E E4 11 8B 4B 24 B2 22 2B 22 A7 45 |K$.6~...K$."+".E|
00003E30: 4E B2 45 4E AA 31 00 56 7E EE 11 8B 4B 24 B2 22 |N.EN.1.V~...K$."|
00003E40: 2D 22 A7 45 4E B2 45 4E AB 31 3A 8B 45 4E B2 B3 |-".EN.EN.1:.EN..|
00003E50: 30 A7 45 4E B2 31 00 83 7E F8 11 8B 4B 24 B2 C7 |0.EN.1..~...K$..|
00003E60: 28 31 33 29 A7 40 E0 2C 42 41 2C 31 2C 31 39 32 |(13).@.,BA,1,192|
00003E70: 2C 31 2C 31 2C 45 24 3A 4B 24 B2 22 22 3A 89 34 |,1,1,E$:K$."":.4|
00003E80: 36 32 30 00 8D 7E 02 12 89 34 35 37 35 00 9D 7E |620..~...4575..~|
00003E90: 0C 12 44 50 B2 45 4E AC FF AD 31 38 30 00 B9 7E |..DP.EN...180..~|
00003EA0: 16 12 41 53 B2 41 53 AC FF AD 31 38 30 3A 50 54 |..AS.AS...180:PT|
00003EB0: B2 41 45 AC FF AD 31 38 30 00 C3 7E 20 12 4E 42 |.AE...180..~ .NB|
00003EC0: B2 4E 4C 00 E0 7E 2A 12 81 20 50 48 B2 41 53 20 |.NL..~*.. PH.AS |
00003ED0: A4 20 50 54 AB 28 44 50 AD FF 29 20 A9 20 44 50 |. PT.(DP..) . DP|
00003EE0: 00 EC 7E 34 12 4E 4C B2 4E 4C AA 31 00 0C 7F 3E |..~4.NL.NL.1...>|
00003EF0: 12 58 42 28 4E 4C 29 B2 B5 28 28 28 52 AC BE 28 |.XB(NL)..(((R..(|
00003F00: 50 48 29 29 AD 44 49 29 AA 58 33 29 00 27 7F 48 |PH)).DI).X3).'.H|
00003F10: 12 59 42 28 4E 4C 29 B2 B5 28 28 52 AC BF 28 50 |.YB(NL)..((R..(P|
00003F20: 48 29 29 AA 59 33 29 00 35 7F 52 12 5A 42 28 4E |H)).Y3).5.R.ZB(N|
00003F30: 4C 29 B2 5A 33 00 58 7F 5C 12 58 45 28 4E 4C 29 |L).Z3.X.\.XE(NL)|
00003F40: B2 B5 28 28 28 52 AC BE 28 50 48 AA 44 50 29 29 |..(((R..(PH.DP))|
00003F50: AD 44 49 29 AA 58 33 29 00 76 7F 66 12 59 45 28 |.DI).X3).v.f.YE(|
00003F60: 4E 4C 29 B2 B5 28 28 52 AC BF 28 50 48 AA 44 50 |NL)..((R..(PH.DP|
00003F70: 29 29 AA 59 33 29 00 84 7F 70 12 5A 45 28 4E 4C |)).Y3)...p.ZE(NL|
00003F80: 29 B2 5A 33 00 C1 7F 7A 12 40 E5 2C B6 28 58 42 |).Z3...z.@.,.(XB|
00003F90: 28 4E 4C 29 AA 58 4F 29 2C B6 28 59 42 28 4E 4C |(NL).XO),.(YB(NL|
00003FA0: 29 AA 59 4F 29 2C B6 28 58 45 28 4E 4C 29 AA 58 |).YO),.(XE(NL).X|
00003FB0: 4F 29 2C B6 28 59 45 28 4E 4C 29 AA 59 4F 29 2C |O),.(YE(NL).YO),|
00003FC0: 31 00 D0 7F 84 12 82 20 50 48 3A 4E 45 B2 4E 4C |1...... PH:NE.NL|
00003FD0: 00 D6 7F 8E 12 8E 00 FE 7F 98 12 8F 2D 2D 2D 2D |............----|
00003FE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003FF0: 2D 2D 2D 2D 2D 54 52 41 4E 53 4C 41 54 45 00 08 |-----TRANSLATE..|
00004000: 80 A2 12 58 33 B2 58 43 00 12 80 AC 12 59 33 B2 |...X3.XC.....Y3.|
00004010: 59 43 00 1C 80 B6 12 5A 33 B2 5A 43 00 22 80 C0 |YC.....Z3.ZC."..|
00004020: 12 8E 00 46 80 CA 12 8F 2D 2D 2D 2D 2D 2D 2D 2D |...F....--------|
00004030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 45 52 41 53 45 20 |----------ERASE |
00004040: 43 49 52 43 4C 45 00 55 80 D4 12 81 49 B2 4E 42 |CIRCLE.U....I.NB|
00004050: AA 31 A4 4E 45 00 8E 80 DE 12 40 E5 2C B6 28 58 |.1.NE.....@.,.(X|
00004060: 42 28 49 29 AA 58 4F 29 2C B6 28 59 42 28 49 29 |B(I).XO),.(YB(I)|
00004070: AA 59 4F 29 2C B6 28 58 45 28 49 29 AA 58 4F 29 |.YO),.(XE(I).XO)|
00004080: 2C B6 28 59 45 28 49 29 AA 59 4F 29 2C 30 00 C2 |,.(YE(I).YO),0..|
00004090: 80 E8 12 58 42 28 49 29 B2 30 3A 59 42 28 49 29 |...XB(I).0:YB(I)|
000040A0: B2 30 3A 5A 42 28 49 29 B2 30 3A 58 45 28 49 29 |.0:ZB(I).0:XE(I)|
000040B0: B2 30 3A 59 45 28 49 29 B2 30 3A 5A 45 28 49 29 |.0:YE(I).0:ZE(I)|
000040C0: B2 30 00 C8 80 F2 12 82 00 D4 80 FC 12 4E 4C B2 |.0...........NL.|
000040D0: 4E 42 3A 8E 00 02 81 06 13 8F 2D 2D 2D 2D 2D 2D |NB:.......------|
000040E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000040F0: 2D 2D 2D 2D 2D 2D 2D 52 4F 54 41 54 45 20 4D 45 |-------ROTATE ME|
00004100: 4E 55 00 47 81 10 13 50 24 B2 22 52 4F 54 41 54 |NU.G...P$."ROTAT|
00004110: 45 20 20 12 58 20 20 59 20 20 5A 92 22 3A 40 E0 |E .X Y Z.":@.|
00004120: 2C 42 41 2C 31 2C 31 39 32 2C 31 2C 31 2C 50 24 |,BA,1,192,1,1,P$|
00004130: 3A 52 58 B2 4A 58 3A 52 59 B2 4A 59 3A 52 5A B2 |:RX.JX:RY.JY:RZ.|
00004140: 4A 5A 3A A1 F9 4B 24 00 63 81 1A 13 8B 20 4B 24 |JZ:..K$.c.... K$|
00004150: B2 22 58 22 20 A7 20 8D 20 34 39 34 30 3A 89 34 |."X" . . 4940:.4|
00004160: 39 33 30 00 7F 81 24 13 8B 20 4B 24 B2 22 59 22 |930...$.. K$."Y"|
00004170: 20 A7 20 8D 20 35 31 32 30 3A 89 34 39 33 30 00 | . . 5120:.4930.|
00004180: 9B 81 2E 13 8B 20 4B 24 B2 22 5A 22 20 A7 20 8D |..... K$."Z" . .|
00004190: 20 35 33 30 30 3A 89 34 39 33 30 00 A5 81 38 13 | 5300:.4930...8.|
000041A0: 89 34 38 38 30 00 C4 81 42 13 40 E0 2C 42 41 2C |.4880...B.@.,BA,|
000041B0: 31 2C 31 39 32 2C 31 2C 31 2C 45 24 3A 4B 24 B2 |1,192,1,1,E$:K$.|
000041C0: 22 22 3A 8E 00 EC 81 4C 13 8F 2D 2D 2D 2D 2D 2D |"":....L..------|
000041D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000041E0: 2D 2D 58 20 52 4F 54 41 54 49 4F 4E 00 27 82 56 |--X ROTATION.'.V|
000041F0: 13 50 24 B2 22 58 20 52 4F 54 41 54 49 4F 4E 20 |.P$."X ROTATION |
00004200: 28 2B 2F 2D 2F 54 48 45 4E 20 52 45 54 55 52 4E |(+/-/THEN RETURN|
00004210: 29 20 20 22 3A 40 E0 2C 42 41 2C 31 2C 31 39 32 |) ":@.,BA,1,192|
00004220: 2C 31 2C 31 2C 50 24 00 58 82 5B 13 40 E0 2C 42 |,1,1,P$.X.[.@.,B|
00004230: 41 2C 32 34 30 2C 31 39 32 2C 31 2C 31 2C C4 28 |A,240,192,1,1,.(|
00004240: 52 58 29 AA 22 20 54 2E 22 AA C4 28 54 58 29 AA |RX)." T."..(TX).|
00004250: 22 20 22 3A A1 F9 4B 24 00 6C 82 60 13 8B 4B 24 |" ":..K$.l.`..K$|
00004260: B2 22 2B 22 A7 52 58 B2 52 58 AA 31 00 80 82 6A |."+".RX.RX.1...j|
00004270: 13 8B 4B 24 B2 22 2D 22 A7 52 58 B2 52 58 AB 31 |..K$."-".RX.RX.1|
00004280: 00 BC 82 74 13 8B 4B 24 B2 C7 28 31 33 29 A7 40 |...t..K$..(13).@|
00004290: E0 2C 42 41 2C 31 2C 31 39 32 2C 31 2C 31 2C 45 |.,BA,1,192,1,1,E|
000042A0: 24 3A 4B 24 B2 22 22 3A 54 58 B2 54 58 AA 52 58 |$:K$."":TX.TX.RX|
000042B0: 3A 4A 58 B2 52 58 3A 89 35 30 30 30 00 C6 82 7E |:JX.RX:.5000...~|
000042C0: 13 89 34 39 35 35 00 D6 82 88 13 52 58 B2 52 58 |..4955.....RX.RX|
000042D0: AC FF AD 31 38 30 00 E4 82 92 13 43 31 28 31 2C |...180.....C1(1,|
000042E0: 31 29 B2 31 00 F2 82 9C 13 43 31 28 31 2C 32 29 |1).1.....C1(1,2)|
000042F0: B2 30 00 00 83 A6 13 43 31 28 31 2C 33 29 B2 30 |.0.....C1(1,3).0|
00004300: 00 0E 83 B0 13 43 31 28 32 2C 31 29 B2 30 00 20 |.....C1(2,1).0. |
00004310: 83 BA 13 43 31 28 32 2C 32 29 B2 BE 28 52 58 29 |...C1(2,2)..(RX)|
00004320: 00 32 83 C4 13 43 31 28 32 2C 33 29 B2 BF 28 52 |.2...C1(2,3)..(R|
00004330: 58 29 00 40 83 CE 13 43 31 28 33 2C 31 29 B2 30 |X).@...C1(3,1).0|
00004340: 00 53 83 D8 13 43 31 28 33 2C 32 29 B2 AB BF 28 |.S...C1(3,2)...(|
00004350: 52 58 29 00 65 83 E2 13 43 31 28 33 2C 33 29 B2 |RX).e...C1(3,3).|
00004360: BE 28 52 58 29 00 70 83 EC 13 8D 20 35 34 39 30 |.(RX).p.... 5490|
00004370: 00 76 83 F6 13 8E 00 9F 83 00 14 8F 2D 2D 2D 2D |.v..........----|
00004380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004390: 2D 2D 2D 2D 2D 59 20 52 4F 54 41 54 49 4F 4E 00 |-----Y ROTATION.|
000043A0: DA 83 0A 14 50 24 B2 22 59 20 52 4F 54 41 54 49 |....P$."Y ROTATI|
000043B0: 4F 4E 20 28 2B 2F 2D 2F 54 48 45 4E 20 52 45 54 |ON (+/-/THEN RET|
000043C0: 55 52 4E 29 20 20 22 3A 40 E0 2C 42 41 2C 31 2C |URN) ":@.,BA,1,|
000043D0: 31 39 32 2C 31 2C 31 2C 50 24 00 0B 84 0F 14 40 |192,1,1,P$.....@|
000043E0: E0 2C 42 41 2C 32 34 30 2C 31 39 32 2C 31 2C 31 |.,BA,240,192,1,1|
000043F0: 2C C4 28 52 59 29 AA 22 20 54 2E 22 AA C4 28 54 |,.(RY)." T."..(T|
00004400: 59 29 AA 22 20 22 3A A1 F9 4B 24 00 1F 84 14 14 |Y)." ":..K$.....|
00004410: 8B 4B 24 B2 22 2B 22 A7 52 59 B2 52 59 AA 31 00 |.K$."+".RY.RY.1.|
00004420: 33 84 1E 14 8B 4B 24 B2 22 2D 22 A7 52 59 B2 52 |3....K$."-".RY.R|
00004430: 59 AB 31 00 6F 84 28 14 8B 4B 24 B2 C7 28 31 33 |Y.1.o.(..K$..(13|
00004440: 29 A7 40 E0 2C 42 41 2C 31 2C 31 39 32 2C 31 2C |).@.,BA,1,192,1,|
00004450: 31 2C 45 24 3A 4B 24 B2 22 22 3A 54 59 B2 54 59 |1,E$:K$."":TY.TY|
00004460: AA 52 59 3A 4A 59 B2 52 59 3A 89 35 31 38 30 00 |.RY:JY.RY:.5180.|
00004470: 79 84 32 14 89 35 31 33 35 00 89 84 3C 14 52 59 |y.2..5135...<.RY|
00004480: B2 52 59 AC FF AD 31 38 30 00 9B 84 46 14 43 31 |.RY...180...F.C1|
00004490: 28 31 2C 31 29 B2 BE 28 52 59 29 00 A9 84 50 14 |(1,1)..(RY)...P.|
000044A0: 43 31 28 31 2C 32 29 B2 30 00 BC 84 5A 14 43 31 |C1(1,2).0...Z.C1|
000044B0: 28 31 2C 33 29 B2 AB BF 28 52 59 29 00 CA 84 64 |(1,3)...(RY)...d|
000044C0: 14 43 31 28 32 2C 31 29 B2 30 00 D8 84 6E 14 43 |.C1(2,1).0...n.C|
000044D0: 31 28 32 2C 32 29 B2 31 00 E6 84 78 14 43 31 28 |1(2,2).1...x.C1(|
000044E0: 32 2C 33 29 B2 30 00 F8 84 82 14 43 31 28 33 2C |2,3).0.....C1(3,|
000044F0: 31 29 B2 BF 28 52 59 29 00 06 85 8C 14 43 31 28 |1)..(RY).....C1(|
00004500: 33 2C 32 29 B2 30 00 18 85 96 14 43 31 28 33 2C |3,2).0.....C1(3,|
00004510: 33 29 B2 BE 28 52 59 29 00 23 85 A0 14 8D 20 35 |3)..(RY).#.... 5|
00004520: 34 39 30 00 29 85 AA 14 8E 00 53 85 B4 14 8F 2D |490.).....S....-|
00004530: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 5A 20 52 4F 54 41 54 |---------Z ROTAT|
00004550: 49 4F 4E 00 8E 85 BE 14 50 24 B2 22 5A 20 52 4F |ION.....P$."Z RO|
00004560: 54 41 54 49 4F 4E 20 28 2B 2F 2D 2F 54 48 45 4E |TATION (+/-/THEN|
00004570: 20 52 45 54 55 52 4E 29 20 20 22 3A 40 E0 2C 42 | RETURN) ":@.,B|
00004580: 41 2C 31 2C 31 39 32 2C 31 2C 31 2C 50 24 00 BF |A,1,192,1,1,P$..|
00004590: 85 C3 14 40 E0 2C 42 41 2C 32 34 30 2C 31 39 32 |...@.,BA,240,192|
000045A0: 2C 31 2C 31 2C C4 28 52 5A 29 AA 22 20 54 2E 22 |,1,1,.(RZ)." T."|
000045B0: AA C4 28 54 5A 29 AA 22 20 22 3A A1 F9 4B 24 00 |..(TZ)." ":..K$.|
000045C0: D3 85 C8 14 8B 4B 24 B2 22 2B 22 A7 52 5A B2 52 |.....K$."+".RZ.R|
000045D0: 5A AA 31 00 E7 85 D2 14 8B 4B 24 B2 22 2D 22 A7 |Z.1......K$."-".|
000045E0: 52 5A B2 52 5A AB 31 00 23 86 DC 14 8B 4B 24 B2 |RZ.RZ.1.#....K$.|
000045F0: C7 28 31 33 29 A7 40 E0 2C 42 41 2C 31 2C 31 39 |.(13).@.,BA,1,19|
00004600: 32 2C 31 2C 31 2C 45 24 3A 4B 24 B2 22 22 3A 54 |2,1,1,E$:K$."":T|
00004610: 5A B2 54 5A AA 52 5A 3A 4A 5A B2 52 5A 3A 89 35 |Z.TZ.RZ:JZ.RZ:.5|
00004620: 33 36 30 00 2D 86 E6 14 89 35 33 31 35 00 3D 86 |360.-....5315.=.|
00004630: F0 14 52 5A B2 52 5A AC FF AD 31 38 30 00 4F 86 |..RZ.RZ...180.O.|
00004640: FA 14 43 31 28 31 2C 31 29 B2 BE 28 52 5A 29 00 |..C1(1,1)..(RZ).|
00004650: 61 86 04 15 43 31 28 31 2C 32 29 B2 BF 28 52 5A |a...C1(1,2)..(RZ|
00004660: 29 00 6F 86 0E 15 43 31 28 31 2C 33 29 B2 30 00 |).o...C1(1,3).0.|
00004670: 82 86 18 15 43 31 28 32 2C 31 29 B2 AB BF 28 52 |....C1(2,1)...(R|
00004680: 5A 29 00 94 86 22 15 43 31 28 32 2C 32 29 B2 BE |Z)...".C1(2,2)..|
00004690: 28 52 5A 29 00 A2 86 2C 15 43 31 28 32 2C 33 29 |(RZ)...,.C1(2,3)|
000046A0: B2 30 00 B0 86 36 15 43 31 28 33 2C 31 29 B2 30 |.0...6.C1(3,1).0|
000046B0: 00 BE 86 40 15 43 31 28 33 2C 32 29 B2 30 00 CC |...@.C1(3,2).0..|
000046C0: 86 4A 15 43 31 28 33 2C 33 29 B2 31 00 D7 86 54 |.J.C1(3,3).1...T|
000046D0: 15 8D 20 35 34 39 30 00 DD 86 5E 15 8E 00 02 87 |.. 5490...^.....|
000046E0: 68 15 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |h..-------------|
000046F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 52 4F 54 41 |------------ROTA|
00004700: 54 45 00 0B 87 72 15 40 9C 2C 30 00 1A 87 7C 15 |TE...r.@.,0...|.|
00004710: 81 20 49 B2 31 20 A4 20 4E 4C 00 39 87 86 15 41 |. I.1 . NL.9...A|
00004720: 41 B2 58 42 28 49 29 3A 42 42 B2 59 42 28 49 29 |A.XB(I):BB.YB(I)|
00004730: 3A 43 43 B2 5A 42 28 49 29 00 64 87 90 15 58 42 |:CC.ZB(I).d...XB|
00004740: 28 49 29 B2 41 41 AC 43 31 28 31 2C 31 29 AA 42 |(I).AA.C1(1,1).B|
00004750: 42 AC 43 31 28 32 2C 31 29 AA 43 43 AC 43 31 28 |B.C1(2,1).CC.C1(|
00004760: 33 2C 31 29 00 8F 87 9A 15 59 42 28 49 29 B2 41 |3,1).....YB(I).A|
00004770: 41 AC 43 31 28 31 2C 32 29 AA 42 42 AC 43 31 28 |A.C1(1,2).BB.C1(|
00004780: 32 2C 32 29 AA 43 43 AC 43 31 28 33 2C 32 29 00 |2,2).CC.C1(3,2).|
00004790: BA 87 A4 15 5A 42 28 49 29 B2 41 41 AC 43 31 28 |....ZB(I).AA.C1(|
000047A0: 31 2C 33 29 AA 42 42 AC 43 31 28 32 2C 33 29 AA |1,3).BB.C1(2,3).|
000047B0: 43 43 AC 43 31 28 33 2C 33 29 00 D9 87 AE 15 41 |CC.C1(3,3).....A|
000047C0: 41 B2 58 45 28 49 29 3A 42 42 B2 59 45 28 49 29 |A.XE(I):BB.YE(I)|
000047D0: 3A 43 43 B2 5A 45 28 49 29 00 04 88 B8 15 58 45 |:CC.ZE(I).....XE|
000047E0: 28 49 29 B2 41 41 AC 43 31 28 31 2C 31 29 AA 42 |(I).AA.C1(1,1).B|
000047F0: 42 AC 43 31 28 32 2C 31 29 AA 43 43 AC 43 31 28 |B.C1(2,1).CC.C1(|
00004800: 33 2C 31 29 00 2F 88 C2 15 59 45 28 49 29 B2 41 |3,1)./...YE(I).A|
00004810: 41 AC 43 31 28 31 2C 32 29 AA 42 42 AC 43 31 28 |A.C1(1,2).BB.C1(|
00004820: 32 2C 32 29 AA 43 43 AC 43 31 28 33 2C 32 29 00 |2,2).CC.C1(3,2).|
00004830: 5A 88 CC 15 5A 45 28 49 29 B2 41 41 AC 43 31 28 |Z...ZE(I).AA.C1(|
00004840: 31 2C 33 29 AA 42 42 AC 43 31 28 32 2C 33 29 AA |1,3).BB.C1(2,3).|
00004850: 43 43 AC 43 31 28 33 2C 33 29 00 93 88 D6 15 40 |CC.C1(3,3).....@|
00004860: E5 2C B6 28 58 42 28 49 29 AA 58 4F 29 2C B6 28 |.,.(XB(I).XO),.(|
00004870: 59 42 28 49 29 AA 59 4F 29 2C B6 28 58 45 28 49 |YB(I).YO),.(XE(I|
00004880: 29 AA 58 4F 29 2C B6 28 59 45 28 49 29 AA 59 4F |).XO),.(YE(I).YO|
00004890: 29 2C 31 00 9B 88 E0 15 82 20 49 00 A1 88 EA 15 |),1...... I.....|
000048A0: 8E 00 00 00 |.... |
.@)@...--------------------------DESIGNE
R.?@..C.B(7168):.C.4.60.[@...1,1:.5:.47,
0:.48,180:..~@(..."ULTRA HIRES",B0,P7168
:.8448..@<..%:BA.53248:E$."
"..AA.BG.0:FG.
3:DI.1:AE.360:EN.18..AF.W2350."AP.@WALRU
S:..1:@.,0.EAZ.P$.".....................
...........DESIGNER":@.,BA,1,1,3,9,P$..A
D.P$."(A KERNS PUBLICATION)":@.,BA,1,50,
2,2,P$.MAN.P$."REMIXED BY RODRX":@.,BA,1
,140,2,8,P$:..1:@TEXT..AX.."CREATES A 3D
DRAWING IN 3 DIMENSIONS"..B..."WITH A M
OVING CURSOR":..*B..NND.550:ANA.50.`B...
XB(NND),YB(NND),ZB(NND),XE(NND),YE(NND)
,ZE(NND)..B .. C(3,3),C1(3,3):.AD(ANA),T
X%(ANA),TY%(ANA),BX%(ANA),BY%(ANA)..B..R
X.0:RY.0:RZ.0.ZB...---------------------
------MENU..C..."ANGLES DRAW SAVE GET RO
TATE HELP FETCH&STASH END".?CH.."(A) (
D) (S) (G) (R) (H) (F) (E)";S$.TCR.. S$
."D" . . 320.JC... S$."A" . . 1580.MC...
S$.G(193). . 1680:."RX";RX;" RY";RY;" R
Z";RZ;" SF";SF;" XO";XO;" YO";YO;" ZO";Z
O;" INC";IN:...C... S$."S" . . 1140..C..
. S$."G" . . 1360..D... S$."R" . @.,0:@.
,0,7:. 1710.1D... S$."E" . . 2310.KD...
S$."F" . @.,0:.3110.AD".. S$."H" . . 236
0..D'.. S$."C" . NL.0:DA.0:."CLEARED....
...":..1:.". ".ID,.. S$."$" . .:."
HIT ANY KEY":..K$:.K$.200.SD6.. 190..D@.
.-------------------------DRAW..DJ....ET
.@.,0:@.,0,7..E^.@.T,XO,YO,1.7EH.AA.10:B
B.0:CC.0:. 2250.RER.@.,XO,YO,XT.XO,YT.YO
,1.BE|.@.T,XO,YO,1.}E..AA.0:BB.10:CC.0:.
2250..E..@.,XO,YO,XT.XO,YT.YO,1..E..@.T
,XO,YO,1.CE..AA.0:BB.0:CC.10:. 2250..E..
@.,XO,YO,XT.XO,YT.YO,1..E..AA.XC:BB.YC:C
C.ZC:. 2250..FB.. A$.!FL.AA.XC:BB.YC:CC.
ZC:. 2250.=FV.@.T,.(XT.XO),.(YT.YO),0.UF
... A$."." . XC.XC.IN.MF... A$."." . XC.
XC.IN..F... A$."." . YC.YC.IN..F... A$."
." . YC.YC.IN..F... A$."I" . ZC.ZC.IN.MF
... A$."O" . ZC.ZC.IN..F... A$."F" . . 2
690..F&.. A$."S" . . 950..G0.. A$."L" .
. 1000.#G:.. A$."E" . . 830.8GD.. A$."P"
. . 890.SGN.. A$."D" . . 3490:.820.IGX.
. A$."C" . . 4240.|GB.. A$."R" . 820..GL
.AA.XC:BB.YC:CC.ZC:. 2250..GV..XT.XO.0.X
C.XC.1:.620.OG...XT.XO.639.XC.XC.1:.620.
.G...YT.YO.0.YC.YC.1:.620..H...YT.YO.199
.YC.YC.1:.620..H..@.T,XT.XO,YT.YO,1.%H..
P$."".GH..QR.QR.1:.QR.2.QR.0:.700:U.810.
[H..Q.Q.1:.Q.21.Q.0..HF..Q.740,750,720,7
20,720,760,720,720,720,770,720,720,720,7
80,720,720,720,790,720,720,720:.730:.800
.FHP....IZ.PK$."XC".D(XC)." YC".D(YC)."
ZC".D(ZC)." ":@.,BA,1,1,1,1,PK$:..CI.
.P$."<CURSOR KEYS> I/O SLR PRESS [
R ] TO RETURN ":@.,BA,208,1,1,1,P$:P$."
":...I..P$.".F. ETCH ROUTINES ":...I..P
$.".E. RASE LINE ":...I..P$.".P. IX
EL INCREMENT":...I..P$.".D. UPLICATE M
ODE ":...I..P$.".C. IRCLE ROUTINES":...
J .@.,BA,1,192,1,1,P$..J*.. 450.+J4.@TEX
T:...J>.@.,BA,1,1,1,1,E$:P$."YOUR CURREN
T AMOUNT OF LINES IS":@.,BA,1,1,1,1,P$.D
(NL):P$."PRESS [+] OR [-] OR [R]":@.,BA,
280,1,1,1,P$..JH...K$..JR..K$."-".NL.NL.
1:P$."NEW LINE NOW IS":@.,BA,1,9,1,1,P$.
D(NL).5K\..K$."+".NL.NL.1:P$."NEW LINE N
OW IS":@.,BA,1,9,1,1,P$.D(NL).HKF.. K$."
R" . @.,BA,1,1,1,1,E$:@.,BA,1,9,1,1,E$:.
.QKP..840..KZ.P$."CURSOR INCREMENT":@.,B
A,1,184,1,1,P$.D(IN):PK$."PRESS [+] OR [
-] OR [R]":@.,BA,280,184,1,1,PK$:@.,BA,1
,192,1,1,E$..K....K$.!L...K$."+".IN.IN.1
:@.,BA,1,192,1,1,P$.D(IN).NL...K$."-".IN
.IN.1:@.,BA,1,192,1,1,P$.D(IN)..L... K$.
"R" . @.,BA,1,184,1,1,E$:@.,BA,1,192,1,1
,E$:...L...900..L...--------------------
-START NEW LINE.AL..XS.XC.KLJ.YS.YC.ULT.
ZS.ZC..L.....M...-----------------------
NEW LINE..M..NL.NL.1..M..XB(NL).XS.(M..Y
B(NL).YS.6M..ZB(NL).ZS.DM..XE(NL).XC.RM$
.YE(NL).YC.`M..ZE(NL).ZC.}M8.AA.XS:BB.YS
:CC.ZS:. 2250..MB.NX.XT.XO:NY.YT.YO..ML.
AA.XC:BB.YC:CC.ZC:. 2250.KMV.@.,NX,NY,XT
.XO,YT.YO,1..M`.XS.XC:YS.YC:ZS.ZC..MJ...
.NT..---------------------STORE DRAWING.
)N~.."FILE TO BE STORED:".?N..."FILE NAM
E: ";F$.XN...2,8,2,"0:".F$."S,W".BN...2,
RX.LN...2,RY.VN...2,RZ..N...2,XO..ND..2,
YO..NN..2,ZO..NX..2,SF..N...2,NL..N... I
.1 . NL.DN...2,XB(I).QN...2,YB(I)..N...2
,ZB(I)..N...2,XE(I)..N...2,YE(I)..O(..2,
ZE(I)..O2.. I..O<. 2..OF...BOP..--------
---------------GET DRAWING.WOZ.."FILENAM
E: ";F$.POD..2,8,2,"0:".F$."S,R".ZON..2,
RX..OX..2,RY..O...2,RZ..O...2,XO..O...2,
YO..O ..2,ZO..O...2,SF..O...2,NL.OO... I
.1 . NL..OH..2,XB(I)..OR..2,YB(I)..O...2
,ZB(I)..P...2,XE(I)..P...2,YE(I)..P...2,
ZE(I).%P... I.,P.. 2.CP..@.,0:@.,0,7:. 1
710.IP"...NP,..-------------------------
ANGLES.TP6....P@.."RX,RY,RZ";RX,RY,RZ.GP
J.RX.RX.3.14159.180:RY.RY.3.14159.180:RZ
.RZ.3.14159.180..PT.."XO,YO,ZO (GLOBAL)"
;XO,YO,ZO..P^..XO.1.XO.1..QH..YO.1.YO.1.
.QR..ZO.1.ZO.1.0Q|.."SCALE FACTOR SF";SF
.JQ..."INCREMENT OF DRAW PIXEL";IN:.IN.0
.IN.1:.1690:U.1690..Q..RX.0:RY.0:RZ.0:SF
.1:XO.300:YO.100:ZO.0:IN.10..Q... 2140..
Q...:..SQ...-------------------------ROT
ATE..Q... S$."G". . 1970..QB.RX.JX:RY.JY
:RZ.JZ.^RL.P$."USE CURSOR UP AND CURSOR
DOWN FOR VALUE OF RX THEN HIT RETURN":@.
,BA,1,184,1,1,P$:.1790.GRV...S$.{R...S$.
".".RX.RX.1..R...S$.".".RX.RX.1..R...S$.
G(13).@.,0,3:.1810.XR..RX$.D(RX):@.,BA,1
00,192,1,1,"RX ".RX$." "..R...1750.BS..P
$."USE CURSOR UP AND CURSOR DOWN FOR VAL
UE OF RY THEN HIT RETURN":@.,BA,1,184,1,
1,P$:.1860.KS....S$._S&..S$.".".RY.RY.1.
SS0..S$.".".RY.RY.1..S:..S$.G(13).@.,0,4
:.1880..SD.RY$.D(RY):@.,BA,172,192,1,1,"
RY ".RY$." ".FSN..1820.&TX.P$."USE CURSO
R UP AND CURSOR DOWN FOR VALUE OF RZ THE
N HIT RETURN":@.,BA,1,184,1,1,P$:.1930./
TB...S$.CTL..S$.".".RZ.RZ.1.WTV..S$.".".
RZ.RZ.1.RT...S$.G(13).@.,0,7:.1950. T..R
Z$.D(RZ):@.,BA,236,192,1,1,"RZ ".RZ$." "
..T...1890.KT..@.,0:JX.RX:JY.RY:JZ.RZ:K$
.""..U..RX.RX.3.14159.180:RY.RY.3.14159.
180:RZ.RZ.3.14159.180..U...NL.0.2040:U.2
140.*U... I.1 . NL.PUF.AA.XB(I):BB.YB(I)
:CC.ZB(I):. 2250.FUP.RB.XT.XO:RE.YT.YO..
UZ.AA.XE(I):BB.YE(I):CC.ZE(I):. 2250..U.
.@.,.(RB),.(RE),.(XT.XO),.(YT.YO),1..U..
.I.LU...S$."G".S$."".$V..P$."PRESS [ S ]
FOR STASH ROUTINES OR ANY OTHER KEY FOR
MAIN MENU":@.,BA,1,1,1,1,P$.]V...K$.."R
".P$."PRESS [ D ] TO DRAW":@.,BA,1,192,1
,1,P$..V..P$."PRESS [ R ] TO ROTATE":@.,
BA,471,192,1,1,P$..V ...K$.KV*.. K$."S".
K$."":F$."":.3110:@.,0:@.,0,3:.2050..V4.
. K$."R".@.,BA,1,192,1,1,E$:.1710.(W>..
K$."D".@.,BA,1,192,1,1,E$:@.,BA,1,1,1,1,
E$:. 350.;WH..K$.."S".@TEXT.AWR...IW\..-
--------------------MOTION MATRIX..WF.C(
1,1).SF..(RY)..(RZ)..WP.C(1,2).SF..(RY).
.(RZ)..WZ.C(1,3).SF.(..(RY))..W..C(2,1).
SF.(.(RX).(..(RZ))..(RX)..(RY)..(RZ))..X
..C(2,2).SF.(.(RX)..(RZ)..(RX)..(RY)..(R
Z)).-X..C(2,3).SF..(RX)..(RY).AX..C(3,1)
.SF.((..(RX)).(..(RZ))..(RX)..(RY)..(RZ)
)..X..C(3,2).SF.(..(RX)..(RZ)..(RX)..(RY
)..(RZ))..X..C(3,3).SF..(RX)..(RY)..X...
.UXJ..---------------TRANSFORM COORDS..X
T.XT.AA.C(1,1).BB.C(2,1).CC.C(3,1).%Y..Y
T.(AA.C(1,2).BB.C(2,2).CC.C(3,2)).2.1.JY
..ZT.AA.C(1,3).BB.C(2,3).CC.C(3,3).PY...
.YY...------------------------------E N
D..Y..@.,0:@TEXT:.&:.16384,0..Y..."ALL D
ONE"..Y.....Y$..----------------------GO
TO TEXT MODE,PRINT STATUS AND END PROGRA
M..Y..@TEXT:.:../Z8.. ------------------
------------HELP SCREEN.GZB.@TEXT:."..W
H I L E I N D R A W I N G M O D E":..
.ZL.."CURSOR LEFT WILL MOVE X COORDINATE
LEFT".GZV.."CURSOR RIGHT WILL MOVE X CO
ORDINATE RIGHT"..Z`.."CURSOR UP WILL MOV
E Y COORDINATE UP".![J.."CURSOR DOWN WIL
L MOVE Y COORDINATE DOWN".Y[T.."THE [ I
] KEY WILL MOVE Z COORDINATE INTO SCREEN
"..[~.."THE [ O ] KEY WILL MOVE Z COORDI
NATE OUTWARDS"..[..."PRESS THE [ S ] KEY
TO START A LINE"..[..."PRESS THE [ L ]
KEY TO DRAW LINE FROM START TO CURRENT C
URSOR".(\..."PRESS [ R ] TO RETURN TO MA
IN MENU".Y\..."PRESS [ D ] TO DUPLICATE
PIECE OF DRAWING"..\..."PRESS [ P ] TO I
NCREMENT PIXEL<CURSOR>"..\..."PRESS [ E
] TO ERASE LAST LINE".S\D.."PRESS [ C ]
TO DRAW 3D CIRCLES"..]N.."..PRESS ANY KE
Y TO CONTINUE":..K$:.K$.K$."":@TEXT:."..
".5]O.."I N C I R C L E M E N U":..\]
P.."PRESS [ D ] TO DRAW A 3D CIRCLE"..]Q
.."DEFUALT VALUES ARE GIVEN FOR EVERYTHI
NG EXCEPT THE RADIUS"..]R.."WHEN A CIRCL
E IS DRAWN ITS PURE WITH NO SCALING WICH
MAKES IT LOOK OVAL".;^S.."AS SOON AS CI
RCLE IS MAIN ROTATED IT GETS SCALED BECO
MING A TRUE CIRCLE".I^T.."PRESS [ E ] TO
ERASE LAST CIRCLE DRAWN"..^U.."PRESS [
M ] TO ROTATE CIRCLE IN CIRCLE MODE THIS
WILL BECOME THE CIRCLES TRUE POSITION
AND MAIN ROTATE WILL WORK FROM IT".._V.
."PRESS [ R ] TO RETURN TO DRAWING MODE"
.V_W.."..PRESS ANY KEY TO CONTINUE":..K$
:.K$.K$."":@TEXT:."..".._X.."I N F E T
C H & S T A S H M O D E":..K_..."INCR
EMENT OF OF STASH PIXEL IS ADDED TO INCR
EMENT OF DRAW MODE"..`..."ENTER TOP FIRS
T THEN BOTTOM SECOND BY POSITIONING CURS
OR".F`..."PRESS [ T ] FOR TOP LEFT CORNE
R OF STASH COORDINATE"..`..."PRESS [ B ]
FOR BOTTOM RIGHT CORNER OF STASH COORDI
NATE"..`..."PRESS [ M ] TO STASH AREA IN
TO MEMORY"..`..."PRESS [ X ] TO PREVIEW
SAVE SCREENS".*A..."POSITION CURSOR THEN
PRESS [ F ] TO FETCH . THIS WILL PLAYBA
CK FRAMES"..A#..:."IF YOU KNOW THE SIZE
OF YOUR STASH AREA IS GOING TO REMAIN TH
E SAME . YOU NEED ONLY ENTER TOP AND BO
TTOM ONCE ."..A$.."THEN AFTER NEXT ROTAT
ION GO TO STASH MODE AND JUST HIT [ M ]
TO STASH ".UB%.."JUST MAKE SURE YOUR ROT
ATION DOESNT CUASE YOUR DRAWING TO GO OU
T OF THE BOUNDRY YOU SET UP "..B(.."..PR
ESS ANY KEY TO CONTINUE":..K$:.K$.K$."":
@TEXT:.".."..B2.."F R O M M A I N M E
N U":...B<.."IN ORDER TO DRAW YOU MUST F
IRST SET UP ANGLES".2CF.."USAULLY RX=0,R
Y=0,RZ=0,SCALE=1, OR SHIFT A FOR DEFAULT
VALUES":..KCP.."RETURNING TO MAIN MENU
CUASES AN ERASE OF SCREEN "..CZ.."YOU MU
ST THEN ROTATE TO GET PICTURE BIT MAPPED
!".GCD..:."PRESS [ $ ] FOR DIRECTORY":..
.DI.."IF CURSOR KEEPS BLINKING AFTER PRE
SSING MENU COMMAND THEN HIT RETURN".EDK.
.:."PRESS [ C ] TO CLEAR MEMORY OF DRAWI
NG":..DDN.."PRESS ANY KEY TO RETURN".{DX
...K$:.K$..:@TEXT:...D... --------------
--------------------------FETCH ANIMATE.
.D..@TEXT:."DELAY BETWEEN FRAMES";SL:.:.
SL..0.SL.1..E..."HOW MANY LOOPS ";LP:.:.
8E .."CLEAR SCREEN AFTER EACH FRAME [ Y/
N ]";CL$.`E...:P$."PRESS + OR - FOR COLO
RS":. P$.|E....K$:@.,BA,1,192,1,1,P$..E.
..K$."+".BG.BG.1:.BG.255.BG.0..EH..K$."-
".BG.BG.1:.BG.0.BG.255..ER..K$.G(13).BG.
.FG.@.,0:.2800.+F..@.,BG,FG:@.,0:@.,BA,1
,1,5,9,D(BG):P$."THEN HIT RETURN":@.,BA,
1,80,5,9,P$.5F...2740.IF..P$."PRESS + OR
- FOR COLORS":@.,BA,1,192,1,1,P$.RF....
K$..F...K$."+".FG.FG.1:.FG.255.FG.0..F..
.K$."-".FG.FG.1:.FG.0.FG.255.MF...K$.G(1
3).@.,0:.2870..G".@.,BG,FG:@.,0:@.,BA,1,
1,5,9,D(FG):P$."THEN HIT RETURN":@.,BA,1
,80,5,9,P$.$G,..2810.1G6..IL.1.LP.HG@..I
.0.DA.1:AE.AD(I).PGJ..F$.UGT.. F$.".".FY
.FY.(2.IN):.FY.0.FY.0..G^.. F$.".".FY.FY
.(2.IN):.FY.199.FY.199.CGH.. F$.".".FX.F
X.(5.IN):.FX.0.FX.0..GR.. F$.".".FX.FX.(
5.IN):.FX.639.FY.639..H|.@.!,AE,FX,FY:.T
.0.SL:.:.CL$."Y".@.,0..H...:..NH..P$."AN
IMATE AGAIN [ Y/N ]":@.,BA,1,1,1,1,P$.W
H....K$.KH... K$."Y" . 2870..H... K$."N"
. @.,BA,1,1,1,1,E$:...H... 2960.KHB..--
--------------------------------------ST
ASH..IL..DA.0.AD(0).0:TX%(0).TX:TY%(0).T
Y:BX%(0).BX:BY%(0).BY:@..,0,TX,TY,BX,BY:
.3050.HIV..AD(DA).42000.P$."STASH BUFFER
IS FULL":@.,BA,404,184,1,1,P$:..2:.3100
..I..@..,AD(DA),TX,TY,BX,BY..I..AE.B(250
).B(251).256.1..I..DA.DA.1..I..AD(DA).AE
..I..TX%(DA).TX:TY%(DA).TY:BX%(DA).BX:BY
%(DA).BY..J..P$."BUFFER ADDRESS".D(AD(DA
))." STASH".D(DA):@.,BA,404,184,1,1,P$.4
J....IJ&..------------------------------
------------STASH..J0.@.,0,5:@.,BA,1,1,1
,1,E$:@.,BA,1,192,1,1,E$..J:.@.,BA,1,1,1
,1,E$:@.,BA,1,192,1,1,E$.AKD.P$." (.T.OP
) (.B.OTTOM) (.M.EMORY STASH) (.CURSOR K
EYS.) (.F.ETCH) (.S.AVE) (.G.ET) (.R.ETU
RN) ($) ":@.,BA,1,1,1,1,P$:.3210.JKN...
F$.ZKX.@.T,FX,FY,0.KB.. F$.".".FY.FY.(2
.IN):.FY.0.FY.0..KL.. F$.".".FY.FY.(2.IN
):.FY.199.FY.199.MKV.. F$.".".FX.FX.(5.I
N):.FX.0.FX.0..K... F$.".".FX.FX.(5.IN):
.FX.639.FY.639.#L..@.T,FX,FY,1:@.,BA,72,
192,1,1,D(FX).D(FY).]L... F$."T" . TX.FX
:TY.FY:@.,53248,1,184,1,1,D(TX).D(TY)..L
... F$."B" . BX.FX.TX:BY.FY.TY:@.,53248,
1,192,1,1,D(BX).D(BY)..L... F$."R" . @.,
BA,1,184,2,1,E$:@.,BA,1,1,1,1,E$:@.,0:@T
EXT:F$."":...M... F$."M" . . 3010:FX.TX:
FY.TY.'M... F$."F" . . 2690:F$."":.3120.
CMF.. F$."S" . . 3320:.3120.EMP.. F$."X"
. . 3950:F$."":.3120..MZ.. F$."G" . . 4
000:F$."":.3120..M... F$."$" . @TEXT:.:.
"............................HIT ANY KEY
":..K$:.K$.@.,0:F$."":.3120..M... 3150.
N...----------------------------------ST
ASH SAVE.*N..@TEXT.ON..."SAVE ANIMATION
[.FILENAME.]";F$:.C(F$).5.."NAME TO LONG
":.3330.YN...3900..N...2,8,2,"0:".F$."S,
W"..N ..2,DA..N*..2,BX..N4..2,BY..N>..I.
0.DA.1.KNH..2,AD(I)..NR..: 2:FI$.F$:P$."
.":@.,0:@.,0,3:IM.0..O\..IM.DA.IM.0:I3.0
:.3480..OF.FI$.FI$.P$.=OP..C(FI$).16.P$.
"+":FI$.F$.P$.GOZ..3800.YO..@.,1,FI$:@.,
0.CO...3420.IO.....O...-----------------
-----------------------DUPLICATE PORTION
OF DRAWING..O..@.,0:P$."PRESS [ S ] FOR
STARTING LINE OF DUPLICATE ":@.,BA,1,1,
1,1,P$.BP..P$."PRESS [ E ] FOR ENDING LI
NE OF DUPLICATE ":@.,BA,1,9,1,1,P$..P..P
$."PRESS SPACE BAR TO INCREMENT EACH LIN
E":@.,BA,1,17,1,1,P$..PJ.P$."PRESS [ R ]
TO RETURN":@.,BA,1,25,1,1,P$:P$."LINE N
UMBER IS ":P1$." START LINE IS ":P2$."
END LINE IS"..QT.. I.1 . NL.:Q..@.,BA
,1,33,1,1,P$.D(I).P1$.D(SD).P2$.D(ED):..
K$.UQ... K$."R" . SD.0:ED.0:..UQ... K$."
S" . SD.I:K$."":.3550..Q... K$."E" . ED.
I:K$."":.3550..Q... K$ . K$."".LQ..AA.XB
(I):BB.YB(I):CC.ZB(I):. 2250..Q..RB.XT.X
O:RE.YT.YO..R$.AA.XE(I):BB.YE(I):CC.ZE(I
):. 2250./R..@.,.(RB),.(RE),.(XT.XO),.(Y
T.YO),1.6R8..I.ORB.@TEXT:XD.0:YD.0:ZD.0.
FRL.." X,Y,Z";XD,YD,ZD.VRV..ED.0.ED.NL..
R`.ND.ED.SD..RJ..I.0.ND..RT.NL.NL.1.ER~.
XB(NL).XB(SD.I).XD:XE(NL).XE(SD.I).XD..R
..YB(NL).YB(SD.I).YD:YE(NL).YE(SD.I).YD.
.S..ZB(NL).ZB(SD.I).ZD:ZE(NL).ZE(SD.I).Z
D..S....CS..."MORE DUPLICATING [ Y/N ]";
DU$.ES... DU$."Y". @.,0,3:@.,0:. 3490.{S
... DU$."N". . 3790..SD..3750..SN.@.,0,3
:@.,0:ED.0:SD.0:...SX..-----------------
------------------------------EXPM FETCH
..S...IM.0..3910..T... I1.IM . DA.1:AE.A
D(I1).2T... I1.0 . I3.1 . AX.0:AY.0:. 38
60.XT..AX.AX.BX:.AX.BX.639.AX.0:AY.AY.BY
.NT... AY.BY.199..3890..T..FX.AX:FY.AY:I
3.0..T..@.!,AE,FX,FY..T(....T2.IM.I1:I3.
1:...T<..-------------------------------
--------FIND LARGEST BX,BY..UF..I2.0.DA.
1:.BX%(I2).BX.BX.BX%(I2).+UP..BY%(I2).BY
.BY.BY%(I2).3UZ..:..UUD..---------------
-------------------------LOOK AT SAVE SC
REENS..UN.@.,0:@.,BA,1,192,1,1,D(IM)."
".D(DA)..UX..IM.DA.IM.0:I3.0:K$."":.3990
.JU...3800..V..P$."HIT ANY KEY":@.,BA,54
2,192,1,1,P$:..K$:.K$.AX.0:AY.0:.3950..V
..@.,0:..IV ..--------------------------
--------STASH GET.SV..@TEXT.XV..."GET AN
IMATION [.FILENAME.]";F$..V...2,8,2,"0:"
.F$."S,R"..VH..2,DA:DD.DA..VR..2,BX..V..
.2,BY.CV...I.0.DA.1.PV...2,AD(I)..V...:
2:FI$.F$:P$.".":@.,0:@.,0,3..W..FI$.FI$.
P$:.C(FI$).16.P$."+":FI$.F$.P$.@W...IM.D
A.I3.0:IM.0:DA.DD:@.,0:..MW..@.,1,FI$.NW
".. I1.IM . DA.1:.I1.0.AD(0).0..W,.. I1.
0 . I3.1 . AX.0:AY.0:. 4170..W6.AX.AX.BX
:.AX.BX.639.AX.0:AY.AY.BY.OW@.. AY.BY.19
9..4230..WJ.FX.AX:FY.AY:I3.0..XT.. @CHAR
,BA,566,192,1,1,STR$(AD(I1)).1X^..AD(I1)
.44200.DD.(DD.1).1:. 4210.GXH.@..,AD(I1)
,FX,FY,BX,BY:AD(I1.1).B(250).B(251).257.
MXR....X|.@.,BA,1,192,1,1,D(IM)." ".D(
DA)..X..IM.I1:I3.1:. 4100.LX...---------
----------------CYL1.BY... THIS PART IS
FROM THE CYL PROGRAMS IN THE SAME BOOK.T
HEY DON'T WORK (DES&CYL) 100% TOGETHER B
UT KIND OF SORT OF.GY...----------------
-----------MENU..Y..P$."CIRCLE DRAW
ERASE MORE RETURN":@.,BA,1,184,1,1,P$.
.Y..P$."(D) (E) (M) (R) ":@.,BA,
1,192,1,1,P$..YB...S$..ZL.. S$."D" . . 4
760:. 4350..ZV.. S$."E" . . 4810..Z... S
$."M" . . 4870.XZ... S$."R" . S$."":@.,B
A,1,184,1,1,E$:..CZ... 4270..Z...-------
--------------------DRAW..Z..@.,BA,1,184
,1,1,E$:@.,BA,1,192,1,1,E$..Z..P$."RADIU
S (+/-/RETURN) ":@.,BA,1,192,1,1,P$..{
..@.,BA,172,192,1,1,D(R)." ":..K$..{...K
$."+".R.R.1.6{&..K$."-".R.R.1:.R.0.R.0.C
{0..K$.G(13).@.,BA,1,192,1,1,E$:K$."":.4
420.M{:..4375..{D.P$."DIVISOR (+/-/RETU
RN) ":@.,BA,1,192,1,1,P$.F{I.@.,BA,180,
192,1,1,D(DI)." ":..K$..{N..K$."+".DI.DI
..1..{X..K$."-".DI.DI..1:.DI..0.DI.1.)|B
..K$.G(13).@.,BA,1,192,1,1,E$:K$."":.447
0.3|L..4425.O|V.P$."START ARC ANGLE (+/
-/RETURN) ":@.,BA,1,192,1,1,P$..|{.@.,B
A,248,192,1,1,D(AS)." ":..K$..|...K$."+"
.AS.AS.1.G|...K$."-".AS.AS.1:.AS.0.AS.0.
.|...K$.G(13).@.,BA,1,192,1,1,E$:K$."":.
4520..|...4475.8}..P$."END ARC ANGLE (+
/-/RETURN) ":@.,BA,1,192,1,1,P$.]}..@.,
BA,240,192,1,1,D(AE)." ":..K$.Q}...K$."+
".AE.AE.1..}...K$."-".AE.AE.1:.AE.0.AE.0
..}F..K$.G(13).@.,BA,1,192,1,1,E$:K$."":
.4570.G}P..4525..}Z.P$."INCREMENT (+/-/
RETURN) ":@.,BA,1,192,1,1,P$."~..@.,BA,
208,192,1,1,D(EN)." ":..K$.6~...K$."+".E
N.EN.1.V~...K$."-".EN.EN.1:.EN..0.EN.1..
~...K$.G(13).@.,BA,1,192,1,1,E$:K$."":.4
620..~...4575..~..DP.EN...180..~..AS.AS.
..180:PT.AE...180.C~ .NB.NL..~*.. PH.AS
. PT.(DP..) . DP..~4.NL.NL.1..>.XB(NL).
.(((R..(PH)).DI).X3).'H.YB(NL)..((R..(P
H)).Y3).5R.ZB(NL).Z3.X\.XE(NL)..(((R..
(PH.DP)).DI).X3).VF.YE(NL)..((R..(PH.DP
)).Y3)..P.ZE(NL).Z3.AZ.@.,.(XB(NL).XO)
,.(YB(NL).YO),.(XE(NL).XO),.(YE(NL).YO),
1.P... PH:NE.NL.V........------------
-------------TRANSLATE.....X3.XC.....Y3.
YC.....Z3.ZC.".....F.J..----------------
--ERASE CIRCLE.U.T..I.NB.1.NE.....@.,.(X
B(I).XO),.(YB(I).YO),.(XE(I).XO),.(YE(I)
.YO),0.B...XB(I).0:YB(I).0:ZB(I).0:XE(I)
.0:YE(I).0:ZE(I).0.H.....T...NL.NB:.....
..-----------------------------ROTATE ME
NU.G...P$."ROTATE .X Y Z.":@.,BA,1,19
2,1,1,P$:RX.JX:RY.JY:RZ.JZ:..K$.C.... K$
."X" . . 4940:.4930..$.. K$."Y" . . 512
0:.4930...... K$."Z" . . 5300:.4930...8.
.4880.D.B.@.,BA,1,192,1,1,E$:K$."":....L
..------------------------X ROTATION.'.V
.P$."X ROTATION (+/-/THEN RETURN) ":@.,
BA,1,192,1,1,P$.X.[.@.,BA,240,192,1,1,D(
RX)." T.".D(TX)." ":..K$.L.`..K$."+".RX.
RX.1...J..K$."-".RX.RX.1...T..K$.G(13).@
.,BA,1,192,1,1,E$:K$."":TX.TX.RX:JX.RX:.
5000.F.~..4955.V...RX.RX...180.....C1(1,
1).1.....C1(1,2).0.....C1(1,3).0.....C1(
2,1).0. ...C1(2,2)..(RX).2.D.C1(2,3)..(R
X).@.N.C1(3,1).0.S.X.C1(3,2)...(RX).E...
C1(3,3)..(RX).P.... 5490.V..........----
---------------------Y ROTATION.Z...P$."
Y ROTATION (+/-/THEN RETURN) ":@.,BA,1,
192,1,1,P$.....@.,BA,240,192,1,1,D(RY)."
T.".D(TY)." ":..K$......K$."+".RY.RY.1.
3....K$."-".RY.RY.1.O.(..K$.G(13).@.,BA,
1,192,1,1,E$:K$."":TY.TY.RY:JY.RY:.5180.
Y.2..5135...<.RY.RY...180...F.C1(1,1)..(
RY)...P.C1(1,2).0...Z.C1(1,3)...(RY).J.D
.C1(2,1).0.X.N.C1(2,2).1...X.C1(2,3).0..
...C1(3,1)..(RY).....C1(3,2).0.....C1(3,
3)..(RY).#. .. 5490.).....S....---------
-----------------Z ROTATION.....P$."Z RO
TATION (+/-/THEN RETURN) ":@.,BA,1,192,
1,1,P$...C.@.,BA,240,192,1,1,D(RZ)." T."
.D(TZ)." ":..K$.S.H..K$."+".RZ.RZ.1...R.
.K$."-".RZ.RZ.1.#....K$.G(13).@.,BA,1,19
2,1,1,E$:K$."":TZ.TZ.RZ:JZ.RZ:.5360.-...
.5315.=...RZ.RZ...180.O...C1(1,1)..(RZ).
A...C1(1,2)..(RZ).O...C1(1,3).0.....C1(2
,1)...(RZ)...".C1(2,2)..(RZ)...,.C1(2,3)
.0...6.C1(3,1).0...@.C1(3,2).0.L.J.C1(3,
3).1.W.T.. 5490...^.....H..-------------
------------ROTATE...R.@.,0...|.. I.1 .
NL.9...AA.XB(I):BB.YB(I):CC.ZB(I).D...XB
(I).AA.C1(1,1).BB.C1(2,1).CC.C1(3,1)....
.YB(I).AA.C1(1,2).BB.C1(2,2).CC.C1(3,2).
....ZB(I).AA.C1(1,3).BB.C1(2,3).CC.C1(3,
3).Y...AA.XE(I):BB.YE(I):CC.ZE(I).....XE
(I).AA.C1(1,1).BB.C1(2,1).CC.C1(3,1)./.B
.YE(I).AA.C1(1,2).BB.C1(2,2).CC.C1(3,2).
Z.L.ZE(I).AA.C1(1,3).BB.C1(2,3).CC.C1(3,
3)...V.@.,.(XB(I).XO),.(YB(I).YO),.(XE(I
).XO),.(YE(I).YO),1...... I.........
> CLICK IMAGE PREVIEW FOR FULL MODAL