Source Code
1 REM Y% \.'\. :%KNOT $TAB \@@RND\: TAB \'.RNDTAN
2 FAST
3 RAND USR 16514
4 SLOW
20 LET F=0
80 LET A=10
90 LET B=15
100 LET C=20
110 SLOW
120 PRINT AT C,RND*30;"%*"
130 PRINT AT A,B;"% "
140 LET F=F+1
150 SCROLL
160 PRINT AT C,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
165 PRINT AT 21,31;AT 21,0;
170 IF B>4 THEN LET B=B-1-INT (RND)
180 IF INKEY$="M" AND B<28 THEN LET B=B+3*RND
190 PRINT AT A,B;"%V"
200 PRINT AT 11,B;
210 IF PEEK (PEEK 16398+256*PEEK 16399)<>151 THEN GOTO 120
220 PRINT "*";F;"*"
230 STOP
240 CLEAR
250 SAVE "1027%0"
260 RUN
