Rendered this one in BASIC.
This isn't the most clean way of doing it, but it works.
10 A=45056
20 FOR B=A TO A+1024:POKEB,32:NEXT
50 READ J,K,C
55 PRINT J;"x";K;": ";C
60 IF J+K+C=0 THEN END
70 POKE J+(K*32)+A,C
80 GOTO 50
900 DATA13,5,221,14,5,132,15,5,132,16,5,222
910 DATA 13,6,140,16,6,140
920 DATA 13,7,140,16,7,140
930 DATA 13,8,140,16,8,140
940 DATA 13,9,140,16,9,140
950 DATA 13,10,140,16,10,140,17,10,221,18,10,132,19,10,222
960 DATA 13,11,140,16,11,140,17,11,140,19,11,140
970 DATA 13,12,140,16,12,140,17,12,140,19,12,140
980 DATA 13,13,140,16,13,220,17,13,223,19,13,140
990 DATA12,12,222,11,12,132,10,12,221
1000 DATA12,13,140,10,13,140
1010 DATA10,14,140,12,14,140,13,14,140,19,14,140
1020 DATA10,15,140,12,15,220,13,15,223,16,15,221,17,15,131
1030 DATA18,15,131,19,15,223
1040 DATA10,16,140,16,16,139
1050 DATA10,17,220,11,17,131,12,17,131,13,17,222,16,17,139
1060 DATA13,18,140,16,18,139
1070 DATA13,19,140,16,19,139
1080 DATA13,20,140,16,20,139
1090 DATA 12,23,67,13,23,65,14,23,67,15,23,84,16,23,85
1100 DATA17,23,83
1999 DATA 0,0,0
220 notes
·
View notes