1 REM Ins{nd av Mikael Bergv{rn <3762>    1988-06-12 20.23.30 (DUMP)
10 REM (c) Mikael Bergv{rn <3762>
20 REM
30 REM Detta program tillverkar en rad
40 REM som h|jer BOFA till |nskad
50 REM adress.
60 REM Samtidigt med att BOFA h|js
70 REM flyttas programmet i motsvarande
80 REM grad s} att det inte f|rst|rs.
90 REM Alla pekare Bofa, Eofa, Heap mm.
100 REM skjusteras s} att programmet
110 REM blir fullt k|rbart.
120 REM
130 REM Raden ers{tter uppstartsprogram
140 REM f|r asemblerprog. och liknande
150 REM rutiner Som beh|ver
160 REM minnesutrymme under BOFA.
170 REM F|r alla checksummor.
180 REM
190 REM OBS! Spar raden med "SAVE".
200 B$='32768'
210 ; CHR$(12)
220 ; 'Adressen m}ste vara en j{mn'
230 ; 'blockadress  (delbar med 256)'
240 ONERRORGOTO 210
250 ; '\nskad adress: ('B$')';
260 INPUT C$ : IF C$='' B=VAL(B$) ELSE B=VAL(C$)
270 B0=B
280 IF B<32768 ; 'F|r l}gt!' : GET A$ : GOTO 210
290 B$=NUM$(65536+(B AND 65280))
300 IF B AND 255 ; 'Ej j{mn blockadress' : GET A$ : GOTO 210 ELSE ; 'ok'
310 B=B/256 : X=CALL(3897) : X0=X
320 ONERRORGOTO 350
330 READ A : POKE X,A
340 X=X+1 : GOTO 330
350 POKE X0+47,B-1 : POKE X0+68,B : POKE X0+82,B
360 FOR X=X0+32 TO X0+36
370 POKE X,ASC(RIGHT$(NUM$(256*B),X-X0-30))
380 NEXT X
390 Z=CALL(3897,20) : POKE Z,1 : POKE 65054,Z,SWAP%(Z)
400 ; CHR$(12); : ; : ; : ; '10 BOFA='RIGHT$(NUM$(B0),2)
410 DATA 100,10,0,135,37,129,203,160,28,235
420 DATA 1,224,255,9,235,14,242,9,1,10
430 DATA 0,237,176,14,62,9,201,66,79,70
440 DATA 65,61,51,51,50,56,48,203,13,0
450 DATA 187,131,203,255,53,241,62,129,33,29
460 DATA 254,190,216,42,30,254,237,91,28,254
470 DATA 167,237,82,68,77,3
480 DATA 17,0,130,25,235,42,30,254,237,83
490 DATA 30,254,237,184,33,0,130,34,28,254
500 DATA 33,80,13,126,254,205,202,80,13
510 DATA 195,82,13,186,13