1 GOTO 65000 65000 [%=65063% 65001 [%=PEEK([%+2%)+SWAP%(PEEK([%+3%)) 65002 IF [%=0% END 65003 IF PEEK([%+1%)=94% GOTO 65001 65004 ; CHR$(PEEK([%+1%)); 65005 ; MID$("0123456789 ",PEEK([%)/16%+1%,1%); 65007 ; MID$(" %$",(PEEK([%) AND 3%)+1%,1%); 65008 ; MID$(" () (,) ",(PEEK([%) AND 12%)+1%,4%) 65009 GET \$ : REM suksessiv listing p} skj{rmen 65010 GOTO 65001 65011 REM *** OBS! [$ og \$ blir ogs} listet.