1 REM Ins{nt av 350
10 REM !------------------------!
20 REM ! MSKBAS.BAC             !
30 REM ! 1982-03-06   kl. 15.40 !
40 REM ! Roland Eiworth <350>   !
50 REM ! Tel : 0762-13854         !
60 REM !------------------------!
70 REM Programmet omvandlar maskinkod
80 REM i minnet till POKE-satser som
90 REM sparas som fil i .BAS-format.
100 REM Bra att ha f|r EMBLITOR-{gare
110 REM som vill s{nda |ver sina
120 REM objektkoder till monitorn.
130 REM 
140 ; 'Adress till f|rsta byten'; : INPUT A
150 ; 'Adress till sista byten'; : INPUT A1
160 IF A>A1 ; 'Fel inmatning!!!'CHR$(7%) : GOTO 140
165 A%=A : A1%=A1
170 ; 'Utfil (RET=bildsk{rmen)'; : INPUT F$ : ; 
180 IF F$<>'' L%=1%
190 PREPARE F$ ASFILE L%
200 DIM A$=120%
210 R%=R%+10% : P%=0%
220 A$=RIGHT$(NUM$(R%),2%)+' POKE '+NUM$(A%)+'%'
230 A$=A$+','+RIGHT$(NUM$(PEEK(A%)),2%)+'%'
240 A%=A%+1% : P%=P%+1%
250 IF A%>A1% ; #L%A$ : END 
260 IF P%=20% ; #L%A$ : GOTO 210
270 GOTO 230
280 REM Slut!