Category : A Collection of Games for DOS and Windows
Archive   : BURGLARM.ZIP
Filename : BURGL.BAS

 
Output of file : BURGL.BAS contained in archive : BURGLARM.ZIP
DEFINT A-Z

CLS
LOCATE 13, 1
SHELL "BIGECHO Warning!!"

Agin:
LOCATE 1, 1
COLOR 0, 7
PRINT " COMPUTER INTRUSION ALARM SYSTEM (T5-5) Version 1.15 (June 10, 1989) "
COLOR 7, 0
LOCATE 3, 7
PRINT " ACTION "; "DATE "; " TIME"
TYME$ = TIME$
IF VAL(LEFT$(TYME$, 2)) > 12 THEN
MID$(TYME$, 1, 2) = STR$(VAL(LEFT$(TYME$, 2)) - 12)
TYME$ = TYME$ + "p"
END IF
LOCATE 5, 11
PRINT " Checking all systems . . . . . . . . . "; DATE$; " "; TYME$
LOCATE 7, 11
COLOR 20, 7
PRINT " INTRUSION NOTED . . . . . . . . . . . "; DATE$; " "; TYME$; " "
COLOR 0, 7
LOCATE 9, 11
PRINT " POLICE CALLED (Automatic dialer) . . . . . . . . 272-1111 "
LOCATE 10, 11
PRINT " POLICE RESPONSE . . . . . . . . . . . . (Police on the way) "
COLOR 20, 7
LOCATE 22, 11
PRINT " WARNING * WARNING * WARNING INTRUSION NOTED!! "
LOCATE 23, 11
PRINT " Police have been called Police on the way! "
BEEP
COLOR 7, 0
FOR x# = 1 TO 50000
IF INKEY$ = CHR$(27) GOTO Endo
NEXT x#
GOTO Agin

Endo:
CLS
END



  3 Responses to “Category : A Collection of Games for DOS and Windows
Archive   : BURGLARM.ZIP
Filename : BURGL.BAS

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/