- GOTO SCREEN begin
*>SCREEN begin
- POWER RESUME ON
- GOTO SCREEN mainscr
*>SCREEN dsplyscr
- DELAY 500
- PUT LARGE TEXT AT (3,2): "VERIFY THAT ALL"
- PUT LARGE TEXT AT (4,3): "PIXELS DARKEN"
- DELAY 2000
- CLEAR GRAPHICS SCREEN
  POS 40,8
  CALL BOX(239,1,1,63,101)
- DELAY 3000
  CALL BOX(239,1,1,63,100)
  pos 40,8
  call LINE( 239,25,0,25,1 )
  t = 0 : x% = 0
- LABEL sine1
  call LINE( ,,x%,25+sin(t)*25,1 )
  t = t - .475 : x% = x% + 2
  
  if x%<240 then goto sine1
  t = 0 : x% = x% - 2
- LABEL sine2
  call LINE( ,,x%,25+sin(t)*25,1 )
  t = t - .475 : x% = x% - 2
  if x%>=0 then goto sine2
  call LINE( 239,25,0,25,0 )
  t = 0 : x% = 0
- LABEL sineone
  call LINE( ,,x%,25+sin(t)*25,0 )
  t = t - .475 : x% = x% + 2
  if x%<240 then goto sineONE
  t = 0 : x% = x% - 2
- LABEL sinetwo
  call LINE( ,,x%,25+sin(t)*25,0 )
  t = t - .475 : x% = x% - 2
  if x%>=0 then goto sineTWO
- GOTO SCREEN mainscr
*>SCREEN verscr
- PUT LARGE TEXT AT (8,1): "FIRMWARE VER."
- PUT TEXT AT (23,4): ">"
  POS 24,4
  VER
  pos 40,7
- PUT TEXT AT (24,5): "1000 = 2 ^^"
- PUT TEXT AT (24,6): "1100 = 3 ||"
- PUT TEXT AT (1,1): "1=STANDARD"
- PUT TEXT AT (1,2): "2=MODICON"
- PUT TEXT AT (1,3): "3=GE-90"
- PUT TEXT AT (1,4): "4=TI305/405 5=TI505"
- PUT TEXT AT (1,5): "6=PLC-5     7=OMRON"
- PUT TEXT AT (1,6): "8=PL2 9=SLC 10=IDEC"
- PUT TEXT AT (1,7): "11=MITZUM 12=BOSCH 13=SQR-D ----++"
- SOFTKEY (6) "MAIN" GOTO SCREEN mainscr
- SOFTKEY WAIT
*>SCREEN mainscr
  POS 40,8
- CLEAR GRAPHICS SCREEN
- PUT LARGE TEXT AT (1,1): "----MAIN----MENU----"
- PUT LARGE TEXT AT (1,2): "EASON TECHNOLOGY,INC"
- PUT LARGE TEXT AT (1,3): "--- SYSTEM TEST ----"
- SOFTKEY (1) "SNGLE" GOTO SCREEN sngscr
- SOFTKEY (2) "CONT" GOTO SCREEN contscr
- SOFTKEY (3) "OPTON" GOTO SCREEN optscr
- SOFTKEY (4) "DSPLY" GOTO SCREEN dsplyscr
- SOFTKEY (5) "VERSN" GOTO SCREEN verscr
- SOFTKEY (6) "EXIT" GOTO SCREEN exitscr
- SOFTKEY WAIT
*>SCREEN testsscr
  j=7
- COMMENT "When unit=0 then we have an 1000"
  unit=0
  passcnt=1
  TSTFAIL=0
- GOTO SCREEN startscr
*>SCREEN testscr
  J=23
- COMMENT "When unit=1 then we have an 1100"
  unit=1
  passcnt=1
  TSTFAIL=0
- GOTO SCREEN startscr
*>SCREEN startscr
- PUT TEXT AT (4,1): " TESTING IN PROGESS"
  if cntuos then showt$ = "PASS # " + STR$(passcnt) else showt$ = ""
- PUT TEXT AT (24,1): showt$
- COM: INIT COM 1 ECHO 0 BAUD 96 HANDSHAKE 0 TIMEOUT 500 STRIP 1
- COM: INIT COM 2 ECHO 0 BAUD 96 HANDSHAKE 0 TIMEOUT 500 STRIP 1
  a$="1234567890123456789012345678901234567890"
