1520XYGRAPH

00000000: 01 08 0A 08 01 00 8D 31  31 30 00 CA 08 02 00 8D  |.......110......|
00000010: 32 35 3A 99 22 93 1F 11  11 11 22 A6 39 29 22 50  |25:.".....".9)"P|
00000020: 55 42 4C 49 43 20 44 4F  4D 41 49 4E 20 50 52 4F  |UBLIC DOMAIN PRO|
00000030: 47 52 41 4D 11 11 22 3A  99 A6 31 32 29 22 12 31  |GRAM..":..12)".1|
00000040: 35 32 30 58 59 47 52 41  50 48 20 56 33 2E 30 92  |520XYGRAPH V3.0.|
00000050: 11 11 22 C7 28 31 33 29  A6 31 34 29 22 4A 41 43  |..".(13).14)"JAC|
00000060: 4B 20 42 41 42 43 4F 43  4B 11 22 3A 99 A6 31 35  |K BABCOCK.":..15|
00000070: 29 22 52 49 41 4C 54 4F  2C 20 43 41 2E 11 11 9D  |)"RIALTO, CA....|
00000080: 9D 9D 9D 9D 9D 9D 9D 9D  9D 9D 4D 41 52 43 48 20  |..........MARCH |
00000090: 31 39 38 38 11 11 11 22  3A 99 22 1D 1D 1D 1C 31  |1988...":."....1|
000000A0: 35 32 30 20 50 52 49 4E  54 45 52 2F 50 4C 4F 54  |520 PRINTER/PLOT|
000000B0: 54 45 52 20 4D 55 53 54  20 42 45 20 4F 4E 22 3A  |TER MUST BE ON":|
000000C0: 81 4E B2 31 A4 32 45 33  3A 82 00 C8 09 03 00 4D  |.N.1.2E3:......M|
000000D0: 4D 24 B2 22 12 20 46 31  20 92 4D 41 49 4E 2F 4C  |M$.". F1 .MAIN/L|
000000E0: 49 4E 45 20 4D 45 4E 55  11 22 3A 4D 50 24 B2 22  |INE MENU.":MP$."|
000000F0: 12 20 46 35 20 92 50 52  49 4E 54 20 4D 45 4E 55  |. F5 .PRINT MENU|
00000100: 11 22 3A 4C 4E 24 B2 22  9A 22 3A 4C 4D 24 B2 22  |.":LN$.".":LM$."|
00000110: 1E 22 3A 4D 43 24 B2 22  12 20 46 33 20 92 43 4F  |.":MC$.". F3 .CO|
00000120: 4C 4F 52 20 4D 45 4E 55  11 22 3A 4D 47 24 B2 22  |LOR MENU.":MG$."|
00000130: 12 20 46 37 20 92 47 52  41 50 48 20 4D 45 4E 55  |. F7 .GRAPH MENU|
00000140: 11 22 3A 44 4C 24 B2 22  28 44 52 41 57 20 4C 49  |.":DL$."(DRAW LI|
00000150: 4E 45 29 11 22 3A 53 53  24 B2 22 12 20 31 2D 39  |NE).":SS$.". 1-9|
00000160: 20 92 20 43 4F 4E 54 52  4F 4C 20 53 54 45 50 20  | . CONTROL STEP |
00000170: 53 49 5A 45 11 22 3A 9F  34 2C 36 3A 9F 31 2C 36  |SIZE.":.4,6:.1,6|
00000180: 2C 31 3A 9F 32 2C 36 2C  32 3A 9F 33 2C 36 2C 33  |,1:.2,6,2:.3,6,3|
00000190: 3A 9F 34 34 2C 36 2C 34  3A 9F 35 2C 36 2C 35 3A  |:.44,6,4:.5,6,5:|
000001A0: 9F 36 2C 36 2C 36 3A 57  B2 35 3A 5A 41 B2 34 30  |.6,6,6:W.5:ZA.40|
000001B0: 3A 99 A6 32 34 29 22 1F  A2 A2 A2 A2 A2 A2 A2 A2  |:..24)".........|
000001C0: A2 A2 22 3A 98 32 2C 30  00 D0 09 04 00 8D 32 35  |..":.2,0......25|
000001D0: 00 E2 09 05 00 A1 42 24  3A 8B 42 24 B3 B1 22 22  |......B$:.B$..""|
000001E0: A7 35 00 BE 0A 06 00 99  4C 4E 24 22 93 22 A6 39  |.5......LN$".".9|
000001F0: 29 4D 4D 24 3A 99 4C 4D  24 3B 4D 43 24 3A 99 4D  |)MM$:.LM$;MC$:.M|
00000200: 50 24 3A 99 4D 47 24 3B  4C 4E 24 3A 99 22 12 2D  |P$:.MG$;LN$:.".-|
00000210: 92 20 3D 20 53 4F 4C 49  44 2F 44 41 53 48 20 4C  |. = SOLID/DASH L|
00000220: 49 4E 45 11 22 3A 99 22  12 53 92 54 4F 50 20 50  |INE.":.".S.TOP P|
00000230: 52 4F 47 52 41 4D 20 12  53 50 41 43 45 92 53 54  |ROGRAM .SPACE.ST|
00000240: 4F 50 20 50 45 4E 11 22  3A 99 22 12 52 92 49 47  |OP PEN.":.".R.IG|
00000250: 48 54 22 44 4C 24 3A 99  22 12 4C 92 45 46 54 22  |HT"DL$:.".L.EFT"|
00000260: 44 4C 24 3A 99 22 12 55  92 50 22 44 4C 24 3A 99  |DL$:.".U.P"DL$:.|
00000270: 22 12 44 92 4F 57 4E 22  44 4C 24 3A 99 22 12 51  |".D.OWN"DL$:.".Q|
00000280: 92 55 49 54 20 50 52 4F  47 52 41 4D 11 22 3A 99  |.UIT PROGRAM.":.|
00000290: 53 53 24 3A 99 22 9C 4A  4F 59 53 54 49 43 4B 20  |SS$:.".JOYSTICK |
000002A0: 23 32 20 26 20 43 55 52  53 4F 52 20 4B 45 59 53  |#2 & CURSOR KEYS|
000002B0: 20 43 4F 4E 54 52 4F 4C  20 50 45 4E 22 3B 00 C8  | CONTROL PEN";..|
000002C0: 0A 07 00 45 24 B2 42 24  00 EB 0A 08 00 A1 42 24  |...E$.B$......B$|
000002D0: 3A 4A B2 C2 28 35 36 33  32 30 29 AF 33 31 3A 8B  |:J..(56320).31:.|
000002E0: 42 24 B2 22 22 A7 42 24  B2 45 24 00 09 0B 09 00  |B$."".B$.E$.....|
000002F0: 8B 42 24 B1 22 30 22 AF  42 24 B3 22 3A 22 A7 57  |.B$."0".B$.":".W|
00000300: B2 C5 28 42 24 29 3A 89  38 00 23 0B 0A 00 8B 42  |..(B$):.8.#....B|
00000310: 24 B2 22 52 22 B0 4A B2  37 A7 58 B2 58 AA 57 3A  |$."R".J.7.X.X.W:|
00000320: 89 32 33 00 3E 0B 0B 00  8B 42 24 B2 22 4C 22 B0  |.23.>....B$."L".|
00000330: 4A B2 31 31 A7 58 B2 58  AB 57 3A 89 32 33 00 59  |J.11.X.X.W:.23.Y|
00000340: 0B 0C 00 8B 42 24 B2 22  55 22 B0 4A B2 31 34 A7  |....B$."U".J.14.|
00000350: 59 B2 59 AA 57 3A 89 32  33 00 74 0B 0D 00 8B 42  |Y.Y.W:.23.t....B|
00000360: 24 B2 22 44 22 B0 4A B2  31 33 A7 59 B2 59 AB 57  |$."D".J.13.Y.Y.W|
00000370: 3A 89 32 33 00 8F 0B 0E  00 8B 42 24 B2 22 1D 22  |:.23......B$."."|
00000380: B0 4A B2 32 33 A7 58 B2  58 AA 57 3A 89 32 34 00  |.J.23.X.X.W:.24.|
00000390: AA 0B 0F 00 8B 42 24 B2  22 9D 22 B0 4A B2 32 37  |.....B$.".".J.27|
000003A0: A7 58 B2 58 AB 57 3A 89  32 34 00 C5 0B 10 00 8B  |.X.X.W:.24......|
000003B0: 42 24 B2 22 91 22 B0 4A  B2 33 30 A7 59 B2 59 AA  |B$.".".J.30.Y.Y.|
000003C0: 57 3A 89 32 34 00 E0 0B  11 00 8B 42 24 B2 22 11  |W:.24......B$.".|
000003D0: 22 B0 4A B2 32 39 A7 59  B2 59 AB 57 3A 89 32 34  |".J.29.Y.Y.W:.24|
000003E0: 00 F4 0B 12 00 8D 32 39  3A 8B 42 B1 30 AF 42 B3  |......29:.B.0.B.|
000003F0: 35 A7 33 31 00 03 0C 13  00 8B 42 24 B2 22 2D 22  |5.31......B$."-"|
00000400: A7 32 36 00 13 0C 14 00  8B 42 24 B2 22 51 22 A7  |.26......B$."Q".|
00000410: 9C 3A 80 00 24 0C 15 00  8B 42 24 B2 22 53 22 A7  |.:..$....B$."S".|
00000420: 90 3A 89 35 00 2B 0C 16  00 89 37 00 4B 0C 17 00  |.:.5.+....7.K...|
00000430: 97 42 50 2C 42 43 3A 98  31 2C 22 44 22 2C 58 2C  |.BP,BC:.1,"D",X,|
00000440: 59 3A 97 42 50 2C 42 4E  3A 89 37 00 5D 0C 18 00  |Y:.BP,BN:.7.]...|
00000450: 98 31 2C 22 4D 22 2C 58  2C 59 3A 89 37 00 88 0C  |.1,"M",X,Y:.7...|
00000460: 19 00 97 35 33 32 38 31  2C 31 3A 42 50 B2 35 33  |...53281,1:BP.53|
00000470: 32 38 30 3A 42 4E B2 31  35 3A 42 43 B2 31 31 3A  |280:BN.15:BC.11:|
00000480: 97 42 50 2C 42 4E 3A 8E  00 C5 0C 1A 00 99 22 93  |.BP,BN:.......".|
00000490: 11 54 59 50 45 12 30 92  28 53 4F 4C 49 44 29 4F  |.TYPE.0.(SOLID)O|
000004A0: 52 20 12 31 2D 31 35 92  28 44 41 53 48 29 20 4C  |R .1-15.(DASH) L|
000004B0: 49 4E 45 22 3B 5A 4C 3B  3A 85 5A 4C 3A 98 35 2C  |INE";ZL;:.ZL:.5,|
000004C0: 5A 4C 3A 89 35 00 D8 0C  1B 00 A1 42 24 3A 8B 42  |ZL:.5......B$:.B|
000004D0: 24 B3 B1 22 22 A7 32 37  00 EA 0C 1C 00 A1 42 24  |$.."".27......B$|
000004E0: 3A 8B 42 24 B2 22 22 A7  32 38 00 04 0D 1D 00 8B  |:.B$."".28......|
000004F0: 42 24 B3 B1 22 22 A7 42  B2 C6 28 42 24 29 AB 31  |B$.."".B..(B$).1|
00000500: 33 32 3A 8E 00 0E 0D 1E  00 42 B2 30 3A 8E 00 20  |32:......B.0:.. |
00000510: 0D 1F 00 91 42 89 35 2C  35 32 2C 33 32 2C 35 38  |....B.5,52,32,58|
00000520: 00 B4 0D 20 00 99 4C 4E  24 22 93 11 22 A6 31 31  |... ..LN$"..".11|
00000530: 29 4D 50 24 3A 99 4C 4D  24 3B 4D 4D 24 3A 99 4D  |)MP$:.LM$;MM$:.M|
00000540: 43 24 3A 99 4D 47 24 3B  4C 4E 24 3A 99 22 12 54  |C$:.MG$;LN$:.".T|
00000550: 92 59 50 45 20 53 49 5A  45 11 22 3A 99 22 12 55  |.YPE SIZE.":.".U|
00000560: 92 50 50 45 52 2F 4C 4F  57 45 52 20 43 41 53 45  |.PPER/LOWER CASE|
00000570: 11 22 3A 99 22 12 45 92  51 55 41 54 49 4F 4E 20  |.":.".E.QUATION |
00000580: 56 41 52 49 41 42 4C 45  53 11 22 3A 99 22 12 48  |VARIABLES.":.".H|
00000590: 92 4F 52 49 5A 4F 4E 54  41 4C 20 54 45 58 54 11  |.ORIZONTAL TEXT.|
000005A0: 22 3A 99 22 12 56 92 45  52 54 49 43 41 4C 20 54  |":.".V.ERTICAL T|
000005B0: 45 58 54 11 00 C8 0D 21  00 8D 32 37 3A 8B 42 B1  |EXT....!..27:.B.|
000005C0: 30 AF 42 B3 35 A7 33 31  00 D7 0D 22 00 8B 42 24  |0.B.5.31..."..B$|
000005D0: B2 22 45 22 A7 34 30 00  EB 0D 23 00 8B 42 24 B2  |."E".40...#..B$.|
000005E0: 22 48 22 A7 8D 34 34 3A  89 33 32 00 FF 0D 24 00  |"H"..44:.32...$.|
000005F0: 8B 42 24 B2 22 56 22 A7  8D 34 36 3A 89 33 32 00  |.B$."V"..46:.32.|
00000600: 0E 0E 25 00 8B 42 24 B2  22 54 22 A7 34 39 00 1D  |..%..B$."T".49..|
00000610: 0E 26 00 8B 42 24 B2 22  55 22 A7 35 30 00 25 0E  |.&..B$."U".50.%.|
00000620: 27 00 89 33 33 00 41 0E  28 00 49 B2 30 3A 81 4E  |'..33.A.(.I.0:.N|
00000630: B2 31 A4 34 3A 8B 56 24  28 4E 29 B2 22 22 A7 34  |.1.4:.V$(N)."".4|
00000640: 32 00 64 0E 29 00 49 B2  49 AA 31 3A 44 24 28 49  |2.d.).I.I.1:D$(I|
00000650: 29 B2 56 24 28 4E 29 AA  22 20 3D 22 AA C4 28 56  |).V$(N)." ="..(V|
00000660: 28 4E 29 29 00 B5 0E 2A  00 82 3A 99 22 93 11 11  |(N))...*..:."...|
00000670: 22 3A 81 4E B2 31 A4 49  3A 99 44 24 28 4E 29 3A  |":.N.1.I:.D$(N):|
00000680: 82 3A 99 22 1C 11 11 11  50 45 4E 20 4F 4B 3F 20  |.:."....PEN OK? |
00000690: 50 52 49 4E 54 20 4F 4E  20 47 52 41 50 48 3F 12  |PRINT ON GRAPH?.|
000006A0: 59 2F 4E 92 22 3A 8D 32  37 3A 8B 42 24 B3 B1 22  |Y/N.":.27:.B$.."|
000006B0: 59 22 A7 33 32 00 D3 0E  2B 00 81 4E B2 31 A4 49  |Y".32...+..N.1.I|
000006C0: 3A 43 24 B2 44 24 28 4E  29 3A 8D 34 35 3A 82 3A  |:C$.D$(N):.45:.:|
000006D0: 89 33 32 00 E2 0E 2C 00  85 22 54 45 58 54 22 3B  |.32...,.."TEXT";|
000006E0: 43 24 00 13 0F 2D 00 98  34 34 2C 30 3A 98 31 2C  |C$...-..44,0:.1,|
000006F0: 22 4D 22 2C 58 2C 59 3A  8D 34 38 3A 59 B2 59 AB  |"M",X,Y:.48:Y.Y.|
00000700: 38 30 30 AD 5A 41 3A 98  31 2C 22 4D 22 2C 58 2C  |800.ZA:.1,"M",X,|
00000710: 59 3A 8E 00 22 0F 2E 00  85 22 54 45 58 54 22 3B  |Y:.."...."TEXT";|
00000720: 53 24 00 62 0F 2F 00 98  34 34 2C 31 3A 81 4E B2  |S$.b./..44,1:.N.|
00000730: 31 A4 C3 28 53 24 29 3A  98 31 2C 22 4D 22 2C 58  |1..(S$):.1,"M",X|
00000740: 2C 59 3A 43 24 B2 CA 28  53 24 2C 4E 2C 31 29 3A  |,Y:C$..(S$,N,1):|
00000750: 8D 34 38 3A 59 B2 59 AB  34 34 30 AD 5A 41 3A 82  |.48:Y.Y.440.ZA:.|
00000760: 3A 8E 00 7D 0F 30 00 97  42 50 2C 42 43 3A 98 34  |:..}.0..BP,BC:.4|
00000770: 2C 43 24 3B 3A 97 42 50  2C 42 4E 3A 8E 00 CA 0F  |,C$;:.BP,BN:....|
00000780: 31 00 99 22 93 11 53 45  4C 45 43 54 20 31 30 2C  |1.."..SELECT 10,|
00000790: 32 30 2C 34 30 2C 4F 52  20 38 30 20 53 50 41 43  |20,40,OR 80 SPAC|
000007A0: 45 20 4C 49 4E 45 22 3B  5A 41 3B 3A 85 5A 41 3A  |E LINE";ZA;:.ZA:|
000007B0: 5A 4D B2 BC 28 38 30 AD  5A 41 29 AD BC 28 32 29  |ZM..(80.ZA)..(2)|
000007C0: 3A 98 33 2C 5A 4D 3A 89  33 32 00 27 10 32 00 99  |:.3,ZM:.32.'.2..|
000007D0: 22 93 11 12 30 92 20 3D  20 4E 4F 52 4D 41 4C 20  |"...0. = NORMAL |
000007E0: 55 50 50 45 52 20 43 41  53 45 22 3A 99 22 11 12  |UPPER CASE":."..|
000007F0: 31 92 20 3D 20 4E 4F 52  4D 41 4C 20 4C 4F 57 45  |1. = NORMAL LOWE|
00000800: 52 20 43 41 53 45 22 3A  8D 32 37 3A 8B 42 24 B2  |R CASE":.27:.B$.|
00000810: 22 30 22 B0 42 24 B2 22  31 22 A7 98 36 2C C5 28  |"0".B$."1"..6,.(|
00000820: 42 24 29 3A 89 33 32 00  2F 10 33 00 89 35 30 00  |B$):.32./.3..50.|
00000830: AF 10 34 00 99 4C 4E 24  22 93 11 22 A6 31 32 29  |..4..LN$"..".12)|
00000840: 4D 43 24 3A 99 4C 4D 24  3B 4D 4D 24 3A 99 4D 50  |MC$:.LM$;MM$:.MP|
00000850: 24 3A 99 4D 47 24 3B 4C  4E 24 3A 99 22 12 31 92  |$:.MG$;LN$:.".1.|
00000860: 3D 42 4C 41 43 4B 20 50  45 4E 11 22 3A 99 22 12  |=BLACK PEN.":.".|
00000870: 37 92 3D 42 4C 55 45 20  50 45 4E 11 22 3A 99 22  |7.=BLUE PEN.":."|
00000880: 12 33 92 3D 52 45 44 20  50 45 4E 11 22 3A 99 22  |.3.=RED PEN.":."|
00000890: 12 36 92 3D 47 52 45 45  4E 20 50 45 4E 11 22 3A  |.6.=GREEN PEN.":|
000008A0: 8D 32 37 3A 8B 42 B1 30  AF 42 B3 35 A7 33 31 00  |.27:.B.0.B.5.31.|
000008B0: C6 10 35 00 8B 42 24 B2  22 31 22 A7 42 43 B2 31  |..5..B$."1".BC.1|
000008C0: 31 3A 50 43 B2 30 00 DC  10 36 00 8B 42 24 B2 22  |1:PC.0...6..B$."|
000008D0: 37 22 A7 42 43 B2 36 3A  50 43 B2 31 00 F2 10 37  |7".BC.6:PC.1...7|
000008E0: 00 8B 42 24 B2 22 33 22  A7 42 43 B2 32 3A 50 43  |..B$."3".BC.2:PC|
000008F0: B2 33 00 08 11 38 00 8B  42 24 B2 22 36 22 A7 42  |.3...8..B$."6".B|
00000900: 43 B2 35 3A 50 43 B2 32  00 24 11 39 00 97 42 50  |C.5:PC.2.$.9..BP|
00000910: 2C 42 43 3A 98 32 2C 50  43 3A 97 42 50 2C 42 4E  |,BC:.2,PC:.BP,BN|
00000920: 3A 89 35 32 00 9C 11 3A  00 99 4C 4E 24 22 93 11  |:.52...:..LN$"..|
00000930: 22 A6 31 31 29 4D 47 24  3A 99 4C 4D 24 3B 4D 4D  |".11)MG$:.LM$;MM|
00000940: 24 3A 99 4D 43 24 3A 99  4D 50 24 3B 4C 4E 24 3A  |$:.MC$:.MP$;LN$:|
00000950: 99 22 12 23 92 4E 45 57  20 47 52 41 50 48 2D 44  |.".#.NEW GRAPH-D|
00000960: 52 41 57 20 47 52 49 44  4C 49 4E 45 53 11 22 3A  |RAW GRIDLINES.":|
00000970: 99 22 12 45 92 51 55 41  54 49 4F 4E 20 50 4C 4F  |.".E.QUATION PLO|
00000980: 54 54 49 4E 47 11 22 3A  99 22 12 41 92 55 54 4F  |TTING.":.".A.UTO|
00000990: 4C 41 42 45 4C 20 47 52  41 50 48 11 00 B0 11 3B  |LABEL GRAPH....;|
000009A0: 00 8D 32 37 3A 8B 42 B1  30 AF 42 B3 35 A7 33 31  |..27:.B.0.B.5.31|
000009B0: 00 BF 11 3C 00 8B 42 24  B2 22 23 22 A7 36 34 00  |...<..B$."#".64.|
000009C0: CE 11 3D 00 8B 42 24 B2  22 45 22 A7 37 33 00 DD  |..=..B$."E".73..|
000009D0: 11 3E 00 8B 42 24 B2 22  41 22 A7 36 38 00 E5 11  |.>..B$."A".68...|
000009E0: 3F 00 89 35 39 00 91 12  40 00 58 44 B2 31 30 3A  |?..59...@.XD.10:|
000009F0: 99 22 93 11 23 20 4F 46  20 44 49 56 49 53 49 4F  |."..# OF DIVISIO|
00000A00: 4E 53 20 57 49 44 45 20  22 58 44 3B 3A 85 58 44  |NS WIDE "XD;:.XD|
00000A10: 3A 99 3A 59 44 B2 31 30  3A 99 22 23 20 4F 46 20  |:.:YD.10:."# OF |
00000A20: 44 49 56 49 53 49 4F 4E  53 20 48 49 47 48 20 22  |DIVISIONS HIGH "|
00000A30: 59 44 3B 3A 85 59 44 3A  99 3A 58 53 B2 B5 28 34  |YD;:.YD:.:XS..(4|
00000A40: 30 30 AD 58 44 29 3A 58  42 B2 58 53 AC 58 44 3A  |00.XD):XB.XS.XD:|
00000A50: 59 53 B2 B5 28 34 30 30  AD 59 44 29 3A 59 42 B2  |YS..(400.YD):YB.|
00000A60: 59 53 AC 59 44 3A 99 22  44 52 41 57 20 47 52 41  |YS.YD:."DRAW GRA|
00000A70: 50 48 20 4C 49 4E 45 53  3F 20 12 59 2F 4E 92 11  |PH LINES? .Y/N..|
00000A80: 22 3A 8D 32 37 3A 8B 42  24 B3 B1 22 59 22 A7 35  |":.27:.B$.."Y".5|
00000A90: 38 00 44 13 41 00 98 31  2C 22 4D 22 2C 30 2C AB  |8.D.A..1,"M",0,.|
00000AA0: 35 31 30 3A 98 34 3A 58  B2 30 3A 59 B2 30 3A 53  |510:.4:X.0:Y.0:S|
00000AB0: 31 B2 31 3A 98 35 2C 30  3A 58 B2 30 3A 47 B2 58  |1.1:.5,0:X.0:G.X|
00000AC0: 53 AD 32 3A 48 B2 30 3A  49 B2 30 3A 4B B2 AB 59  |S.2:H.0:I.0:K..Y|
00000AD0: 42 3A 81 4E B2 31 A4 58  44 3A 59 B2 59 42 3A 8D  |B:.N.1.XD:Y.YB:.|
00000AE0: 36 36 3A 82 3A 98 35 2C  30 3A 47 B2 30 3A 58 B2  |66:.:.5,0:G.0:X.|
00000AF0: 58 42 3A 59 B2 59 42 3A  8D 36 37 3A 59 B2 59 42  |XB:Y.YB:.67:Y.YB|
00000B00: 3A 47 B2 30 3A 48 B2 AB  59 53 AD 32 3A 49 B2 58  |:G.0:H..YS.2:I.X|
00000B10: 42 3A 4B B2 30 3A 81 4E  B2 31 A4 59 44 3A 58 B2  |B:K.0:.N.1.YD:X.|
00000B20: 30 3A 8D 36 36 3A 82 3A  58 B2 30 3A 59 B2 30 3A  |0:.66:.:X.0:Y.0:|
00000B30: 48 B2 30 3A 49 B2 30 3A  98 35 2C 30 3A 8D 36 37  |H.0:I.0:.5,0:.67|
00000B40: 3A 89 35 38 00 5C 13 42  00 98 35 2C 30 3A 8D 36  |:.58.\.B..5,0:.6|
00000B50: 37 3A 98 35 2C 39 3A 8D  36 37 3A 8E 00 9E 13 43  |7:.5,9:.67:....C|
00000B60: 00 97 42 50 2C 42 43 3A  98 31 2C 22 44 22 2C 58  |..BP,BC:.1,"D",X|
00000B70: 2C 59 3A 97 42 50 2C 42  4E 3A 58 B2 58 AA 47 3A  |,Y:.BP,BN:X.X.G:|
00000B80: 59 B2 59 AA 48 3A 98 31  2C 22 4D 22 2C 58 2C 59  |Y.Y.H:.1,"M",X,Y|
00000B90: 3A 58 B2 58 AA 49 3A 59  B2 59 AA 4B 3A 8E 00 D5  |:X.X.I:Y.Y.K:...|
00000BA0: 13 44 00 8B 58 48 B2 30  A7 99 22 93 12 11 50 4C  |.D..XH.0.."...PL|
00000BB0: 4F 54 20 42 45 46 4F 52  45 20 41 55 54 4F 4C 41  |OT BEFORE AUTOLA|
00000BC0: 42 45 4C 92 22 3A 81 4E  B2 31 A4 32 30 30 30 3A  |BEL.":.N.1.2000:|
00000BD0: 82 3A 89 37 33 00 B6 14  45 00 53 24 B2 C4 28 58  |.:.73...E.S$..(X|
00000BE0: 4D 29 3A 58 B2 30 3A 59  B2 AB 38 30 30 AD 5A 41  |M):X.0:Y..800.ZA|
00000BF0: 3A 8D 34 37 3A 53 24 B2  C4 28 58 46 29 3A 58 B2  |:.47:S$..(XF):X.|
00000C00: 58 42 3A 59 B2 AB 38 30  30 AD 5A 41 3A 8D 34 37  |XB:Y..800.ZA:.47|
00000C10: 3A 58 B2 28 58 42 AD 32  AB C3 28 58 24 29 AC 32  |:X.(XB.2..(X$).2|
00000C20: 32 30 AD 5A 41 29 3A 59  B2 AB 32 30 30 30 AD 5A  |20.ZA):Y..2000.Z|
00000C30: 41 3A 43 24 B2 58 24 3A  8D 34 35 3A 58 B2 28 58  |A:C$.X$:.45:X.(X|
00000C40: 42 AD 32 AB C3 28 4D 33  24 29 AC 32 32 30 AD 5A  |B.2..(M3$).220.Z|
00000C50: 41 29 3A 59 B2 AB 33 32  30 30 AD 5A 41 3A 43 24  |A):Y..3200.ZA:C$|
00000C60: B2 4D 33 24 3A 8D 34 35  3A 59 B2 30 3A 53 B2 59  |.M3$:.45:Y.0:S.Y|
00000C70: 4D 3A 8D 37 31 3A 8D 34  35 3A 59 B2 59 42 3A 53  |M:.71:.45:Y.YB:S|
00000C80: B2 59 46 3A 8D 37 31 3A  8D 34 35 3A 58 B2 58 42  |.YF:.71:.45:X.XB|
00000C90: AA 31 32 30 30 AD 5A 41  3A 59 B2 59 42 AD 32 AA  |.1200.ZA:Y.YB.2.|
00000CA0: C3 28 59 24 29 AC 32 32  30 AD 5A 41 3A 53 24 B2  |.(Y$).220.ZA:S$.|
00000CB0: 59 24 3A 8D 34 37 00 E3  14 46 00 97 42 50 2C 42  |Y$:.47...F..BP,B|
00000CC0: 4E 3A 98 31 2C 22 4D 22  2C 58 2C 30 3A 58 B2 30  |N:.1,"M",X,0:X.0|
00000CD0: 3A 59 B2 30 3A 98 31 2C  22 4D 22 2C 58 2C 59 3A  |:Y.0:.1,"M",X,Y:|
00000CE0: 89 35 38 00 17 15 47 00  43 24 B2 C4 28 53 29 3A  |.58...G.C$..(S):|
00000CF0: 4C B2 C3 28 43 24 29 3A  58 B2 58 42 3A 8B 4C B1  |L..(C$):X.XB:.L.|
00000D00: 5A 41 AD 37 A7 58 B2 28  58 42 AA 36 34 29 AB 4C  |ZA.7.X.(XB.64).L|
00000D10: AC 34 34 30 AD 5A 41 00  1D 15 48 00 8E 00 53 15  |.440.ZA...H...S.|
00000D20: 49 00 8B 58 42 B2 30 A7  99 22 11 11 12 45 4E 54  |I..XB.0.."...ENT|
00000D30: 45 52 20 47 52 49 44 20  44 41 54 41 20 46 49 52  |ER GRID DATA FIR|
00000D40: 53 54 92 22 3A 81 4E B2  31 A4 32 45 33 3A 82 3A  |ST.":.N.1.2E3:.:|
00000D50: 89 36 34 00 41 16 4A 00  99 22 93 11 22 4D 31 24  |.64.A.J..".."M1$|
00000D60: 3A 99 4D 32 24 3A 99 22  11 12 22 3B 4D 33 24 3B  |:.M2$:."..";M3$;|
00000D70: 22 92 22 3A 99 22 11 12  22 58 24 22 92 20 4C 45  |".":.".."X$". LE|
00000D80: 46 54 20 4D 41 52 47 49  4E 20 22 3B 58 4D 3B 3A  |FT MARGIN ";XM;:|
00000D90: 85 58 4D 3A 58 B2 58 4D  3A 99 22 11 12 22 59 24  |.XM:X.XM:.".."Y$|
00000DA0: 22 92 20 42 4F 54 54 4F  4D 20 4D 41 52 47 49 4E  |". BOTTOM MARGIN|
00000DB0: 20 22 3B 59 4D 3B 3A 85  59 4D 3A 99 22 11 12 22  | ";YM;:.YM:.".."|
00000DC0: 58 24 22 92 20 52 49 47  48 54 20 4D 41 52 47 49  |X$". RIGHT MARGI|
00000DD0: 4E 20 22 3B 58 46 3B 3A  85 58 46 3A 58 55 B2 58  |N ";XF;:.XF:XU.X|
00000DE0: 46 3A 99 22 11 12 22 59  24 22 92 20 54 4F 50 20  |F:.".."Y$". TOP |
00000DF0: 4D 41 52 47 49 4E 20 22  3B 59 46 3B 3A 85 59 46  |MARGIN ";YF;:.YF|
00000E00: 3A 58 4F B2 58 42 AC 58  4D AD 28 58 4D AB 58 46  |:XO.XB.XM.(XM.XF|
00000E10: 29 3A 59 4F B2 59 42 AC  59 4D AD 28 59 4D AB 59  |):YO.YB.YM.(YM.Y|
00000E20: 46 29 3A 8B 58 4F B3 30  B0 58 4F B1 58 42 B0 59  |F):.XO.0.XO.XB.Y|
00000E30: 4F B3 30 B0 59 4F B1 59  42 B0 53 31 B2 30 A7 37  |O.0.YO.YB.S1.0.7|
00000E40: 36 00 9C 16 4B 00 98 31  2C 22 4D 22 2C 58 4F 2C  |6...K..1,"M",XO,|
00000E50: 59 4F AB 36 3A 98 31 2C  22 49 22 3A 97 42 50 2C  |YO.6:.1,"I":.BP,|
00000E60: 42 43 3A 98 31 2C 22 4A  22 2C 34 2C 36 3A 98 31  |BC:.1,"J",4,6:.1|
00000E70: 2C 22 4A 22 2C 30 2C 31  32 3A 98 31 2C 22 4A 22  |,"J",0,12:.1,"J"|
00000E80: 2C AB 34 2C 36 3A 98 31  2C 22 4A 22 2C 30 2C 30  |,.4,6:.1,"J",0,0|
00000E90: 3A 53 31 B2 30 3A 97 42  50 2C 42 4E 00 C9 16 4C  |:S1.0:.BP,BN...L|
00000EA0: 00 99 22 11 12 22 58 24  22 92 2C 20 53 54 41 52  |..".."X$"., STAR|
00000EB0: 54 20 50 4C 4F 54 20 22  3B 58 3B 3A 85 58 3A 8B  |T PLOT ";X;:.X:.|
00000EC0: 58 B3 58 4D A7 58 B2 58  4D 00 22 17 4D 00 58 45  |X.XM.X.XM.".M.XE|
00000ED0: B2 B5 28 58 42 AC 28 58  AB 58 4D 29 AD 28 58 46  |..(XB.(X.XM).(XF|
00000EE0: AB 58 4D 29 29 3A 98 31  2C 22 4D 22 2C 58 45 2C  |.XM)):.1,"M",XE,|
00000EF0: 30 3A 58 55 B2 58 46 3A  99 22 11 12 22 58 24 22  |0:XU.XF:.".."X$"|
00000F00: 92 2C 20 45 4E 44 20 50  4C 4F 54 20 22 3B 58 55  |., END PLOT ";XU|
00000F10: 3B 3A 85 58 55 3A 8B 58  55 B1 58 46 A7 58 55 B2  |;:.XU:.XU.XF.XU.|
00000F20: 58 46 00 6B 17 4E 00 58  48 B2 58 42 AC 28 58 55  |XF.k.N.XH.XB.(XU|
00000F30: AB 58 4D 29 AD 28 58 46  AB 58 4D 29 3A 81 4E B2  |.XM).(XF.XM):.N.|
00000F40: 31 A4 34 3A 8B 56 24 28  4E 29 B3 B1 22 22 A7 99  |1.4:.V$(N)..""..|
00000F50: 22 11 12 22 56 24 28 4E  29 22 92 20 22 3B 56 28  |".."V$(N)". ";V(|
00000F60: 4E 29 3B 3A 85 56 28 4E  29 3A 82 00 7E 17 4F 00  |N);:.V(N):..~.O.|
00000F70: A1 42 24 3A 8B 42 24 B3  B1 22 22 A7 37 39 00 A4  |.B$:.B$.."".79..|
00000F80: 17 50 00 99 22 93 22 3A  8B 46 31 24 B3 B1 22 22  |.P..".":.F1$..""|
00000F90: A7 99 22 11 12 20 46 31  20 92 20 50 4C 4F 54 20  |..".. F1 . PLOT |
00000FA0: 22 46 31 24 00 C5 17 51  00 8B 46 33 24 B3 B1 22  |"F1$...Q..F3$.."|
00000FB0: 22 A7 99 22 11 12 20 46  33 20 92 20 50 4C 4F 54  |"..".. F3 . PLOT|
00000FC0: 20 22 46 33 24 00 48 18  52 00 99 22 11 12 20 46  | "F3$.H.R..".. F|
00000FD0: 35 20 92 20 56 49 44 45  4F 20 55 50 44 41 54 45  |5 . VIDEO UPDATE|
00000FE0: 20 4F 4E 2F 4F 46 46 22  3A 99 22 11 12 20 46 37  | ON/OFF":.".. F7|
00000FF0: 20 92 20 52 45 54 55 52  4E 20 54 4F 20 4D 45 4E  | . RETURN TO MEN|
00001000: 55 22 3A 99 22 11 12 20  53 50 41 43 45 20 92 20  |U":.".. SPACE . |
00001010: 53 54 4F 50 11 22 3A 56  B2 31 3A 99 53 53 24 22  |STOP.":V.1:.SS$"|
00001020: 11 11 11 11 11 22 3A 99  22 12 22 42 42 24 3A 99  |.....":."."BB$:.|
00001030: 22 11 12 22 58 24 22 92  22 3B 58 3A 99 22 11 12  |".."X$".";X:."..|
00001040: 22 59 24 22 92 22 3B 59  00 63 18 53 00 45 24 B2  |"Y$".";Y.c.S.E$.|
00001050: 42 24 3A A1 42 24 3A 8B  42 24 B2 22 22 A7 42 24  |B$:.B$:.B$."".B$|
00001060: B2 45 24 00 84 18 54 00  8B 42 24 B1 22 30 22 AF  |.E$...T..B$."0".|
00001070: 42 24 B3 22 3A 22 A7 57  B2 C5 28 42 24 29 3A 42  |B$.":".W..(B$):B|
00001080: 24 B2 45 24 00 A4 18 55  00 8D 32 39 3A 8B 42 B1  |$.E$...U..29:.B.|
00001090: 30 AF 42 B3 35 A7 91 42  89 38 38 2C 38 38 2C 38  |0.B.5..B.88,88,8|
000010A0: 37 2C 35 38 00 AC 18 56  00 89 38 33 00 C3 18 57  |7,58...V..83...W|
000010B0: 00 56 B2 B6 28 56 29 AB  31 3A 42 24 B2 45 24 3A  |.V..(V).1:B$.E$:|
000010C0: 89 38 33 00 F0 18 58 00  58 B2 58 45 AD 58 42 AC  |.83...X.X.XE.XB.|
000010D0: 28 58 46 AB 58 4D 29 AA  58 4D 3A 8B 42 B2 31 A7  |(XF.XM).XM:.B.1.|
000010E0: 42 42 24 B2 46 31 24 3A  8D 31 30 30 3A 89 39 30  |BB$.F1$:.100:.90|
000010F0: 00 01 19 59 00 42 42 24  B2 46 33 24 3A 8D 31 30  |...Y.BB$.F3$:.10|
00001100: 35 00 27 19 5A 00 59 45  B2 59 42 AC 28 59 AB 59  |5.'.Z.YE.YB.(Y.Y|
00001110: 4D 29 AD 28 59 46 AB 59  4D 29 3A 8B 59 45 B1 59  |M).(YF.YM):.YE.Y|
00001120: 42 A7 59 45 B2 59 42 00  36 19 5B 00 8B 59 45 B3  |B.YE.YB.6.[..YE.|
00001130: 30 A7 59 45 B2 30 00 70  19 5C 00 97 42 50 2C 42  |0.YE.0.p.\..BP,B|
00001140: 43 3A 98 31 2C 22 44 22  2C 58 45 2C 59 45 3A 97  |C:.1,"D",XE,YE:.|
00001150: 42 50 2C 42 4E 3A 8B 58  45 B2 58 48 A7 58 B2 58  |BP,BN:.XE.XH.X.X|
00001160: 45 3A 98 31 2C 22 44 22  2C 58 2C 30 3A 89 37 30  |E:.1,"D",X,0:.70|
00001170: 00 89 19 5D 00 58 45 B2  58 45 AA 57 3A 8B 58 45  |...].XE.XE.W:.XE|
00001180: B1 58 48 A7 58 45 B2 58  48 00 95 19 5E 00 8B 56  |.XH.XE.XH...^..V|
00001190: B2 30 A7 38 33 00 9D 19  5F 00 89 38 30 00 B5 19  |.0.83..._..80...|
000011A0: 64 00 59 B2 56 28 31 29  AC BF 28 58 AC FF AD 31  |d.Y.V(1)..(X...1|
000011B0: 38 30 29 3A 8E 00 CD 19  69 00 59 B2 56 28 31 29  |80):....i.Y.V(1)|
000011C0: AC BE 28 58 AC FF AD 31  38 30 29 3A 8E 00 FB 19  |..(X...180):....|
000011D0: 6E 00 4D 31 24 B2 22 53  41 4D 50 4C 45 20 50 52  |n.M1$."SAMPLE PR|
000011E0: 4F 47 52 41 4D 2C 54 52  49 47 2E 20 53 54 55 44  |OGRAM,TRIG. STUD|
000011F0: 59 20 4C 49 4E 45 53 20  31 30 30 00 2B 1A 73 00  |Y LINES 100.+.s.|
00001200: 4D 32 24 B2 22 54 48 52  55 20 32 34 35 20 26 20  |M2$."THRU 245 & |
00001210: 43 52 45 41 54 45 20 59  4F 55 52 20 4F 57 4E 20  |CREATE YOUR OWN |
00001220: 41 50 50 4C 49 43 41 54  49 4F 4E 00 4A 1A 78 00  |APPLICATION.J.x.|
00001230: 4D 33 24 B2 22 53 49 4E  45 20 41 4E 44 20 43 4F  |M3$."SINE AND CO|
00001240: 53 49 4E 45 20 57 41 56  45 53 00 70 1A 7D 00 58  |SINE WAVES.p.}.X|
00001250: 24 B2 22 41 4E 47 4C 45  2C 44 45 47 52 45 45 53  |$."ANGLE,DEGREES|
00001260: 22 3A 58 4D B2 AB 33 36  30 3A 58 46 B2 33 36 30  |":XM..360:XF.360|
00001270: 00 95 1A 82 00 59 24 B2  22 41 4D 50 4C 49 54 55  |.....Y$."AMPLITU|
00001280: 44 45 2C 46 45 45 54 22  3A 59 4D B2 AB 31 30 3A  |DE,FEET":YM..10:|
00001290: 59 46 B2 31 30 00 B0 1A  87 00 56 24 28 31 29 B2  |YF.10.....V$(1).|
000012A0: 22 52 41 44 49 55 53 22  3A 56 28 31 29 B2 31 30  |"RADIUS":V(1).10|
000012B0: 00 BD 1A 8C 00 56 24 28  32 29 B2 22 22 00 CA 1A  |.....V$(2).""...|
000012C0: 91 00 56 24 28 33 29 B2  22 22 00 D7 1A 96 00 56  |..V$(3)."".....V|
000012D0: 24 28 34 29 B2 22 22 00  E9 1A 9B 00 46 31 24 B2  |$(4)."".....F1$.|
000012E0: 22 53 49 4E 45 57 41 56  45 00 FD 1A A0 00 46 33  |"SINEWAVE.....F3|
000012F0: 24 B2 22 43 4F 53 49 4E  45 57 41 56 45 00 03 1B  |$."COSINEWAVE...|
00001300: A5 00 8E 00 50 1B C8 00  8F 20 4C 49 4E 45 53 20  |....P.... LINES |
00001310: 31 30 30 2D 31 36 35 20  4D 41 59 20 42 45 20 52  |100-165 MAY BE R|
00001320: 45 56 49 53 45 44 20 54  4F 20 53 45 54 20 55 50  |EVISED TO SET UP|
00001330: 20 59 4F 55 52 20 4F 57  4E 20 50 52 4F 47 52 41  | YOUR OWN PROGRA|
00001340: 4D 2E 31 30 30 2D 31 30  39 20 44 45 46 49 4E 45  |M.100-109 DEFINE|
00001350: 00 9B 1B CD 00 8F 20 59  20 49 4E 20 54 45 52 4D  |...... Y IN TERM|
00001360: 53 20 4F 46 20 58 20 41  4E 44 20 56 41 52 49 41  |S OF X AND VARIA|
00001370: 42 4C 45 53 20 56 28 31  29 2D 56 28 34 29 20 46  |BLES V(1)-V(4) F|
00001380: 4F 52 20 32 20 45 51 55  41 54 49 4F 4E 53 2E 20  |OR 2 EQUATIONS. |
00001390: 31 30 30 2D 31 30 34 20  46 4F 52 00 E8 1B D2 00  |100-104 FOR.....|
000013A0: 8F 20 54 48 45 20 46 31  24 20 56 41 52 49 41 54  |. THE F1$ VARIAT|
000013B0: 49 4F 4E 2C 20 41 4E 44  31 30 35 2D 31 30 39 20  |ION, AND105-109 |
000013C0: 46 4F 52 20 46 33 24 2E  54 48 45 53 45 20 4D 41  |FOR F3$.THESE MA|
000013D0: 59 20 42 45 20 53 49 4E  47 4C 45 20 45 51 55 41  |Y BE SINGLE EQUA|
000013E0: 54 49 4F 4E 53 20 4F 52  00 36 1C D7 00 8F 20 53  |TIONS OR.6.... S|
000013F0: 48 4F 52 54 20 50 52 4F  47 52 41 4D 53 2C 26 20  |HORT PROGRAMS,& |
00001400: 4D 55 53 54 20 45 4E 44  20 57 49 54 48 20 3A 52  |MUST END WITH :R|
00001410: 45 54 55 52 4E 2E 4D 31  24 2D 4D 33 24 20 41 50  |ETURN.M1$-M3$ AP|
00001420: 50 45 41 52 20 41 53 20  42 41 4E 4E 45 52 53 20  |PEAR AS BANNERS |
00001430: 4F 4E 20 54 48 45 00 81  1C DC 00 8F 20 45 51 55  |ON THE...... EQU|
00001440: 41 54 49 4F 4E 20 50 4C  4F 54 20 53 43 52 45 45  |ATION PLOT SCREE|
00001450: 4E 2E 20 4D 33 24 20 49  53 20 50 52 49 4E 54 45  |N. M3$ IS PRINTE|
00001460: 44 20 41 53 20 54 48 45  20 47 52 41 50 48 20 54  |D AS THE GRAPH T|
00001470: 49 54 4C 45 2E 20 58 24  20 26 20 59 24 20 41 52  |ITLE. X$ & Y$ AR|
00001480: 45 00 CC 1C E1 00 8F 20  50 52 49 4E 54 45 44 20  |E...... PRINTED |
00001490: 4F 4E 20 54 48 45 20 47  52 41 50 48 20 41 53 20  |ON THE GRAPH AS |
000014A0: 41 58 49 53 20 54 49 54  4C 45 53 2E 58 4D 2C 59  |AXIS TITLES.XM,Y|
000014B0: 4D 2C 58 46 2C 59 46 20  41 52 45 20 4D 49 4E 20  |M,XF,YF ARE MIN |
000014C0: 26 20 46 55 4C 4C 20 53  43 41 4C 45 00 1A 1D E6  |& FULL SCALE....|
000014D0: 00 8F 20 44 45 46 41 55  4C 54 20 56 41 4C 55 45  |.. DEFAULT VALUE|
000014E0: 53 20 4F 46 20 58 20 26  20 59 20 53 55 47 47 45  |S OF X & Y SUGGE|
000014F0: 53 54 45 44 20 41 53 20  47 52 41 50 48 20 4D 41  |STED AS GRAPH MA|
00001500: 52 47 49 4E 20 56 41 4C  55 45 53 20 49 4E 20 54  |RGIN VALUES IN T|
00001510: 48 45 20 50 52 4F 47 52  41 4D 00 67 1D EB 00 8F  |HE PROGRAM.g....|
00001520: 20 56 24 28 31 29 2D 56  24 28 34 29 20 4E 41 4D  | V$(1)-V$(4) NAM|
00001530: 45 20 56 41 52 49 41 42  4C 45 53 20 56 28 31 29  |E VARIABLES V(1)|
00001540: 2D 56 28 34 29 2E 41 4C  4C 20 44 45 46 41 55 4C  |-V(4).ALL DEFAUL|
00001550: 54 20 56 41 4C 55 45 53  20 41 52 45 20 4F 50 54  |T VALUES ARE OPT|
00001560: 49 4F 4E 41 4C 20 26 00  B5 1D F0 00 8F 20 43 48  |IONAL &...... CH|
00001570: 41 4E 47 45 41 42 4C 45  20 49 4E 20 50 52 4F 47  |ANGEABLE IN PROG|
00001580: 52 41 4D 2E 20 4C 49 4D  49 54 20 54 45 58 54 20  |RAM. LIMIT TEXT |
00001590: 56 41 52 49 41 42 4C 45  53 20 54 4F 20 32 30 20  |VARIABLES TO 20 |
000015A0: 43 48 52 53 2E 20 53 45  54 20 55 4E 55 53 45 44  |CHRS. SET UNUSED|
000015B0: 20 54 45 58 54 00 02 1E  F5 00 8F 20 56 41 52 49  | TEXT...... VARI|
000015C0: 41 42 4C 45 53 20 54 4F  20 22 22 2E 20 49 4E 56  |ABLES TO "". INV|
000015D0: 41 4C 49 44 20 49 4E 50  55 54 53 2F 4D 41 54 48  |ALID INPUTS/MATH|
000015E0: 20 45 58 49 54 20 50 47  4D 2E 20 54 4F 20 52 45  | EXIT PGM. TO RE|
000015F0: 45 4E 54 45 52 2C 47 4F  54 4F 34 2D 52 45 54 55  |ENTER,GOTO4-RETU|
00001600: 52 4E 00 00 00 00                                 |RN....          |

