home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / pc_ham2 / logrestr.2 < prev    next >
Encoding:
Text File  |  1985-09-28  |  1.1 KB  |  36 lines
  1. 10 REM LOGRESTR VER 790822
  2. 20 ERRSET 820,E1,E2
  3. 40 REM "Copyright Snow Micro Systems Inc. 1979"
  4. 50 GOSUB 5010 \REM SET UP VARIABLES
  5. 60 GOSUB 5050 \ REM GET DATA NAME
  6. 70 PRINT \ N1=N \E9=1\ REM SET INIT NUMBER
  7. 80 PRINT"There are ",N," entries in the pointer file"
  8. 180 GOTO 1070
  9. 320 CLOSE #1 \ REMWRITING IS OVER
  10. 330 OPEN #0,L2$
  11. 340 WRITE #0,N
  12. 350 CLOSE #0
  13. 360 GOTO 5045
  14. 820 ERRSET 820,E1,E2
  15. 830 IF E1<>5650 THEN 840 ELSE IF I>4 THEN 5670 ELSE 5660
  16. 840 IF E2=15 THEN 360 \ REM CONTROL C INHIBIT
  17. 860 IF E1=1130 THEN 1150
  18. 890 IF E2<>8 THEN  900 ELSE PRINT"HARD DISC ERROR"\ GOTO 360
  19. 970 IF E2<>7 THEN 980 ELSE PRINT"FILE ERROR"\GOTO360
  20. 980 REM
  21. 1000 PRINT"ERROR ",E2,"AT LINE ",E1\GOTO360
  22. 1070 N=9999999
  23. 1090 CLOSE#1
  24. 1100 OPEN #1,L1$
  25. 1110 FOR I=1 TO N
  26. 1120 I1=D1\I2=D2\I3=D3\C1$=C$ \ REM SAVE OLD CALL
  27. 1130 READ #1,&D1,&D2,&D3,T,F,C$,S,R,M$,P,&Q1,&Q2,X$
  28. 1140 NEXT
  29. 1150 N=I-1
  30. 1160 PRINT
  31. 1170 PRINT "LAST ENTRY ON DISC IS NUMBER ",N,
  32. 1180 PRINT " WHICH  IS QSO WITH ",C1$," ON ",I1,I2,I3
  33. 1190 PRINT
  34. 1200 GOTO 320
  35. 5000 REM SUBROUTINE PACKAGE VER 790821
  36.