17 lines
656 B
QBasic
17 lines
656 B
QBasic
10 PRINT CHR$(147):POKE 53280,11:POKE 53281,0
|
|
20 PRINT "PIXEL PAINTER - CURSORS MOVE, SPACE DRAWS":PRINT "C=CLEAR Q=QUIT":PRINT "PRESS ANY KEY"
|
|
30 GET A$:IF A$="" THEN 30
|
|
40 PRINT CHR$(147):X=20:Y=12:D=1
|
|
50 P=1024+Y*40+X:O=PEEK(P):POKE P,160:POKE 55296+Y*40+X,1
|
|
60 GET A$:IF A$="" THEN 60
|
|
70 POKE P,O:NX=X:NY=Y
|
|
80 IF ASC(A$)=145 AND Y>0 THEN NY=Y-1
|
|
90 IF ASC(A$)=17 AND Y<24 THEN NY=Y+1
|
|
100 IF ASC(A$)=157 AND X>0 THEN NX=X-1
|
|
110 IF ASC(A$)=29 AND X<39 THEN NX=X+1
|
|
120 IF A$=" " THEN POKE P,160:O=160:GOTO 150
|
|
130 IF A$="C" THEN PRINT CHR$(147):O=32:GOTO 50
|
|
140 IF A$="Q" THEN 180
|
|
150 X=NX:Y=NY:GOTO 50
|
|
180 POKE 53280,14:POKE 53281,6:PRINT CHR$(147):END
|
|
|