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