Ubuntu Peronista to retrocomputing • 1 year agoBASIC for the Masseslemmy.sdf.orgimagemessage-square15arrow-up149arrow-down12file-text
arrow-up147arrow-down1imageBASIC for the Masseslemmy.sdf.orgUbuntu Peronista to retrocomputing • 1 year agomessage-square15file-text
You are a BASIC bitch, so type-in and share your BASIC listings here. Any and all BASIC dialects are welcome.
minus-squareUbuntu PeronistaOPlink1•1 year agoDarthmouth GRAFIX.BAS! 100 DEF FNF(X)=SIN(X) 105 DEF FNG(X)=LOG(X)/LOG(10) 110 DEF FNR(X)=INT(X+.5) 120 DEF FNX(X)=INT(100*X+.5)/100 130 READ A,B,S 140 READ C,D,N 150 IF N<=50 THEN 180 160 PRINT "ONLY 50 SUBDIVISIONS" 170 STOP 175 : 180 H=(D-C)/N 190 PRINT ""Y-AXIS FROM ";C;" TO ";D; 195 PRINT " IN INCREMENTS OF ";H 200 PRINT 210 PRINT TAB(8);"'"; 220 FOR I=1 TO N-1 230 PRINT "-"; 240 NEXT I 250 PRINT "'" 255 : 260 FOR X=A TO B STEP S 270 Y=FNF(X) 272 Y1=8+FNR((Y-C)/H) 274 Y=FNG(X) 276 Y2=8+FNR((Y-C)/H) 278 PRINT FNX(X); 280 IF Y2
Darthmouth GRAFIX.BAS!
100 DEF FNF(X)=SIN(X) 105 DEF FNG(X)=LOG(X)/LOG(10) 110 DEF FNR(X)=INT(X+.5) 120 DEF FNX(X)=INT(100*X+.5)/100 130 READ A,B,S 140 READ C,D,N 150 IF N<=50 THEN 180 160 PRINT "ONLY 50 SUBDIVISIONS" 170 STOP 175 : 180 H=(D-C)/N 190 PRINT ""Y-AXIS FROM ";C;" TO ";D; 195 PRINT " IN INCREMENTS OF ";H 200 PRINT 210 PRINT TAB(8);"'"; 220 FOR I=1 TO N-1 230 PRINT "-"; 240 NEXT I 250 PRINT "'" 255 : 260 FOR X=A TO B STEP S 270 Y=FNF(X) 272 Y1=8+FNR((Y-C)/H) 274 Y=FNG(X) 276 Y2=8+FNR((Y-C)/H) 278 PRINT FNX(X); 280 IF Y2