- GOTO SCREEN begin
*>SCREEN begin
- HOT KEY (9) "" INTERRUPT: GOSUB LABEL exit
- HOT KEY (10) "" INTERRUPT: GOSUB LABEL helpsys
- GOTO SCREEN top
- TITLE:::::::::: "TOP OF MAIN RUN LOOP" ::::::::::::
*>SCREEN top
- PUT TEXT AT (11,1): "E   A   S   O   N"
- PUT TEXT AT (1,5): "T   E   C   H   N   O   L   O   G   Y"
- POWER RESUME ON
- DELAY 500
- CLEAR SCREEN
- PUT LARGE TEXT AT (6,1): "E A S O N"
- PUT LARGE TEXT AT (1,3): "T E C H N O L O G Y"
  pos 40,8
- DELAY 500
- PUT HUGE TEXT AT (3,1): "EASON"
- PUT HUGE TEXT AT (1,2): "TECHNOLOGY"
- DELAY 1000
- CLEAR GRAPHICS SCREEN
- PUT LARGE TEXT AT (7,2): "AND  THE"
- PUT LARGE TEXT AT (6,3): "MODEL 1100"
  t=56
  for x% = 15 to 0 step -1
   call box( t,x%,239-t,63-x%,1 )
   t = t - 3.5
  next
  t=56
  for x% = 15 to 0 step -1
   call box( t,x%,239-t,63-x%,0 )
   t = t - 3.5
  next
- GOTO SCREEN scr1
- TITLE:::::::::: "PLOT SINE-WAVE GRAPH" ::::::::::::
*>SCREEN scr1
- PUT TEXT AT (7,8): "BUILT-IN GRAPHICS CAPABILITY"
  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
- GOTO SCREEN scr2
- TITLE:::::::::: "PLOT RANDOM GRAPH" ::::::::::::
*>SCREEN scr2
- PUT TEXT AT (7,8): "BUILT-IN GRAPHICS CAPABILITY"
  call line( 239,25,0,25,1 )
  x% = 0 : y% = 1
- LABEL random1
  y% = rnd(25) * sgn(y%) * (-1)
  call line( ,,x%,y%+25,1 )
  x% = x% + 1 + rnd(4)
  if x%<240 then goto random1
- GOTO SCREEN scr3
- TITLE:::::::::: "SHOW BACK AND TELL ABOUT I/O" ::::::::::::
*>SCREEN scr3
- PUT TEXT AT (1,1): "The MODEL-1100 has"
- PUT TEXT AT (1,2): "a wide variety of"
- PUT TEXT AT (1,3): "I/O possibilities:"
- PUT TEXT AT (1,5): "Standard"
- PUT TEXT AT (3,6): "Features"
- PUT TEXT AT (5,7): "Include..."
- GOSUB LABEL back
  pos 40,8
- DELAY 3000
- GOTO SCREEN scr4
- TITLE:::::::::: "TELL ABOUT SERIAL PORTS" ::::::::::::
*>SCREEN QUICK scr4
- CLEAR SCREEN
- PUT TEXT AT (1,1): "Two independent"
- PUT TEXT AT (1,2): "RS232, RS422, or"
- PUT TEXT AT (1,3): "RS485 serial ports"
- PUT TEXT AT (1,4): "are standard."
- PUT LARGE TEXT AT (4,4): "COM1"
  call line( 83, 55, 106, 55, 1 )
  call line( 106, 55, 177, 27, 1 )
  pos 40,8
- DELAY 2500
  call line( 83, 55, 106, 55, 0 )
  call line( 106, 55, 177, 27, 0 )
- PUT LARGE TEXT AT (4,4): "    "
- DELAY 500
- PUT LARGE TEXT AT (4,4): "COM2"
  call line( 87, 55, 106, 55, 1 )
  call line( 106, 55, 193, 27, 1 )
  pos 40,8
- DELAY 2500
  call line( 87, 55, 106, 55, 0 )
  call line( 106, 55, 193, 27, 0 )
- PUT LARGE TEXT AT (4,4): "    "
- GOSUB LABEL back1
- GOTO SCREEN scr5
- TITLE:::::::::: "SHOW PC-XT KEYBOARD AND PRINTER INTERFACES" ::::::::::::
*>SCREEN QUICK scr5
- CLEAR SCREEN
- PUT TEXT AT (1,1): "One PC-XT keyboard"
- PUT TEXT AT (1,2): "and PC compatible"
- PUT TEXT AT (1,3): "printer interface:"
- PUT LARGE TEXT AT (4,3): "KB"
- PUT LARGE TEXT AT (4,4): "PRT"
  call line( 79, 39, 106, 39, 1 )
  call line( 106, 39, 189, 11, 1 )
  call line( 79, 55, 168, 47, 1 )
  pos 40,8
- DELAY 3000
- PUT LARGE TEXT AT (4,3): "  "
- PUT LARGE TEXT AT (4,4): "   "
  call line( 79, 39, 106, 39, 0 )
  call line( 106, 39, 189, 11, 0 )
  call line( 79, 55, 168, 47, 0 )
- GOSUB LABEL back1
- GOTO SCREEN scr6
- TITLE:::::::::: "TELL ABOUT OPTION BOARDS" ::::::::::::
*>SCREEN QUICK scr6
- CLEAR SCREEN
- PUT TEXT AT (1,1): "Two internal slots"
- PUT TEXT AT (1,2): "for option boards:"
- PUT TEXT AT (2,3): "for example:"
- PUT TEXT AT (1,5): "Quadrature Counter"
- PUT TEXT AT (7,6): "or"
- PUT TEXT AT (1,7): "12-bit D/A and A/D"
  for x = 1 to 4
    pos 23,3 : print"OPT 1"; : pos 40,8
    delay 750
    pos 23,3 : print"     ";
    pos 23,6 : print"OPT 2"; : pos 40,8
    delay 750
    pos 23,6 : print"     ";
  next
