10 REM  DEMMUSIK  Bo Engborg <2369>, 851228 05.40 
11 REM Spelar musik, v{lj enl meny
30 DIM A$(20%)=12,B$(20%)=30%
40 ONERRORGOTO 320
50 OPEN 'musiklib.dat' ASFILE 1
60 ONERRORGOTO 140
70 INPUTLINE #1,A$
80 A$=LEFT$(A$,LEN(A$)-2%)
90 Z%=INSTR(1%,A$,',')
100 IF Z%=0 THEN 60
110 A$(I%)=LEFT$(A$,Z%-1%) : B$(I%)=RIGHT$(A$,Z%+1%)
120 I%=I%+1%
130 GOTO 60
140 CLOSE 1
150 ; CHR$(12%)
160 ; ' DEMOMUSIK  Evalds Sportdata '
170 ; 
180 FOR J%=0% TO I%-1%
190 ; RIGHT$(NUM$(100%+J%),3%)' 'A$(J%)' 'B$(J%)
200 NEXT J%
210 ; : ; 'V{lj '; : INPUT V$
220 ONERRORGOTO 210
230 V%=VAL(V$)
240 IF V%=0% THEN CHAIN A$(V%)+'.DAT'
250 C$=A$(V%)+'.DAT'+CHR$(13%) : B%=LEN(C$)
251 ; : ; 'CHAIN 'C$
260 A%=65515%
270 POKE A%,B%
280 FOR I%=1% TO B% : POKE I%+A%,ASC(RIGHT$(C$,I%)) : NEXT I%
290 ; : ; 'Skapa Musikdata f|r MUSIKINT1 (J/N) '; : GET W$ : ; W$
291 IF PEEK(62258%)=24% THEN Z%=CALL(62258%) : REM st{ng av musikinterrupt
300 IF W$='J' OR W$='j' THEN CHAIN 'GMUSIK.BAC'
310 CHAIN 'EMUSIK.BAC'
320 ; : ; 'Filen Musik.lib saknas'