- TITLE:::::::::: "-----------------------------------------------" ::::::::::::
- TITLE:::::::::: "   RS232 COMMUNICATIONS TEST         1100      " ::::::::::::
- TITLE:::::::::: "-----------------------------------------------" ::::::::::::
- PUT TEXT AT (1,2): "TESTING RS232 COM1 -> COM2"
- COM: PUT COM 1 TEXT a$
- COM: GET COM 2 TEXT b$
  if a$=b$ then m$="PASSED" else m$="FAILED <--":TSTFAIL=1
- PUT REVERSE TEXT AT (30,2): m$
  if TSTFAIL then goto failedio
- PUT TEXT AT (1,3): "TESTING RS232 COM2 -> COM1"
- COM: PUT COM 2 TEXT a$
- COM: GET COM 1 TEXT b$
  if a$=b$ then m$="PASSED" else m$="FAILED <--":TSTFAIL=1
- PUT REVERSE TEXT AT (30,3): m$
  if TSTFAIL then goto failedio
- DELAY 500
- TITLE:::::::::: "-----------------------------------------------" ::::::::::::
- TITLE:::::::::: "   RS422 COMMUNICATIONS TEST       1100        " ::::::::::::
- TITLE:::::::::: "-----------------------------------------------" ::::::::::::
  if unit=0  then goto comone
  rs422 #1, on:rs422#1, TXON: rs422 #2, on:rs422#2,TXON
- PUT TEXT AT (1,4): "TESTING RS422 COM1 -> COM2"
- COM: PUT COM 1 TEXT a$
- COM: GET COM 2 TEXT b$
  if a$=b$ then m$="PASSED" else m$="FAILED <--":TSTFAIL=1
- PUT REVERSE TEXT AT (30,4): m$
  if TSTFAIL then goto failedio
- PUT TEXT AT (1,5): "TESTING RS422 COM2 -> COM1"
- COM: PUT COM 2 TEXT a$
- COM: GET COM 1 TEXT b$
  if a$=b$ then m$="PASSED" else m$="FAILED <--":TSTFAIL=1
- PUT REVERSE TEXT AT (30,5): m$
  if TSTFAIL then goto failedio
  rs422#1, off:rs422#2, off
- GOTO LABEL chkio
- LABEL comone
  rs422 #1, on:rs422#1, TXON
- PUT TEXT AT (1,4): "TESTING RS422 COM1 -> COM1"
- COM: PUT COM 1 TEXT a$
- COM: GET COM 1 TEXT b$
  if a$=b$ then m$="PASSED" else m$="FAILED <--":TSTFAIL=1
- PUT REVERSE TEXT AT (30,4): m$
  if TSTFAIL then goto failedio
  rs422#1, off
- LABEL chkio
  A$="TESTING "+STR$(J+1)+" BIT I/O PORT"
- PUT TEXT AT (1,6): a$
  iobit=1: for a=0 to j:N&=2^A:out N&:inp I&
  if N&<>I& then iobit=0
  next A
  if iobit=1 then m$="PASSED" ELSE m$="FAILED <--":TSTFAIL=1
- PUT REVERSE TEXT AT (30,6): m$
  if TSTFAIL then goto failedio
  if cntuos and unit then goto tstprtr
  if cntuos and not unit then goto incrmnt
- LABEL keyboard
- TITLE:::::::::: "-----------------------------------------------" ::::::::::::
- TITLE:::::::::: "            Keyboard test         1100         " ::::::::::::
- TITLE:::::::::: "-----------------------------------------------" ::::::::::::
  DIN=0
- PUT TEXT AT (1,7): "TYPE 'U*' ON XT KEYBOARD"
- GET STRING h$ AT (26,7)
  if h$<>"U*" then m$="FAILED <--":TSTFAIL=1
  if h$="U*" then DIN=1:m$="PASSED" 
- PUT REVERSE TEXT AT (30,7): m$
- TITLE:::::::::: "-----------------------------------------------" ::::::::::::
- TITLE:::::::::: "            Keypad test   1100                 " ::::::::::::
- TITLE:::::::::: "-----------------------------------------------" ::::::::::::
  KPD = 0: u$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ.-"
