home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / pc_ham2 / logdel.2 < prev    next >
Encoding:
Text File  |  1985-09-28  |  768 b   |  22 lines
  1. 10 REM LOGDEL VER 790709
  2. 20 REM BY JOE KASSER G3ZCZ
  3. 30 REM COPYRIGHT SNOW MICRO SYSTEMS INC.
  4. 40 ERRSET 160,E1,E2
  5. 50 INPUT"Which log file ? ",L$\IF L$=""THEN 50
  6. 60 INPUT"Which drive is it on ? ",I\IF I<0ORI>4THEN60
  7. 70 I$=STR$(I)
  8. 80 L1$=L$+","+I$(2,2) \ L2$="*"+L$+","+I$(2,2)
  9. 90 DESTROY L1$ \ DESTROY L2$
  10. 100 FOR I=1 TO 4
  11. 110 IF FILE("SYSTEM,"+STR$(I))=2 THEN EXIT 150
  12. 120 NEXT
  13. 130 PRINT"Put a system disc in any drive, then hit 'RETURN'"
  14. 140 INPUT" ",A$\GOTO 100
  15. 150 CHAIN "SYSTEM,"+STR$(I)
  16. 160 ERRSET 160,E1,E2
  17. 170 IF E2=15 THEN 100
  18. 180 IF E1<>110 THEN 190 ELSE IF I>4 THEN 130 ELSE 120
  19. 190 IF E2<>7 THEN 200 ELSE PRINT"FILE ERROR"\GOTO 100
  20. 200 IF E2<>8 THEN 210 ELSE PRINT"HARD DISC ERROR"\GOTO100
  21. 210 PRINT"ERROR ",E2," AT LINE ",E1\GOTO 100
  22.