10 REM Keep Off!
20 REM By S.Johnson
30 REM Feb 1991
90MODE4
95VDU 23,0,10,32,0,0,0,0,0,0
100 PROCscreen
105MODE7
110 PROCalarm
120CLS:GOTO 90
400DEFPROCscreen
420 PRINT "Acorn MOS"''"Acorn 1770 DFS
"''"BASIC"'
430 PRINTTAB(0,6)">"
440 INPUT TAB(1,6)
450 G=GET
460 ENDPROC
600DEFPROCalarm
640 PRINTTAB(8,11)CHR$(131);CHR$(136);
CHR$(141)"W A R N I N G !"TAB(8,12)CHR$(
131);CHR$(136);CHR$(141)"W A R N I N G !
"
655FOR f=1TO20
670ENVELOPE 1,2,1,2,-4,12,9,0,147,0,2,
-137,126,0
680SOUND 1,1,110,45
685IF f=7 THENPRINTTAB(9,20);CHR$(141)
;"Unauthorised User";TAB(9,21);CHR$(141)
;"Unauthorised User"
686IFf=18 THEN ENDPROC
690NEXTf
700ENDPROC