10 MODE 4
20 IF ISIT('TK2_EXT'):IF NOT ISIT('FTEST'):TK2_EXT
30 IF NOT ISIT('TK2_EXT')
40   Mess 'No TK2 Detected. Sorry !!'
42   PAUSE 100
45   CLEAR:CLOSE:CLS:STOP
50 ELSE
60   Mess 'TK2 found and Initialised.'
70   END IF
80 PAUSE 100
85 CLOSE#3:CLS
87 LRUN flp1_ClubQL_bas
90 :
100 DEFine PROCedure Mess (mess$)
110 WINDOW 512,256,0,0
120 OPEN#3,scr_
130 WINDOW#3,250,50,126,102:PAPER#3,0:BORDER#3,1,2:CLS#3
140 WINDOW#3,242,46,130,104:PAPER#3,0:BORDER#3,1,2:CLS#3
150 INK#3,7:AT#3,2,2:PRINT#3;mess$;
160 END DEFine
