8-Bit Software Online Conversion

Short Game - Listing

0H%=0:REPEATMODE7:VDU28;24,39;:P%=&7 C64:S%=0:REPEAT?P%=86:PRINT"|"TAB(RND(38 ))"*"TAB(39)"|"CHR$13;:P%=(P%+INKEY(-98) -INKEY(-67)-19)MOD38+&7C51:S%=S%+1:UNTIL ?P%=42:H%=H%+(S%>H%)*(H%-S%):VDU7:PRINT' "SCORE:"S%'"HI:"H%'"PRESS SPACE";:REPEAT UNTILGET=32:UNTIL0