MediaWiki:Sitenotice:
2024-03-02: The wiki ran out of disk space, so things were not working. This has been resolved by adding another 5GB of quota ;-) Thanks to Tim Lindner for reporting the issues.
2020-05-17: If a page gives you an error about some revision not being found, just EDIT the page and the old page should appear in the editor. If it does, just SAVE that and the page should be restored. OS-9 Al (talk) 12:22, 17 May 2020 (CDT)
MUSIC: Difference between revisions
Jump to navigation
Jump to search
Luis46coco (talk | contribs) (Created page with " 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): NE...") |
(Category) |
||
| Line 33: | Line 33: | ||
435 PRINT@N,"O"; | 435 PRINT@N,"O"; | ||
440 GOTO300 | 440 GOTO300 | ||
[[Category:BASIC]] | |||
Latest revision as of 11:11, 11 September 2015
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