home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / pc_ham2 / logrenam.2 < prev    next >
Text File  |  1985-09-28  |  2KB  |  57 lines
  1. 10 REM LOGRENAM VER 790906
  2. 20 Q=0
  3. 30 ERRSET 9060,E1,E2
  4. 40 REM DIRECTORY FILE IS <*> AND MUST BE TYPE 3
  5. 50 REM INITIALIZE STRING SPACE
  6. 60 DIM A(15),O$(8),N$(8),T$(8)
  7. 100 REM GET DATA AND OPEN FILE
  8. 110 INPUT "Which disc drive ? ",D\IFD<0ORD>4THEN110
  9. 120 D$=STR$(D)
  10. 130 INPUT "Name of existing log file? ",O$\IFO$=""THEN130
  11. 150 INPUT "New name for file ? ",N$\IFN$=""THEN150
  12. 160 IF LEN(N$)<8THEN170ELSE!"LENTH ERROR (max is 7)"\GOTO150
  13. 170 N1$=N$
  14. 180 IF FILE(O$+","+D$(2,2))=2 THEN 190 ELSE 200
  15. 190 PRINT"FILE ",O$," IS A COMMAND ON THIS DISC"\GOTO 130
  16. 200 IF FILE(N$+","+D$(2,2))=2 THEN 210 ELSE 220
  17. 210 PRINT"FILE ",N$," IS A COMMAND ON THIS DISC"\GOTO 150
  18. 220 IF FILE(N$+","+D$(2,2))=3 THEN 230 ELSE 240
  19. 230 PRINT"FILE ",N$," ALREADY EXISTS"\GOTO 150
  20. 240 OPEN #0,"<*>,"+D$
  21. 250 REM START READING THRU DIRECTORY TO FIND OLD FILE
  22. 260 FOR I=0 TO 62
  23. 270 READ #0%I*16,&A(0),&A(1),&A(2),&A(3),&A(4),&A(5)
  24. 280 READ #0,&A(6),&A(7),&A(8),&A(9),&A(10),&A(11)
  25. 290 READ #0,&A(12),&A(13),&A(14),&A(15)
  26. 300 IF CHR$(A(0))=" " THEN GOTO 340
  27. 310 T$=CHR$(A(0))+CHR$(A(1))+CHR$(A(2))+CHR$(A(3))+CHR$(A(4))
  28. 320 T$=T$+CHR$(A(5))+CHR$(A(6))+CHR$(A(7))
  29. 330 IF O$=T$(1,LEN(O$)) THEN EXIT 370
  30. 340 NEXT I
  31. 350 IF Q=0 THEN 360 ELSE IF O$(1,1)="*" THEN PRINT"POINTER FILE MISSING"
  32. 360 !"FILE ",O$," NOT FOUND"\GOTO 490
  33. 370 REM CONVERT NEW FILE NAME TO ASCII
  34. 380 J=1\N$=N$+"    "
  35. 390 FOR K=0 TO 7
  36. 400 A(K)=ASC(N$(J,J))
  37. 410 J=J+1
  38. 420 NEXT K
  39. 430 REM NOW WRITE OUT NEW DIRECTORY ENTRY
  40. 440 WRITE #0%I*16,&A(0),&A(1),&A(2),&A(3),&A(4),&A(5),NOENDMARK
  41. 450 WRITE #0,&A(6),&A(7),&A(8),&A(9),&A(10),&A(11),NOENDMARK
  42. 460 WRITE #0,&A(12),&A(13),&A(14),&A(15),NOENDMARK
  43. 470 CLOSE #0
  44. 480 IF Q=1 THEN 490 ELSE Q=1\O$="*"+O$\N$="*"+N$(1,LEN(N1$))\GOTO 170
  45. 490 REM ENDING
  46. 9000 FOR I=1 TO 4
  47. 9010 IF FILE("SYSTEM,"+STR$(I))=2 THEN EXIT 9030
  48. 9020 NEXT \ GOTO 9040
  49. 9030 CHAIN "SYSTEM,"+STR$(I)
  50. 9040 PRINT"put a system disc in any drive, then hit 'RETURN'"
  51. 9050 INPUT" ",A$ \ GOTO 9000
  52. 9060 ERRSET 9060,E1,E2
  53. 9070 IF E2=15THEN9000
  54. 9080 IFE1=9010THENIFI<1ORI>4THEN9040ELSE9020
  55. 9090 IFE2<>7THEN9100ELSEPRINT"FILE ERROR"\GOTO9000è9100 IFE2<>8THEN9110ELSEPRINT"HARD DISC ERROR"\GOTO9110
  56. 9110 PRINT"ERROR ",E2," AT LINE ",E1\GOTO9000
  57.