DataMuseum.dk

top - download

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

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

TextFile

10 DEF FNX(X) = X
20 PRINT "INPUT STARTING X VALUE, ENDING X VALUE, AND INCREMENT"
30 INPUT XSTART, XLAST, XINCR
40 PRINT "INPUT STARTING Y VALUE, ENDING Y VALUE, AND INCREMENT"
50 INPUT YSTART, YLAST, YINCR
60 ACCROSS= (YLAST-YSTART)/YINCR
70 IF ACCROSS <= 70 THEN 100
80 PRINT "ONLY 70 SUBDIVISIONS ALLOWED. TRY AGAIN."
90 GOTO 40
100 PRINT
110 PRINT "Y RANGES FROM ";YSTART;" TO ";YLAST;" BY ";YINCR
120 PRINT
130 FOR I = 0 TO ACCROSS
140 PRINT "+";
150 NEXT I
160 PRINT "   X"
170 FOR X = XSTART TO XLAST STEP XINCR
180 Y = INT((FNX(X)-YSTART)/YINCR+.5)
190 FOR J = 0 TO ACCROSS
200 IF Y = J THEN PRINT "*"; ELSE PRINT " ";
210 NEXT J
220 PRINT "  ";X
230 NEXT X
240 PRINT:PRINT
250 INPUT "MENU";A$
260 RUN "MENU"
«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»