Compucolor.org – Virtual Media

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 ;         -->