1 ! Ins{nd av: Kristoffer Eriksson <5357>    1985-06-18 20.27.00
20 FLOAT : EXTEND 
30 ! 
40 ; '** ADVENTURE laddas! **'
50 ! CMDINT beh|vs n{r spelet avslutas:
60 Par$='CMDINT  SYS'+CHR$(14%,255%,205%,27%,96%,208%,33%,0%,0%,201%)
70 Adr%=VARPTR(Par$)
80 Ec%=CALL(Adr%+11%,Adr%)
90 IF Ec%=0% THEN ; 'Fel vid laddning av CMDINT.SYS' : GOTO 160
100 ! 
110 Par$='ADV800  ABS'+CHR$(14%,255%,205%,27%,96%,208%,33%,0%,0%,201%)
120 ! 255 {ndras till 29 om ABS-filen anropas fr}n RAM:
130 Ec%=CALL(Adr%+11%,Adr%)
140 IF Ec%=0% THEN ; 'Fel vid laddning av ADV800.ABS' : GOTO 160
150 Z%=CALL(Ec%)
160 END