C PICAX3.FOR C C---------------------------------------------------------------------- C C PICAX OVERLAY MODULE - REGION 3 C C---------------------------------------------------------------------- C C DESCRIPTION OF SYSTEM COMMANDS C C LAST MODIFICATION ON 17 JUL 81 C C---------------------------------------------------------------------- C SUBROUTINE INFO(N) GO TO (100,200,300,400,500,600,700,800,900,1000,1100,1200,1300, 1 1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400,2500, 2 2600,2700,2800), N C 100 WRITE (5,110) 110 FORMAT(' EXAMPLE:'/' A 5,1E5'/ 1 ' WILL ADD 1E5 TO VARIABLE 5.') RETURN C 200 CALL QUANAL RETURN C 300 WRITE (5,310) 310 FORMAT(' CLOSE THE DISK OUTPUT FILE.'/ 1 ' IF NO FILE IS OPEN, COMMAND IS IGNORED.') RETURN C 400 WRITE (5,410) 410 FORMAT(' DIRECTORY LISTING:'/' DI'/ 1 ' PRODUCES A DIRECTORY LISTING ON THE CONSOLE.'/ 2 ' DI 6'/' PRODUCES A DIRECTORY LISTING ON THE LINE PRINTER.') RETURN C 500 WRITE (5,510) 510 FORMAT(' DO LOOP:'/' EXAMPLE:'/' DO 30,5'/ 1 ' REPEATS THE SET OF INSTRUCTIONS FROM THE CURRENT LINE TO '/ 2 ' LINE 30 FIVE TIMES.') RETURN C 600 WRITE (5,610) 610 FORMAT(' ERASES CONSOLE SCREEN.') RETURN C 700 WRITE (5,710) 710 FORMAT(' CLOSES OUTPUT FILE IF OPEN AND EXITS PROGRAM.') RETURN C 800 WRITE (5,810) 810 FORMAT(' FIND AN OLD DISK INPUT FILE.'/' FI'/ 1 ' WILL CAUSE PROGRAM TO ASK FOR "FILENAME".'/ 2 ' REPLY WITH ANY LEGAL NAME, SUCH AS "DX2:DATA21.SST".'/ 3 ' (IF NO EXTENSION IS TYPED, "DAT" IS ASSUMED.)'/ 4 ' IF THE FILE IS FOUND, THE FIRST RECORD WILL BE READ.') RETURN C 900 WRITE(5,910) 910 FORMAT(' GO'/' WILL START THE PROGRAM AT THE FIRST LINE.'/ 1 ' GO 25'/' WILL START THE PROGRAM AT LINE 25.') RETURN C 1000 WRITE (5,1010) 1010 FORMAT(' HELP'/' GIVES THE USER A LITTLE USEFUL INFO.') RETURN C 1100 WRITE (5,1110) 1110 FORMAT(' HC'/' ISSUES A COMMAND TO THE HARCOPY UNIT TO' 1 /' MAKE A COPY OF THE CONSOLE SCREEN.') RETURN C 1200 WRITE (5,1210) 1210 FORMAT(' KILL PROGRAM'/' DELETES THE ENTIRE CURRENT PROGRAM.'/ 1 ' TO DELETE A SINGLE LINE OF THE PROGRAM, TYPE THE LINE'/ 2 ' NUMBER FOLLOWED BY A RETURN.') RETURN C 1300 WRITE (5,1310) 1310 FORMAT(' LIST THE AVAILABLE COMMANDS AND THEIR BRIEF', 1 ' DESCRIPTION') RETURN C 1400 WRITE (5,1410) 1410 FORMAT(' LIST THE CURRENT PROGRAM AND COMMAND VARIABLES.') RETURN C 1500 WRITE (5,1510) 1510 FORMAT(' LIST THE USER VARIABLES,THEIR VALUES, AND A', 1 ' BRIEF DESCRIPTION.') RETURN C 1600 WRITE (5,1610) 1610 FORMAT(' OPEN A NEW DISK FILE FOR OUTPUT.'/' O'/ 1 ' WILL CAUSE THE PROGRAM TO ASK FOR A "FILENAME".'/ 2 ' REPLY WITH ANY LEGAL NAME, SUCH AS "DX2:GOAGS.UCD".'/ 3 ' (IF NO EXTENSION IS TYPED, "DAT" IS ASSUMED.)') RETURN C 1700 CALL QUPLOT RETURN C 1800 WRITE (5,1810) 1810 FORMAT(' PAUSES UNTIL A RETURN IS TYPED.') RETURN C 1900 CALL QUPROC RETURN C 2000 CALL QUREAD RETURN C 2100 CALL QUSTRT RETURN C 2200 WRITE (5,2210) 2210 FORMAT(' THE NEXT LINE TYPED WILL BE A TITLE FOR THE DATA.') RETURN C 2300 WRITE (5,2310) 2310 FORMAT(' EXAMPLE:'/' V3 = 1E5'/' WILL SET USER VARIABLE 3 TO 1E5') RETURN C 2400 CALL QUWRIT RETURN C 2500 WRITE (5,2510) 2510 FORMAT(' EXAMPLE:'/' WAIT 200'/ 1 ' WILL WAIT FOR 200 TIMES 10 MS, OR 2 SECONDS.') RETURN C 2600 CALL QUZERO RETURN 2700 CALL UINFO (N) RETURN C C 2800 RETURN END -AL