10  FILES *,*,*
20  DIM A$[255],B$[255],C$[80],D$[80],E$[80],F$[80]
30  PURGE X2,"LPS0"
40  SYSTEM X,"FIL-LPS0,LP"
50  IF X=0 THEN 80
60  PRINT "Your account does not have line printer option"'7
70  GOTO 700
80  SYSTEM D$,"TIM"
90  PRINT "LINE PRINTER DRIVER"
100  PRINT "Type 'H' for help."
110  PRINT 
120  PRINT "Input file ";
130  LINPUT C$
140  IF C$[1,1]="H" THEN 440
150  ASSIGN C$,1,R, NR 
160  IF R#0 THEN 200
170  ASSIGN "LPS0",2,R1
180  IF R1#8 THEN 220
190  GOTO 280
200  PRINT C$;"-- NOT ACCESABLE"'7
210  GOTO 120
220  PRINT "Line printer busy -- Will you camp on ?";
230  INPUT C$
240  IF C$[1,1]#"Y" THEN 700
250  SYSTEM X,"PAU-10"
260  ASSIGN "LPS0",2,R1
270  IF R1#8 THEN 250
280  Y=BRK(0)
290  PRINT #2;"FROM ACCOUNT -- ";D$[1,4]
300  GOSUB 520
310  PRINT "Printing ... please wait"
320  IF  END #1 THEN 360
330  LINPUT #1;A$
340  PRINT #2;A$
350  GOTO 320
360  PRINT #2;LIN(3)
370  PRINT #2;"******************************************************"
380  PRINT #2;"******************************************************"
390  PRINT #2;"******************************************************"
400  PRINT #2;LIN(100)
410  PURGE X,"033K2S"
420  PRINT "END OF LISTING"'7
430  GOTO 700
440  PRINT "You must list your program into an ascii file"
450  PRINT " ex : GET-MYPROG"
460  PRINT "      LIS*OUT=ASCII*"
470  PRINT "      EXE-$LPRINT"
480  PRINT 
490  PRINT "      Input file :ASCII"
500  PRINT "Your output is now printing on LP."
510  GOTO 10
520  LET K=TIM(2)
530  LET Z=TIM(3)+1900
540  LET O=(Z=4*INT(Z/4))-(Z=1000*INT(Z/1000))
550  LET N=INT((K+30+(3-O)*(K>59)+(K>120)+(K>181)+(K>273)+(K>334))/31)
560  LET E=K-31*N+31+(N>2)*(INT((N+3)/2)-O)-(N=9)-(N=11)
570  PRINT #2; USING 580;N,E,Z
580  IMAGE DD,"/",DD,"/",4D
590  A=TIM(1)
600  LET A=A-12*(A>12)
610  LET A=A+12*(A=0)
620  B=TIM(0)
630  IF B>9 THEN 660
640  PRINT #2; USING 650;A,TIM(0)
650  IMAGE"TIME OUT = ",DD,":0",D
660  PRINT #2; USING 690;A,TIM(0)
670  PRINT #2;LIN(3)
680  RETURN 
690  IMAGE"TIME OUT = ",DD,":",DD
700  PURGE X,"LPS0"
777  END 
