|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 768 (0x300)
Types: TextFile
Names: »PLOT.BAS«
└─⟦016ef1d53⟧ Bits:30005210 BASIC Demo
└─ ⟦this⟧ »PLOT.BAS«
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"