*----------------------* ------------------------ (c) Bengt Werstén & JEFA ------------------------ --*******************--- --* JEFA - GRAPH 2 *--- --*******************--- *----------------------* PrgmX:JEFAGRAF :ClrHome :Disp "---------------" :Disp "-JEFAGRAPH-2---" :Disp "-----USING Y1--" :Disp "---------------" :Disp "" :Disp " BY JEFA" :Disp " AND BENGT" :Pause :ClrHome :Disp "" :Disp "Xmin?" :Input X :Disp "Xmax?" :Input A :Disp "STEP?" :Input S :Lbl L :ClrHome :If X>A :Stop :Disp "X=" :Disp X :Disp "Y1" :Disp Y1 :X+S->X :Pause :Goto L