00000000: 01 04 11 04 28 00 8F 20 4D 55 4C 54 49 50 4C 4F |....(.. MULTIPLO|
00000010: 54 00 28 04 32 00 8F 20 57 4F 4E 47 20 48 41 4E |T.(.2.. WONG HAN|
00000020: 47 20 46 45 42 20 38 30 00 3F 04 36 00 8F 20 43 |G FEB 80.?.6.. C|
00000030: 4F 4C 55 4D 42 49 41 20 43 4F 4C 4C 45 47 45 00 |OLUMBIA COLLEGE.|
00000040: 5F 04 38 00 8F 20 31 36 31 39 20 57 31 30 20 41 |_.8.. 1619 W10 A|
00000050: 56 45 20 56 41 4E 43 4F 55 56 45 52 20 42 43 00 |VE VANCOUVER BC.|
00000060: 6D 04 3C 00 97 35 39 34 36 38 2C 31 32 00 8B 04 |m.<..59468,12...|
00000070: 46 00 51 4C B2 32 31 36 3A 8B C2 28 35 30 30 30 |F.QL.216:..(5000|
00000080: 30 29 B2 30 A7 51 4C B2 32 34 35 00 A8 04 50 00 |0).0.QL.245...P.|
00000090: 8D 20 32 32 30 3A 8F 20 3C 3C 3C 20 49 4E 53 54 |. 220:. <<< INST|
000000A0: 52 55 43 54 49 4F 4E 53 00 C8 04 5A 00 8D 34 33 |RUCTIONS...Z..43|
000000B0: 30 3A 8F 20 3C 3C 3C 20 44 45 46 49 4E 45 20 46 |0:. <<< DEFINE F|
000000C0: 55 4E 43 54 49 4F 4E 53 00 E6 04 64 00 51 4C B2 |UNCTIONS...d.QL.|
000000D0: 32 31 36 3A 8B C2 28 35 30 30 30 30 29 B2 30 A7 |216:..(50000).0.|
000000E0: 51 4C B2 32 34 35 00 02 05 6E 00 51 28 31 29 B2 |QL.245...n.Q(1).|
000000F0: 38 31 3A 51 28 32 29 B2 38 37 3A 51 28 33 29 B2 |81:Q(2).87:Q(3).|
00000100: 34 32 00 0B 05 78 00 8D 33 39 30 00 14 05 82 00 |42...x..390.....|
00000110: 99 22 93 22 00 43 05 8C 00 85 22 12 49 4E 50 55 |.".".C....".INPU|
00000120: 54 20 4E 4F 2E 20 4F 46 20 46 55 4E 43 54 49 4F |T NO. OF FUNCTIO|
00000130: 4E 53 20 54 4F 20 42 45 20 50 4C 4F 54 54 45 44 |NS TO BE PLOTTED|
00000140: 22 3B 4E 00 54 05 96 00 8B 4E B3 31 B0 4E B1 33 |";N.T....N.1.N.3|
00000150: A7 31 34 30 00 62 05 A0 00 8D 36 38 30 3A 89 31 |.140.b....680:.1|
00000160: 39 30 00 7C 05 AA 00 8D 36 31 30 3A 8F 20 3C 3C |90.|....610:. <<|
00000170: 3C 20 58 2D 59 20 42 4F 55 4E 44 53 00 8B 05 B4 |< X-Y BOUNDS....|
00000180: 00 8B 59 24 B2 22 4E 22 A7 39 30 00 A4 05 BE 00 |..Y$."N".90.....|
00000190: 8D 37 31 30 3A 8F 20 3C 3C 3C 20 44 52 41 57 20 |.710:. <<< DRAW |
000001A0: 41 58 45 53 00 BF 05 C8 00 8D 38 39 30 3A 8F 20 |AXES......890:. |
000001B0: 3C 3C 3C 20 50 4C 4F 54 20 47 52 41 50 48 53 00 |<<< PLOT GRAPHS.|
000001C0: C8 05 D2 00 89 31 37 30 00 DE 05 DC 00 8F 20 3C |.....170...... <|
000001D0: 3C 3C 20 49 4E 53 54 52 55 43 54 49 4F 4E 00 E7 |<< INSTRUCTION..|
000001E0: 05 E6 00 99 22 93 22 00 06 06 F0 00 99 22 20 20 |...."."......" |
000001F0: 20 20 20 20 20 12 50 4C 4F 54 54 49 4E 47 20 47 | .PLOTTING G|
00000200: 52 41 50 48 53 22 00 0C 06 FA 00 99 00 4E 06 04 |RAPHS".......N..|
00000210: 01 99 3A 99 22 59 4F 55 20 43 41 4E 20 50 4C 4F |..:."YOU CAN PLO|
00000220: 54 20 41 54 20 4D 4F 53 54 20 33 20 46 55 4E 43 |T AT MOST 3 FUNC|
00000230: 54 49 4F 4E 53 20 4F 4E 20 54 48 45 20 53 41 4D |TIONS ON THE SAM|
00000240: 45 20 47 52 49 44 2C 20 41 4E 44 20 22 3B 00 7D |E GRID, AND ";.}|
00000250: 06 0E 01 99 22 59 4F 55 20 43 41 4E 20 53 45 4C |...."YOU CAN SEL|
00000260: 45 43 54 20 41 4E 59 20 20 20 20 20 20 20 53 55 |ECT ANY SU|
00000270: 49 54 41 42 4C 45 20 41 58 45 53 2E 22 00 C0 06 |ITABLE AXES."...|
00000280: 18 01 99 3A 99 22 58 2D 42 4F 55 4E 44 53 20 57 |...:."X-BOUNDS W|
00000290: 48 49 43 48 20 49 4E 43 4C 55 44 45 20 49 4D 41 |HICH INCLUDE IMA|
000002A0: 47 49 4E 41 54 49 56 45 20 4F 52 20 20 20 49 4E |GINATIVE OR IN|
000002B0: 46 49 4E 49 54 45 20 56 41 4C 55 45 53 20 22 3B |FINITE VALUES ";|
000002C0: 00 DA 06 22 01 99 22 53 48 4F 55 4C 44 20 42 45 |...".."SHOULD BE|
000002D0: 20 41 56 4F 49 44 45 44 2E 22 00 0D 07 2C 01 99 | AVOIDED."...,..|
000002E0: 3A 99 22 42 45 46 4F 52 45 20 50 4C 4F 54 54 49 |:."BEFORE PLOTTI|
000002F0: 4E 47 20 41 20 47 52 41 50 48 2C 20 59 4F 55 27 |NG A GRAPH, YOU'|
00000300: 56 45 20 54 4F 20 57 52 49 54 45 22 3B 00 2F 07 |VE TO WRITE";./.|
00000310: 36 01 99 22 54 48 45 20 4E 4F 2E 20 4F 46 20 46 |6.."THE NO. OF F|
00000320: 55 4E 43 54 49 4F 4E 53 20 28 4E 29 20 22 3B 00 |UNCTIONS (N) ";.|
00000330: 52 07 40 01 99 22 41 4E 44 20 44 45 46 49 4E 45 |R.@.."AND DEFINE|
00000340: 20 59 4F 55 52 46 55 4E 43 54 49 4F 4E 28 53 29 | YOURFUNCTION(S)|
00000350: 2E 22 00 84 07 4A 01 99 3A 99 22 28 4E 2E 42 2E |."...J..:."(N.B.|
00000360: 20 49 4E 43 4C 55 44 49 4E 47 20 46 55 4E 43 54 | INCLUDING FUNCT|
00000370: 49 4F 4E 20 4F 46 20 41 20 46 55 4E 43 54 49 4F |ION OF A FUNCTIO|
00000380: 4E 21 29 22 00 AA 07 54 01 99 3A 99 22 54 48 45 |N!)"...T..:."THE|
00000390: 4E 20 12 52 55 4E 20 31 30 30 92 20 54 4F 20 50 |N .RUN 100. TO P|
000003A0: 4C 4F 54 20 47 52 41 50 48 22 00 D4 07 5E 01 99 |LOT GRAPH"...^..|
000003B0: 3A 99 22 20 20 20 20 20 20 20 20 20 12 50 52 45 |:." .PRE|
000003C0: 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F |SS ANY KEY TO CO|
000003D0: 4E 54 2E 22 00 E7 07 68 01 A1 59 24 3A 8B 59 24 |NT."...h..Y$:.Y$|
000003E0: B2 22 22 A7 33 36 30 00 F0 07 72 01 99 22 93 22 |."".360...r.."."|
000003F0: 00 F6 07 7C 01 8E 00 07 08 86 01 96 A5 59 31 28 |...|.........Y1(|
00000400: 58 29 B2 BF 28 58 29 00 22 08 90 01 96 A5 59 32 |X)..(X).".....Y2|
00000410: 28 58 29 B2 20 32 AC BF 28 2E 34 AC 58 AA FF AD |(X). 2..(.4.X...|
00000420: 34 29 00 3C 08 9A 01 96 A5 59 33 28 58 29 B2 A5 |4).<.....Y3(X)..|
00000430: 59 31 28 58 29 AA A5 59 32 28 58 29 00 42 08 A4 |Y1(X)..Y2(X).B..|
00000440: 01 8E 00 5D 08 AE 01 8F 20 3C 3C 3C 20 44 45 46 |...].... <<< DEF|
00000450: 49 4E 45 20 46 55 4E 43 54 49 4F 4E 53 00 66 08 |INE FUNCTIONS.f.|
00000460: B8 01 99 22 93 22 00 7F 08 C2 01 99 22 12 44 45 |..."."......".DE|
00000470: 46 49 4E 45 20 46 55 4E 43 54 49 4F 4E 53 22 00 |FINE FUNCTIONS".|
00000480: A4 08 CC 01 99 3A 99 3A 85 22 4E 4F 2E 20 4F 46 |.....:.:."NO. OF|
00000490: 20 46 55 4E 43 54 49 4F 4E 53 20 28 3C 3D 33 29 | FUNCTIONS (<=3)|
000004A0: 22 3B 4E 47 00 CB 08 D6 01 99 3A 99 22 12 52 45 |";NG......:.".RE|
000004B0: 57 52 49 54 45 20 54 48 45 20 46 4F 4C 4C 4F 57 |WRITE THE FOLLOW|
000004C0: 49 4E 47 20 4C 49 4E 45 53 2C 22 00 E3 08 E0 01 |ING LINES,".....|
000004D0: 99 22 12 54 48 45 4E 20 52 55 4E 31 30 30 20 20 |.".THEN RUN100 |
000004E0: 21 21 22 00 F1 08 EA 01 8B 4E 47 B1 33 A7 34 36 |!!"......NG.3.46|
000004F0: 30 00 05 09 F4 01 91 4E 47 89 35 31 30 2C 35 32 |0......NG.510,52|
00000500: 30 2C 35 33 30 00 12 09 FE 01 9B 33 39 30 AB 33 |0,530......390.3|
00000510: 39 30 00 1F 09 08 02 9B 33 39 30 AB 34 30 30 00 |90......390.400.|
00000520: 2C 09 12 02 9B 33 39 30 AB 34 31 30 00 3B 09 1C |,....390.410.;..|
00000530: 02 8F 20 57 49 50 45 20 4F 55 54 00 45 09 26 02 |.. WIPE OUT.E.&.|
00000540: 99 22 13 22 3B 00 50 09 30 02 81 49 B2 31 A4 4E |.".";.P.0..I.1.N|
00000550: 00 5C 09 3A 02 81 4A B2 31 A4 34 30 00 6E 09 44 |.\.:..J.1.40.n.D|
00000560: 02 99 22 20 22 3B 3A 82 4A 3A 99 3A 82 49 00 78 |.." ";:.J:.:.I.x|
00000570: 09 4E 02 99 22 13 22 3B 00 7E 09 58 02 8E 00 93 |.N..".";.~.X....|
00000580: 09 62 02 8F 20 3C 3C 3C 20 58 2D 59 20 42 4F 55 |.b.. <<< X-Y BOU|
00000590: 4E 44 53 00 AD 09 6C 02 99 22 13 22 3B A3 33 30 |NDS...l..".";.30|
000005A0: 29 22 12 4E 45 57 20 41 58 45 53 3F 22 00 C0 09 |)".NEW AXES?"...|
000005B0: 76 02 A1 59 24 3A 8B 59 24 B2 22 22 A7 36 33 30 |v..Y$:.Y$."".630|
000005C0: 00 CE 09 80 02 8B 59 24 B2 22 4E 22 A7 8E 00 D8 |......Y$."N"....|
000005D0: 09 8A 02 99 22 13 22 3B 00 F0 09 94 02 81 49 B2 |....".";......I.|
000005E0: 31 A4 34 3A 99 22 20 20 20 20 20 20 22 3A 82 49 |1.4:." ":.I|
000005F0: 00 F9 09 9E 02 99 22 13 22 00 10 0A A8 02 99 3A |......"."......:|
00000600: 85 22 58 5B 4C 2C 55 5D 3D 22 3B 58 31 2C 58 32 |."X[L,U]=";X1,X2|
00000610: 00 27 0A B2 02 99 3A 85 22 59 5B 4C 2C 55 5D 3D |.'....:."Y[L,U]=|
00000620: 22 3B 59 31 2C 59 32 00 2D 0A BC 02 8E 00 41 0A |";Y1,Y2.-.....A.|
00000630: C6 02 8F 20 3C 3C 3C 20 44 52 41 57 20 41 58 45 |... <<< DRAW AXE|
00000640: 53 00 52 0A D0 02 41 B2 33 33 36 38 38 3A 99 22 |S.R...A.33688:."|
00000650: 93 22 00 67 0A DA 02 8B 58 31 B3 B2 30 AF 58 32 |.".g....X1..0.X2|
00000660: B1 B2 30 A7 37 35 30 00 91 0A E4 02 97 51 4C 2C |..0.750......QL,|
00000670: 32 32 3A 99 3A 99 A3 31 39 29 59 31 3A 97 51 4C |22:.:..19)Y1:.QL|
00000680: 2C 32 3A 99 3A 99 A3 31 39 29 59 32 3A 89 38 30 |,2:.:..19)Y2:.80|
00000690: 30 00 B1 0A EE 02 58 30 B2 B5 28 AB 58 31 AD 28 |0.....X0..(.X1.(|
000006A0: 58 32 AB 58 31 29 AC 33 35 29 3A 50 B2 41 AA 58 |X2.X1).35):P.A.X|
000006B0: 30 00 BD 0A F8 02 81 49 B2 30 A4 32 30 00 CC 0A |0......I.0.20...|
000006C0: 02 03 97 50 AB 34 30 AC 49 2C 39 33 00 D3 0A 0C |...P.40.I,93....|
000006D0: 03 82 49 00 F8 0A 16 03 97 51 4C 2C 32 32 3A 99 |..I......QL,22:.|
000006E0: 3A 99 A3 58 30 29 59 31 3A 97 51 4C 2C 32 3A 99 |:..X0)Y1:.QL,2:.|
000006F0: 3A 99 A3 58 30 29 59 32 00 0D 0B 20 03 8B 59 31 |:..X0)Y2... ..Y1|
00000700: B3 B2 30 AF 59 32 B1 B2 30 A7 38 32 30 00 2A 0B |..0.Y2..0.820.*.|
00000710: 2A 03 97 51 4C 2C 31 32 3A 99 3A 99 58 31 3B A3 |*..QL,12:.:.X1;.|
00000720: 33 35 29 58 32 3A 89 38 38 30 00 43 0B 34 03 59 |35)X2:.880.C.4.Y|
00000730: 30 B2 B5 28 AB 59 31 AD 28 59 32 AB 59 31 29 AC |0..(.Y1.(Y2.Y1).|
00000740: 32 30 29 00 51 0B 3E 03 50 B2 41 AB 34 30 AC 59 |20).Q.>.P.A.40.Y|
00000750: 30 00 5D 0B 48 03 81 49 B2 30 A4 33 35 00 69 0B |0.].H..I.0.35.i.|
00000760: 52 03 97 50 AA 49 2C 36 34 00 70 0B 5C 03 82 49 |R..P.I,64.p.\..I|
00000770: 00 8B 0B 66 03 97 51 4C 2C 32 32 AB 59 30 3A 99 |...f..QL,22.Y0:.|
00000780: 3A 99 58 31 3B A3 33 35 29 58 32 00 91 0B 70 03 |:.X1;.35)X2...p.|
00000790: 8E 00 A7 0B 7A 03 8F 20 3C 3C 3C 20 50 4C 4F 54 |....z.. <<< PLOT|
000007A0: 20 47 52 41 50 48 53 00 C7 0B 84 03 4B 58 B2 28 | GRAPHS.....KX.(|
000007B0: 58 32 AB 58 31 29 AD 33 35 3A 4B 59 B2 28 59 32 |X2.X1).35:KY.(Y2|
000007C0: AB 59 31 29 AD 32 30 00 CF 0B 8E 03 4D B2 31 00 |.Y1).20.....M.1.|
000007D0: D9 0B 98 03 99 22 13 22 3B 00 F1 0B A2 03 8B 4D |.....".";......M|
000007E0: B2 31 A7 99 22 D1 20 12 59 31 3A 22 3A 89 39 39 |.1..". .Y1:":.99|
000007F0: 30 00 10 0C AC 03 99 22 13 1D 1D 1D 1D 1D 1D 1D |0......"........|
00000800: 1D 12 50 52 45 53 53 20 41 4E 59 20 4B 45 59 22 |..PRESS ANY KEY"|
00000810: 00 23 0C B6 03 A1 59 24 3A 8B 59 24 B2 22 22 A7 |.#....Y$:.Y$."".|
00000820: 39 35 30 00 42 0C C0 03 99 22 13 1D 1D 1D 1D 1D |950.B...."......|
00000830: 1D 1D 1D 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
00000840: 20 22 00 5D 0C CA 03 8B 4D B2 32 A7 97 51 4C 2C | ".]....M.2..QL,|
00000850: 30 3A 99 3A 99 22 D7 20 12 59 32 3A 22 00 78 0C |0:.:.". .Y2:".x.|
00000860: D4 03 8B 4D B2 33 A7 97 51 4C 2C 31 3A 99 3A 99 |...M.3..QL,1:.:.|
00000870: 22 2A 20 12 59 33 3A 22 00 84 0C DE 03 81 49 B2 |"* .Y3:"......I.|
00000880: 30 A4 33 35 00 92 0C E8 03 58 B2 58 31 AA 4B 58 |0.35.....X.X1.KX|
00000890: AC 49 00 A8 0C F2 03 91 4D 89 31 30 32 30 2C 31 |.I......M.1020,1|
000008A0: 30 33 30 2C 31 30 34 30 00 BB 0C FC 03 59 B2 A5 |030,1040.....Y..|
000008B0: 59 31 28 58 29 3A 89 31 30 35 30 00 CE 0C 06 04 |Y1(X):.1050.....|
000008C0: 59 B2 A5 59 32 28 58 29 3A 89 31 30 35 30 00 DB |Y..Y2(X):.1050..|
000008D0: 0C 10 04 59 B2 A5 59 33 28 58 29 00 EF 0C 1A 04 |...Y..Y3(X).....|
000008E0: 8B 59 B3 59 31 B0 59 B1 59 32 A7 31 30 39 30 00 |.Y.Y1.Y.Y2.1090.|
000008F0: 02 0D 24 04 4A B2 B5 28 28 59 AB 59 31 29 AD 4B |..$.J..((Y.Y1).K|
00000900: 59 29 00 11 0D 2E 04 50 B2 41 AA 49 AB 34 30 AC |Y).....P.A.I.40.|
00000910: 4A 00 1D 0D 38 04 97 50 2C 51 28 4D 29 00 24 0D |J...8..P,Q(M).$.|
00000920: 42 04 82 49 00 3A 0D 4C 04 8B 4E B2 32 AF 4D B3 |B..I.:.L..N.2.M.|
00000930: 32 A7 4D B2 32 3A 89 39 34 30 00 52 0D 56 04 8B |2.M.2:.940.R.V..|
00000940: 4E B2 33 AF 4D B3 33 A7 4D B2 4D AA 31 3A 89 39 |N.3.M.3.M.M.1:.9|
00000950: 34 30 00 58 0D 60 04 8E 00 00 00 |40.X.`..... |
....(.. MULTIPLOT.(.2.. WONG HANG FEB 80
.?.6.. COLUMBIA COLLEGE._.8.. 1619 W10 A
VE VANCOUVER BC.M.<..59468,12...F.QL.216
:.B(50000).0.QL.245...P.. 220:. <<< INST
RUCTIONS.H.Z..430:. <<< DEFINE FUNCTIONS
...D.QL.216:.B(50000).0.QL.245...N.Q(1).
81:Q(2).87:Q(3).42...X..390......".".C..
..".INPUT NO. OF FUNCTIONS TO BE PLOTTED
";N.T....N.1.N.3.140.B. ..680:.190.|....
610:. <<< X-Y BOUNDS......Y$."N".90.....
.710:. <<< DRAW AXES...H..890:. <<< PLOT
GRAPHS.H.R..170...... <<< INSTRUCTION..
...."."......" .PLOTTING GRAPHS"..
.....N....:."YOU CAN PLOT AT MOST 3 FUNC
TIONS ON THE SAME GRID, AND ";.}...."YOU
CAN SELECT ANY SUITABLE AXES."...
...:."X-BOUNDS WHICH INCLUDE IMAGINATIVE
OR INFINITE VALUES ";.Z.".."SHOULD BE
AVOIDED."...,..:."BEFORE PLOTTING A GRA
PH, YOU'VE TO WRITE";./.6.."THE NO. OF F
UNCTIONS (N) ";.R.@.."AND DEFINE YOURFUN
CTION(S)."...J..:."(N.B. INCLUDING FUNCT
ION OF A FUNCTION!)"...T..:."THEN .RUN 1
00. TO PLOT GRAPH".T.^..:." .PRE
SS ANY KEY TO CONT."...H..Y$:.Y$."".360.
..R.."."...|.........Y1(X)..(X).".....Y2
(X). 2..(.4.X...4).<.....Y3(X)..Y1(X)..Y
2(X).B.....].... <<< DEFINE FUNCTIONS.F.
..."."..B..".DEFINE FUNCTIONS"...L..:.:
."NO. OF FUNCTIONS (<=3)";NG.K.V..:.".RE
WRITE THE FOLLOWING LINES,"......".THEN
RUN100 !!"......NG.3.460......NG.510,52
0,530......390.390......390.400.,....390
.410.;.... WIPE OUT.E.&..".";.P.0..I.1.N
.\.:..J.1.40.N.D.." ";:.J:.:.I.X.N..".";
.~.X.....B.. <<< X-Y BOUNDS...L..".";.30
)".NEW AXES?"...V..Y$:.Y$."".630.N....Y$
."N"...X....".";......I.1.4:." ":.I
......"."......:."X[L,U]=";X1,X2.'....:.
"Y[L,U]=";Y1,Y2.-.....A.F.. <<< DRAW AXE
S.R.P.A.33688:.".".G.Z..X1..0.X2..0.750.
.....QL,22:.:..19)Y1:.QL,2:.:..19)Y2:.80
0.....X0..(.X1.(X2.X1).35):P.A.X0......I
.0.20.L....P.40.I,93.S....I......QL,22:.
:..X0)Y1:.QL,2:.:..X0)Y2... ..Y1..0.Y2..
0.820.*.*..QL,12:.:.X1;.35)X2:.880.C.4.Y
0..(.Y1.(Y2.Y1).20).Q.>.P.A.40.Y0.].H..I
.0.35.I.R..P.I,64.P.\..I...F..QL,22.Y0:.
:.X1;.35)X2...P.....Z.. <<< PLOT GRAPHS.
G...KX.(X2.X1).35:KY.(Y2.Y1).20.O...M.1.
Y....".";......M.1.."Q .Y1:":.990......"
..........PRESS ANY KEY".#....Y$:.Y$."".
950.B...."......... ".].J..
M.2..QL,0:.:."W .Y2:".X.T..M.3..QL,1:.:.
"* .Y3:"......I.0.35.....X.X1.KX.I......
M.1020,1030,1040.....Y..Y1(X):.1050.N...
Y..Y2(X):.1050.....Y..Y3(X)......Y.Y1.Y.
Y2.1090...$.J..((Y.Y1).KY).....P.A.I.40.
J...8..P,Q(M).$.B..I.:.L..N.2.M.2.M.2:.9
40.R.V..N.3.M.3.M.M.1:.940.X.`.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL