10 GO SUB 1000
20 LET b=15
30 LET a=10
40 LET b$=INKEY$
50 IF b$="d" AND b<26 THEN LET b=b+1
60 IF b$="a" AND b>1 THEN LET b=b-1
70 IF b$="w" AND a>1 THEN LET a=a-1
80 IF b$="s" AND a<20 THEN LET a=a+1
90 PRINT AT a,b;CHR$ 157
100 GO TO 40
1000 FOR c=0 TO 7
1010 READ n
1020 POKE USR ("n")+C,n
1030 NEXT c
1040 DATA BIN 00000000
1050 DATA BIN 01100110
1060 DATA BIN 01100110
1070 DATA BIN 00000000
1080 DATA BIN 00000000
1090 DATA BIN 01100110
1100 DATA BIN 00111100
1110 DATA BIN 00000000
1120 RETURN