A remake of Kimmifish in machine code with variable speed and moving bubbles.
PROG : 16509
D-FILE: 18026
VARS : 18819
E-LINE: 18820
STKBOT: 18825
STKEND: 18825
9999 means line number
PRINT means treat as KEYWORD P
1 REM /***AQUARIUM*SLR/2024**
30413 LN EúLN MRNDLN REM INKEY$
LN -INKEY$LN ?PILN MPI/PAUSE LN
DIM PILN REM RND5CRNDQõCñO5*?Yõ?
7?7Y??7?7JQCOPY 7?7QCOPY 7?7?7?ö
W7?(UNPLOT TAN ñ6 -ù2úLN CLS RND
ñSAVE ò- 2³E£RNDùö4FAST VAL ö
COPY LN ñ?AT LPRINT CHR$ ??ABS )
INKEY$??7(GOTO TAN 5.?*?Kñ=?
RETURN DTAB UINKEY$LN $INKEY$M.?
GOSUB ?;?LN +INKEY$?-SAVE GOSUB
?*?53?YñI?5Q?RCó5??LN FINKEY$51?
;?Kñ+?RETURN PLOT 4)LN $INKEY$M1
?GOSUB ?*??LN +INKEY$?-DGOSUB ?;
?54?YñI?5>?RCó58?LN FINKEY$TAN ö
?LN ñ?LEN TAN ö<LN ñ?X??LEN ò?S
Sö?LEN òVKGOTO ?TAN :óöö?PRINT
VAL SIN INKEY$LPRINT =7AT (LET
LET ?0$4SCROLL TAN ?ACS ?""CHR$
3LIST ?ACS ?""CHR$ +LIST 5???RC÷
ñ5 ùX4UNPLOT ö ?ùQ TAN 55?öúVAL
FAST LN ñ?RETURN COS S?ö?LN ñ?
LEN 4?ö4LN ñ?XLPRINT FAST ?77Q-7
?/I7¶?7?7?FKñ1?77?RETURN RETURN
4!ñUNPLOT COPY ùQ /<FAST Y.M
CONT INKEY$LN SIN INKEY$0Y M
CONT INKEY$LN SIN INKEY$LPRINT
LPRINT ñô ùAT (6TAN 5??öõVAL
FAST LN ñ?RETURN JS?ö?LN ñ?LEN
?ö LN ñ?XLPRINT FAST ?77Q-7?/I7¶
?7?7?FKñ1?77?RETURN RETURN 4!ñ
UNPLOT COPY ùQ /<FAST YOMCONT
INKEY$LN SIN INKEY$0Y MCONT
INKEY$LN SIN INKEY$LPRINT
LPRINT ñô ùAT (6TAN 5ORNDñ? ù
FOR 5??ñPòGOSUB KLPRINT LET
CHR$ ùY4CLEAR LN PLOT PITAN E£
RND7Y :?ö.?7(UNPLOT )ö ;$4NEXT
TAN )??E£RND7ñPòGOSUB KTAN OR
LN ??Kò OR TAN INT COPY ?5
GOSUB ?µ?GOSUB ?´NEW 3?6ò?
·óóô³ õñôµ
ò³³ñó ·óóôö õñ±µ ò³³ñ¶ ³·óóô
õ·òµ óò³³ñ ¶·óóô õ²òµ öò³³ñ
2 RAND USR VAL "16514"