home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / UTIL.CITY.SHK / UTILITY.CITY / KILL-CAT.bas < prev    next >
BASIC Source File  |  2000-01-01  |  922b  |  10 lines

  1. 10  REM <CTRL-M>========<CTRL-M>KILL-CAT<CTRL-M>======== 
  2. 20 KEY$ =  CHR$(3)
  3. 25 T = 256:DOS =  PEEK(978) *T +4410:AE = 174 -(157 - PEEK(978)):L = DOS +3119: POKE DOS,L - INT(L/T) *T: POKE DOS +1, INT(L/T)
  4. 30  POKE L +0,32: POKE L +1,12: POKE L +2,253: POKE L +3,201: POKE L +4, ASC(KEY$) +128: POKE L +5,208: POKE L +6,3: POKE L +7,76: POKE L +8,44: POKE L +9,AE: POKE L +10,76: POKE L +11,60: POKE L +12,AE: POKE L +13,0
  5. 34  REM <CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J>NOTES:<CTRL-J>
  6. 35  FOR I = 1 TO 40: PRINT "-";: NEXT 
  7. 36  IF KEY$ <" "  THEN  PRINT "CTRL-"; CHR$( ASC(KEY$) +64);
  8. 37  IF KEY$ > CHR$(31)  THEN  PRINT  CHR$(34);KEY$; CHR$(34);
  9. 40  PRINT " WILL NOW MAKE A CLEAN BREAK IN": PRINT "A LONG CATALOG. ANY OTHER KEYPRESS WILL CONTINUE AS USUAL.": PRINT : PRINT "  NOTE: YOU CAN APPEND LINES 20-30 TO     YOUR BOOT PROGRAMS TO INCORPORATE THIS  FEATURE INTO YOUR SYSTEM."
  10. 50  FOR I = 1 TO 40: PRINT "-";: NEXT