Source Code
1 REM Y% \.'\. :%KNOT $TAB \@@RND\: TAB \'.RNDTAN
2 FAST
3 RAND USR 16514
4 SLOW
5 LET U=0
10 GOSUB 1000
90 FOR K=1 TO 70
100 PRINT AT 3,0;A$;AT X,Y-1;"% %*% "
200 LET A$=A$(2 TO )+A$(1)
300 IF INKEY$="5" THEN LET Y=Y-1
350 IF INKEY$="8" THEN LET Y=Y+1
360 IF INKEY$="B" THEN GOSUB 5000
500 NEXT K
510 PRINT AT 12,9;"%E%N%D% %O%F% %R%O%U%N%D"
520 IF Q>U THEN LET U=Q
530 IF U<>0 THEN PRINT AT 1,1;"%H%I%G%H%E%S%T% %S%C%O%R%E%:% ";U
540 FOR D=1 TO 60
550 NEXT D
555 PRINT AT 12,9;"**STAND*BY**"
560 LET Z=RND*RND
570 PRINT AT 12,9;"% % % % % % % % % % % % % "
700 GOTO 10
\n1000 LET A$="% % %X% % %X% % %X% % %X% % %X% % %M% % % % %M% % % %M% % % %H"
\n1020 LET S=0
\n1030 LET X=18
\n1040 LET Y=16
\n1050 PRINT AT X,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
\n1060 PRINT AT 20,7;"% % % % % % % % % % % % % % % % % "
\n1500 RETURN
\n5000 IF A$(Y)<>"% " THEN LET S=S+1
\n5002 IF A$(Y)="%H" THEN LET S=S+2
\n5003 IF A$(Y)="%M" THEN LET S=S+1
\n5005 LET A$(Y)="% "
\n5008 FOR A=18 TO 1 STEP -3
\n5010 PRINT AT A,Y;"%*"
\n5020 PRINT AT A,Y;"% "
\n5030 NEXT A
\n5040 LET Q=S*6453+INT (RND*3)
\n5050 IF Q>5000 THEN PRINT AT 20,1;"%S%C%O%R%E%:% ";Q
\n5070 IF Y>2 AND Y<30 THEN LET Y=Y+INT (RND*3)-INT (RND*3)
\n5500 RETURN
\n5510 CLEAR
\n5520 SAVE "1027%2"
\n5530 RUN
