Listing of file='SCR13.FOR;01' on disk='vmedia/chip_79-sector.ccvf'
( CONQUEST, NUMBER INPUT ) : INPUT 0 BEGIN KEY DUP EMIT DUP 26 = IF SPACE EMIT 10 / 0 ELSE DUP 57 > IF DROP 1 ELSE DUP 48 < IF DROP 1 ELSE 48 - SWAP 10 * + 0 ENDIF ENDIF ENDIF UNTIL ; : CLEAR_MSGE 25 0 VHTAB 6 0 DO 10 EMIT 11 EMIT LOOP ; -->