- GOTO SCREEN scr7
- TITLE:::::::::: "TELL ABOUT 24-BIT I/O BUS" ::::::::::::
*>SCREEN QUICK scr7
- CLEAR SCREEN
- PUT TEXT AT (1,2): "24-bit parallel I/O"
- PUT TEXT AT (1,3): "that is internally"
- PUT TEXT AT (1,4): "optically isolated."
- PUT LARGE TEXT AT (2,4): "24 I/O"
  call line( 85,55, 191,55, 1)
- DELAY 3000
- GOTO SCREEN scr8
- TITLE:::::::::: "SCROLL MESSAGE ACROSS THE SCREEN" ::::::::::::
*>SCREEN scr8
- PUT LARGE TEXT AT (1,1): "YOU HAVE JUST SEEN A"
- PUT LARGE TEXT AT (1,2): "BRIEF DEMONSTRATION"
- PUT LARGE TEXT AT (1,3): "OF THE MODEL 1100."
  a$ = "Press F9 to EXIT, or HELP for more information on the MODEL 1100."
  a$ = "                                        " + a$
- LABEL scra8
  delay 150
  pos 1,8:print left$(a$,39);
  a$ = right$( a$, len(a$)-1 )
  if mid$(a$,39,1) <> "." then goto scra8
- DELAY 1000
- GOTO SCREEN top
- TITLE:::::::::: "DRAW MODEL 11OO REAR PANEL" ::::::::::::
- LABEL back
- CLEAR GRAPHICS SCREEN
- LABEL back1
  col% = 126
  ox% = col%+53:oy% = 3: gosub conn
  ox% = col%+69:oy% = 3: gosub conn
  ox% = col%+45:oy% = 36:gosub conn
  call box( col%+69, 31, col%+75, 60, 1 )
  call box( col%, 0, col%+84, 63, 1 )
  call box( col%+4, 4, col%+38, 29, 1 )
  call box( col%+4, 34, col%+38, 59, 1 )
  call line( 190, 5, 191, 5, 1 )
  call line( 189, 6, 192, 6, 1 )
  call line( 189, 7, 192, 7, 1 )
  call line( 190, 8, 191, 8, 1 )
- RETURN
- TITLE:::::::::: "DRAW 25 PIN CONNECTOR" ::::::::::::
- LABEL conn
  for y% = oy%+3 to oy%+17 step 2 :  ' draw the pins of the connector
    call set( ox%+2, y%, 1 )
    call set( ox%+4, y%+1, 1 )
  next
  call set( ox%+2, y%, 1):  ' draw the very last pin
  call line( ox%, oy%, ox%, oy%+22, 1 ):        'draw the frame
  call line( ox%+6, oy%+2, ox%+6, oy%+20, 1 ):  '    of the connector
  call line( ox%, oy%, ox%+6, oy%+2, 1 )
  call line( ox%, oy%+22, ox%+6, oy%+20, 1)
- RETURN
- TITLE:::::::::: "HELP MESSAGE" ::::::::::::
- LABEL helpsys
- HELP: CLEAR HELP SCREEN
- HELP: PUT HELP TEXT AT 1 : "Welcome to the EASON TECHNOLOGY MODEL"
- HELP: PUT HELP TEXT AT 2 : "1100.  This program was developed using"
- HELP: PUT HELP TEXT AT 3 : "the ApplicationBuilder.  You can learn"
- HELP: PUT HELP TEXT AT 4 : "more about the ApplicationBuilder by"
- HELP: PUT HELP TEXT AT 5 : "running the on-line tutorial.  Refer to"
- HELP: PUT HELP TEXT AT 6 : "the SECOND page of the manual for start"
- HELP: PUT HELP TEXT AT 7 : "up procedures."
- HELP: PUT HELP TEXT AT 8 : "----- PRESS ANY KEY FOR MORE HELP -----"
- HELP: DISPLAY HELP TEXT AND WAIT FOR KEY
- HELP: CLEAR HELP SCREEN
- HELP: PUT HELP TEXT AT 1 : "You can contact EASON TECHNOLOGY at:"
- HELP: PUT HELP TEXT AT 3 : "          (707) 433-2854"
- HELP: PUT HELP TEXT AT 4 : "          (707) 433-3706 (FAX)"
- HELP: PUT HELP TEXT AT 6 : "          231-B Center Street"
- HELP: PUT HELP TEXT AT 7 : "         Healdsburg, CA 95448"
- HELP: PUT HELP TEXT AT 8 : "-- PRESS ANY KEY TO RESUME PROGRAM --"
- HELP: DISPLAY HELP TEXT AND WAIT FOR KEY
- HOT KEY (10) RESUME
- RETURN
- TITLE:::::::::: "EXIT MESSAGE" ::::::::::::
*>SCREEN exit
- PUT LARGE TEXT AT (1,1): "THANK YOU FOR USING"
- PUT LARGE TEXT AT (8,2): "EASON"
- PUT LARGE TEXT AT (5,3): "TECHNOLOGY!"
- DELAY 3000
  pos 1,7
- END OF PSEUDOCODE