You are a BASIC bitch, so type-in and share your BASIC listings here. Any and all BASIC dialects are welcome.
You must log in or register to comment.
no hay mas numeros primos
Meanwhile Euclid is rolling in his grave.
Today Euclid would be programming in BASIC.
Originally coded for a Sharp PC-1251. Basically my “Hello World” in every programming language I try:
10: INPUT "GEWICHT IN KG" , M 20: INPUT "GROESSE IN M" ,L 30: B=M/L^2 40: PRINT "BMI = ";BI ported this to LF-BASIC https://github.com/LiquidFox1776/LF-BASIC, a BASIC-interpreter written in Python:
10 LET M=0 20 LET L=0 30 LET B=0 40 INPUT "GEWICHT IN KG "; M 50 INPUT "GROESSE IN CM "; L 60 LET L=L/100 70 LET B=M/L^2 80 PRINT "BMI = "; BThen I started using PDP-8-Emulation and TSS-8:
10 LET M=0 20 LET L=0 30 LET B=0 35 PRINT "WEIGHT IN KG.G:" 40 INPUT M 45 PRINT "HEIGHT IN CM:" 50 INPUT L 60 LET L=L/100 70 LET B=M/L^2 75 PRINT "YOUR BMI IS:" 80 PRINT B 90 ENDMy BMI has been nicely calculated in your BASIC dialect!
deleted by creator
Are you sure that rounding was broken? Many systems use “Gaussian” or “banker’s” rounding to reduce accumulation of rounding errors. Instead of always rounding to the next larger absolute value at .5, they round to the nearest even number. Although it introduces a bias toward even numbers in the result set, it reduces accumulation of error when .5 is as likely as as any other fraction and odd/even are equally likely in the source.
I was taught “banker’s” rounding in school (graduated 1974) and have had to implement it a few times to reduce error accumulation.
If you are looking for a rabbit hole, Wikipedia has a pretty comprehensive article, including an example of how the wrong choice of rounding algorithm led to massive problems at the Vancouver Stock Exchange (Canada).
deleted by creator
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 Y2This a Sharp BASIC suffler for the 40 spanish card deck, for truco and other games.
10:REM BARAJADOR MAZO DE 40 CARTAS ESPANOLAS,SHARP PC-1360 20:WAIT 0: CLS : CLEAR 30:DIM A$(41)*20,S$(0)*32,P$(0)*65 40:C=0:S$(0)="Basto Espada Oro Copas" 50:P$(0)="As Dos Tres CuatroCincoSeis SieteSota CaballoRey" 60:FOR S=1 TO 4 70:FOR N=1 TO 10 80:C=C+1 90:A$(C)= MID$ (P$(0),(N*5)-4,5)+" de "+ MID$ (S$(0),(S*8)-5,0) 100:NEXT N: NEXT S 110:FOR C=41 TO 2 STEP - 1:A= RND (40)+1:A$(C)=A$(A):A$(A)=A$(C-1): NEXT C: BEEP 1: WAIT 120:FOR C=1 TO 40: PRINT SRT$ (C);":";A$(C): NEXT C10 GOTO 10
Your loop is under control!
Star Wars March for the Atari!
1 GRAPHICS 2+16 2 ? #6;"STAR WARS THEME" 3 ? #6;"BY JOHN WILLIAMS" 4 REM ARR. BY AARON NESS 5 REM FROM ACE NEWSLETTER, VOL.2,NO.3, MARCH 1981 8 FOR W=1 TO 500:NEXT W 9 GRAPHICS 0 10 READ S,N0,N1,N2,N3 20 IF N0=-1 THEN END 25 ? S;"|";N0;"|";N1;"|";N2;"|";N3 30 SOUND 0,N0,10,4:SOUND 1,N1,10,4 35 SOUND 2,N2,10,4:SOUND 3,N3,10,4 40 FOR X=1 TO S*150:NEXT X:GOTO 10 100 DATA .3,108,0,0,0 101 DATA 0,0,0,0,0 102 DATA .3,108,0,0,0 104 DATA 0,0,0,0,0 105 DATA .2,108,0,0,0 110 DATA 1,81,108,128,162 111 DATA 1,81,108,128,173 114 DATA 1,53,64,81,193 116 DATA 1,53,64,81,217 120 DATA .3,60,81,96,243 122 DATA .3,64,81,96,243 124 DATA .2,72,81,96,243 125 DATA 1,40,53,64,128 128 DATA 1,40,53,64,144 129 DATA 1,53,64,81,162 140 DATA .3,60,81,96,243 141 DATA .3,64,81,96,243 144 DATA .2,72,81,96,243 145 DATA 1,40,53,64,128 148 DATA 1,40,53,64,144 149 DATA 1,53,64,81,162 160 DATA .3,60,72,91,182 161 DATA .3,64,72,91,182 164 DATA .3,60,72,91,182 165 DATA 2,72,85,108,217 168 DATA .6,108,0,0,0 169 DATA 0,0,0,0,0 172 DATA .3,108,0,0,0 173 DATA 0,0,0,0,0 180 DATA 1,81,103,128,162 181 DATA 1,81,108,128,173 184 DATA 1,53,64,81,193 185 DATA 1,53,64,81,217 190 DATA .3,60,81,96,243 191 DATA .3,64,81,96,243 194 DATA .2,72,81,96,243 196 DATA 1,40,53,64,128 198 DATA 1,40,53,64,144 199 DATA 1,53,64,81,162 210 DATA .3,60,81,96,243 211 DATA .3,64,81,96,243 214 DATA .2,72,81,96,243 215 DATA 1,40,53,64,128 218 DATA 1,40,53,64,144 219 DATA 1,53,64,81,162 230 DATA .3,60,72,91,182 231 DATA .3,64,72,91,182 234 DATA .3,60,72,91,182 235 DATA 1,72,85,108,217 236 DATA .6,108,0,0,0 237 DATA 0,0,0,0,0 238 DATA .3,108,0,0,0 250 DATA 1.5,96,121,162,0 251 DATA 0,0,0,0,0 252 DATA .5,96,0,0,217 254 DATA .5,60,81,96,217 255 DATA .5,64,81,96,217 256 DATA .5,72,81,96,217 258 DATA .5,81,81,96,217 270 DATA .3,81,96,0,217 271 DATA .3,72,96,0,217 274 DATA .3,64,96,0,217 275 DATA 1,72,0,0,217 278 DATA .25,96,0,0,217 279 DATA 1,85,108,144,217 282 DATA .6,108,0,0,0 283 DATA 0,0,0,0,0 284 DATA .3,108,0,0,0 290 DATA 1.5,96,121,162,217 291 DATA 0,0,0,0,0 292 DATA .5,96,121,162,217 294 DATA .5,60,81,121,217 295 DATA .5,64,81,121,217 298 DATA .5,72,81,121,217 299 DATA .5,0,81,121,217 310 DATA .75,53,68,91,136 311 DATA .25,72,0,0,0 314 DATA 2,72,85,108,217 315 DATA .6,108,0,0,0 318 DATA 0,0,0,0,0 319 DATA .3,108,0,0,0 320 DATA 1.5,96,121,162,0 321 DATA 0,0,0,0,0 322 DATA .5,96,0,0,217 324 DATA .5,60,81,96,0 325 DATA .5,64,81,96,0 328 DATA .5,72,81,96,217 329 DATA .5,0,81,96,0 340 DATA .3,81,96,121,217 341 DATA .3,72,96,121,0 344 DATA .3,64,96,121,0 345 DATA .6,72,96,121,217 348 DATA .3,0,96,0,0 349 DATA 1,85,0,0,0 352 DATA .6,53,0,0,217 353 DATA 0,0,0,0,0 354 DATA .3,53,0,0,0 360 DATA .6,40,50,60,81 361 DATA .3,45,60,81,128 364 DATA .6,50,60,81,243 365 DATA .3,53,0,81,217 368 DATA .6,60,0,81,204 369 DATA .3,68,0,0,182 372 DATA .6,72,0,0,162 373 DATA .3,81,0,0,144 380 DATA 1,53,0,0,0 381 DATA .1,72,85,121,217 384 DATA 0,0,0,0,0 385 DATA .1,72,85,121,217 386 DATA 0,0,0,0,0 387 DATA .1,72,85,121,217 388 DATA 0,0,0,0,0 389 DATA .5,72,85,121,217 390 DATA .3,0,0,108,0 391 DATA 0,0,0,0,0 392 DATA .3,0,0,108,0 393 DATA 0,0,0,0,0 394 DATA .3,0,0,108,0 395 DATA 0,0,0,0,0 400 DATA 1,81,108,128,162 401 DATA 1,81,108,128,173 404 DATA 1,53,64,81,193 405 DATA 1,53,64,81,217 410 DATA .3,60,81,96,243 411 DATA .3,64,81,96,243 414 DATA .2,72,81,96,243 415 DATA 1,40,53,64,128 418 DATA 1,40,53,64,144 419 DATA 1,53,64,81,162 430 DATA .3,60,81,96,243 431 DATA .3,64,81,96,243 434 DATA .2,72,81,96,243 435 DATA 1,40,53,64,128 438 DATA 1,40,53,64,144 439 DATA 1,53,64,81,162 450 DATA .3,60,72,91,182 451 DATA .3,64,72,91,182 454 DATA .3,60,72,91,182 455 DATA 2,72,85,108,217 456 DATA .6,108,0,0,0 457 DATA 0,0,0,0,0 458 DATA .3,108,0,0,0 462 DATA 0,0,0,0,0 470 DATA 1,81,108,128,162 471 DATA 1,81,108,128,173 474 DATA 1,53,64,81,193 475 DATA 1,53,64,81,217 480 DATA .3,60,81,96,243 481 DATA .3,64,81,96,243 484 DATA .2,72,81,96,243 485 DATA 1,40,53,64,128 488 DATA 1,40,53,64,144 489 DATA 1,53,64,81,162 500 DATA .3,60,81,96,243 501 DATA .3,64,81,96,243 504 DATA .2,72,81,96,243 505 DATA 1,40,53,64,128 508 DATA 1,40,53,64,144 509 DATA 1,53,64,81,162 520 DATA .3,60,72,91,182 521 DATA .3,64,72,91,182 524 DATA .3,60,72,91,182 525 DATA 2,72,85,108,217 528 DATA 1,53,108,217,0 530 DATA .5,0,0,0,217 540 DATA 1,40,53,64,162 542 DATA 1,40,53,64,173 544 DATA 1,40,53,64,193 546 DATA 1,40,53,64,217 550 DATA 1,40,53,64,243 552 DATA 1,40,53,64,217 554 DATA 1,40,53,64,193 556 DATA 1,40,53,64,173 558 DATA 2,40,53,64,162 559 DATA 0,0,0,0,0 560 DATA .1,40,53,64,162 561 DATA 0,0,0,0,0 562 DATA .1,40,53,64,162 563 DATA 0,0,0,0,0 564 DATA .1,40,53,64,162 565 DATA 0,0,0,0,0 566 DATA 1.7,40,53,64,162 600 DATA 0,-1,0,0,010 : CLEAR : PAUSE “Mini Moon Age Calculator “ 20 : W=694098 : X=29.53 : Z=365.25 : JN=2460202.6 : REM Julian date for last moon on 25/9/2023 at 2:39am 30 : INPUT “DAY:” ; D , “MONTH:” ; M , “YEAR:” ; Y 40 : IF M<=2 LET Y=Y-1 : M=M+12 50 : A=INT(Y/100) : B=INT(A/4) : C=2-A+B : E=INT(Z * (Y+4716)) 60 : F=INT(30.6001 * (M+1)) : JD=C+D+E+F-1524.5 : DS=JD-JN 70 : S=(DS/X-INT(DS/X)) * X : S=INT(S+.5) 80 : PRINT “Age of Moon “ ; USING “###.# “ ; S ; “_days” : ENDStay SHARP!
1 REM TEST YOUR INPUT AND THEN 10 PRINT "DO YOU EAT YOUR BOUGHS??" 20 INPUT X 30 IF X="YES" THEN PRINT "YOU PIG!.": END 40 IF X="NO" THEN PRINT "WHAT ARE YOU WAITING FOR TO TRY?" 50 END
