/************************** I2ICE TUTORIAL SCREEN #37 **************************/
menu=1
define literally P   = 'include scr.36 nolist'
define literally R   = 'include scr.37 nolist'
define literally RTN = 'include scr.37 nolist'
define literally N   = 'include scr.38 nolist'
define literally M   = 'include scr.2 nolist'
cls
/*******************************************************************************/
'                                                      ------------------------'
'The system specification that we need must identify  | SCR37: SYSTEM SPEC     |'
'the output port (2) and the data value on which we   | M = Go to main menu    |'
'want to break.  The system specification we should   | N = Next screen        |'
'use in a GO command is "OUTPUT AT 2 IS 61", where 61 | P = Previous screen    |'
'is the ASCII hex code for the letter a.  Enter       | Q = Quit tutorial      |'
'    GO FROM TOP TIL OUTPUT AT 2 IS 61;WAIT <Enter>   | R = Rewrite SCR37      |'
'                                                     | SCR# = Screen desired  | '
'The program does not break after 1a is written to     ------------------------'
'the screen.  Rather, emulation breaks on the "a" in Paid; we overlooked '
'the fact that the program writes "a" to the output port at various times.'
'But we are only interested in "a" when it appears after a number that has'
'been output for change.'
' '
'------------------------------------------------------------------------------'