1 REM Ins{nt av 1382
10 REM Ins{nt av 1382
20 REM #######################
30 REM # MUSIK.BAS
40 REM # Ver 1.2 / 811103-04 #
50 REM # Niclas Wiberg       #
60 REM #######################
70 REM 
80 REM # Denna rutin g|r att ljudet
90 REM # inte tystas n{r man trycker.
100 POKE -1536%,62%,250%,237%,71%,201%,245%,219%,56%,254%,131%,32%,3%,50%,7%,254%
110 POKE -1521%,62%,128%,50%,245%,253%,62%,77%,50%,247%,253%,241%,251%,237%,77%
120 POKE -1484%,5%,250%,148%,5%
130 Z%=CALL(64000%) : T%=5%
140 REM # T%=TAB f|r tangenterna
150 REM 
160 REM # Ledtext & grafik
170 ; CHR$(12%)TAB(14%)"M U S I K"
180 ; CHR$(23%)TAB(14%)"#########"
190 ; : ; " Med detta program kan du spela egna"
200 ; " l}tar p} ABC80 !!"
210 ; : ; " Du anv{nder tangenterna ungef{r som p}"
220 ; " en orgel enligt f|ljande :" : ; : ; 
230 ; TAB(T%)"  W E   T Y U   O P   ^"
240 ; TAB(T%)CHR$(23%)"5jj555jjjj555jj555j5"
250 ; TAB(T%)CHR$(23%)"5/j*%55/j*j*%55/j*%55/j5"
260 ; TAB(T%)CHR$(23%)"555555555555"
270 ; TAB(T%)CHR$(23%)"/%/%/%/%/%/%/%/%/%/%/%/%"
280 ; TAB(T%)" A S D F G H J K L \ [ '"
290 ; : ; : ; TAB(T%)" Vars}god, spela g{rna !"
300 REM 
310 REM # Musikrutin
320 POKE -128%,219%,56%,33%,255%,255%,119%,219%,56%,190%,32%,18%,62%,0%
330 POKE -115%,211%,6%,62%,57%,211%,6%,1%,136%,19%,11%,120%,177%,32%,251%
340 POKE -101%,24%,233%,62%,57%,211%,6%,201%
350 N%=-108%
360 REM # N%=Adressen till ljudets
370 REM #    frekvens
380 REM 
390 REM # M A I N   L O O P
400 A$=CHR$(INP(56%)-128%)
410 ONERRORGOTO 400 : RESTORE 
420 READ B$,A% : IF B$<>A$ 420 ELSE POKE N%,A%,SWAP%(A%) : Z%=CALL(65408%) : GOTO 400
430 REM # Frekvenser
440 DATA A,1000
450 DATA S,900
460 DATA D,800
470 DATA F,750
480 DATA G,670
490 DATA H,600
500 DATA J,530
510 DATA K,499
520 DATA L,453
530 DATA \,403
540 DATA [,382
550 DATA "'",340
560 DATA W,950
570 DATA E,850
580 DATA T,710
590 DATA Y,635
600 DATA U,565
610 DATA O,480
620 DATA P,428
630 DATA ^,361