DataMuseum.dk

top - download

    Length: 1280 (0x500)
    Types: TextFile
    Names: »PLT1.BAS«

└─⟦69a509965⟧ Bits:30005211 CR8 BASIC Games
    └─ ⟦this⟧ »PLT1.BAS« 

TextFile

   1 REM PROGRAM PLT1.BAS
 100  GOSUB 400  
 110  GOSUB 600  
 130  LET H=(D-C)/N  
 140  IF N<=50 THEN 170  
 150  PRINT "ONLY 50 SUB-DIVISIONS ALLOWED ON Y-AXIS."	 
 160  STOP   
 170  DEF FNR(X)=INT(X+0.5)  
 175  PRINT  
 176  PRINT  
 177  PRINT  
 178  PRINT  
 179  PRINT  
 180  PRINT "Y-AXIS:  FROM  ";C;"TO ";D;"IN STEPS OF ";H 
 190  PRINT  
 200  PRINT "'"; 
 210  FOR I=1 TO N-1 
 220  PRINT "-"; 
 230  NEXT I 
 240  PRINT "'"  
 250  FOR X=A TO B STEP S
 270  LET Y=FNF(X)   
 280  LET Y1=FNR((Y-C)/H)
 290  FOR I=0 TO N   
 292  IF I=Y1 THEN 302	 
 300  PRINT " "; 
 301  GOTO 310	 
 302  PRINT "*"; 
 310  NEXT I 
 315  PRINT "	";   
 320  PRINT X
 330  NEXT X 
 400  PRINT  
 401  PRINT  
 402  PRINT  
 403  PRINT  
 404  PRINT  
 450  PRINT "CURVE PLOTTING: DEFINE FUNCTION TO PLOT WITH LINE 100"  
 470  PRINT "E.G. TYPE"  
 480  PRINT "	      100 DEF FNF(X)=..."
 503  PRINT "AND RUN"
 508  STOP   
 510  RETURN 
 600  REM---READ DATA
 601  PRINT "SPECIFY X-RANGE, A TO B IN STEPS OF S"  
 602  INPUT A,B,S
 604  PRINT " SPECIFY Y-AXIS: THE LOWEST VALUE C,HIGHEST VALUE D AND"
 605  PRINT "NUMBER OF INTERVALS (MAXIMUN OF 50)"
 606  INPUT C,D,N
 610  RETURN 
«eof»