- DELAY 500
- CLEAR GRAPHICS SCREEN
- CLEAR SCREEN
- PUT TEXT AT (2,2): "TEST ALL ALPHA KEYS ON THE EASON PANEL"
- PUT TEXT AT (5,4): ">"
- PUT TEXT AT (6,5): "ABCDEFGHIJKLMNOPQRSTUVWXYZ.-"
- GET STRING p$ AT (6,4)
- PUT TEXT AT (34,4): "<"
  if p$<>u$ then m$="FAILED <--":TSTFAIL=1
  if p$=u$ then KPD=1:m$="PASSED KEYPAD TEST"
- PUT REVERSE TEXT AT (10,6): m$
- DELAY 1000
  if TSTFAIL=1 then goto failscr else goto passscr
*>SCREEN passscr
- CLEAR GRAPHICS SCREEN
- PUT LARGE TEXT AT (3,2): "IS THE BACKLIGHT"
- PUT LARGE TEXT AT (7,3): "FLASHING"
- LABEL offer
- DELAY 150
  call backlight(3)
- DELAY 100
  call backlight(2)
- DELAY 150
- SOFTKEY (1) " YES " GOTO SCREEN goon
- SOFTKEY (3) " NO! " GOTO SCREEN noflash
- SOFTKEY CHECK
- GOTO LABEL offer
*>SCREEN goon
  call backlight(1)
- CLEAR SCREEN
- CLEAR GRAPHICS SCREEN
- DELAY 500
  CALL BOX(8,10,232,52,1)
  CALL BOX(6,8,234,54,1)
  CALL BOX(5,7,235,55,1)
- PUT TEXT AT (5,3): "THIS EASON UNIT HAS PASSED ALL"
- PUT TEXT AT (4,4): "STANDARD DIAGNOSTIC SYSTEM TESTS"
  POS 13,6
  VER
  FOR I=12 TO 50
  CALL LINE(10,I,230,I,1)
  NEXT I
- DELAY 1000
  lPRINT "PRINTER OK 1234567890 ABCDEFGHIJKLMNOPQRSTUVWXYZ !@#$%^&*()_+|"
- DELAY 500
- GOTO SCREEN mainscr
*>SCREEN failscr
- PUT LARGE TEXT AT (1,1): "********************"
- PUT LARGE TEXT AT (2,2): "THE TEST HAS FAILED"
- PUT LARGE TEXT AT (1,3): "********************"
- SOFTKEY (6) "MAIN" GOTO SCREEN mainscr
- SOFTKEY WAIT
*>SCREEN optscr
- PUT TEXT AT (3,4): "ANALOG     D48 TEST      MEMORY"
- PUT TEXT AT (5,5): "|           |            |"
- PUT TEXT AT (5,6): "|  COUNTER  |    CLOCK   |   MAIN"
- PUT TEXT AT (5,7): "|     |     |      |     |    |"
- PUT LARGE TEXT AT (1,1): "----OPTION MENU-----"
- SOFTKEY (1) "ANLOG" GOTO SCREEN anlogscr
- SOFTKEY (2) "COUNT" GOTO SCREEN countscr
- SOFTKEY (3) "D48" GOTO SCREEN d48scr
- SOFTKEY (4) "CLOCK" GOTO SCREEN clockscr
- SOFTKEY (5) "MEMRY" GOTO SCREEN memscr
- SOFTKEY (6) "MAIN" GOTO SCREEN mainscr
- SOFTKEY WAIT
*>SCREEN memscr
- PUT HUGE TEXT AT (1,1): "  MEMORY  "
  a=fre(9)
- PUT REVERSE HUGE NUMBER a AT (4,2) USING "###"
- PUT REVERSE HUGE TEXT AT (7,2): "K   "
- PUT REVERSE HUGE TEXT AT (1,2): "   "
- SOFTKEY (6) "OPMEN" GOTO SCREEN optscr
- SOFTKEY WAIT
*>SCREEN anlogscr
- PUT LARGE TEXT AT (1,1): "--------------------"
- PUT LARGE TEXT AT (1,2): "|ANALOG CALIBRATION|"
- PUT LARGE TEXT AT (1,3): "--------------------"
- SOFTKEY (1) "CALBR" GOTO SCREEN adscr
- SOFTKEY (2) "VIEW" GOTO SCREEN viewscr
- SOFTKEY (6) "OPMEN" GOTO SCREEN optscr
- SOFTKEY WAIT
*>SCREEN viewscr
- PUT TEXT AT (6,3): "A1 :            A2 :"
- PUT TEXT AT (5,4): "CH1 :           CH5 :"
- PUT TEXT AT (5,5): "CH2 :           CH6 :"
- PUT TEXT AT (5,6): "CH3 :           CH7 :"
- PUT TEXT AT (5,7): "CH4 :           CH8 :"
- PUT LARGE TEXT AT (3,1): "ANALOG CHECKOUT"
- SOFTKEY (1) "10 V" GOTO SCREEN ten
- SOFTKEY (2) "5 V" GOTO SCREEN five
- SOFTKEY (3) "0 V" GOTO SCREEN zero
- SOFTKEY (4) "-5 V" GOTO SCREEN nfive
- SOFTKEY (5) "-10 V" GOTO SCREEN nten
- SOFTKEY (6) "OPMEN" GOTO SCREEN optscr
- SOFTKEY (10) "ANLOG" GOTO SCREEN anlogscr
- LABEL adtoprun
- OPTION: SET D/A 1 TO n
- OPTION: SET D/A 2 TO n
  n = -n
- OPTION: SET D/A 3 TO n
- OPTION: SET D/A 4 TO n
  n = -n
- OPTION: READ A/D 1 INTO a&
- OPTION: READ A/D 2 INTO b&
- OPTION: READ A/D 3 INTO c&
- OPTION: READ A/D 4 INTO d&
- OPTION: READ A/D 5 INTO e&
- OPTION: READ A/D 6 INTO f&
- OPTION: READ A/D 7 INTO g&
- OPTION: READ A/D 8 INTO h&
- PUT REVERSE NUMBER n AT (12,3) USING "+#####"
- PUT REVERSE NUMBER n AT (28,3) USING "+#####"
- PUT REVERSE NUMBER a& AT (12,4) USING "+#####"
- PUT REVERSE NUMBER b& AT (12,5) USING "+#####"
- PUT REVERSE NUMBER c& AT (12,6) USING "+#####"
- PUT REVERSE NUMBER d& AT (12,7) USING "+#####"
- PUT REVERSE NUMBER e& AT (28,4) USING "+#####"
- PUT REVERSE NUMBER f& AT (28,5) USING "+#####"
- PUT REVERSE NUMBER g& AT (28,6) USING "+#####"
- PUT REVERSE NUMBER h& AT (28,7) USING "+#####"
- SOFTKEY CHECK
- GOTO LABEL adtoprun
- LABEL ten
  n=2047
- GOTO LABEL adtoprun
- LABEL five
  n=1024
- GOTO LABEL adtoprun
- LABEL zero
  n=0
- GOTO LABEL adtoprun
- LABEL nfive
  n=-1024
- GOTO LABEL adtoprun
- LABEL nten
  n=-2048
- GOTO LABEL adtoprun
*>SCREEN adscr
- PUT TEXT AT (6,2): "ADJUST THE ANALOG OFFSET POTS:"
  offset=0
- PUT TEXT AT (1,4): "OFF1 - ADJUSTS OUT1 OFFSET TO:       VDC"
- PUT TEXT AT (1,5): "OFF2 - ADJUSTS OUT2 OFFSET TO:       VDC"
- PUT TEXT AT (2,7): "PRESS 'A/D' SOFTKEY TO CALIBRATE A/D."
- SOFTKEY (1) "-5V" GOTO SCREEN offmset
- SOFTKEY (2) " 0V" GOTO SCREEN offzset
- SOFTKEY (3) "+5V" GOTO SCREEN offpset
- SOFTKEY (4) "VIEW" GOTO SCREEN viewscr
- SOFTKEY (5) " A/D" GOTO SCREEN testloop
- SOFTKEY (6) "OPMEN" GOTO SCREEN optscr
- LABEL oloop
  offv=offset/204.8
