10 CLS
30 INPUT"                                                                                            Enter Password";A$
40 IFA$="go"THENGOTO125ELSEGOTO50
50 FORN=1TO2
55 CLS
60 PRINT@170,"Unauthorized User!"
70 SOUND4184,10:SOUND3728,10:SOUND4697,10:SOUND9394,10:SOUND6269,20
75 NEXTN
80 OPEN"RAM:UNUSER"FORAPPENDAS1
90 PRINT#1,TIME$,DATE$
100 CLOSE#1
120 BEEP:POWEROFF
125 BEEP:MENU
129 END