Mookie (![[info]](http://l-stat.livejournal.com/img/userinfo.gif){kind=small} mookieghana) wrote,@ 2007-11-14 13:51:00 |
|
APPLE II MARIO~!
10 GR
20 FOR L=1 TO 4:READ C(L):NEXT L
30 FOR T=1 TO 16
40 READ X$
50 FOR X=1 TO LEN(X$)
60 K=VAL(MID$(X$,X,1))
70 COLOR=C(K)
80 PLOT X,T
90 NEXT X,T
100 REM ROCK
900 DATA 1,13,2,7
1000 DATA "00011111100000"
1010 DATA "00111111111000"
1020 DATA "00333223200000"
1030 DATA "03232223222000"
1040 DATA "03233222322200"
1050 DATA "00322223333000"
1060 DATA "00022222220000"
1070 DATA "00044144400000"
1080 DATA "00444144144400"
1090 DATA "04444111144440"
1100 DATA "02241011014220"
1110 DATA "02221111112220"
1120 DATA "02211111111220"
1130 DATA "00011100111000"
1140 DATA "00444000044400"
1150 DATA "04444000044440"
10 GR
20 FOR L=1 TO 4:READ C(L):NEXT L
30 FOR T=1 TO 16
40 READ X$
50 FOR X=1 TO LEN(X$)
60 K=VAL(MID$(X$,X,1))
70 COLOR=C(K)
80 PLOT X,T
90 NEXT X,T
100 REM ROCK
900 DATA 1,13,2,7
1000 DATA "00011111100000"
1010 DATA "00111111111000"
1020 DATA "00333223200000"
1030 DATA "03232223222000"
1040 DATA "03233222322200"
1050 DATA "00322223333000"
1060 DATA "00022222220000"
1070 DATA "00044144400000"
1080 DATA "00444144144400"
1090 DATA "04444111144440"
1100 DATA "02241011014220"
1110 DATA "02221111112220"
1120 DATA "02211111111220"
1130 DATA "00011100111000"
1140 DATA "00444000044400"
1150 DATA "04444000044440"
