MEMMAX=65536:DIM mem% MEMMAX
FOR pc% = 0 TO MEMMAX - 4 STEP 4:mem%!pc%=0:NEXT
pc%=mem%
pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
WHILE ?pc%
pc%-=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
pc%+=1
?pc%-=1
ENDWHILE
pc%-=1
VDU ?pc%
pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
WHILE ?pc%
pc%-=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
pc%+=1
?pc%-=1
ENDWHILE
pc%-=1
?pc%+=1
VDU ?pc%
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
VDU ?pc%
VDU ?pc%
?pc%+=1
?pc%+=1
?pc%+=1
VDU ?pc%
WHILE ?pc%
?pc%-=1
ENDWHILE
pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
WHILE ?pc%
pc%-=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
pc%+=1
?pc%-=1
ENDWHILE
pc%-=1
VDU ?pc%
pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
WHILE ?pc%
pc%-=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
pc%+=1
?pc%-=1
ENDWHILE
pc%-=1
VDU ?pc%
pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
WHILE ?pc%
pc%-=1
?pc%+=1
?pc%+=1
?pc%+=1
pc%+=1
?pc%-=1
ENDWHILE
pc%-=1
VDU ?pc%
?pc%+=1
?pc%+=1
?pc%+=1
VDU ?pc%
?pc%-=1
?pc%-=1
?pc%-=1
?pc%-=1
?pc%-=1
?pc%-=1
VDU ?pc%
?pc%-=1
?pc%-=1
?pc%-=1
?pc%-=1
?pc%-=1
?pc%-=1
?pc%-=1
?pc%-=1
VDU ?pc%
WHILE ?pc%
?pc%-=1
ENDWHILE
pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
WHILE ?pc%
pc%-=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
pc%+=1
?pc%-=1
ENDWHILE
pc%-=1
?pc%+=1
VDU ?pc%
WHILE ?pc%
?pc%-=1
ENDWHILE
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
?pc%+=1
VDU ?pc%
?pc%+=1
?pc%+=1
?pc%+=1
VDU ?pc%
END