05/05/14 08:31:31
100 PRINT : PRINT " Olidies GAME MUSIC for QBASIC "
110 iline = 1
120 '
140 READ a1$, a2$, a3$: IF a1$ = "#END" THEN 200
150 GOSUB 220
160 PRINT iline; ":" + p1$: PLAY p1$
170 ' PLAY a1$ , a2$ , a3$
180 iline = iline + 1
190 GOTO 120
200 END
205 '
210 IF m$ = "1" THEN m$ = "16"
212 RETURN
220 '
225 p1$ = "": flag = 0
230 FOR i = 1 TO LEN(a1$)
240 mm$ = m$: m$ = MID$(a1$, i, 1): n = ASC(m$)
250 IF m$ = "V" OR m$ = "R" OR m$ = "O" THEN flag = 1
255 IF m$ <> "V" AND m$ <> "R" AND m$ <> "O" THEN IF n < 47 OR n > 57 THEN flag = 0
260 IF mm$ = "O" THEN p1$ = p1$ + "O" + RIGHT$(STR$(VAL(m$) - 2), 1): flag = 1
265 IF mm$ = "R" THEN GOSUB 210: p1$ = p1$ + "L" + m$ + "N0": flag = 1
270 IF flag = 0 AND m$ <> "." THEN p1$ = p1$ + m$
280 NEXT
290 RETURN