DataMuseum.dk

top - download

    Length: 768 (0x300)
    Types: TextFile
    Names: »PLOT.BAS«

└─⟦016ef1d53⟧ Bits:30005210 BASIC Demo
    └─ ⟦this⟧ »PLOT.BAS« 

TextFile

10  PRINTCHR$(27);"E"
20 DEF FNX(X) = SIN(X)
30 DATA 0,6,.333,-1.5,1.5,.075
40 PRINT " STARTING X VALUE, ENDING X VALUE, AND INCREMENT"
50 READ XSTART, XLAST, XINCR:PRINT XS,XL,XI
60 PRINT " STARTING Y VALUE, ENDING Y VALUE, AND INCREMENT"
70 READ YSTART, YLAST, YINCR:PRINT YS,YL,YI
80 WIDE = INT((YLAST-YSTART)/YINCR)
90 PRINT
100 PRINT "Y RANGES FROM ";YSTART;" TO ";YLAST;" BY ";YINCR
110 PRINT"              SIN  FUNCTION"
120 FOR I = 1 TO WIDE
130 PRINT "+";
140 NEXT I
150 PRINT
160 FOR X = XSTART TO XLAST STEP XINCR
170 Y = INT(((FNX(X)-YSTART)/YINCR)+.5)
180 FOR J = 1 TO WIDE
190 IF Y = J THEN PRINT "*"; ELSE PRINT " ";
200 NEXT J
210 PRINT "  ";X
220 NEXT X
230 PRINT
240 PRINT
250 INPUT "MENU";A$
260 RUN "MENU"
«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»