10
20
30
40
50 MODE 7
60
70 VDU 23;11,0;0;0;0;0;
80 A$="main menu"
90 PRINTTAB(10,2);CHR$131;CHR$141;A$
100 PRINTTAB(10,2);CHR$131;CHR$141;A$
110 FOR I%=1 TO 7
120 READ A$
130 PRINTTAB(4,I%+5);CHR$134;A$
140 NEXT
150 PRINTTAB(4,23);CHR$131;"enter choice "
160 *SAVE MENU FFFF7C00+400
170 END
180
190 DATA "1) Delete a record"
200 DATA "2) Insert a record"
210 DATA "3) Update a record"
220 DATA "4) Display a record"
230 DATA "5) Create an invoice"
240 DATA "6) Run stock report"
250 DATA "7) Quit"