1 REM Ins{nt av 455
10 REM 
11 REM UPOKE 4
12 REM SKAPAR '.ABS'-FILER
13 REM AV Kent Berggren
14 REM ins{nd av nr455
15 REM 
16 REM Jag |nskar kommentarer till 
17 REM programmet 
18 REM [r ni intreserade av program
19 REM av liknande typ?
20 DIM Q0$=253%,A$=253%
21 ; "START ADRESS"; : INPUT B%
22 ; "SLUT  ADRESS"; : INPUT E%
23 ; 'PROGRAMNAMN '; : INPUT F$
24 ; 'ENTRYADRESS ?'; : INPUT A1%
25 PREPARE F$+'.ABS' ASFILE 2% : A%=0%
26 IF E-B>242% X%=242% ELSE X%=E-B
27 IF X%<0% 40
28 A$=CHR$(0%,X%+1%,0%)+CHR$(SWAP%(B),255%-SWAP%(B),B,255%-B) : B%=0%
29 FOR I%=B TO B+X%
30 J%=PEEK(I%) : A$=A$+CHR$(J%) : B%=B%+J%
31 NEXT I%
32 A$=A$+CHR$(B%) : I%=0%
33 IF X%=242% A$=A$+CHR$(255%,0%) : GOTO 36
34 IF X%<236% A$=A$+CHR$(0%,0%,0%)+CHR$(SWAP%(A1%),255%-SWAP%(A1%),A1%,255%-A1%)+CHR$(255%,0%) : I%=1% : GOTO 36
35 A$=A$+CHR$(255%,0%)
36 Z%=CALL(28666%,2%) : Q0$=A$ : Z%=CALL(28670%,A%)
37 A%=A%+1% : B=B+243%
38 IF X%=242% 26
39 IF I% 42
40 A$=CHR$(0%,0%,0%)+CHR$(SWAP%(A1%),255%-SWAP%(A1%),A1%,255%-A1%)+CHR$(255%,0%)
41 Z%=CALL(28666%,2%) : Q0$=A$ : Z%=CALL(28670%,A%)
42 CLOSE 2%