A machine language version of my Truchet tile graphic demo.
PROG : 16509
D-FILE: 16679
VARS : 17472
E-LINE: 17473
STKBOT: 17478
STKEND: 17478
9999 means line number
PRINT means treat as KEYWORD P
1 REM /-*TRUCHET-ML*SLR/2025*
60763 <ö£:(VAL LN WRNDAT LN
SCROLL RND$TAB 7RNDVAL ñ6 FOR ù
FOR AT (CONT ?,RND5?INKEY$LN
CLS RNDRETURN ?IF ASN RND5<
INKEY$ñ5 GOSUB 4GOSUB 4STR$ FOR
ùFOR GOSUB 4GOSUB 4SGN TAN OR
LN ??Kò OR TAN INT COPY FAST 5
? 6FAST RNDLN <=RNDEFAST RNDF?P4
PAUSE LPRINT TAN FAST 5 GOSUB ?
µ?GOSUB ?´NEW 3?6CLEAR RNDö ¶¶
2 RAND USR VAL "16514"