추억4-부록. MSX-BASIC으로 작성해본 그 프로그램

추억4. 컴퓨터 경진대회 참가에서 적었던 프로그램을 MSX-BASIC으로 만들어봤습니다.

paraMSX과 같은 실제의 클럭과 유사하게 동작하는 에뮬레이터가 많기때문에 실행은 물론, 시간이 얼마나 걸리는가도 확인해볼 수 있습니다.

10번 실행해보니 31초가 걸리는군요. 1번당 3.1초씩 걸렸군요.

100 ' create 16 random numbers

110 I=RND(-TIME)

120 DIM RN(16)

130 FOR I=0 TO 15

140 RN(I)=INT(RND(1)*100)

150 NEXT I

160 ' sorting

170 C=16

180 ' do-loop

190 C=C-1

200 SW=0

210 FOR I=0 TO C-1

220 IF (RN(I)>RN(I+1)) THEN TE=RN(I):RN(I)=RN(I+1):RN(I+1)=TE:SW=1

230 NEXT I

240 IF SW<>0 GOTO 180

250 ' while

260 ' print

270 DIM CR(16)

280 FOR I=0 TO 15

290 READ CR(I)

300 NEXT I

310 FOR I=0 TO 15

320 PRINT USING "## ";RN(CR(I));

330 IF I MOD 4 = 3 THEN PRINT

340 NEXT I

350 'CROSS data

360 DATA 0, 1, 3, 6

370 DATA 2, 4, 7,10

380 DATA 5, 8,11,13

390 DATA 9,12,14,15

같은 동작을 하는 프로그램을 VC++로 돌려보니 0ms 걸렸습니다. (GetTickCount()로 확인했습니다)
역시 기술의 발전은 놀랍습니다.

동작화면을 캡쳐한 것은 아래를 열면 볼 수 있습니다. 옛 추억에 한 번 빠져 봅시다… ^^;; (개콘)

MSX 화면에서 캡쳐한 것 보기..