5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

第1回昔のPC板杯プログラムコンテスト

125 :ナイコンさん:02/01/17 00:44
審査の間、ワイデスのダンスをお楽しみください

100 WIDTH 40,25:CLS
110 X=18
120 RESTORE
130 READ A
140 IF A=0 THEN 120
150 IF A=4 THEN GOSUB 200
160 IF A=6 THEN GOSUB 300
170 FOR I=0 TO 500:NEXT
180 GOTO 130
200 X=X-1
210 LOCATE X,10:PRINT " \●  ";
220 LOCATE X,11:PRINT "  ■> ";
230 LOCATE X,12:PRINT " < \ ";
240 RETURN
300 X=X+1
310 LOCATE X,10:PRINT "   ●/ ";
320 LOCATE X,11:PRINT " <■  ";
330 LOCATE X,12:PRINT " / > ";
340 RETURN
1000 DATA 4,6,4,6,4,4,4,4,6,6,6,6,0

71 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.02 2018/11/22 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)