13 lines
309 B
Plaintext
13 lines
309 B
Plaintext
PROC P ()
|
|
VAL []BYTE s IS "***c*n*t*s*X*#00*#A0\now":
|
|
VAL []BYTE ss IS "'":
|
|
VAL []BYTE ssx IS "*'":
|
|
VAL []BYTE sss IS "foo**":
|
|
VAL BYTE c IS 'x':
|
|
VAL BYTE cc IS '"':
|
|
VAL BYTE ccx IS '*"':
|
|
VAL BYTE ccc IS '*'':
|
|
VAL [5][5]BYTE square IS ["sator", "arepo", "tenas", "opera", "rotas"]:
|
|
SKIP
|
|
:
|