.......110.J....25:.".....".9)"PUBLIC DO
MAIN PROGRAM..":..12)".1520XYGRAPH V3.0.
.."G(13).14)"JACK BABCOCK.":..15)"RIALTO
, CA..............MARCH 1988...":."....1
520 PRINTER/PLOTTER MUST BE ON":.N.1.2E3
:..H...MM$.". F1 .MAIN/LINE MENU.":MP$."
. F5 .PRINT MENU.":LN$.".":LM$.".":MC$."
. F3 .COLOR MENU.":MG$.". F7 .GRAPH MENU
.":DL$."(DRAW LINE).":SS$.". 1-9 . CONTR
OL STEP SIZE.":.4,6:.1,6,1:.2,6,2:.3,6,3
:.44,6,4:.5,6,5:.6,6,6:W.5:ZA.40:..24)".
..........":.2,0.P....25......B$:.B$..""
.5......LN$".".9)MM$:.LM$;MC$:.MP$:.MG$;
LN$:.".-. = SOLID/DASH LINE.":.".S.TOP P
ROGRAM .SPACE.STOP PEN.":.".R.IGHT"DL$:.
".L.EFT"DL$:.".U.P"DL$:.".D.OWN"DL$:.".Q
.UIT PROGRAM.":.SS$:.".JOYSTICK #2 & CUR
SOR KEYS CONTROL PEN";.H...E$.B$......B$
:J.B(56320).31:.B$."".B$.E$......B$."0".
B$.":".W.E(B$):.8.#....B$."R".J.7.X.X.W:
.23.>....B$."L".J.11.X.X.W:.23.Y....B$."
U".J.14.Y.Y.W:.23.T....B$."D".J.13.Y.Y.W
:.23......B$.".".J.23.X.X.W:.24......B$.
".".J.27.X.X.W:.24.E....B$.".".J.30.Y.Y.
W:.24......B$.".".J.29.Y.Y.W:.24......29
:.B.0.B.5.31......B$."-".26......B$."Q".
.:..$....B$."S"..:.5.+....7.K....BP,BC:.
1,"D",X,Y:.BP,BN:.7.]....1,"M",X,Y:.7...
...53281,1:BP.53280:BN.15:BC.11:.BP,BN:.
.E...."..TYPE.0.(SOLID)OR .1-15.(DASH) L
INE";ZL;:.ZL:.5,ZL:.5.X....B$:.B$.."".27
......B$:.B$."".28......B$.."".B.F(B$).1
32:......B.0:.. ....B.5,52,32,58... ..LN
$"..".11)MP$:.LM$;MM$:.MC$:.MG$;LN$:.".T
.YPE SIZE.":.".U.PPER/LOWER CASE.":.".E.
QUATION VARIABLES.":.".H.ORIZONTAL TEXT.
":.".V.ERTICAL TEXT..H.!..27:.B.0.B.5.31
.W."..B$."E".40...#..B$."H"..44:.32...$.
.B$."V"..46:.32...%..B$."T".49...&..B$."
U".50.%.'..33.A.(.I.0:.N.1.4:.V$(N)."".4
2.D.).I.I.1:D$(I).V$(N)." =".D(V(N))...*
..:."...":.N.1.I:.D$(N):.:."....PEN OK? 
PRINT ON GRAPH?.Y/N.":.27:.B$.."Y".32.S.
+..N.1.I:C$.D$(N):.45:.:.32...,.."TEXT";
C$...-..44,0:.1,"M",X,Y:.48:Y.Y.800.ZA:.
1,"M",X,Y:.."...."TEXT";S$.B./..44,1:.N.
1.C(S$):.1,"M",X,Y:C$.J(S$,N,1):.48:Y.Y.
440.ZA:.:..}.0..BP,BC:.4,C$;:.BP,BN:..J.
1.."..SELECT 10,20,40,OR 80 SPACE LINE";
ZA;:.ZA:ZM..(80.ZA)..(2):.3,ZM:.32.'.2..
"...0. = NORMAL UPPER CASE":."..1. = NOR
MAL LOWER CASE":.27:.B$."0".B$."1"..6,E(
B$):.32./.3..50...4..LN$"..".12)MC$:.LM$
;MM$:.MP$:.MG$;LN$:.".1.=BLACK PEN.":.".
7.=BLUE PEN.":.".3.=RED PEN.":.".6.=GREE
N PEN.":.27:.B.0.B.5.31.F.5..B$."1".BC.1
1:PC.0...6..B$."7".BC.6:PC.1...7..B$."3"
.BC.2:PC.3...8..B$."6".BC.5:PC.2.$.9..BP
,BC:.2,PC:.BP,BN:.52...:..LN$"..".11)MG$
:.LM$;MM$:.MC$:.MP$;LN$:.".#.NEW GRAPH-D
RAW GRIDLINES.":.".E.QUATION PLOTTING.":
.".A.UTOLABEL GRAPH....;..27:.B.0.B.5.31
...<..B$."#".64.N.=..B$."E".73...>..B$."
A".68...?..59...@.XD.10:."..# OF DIVISIO
NS WIDE "XD;:.XD:.:YD.10:."# OF DIVISION
S HIGH "YD;:.YD:.:XS..(400.XD):XB.XS.XD:
YS..(400.YD):YB.YS.YD:."DRAW GRAPH LINES
? .Y/N..":.27:.B$.."Y".58.D.A..1,"M",0,.
510:.4:X.0:Y.0:S1.1:.5,0:X.0:G.XS.2:H.0:
I.0:K..YB:.N.1.XD:Y.YB:.66:.:.5,0:G.0:X.
XB:Y.YB:.67:Y.YB:G.0:H..YS.2:I.XB:K.0:.N
.1.YD:X.0:.66:.:X.0:Y.0:H.0:I.0:.5,0:.67
:.58.\.B..5,0:.67:.5,9:.67:....C..BP,BC:
.1,"D",X,Y:.BP,BN:X.X.G:Y.Y.H:.1,"M",X,Y
:X.X.I:Y.Y.K:..U.D..XH.0.."...PLOT BEFOR
E AUTOLABEL.":.N.1.2000:.:.73...E.S$.D(X
M):X.0:Y..800.ZA:.47:S$.D(XF):X.XB:Y..80
0.ZA:.47:X.(XB.2.C(X$).220.ZA):Y..2000.Z
A:C$.X$:.45:X.(XB.2.C(M3$).220.ZA):Y..32
00.ZA:C$.M3$:.45:Y.0:S.YM:.71:.45:Y.YB:S
.YF:.71:.45:X.XB.1200.ZA:Y.YB.2.C(Y$).22
0.ZA:S$.Y$:.47...F..BP,BN:.1,"M",X,0:X.0
:Y.0:.1,"M",X,Y:.58...G.C$.D(S):L.C(C$):
X.XB:.L.ZA.7.X.(XB.64).L.440.ZA...H...S.
I..XB.0.."...ENTER GRID DATA FIRST.":.N.
1.2E3:.:.64.A.J..".."M1$:.M2$:."..";M3$;
".":.".."X$". LEFT MARGIN ";XM;:.XM:X.XM
:.".."Y$". BOTTOM MARGIN ";YM;:.YM:.".."
X$". RIGHT MARGIN ";XF;:.XF:XU.XF:.".."Y
$". TOP MARGIN ";YF;:.YF:XO.XB.XM.(XM.XF
):YO.YB.YM.(YM.YF):.XO.0.XO.XB.YO.0.YO.Y
B.S1.0.76...K..1,"M",XO,YO.6:.1,"I":.BP,
BC:.1,"J",4,6:.1,"J",0,12:.1,"J",.4,6:.1
,"J",0,0:S1.0:.BP,BN.I.L..".."X$"., STAR
T PLOT ";X;:.X:.X.XM.X.XM.".M.XE..(XB.(X
.XM).(XF.XM)):.1,"M",XE,0:XU.XF:.".."X$"
., END PLOT ";XU;:.XU:.XU.XF.XU.XF.K.N.X
H.XB.(XU.XM).(XF.XM):.N.1.4:.V$(N)..""..
".."V$(N)". ";V(N);:.V(N):..~.O..B$:.B$.
."".79...P..".":.F1$..""..".. F1 . PLOT 
"F1$.E.Q..F3$..""..".. F3 . PLOT "F3$.H.
R..".. F5 . VIDEO UPDATE ON/OFF":.".. F7
 . RETURN TO MENU":.".. SPACE . STOP.":V
