10 *LOAD BOFFIN
20 CLS
30 INPUTTAB(14,12)"CAVE ";N%
40 ?&5814=N%
50 CALL &5B80