10
20 :
30 REPEAT
40 :
50
60 A%=129:X%=&8000+100:Y%=X%DIV256
70 REPEAT K%=((USR&FFF4)AND&FFFF00)DIV256
80 PRINT RIGHT$("000"+STR$~K%,4);" ";
90 UNTIL K%=13
100 PRINT
110 :
120
130 REPEAT K%=ADVAL(16)
140 PRINT RIGHT$("000"+STR$~K%,4);" ";
150 UNTIL K%=13
160 PRINT
170 :
180 UNTIL FALSE