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.
MUSIC
Jump to navigation
Jump to search
110 DIM T(12,2) 120 DATA 38,452,58,422,78,392,89,362,108,332,125,302,133,272,147,242 125 DATA 159,212,170,182,176,132,185,122 130 FOR I=1 TO 12 140 READ T(I,1),T(I,2): NEXTI 150 CLS: PRINT@9,"MUSIC PROGRAM" 160 FOR I=34 TO 290 STEP 64 170 FOR J=1 TO 25 180 PRINT@I+J,"-"; 190 NEXT J,I 200 PRINT@361,"- -"; 210 PRINT@421,"- -"; 220 J=92 230 FOR I=1 TO 12 240 J=J+30 250 PRINT@J,"O"; 260 NEXT I 265 J=4 300 A$=INKEY$ 310 IF A$="" THEN 300 320 A=ASC(A$) 360 IF (A>48) AND (A<58) THEN I=A-48: GOTO410 370 IF A=45 THEN I=12: GOTO410 380 IF A=48 THEN I=10: GOTO410 390 IF A=58 THEN I=11: GOTO410 392 IF A=70 THEN J=8: REM-FULL NOTE 394 IF A=72 THEN J=4: REM-HALF NOTE 396 IF A=81 THEN J2: REM-QTR NOTE 400 GOTO300 410 SOUND T(I,1),J 430 N=T(I,2): PRINT@N,CHR$(191); 432 FOR Z=1 TO 25: NEXT Z 435 PRINT@N,"O"; 440 GOTO300