Frenzy

   1 REM E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57584 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"E\ED\C9
   2 LET B$="\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
   3 GOSUB 1000
   4 CLS 
  40 FOR N=3 TO 19
  50 PRINT AT N,0;"%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.";
  60 NEXT N
  70 FOR Y=8 TO 14
  80 PRINT AT Y,9;B$
  90 NEXT Y
  95 CLEAR 
  96 LET A=0
  97 LET B=0
 100 LET L=USR 16514
 110 LET K=INT (RND*29)+1
 120 IF K<10 THEN LET K=30
 130 GOSUB 500
 140 POKE 16515,K
 150 GOTO 100
 500 LET C=INT (10*RND)+1
 502 PRINT AT 8,18;"\@@\@@\@@"
 505 IF K=30 THEN PRINT AT 8,18;"%N%O%W";AT 8,18;"NOW";AT 8,18;"%N%O%W"
 510 FOR N=1 TO C
 520 PRINT AT 11,8+N;"\@@%*\@@"
 525 IF INKEY$="Z" THEN GOSUB 600
 530 NEXT N
 540 FOR N=C TO 1 STEP -1
 550 PRINT AT 11,8+N;"\@@%*\@@"
 555 IF INKEY$="Z" THEN GOSUB 600
 560 NEXT N
 570 RETURN 
 600 IF K=30 THEN LET B=B+N
 610 LET A=A+1
 620 PRINT AT 8,9;"A";A;AT 14,9;"C";C;"\@@";AT 14,19;"B";B
 630 IF A>9 THEN GOTO 2000
 640 RETURN 
\n1000 CLS 
\n1005 LET C$="FRENZY "
\n1006 LET D$="%F%R%E%N%Z%Y "
\n1010 FOR N=24 TO 13 STEP -1
\n1020 PRINT AT 11,N;C$;AT 11,N;D$;AT 11,N;C$;AT 11,N;D$
\n1030 NEXT N
\n1040 FOR I=1 TO 30
\n1050 PRINT AT 11,N;C$;AT 11,N;D$
\n1060 NEXT I
\n1070 RETURN 
\n2010 PRINT AT 11,0;"YOUR SCORE IS ";B
\n2030 INPUT A$
\n2040 RUN 
\n9998 SAVE "FRENZ%Y"
\n9999 RUN