110 READ A$:Y%=Y%+1:IF A$<>"##" THEN FOR X%=1 TO LEN(A$) STEP 2:VPOKE (X%/2)+(Y%*128),(VAL("&h"+MID$(A$,X%,1))*16)+VAL("&h"+MID$(A$,X%+1,1)):NEXT:GOTO 110 ELSE 210
210 A$=INPUT$(1):SCREEN 0:PRINT TIME
220 END
230 DATA "777777777777777777777777"
240 DATA "777777777777777777777777"
250 DATA "7777777 777777777777"
260 DATA "777777 44444 77777777777"
270 DATA "77777 44 4 44 7777777777"
280 DATA "55555 4f0f0f4 5555555555"
290 DATA "77777 4faaff4 7777777777"
300 DATA "55555 4a88a44 5555555555"
310 DATA "5555 44faaff44 555555555"
320 DATA "555 444ffff4444 55555555"
330 DATA "555 44fff444444 55555555"
340 DATA "5555 4ffff44444 55555555"
350 DATA "5555 afffffff444 5555555"
360 DATA "555 aaafffffff4 55555555"
370 DATA "555 aaaaffffffa 55555555"
380 DATA "cccc aaafffffaa cccccccc"
390 DATA "22222 aa000aaa 222222222"
400 DATA "333333 333 3333333333"
410 DATA "bbbbbbbbbbbbbbbbbbbbbbbb"
420 DATA "aaaaaaaaaaaaaaaaaaaaaaaa"
430 DATA "##"
Comentarios (2)
Por Vampier
Prophet (2415)
09-10-2007, 07:32
Por AuroraMSX
Paragon (1902)
09-10-2007, 23:51