EXECUTE LIST <26,1,30,10> !ENABLE CRATE <24,1,30,9> !REMOVE INHIBIT <26,1,20,0> !ALLOW DISPLAY LAM MOVE BUFFER TO <16,1,20,0> WHENLAM !WRITE ADDRESS ! ADDRESS = IX + IY*'100 DO !INFINITE DO LOOP MOVE BUFFER TO <16,1,20,1> WHENLAM !WRITE A CHAR STRING ENDDO !STOP WHEN BUFFER EXHAUSTED