Target Practice

Gallery

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
1000 LET A$="% % %X% % %X% % %X% % %X% % %X% % %M% % % % %M% % % %M% % % %H"
1020 LET S=0
1030 LET X=18
1040 LET Y=16
1050 PRINT AT X,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
1060 PRINT AT 20,7;"% % % % % % % % % % % % % % % % % "
1500 RETURN 
5000 IF A$(Y)<>"% " THEN LET S=S+1
5002 IF A$(Y)="%H" THEN LET S=S+2
5003 IF A$(Y)="%M" THEN LET S=S+1
5005 LET A$(Y)="% "
5008 FOR A=18 TO 1 STEP -3
5010 PRINT AT A,Y;"%*"
5020 PRINT AT A,Y;"% "
5030 NEXT A
5040 LET Q=S*6453+INT (RND*3)
5050 IF Q>5000 THEN PRINT AT 20,1;"%S%C%O%R%E%:% ";Q
5070 IF Y>2 AND Y<30 THEN LET Y=Y+INT (RND*3)-INT (RND*3)
5500 RETURN 
5510 CLEAR 
5520 SAVE "1027%2"
5530 RUN