ZX81 Listing for picuse.p


ZX81 program listing for **PICTURE USE**SLR/1984

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17052
VARS  : 17845
E-LINE: 17846
STKBOT: 17846
STKEND: 17846

LEGEND

9999 is a line number
PRINT is keyword P


PROGRAM LISTING

  10 REM **PICTURE USE**SLR/1984
  20 PRINT "BACKGROUND COLOR?"
  30 INPUT B$
  40 PRINT "BRUSH COLOR?"
  50 INPUT A$
  60 CLS
  61 FOR O=1 TO 32
  64 LET C$=""
  68 FOR O=1 TO 32
  70 LET C$=C$+B$
  80 NEXT O
  90 FOR X=0 TO 21
 100 PRINT AT X,0;C$
 110 NEXT X
 120 LET X=0
 130 LET Y=0
 140 PRINT AT X,Y;A$
 150 LET X=X-(INKEY$="7" AND X>0
)+(INKEY$="6" AND X<21)
 160 LET Y=Y-(INKEY$="5" AND Y>0
)+(INKEY$="8" AND Y<31)
 170 IF INKEY$="B" THEN GOTO 300
 180 IF INKEY$="C" THEN GOTO 400
 190 IF INKEY$="Q" THEN GOTO 430
 200 PRINT AT X,Y;"*"
 210 GOTO 140
 300 INPUT A$
 310 GOTO 140
 400 PRINT AT X,Y;A$
 410 COPY
 420 GOTO 140
 430 CLS
 440 RUN
 500 SAVE "PICUSE"
 510 RUN