1 REM Ins{nd av Mattias Ericson <6615>    1987-07-26 13.51.09 (DUMP)
10 ! **********************************************************************
20 ! Program          LOGLIST.BAS      Utg}va  1.0      1987-07-26
30 ! av Mattias Ericson <6615>
40 ! Ins{nd av Mattias Ericson <6615>
50 ! F|r ABC800M ABC800C ABC802 ABC806
60 ! Testad p} ABC806
70 ! Anropas SLASK=FNLOGLIST(namnet)
80 ! Innan programet kan k|ras ska FILE1$ och FILE2$ skapas med PREPARE 
90 ! OBS FILE2$ ska inneh}lla talet 0
100 ! **********************************************************************
110 ! 
112 ! En rutin som l{gger till ett namn till en lista av namn och datum. Om
113 ! listan blir mer {n 20 rader, tas den {ldsta bort. /Progred
114 !
115 INTEGER : EXTEND
120 Slask.=FNLoglist.('J\GGE')
130 DEF FNLoglist.(Namnet$)
140   ! 
150   File1$='A.DAT' ! NAMN P] DATAFILEN
160   File2$='A.INL' ! NAMN P] FIL F\E ANTAL POSTER
170   ! 
180   DIM Namn$(21.),Dat$(21.)
190   OPEN File1$ AS FILE 1.
200   OPEN File2$ AS FILE 2.
210   INPUT #2.,A.
220   CLOSE 2.
230   IF A.=20. THEN 240 ELSE 320
240   FOR I.=1. TO 20.
250     INPUT #1.,Namn$(I.)
260     INPUT #1.,Dat$(I.)
270   NEXT I. 
280   FOR I.=2. TO 20.
290     Namn$(I.-1.)=Namn$(I.) : Dat$(I.-1.)=Dat$(I.)
300   NEXT I. 
310   Namn$(20.)=Namnet$ : Dat$(20.)=TIME$ : A.=A.-1. : CLOSE : GOTO 380
320   FOR I.=1. TO A.
330     INPUT #1.,Namn$(I.)
340     INPUT #1.,Dat$(I.)
350   NEXT I. 
360   CLOSE 
370   Namn$(A.+1.)=Namnet$ : Dat$(A.+1.)=TIME$
380   PREPARE File1$ AS FILE 1.
390   FOR I.=1. TO A.+1.
400     ; #1. Namn$(I.)
410     ; #1. Dat$(I.)
420   NEXT I. 
430   PREPARE File2$ AS FILE 2.
440   ; #2.,A.+1.
450   CLOSE 
460   RETURN 0.
470 FNEND