DataMuseum.dk

top - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »PLT2.BAS«

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

TextFile

   1 REM PROGRAM PLT2.BAS
 100  GOSUB 400  
 101  DEF FNF(X)=X   
 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)  
 171  PRINT  
 172  PRINT  
 173  PRINT  
 174  PRINT  
 175  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)
 282  LET Y=FNG(X)   
 284  LET Y2=FNR((Y-C)/H)
 290  FOR I=0 TO N   
 292  IF I=Y1 THEN 302	 
 294  IF I=Y2 THEN 306	 
 300  PRINT " "; 
 301  GOTO 310	 
 302  PRINT "*"; 
 303  GOTO 310	 
 306  PRINT "+"; 
 310  NEXT I 
 315  PRINT "	";   
 320  PRINT X
 330  NEXT X 
 400  PRINT  
 401  PRINT  
 402  PRINT  
 403  PRINT  
 404  PRINT  
 500  PRINT "CURVES PLOTTING: DEFINE THE TWO FUNCTIONS TO PLOT WITH" 
 501  PRINT "LINE NUMBERS 100 AND 101"	 
 502  PRINT "E.G. TYPE"  
 503  PRINT "	 100 DEF FNF(X)=..." 
 504  PRINT "	 101 DEF FNG(X)=..." 
 506  PRINT " AND RUN"	 
 510  STOP   
 520  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»