- GOTO SCREEN begin
*>SCREEN begin
- PUT HUGE TEXT AT (2,1): "NAC  CNC"
- PUT LARGE TEXT AT (4,3): "5 AXIS GRINDER"
- DELAY 1000
- COM: INIT COM 1 ECHO 1 BAUD 96 HANDSHAKE 0 TIMEOUT 250 STRIP 1
- TITLE:::::::::: ":::::::::::::::::::::::::::::::::::::::::::::::::::::" ::::::::::::
- TITLE:::::::::: "CHECK OUT ALL SX FOR COMM AND STATUS" ::::::::::::
- LABEL check
- CLEAR GRAPHICS SCREEN
- COM: PUT COM 1 TEXT "E K MN MPA SSI0"
- PUT LARGE TEXT AT (4,1): "NAC CNC GRINDER"
  SX = 1
  FOR SX = 1 TO 5
- CLEAR SCREEN
- PUT TEXT AT (10,4): "PERFORMING SELF TEST"
- PUT TEXT AT (12,5): "CHECKING DRIVE "
- PUT NUMBER sx AT (27,5) USING "#"
  SXNUMB$ = STR$(SX) + "R"
  N = 1
- GOSUB LABEL comtest
  NEXT
- LABEL comtest
- COM: PUT COM 1 TEXT sxnumb$
- COM: GET COM 1 TEXT stat$
  IF STAT$ = "*R" AND SX% = 1 THEN GOTO OPEN
  IF STAT$ = "*S" OR STAT$ = "*B" OR STAT$ = "*Z" THEN GOTO BAD
  IF STAT$ = "*C" THEN GOTO BAD
  IF STAT$ = "*R" THEN RETURN
  IF N = 11 GOTO NOTALK
- PUT TEXT AT (9,6): "DRIVE IS NOT RESPONDING"
- PUT TEXT AT (4,8): "RETRYING CHECK OUT -- ATTEMPT #"
- PUT NUMBER n AT (36,8) USING "##"
  N = N + 1
- GOTO LABEL comtest
  RETURN
- LABEL bad
- CLEAR SCREEN
- PUT TEXT AT (8,4): "DRIVE "
- PUT NUMBER sx AT (15,4) USING "#"
- PUT TEXT AT (19,4): "REPORTS PROBLEM"
- PUT TEXT AT (8,6): "STATUS OF DRIVE IS"
  POS 27,6:PRINT USING "/ /";STAT$
- PUT TEXT AT (9,7): "__PRESS F6 TO CONTINUE--"
- SOFTKEY (6) "CONT" GOTO SCREEN exit
- SOFTKEY WAIT
- LABEL notalk
- CLEAR SCREEN
- PUT TEXT AT (3,3): "CANNOT ESTABLISH COMMUNICATIONS WITH"
- PUT TEXT AT (15,4): "DRIVE "
- PUT NUMBER sx AT (21,4) USING "#"
- PUT TEXT AT (8,6): "EXITING TO MANUAL CONTROL"
- PUT TEXT AT (8,8): "REPAIR PROBLEM AND RESTART"
- DELAY 2500
- GOTO SCREEN exit
*>SCREEN open
- HOT KEY (6) DISABLE
- PUT LARGE TEXT AT (3,1): "NAC  CNC GRINDER"
- PUT LARGE TEXT AT (2,2): "SELECT A FUNCTION"
  P6$ = "MANUAL"
