1 REM Ins{nt av 559
10 REM  VISAR DEFINIERADE ENHETER OCH
20 REM  ADRESS TILL HOPPTABELL
30 REM  BENGT HOLGERSSON <559>
40 ; CHR$(12%)'Enhet',' Adress' : ; STRING$(21%,45%) : A%=PEEK(65034%)+SWAP%(PEEK(65035%))
50 ; CHR$(PEEK(A%+2%),PEEK(A%+3%),PEEK(A%+4%),58%),PEEK(A%+5%)+SWAP%(PEEK(A%+6%))
60 A%=PEEK(A%)+SWAP%(PEEK(A%+1%)) : IF A% 50