- PUT NUMBER offv AT (31,4) USING "-#.###"
- PUT NUMBER offv AT (31,5) USING "-#.###"
- OPTION: SET D/A 1 TO offset
- OPTION: SET D/A 2 TO offset
- SOFTKEY CHECK
- GOTO LABEL oloop
- LABEL offmset
  offset=-1023
- GOTO LABEL oloop
- LABEL offzset
  offset=0
- GOTO LABEL oloop
- LABEL offpset
  offset=1023
- GOTO LABEL oloop
*>SCREEN testloop
- PUT TEXT AT (1,5): "D/A OUTPUT:"
- PUT TEXT AT (2,6): "A/D INPUT:"
- PUT TEXT AT (1,7): "DIFFERENCE:"
  outm=-1023:outz=0:outp=1023
- PUT NUMBER outm AT (13,5) USING "-#####"
- PUT NUMBER outz AT (22,5) USING "-#####"
- PUT NUMBER outp AT (31,5) USING "-#####"
- SOFTKEY (1) "OPMEN" GOTO SCREEN optscr
- SOFTKEY (5) " D/A" GOTO SCREEN adscr
- SOFTKEY (3) "VIEW" GOTO SCREEN viewscr
- SOFTKEY (2) "ANLOG" GOTO SCREEN anlogscr
- SOFTKEY (6) "EXIT" GOTO SCREEN exitscr
- LABEL rloop
- OPTION: SET D/A 1 TO outm
- OPTION: READ A/D 1 INTO inm
- OPTION: SET D/A 1 TO outz
- OPTION: READ A/D 1 INTO inz
- OPTION: SET D/A 1 TO outp
- OPTION: READ A/D 1 INTO inpl
- PUT NUMBER inm AT (13,6) USING "-#####"
- PUT NUMBER inz AT (22,6) USING "-#####"
- PUT NUMBER inpl AT (31,6) USING "-#####"
  call line(0,16+diffm,239,16+diffp,0)
  diffm=outm-inm
- PUT NUMBER diffm AT (13,7) USING "-#####"
  diffz=outz-inz
- PUT NUMBER diffz AT (22,7) USING "-#####"
  diffp=outp-inpl
- PUT NUMBER diffp AT (31,7) USING "-#####"
  call line(0,16+diffm,239,16+diffp,1)
  call line(0,16,239,16,1)
- SOFTKEY CHECK
- GOTO LABEL rloop
*>SCREEN countscr
- PUT LARGE TEXT AT (1,1): "COUNTER 1:"
- PUT LARGE TEXT AT (1,2): "COUNTER 2:"
- SOFTKEY (1) "RESET" GOTO SCREEN resetscr
- SOFTKEY (2) "MARKR" GOTO SCREEN markrscr
- SOFTKEY (6) "OPMEN" GOTO SCREEN optscr
  CALL WRITECNT(1,0,0):CALL WRITECNT(2,0,0)
- LABEL cntloop
- OPTION: READ COUNTER 1 INTO a&
- OPTION: READ COUNTER 2 INTO b&
- PUT LARGE NUMBER a& AT (11,1) USING "-#########"
- PUT LARGE NUMBER b& AT (11,2) USING "-#########"
- SOFTKEY CHECK
- GOTO LABEL cntloop
- LABEL markrscr
  CALL WRITECNT(1,0,5):CALL WRITECNT(2,0,5)
- GOTO LABEL cntloop
- LABEL resetscr
  CALL WRITECNT(1,0,0):CALL WRITECNT(2,0,0)
- GOTO LABEL cntloop
*>SCREEN d48scr
- TITLE:::::::::: "-----------------------------------------------" ::::::::::::
- TITLE:::::::::: "     D48    24 BIT I/O PORT TEST               " ::::::::::::
- TITLE:::::::::: "-----------------------------------------------" ::::::::::::
- PUT LARGE TEXT AT (2,1): "D48 I/O PORT TESTS"
- PUT TEXT AT (8,4): "BANK (1)"
- PUT TEXT AT (8,5): "BANK (2)"
  iobit1=1:iobit2=1
  for a=0 to 23:N&=2^A
  call iobank (1):out N&:inp I&
  if N&<>I& then iobit1=0
  call iobank (2):out N&:inp I&
  if N&<>I& then iobit2=0
  next A
  if iobit1=1 then n$="PASSED" ELSE n$="FAILED <--"
