10 REM ++++++++++++++++++++++++++++++++
11 REM ! Program ....    MSKBAS.BAS
12 REM ! Utg}va          1982-03-06
13 REM ! av    Roland Eiworth <350>
14 REM ! Tel ....        0762-13854
15 REM ! F|r ABC80 i grundutf|rande
16 REM ! Ins{nt av <350>
17 REM ++++++++++++++++++++++++++++++++
18 REM 
19 REM Programmet omvandlar maskinkod
20 REM i minnet till POKE-satser som
21 REM sparas som fil i .BAS-format.
22 REM Bra att ha f|r EMBLITOR-{gare
23 REM som vill s{nda |ver sina
24 REM objektkoder till monitorn.
25 REM 
26 ; 'Adress till f|rsta byten'; : INPUT A
27 ; 'Adress till sista byten'; : INPUT A1
28 IF A>A1 ; 'Fel inmatning!!!'CHR$(7%) : GOTO 26
29 A%=A : A1%=A1
30 ; 'Utfil (RET=bildsk{rmen)'; : INPUT F$ : ; 
31 IF F$<>'' L%=1%
32 PREPARE F$ ASFILE L%
33 DIM A$=120%
34 R%=R%+10% : P%=0%
35 A$=RIGHT$(NUM$(R%),2%)+' POKE '+NUM$(A%)+'%'
36 A$=A$+','+RIGHT$(NUM$(PEEK(A%)),2%)+'%'
37 A%=A%+1% : P%=P%+1%
38 IF A%>A1% ; #L%A$ : END 
39 IF P%=20% ; #L%A$ : GOTO 34
40 GOTO 36
41 REM Slut!