:59468,12; PLOT COPYRIGHT (C) 1978 GLEN FISHERW CURSOR #1, JULY, 1978x BOX 550, GOLETA, CA. 93017~: AS OF 15 MAY 80ZPG$"PLOT":NM$"1":62000d:SQ(15)gI015:SQ(I):IhCRT32768 i"I CAN PLOT FOUR FUNCTIONS:"n/x" 1: SIN(X), 0<=X<=4"K" 2: TAN(X), 0<=X<=4"o" 3: X^3+X^2+X,-1.25<=X<=0.75"" 4: A USER-SPECIFIED FUNCTION"" IT SHOULD BE PUT AT LINES 800-999""PLEASE CHOOSE ONE: ";:60000:F(IN$),F1F4:"PLEASE TYPE A NUMBER FROM 1 TO 4":180?"THANK YOU."KTTI50YTIT220b""yF500,600,700,800X079:Y2520(X20)1000X2000XX079]X10650bY253(X20)lY0Y496501000 X2000)YA25:XA50:15005X079FX1(X50)40bY25((X1X1X1)X1)30tY0Y49740~1000X2000 X079*YX85>1000HXR2000 32,126,124,226,123,97,255,236,108,127,225,251,98,252,254,160'RX(X.5):RY(49Y.5)FSQ2(RY1)(RX1):SQ2SQ`RX(RX2):RY(RY2)wSP(CRT40RYRX)II015:SPSQ(II)1070II$II0: GARBAGE-ASSUME BLANK.IIIISQ:SPSQ(II)8CRT40RYRX,SPB YYA:X079:1000:X" XXA:Y049:1000:Y( 4 TTI60V "";{ "WANT ANOTHER? ";:60000:T$IN$ T$(T$,1) T$"Y"100 "": `IN$" ":ZTTI:ZC2:ZD$(20) jZ$:Z$""60070 tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15 ~60010G Z(Z$):ZL(IN$):(Z127)32" ";:60110w FL(Z127)64(Z127)91Z$((Z128)255) ZL25460010 IN$IN$Z$:Z$;ZD$;Z$; Z13IN$(IN$,2):CR$;: Z20ZL1IN$(IN$,ZL1):"";:60010" Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000- 60010G TI110:"";:I:h 0"";9);"CURSOR #1 PLOT :"COPYRIGHT (C) 1978 BY GLEN FISHER D60500 N"PLOT SOME DOTS" X"PRESS RETURN TO BEGIN" ]A$:A$""62045 b