/ / VERSION 5A 4-26-77 MH / SECT8 #PAUSE /FORTRAN PAUSE HANDLER EXTERN #WRITO EXTERN #RSVO EXTERN #RENDO BASE 0 FSTA PNUM /SAVE ARGUMENT STARTD FLDA 0 /GET RETURN ADDRESS FSTA PAURET STARTF TRAP3 #WRITO JA ZERO JA PAUFMT FLDA PNUM /PRINT A MESSAGE "PAUSE N" TRAP3 #RSVO TRAP3 #RENDO TRAP4 OPAUSE /DO ACTUAL PAUSE PAURET, JA . /RETURN OPAUSE, 0 AND% 0 AND% 0 /WASTE SOME TIME SO THAT THE LAST AND% 0 /TWO CHARS OF THE MESSAGE WILL PRINT. AND% 0 AND% 0 ISZ ZERO JMP OPAUSE+1 DPAUSE, IOF KSF JMP .-1 KRB CLA ION CDF CIF 0 JMP% OPAUSE PNUM, F 0.0 ZERO, F 0.0 PAUFMT, TEXT %(' PAUSE'I6/)% END