home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / unprotct.bas < prev    next >
Encoding:
BASIC Source File  |  1984-10-20  |  1.2 KB  |  36 lines
  1. 10 REM  This program is written for MBASIC ver 5.21.
  2. 20 REM  To check it out, save it with the ,P option,
  3. 30 REM  then LOAD it, try to list it (fails), RUN it
  4. 40 REM  and try LIST again (works).
  5. 50 REM
  6. 60 PRINT"This is an UNPROTECT-program..."
  7. 70 PRINT"It will, when run, unprotect itself."
  8. 80 PRINT"Presently, it will run only on MBASIC 5.21"
  9. 90 PRINT
  10. 100 PRINT"Enter a decimal address where you know are at least 11 bytes"
  11. 110 INPUT "free for temporary storage : ";A
  12. 120 PRINT
  13. 130 REM   this is the code to UNprotect a loaded file:
  14. 140 REM
  15. 150 REM  mvi a,31h
  16. 160 REM  sta 803h  <= may be different in other versions
  17. 170 REM  xra a
  18. 180 REM  sta 0bech <=  "   "     "      "   "       "
  19. 190 REM  ret
  20. 200 REM
  21. 210 REM  call the above routine wherever you loaded it
  22. 220 REM  by 1) setting a variable to the address and
  23. 230 REM     2) calling it with CALL <variable>.
  24. 240 REM  you can UNprotect lots of files this way; you
  25. 250 REM  don't have to enter the routine or reload MBASIC.
  26. 260 REM
  27. 270 FOR I=0 TO 9
  28. 280 READ N
  29. 290 POKE A+I,N
  30. 300 NEXT
  31. 310 CALL A
  32. 320 PRINT:PRINT
  33. 330 PRINT"The file is now UNprotected - try it by LISTing..."
  34. 340 END
  35. 350 DATA &H3E,&H31,&H32,3,8,&HAF,&H32,&HEC,&H0B,&HC9
  36.