ZX81 Listing for truchet.p

**TRUCHET****SLR/2025** (truchet.p)

A simple Truchet tile graphic demo for for the 16k ZX81.

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 16782
VARS  : 17575
E-LINE: 17576
STKBOT: 17576
STKEND: 17576

LEGEND

9999 means line number
PRINT means treat as KEYWORD P

PROGRAM LISTING

  10 REM **TRUCHET****SLR/2025**
  20 POKE 16418,0
  30 FOR X=0 TO 23 STEP 2
  40 FOR Y=0 TO 31 STEP 2
  50 LET R=INT (RND*2)
  60 IF R=0 THEN PRINT AT X,Y;"ö
 ";AT X+1,Y;" ö";
  70 IF R=1 THEN PRINT AT X,Y;" 
¶";AT X+1,Y;"¶ ";
  80 NEXT Y
  90 NEXT X
 100 GOTO 30
 200 SAVE "TRUCHET"
 210 RUN