menu = 1 curhome cleareos ' ------------------------' 'PROCs can be called to perform I/O functions (main | SCRE3: PROCS 3 |' 'path screens SCR20 through SCR22), to provide high- | M = Go to AID1 menu |' 'level patches to program code (screens SCR31 through | N = Next screen |' 'SCR33), and to write variable values and addresses to| P = Previous screen |' 'to the screen during emulation breaks (Aid Module L, | Q = Quit tutorial |' 'SCRL7). PROCs can use COUNT, WHILE and UNTIL syntax.| R = Rewrite SCRE3 |' ' DEFINE PROC TEST = DO | SCR# = Screen desired |' ' COUNT 3 ------------------------' ' DEFINE CHAR BEEP = 07H /* BEEP outputs a bel character to the console.*/' ' BEEP' ' WRITE ''THIS IS A TEST'' ' ' END ' ' END ' 'You can save PROCs to a disk by using the PUT or APPEND command and retrieve ' 'PROCs from the disk using the INCLUDE command. Enter the following command:' ' PUT AVE.TMP AVERAGE ' 'This command saves the PROC AVERAGE to the file AVE.TMP in the tutorial' 'directory. The PUT command overwrites any original file named AVE.TMP.' '(To add AVERAGE to an already existing file, use the APPEND command' 'instead of PUT.) Now delete AVERAGE by using the REMOVE command. Enter ' ' REMOVE AVERAGE ' '-------------- Enter N to continue with Aid Module E ------------------' define literally P = 'include scrE.2 nolist' define literally R = 'include scrE.3 nolist' define literally N = 'include scrE.4 nolist' define literally M = 'include aid.1 nolist'