- PUT REVERSE TEXT AT (20,4): n$
  if iobit2=1 then n$="PASSED" ELSE n$="FAILED <--"
- PUT REVERSE TEXT AT (20,5): n$
- SOFTKEY (6) "OPMEN" GOTO SCREEN optscr
- SOFTKEY (1) "REPET" GOTO SCREEN d48scr
- SOFTKEY (3) "BNK34" GOTO SCREEN bankscr
- SOFTKEY WAIT
*>SCREEN bankscr
- PUT TEXT AT (8,4): "BANK (3)"
- PUT TEXT AT (8,5): "BANK (4)"
- PUT LARGE TEXT AT (2,1): "D48 I/O PORT TESTS"
  iobit1=1:iobit2=1
  for a=0 to 23:N&=2^A
  call iobank (3):out N&:inp I&
  if N&<>I& then iobit1=0
  call iobank (4):out N&:inp I&
  if N&<>I& then iobit2=0
  next A
  if iobit1=1 then n$="PASSED" ELSE n$="FAILED <--"
- PUT REVERSE TEXT AT (20,4): n$
  if iobit2=1 then n$="PASSED" ELSE n$="FAILED <--"
- PUT REVERSE TEXT AT (20,5): n$
- SOFTKEY (6) "OPMEN" GOTO SCREEN optscr
- SOFTKEY (1) "REPET" GOTO SCREEN bankscr
- SOFTKEY WAIT
*>SCREEN clockscr
- PUT LARGE TEXT AT (3,2): "--CLOCK OPTION--"
- SOFTKEY (1) "TIME" GOTO SCREEN chcktime
- SOFTKEY (2) "SET" GOTO SCREEN settscr
- SOFTKEY (6) "MAIN" GOTO SCREEN mainscr
- SOFTKEY WAIT
*>SCREEN settscr
  DAY=1
- GOTO SCREEN date
*>SCREEN date
- PUT LARGE TEXT AT (6,1): "SETUP DATE"
- PUT TEXT AT (11,4): "ENTER DAY (1-31):"
- GET STRING day$ AT (29,4)
- PUT TEXT AT (1,5): "ENTER DAY OF WEEK (1=SUN.):"
- GET NUMBER day AT (29,5) USING "#" DEFAULT day
- PUT TEXT AT (9,6): "ENTER MONTH (1-12):"
- GET STRING month$ AT (29,6)
- PUT TEXT AT (8,7): "ENTER YEAR (ex. 95):"
- GET STRING year$ AT (29,7)
- GOTO SCREEN daytime
*>SCREEN daytime
- PUT LARGE TEXT AT (7,1): "SETUP TIME"
- PUT TEXT AT (5,4): "ENTER HOUR (0-23):"
- GET STRING hour$ AT (24,4)
- PUT TEXT AT (2,5): "ENTER MINUTES (0-59):"
- GET STRING minute$ AT (24,5)
- PUT TEXT AT (2,6): "ENTER SECONDS (0-59):"
- GET STRING second$ AT (24,6)
  newdate$=month$+"/"+day$+"/"+year$
  newtime$=hour$+":"+minute$+":"+second$
- PUT TEXT AT (9,7): newdate$
  call wrclock(newdate$,day,newtime$)
- GOTO SCREEN chcktime
*>SCREEN chcktime
- LABEL again
  call rdclock(a$,b,c$)
  if b=1 then weekday$="SUNDAY   "
  if b=2 then weekday$="MONDAY   "
  if b=3 then weekday$="TUESDAY  "
  if b=4 then weekday$="WEDNESDAY"
  if b=5 then weekday$="THURSDAY "
  if b=6 then weekday$="FRIDAY   "
  if b=7 then weekday$="SATURDAY "
