PROGRAM FILE 110: MIXED INPUT OF STRINGS AND NUMBERS.
    ANSI STANDARD 13.2, 13.4

SECTION 110.1: MIXED INPUT OF STRINGS AND NUMBERS.

PLEASE ENTER YOUR INPUT-REPLIES EXACTLY AS REQUESTED
BY THE PROMPT, INCLUDING ALL SPACING, COMMAS AND OTHER
PUNCTUATION.

 - EXCEPT - WHEREVER THE PROMPT CONTAINS AN EQUALS (=)
SUBSTITUTE A BLANK SPACE, AND WHEREVER THE PROMPT
CONTAINS A NUMBER-SIGN (#) SUBSTITUTE A QUOTE.
THUS, THE PROMPT:
             ==#ER#==
SHOULD CAUSE YOU TO STRIKE THE KEYS:
  1. SPACE
  2. SPACE
  3. QUOTE
  4. LETTER E
  5. LETTER R
  6. QUOTE
  7. SPACE
  8. SPACE

THESE CONVENTIONS ARE NECESSARY BECAUSE THE QUOTE IS
UNPRINTABLE IN MINIMAL BASIC, AND SPACES ARE DIFFICULT
TO COUNT ON A TERMINAL.

PLEASE NOTE THAT THIS ROUTINE IS STRONGLY DEPENDENT
ON THE CORRECT OPERATION OF THE STRING COMPARISON
FEATURE. IF THAT FEATURE IS INCORRECT, THIS ROUTINE
WILL LIKELY GIVE INVALID RESULTS.

ALL THE REPLIES PROMPTED FOR ARE VALID, THEREFORE 
IF THE PROCESSOR REJECTS ANY OF THEM,
***  TEST FAILED  ***

FOR USER CONVENIENCE, THE STRING TO BE ENTERED IS INDENTED
TWO SPACES, SO THAT IF THE INPUT-PROMPT OCCUPIES TWO
POSITIONS, AS RECOMMENDED, YOUR INPUT-REPLY WILL BE
ALIGNED WITH THE PROMPT STRING.

               BEGIN TEST


PLEASE ENTER:
  ==1==,==2==,==3==
?   1  ,  2  ,  3  
SHOULD BE: *** 1  2  3 ***
ACTUAL   : *** 1  2  3 ***
TEST OK


PLEASE ENTER:
  ==+987999E32==,==-1.00000E-37==,==3.E37==
?   +987999E32  ,  -1.00000E-37  ,  3.E37  
SHOULD BE: *** 9.87999E+37 -1.E-37  3.E+37 ***
ACTUAL   : *** 9.87999E+37 -1.E-37  3.E+37 ***
TEST OK


PLEASE ENTER:
  ===222222,111111==,==333333
?    222222,111111  ,  333333
SHOULD BE: *** 222222  111111  333333 ***
ACTUAL   : *** 222222  111111  333333 ***
TEST OK


PLEASE ENTER:
  5,6
? 5,6
SHOULD BE: *** 5  6 ***
ACTUAL   : *** 5  6 ***
TEST OK


PLEASE ENTER:
  -05.34,345.567E-11
? -05.34,345.567E-11
SHOULD BE: ***-5.34  3.45567E-9 ***
ACTUAL   : ***-5.34  3.45567E-9 ***
TEST OK


PLEASE ENTER:
  2E2,-3.45
? 2E2,-3.45
SHOULD BE: *** 200 -3.45 ***
ACTUAL   : *** 200 -3.45 ***
TEST OK


PLEASE ENTER:
  -0000.000123456E-11,+1E37
? -0000.000123456E-11,+1E37
SHOULD BE: ***-1.23456E-15  1.E+37 ***
ACTUAL   : ***-1.23456E-15  1.E+37 ***
TEST OK


PLEASE ENTER:
  -000.E-00,+.000,0E22
? -000.E-00,+.000,0E22
SHOULD BE: *** 0  0  0 ***
ACTUAL   : *** 0  0  0 ***
TEST OK


PLEASE ENTER:
  -999.E-00,+.999,9E22
? -999.E-00,+.999,9E22
SHOULD BE: ***-999  .999  9.E+22 ***
ACTUAL   : ***-999  .999  9.E+22 ***
TEST OK


PLEASE ENTER:
  ABC,##,#DEF#
? ABC,"","DEF"
SHOULD BE: ***ABCDEF***
ACTUAL   : ***ABCDEF***
TEST OK


PLEASE ENTER:
  ==4.56789E-11==,==MIDDLE=ITEM==,==9==
?   4.56789E-11  ,  MIDDLE ITEM  ,  9  
SHOULD BE: *** 4.56789E-11 MIDDLE ITEM 9 ***
ACTUAL   : *** 4.56789E-11 MIDDLE ITEM 9 ***
TEST OK


PLEASE ENTER:
  ==987654===,===#==MIDDLE=ITEM==#==,==656565==
?   987654   ,   "  MIDDLE ITEM  "  ,  656565  
SHOULD BE: *** 987654   MIDDLE ITEM   656565 ***
ACTUAL   : *** 987654   MIDDLE ITEM   656565 ***
TEST OK


PLEASE ENTER:
  ==AN=UNQUOTED=STRING===,==3.14159==,==#EQUALS=PI#==
?   AN UNQUOTED STRING   ,  3.14159  ,  "EQUALS PI"  
SHOULD BE: ***AN UNQUOTED STRING 3.14159 EQUALS PI***
ACTUAL   : ***AN UNQUOTED STRING 3.14159 EQUALS PI***
TEST OK


PLEASE ENTER:
  07676760000000E0000022===,==========X=========,X
? 07676760000000E0000022   ,          X         ,X
SHOULD BE: *** 7.67676E+34 XX***
ACTUAL   : *** 7.67676E+34 XX***
TEST OK


PLEASE ENTER:
  =====##=====,===5===,=====THIRD=ITEM=====
?      ""     ,   5   ,     THIRD ITEM     
SHOULD BE: *** 5 THIRD ITEM***
ACTUAL   : *** 5 THIRD ITEM***
TEST OK


PLEASE ENTER:
  ==========#=#==,===0====,====##===
?           " "  ,   0    ,    ""   
SHOULD BE: ***  0 ***
ACTUAL   : ***  0 ***
TEST OK


PLEASE ENTER:
  ==+333.333E-33==,==+333.333E-33==
?    +333.333E-33  ,  +333.333E-33  
SHOULD BE: *** 3.33333E-31 +333.333E-33***
ACTUAL   : *** 3.33333E-31 +333.333E-33***
TEST OK


PLEASE ENTER:
  1,2================3,4
? 1,2                3,4
SHOULD BE: *** 1 2                3 4 ***
ACTUAL   : *** 1 2                3 4 ***
TEST OK

***  TEST PASSED  ***

                   END TEST

END PROGRAM 110

Program interrupted at line 895
