- GOTO SCREEN begin
*>SCREEN begin
- COMMENT "maxparts is the maximum number of parts"
- COMMENT "maxitems is the maximum number of items for each part"
- COMMENT "partno$ holds the string value of the current part"
  maxparts=3
  partno$="1234567890"
  srchpart$=""
  length!=0.000
  height!=0.000
  depth!=0.000
  color$=""
  descrptn$=""
  GOTO main
*>SCREEN main
- PUT LARGE TEXT AT (4,1): "PARTS SELECTOR"
- PUT TEXT AT (8,5): "Hit F3 to search for parts"
- SOFTKEY (3) "SRCH" GOTO SCREEN search
- SOFTKEY (6) "EXIT" GOTO SCREEN exit
  call cursor(0)
- SOFTKEY WAIT
*>SCREEN search
- PUT LARGE TEXT AT (2,1): "ENTER PART NUMBER"
- PUT TEXT AT (6,4): "Part number:"
- GET STRING partno$ AT (19,4) DEFAULT partno$
- COMMENT "Now start the search routine"
- COMMENT "Restore the data pointer to the beginning of the data statements"
  RESTORE
- COMMENT "Now look for the entered part number"
  srchcnt=0
  LABEL readata
  srchcnt=srchcnt+1
  READ srchpart$,length!,height!,depth!,color$,descrptn$
- COMMENT "Check for a match"
  IF srchpart$=partno$ THEN GOTO found
  IF srchcnt=maxparts THEN GOTO notfound
  GOTO readata
*>SCREEN found
- PUT LARGE TEXT AT (1,1): "PART WAS IN DATABASE"
- PUT TEXT AT (1,3): "Part number:"
- PUT TEXT AT (1,5): "Length:"
- PUT TEXT AT (21,5): "Depth:"
- PUT TEXT AT (1,6): "Height:"
- PUT TEXT AT (21,6): "Color:"
- PUT TEXT AT (1,7): "Description:"
- PUT NUMBER length! AT (8,5) USING "#####.#####"
- PUT NUMBER height! AT (8,6) USING "#####.#####"
- PUT NUMBER depth! AT (27,5) USING "#####.#####"
- PUT TEXT AT (13,7): descrptn$
- PUT TEXT AT (27,6): color$
- PUT TEXT AT (13,3): partno$
- SOFTKEY (6) "MAIN" GOTO SCREEN begin
  call cursor(0)
- SOFTKEY WAIT
*>SCREEN notfound
- PUT LARGE TEXT AT (1,1): "PART NOT IN DATABASE"
- PUT TEXT AT (2,4): "Part number"
- PUT TEXT AT (25,4): "wasn't found"
- PUT TEXT AT (14,4): partno$
- SOFTKEY (6) "MAIN" GOTO SCREEN begin
  call cursor(0)
- SOFTKEY WAIT
*>SCREEN exit
  DATA "1234567890",5.57,3.34,1.12345,"Blue","Washer"
  DATA "0000000001",50,2.5,0.00001,"Green","Widget, Skinny"
  DATA "1111111111",27,27,27,"Black","Big black cube"
- END OF PSEUDOCODE