10 IF
100 VARNAME
110 VARNAME
120 EXTENSION (Index #25) (Token 0xbc)
130 VARNAME
140 VARNAME
150 VARNAME
160 VARNAME
170 EXTENSION (Index #25) (Token 0xbc)
180 EXTENSION (Index #25) (Token 0xb8)
190 DIM
20 IF
200 VARNAME
210 VARNAME
220 VARNAME
230 VARNAME
240 VARNAME
250 VARNAME
260 VARNAME
270 IF
280 IF
290 IF
3 EXTENSION (Index #25) (Token 0xd4)
30 DIM
300 IF
310 REM 
320 IF
330 IF
340 IF
350 IF
360 IF
370 IF
380 REM f TYPE=24 then DUMMY=frm_alert(1,"[1][ "+str$(MESS3)+str$(MESS4)+" ][ OK ]")  
390 IF
40 VARNAME
400 GOTO
410 VARNAME
420 EXTENSION (Index #25) (Token 0xba)
430 EXTENSION (Index #25) (Token 0xc0)
440 CURS
450 END
460 IF
470 IF
480 IF
490 IF
5 CLS
50 VARNAME
500 IF
510 IF
520 IF
530 IF
540 IF
550 IF
560 IF
570 IF
580 IF
590 IF
60 INK
600 IF
610 IF
620 IF
630 IF
640 IF
650 IF
660 RETURN
7 VARNAME
70 EXTENSION (Index #25) (Token 0xa2)
80 VARNAME
90 VARNAME