- SOFTKEY (1) "RUN" GOTO SCREEN run
- SOFTKEY (2) "PROG" GOTO SCREEN program
- SOFTKEY (3) "SET" GOTO SCREEN set
- SOFTKEY (4) "UTIL" GOTO SCREEN utility
- SOFTKEY (5) "POSIT" GOTO SCREEN position
- SOFTKEY (6) p6$ GOTO SCREEN manual
- SOFTKEY WAIT
- LABEL return
- GOTO SCREEN open
- TITLE:::::::::: ":::::::::::::::::::::::::::::::::::::::::::::::::::::" ::::::::::::
- TITLE:::::::::: "RETURN TO BASIC" ::::::::::::
*>SCREEN run
- PUT TEXT AT (4,4): "PROGRAM SELECTED IS"
- PUT LARGE TEXT AT (4,1): "NAC CNC GRINDER"
- PUT TEXT AT (15,7): "SINGLE"
- SOFTKEY (1) "AUTO" GOTO SCREEN auto
- SOFTKEY (3) "BLOCK" GOTO SCREEN single
- SOFTKEY (6) "RETUR" GOTO SCREEN open
- SOFTKEY WAIT
*>SCREEN single
- PUT LARGE TEXT AT (5,1): "SINGLE BLOCK"
- COM: PUT COM 1 TEXT "XST1"
*>SCREEN prog
- PUT TEXT AT (9,1): "SELECT PROGRAM BY NUMBER"
- PUT TEXT AT (3,3): "1) ONSI           2) BORG WARNER"
- PUT TEXT AT (3,4): "3) ZOLLNER        4) THREAD INSERTS"
- PUT TEXT AT (3,5): "5) GROOVE INSERTS 6)"
- PUT TEXT AT (3,6): "7)                8)"
- PUT TEXT AT (3,7): "9)                0) UTILITY PROG"
  POS 2,8
- HOT KEY (6) "RETURN" INTERRUPT: GOSUB LABEL open
  INPUT "SELECTION",SEL$
  IF SEL$ = '1' THEN GOTO ONSI
  IF SEL$ = '2' THEN PROG$ = 7:GOTO OPEN
  IF SEL$ = '3' THEN GOTO ZOLL
  IF SEL$ = '4' THEN GOTO THREAD
  IF SEL$ = '5' THEN GOTO GROOVE
  IF SEL$ = '6' THEN GOTO NOT
  IF SEL$ = '7' THEN GOTO NOT
  IF SEL$ = '8' THEN GOTO NOT
  IF SEL$ = '9' THEN GOTO NOT
  IF SEL$ = '0' THEN GOTO UTILP
- LABEL onsi
- CLEAR SCREEN
- PUT TEXT AT (10,1): "ONSI - SELECT PROGRAM"
- PUT TEXT AT (6,2): "1) REGRING/TOP/GROOVE/CHAMFER"
- PUT TEXT AT (6,3): "2) GROOVE I6 INCH"
- PUT TEXT AT (6,4): "3) GROOVE 13 INCH RIGHT HAND"
- PUT TEXT AT (6,5): "4) GROOVE 13 INCH LEFT HAND"
- PUT TEXT AT (6,6): "5) GROOVE DET 1"
- PUT TEXT AT (6,7): "6) GROOVE DET 2"
  POS 2,8
  INPUT "SELECTION",SELP$
  IF SEL$ = '1' THEN PROG$ = 1:GOTO OPEN
  IF SEL$ = '2' THEN PROG$ = 2:GOTO OPEN
  IF SEL$ = '3' THEN PROG$ = 3:GOTO OPEN
  IF SEL$ = '4' THEN PROG$ = 4:GOTO OPEN
  IF SEL$ = '5' THEN PROG$ = 5:GOTO OPEN
  IF SEL$ = '6' THEN PROG$ = 6:GOTO OPEN
- LABEL zoll
- CLEAR SCREEN
- PUT TEXT AT (9,1): "ZOLLNER -SELECT PROGRAM"
- PUT TEXT AT (6,2): "1) GRIND DET                 "
- PUT TEXT AT (6,3): "2) GRIND         "
- PUT TEXT AT (6,4): "3) GRIND DET                "
- PUT TEXT AT (6,5): "4) GRIND DET               "
- PUT TEXT AT (6,6): "5) GRIND DET  "
- PUT TEXT AT (6,7): "6) GRIND DET  "
  POS 2,8
  INPUT "SELECTION",SELP$
  IF SEL$ = '1' THEN PROG$ = 8:GOTO OPEN
  IF SEL$ = '2' THEN PROG$ = 9:GOTO OPEN
  IF SEL$ = '3' THEN PROG$ = 10:GOTO OPEN
  IF SEL$ = '4' THEN PROG$ = 11:GOTO OPEN
  IF SEL$ = '5' THEN PROG$ = 12:GOTO OPEN
  IF SEL$ = '6' THEN PROG$ = 13:GOTO OPEN