.1:.SS$".....":."."BB$:.".."X$".";X:."..
"Y$".";Y.C.S.E$.B$:.B$:.B$."".B$.E$...T.
.B$."0".B$.":".W.E(B$):B$.E$...U..29:.B.
0.B.5..B.88,88,87,58...V..83.C.W.V..(V).
1:B$.E$:.83...X.X.XE.XB.(XF.XM).XM:.B.1.
BB$.F1$:.100:.90...Y.BB$.F3$:.105.'.Z.YE
.YB.(Y.YM).(YF.YM):.YE.YB.YE.YB.6.[..YE.
0.YE.0.P.\..BP,BC:.1,"D",XE,YE:.BP,BN:.X
E.XH.X.XE:.1,"D",X,0:.70...].XE.XE.W:.XE
.XH.XE.XH...^..V.0.83..._..80...D.Y.V(1)
..(X...180):..M.I.Y.V(1)..(X...180):....
N.M1$."SAMPLE PROGRAM,TRIG. STUDY LINES 
100.+.S.M2$."THRU 245 & CREATE YOUR OWN 
APPLICATION.J.X.M3$."SINE AND COSINE WAV
ES.P.}.X$."ANGLE,DEGREES":XM..360:XF.360
.....Y$."AMPLITUDE,FEET":YM..10:YF.10...
..V$(1)."RADIUS":V(1).10.....V$(2)."".J.
..V$(3)."".W...V$(4)."".....F1$."SINEWAV
E... .F3$."COSINEWAVE.......P.H.. LINES 
100-165 MAY BE REVISED TO SET UP YOUR OW
N PROGRAM.100-109 DEFINE...M.. Y IN TERM
S OF X AND VARIABLES V(1)-V(4) FOR 2 EQU
ATIONS. 100-104 FOR...R.. THE F1$ VARIAT
ION, AND105-109 FOR F3$.THESE MAY BE SIN
GLE EQUATIONS OR.6.W.. SHORT PROGRAMS,& 
MUST END WITH :RETURN.M1$-M3$ APPEAR AS 
BANNERS ON THE...... EQUATION PLOT SCREE
N. M3$ IS PRINTED AS THE GRAPH TITLE. X$
 & Y$ ARE.L.... PRINTED ON THE GRAPH AS 
AXIS TITLES.XM,YM,XF,YF ARE MIN & FULL S
CALE...... DEFAULT VALUES OF X & Y SUGGE
STED AS GRAPH MARGIN VALUES IN THE PROGR
AM.G.... V$(1)-V$(4) NAME VARIABLES V(1)
-V(4).ALL DEFAULT VALUES ARE OPTIONAL &.
..... CHANGEABLE IN PROGRAM. LIMIT TEXT 
VARIABLES TO 20 CHRS. SET UNUSED TEXT...
... VARIABLES TO "". INVALID INPUTS/MATH
 EXIT PGM. TO REENTER,GOTO4-RETURN....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL