PROJECTOR128

00000000: 01 40 1D 40 E8 03 99 20  C7 28 31 34 37 29 22 31  |.@.@... .(147)"1|
00000010: 32 38 20 50 52 4F 4A 45  43 54 4F 52 22 00 39 40  |28 PROJECTOR".9@|
00000020: F2 03 99 20 22 50 45 52  53 50 45 43 54 49 56 45  |... "PERSPECTIVE|
00000030: 20 50 4C 4F 54 54 45 52  22 00 53 40 FC 03 99 20  | PLOTTER".S@... |
00000040: 22 57 49 54 48 20 48 49  44 44 45 4E 20 4C 49 4E  |"WITH HIDDEN LIN|
00000050: 45 53 22 00 69 40 06 04  99 20 22 42 59 20 20 49  |ES".i@... "BY  I|
00000060: 41 4E 20 20 41 44 41 4D  22 00 7F 40 10 04 99 20  |AN  ADAM"..@... |
00000070: 22 56 41 4E 43 4F 55 56  45 52 20 20 42 43 22 00  |"VANCOUVER  BC".|
00000080: 95 40 1A 04 99 20 22 44  45 43 45 4D 42 45 52 20  |.@... "DECEMBER |
00000090: 31 39 38 35 22 00 9B 40  24 04 3A 00 A6 40 2E 04  |1985"..@$.:..@..|
000000A0: D7 20 32 31 37 30 00 B9  40 38 04 8D 20 32 30 31  |. 2170..@8.. 201|
000000B0: 30 2C 20 43 91 53 C0 54  53 00 CC 40 42 04 8D 20  |0, C.S.TS..@B.. |
000000C0: 32 37 36 30 2C 20 43 48  4F 4F 53 45 00 DE 40 4C  |2760, CHOOSE..@L|
000000D0: 04 8D 20 32 30 39 30 2C  20 43 91 46 49 47 00 F8  |.. 2090, C.FIG..|
000000E0: 40 56 04 8D 20 32 32 33  30 2C 20 56 49 45 57 49  |@V.. 2230, VIEWI|
000000F0: 4E 47 20 41 4E 47 4C 45  00 08 41 60 04 8D 20 32  |NG ANGLE..A`.. 2|
00000100: 35 31 30 2C 20 A1 20 83  00 16 41 6A 04 8D 20 31  |510, . ...Aj.. 1|
00000110: 32 37 30 2C 20 E9 00 27  41 74 04 8D 20 31 34 36  |270, ..'At.. 146|
00000120: 30 2C 20 50 4C 4F 54 00  2D 41 7E 04 EB 00 41 41  |0, PLOT.-A~...AA|
00000130: 88 04 8D 20 32 36 37 30  2C 20 4D 45 53 53 41 47  |... 2670, MESSAG|
00000140: 45 00 4B 41 92 04 A1 F9  20 42 24 00 69 41 9C 04  |E.KA.... B$.iA..|
00000150: 8B 20 42 24 B2 22 52 22  20 A7 20 8D 20 32 32 33  |. B$."R" . . 223|
00000160: 30 3A 20 89 20 31 31 33  30 00 7D 41 A6 04 8B 20  |0: . 1130.}A... |
00000170: 42 24 B2 22 50 22 20 A7  20 31 31 34 30 00 95 41  |B$."P" . 1140..A|
00000180: B0 04 8B 20 42 24 B2 22  4E 22 20 A7 20 8B 20 44  |... B$."N" . . D|
00000190: 44 20 A7 20 8A 00 B3 41  BA 04 8B 20 42 24 B2 22  |D . ...A... B$."|
000001A0: 4E 22 20 A7 20 8D 20 32  37 36 30 3A 20 89 20 31  |N" . . 2760: . 1|
000001B0: 31 31 30 00 C8 41 C4 04  8B 20 42 24 B2 22 56 22  |110..A... B$."V"|
000001C0: 20 A7 20 56 B2 31 AB 56  00 DD 41 CE 04 8B 20 42  | . V.1.V..A... B|
000001D0: 24 B2 22 48 22 20 A7 20  48 B2 31 AB 48 00 EE 41  |$."H" . H.1.H..A|
000001E0: D8 04 8B 20 42 24 B2 22  51 22 20 A7 20 80 00 F4  |... B$."Q" . ...|
000001F0: 41 E2 04 3A 00 FA 41 EC  04 EC 00 11 42 F6 04 8F  |A..:..A.....B...|
00000200: 20 56 45 52 54 49 43 41  4C 20 53 43 41 4C 49 4E  | VERTICAL SCALIN|
00000210: 47 00 21 42 00 05 56 53  43 41 4C 41 52 B2 39 45  |G.!B..VSCALAR.9E|
00000220: 39 00 2F 42 0A 05 81 20  59 B2 30 20 A4 20 4E 00  |9./B... Y.0 . N.|
00000230: 35 42 14 05 3A 00 4C 42  1E 05 41 B2 5A 28 30 2C  |5B..:.LB..A.Z(0,|
00000240: 59 29 3A 81 20 58 B2 31  20 A4 20 4D 00 66 42 28  |Y):. X.1 . M.fB(|
00000250: 05 8B 20 5A 28 58 2C 59  29 B1 41 20 A7 20 41 B2  |.. Z(X,Y).A . A.|
00000260: 5A 28 58 2C 59 29 00 6C  42 32 05 82 00 90 42 3C  |Z(X,Y).lB2....B<|
00000270: 05 8B 20 41 20 A7 20 8B  20 56 53 B1 59 56 28 59  |.. A . . VS.YV(Y|
00000280: 29 AD 41 20 A7 20 56 53  B2 59 56 28 59 29 AD 41  |).A . VS.YV(Y).A|
00000290: 00 B3 42 46 05 82 3A 8F  20 53 45 4C 45 43 54 20  |..BF..:. SELECT |
000002A0: 42 45 53 54 20 46 45 41  53 49 42 4C 45 20 53 43  |BEST FEASIBLE SC|
000002B0: 41 4C 45 00 BC 42 50 05  E7 34 2C 37 00 C2 42 5A  |ALE..BP..4,7..BZ|
000002C0: 05 3A 00 D7 42 64 05 8F  20 43 41 4C 43 55 4C 41  |.:..Bd.. CALCULA|
000002D0: 54 45 20 52 49 53 45 00  E5 42 6E 05 81 20 59 B2  |TE RISE..Bn.. Y.|
000002E0: 30 20 A4 20 4E 00 F2 42  78 05 54 4D B2 59 56 28  |0 . N..Bx.TM.YV(|
000002F0: 59 29 00 00 43 82 05 81  20 58 B2 30 20 A4 20 4D  |Y)..C... X.0 . M|
00000300: 00 18 43 8C 05 52 28 58  2C 59 29 B2 54 4D AB 5A  |..C..R(X,Y).TM.Z|
00000310: 28 58 2C 59 29 AC 56 53  00 22 43 96 05 82 20 58  |(X,Y).VS."C... X|
00000320: 2C 59 00 28 43 A0 05 8E  00 2E 43 AA 05 3A 00 42  |,Y.(C.....C..:.B|
00000330: 43 B4 05 8F 20 53 45 54  20 55 50 20 53 43 52 45  |C... SET UP SCRE|
00000340: 45 4E 00 54 43 BE 05 E7  20 31 2C 31 34 3A 20 DE  |EN.TC... 1,14: .|
00000350: 20 31 2C 31 00 5B 43 C8  05 FE 26 00 61 43 D2 05  | 1,1.[C...&.aC..|
00000360: 3A 00 7D 43 DC 05 8F 20  50 4C 4F 54 20 48 4F 52  |:.}C... PLOT HOR|
00000370: 49 5A 4F 4E 54 41 4C 20  4C 49 4E 45 53 00 91 43  |IZONTAL LINES..C|
00000380: E6 05 E6 20 47 28 30 2C  4E 29 2C 52 28 30 2C 4E  |... G(0,N),R(0,N|
00000390: 29 00 A3 43 F0 05 81 20  59 B2 4E 20 A4 20 30 20  |)..C... Y.N . 0 |
000003A0: A9 AB 31 00 B4 43 FA 05  8B 20 59 B2 4E 20 A7 20  |..1..C... Y.N . |
000003B0: 31 36 32 30 00 BA 43 04  06 3A 00 D4 43 0E 06 8F  |1620..C..:..C...|
000003C0: 20 50 4C 4F 54 20 56 45  52 54 49 43 41 4C 20 4C  | PLOT VERTICAL L|
000003D0: 49 4E 45 53 00 E8 43 18  06 81 20 58 B2 4D AB 31  |INES..C... X.M.1|
000003E0: 20 A4 20 30 20 A9 AB 31  00 F6 43 22 06 8B 20 56  | . 0 ..1..C".. V|
000003F0: 20 A7 20 58 B2 30 00 0E  44 2C 06 E6 20 47 28 58  | . X.0..D,.. G(X|
00000400: 2C 59 AA 31 29 2C 52 28  58 2C 59 AA 31 29 00 24  |,Y.1),R(X,Y.1).$|
00000410: 44 36 06 E5 20 A4 20 47  28 58 2C 59 29 2C 52 28  |D6.. . G(X,Y),R(|
00000420: 58 2C 59 29 00 2C 44 40  06 82 20 58 00 42 44 4A  |X,Y).,D@.. X.BDJ|
00000430: 06 8B 20 48 20 A7 20 8D  20 31 38 35 30 2C 4D 41  |.. H . . 1850,MA|
00000440: 53 4B 00 50 44 54 06 81  20 58 B2 31 20 A4 20 4D  |SK.PDT.. X.1 . M|
00000450: 00 66 44 5E 06 E5 20 A4  20 47 28 58 2C 59 29 2C  |.fD^.. . G(X,Y),|
00000460: 52 28 58 2C 59 29 00 70  44 68 06 82 20 58 2C 59  |R(X,Y).pDh.. X,Y|
00000470: 00 76 44 72 06 3A 00 85  44 7C 06 8F 20 44 52 41  |.vDr.:..D|.. DRA|
00000480: 57 20 42 4F 58 00 95 44  86 06 E6 20 31 30 2C 52  |W BOX..D... 10,R|
00000490: 28 30 2C 30 29 00 A3 44  90 06 E5 20 A4 20 31 30  |(0,0)..D... . 10|
000004A0: 2C 48 54 00 B1 44 9A 06  E5 20 A4 20 58 4D 2C 48  |,HT..D... . XM,H|
000004B0: 54 00 C6 44 A4 06 E5 20  A4 20 47 28 4D 2C 4E 29  |T..D... . G(M,N)|
000004C0: 2C 59 56 28 4E 29 00 DC  44 AE 06 E5 20 A4 20 47  |,YV(N)..D... . G|
000004D0: 28 4D 2C 4E 29 2C 52 28  4D 2C 4E 29 00 F0 44 B8  |(M,N),R(M,N)..D.|
000004E0: 06 81 20 59 B2 4E AB 31  20 A4 20 30 20 A9 AB 31  |.. Y.N.1 . 0 ..1|
000004F0: 00 06 45 C2 06 E5 20 A4  20 47 28 4D 2C 59 29 2C  |..E... . G(M,Y),|
00000500: 52 28 4D 2C 59 29 00 0C  45 CC 06 82 00 1A 45 D6  |R(M,Y)..E.....E.|
00000510: 06 E5 20 A4 20 58 4D 2C  48 54 00 20 45 E0 06 3A  |.. . XM,HT. E..:|
00000520: 00 2C 45 EA 06 8F 20 54  49 54 4C 45 00 3C 45 F4  |.,E... TITLE.<E.|
00000530: 06 E0 20 31 2C 31 2C 32  34 2C 41 24 00 42 45 FE  |.. 1,1,24,A$.BE.|
00000540: 06 3A 00 57 45 08 07 8F  20 57 41 49 54 20 46 4F  |.:.WE... WAIT FO|
00000550: 52 20 48 55 4D 41 4E 00  61 45 12 07 A1 F9 20 42  |R HUMAN.aE.... B|
00000560: 24 00 6B 45 1C 07 DE 20  30 2C 31 00 71 45 26 07  |$.kE... 0,1.qE&.|
00000570: 8E 00 77 45 30 07 3A 00  8F 45 3A 07 8F 20 4D 41  |..wE0.:..E:.. MA|
00000580: 53 4B 20 48 49 44 44 45  4E 20 4C 49 4E 45 53 00  |SK HIDDEN LINES.|
00000590: 9E 45 44 07 81 20 49 B2  AB 31 20 A4 20 31 00 B6  |.ED.. I..1 . 1..|
000005A0: 45 4E 07 E6 20 47 28 30  2C 59 29 AA 49 2C 52 28  |EN.. G(0,Y).I,R(|
000005B0: 30 2C 59 29 AA 33 00 C4  45 58 07 81 20 58 B2 31  |0,Y).3..EX.. X.1|
000005C0: 20 A4 20 4D 00 DE 45 62  07 E5 20 A4 20 47 28 58  | . M..Eb.. . G(X|
000005D0: 2C 59 29 AA 49 2C 52 28  58 2C 59 29 AA 33 00 E8  |,Y).I,R(X,Y).3..|
000005E0: 45 6C 07 82 20 58 2C 49  00 FE 45 76 07 E6 20 47  |El.. X,I..Ev.. G|
000005F0: 28 30 2C 59 29 2C 52 28  30 2C 59 29 AA 31 00 0C  |(0,Y),R(0,Y).1..|
00000600: 46 80 07 81 20 58 B2 31  20 A4 20 4D 00 2C 46 8A  |F... X.1 . M.,F.|
00000610: 07 E5 20 30 2C AA 30 2C  AA 30 20 A4 20 47 28 58  |.. 0,.0,.0 . G(X|
00000620: 2C 59 29 2C 52 28 58 2C  59 29 AA 31 00 34 46 94  |,Y),R(X,Y).1.4F.|
00000630: 07 82 20 58 00 4A 46 9E  07 E5 20 30 2C AA 30 2C  |.. X.JF... 0,.0,|
00000640: AA 30 20 A4 20 AA 38 2C  AA 38 00 62 46 A8 07 DF  |.0 . .8,.8.bF...|
00000650: 20 30 2C 47 28 4D 2C 59  29 2C 52 28 4D 2C 59 29  | 0,G(M,Y),R(M,Y)|
00000660: AA 33 00 7A 46 B2 07 DF  20 30 2C 47 28 30 2C 59  |.3.zF... 0,G(0,Y|
00000670: 29 2C 52 28 30 2C 59 29  AA 33 00 8E 46 BC 07 E6  |),R(0,Y).3..F...|
00000680: 20 47 28 30 2C 59 29 2C  52 28 30 2C 59 29 00 94  | G(0,Y),R(0,Y)..|
00000690: 46 C6 07 8E 00 9A 46 D0  07 3A 00 B2 46 DA 07 4D  |F.....F..:..F..M|
000006A0: B2 32 30 3A 20 8F 20 58  2D 44 49 4D 45 4E 53 49  |.20: . X-DIMENSI|
000006B0: 4F 4E 00 CA 46 E4 07 4E  B2 31 36 3A 20 8F 20 59  |ON..F..N.16: . Y|
000006C0: 2D 44 49 4D 45 4E 53 49  4F 4E 00 EB 46 EE 07 53  |-DIMENSION..F..S|
000006D0: 50 B2 39 36 3A 20 8F 20  56 45 52 54 49 43 41 4C  |P.96: . VERTICAL|
000006E0: 20 53 45 50 41 52 41 54  49 4F 4E 00 0B 47 F8 07  | SEPARATION..G..|
000006F0: 4D 53 24 28 30 29 B2 22  48 49 44 45 22 3A 20 4D  |MS$(0)."HIDE": M|
00000700: 53 24 28 31 29 B2 22 53  48 4F 57 00 1D 47 02 08  |S$(1)."SHOW..G..|
00000710: 48 54 B2 31 39 30 3A 20  54 48 B2 AB 31 00 2F 47  |HT.190: TH..1./G|
00000720: 0C 08 50 49 B2 33 2E 31  34 31 35 39 32 36 35 00  |..PI.3.14159265.|
00000730: 35 47 16 08 8E 00 3B 47  20 08 3A 00 69 47 2A 08  |5G....;G .:.iG*.|
00000740: 99 20 22 48 49 44 44 45  4E 20 4C 49 4E 45 53 20  |. "HIDDEN LINES |
00000750: 54 4F 20 42 45 20 53 48  4F 57 4E 20 28 59 2F 4E  |TO BE SHOWN (Y/N|
00000760: 29 22 3A 20 A1 F9 20 42  24 00 7A 47 34 08 48 B2  |)": .. B$.zG4.H.|
00000770: B6 28 42 24 B3 B1 22 59  22 29 00 AA 47 3E 08 99  |.(B$.."Y")..G>..|
00000780: 20 22 56 45 52 54 49 43  41 4C 20 4C 49 4E 45 53  | "VERTICAL LINES|
00000790: 20 54 4F 20 42 45 20 53  48 4F 57 4E 20 28 59 2F  | TO BE SHOWN (Y/|
000007A0: 4E 29 22 3A 20 A1 F9 20  42 24 00 BB 47 48 08 56  |N)": .. B$..GH.V|
000007B0: B2 B6 28 42 24 B3 B1 22  59 22 29 00 D6 47 52 08  |..(B$.."Y")..GR.|
000007C0: 86 20 5A 28 4D 2C 4E 29  2C 52 28 4D 2C 4E 29 2C  |. Z(M,N),R(M,N),|
000007D0: 47 28 4D 2C 4E 29 00 E8  47 5C 08 86 20 58 48 28  |G(M,N)..G\.. XH(|
000007E0: 4D 29 2C 59 56 28 4E 29  00 EE 47 66 08 8E 00 F4  |M),YV(N)..Gf....|
000007F0: 47 70 08 3A 00 05 48 7A  08 8F 20 45 52 52 4F 52  |Gp.:..Hz.. ERROR|
00000800: 20 54 52 41 50 00 0C 48  84 08 FE 26 00 1A 48 8E  | TRAP..H...&..H.|
00000810: 08 99 20 D3 28 45 52 29  45 4C 00 22 48 98 08 DE  |.. .(ER)EL."H...|
00000820: 20 30 00 28 48 A2 08 80  00 2E 48 AC 08 3A 00 3F  | 0.(H.....H..:.?|
00000830: 48 B6 08 8F 20 56 49 45  57 20 41 4E 47 4C 45 00  |H... VIEW ANGLE.|
00000840: 6B 48 C0 08 99 22 2A 2A  20 53 43 52 45 45 4E 20  |kH..."** SCREEN |
00000850: 57 49 4C 4C 20 42 45 20  42 4C 41 4E 4B 45 44 20  |WILL BE BLANKED |
00000860: 41 20 57 48 49 4C 45 20  2A 2A 22 00 95 48 CA 08  |A WHILE **"..H..|
00000870: 8B 20 54 48 45 54 41 B3  30 20 A7 20 54 48 45 54  |. THETA.0 . THET|
00000880: 41 B2 36 30 3A 20 8F 20  44 45 46 41 55 4C 54 20  |A.60: . DEFAULT |
00000890: 41 4E 47 4C 45 00 C4 48  D4 08 99 3A 20 99 22 45  |ANGLE..H...: ."E|
000008A0: 4E 54 45 52 20 56 49 45  57 49 4E 47 20 41 4E 47  |NTER VIEWING ANG|
000008B0: 4C 45 2C 20 4F 52 20 50  52 45 53 53 20 52 45 54  |LE, OR PRESS RET|
000008C0: 55 52 4E 22 00 DB 48 DE  08 99 22 46 4F 52 22 54  |URN"..H..."FOR"T|
000008D0: 48 22 44 45 47 52 45 45  53 3A 22 00 E4 48 E8 08  |H"DEGREES:"..H..|
000008E0: 85 20 54 48 00 F5 48 F2  08 41 4E B2 54 48 AC 50  |. TH..H..AN.TH.P|
000008F0: 49 AD 31 38 30 00 FC 48  FC 08 FE 25 00 11 49 06  |I.180..H...%..I.|
00000900: 09 54 4D 50 B2 31 32 30  AC B6 28 BE 28 41 4E 29  |.TMP.120..(.(AN)|
00000910: 29 00 29 49 10 09 58 47  52 49 44 B2 B5 28 28 33  |).)I..XGRID..((3|
00000920: 30 39 AB 54 4D 29 AD 4D  29 00 44 49 1A 09 59 47  |09.TM).M).DI..YG|
00000930: 52 49 44 B2 B5 28 53 50  AC B6 28 BF 28 41 4E 29  |RID..(SP..(.(AN)|
00000940: 29 AD 4E 29 00 55 49 24  09 59 53 54 50 B2 B5 28  |).N).UI$.YSTP..(|
00000950: 54 4D AD 4E 29 00 5B 49  2E 09 3A 00 73 49 38 09  |TM.N).[I..:.sI8.|
00000960: 8F 20 43 41 4C 43 55 4C  41 54 45 20 4F 46 46 53  |. CALCULATE OFFS|
00000970: 45 54 53 00 81 49 42 09  81 20 58 B2 30 20 A4 20  |ETS..IB.. X.0 . |
00000980: 4D 00 96 49 4C 09 58 48  52 49 5A 28 58 29 B2 31  |M..IL.XHRIZ(X).1|
00000990: 30 AA 58 AC 58 47 00 9C  49 56 09 82 00 A9 49 60  |0.X.XG..IV....I`|
000009A0: 09 58 4D B2 58 48 28 4D  29 00 B3 49 6A 09 E7 20  |.XM.XH(M)..Ij.. |
000009B0: 34 2C 35 00 C1 49 74 09  81 20 59 B2 30 20 A4 20  |4,5..It.. Y.0 . |
000009C0: 4E 00 D6 49 7E 09 59 56  45 52 54 28 59 29 B2 48  |N..I~.YVERT(Y).H|
000009D0: 54 AB 59 AC 59 47 00 E2  49 88 09 54 4D B2 59 AC  |T.Y.YG..I..TM.Y.|
000009E0: 59 53 00 F0 49 92 09 81  20 58 B2 30 20 A4 20 4D  |YS..I... X.0 . M|
000009F0: 00 04 4A 9C 09 47 28 58  2C 59 29 B2 58 48 28 58  |..J..G(X,Y).XH(X|
00000A00: 29 AA 54 4D 00 0E 4A A6  09 82 20 58 2C 59 00 14  |).TM..J... X,Y..|
00000A10: 4A B0 09 8E 00 1A 4A BA  09 3A 00 2D 4A C4 09 8F  |J.....J..:.-J...|
00000A20: 20 44 41 54 41 20 54 4F  20 50 4C 4F 54 00 3D 4A  | DATA TO PLOT.=J|
00000A30: CE 09 8B 20 44 44 20 A7  20 32 36 30 30 00 4B 4A  |... DD . 2600.KJ|
00000A40: D8 09 81 20 59 B2 30 20  A4 20 4E 00 59 4A E2 09  |... Y.0 . N.YJ..|
00000A50: 81 20 58 B2 30 20 A4 20  4D 00 73 4A EC 09 8B 20  |. X.0 . M.sJ... |
00000A60: 45 20 A7 20 52 B2 A5 52  28 58 29 3A 53 B2 A5 53  |E . R..R(X):S..S|
00000A70: 28 59 29 00 84 4A F6 09  5A 28 58 2C 59 29 B2 A5  |(Y)..J..Z(X,Y)..|
00000A80: 5A 28 58 29 00 9F 4A 00  0A 82 20 58 3A 20 E7 20  |Z(X)..J... X: . |
00000A90: 34 2C 28 59 AF 31 35 29  AA 31 3A 20 82 20 59 00  |4,(Y.15).1: . Y.|
00000AA0: A5 4A 0A 0A 8E 00 AB 4A  14 0A 3A 00 C8 4A 1E 0A  |.J.....J..:..J..|
00000AB0: 8F 20 52 45 41 44 20 45  4D 50 49 52 49 43 41 4C  |. READ EMPIRICAL|
00000AC0: 20 52 45 53 55 4C 54 53  00 D6 4A 28 0A 81 20 59  | RESULTS..J(.. Y|
00000AD0: B2 30 20 A4 20 4E 00 E4  4A 32 0A 81 20 58 B2 30  |.0 . N..J2.. X.0|
00000AE0: 20 A4 20 4D 00 F1 4A 3C  0A 87 20 5A 28 58 2C 59  | . M..J<.. Z(X,Y|
00000AF0: 29 00 0C 4B 46 0A 82 20  58 3A 20 E7 20 34 2C 28  |)..KF.. X: . 4,(|
00000B00: 59 AF 31 35 29 AA 31 3A  20 82 20 59 00 12 4B 50  |Y.15).1: . Y..KP|
00000B10: 0A 8E 00 18 4B 5A 0A 3A  00 2A 4B 64 0A 8F 20 2A  |....KZ.:.*Kd.. *|
00000B20: 2A 20 4D 45 4E 55 53 20  2A 2A 00 3F 4B 6E 0A 99  |* MENUS **.?Kn..|
00000B30: 20 C7 28 31 39 29 22 20  50 52 45 53 53 3A 22 00  | .(19)" PRESS:".|
00000B40: 63 4B 78 0A 99 20 22 52  20 52 45 56 49 45 57 20  |cKx.. "R REVIEW |
00000B50: 46 52 4F 4D 20 41 4E 4F  54 48 45 52 20 41 4E 47  |FROM ANOTHER ANG|
00000B60: 4C 45 22 00 87 4B 82 0A  99 20 22 48 3A 20 20 22  |LE"..K... "H:  "|
00000B70: 4D 53 24 28 31 AB 48 29  22 20 48 49 44 44 45 4E  |MS$(1.H)" HIDDEN|
00000B80: 20 4C 49 4E 45 53 22 00  AD 4B 8C 0A 99 20 22 56  | LINES"..K... "V|
00000B90: 3A 20 20 22 4D 53 24 28  31 AB 56 29 22 20 56 45  |:  "MS$(1.V)" VE|
00000BA0: 52 54 49 43 41 4C 20 4C  49 4E 45 53 22 00 C2 4B  |RTICAL LINES"..K|
00000BB0: 96 0A 99 20 22 50 20 50  4C 4F 54 20 41 47 41 49  |... "P PLOT AGAI|
00000BC0: 4E 22 00 DC 4B A0 0A 99  20 22 4E 20 46 4F 52 20  |N"..K... "N FOR |
00000BD0: 41 20 4E 45 57 20 53 48  41 50 45 22 00 EB 4B AA  |A NEW SHAPE"..K.|
00000BE0: 0A 99 20 22 51 20 51 55  49 54 22 00 F1 4B B4 0A  |.. "Q QUIT"..K..|
00000BF0: 8E 00 F7 4B BE 0A 3A 00  01 4C C8 0A E7 20 30 2C  |...K..:..L... 0,|
00000C00: 31 00 11 4C D2 0A 99 20  22 20 50 52 45 53 53 3A  |1..L... " PRESS:|
00000C10: 22 00 24 4C DC 0A 99 20  22 31 2E 20 53 54 45 54  |".$L... "1. STET|
00000C20: 53 4F 4E 22 00 3D 4C E6  0A 99 20 22 32 2E 20 49  |SON".=L... "2. I|
00000C30: 4E 56 45 52 53 45 20 57  41 56 45 53 22 00 50 4C  |NVERSE WAVES".PL|
00000C40: F0 0A 99 20 22 33 2E 20  46 55 52 52 4F 57 53 22  |... "3. FURROWS"|
00000C50: 00 63 4C FA 0A 99 20 22  34 2E 20 43 41 53 43 41  |.cL... "4. CASCA|
00000C60: 44 45 22 00 79 4C 04 0B  99 20 22 35 2E 20 54 57  |DE".yL... "5. TW|
00000C70: 49 4E 20 50 45 41 4B 53  22 00 8B 4C 0E 0B 99 20  |IN PEAKS"..L... |
00000C80: 22 36 2E 20 43 52 41 54  45 52 22 00 9D 4C 18 0B  |"6. CRATER"..L..|
00000C90: 99 20 22 37 2E 20 52 41  44 49 41 4C 22 00 B2 4C  |. "7. RADIAL"..L|
00000CA0: 22 0B 99 20 22 38 2E 20  52 45 41 44 20 44 41 54  |".. "8. READ DAT|
00000CB0: 41 22 00 B8 4C 2C 0B 3A  00 C2 4C 36 0B A1 F9 20  |A"..L,.:..L6... |
00000CC0: 41 24 00 D3 4C 40 0B 45  B2 30 3A 20 41 B2 C5 28  |A$..L@.E.0: A..(|
00000CD0: 41 24 29 00 E7 4C 4A 0B  8B 20 41 B3 31 20 B0 20  |A$)..LJ.. A.1 . |
00000CE0: 41 B1 38 20 A7 20 8A 00  19 4D 54 0B 91 20 41 20  |A.8 . ...MT.. A |
00000CF0: 8D 20 33 30 33 30 2C 33  30 38 30 2C 33 31 32 30  |. 3030,3080,3120|
00000D00: 2C 33 31 36 30 2C 33 32  31 30 2C 33 32 37 30 2C  |,3160,3210,3270,|
00000D10: 33 33 32 30 2C 32 39 33  30 00 25 4D 5E 0B 99 20  |3320,2930.%M^.. |
00000D20: 41 24 3A 20 8E 00 2B 4D  68 0B 3A 00 3A 4D 72 0B  |A$: ..+Mh.:.:Mr.|
00000D30: 99 20 22 20 50 52 45 53  53 22 00 4E 4D 7C 0B 99  |. " PRESS".NM|..|
00000D40: 20 22 31 2E 20 52 41 49  4E 46 41 4C 4C 22 00 63  | "1. RAINFALL".c|
00000D50: 4D 86 0B 99 20 22 32 2E  20 4D 4F 52 45 20 44 41  |M... "2. MORE DA|
00000D60: 54 41 22 00 79 4D 90 0B  99 20 22 30 2E 20 46 49  |TA".yM... "0. FI|
00000D70: 52 53 54 20 4D 45 4E 55  22 00 93 4D 9A 0B A1 F9  |RST MENU"..M....|
00000D80: 20 41 3A 20 8B 20 41 B2  30 20 B0 20 41 B1 32 20  | A: . A.0 . A.2 |
00000D90: A7 20 8A 00 A6 4D A4 0B  8B 20 41 B2 31 20 A7 20  |. ...M... A.1 . |
00000DA0: 8C 20 33 33 36 30 00 B9  4D AE 0B 8B 20 41 B2 32  |. 3360..M... A.2|
00000DB0: 20 A7 20 8C 20 33 35 36  30 00 C9 4D B8 0B 87 20  | . . 3560..M... |
00000DC0: 41 24 2C 4D 2C 4E 2C 53  50 00 D5 4D C2 0B 44 44  |A$,M,N,SP..M..DD|
00000DD0: B2 31 3A 20 8E 00 DB 4D  CC 0B 3A 00 FC 4D D6 0B  |.1: ...M..:..M..|
00000DE0: 41 B2 4D AD 32 3A 20 42  B2 35 3A 20 43 B2 4E AD  |A.M.2: B.5: C.N.|
00000DF0: 32 3A 20 44 B2 32 3A 20  45 B2 2E 32 00 1E 4E E0  |2: D.2: E..2..N.|
00000E00: 0B 96 A5 52 28 58 29 B2  28 58 AB 41 29 AD 42 3A  |...R(X).(X.A).B:|
00000E10: 96 A5 53 28 59 29 B2 28  59 AB 43 29 AD 42 00 44  |..S(Y).(Y.C).B.D|
00000E20: 4E EA 0B 96 A5 5A 28 58  29 B2 BF 28 52 AC 52 AC  |N....Z(X)..(R.R.|
00000E30: 44 AA 53 AC 53 29 AC BD  28 AB 52 AC 52 AB 53 AC  |D.S.S)..(.R.R.S.|
00000E40: 53 29 AA 45 00 58 4E F4  0B 41 24 B2 22 53 54 45  |S).E.XN..A$."STE|
00000E50: 54 53 4F 4E 22 3A 20 8E  00 5E 4E FE 0B 3A 00 66  |TSON": ..^N..:.f|
00000E60: 4E 08 0C 41 B2 35 00 7C  4E 12 0C 96 A5 5A 28 58  |N..A.5.|N....Z(X|
00000E70: 29 B2 BF 28 58 AC 59 AD  4D 29 AA 41 00 96 4E 1C  |)..(X.Y.M).A..N.|
00000E80: 0C 41 24 B2 22 49 4E 56  45 52 53 45 20 57 41 56  |.A$."INVERSE WAV|
00000E90: 45 53 22 3A 20 8E 00 9C  4E 26 0C 3A 00 B4 4E 30  |ES": ...N&.:..N0|
00000EA0: 0C 41 B2 4D AD 32 3A 42  B2 4E AD 32 3A 43 B2 34  |.A.M.2:B.N.2:C.4|
00000EB0: 3A 44 B2 31 00 D6 4E 3A  0C 96 A5 5A 28 58 29 B2  |:D.1..N:...Z(X).|
00000EC0: BF 28 28 58 AB 41 29 AC  28 59 AB 42 29 AD 42 29  |.((X.A).(Y.B).B)|
00000ED0: AA 59 AD 43 AA 44 00 EA  4E 44 0C 41 24 B2 22 46  |.Y.C.D..ND.A$."F|
00000EE0: 55 52 52 4F 57 53 22 3A  20 8E 00 F0 4E 4E 0C 3A  |URROWS": ...NN.:|
00000EF0: 00 0B 4F 58 0C 41 B2 36  3A 20 42 B2 32 3A 20 43  |..OX.A.6: B.2: C|
00000F00: B2 2E 31 3A 20 45 B2 AB  31 2E 32 00 29 4F 62 0C  |..1: E..1.2.)Ob.|
00000F10: 96 A5 52 28 58 29 B2 59  AD 4E AB 58 AD 4D 3A 96  |..R(X).Y.N.X.M:.|
00000F20: A5 53 28 59 29 B2 52 AA  52 00 50 4F 6C 0C 96 A5  |.S(Y).R.R.POl...|
00000F30: 5A 28 58 29 B2 28 43 AA  BD 28 53 AA 52 29 29 AC  |Z(X).(C..(S.R)).|
00000F40: BE 28 41 AC 52 AC 52 AB  41 AC 53 AA 45 29 AA 42  |.(A.R.R.A.S.E).B|
00000F50: 00 64 4F 76 0C 41 24 B2  22 43 41 53 43 41 44 45  |.dOv.A$."CASCADE|
00000F60: 22 3A 20 8E 00 6A 4F 80  0C 3A 00 96 4F 8A 0C 41  |": ..jO..:..O..A|
00000F70: B2 B5 28 4D AD 33 29 3A  20 42 B2 4D AB 41 3A 20  |..(M.3): B.M.A: |
00000F80: 43 B2 4E AD 32 3A 20 44  B2 33 3A 20 45 B2 2E 31  |C.N.2: D.3: E..1|
00000F90: 3A 20 46 B2 2E 34 00 B9  4F 94 0C 96 A5 52 28 58  |: F..4..O....R(X|
00000FA0: 29 B2 28 58 AB 41 29 AC  28 58 AB 41 29 AA 28 59  |).(X.A).(X.A).(Y|
00000FB0: AB 43 29 AC 28 59 AB 43  29 00 DC 4F 9E 0C 96 A5  |.C).(Y.C)..O....|
00000FC0: 53 28 59 29 B2 28 58 AB  42 29 AC 28 58 AB 42 29  |S(Y).(X.B).(X.B)|
00000FD0: AA 28 59 AB 43 29 AC 28  59 AB 43 29 00 11 50 A8  |.(Y.C).(Y.C)..P.|
00000FE0: 0C 96 A5 5A 28 58 29 B2  BE 28 BA 28 52 29 29 AC  |...Z(X)..(.(R)).|
00000FF0: 28 BD 28 AB 52 AD 44 29  AA 45 29 AA BE 28 BA 28  |(.(.R.D).E)..(.(|
00001000: 53 29 29 AC 28 BD 28 AB  53 AD 44 29 AA 45 29 AA  |S)).(.(.S.D).E).|
00001010: 46 00 28 50 B2 0C 41 24  B2 22 54 57 49 4E 20 50  |F.(P..A$."TWIN P|
00001020: 45 41 4B 53 22 3A 20 8E  00 2E 50 BC 0C 3A 00 4A  |EAKS": ...P..:.J|
00001030: 50 C6 0C 41 B2 4D AD 32  3A 20 42 B2 4E AD 32 3A  |P..A.M.2: B.N.2:|
00001040: 20 43 B2 34 35 3A 20 45  B2 35 00 7D 50 D0 0C 96  | C.45: E.5.}P...|
00001050: A5 52 28 58 29 B2 B6 28  28 58 AB 41 29 AC 28 58  |.R(X)..((X.A).(X|
00001060: AB 41 29 AA 28 59 AB 42  29 AC 28 59 AB 42 29 AB  |.A).(Y.B).(Y.B).|
00001070: 43 29 AA 45 3A 96 A5 53  28 59 29 B2 2E 00 8E 50  |C).E:..S(Y)....P|
00001080: DA 0C 96 A5 5A 28 58 29  B2 45 AD 52 AA 45 00 A1  |....Z(X).E.R.E..|
00001090: 50 E4 0C 41 24 B2 22 43  52 41 54 45 52 22 3A 20  |P..A$."CRATER": |
000010A0: 8E 00 A7 50 EE 0C 3A 00  C6 50 F8 0C 41 B2 4D AD  |...P..:..P..A.M.|
000010B0: 32 3A 20 42 B2 4E AD 32  3A 20 43 B2 2E 30 30 31  |2: B.N.2: C..001|
000010C0: 3A 20 44 B2 34 30 00 F9  50 02 0D 96 A5 5A 28 58  |: D.40..P....Z(X|
000010D0: 29 B2 28 B6 28 58 AB 41  29 AA B6 28 59 AB 42 29  |).(.(X.A)..(Y.B)|
000010E0: 29 AC BF 28 34 AC C1 28  28 59 AB 42 29 AD 28 58  |)..(4..((Y.B).(X|
000010F0: AB 41 AA 43 29 29 29 AA  44 00 0C 51 0C 0D 41 24  |.A.C))).D..Q..A$|
00001100: B2 22 52 41 44 49 41 4C  22 3A 20 8E 00 12 51 16  |."RADIAL": ...Q.|
00001110: 0D 3A 00 4C 51 20 0D 83  20 52 41 49 4E 46 41 4C  |.:.LQ .. RAINFAL|
00001120: 4C 20 49 4E 20 4D 4D 20  20 20 56 41 4E 43 4F 55  |L IN MM   VANCOU|
00001130: 56 45 52 20 20 20 31 39  37 35 2D 31 39 38 35 2C  |VER   1975-1985,|
00001140: 20 31 31 2C 20 31 30 2C  20 31 36 30 00 79 51 2A  | 11, 10, 160.yQ*|
00001150: 0D 83 20 20 33 30 2C 20  20 39 34 2C 20 20 38 33  |..  30,  94,  83|
00001160: 2C 20 20 39 30 2C 20 20  34 34 2C 20 20 33 31 2C  |,  90,  44,  31,|
00001170: 20 20 20 37 2C 20 20 32  39 00 9A 51 34 0D 83 20  |   7,  29..Q4.. |
00001180: 20 39 35 2C 20 32 36 36  2C 20 20 20 30 2C 20 20  | 95, 266,   0,  |
00001190: 20 30 3A 20 8F 20 31 39  38 35 00 C7 51 3E 0D 83  | 0: . 1985..Q>..|
000011A0: 20 32 36 38 2C 20 31 37  36 2C 20 31 33 32 2C 20  | 268, 176, 132, |
000011B0: 31 34 30 2C 20 31 30 39  2C 20 20 38 30 2C 20 20  |140, 109,  80,  |
000011C0: 20 31 2C 20 20 31 37 00  F4 51 48 0D 83 20 20 36  | 1,  17..QH..  6|
000011D0: 30 2C 20 31 36 37 2C 20  32 32 35 2C 20 31 37 30  |0, 167, 225, 170|
000011E0: 2C 20 31 38 36 2C 20 32  33 39 2C 20 31 32 32 2C  |, 186, 239, 122,|
000011F0: 20 20 39 38 00 21 52 52  0D 83 20 20 34 30 2C 20  |  98.!RR..  40, |
00001200: 20 38 34 2C 20 31 30 32  2C 20 20 33 30 2C 20 20  | 84, 102,  30,  |
00001210: 39 39 2C 20 20 39 37 2C  20 33 32 35 2C 20 20 37  |99,  97, 325,  7|
00001220: 37 00 4E 52 5C 0D 83 20  32 34 37 2C 20 32 32 39  |7.NR\.. 247, 229|
00001230: 2C 20 20 36 38 2C 20 31  31 36 2C 20 20 31 38 2C  |,  68, 116,  18,|
00001240: 20 20 32 38 2C 20 20 37  34 2C 20 20 34 34 00 7B  |  28,  74,  44.{|
00001250: 52 66 0D 83 20 20 34 36  2C 20 31 33 31 2C 20 31  |Rf..  46, 131, 1|
00001260: 37 33 2C 20 31 33 31 2C  20 20 35 37 2C 20 31 30  |73, 131,  57, 10|
00001270: 36 2C 20 31 32 34 2C 20  31 37 33 00 A8 52 70 0D  |6, 124, 173..Rp.|
00001280: 83 20 31 33 30 2C 20 31  33 38 2C 20 20 31 37 2C  |. 130, 138,  17,|
00001290: 20 20 35 39 2C 20 20 38  39 2C 20 31 32 35 2C 20  |  59,  89, 125, |
000012A0: 32 37 34 2C 20 31 35 37  00 D5 52 7A 0D 83 20 20  |274, 157..Rz..  |
000012B0: 39 36 2C 20 31 36 35 2C  20 31 32 30 2C 20 20 37  |96, 165, 120,  7|
000012C0: 31 2C 20 20 35 34 2C 20  31 30 30 2C 20 20 37 34  |1,  54, 100,  74|
000012D0: 2C 20 20 33 35 00 F6 52  84 0D 83 20 31 30 34 2C  |,  35..R... 104,|
000012E0: 20 20 34 30 2C 20 33 31  39 2C 20 32 31 38 3A 20  |  40, 319, 218: |
000012F0: 8F 20 31 39 38 30 00 23  53 8E 0D 83 20 20 35 37  |. 1980.#S...  57|
00001300: 2C 20 31 36 32 2C 20 20  36 31 2C 20 20 35 37 2C  |, 162,  61,  57,|
00001310: 20 20 34 39 2C 20 20 33  33 2C 20 20 33 32 2C 20  |  49,  33,  32, |
00001320: 20 31 39 00 50 53 98 0D  83 20 20 37 34 2C 20 20  | 19.PS...  74,  |
00001330: 37 36 2C 20 20 36 35 2C  20 32 39 34 2C 20 31 31  |76,  65, 294, 11|
00001340: 33 2C 20 20 39 35 2C 20  20 37 37 2C 20 20 38 34  |3,  95,  77,  84|
00001350: 00 7D 53 A2 0D 83 20 20  36 35 2C 20 20 32 33 2C  |.}S...  65,  23,|
00001360: 20 20 20 39 2C 20 31 30  34 2C 20 20 39 36 2C 20  |   9, 104,  96, |
00001370: 20 34 32 2C 20 31 32 34  2C 20 20 38 38 00 AA 53  | 42, 124,  88..S|
00001380: AC 0D 83 20 31 30 32 2C  20 20 38 37 2C 20 20 38  |... 102,  87,  8|
00001390: 34 2C 20 20 35 32 2C 20  20 39 38 2C 20 20 31 38  |4,  52,  98,  18|
000013A0: 2C 20 20 35 31 2C 20 20  35 33 00 D7 53 B6 0D 83  |,  51,  53..S...|
000013B0: 20 20 38 32 2C 20 20 39  38 2C 20 20 32 30 2C 20  |  82,  98,  20, |
000013C0: 31 34 30 2C 20 31 36 37  2C 20 31 35 39 2C 20 31  |140, 167, 159, 1|
000013D0: 31 32 2C 20 20 38 37 00  04 54 C0 0D 83 20 20 39  |12,  87..T...  9|
000013E0: 35 2C 20 20 36 37 2C 20  20 32 34 2C 20 20 38 34  |5,  67,  24,  84|
000013F0: 2C 20 20 35 33 2C 20 20  38 31 2C 20 20 36 34 2C  |,  53,  81,  64,|
00001400: 20 31 33 35 00 31 54 CA  0D 83 20 31 36 32 2C 20  | 135.1T... 162, |
00001410: 31 32 36 2C 20 31 31 38  2C 20 20 33 30 2C 20 20  |126, 118,  30,  |
00001420: 34 39 2C 20 20 33 31 2C  20 20 31 39 2C 20 31 30  |49,  31,  19, 10|
00001430: 36 00 52 54 D4 0D 83 20  20 20 31 2C 20 33 30 30  |6.RT...   1, 300|
00001440: 2C 20 32 31 30 2C 20 32  36 38 3A 20 8F 20 31 39  |, 210, 268: . 19|
00001450: 37 35 00 58 54 DE 0D 3A  00 71 54 E8 0D 83 20 4E  |75.XT..:.qT... N|
00001460: 4F 4E 45 20 45 4E 54 45  52 45 44 2C 2C 2C 31 30  |ONE ENTERED,,,10|
00001470: 30 00 00 00                                       |0...            |

.@.@... G(147)"128 PROJECTOR".9@... "PER
SPECTIVE PLOTTER".S@... "WITH HIDDEN LIN
ES".I@... "BY  IAN  ADAM".@... "VANCOUV
ER  BC"..@... "DECEMBER 1985"..@$.:..@..
W 2170..@8.. 2010, C.S.TS.L@B.. 2760, CH
OOSE..@L.. 2090, C.FIG..@V.. 2230, VIEWI
NG ANGLE..A`.. 2510, . ...AJ.. 1270, ..'
AT.. 1460, PLOT.-A~...AA... 2670, MESSAG
E.KA.... B$.IA... B$."R" . . 2230: . 113
0.}A... B$."P" . 1140..A... B$."N" . . D
D . ...A... B$."N" . . 2760: . 1110.HAD.
. B$."V" . V.1.V..AN.. B$."H" . H.1.H..A
X.. B$."Q" . ...A..:..A.....B... VERTICA
L SCALING.!B..VSCALAR.9E9./B... Y.0 . N.
5B..:.LB..A.Z(0,Y):. X.1 . M.FB(.. Z(X,Y
).A . A.Z(X,Y).LB2....B<.. A . . VS.YV(Y
).A . VS.YV(Y).A..BF..:. SELECT BEST FEA
SIBLE SCALE..BP..4,7.BBZ.:.WBD.. CALCULA
TE RISE..BN.. Y.0 . N..BX.TM.YV(Y)..C...
 X.0 . M..C..R(X,Y).TM.Z(X,Y).VS."C... X
,Y.(C ....C..:.BC... SET UP SCREEN.TC...
 1,14: . 1,1.[CH..&.ACR.:.}C... PLOT HOR
IZONTAL LINES..C... G(0,N),R(0,N)..C... 
Y.N . 0 ..1..C... Y.N . 1620..C..:.TC...
 PLOT VERTICAL LINES..C... X.M.1 . 0 ..1
..C".. V . X.0..D,.. G(X,Y.1),R(X,Y.1).$
D6.. . G(X,Y),R(X,Y).,D@.. X.BDJ.. H . .
 1850,MASK.PDT.. X.1 . M.FD^.. . G(X,Y),
R(X,Y).PDH.. X,Y.VDR.:..D|.. DRAW BOX..D
... 10,R(0,0)..D... . 10,HT..D... . XM,H
T.FD... . G(M,N),YV(N)..D... . G(M,N),R(
M,N)..D... Y.N.1 . 0 ..1..EB.. . G(M,Y),
R(M,Y)..EL....EV.. . XM,HT. E..:.,E... T
ITLE.<E... 1,1,24,A$.BE..:.WE... WAIT FO
R HUMAN.AE.... B$.KE... 0,1.QE&...WE0.:.
.E:.. MASK HIDDEN LINES..ED.. I..1 . 1..
EN.. G(0,Y).I,R(0,Y).3.DEX.. X.1 . M..EB
.. . G(X,Y).I,R(X,Y).3..EL.. X,I..EV.. G
(0,Y),R(0,Y).1..F... X.1 . M.,F... 0,.0,
.0 . G(X,Y),R(X,Y).1.4F... X.JF... 0,.0,
.0 . .8,.8.BF... 0,G(M,Y),R(M,Y).3.ZF...
 0,G(0,Y),R(0,Y).3..F... G(0,Y),R(0,Y)..
FF....FP.:..FZ.M.20: . X-DIMENSION.JF..N
.16: . Y-DIMENSION..F..SP.96: . VERTICAL
 SEPARATION..G..MS$(0)."HIDE": MS$(1)."S
HOW..G..HT.190: TH..1./G..PI.3.14159265.
5G....;G .:.IG*.. "HIDDEN LINES TO BE SH
OWN (Y/N)": .. B$.ZG4.H..(B$.."Y")..G>..
 "VERTICAL LINES TO BE SHOWN (Y/N)": .. 
B$..GH.V..(B$.."Y").VGR.. Z(M,N),R(M,N),
G(M,N)..G\.. XH(M),YV(N)..GF....GP.:..HZ
.. ERROR TRAP..H...&..H... S(ER)EL."H...
 0.(H.....H..:.?H... VIEW ANGLE.KH..."**
 SCREEN WILL BE BLANKED A WHILE **"..HJ.
. THETA.0 . THETA.60: . DEFAULT ANGLE.DH
T..: ."ENTER VIEWING ANGLE, OR PRESS RET
URN"..H..."FOR"TH"DEGREES:"..H... TH..H.
.AN.TH.PI.180..H...%..I..TMP.120..(.(AN)
).)I..XGRID..((309.TM).M).DI..YGRID..(SP
..(.(AN)).N).UI$.YSTP..(TM.N).[I..:.SI8.
. CALCULATE OFFSETS..IB.. X.0 . M..IL.XH
RIZ(X).10.X.XG..IV....I`.XM.XH(M)..IJ.. 
4,5.AIT.. Y.0 . N.VI~.YVERT(Y).HT.Y.YG..
I..TM.Y.YS..I... X.0 . M..J..G(X,Y).XH(X
).TM..J... X,Y..J.....J..:.-JD.. DATA TO
 PLOT.=JN.. DD . 2600.KJX.. Y.0 . N.YJ..
