Commodore 64 · BASIC

Type this in.

The program reads the built-in character shapes and draws them with coloured blocks. Enter the listing in BASIC on a Commodore 64 or an emulator. Enter RUN when you're ready.

Your card's listing

Download the BASIC listing

typein-198x-c64.bas

10 POKE 53280,1:POKE 53281,1:PRINT CHR$(147)CHR$(144)
20 DIM S(4),C(4):FOR I=1 TO 4:READ S(I),C(I):NEXT
30 DATA 49,2,57,7,56,5,24,3
40 FOR I=1 TO 4:FOR Y=0 TO 7
50 POKE 56333,127:POKE 1,51:B=PEEK(53248+S(I)*8+Y):POKE 1,55:POKE 56333,129
60 FOR X=7 TO 0 STEP -1:P=(Y+2)*40+(I-1)*10+7-X
65 IF B AND 2^X THEN POKE 1024+P,160:POKE 55296+P,C(I)
70 NEXT X,Y,I
80 FOR R=12 TO 22:FOR K=0 TO 3:FOR J=0 TO 1:P=R*40+37-R+K*2+J
85 POKE 1024+P,160:POKE 55296+P,C(K+1):NEXT J,K,R
90 POKE 214,13:PRINT:PRINT TAB(2)"CODE LIKE IT'S 198X"
100 POKE 214,15:PRINT:PRINT TAB(2)"CODE198X.COM"
110 GOTO 110

Make something else.

Explore free programming lessons for the Commodore 64 and build a game of your own.

Find your next Commodore 64 project →