- LABEL thread
- CLEAR SCREEN
- PUT TEXT AT (10,1): "THREAD-SELECT PROGRAM"
- PUT TEXT AT (6,2): "1) 60 DEG NOTCH LOK          "
- PUT TEXT AT (6,3): "2) ACME  NOTCH LOK"
- PUT TEXT AT (6,4): "3) BUTTRESS NOTCH LOK       "
- PUT TEXT AT (6,5): "4) 60 DEG REGULAR TNMA/TNMC"
- PUT TEXT AT (6,6): "5) ACME TNMA/TNMC"
- PUT TEXT AT (6,7): "6) OTHER       "
  POS 2,8
  INPUT "SELECTION",SELP$
  IF SEL$ = '1' THEN PROG$ = 15:GOTO OPEN
  IF SEL$ = '2' THEN PROG$ = 16:GOTO OPEN
  IF SEL$ = '3' THEN PROG$ = 17:GOTO OPEN
  IF SEL$ = '4' THEN PROG$ = 18:GOTO OPEN
  IF SEL$ = '5' THEN PROG$ = 19:GOTO OPEN
  IF SEL$ = '6' THEN PROG$ = 20:GOTO OPEN
- LABEL groove
- CLEAR SCREEN
- PUT TEXT AT (10,1): "GROOVE-SELECT PROGRAM"
- PUT TEXT AT (6,2): "1) NOTCH LOK"
- PUT TEXT AT (6,3): "2) TNMA/TNMC"
- PUT TEXT AT (6,4): "3) OTHER"
- PUT TEXT AT (6,5): "4) NOT AVAILABLE"
- PUT TEXT AT (6,6): "5) NOT AVAILABLE"
- PUT TEXT AT (6,7): "6) NOT AVAILABLE"
  POS 2,8
  INPUT "SELECTION",SELP$
  IF SEL$ = '1' THEN PROG$ = 21:GOTO OPEN
  IF SEL$ = '2' THEN PROG$ = 22:GOTO OPEN
  IF SEL$ = '3' THEN PROG$ = 23:GOTO OPEN
  IF SEL$ = '4' THEN PROG$ = 0:GOTO OPEN
  IF SEL$ = '5' THEN PROG$ = 0:GOTO OPEN
  IF SEL$ = '6' THEN PROG$ = 0:GOTO OPEN
- LABEL not
- CLEAR SCREEN
- PUT TEXT AT (3,4): "NO PROGRAMS AVAILABLE AT THIS TIME"
- DELAY 1500
  PROG$ = 0:GOTO OPEN
- LABEL utilp
- CLEAR SCREEN
- PUT TEXT AT (9,1): "UTILITY - SELECT PROGRAM"
- PUT TEXT AT (6,2): "1) CUTOFF/FACEOFF"
- PUT TEXT AT (6,3): "2) CHECK RUNOUT X VERSUS Y"
- PUT TEXT AT (6,4): "3) FULL CYCLE Y AND Z"
- PUT TEXT AT (6,5): "4) CHECK RUNOUT Z"
- PUT TEXT AT (6,6): "5) NOT AVAILABLE"
- PUT TEXT AT (6,7): "6) NOT AVAILABLE"
  POS 2,8
  INPUT "SELECTION",SELP$
  IF SEL$ = '1' THEN PROG$ = 27:GOTO OPEN
  IF SEL$ = '2' THEN PROG$ = 28:GOTO OPEN
  IF SEL$ = '3' THEN PROG$ = 29:GOTO OPEN
  IF SEL$ = '4' THEN PROG$ = 30:GOTO OPEN
  IF SEL$ = '5' THEN PROG$ = 0:GOTO OPEN
  IF SEL$ = '6' THEN PROG$ = 0:GOTO OPEN
*>SCREEN exit
- PUT LARGE TEXT AT (3,1): "NAC CNC GRINDER"
- PUT LARGE TEXT AT (3,2): "FAULT CONDITION"
- PUT LARGE TEXT AT (2,3): "CAUSED TERMINATION"
- DELAY 2500
  POS 1,6
  STOP
- END OF PSEUDOCODE