. X.0 . M.SJ... E . R..R(X):S..S(Y)..J..
Z(X,Y)..Z(X)..J... X: . 4,(Y.15).1: . Y.
.J.....J..:.HJ... READ EMPIRICAL RESULTS
.VJ(.. Y.0 . N..J2.. X.0 . M..J<.. Z(X,Y
)..KF.. X: . 4,(Y.15).1: . Y..KP....KZ.:
.*KD.. ** MENUS **.?KN.. G(19)" PRESS:".
CKX.. "R REVIEW FROM ANOTHER ANGLE"..K..
. "H:  "MS$(1.H)" HIDDEN LINES"..K... "V
:  "MS$(1.V)" VERTICAL LINES".BK... "P P
LOT AGAIN"..K .. "N FOR A NEW SHAPE"..K.
.. "Q QUIT"..K.....K..:..LH.. 0,1..LR.. 
" PRESS:".$L... "1. STETSON".=L... "2. I
NVERSE WAVES".PL... "3. FURROWS".CL... "
4. CASCADE".YL... "5. TWIN PEAKS"..L... 
"6. CRATER"..L... "7. RADIAL"..L".. "8. 
READ DATA"..L,.:.BL6... A$.SL@.E.0: A.E(
A$)..LJ.. A.1 . A.8 . ...MT.. A . 3030,3
080,3120,3160,3210,3270,3320,2930.%M^.. 
A$: ..+MH.:.:MR.. " PRESS".NM|.. "1. RAI
NFALL".CM... "2. MORE DATA".YM... "0. FI
RST MENU"..M.... A: . A.0 . A.2 . ...M..
. A.1 . . 3360..M... A.2 . . 3560.IM... 
A$,M,N,SP.UMB.DD.1: ...ML.:..MV.A.M.2: B
.5: C.N.2: D.2: E..2..N....R(X).(X.A).B:
..S(Y).(Y.C).B.DN....Z(X)..(R.R.D.S.S)..
(.R.R.S.S).E.XN..A$."STETSON": ..^N..:.F
N..A.5.|N....Z(X)..(X.Y.M).A..N..A$."INV
ERSE WAVES": ...N&.:..N0.A.M.2:B.N.2:C.4
:D.1.VN:...Z(X)..((X.A).(Y.B).B).Y.C.D..
ND.A$."FURROWS": ...NN.:..OX.A.6: B.2: C
..1: E..1.2.)OB...R(X).Y.N.X.M:..S(Y).R.
R.POL...Z(X).(C..(S.R))..(A.R.R.A.S.E).B
.DOV.A$."CASCADE": ..JO..:..O..A..(M.3):
 B.M.A: C.N.2: D.3: E..1: F..4..O....R(X
).(X.A).(X.A).(Y.C).(Y.C)..O....S(Y).(X.
B).(X.B).(Y.C).(Y.C)..P....Z(X)..(.(R)).
(.(.R.D).E)..(.(S)).(.(.S.D).E).F.(P..A$
."TWIN PEAKS": ...P..:.JPF.A.M.2: B.N.2:
 C.45: E.5.}PP...R(X)..((X.A).(X.A).(Y.B
).(Y.B).C).E:..S(Y)....PZ...Z(X).E.R.E..
P..A$."CRATER": ...P..:.FP..A.M.2: B.N.2
: C..001: D.40..P....Z(X).(.(X.A)..(Y.B)
)..(4.A((Y.B).(X.A.C))).D..Q..A$."RADIAL
": ...Q..:.LQ .. RAINFALL IN MM   VANCOU
VER   1975-1985, 11, 10, 160.YQ*..  30, 
 94,  83,  90,  44,  31,   7,  29..Q4.. 
 95, 266,   0,   0: . 1985.GQ>.. 268, 17
6, 132, 140, 109,  80,   1,  17..QH..  6
0, 167, 225, 170, 186, 239, 122,  98.!RR
..  40,  84, 102,  30,  99,  97, 325,  7
7.NR\.. 247, 229,  68, 116,  18,  28,  7
4,  44.{RF..  46, 131, 173, 131,  57, 10
6, 124, 173..RP.. 130, 138,  17,  59,  8
9, 125, 274, 157.URZ..  96, 165, 120,  7
1,  54, 100,  74,  35..R... 104,  40, 31
9, 218: . 1980.#S...  57, 162,  61,  57,
  49,  33,  32,  19.PS...  74,  76,  65,
 294, 113,  95,  77,  84.}S...  65,  23,
   9, 104,  96,  42, 124,  88..S... 102,
  87,  84,  52,  98,  18,  51,  53.WS...
  82,  98,  20, 140, 167, 159, 112,  87.
.T...  95,  67,  24,  84,  53,  81,  64,
 135.1TJ.. 162, 126, 118,  30,  49,  31,
  19, 106.RTT..   1, 300, 210, 268: . 19
75.XT..:.QT... NONE ENTERED,,,100...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL