1 REM Ins{nd av Bo Kullmar SYSOP <1789>    1986-04-26 19.32.00
10 ! SAVE GLIPP.BAC
20 INTEGER : EXTEND 
30 IF PEEK(65364)=80 AND FNHr THEN CHAIN 'GLPMONO.BAC'
40 IF PEEK(65364)=40 AND FNHr THEN CHAIN 'GLPFG.BAC'
50 PRINT 'Program is not done for this type of machine.' CHR$(7)
60 END 
70 DEF FNHr LOCAL A,B
80   A=0
90   WHILE A<2
100     FGPOINT 0,0,A
110     IF FGPOINT(0,0)<>A THEN B=-1
120     A=A+1
130   WEND 
140   RETURN NOT B
150 FNEND