- PUT LARGE TEXT AT (1,1): "IT'S"
- PUT LARGE TEXT AT (7,1): c$
- PUT LARGE TEXT AT (19,1): "ON"
- PUT LARGE TEXT AT (8,2): weekday$
- PUT LARGE TEXT AT (8,3): a$
- PUT TEXT AT (1,7): "Is this Correct?"
- SOFTKEY (4) " YES" GOTO SCREEN mainscr
- SOFTKEY (5) " NO" GOTO SCREEN date
- SOFTKEY (6) "OPMEN" GOTO SCREEN optscr
- SOFTKEY CHECK
- GOTO LABEL again
*>SCREEN exitscr
- PUT HUGE TEXT AT (1,1): "*GOOD BYE*"
- PUT HUGE TEXT AT (1,2): "<-------->"
- DELAY 1000
- CLEAR GRAPHICS SCREEN
  end
*>SCREEN sngscr
- PUT TEXT AT (3,5): "Select the model you would like to  "
- PUT TEXT AT (3,6): "run the single-pass test on:"
- PUT LARGE TEXT AT (1,1): "----TEST----MENU----"
- PUT LARGE TEXT AT (3,2): "-=>SINGLE RUN<=-"
- COMMENT "Set cntuos = 0 for single-pass testing"
cntuos = 0
- SOFTKEY (1) "1100" GOTO SCREEN testscr
- SOFTKEY (2) "1000" GOTO SCREEN testsscr
- SOFTKEY (6) "MAIN" GOTO SCREEN mainscr
- SOFTKEY WAIT
*>SCREEN contscr
- PUT TEXT AT (1,5): "Select the model you would like to run"
- PUT TEXT AT (1,6): "the continuous-pass test on. KEYBOARD"
- PUT TEXT AT (1,7): "TESTS WILL BE COMPLETED AT THE END."
- PUT LARGE TEXT AT (1,1): "----TEST----MENU----"
- PUT LARGE TEXT AT (1,2): "-=>CONTINUOUS RUN<=-"
- COMMENT "Set cntuos = 1 for continuous-pass testing"
cntuos = 1
- SOFTKEY (1) "1100" GOTO SCREEN c1100scr
- SOFTKEY (2) "1000" GOTO SCREEN c1000scr
- SOFTKEY (6) "MAIN" GOTO SCREEN mainscr
- SOFTKEY WAIT
*>SCREEN c1100scr
- PUT TEXT AT (1,1): "Enter the number of times you would like"
- PUT TEXT AT (1,2): "to repeat the test loop (1 - 65535)."
- PUT TEXT AT (4,4): "Loop Count:"
- LABEL getnumbr
  if passes < 1 or passes > 65535 then passes = 10
- GET NUMBER passes AT (16,4) USING "#####" DEFAULT passes
  if passes < 1 or passes > 65535 then goto getnumbr
- SOFTKEY (3) " GO! " GOTO SCREEN testscr
- SOFTKEY (6) "CANCL" GOTO SCREEN contscr
- SOFTKEY WAIT
*>SCREEN c1000scr
- PUT TEXT AT (1,1): "Enter the number of times you would like"
- PUT TEXT AT (1,2): "to repeat the test loop (1 - 65535)."
- PUT TEXT AT (4,4): "Loop Count:"
- LABEL getnumbr
  if passes < 1 or passes > 65535 then passes = 10
- GET NUMBER passes AT (16,4) USING "#####" DEFAULT passes
  if passes < 1 or passes > 65535 then goto getnumbr
- SOFTKEY (3) " GO! " GOTO SCREEN testsscr
- SOFTKEY (6) "CANCL" GOTO SCREEN contscr
- SOFTKEY WAIT
*>SCREEN dummy
- LABEL tstprtr
  p$ = "TEST #" + str$(passcnt)
  p$ = p$ + ": 1234567890 ABCDEFGHIJKLMNOPQRSTUVWXYZ !@#$%^&*()_+|"
  lprint p$
- LABEL incrmnt
  if passcnt = passes then goto keyboard
  passcnt = passcnt + 1
  goto startscr
*>SCREEN noflash
  call backlight(1)
  TSTFAIL=1
- GOTO LABEL failscr
- LABEL failedio
  rs422#1, off: rs422#2, off
- SOFTKEY (3) " OK" GOTO SCREEN failscr
- SOFTKEY WAIT
- END OF PSEUDOCODE