home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug045.ark / P_R080.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  1.4 KB  |  36 lines
  1.     REMARK    ********************************************\
  2.         *  P/R080.BAS      JOB POSTING FILE UPDATE *\
  3.         *   5/10/79                  9:15  AM      *\
  4.         ********************************************
  5.  
  6. %INCLUDE CURSOR
  7.   
  8.     DIM T2(8)
  9.     GOTO 6000
  10. %INCLUDE FIND-EOF
  11. 6000    OPEN "P/R0F040.DAT" RECL 42 AS 1 BUFF 20 RECS 128        REMARK  OPEN P/R TRANSACTION FILE
  12.     OPEN "JOB0F110.DAT" RECL 42 AS 2                REMARK OPEN JOB POSTING FILE
  13. 6020    PRINT CLEAR.SCREEN$;"P/R JOB POSTINGS"
  14.     PRINT
  15.     PRINT "KEY RETURN TO BEGIN; CTRL-C TO EXIT"
  16. 6025    IF CONSTAT%=0 THEN GOTO 6025
  17.     A%=CONCHAR%
  18.     IF A%=03H THEN GOTO 8000
  19.     IF A%<>0DH THEN GOTO 6025
  20.      PRINT "WORKING...DO NOT INTERRUPT"
  21.     I%=2
  22.     GOSUB 1150                            REMARK  FIND NUMBER OF RECORDS IN JOB POSTING FILE
  23.     POST.RECS%=RECS%
  24.     IF END #1 THEN 7000                        REMARK  SET EOF DESTINATION FLAG
  25. 6050    READ #1; T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8)    REMARK  READ NEXT TRANSACTION RECORD
  26.     IF T2(6)=0 THEN GOTO 6050
  27.     POST.RECS%=POST.RECS%+1                        REMARK  INCREMENT JOB POSTING TOTAL AND FILE POINTER
  28.     PRINT #2,POST.RECS%; T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8)
  29.     GOTO 6050                            REMARK  LOOP BACK UNTIL TRANSACTION FILE IS EXHAUSTED
  30.  
  31.  
  32. 7000    CLOSE 1,2                            REMARK  CLOSE JOB POSTING AND TRANSACTION FILES
  33.     CREATE "P/R0F040.DAT" AS 1                    REMARK  RE-CREATE TRANSACTION FILE
  34. 8000    PRINT CLEAR.SCREEN$;"P/R JOB POSTING LOADING MENU"        REMARK  DISPLAY EXIT MESSAGE
  35.     CHAIN "P/R000"                            REMARK  LOAD MENU
  36.