8 ! EGETPROG.800 9 NO EXTEND : INTEGER 10 REM L{gg Ditt program i DATA-satser som hexkod med fyra hexsiffror i varje str{ng. NN inmatas inte. 20 REM SS resp. SSSS markerar slut. Ex- empel 100 DATA 1111,00C3,NN11,8ASS 30 I=36627 : S$="0123456789ABCDEF" : IF PEEK(65293)=128 ; "Fel BOFA!" : CHAIN "NUL:" 40 READ A$ : FOR K=1 TO 3 STEP 2 50 H$=MID$(A$,K,2) : D=INSTR(1,S$,LEFT$(H$,1)) : IF H$="NN" 80 60 E=INSTR(1,S$,RIGHT$(H$,2)) : IF D=0 OR E=0 GOTO 90 70 POKE I,(D-1)*16+E-1 : I=I+1 80 NEXT K : GOTO 40 90 ; "Slutadress:";I+65535.