ベーマガはなぜ堕ちたのか？

ベーマガはなぜ堕ちたのか？at I4004

ベーマガはなぜ堕ちたのか？ - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

50:ナイコンさん
 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

51:ナイコンさん
 05/05/14 08:32:24 
300 ' 
310 DATA "T80L12O5V5ECO4AV6O5ECO4AV7O5ECO4AV8O5ECO4AO5DO4BGO5V7DO4BGV6O5DO4BGV5O5DO4BGV6O5ECO4AV7O5ECO4AV8O5ECO4AV9O5ECO4AO5DO4BGV8O5DO4BGV7O5DO4BGV6O5DO4BG","T80L12        ","T80L12        " 
320 DATA "O5V7ECO4AV8O5ECO4AV9O5ECO4AV10O5ECO4AO5DO4BGO5V9DO4BGV8O5DO4BGV7O5DO4BG","V7O3L12O3AO4CEV8O3AO4CEV9O3AO4CEV9O3AO4CEO3GBO4DV9O3GBO4DV8O3GBO4DV7O3GBO4D","    " 
330 DATA "V8O5ECO4AV9O5ECO4AV10O5ECO4AV11O5ECO4AO5DO4BGV10O5DO4BGV9O5DO4BGV8O5DO4BG","V8O3AO4CEV9O3AO4CEV10O3AO4CEV11O3AO4CEO3BGO4D V10O3GBO4DV9O3GBO4DV8O3GBO4D","    " 
340 DATA "V8O5ECO5A O5D O4BG O5C O4AEBG#EB11 G#10E9 V10 O3B8G#7E O2B6G#E6 O1B5G#4E4","V8 O3A O4CE O3GB O4D O3FA O4C O3EG#B","R1R1" 
350 DATA "V15 T100","V15 T100","V15 T100" 
355 DATA "L16O5E8O4E8O5E8O4E16O5E8O4E8O5E16O4E8O5E8 O5E8O4E8O5E8 O4E16O5E8O4E8O5E16O4E8O5E8","L16 ","L8  "

次ページ