100 ! PROGRAM TO READ IN DSM.LOG FILE AND DO APPROPRIATE MESSAGE THINGS
110 DIM GC$[3]V,PC$[3]V,A$[80]V,ST$[6]V,SL$[6],FA$[13]
120 B=0 : CALL "SPAWNB"("PIP LB:[1,1]DSMMSG.DAT;*,DSMNOT.DAT;*,DSM.LOG;*/DE",B)
130 CALL "SPAWNB"("DSM",B)
140 OPEN #3, "LB:[1,1]DSM.LOG/RO"
150 IF END #3 THEN 310
160 PRINT CHR$(12)
170 PRINT A$ : PRINT : ! PRINT FIRST LINE WITH DATE
180 INPUT LINE #3, A$
190 IF POS(A$,"DP")<>7 THEN 180
200 PRINT A$;
210 IF LEN(A$)>39 THEN PRINT : PRINT TAB(38);
220 FA$=SEG$(A$,POS(A$,"DP"),POS(A$,"]"))
230 P1=POS(A$,"[")+1 : P2=POS(A$,",")-1 : P3=P2+2 : P4=POS(A$,"]")-1
240 P5=POS(A$,"=")+1 : P6=POS(A$,"/")-1 : P7=P6+2 : P8=LEN(A$)
250 GC$=SEG$(A$,P1,P2) : PC$=SEG$(A$,P3,P4)
260 ST$=SEG$(A$,P7,P8) : SL$=SEG$(A$,P5,P6)
270 ST=VAL(ST$) : SL=VAL(SL$)
280 IF SL>ST THEN 300
290 PRINT "  >>>  ";ST$;" USED, ";SL$;" ALLOCATED";
300 PRINT : GOTO 180
310 CLOSE
320 EXIT