10 KEY
100 LOCATE
110 LOCATE
120 LOCATE
125 REM --OPEN THIRD WINDOW FOR PROGRAM INFO 
130 WINDOPEN
140 CENTRE
145 REM --LEAVE WINDOW AND GOTO SCREEN 
15 REM --SET UP ARRAYS FOR FILE INFO
150 QWINDOW
155 REM --PRINT FIELD NAMES
160 LOCATE
170 LOCATE
180 LOCATE
190 LOCATE
20 DIM
200 LOCATE
210 LOCATE
220 LOCATE
225 LOCATE
230 REM --WAIT FOR AN INPUT
240 VARNAME
25 REM --SET UP VARIBLES
250 REM --CHECK WHICH KEY HAS BEEN PRESS 
260 IF
270 IF
30 VARNAME
35 REM --OPEN FIRST WINDOW AND ENTER TITLE" 
40 WINDOPEN
5 REM ---ADDRESS BOOK
50 CDOWN
55 REM --OPEN SECOND WINDOW AND ENTER OPTIONS"
60 WINDOPEN
6306 VARNAME
70 LOCATE
80 LOCATE
90 LOCATE