100 ! **********************************************************************
110 ! Program          HRLOAD.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 Laddar HRminne fr}n fil p} diskett
210 ! Sparas som HRLOAD.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 ! \ppna fil
550 ! 
560 FGPICTURE 0,0,4
570 FGCTL BLK+RED+GRN+CYA+MAG+YEL+BLU+WHT
580 FGPOINT 0,0,0 : FGFILL 255,239
590 OPEN 'TEST.PIC' AS FILE 1
600 ! 
610 ! Start skall vara:  0 = Bild 4
620 ! !                  8 = Bild 3
630 ! !                 16 = Bild 2
640 ! !                 24 = Bild 1
650 Start=24
660 ! 
670 FOR X=Start+7 TO Start STEP -1
680   Z=FNInblk(X)
690   GET #1,Graf$ COUNT 4096
700   Z=FNUtblk(X)
710 NEXT X 
720 ! 
730 CLOSE 1
740 END