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