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