MediaWiki:Sitenotice:
2025-12-29: I have restored the wiki to a backup from the end of November. Starting in September 2025, accesses went form the 800MB-1.2GB range per month to 26GB in September, 42GB in October, and 70GB in November with most accesses originating from China. As soon as I realized what was causing all the access problems in November, I shut it down (it had reached 36GB by then) behind a password/login screen. The database had gotten corrupted, and I tried a restore from just before the spike in access but that didn't work. Thus, end of November. I still have the other daily backups so if there were any important additions in December, let me know and maybe they can be recovered. - Allen H.
METRIC1
Jump to navigation
Jump to search
100 CLS: PRINT@7,"METRIC CONVERSION" 110 PRINT@64,"SELECT ONE OF THE FOLLOWING:" 120 PRINT@97,"1. KILOMETERS TO MILES" 130 PRINT@129,"2. MILES TO KILOMETERS" 140 PRINT@161,"3. METERS/CM TO FT/INCHES" 150 PRINT@193,"4. FT/INCHES TO METERS/CM" 160 PRINT@224,"WHICH ONE";: INPUT A$ 170 IF (VAL(A$)>0) AND (VAL(A$)<5) THEN A=VAL(A$): GOTO210 180 PRINT@256,"INVALID SELECTION--TRY AGAIN" 190 FOR I=1 TO 300: NEXT I 200 PRINT@234,": PRINT: G0T0160 210 ON A GOSUB250,300,350,410 220 PRINT@480,"PRESS R TO RESTART";: A$=INKEY$ 230 IF A$="R" THEN 100 240 G0T0220 250 A1$="KILOMETERS": A2$="MILES" 260 GOSUB490 270 A2=A1*.621 280 GOSUB580 290 RETURN 300 A1$="MILES": A2$="KILOMETERS" 310 GOSUB490 320 A2=A1*1.609 330 GOSUB580 340 RETURN 350 A1$="METERS": B1$="CM": A2$="FT": B2$="INCHES" 360 GOSUB490: GOSUB530 370 A1=(A1*39.37)+(B1*.3937): REM-METERS/CM TO INCHES 380 A2=INT(A1/12): B2=A1-(A2*12) 390 GOSUB580: GOSUB610 400 RETURN 410 A1$="FT": B1$="INCHES": A2$="METERS": B2$="CM" 420 GOSUB490: GOSUB530 430 A1=(A1*12)+B1: REM-FT/INCHES TO INCHES 440 A2=INT(A1/39.37) 450 B2=(A1-(A2*39.37))/.3937 460 GOSUB580: GOSUB610 470 RETURN 480 REM -- INPUT SUBROUTINES 490 PRINT@384,A1$;: INPUT B$ 500 IF (VAL(B$)=>0) AND (VAL(B$)<10000) THEN A1=VAL(B$): GOTO520 510 PRINT@384,"": GOTO49O 520 RETURN 530 PRINT@400,B1$;: INPUT B$ 540 IF (VAL(B$)=>0) AND (VAL(B$)<10000) THEN B1=VAL(B$): GOTO560 550 PRINT@400,": GOTO530 560 RETURN 570 REM -- OUTPUT SUBROUTINES 580 A2=INT(A2*100): B$=STR$(A2): L=LEN(B$) 590 PRINT@416,A2$;"=";LEFT$(B$,L-2) ;".";RIGHT$(B$,2) 600 RETURN 610 B2=INT(B2*100): B$=STR$(B2): L=LEN(B$) 620 PRINT@432 ,B2$;"=" ;LEFT$(B$,L-2) ; "." ;RIGHT$(B$,2) 630 RETURN