File: -ACTSPL on JCC
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
      1° !********************************************************************!          !      1
      2° !                            CAMFOUR INC.                            !          !      2
      3° !              ACTPOOL - AUTOMATIC SPOOL START UTILITY               !          !      3
      4° !                                                                    !          !      4
      5° !            WRITTEN BY JEFFREY C. CINELLI     AUG 06 1992           !          !      5
      8° !                                                                    !          !      8
     99° !***************************  VARIABLES  ****************************!          !     99
    100°      LENGTH   8   & COMMON SPLFILE$                                             !    100
    110°      LENGTH   3   & COMMON SPLDIR$                                              !    110
    120°      !                                                                          !    120
    130°      LENGTH   3   & LOCAL  SPL$,PRT$,PTN$                                       !    130
    140°      LENGTH   8   & LOCAL  PGM$,FILE$                                           !    140
    150°      LENGTH  50   & LOCAL  DATA$                                                !    150
    160°      !                                                                          !    160
    170°      LENGTH   3.0 & LOCAL  LOOP                                                 !    170
    299° !***************************  USE FILES  ****************************!          !    299
    310° 0001 FORMAT DATA$                                                               !    310
    499° !****************************  FORMATS  *****************************!          !    499
    500° 2500 FORMAT (CS);@(0,0);'Starting Spooler: ';SPL$;_                             !    500
    510°                  @(0,1);'         Printer: ';PRT$;_                             !    510
    520°                  @(0,2);'       Partition: ';PTN$;_                             !    520
    530°                  @(0,3);'    Delete Jobs?: Yes';_                               !    530
    540°                  @(0,4);'    Run Forever?: Yes';_                               !    540
    550°                  @(0,5);'     Search Time: 10 Seconds';_                        !    550
    560°                  @(0,6);'  Skip Partials?: Yes'                                 !    560
    999° !**************************  EXECUTABLES  ***************************!          !    999
   1000°      CLEAR                                                                      !   1000
   1600°      SPL$='SP1'                  ! SPOOLER                                      !   1600
   1700°      PRT$='L'+SUB(SPL$,2,2)      ! PRINTER                                      !   1700
   1800°      PTN$='P99'                  ! PARTITION                                    !   1800
   2300°      !                                                                          !   2300
   2400°      ! BUILD COMMAND FILE                                                       !   2400
   2500°      !                                                                          !   2500
   2600°      FILE$='#'+SPL$+'CMD'                                                       !   2600
   2700°      ERASE FILE$,DIR='TMP',EXCP=4000                                            !   2700
   2800° 4000 CREATE FILE$,50,K,1,DIR='TMP'                                              !   2800
   2900°      CLOSE (1) & OPEN (1) FILE$                                                 !   2900
   3000°      !                                                                          !   3000
   3100°      ! spool-name,printer,partition,delete-flag,forever-flag                    !   3100
   3200°      ! pause-parameter,skip-flag                                                !   3200
   3300°      !                                                                          !   3300
   3400°      DATA$=SPL$+','+PRT$+','+PTN$+',D,F,10,S'                                   !   3400
   3500°      WRITE (1,0001) KEY='A'                                                     !   3500
   3700°      !                                                                          !   3700
   3800°      SPLFILE$=FILE$                                                             !   3800
   3900°      SPLDIR$='TMP'                                                              !   3900
   6100°      ACTIVATE 'P98','QSPOOL'                                                    !   6100
   6200°      RUN 'QMONITOR'                                                             !   6200