추억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 화면에서 캡쳐한 것 보기..



Trackback 0 Comment 0