home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / BAS_SUB.ZIP / CNTRL-BR.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-04-19  |  640 b   |  14 lines
  1. 1 DEF SEG=0:V1=PEEK(108):V2=PEEK(109):V3=PEEK(110):V4=PEEK(111)
  2. 2 DEF SEG=0:POKE 108,&H53:POKE 109,&HFF:POKE 110,&H0:POKE 111,&HF0
  3. 10 PRINT"This routine defeats Cntrl-Break . . . "
  4. 20 PRINT"Input an A to continue.";
  5. 30 INPUT A$: IF A$="a" OR A$="A" THEN 38 ELSE 30
  6. 38 DEF SEG=0:POKE 108,V1:POKE 109,V2:POKE 110,V3:POKE 111,V4
  7. 40 PRINT"This routine PROTECTS the program"
  8. 45 DEF SEG:POKE 1124,255
  9. 50 PRINT"Try to LIST it, then RUN 60"
  10. 51 END
  11. 60 PRINT"Now you may LIST the program."
  12. 65 DEF SEG:POKE 1124,0
  13. 70 END
  14.