Frenzy

Source Code

   1 REM \3E\1E\ED\47\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 
1000 CLS 
1005 LET C$="FRENZY "
1006 LET D$="%F%R%E%N%Z%Y "
1010 FOR N=24 TO 13 STEP -1
1020 PRINT AT 11,N;C$;AT 11,N;D$;AT 11,N;C$;AT 11,N;D$
1030 NEXT N
1040 FOR I=1 TO 30
1050 PRINT AT 11,N;C$;AT 11,N;D$
1060 NEXT I
1070 RETURN 
2010 PRINT AT 11,0;"YOUR SCORE IS ";B
2030 INPUT A$
2040 RUN 
9998 SAVE "FRENZ%Y"
9999 RUN