1 REM Ins{nd av Bo Kullmar <1789>    1985-06-06 22.14.14
2 ! **********************************************************************
4 ! Program          INVASION.BAS     Utg}va  1.0      1985-06-06
6 ! Ins{nd av Bo Kullmar
8 ! F|r ABC800M eller ABC800C, med HR-grafik eller ABC800C, utan HR-grafik
10 ! Programmet {r samma som INVASION.BAC som finns p} kassett nr 15. P}
12 ! kassetten {r dock programmet olistbart (squezat), men h{r har jag fixat
14 ! en listbar version!
16 ! 
18 ! Programmet, dvs det som anropas av detta program, fungerar INTE
20 ! p} ABC802 eller ABC806. Det skrevs trolinge innan ABC802 och ABC806
21 ! kom till.
22 ! **********************************************************************
100 INTEGER 
110 EXTEND 
120 IF PEEK(65364)=80 AND FNHr THEN CHAIN 'INVMONO.BAC'
130 IF PEEK(65364)=40 AND FNHr THEN CHAIN 'INVFG.BAC'
140 IF PEEK(65364)=40 AND FNHr=0 THEN CHAIN 'INVLR.BAC'
150 PRINT 'Program is not done for this type of machine.' CHR$(7)
160 END 
170 DEF FNHr LOCAL I,Y
180   I=0
190   WHILE I<2
200     FGPOINT 0,0,I
210     IF FGPOINT(0,0)<>I THEN Y=-1
220     I=I+1
230   WEND 
240   RETURN NOT Y
250 FNEND