home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D07.D64 / prob (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.2 KB  |  32 lines
  1. 10 REM ********************************
  2. 20 REM *    COPYRIGHT CDU MAY 1991    *
  3. 30 REM *  PROGRAM WRITTEN BY J.FINCH  *
  4. 40 REM *        (TECH-ED, CDU)        *
  5. 50 REM *                              *
  6. 60 REM * '128 FILE PROTECTED' DISABLE *
  7. 70 REM ********************************
  8. 80 :
  9. 90 POKE53280,14:POKE53281,6:PRINT"[147][142]PLEASE ENTER NAME OF PROGRAM FILE",":";
  10. 100 OPEN1,0:INPUT#1,F$:CLOSE1:PRINT:PRINT"DO YOU KNOW THE SECTOR NUMBER ON"
  11. 110 PRINT"WHICH THIS FILE CAN BE FOUND? PRESS Y/N[146]":POKE198,0:Z=0:S=1:F=0
  12. 120 GETA$:IFA$="N"THEN170
  13. 130 IFA$<>"Y"THEN120
  14. 140 PRINT"THE FILE IS ON TRACK 18. PLEASE ENTER   NUMBER OF SECTOR",,,":";
  15. 150 OPEN1,0:INPUT#1,S$:CLOSE1:S=VAL(S$):IFS<1ORS>18THENRUN
  16. 160 PRINT:Z=1
  17. 170 PRINT"[147]SEARCHING...":OPEN15,8,15,"I0":OPEN8,8,8,"#"
  18. 180 PRINT#15,"U1 8 0 18"S:INPUT#15,E,E$,A,B:IFETHEN310
  19. 190 PRINT#15,"B-P:8 0":GET#8,T$:GET#8,S$:NT=ASC(T$+CHR$(0)):NS=ASC(S$+CHR$(0))
  20. 200 PRINT,,"[145](SECTOR"S"[157]) ":FORN=0TO7:PRINT#15,"B-P:8"5+N*32:FL$=""
  21. 210 FORL=1TO16:GET#8,A$:FL$=FL$+A$:NEXT
  22. 220 IFLEFT$(FL$,LEN(F$))=F$THENF=N+1:N=7
  23. 230 NEXT:IFF>0THEN270
  24. 240 S=NS:IFNT=18THEN180
  25. 250 CLOSE8:CLOSE15:PRINT"[147]FILENAME NOT FOUND - PRESS ANY KEY"
  26. 260 POKE198,0:WAIT198,1:POKE198,0:RUN
  27. 270 PRINT"[147]FILE FOUND - UNPROTECTING...":PRINT#15,"B-P:8"2+(F-1)*32
  28. 280 GET#8,A$:A=ASC(A$+CHR$(0)):PRINT#15,"B-P:8"2+(F-1)*32
  29. 290 PRINT#8,CHR$(A AND 191);:PRINT#15,"U2 8 0 18"S
  30. 300 PRINT"OK - IT'S DONE.":CLOSE8:CLOSE15:END
  31. 310 CLOSE8:CLOSE15:PRINT"[147]DISK ERROR: "E$:PRINT"PRESS
  32.