home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / wpca / wid.bas < prev    next >
BASIC Source File  |  1984-12-25  |  453b  |  13 lines
  1. 100 CLS:KEY OFF
  2. 110 FOR I=1 TO 10:KEY I," "+CHR$(8):NEXT I
  3. 120 LOCATE 3,1,0:PRINT "A>":LOCATE 3,3,1
  4. 125 A$=INKEY$:IF LEN(A$)=0 THEN 125
  5. 130 LOCATE 5,1,0:BEEP:PRINT "** SYSTEM ERROR **  - 031B"
  6. 140 LOCATE 7,1,0:PRINT "Water Detected in Disk Drive"
  7. 150 FOR I=1 TO 2000:NEXT I
  8. 160 LOCATE 9,1,0:PRINT "Draining..."
  9. 170 FOR I=1 TO 1500:SOUND INT(RND*32728+40),.01:NEXT I
  10. 180 LOCATE 11,1,0:PRINT "Water Purged from Disk Drive"
  11. 190 SYSTEM
  12. 200 END
  13.