1 POKE53280,6:POKE646,1
2 PRINT"[147]        ANFANGSADRESSEN-FINDER"
4 AD$="":PRINT"VON WELCHEM PROGGI WIRD DIE STARTADRESSEGESUCHT";:INPUTAD$
5 IFAD$=""THENEND
10 OPEN1,8,0,AD$
20 GET#1,X$:IFX$=""THENX$=CHR$(0)
30 LB=ASC(X$)
40 GET#1,X$:IFX$=""THENX$=CHR$(0)
50 HB=ASC(X$)
60 CLOSE1
70 AD=HB*256+LB
80 PRINT"ANFANGSADRESSE: (SYS)";AD
90 GOTO4