1 REM ***************************
2 REM * EGETPROG.BAC            *
3 REM * VER 1.0 / 1982-09-08    *
4 REM * Gjort o. ins{nt av 2415 *
5 REM * Stig Rosenlund          *
6 REM * V{stmannagatan 93       *
7 REM * 113 43 Stockholm        *
8 REM * Tel. 08/331736          *
9 REM ***************************
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(65053%)=128% ; "Fel BOFA!" : CHAIN ""
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% 90
70 POKE I%,(D%-1%)*16%+E%-1% : I%=I%+1%
80 NEXT K% : GOTO 40
90 ; "Slutadress:";I%+65535