100 ! **********************************************************************
110 ! Program          HRSAVE.806       Utg}va  1.0      1984-04-22
120 ! av Mats Knuts
130 ! Ins{nd av Mats Knuts
140 ! F|r ABC806
150 ! Testad p} ABC806
160 ! 
170 ! Screened by --"-TCP-"--
180 ! 
190 ! **********************************************************************
200 DATA Sparar HRminne p} disk
210 ! Sparas som HRSAVE.BAC
220 ! K{llkod i HRINOUT.ASM
230 ! 
240 INTEGER : EXTEND 
250 ! 
260 ! Ladda maskinkod
270 ! 
280 POKE 64256,243,213,197,245,229,123,6,192,203,255,14,52,237,121,225,241
290 POKE 64272,193,209,251,201,0,0,0,0,243,213,197,245,229,123,6,192
300 POKE 64288,203,191,14,52,237,121,225,241,193,209,251,201
310 ! 
320 ! Startadress =  64256 f|r blockin
330 ! Startadress2 = 64280 f|r blockut
340 ! 
350 DEF FNInblk(Addr)
360   ! 
370   ! 
380   ! 
390   Z=CALL(64256,Addr)
400   RETURN True
410 FNEND 
420 ! 
430 DEF FNUtblk(Addr)
440   ! 
450   ! 
460   ! 
470   Z=CALL(64280,Addr)
480   RETURN True
490 FNEND 
500 ! 
510 DIM Graf$=0
520 POKE VAROOT(Graf$),4096,SWAP%(4096),49152,SWAP%(49152),4096,SWAP%(4096)
530 ! 
540 ! Skapa fil
550 ! 
560 PREPARE 'TEST.PIC' AS FILE 1
570 ! 
580 ! Start skall vara:  0 = Bild 4
590 ! !                  8 = Bild 3
600 ! !                 16 = Bild 2
610 ! !                 24 = Bild 1
620 Start=24
630 ! 
640 FOR X=Start+7 TO Start STEP -1
650   Z=FNInblk(X)
660   PUT #1,Graf$
670   Z=FNUtblk(X)
680 NEXT X 
690 ! 
700 CLOSE 1
710 END