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.
TOLLTIM
Jump to navigation
Jump to search
100 CLS: PRINT@6,"TELEPHONE TOLL/TIMER" 110 PRINT@6,"TELEPHONE TOLL/TIMER" 120 PRINT@64,"SELECT ONE OF THE FOLLOWING:" 130 PRINT@96,"1. FIRST 3-MINUTE RATE PLUS" 140 PRINT@131,"ADDITIONAL MINUTE RATE" 150 PRINT@160,"2. FIRST 1-MINUTE RATE PLUS" 160 PRINT@195,"ADDITIONAL MINUTE RATE" 170 PRINT@224,"WHICH ONE";: INPUT A$ 180 IF A$="1" THEN M$="3": GOTO230 190 IF A$="2" THEN M$="1": GOTO230 200 PRINT@448,"IN=VALID SELECTION--TRY AGAIN" 210 FOR I=1 TO 300: NEXT I 220 PRINT@234,"": PRINT@448,"": GOTO170 230 CLS: PRINT@6,"TELEPHONE TOLL/TIMER" 240 PRINT@64,"FIRST "+M$+"-MINUTE RATE ";: INPUT B$ 250 IF (VAL(B$)>O) AND (VAL(B$)<100) THEN B=VAL(B$): GOTO270 260 PRINT@85,"": GOTO240 270 PRINT@96,"ADDITIONAL MINUTE RATE";: INPUT B$ 280 IF (VAL(B$)>0) AND (VAL(B$)<100) THEN C=VAL(B$): GOTO300 290 PRINT@119,"": GOTO270 300 PRINT@416,"PRESS ANY KEY TO BEGIN AFTER" 310 PRINT@448,"CALLING PARTY ANSWERS";: B$=INKEY$ 320 IF B$="" THEN 310 325 PRINT@416,"PRESS ANY KEY TO END CHARGES": PRINT@448," 330 REM - BEGIN TOLL/TIMER LOOP 335 T1=B 340 FOR HH=0 TO 12: HH$=STR$(HH) 350 FOR MM=0 TO 59: MM$=STR$(MM) 360 FOR SS=0 TO 59: SS$=STR$(SS) 370 PRINT@201,"TIME"+RIGHT$(HH$,2)+":"+RIGHT$(MM$,2)+":"+RIGHT$(SS$,2) 380 T2=INT(T1*100): T$=STR$(T2): L=LEN(T$) 390 PRINT@256,"TOTAL CHARGES= $"+LEFT$(T$,L-2)+"."+RIGHT$(T$,2) 400 REM ***CHANGE "T=1 TO 500" TO "T=1 TO 450" FOR COLOR COMPUTER*** 410 FOR T=1 TO 500: NEXT T 420 IF SS=50 THEN SOUND 220,3 430 B$=INKEY$ 440 IF B$<>"" THEN 520 450 NEXT SS: SS=1 460 SOUND 220,3 480 IF (MM<2) AND (A$="1") THEN 500 490 T1=T1+C 500 NEXT MM: MM=0 510 NEXT HH 520 PRINT@416,"ENTER R TO RESTART, OR JUST" 530 PRINT@448,"<ENTER> FOR SAME RATE";: INPUT B$ 540 IF B$="R" THEN 100 550 IF B$="" THEN PRINT@206,"": PRINT@271,"": GOTO300 560 GOTO530