Chainsaw

Source Code

   5 LET S=0
   6 LET J=0
  10 LET A$="\..%0\..%1\..%2\..%3\..%4\..%5\..%6\..%7\..%8\..%9\..%A\..%B\..%C\..%D\..%E\..%F"
  20 LET B$="% % % % % % % % % % % %C%H%A%I%N%-%S%A%W% % % % % % % % % % % % "
  30 LET C$="\''%0\''%1\''%2\''%3\''%4\''%5\''%6\''%7\''%8\''%9\''%A\''%B\''%C\''%D\''%E\''%F"
  40 PRINT AT 10,0;A$;AT 11,0;B$;AT 12,0;C$
  50 LET A$=A$(2 TO 32)+A$(1)
  60 LET C$=C$(32)+C$( TO 31)
  70 GOSUB 100
  80 GOTO 40
 100 PRINT AT 21,0;"%*"
 110 LET D$=INKEY$
 120 IF D$="" THEN RETURN 
 130 LET I=1
 140 FOR N=20 TO 0 STEP -1
 150 PRINT AT N,I;"*";AT N+1,I-1;" "
 160 IF N=12 THEN GOSUB 300
 170 IF N=10 THEN GOSUB 400
 180 LET I=I+1
 190 NEXT N
 200 PRINT AT 0,0;"%S%H%O%T%S% %= ";J;AT 0,12;" %S%C%O%R%E% %= ";S
 210 IF J=10 THEN GOTO 500
 220 GOTO 40
 300 LET J=J+1
 310 IF C$(11)="\''" THEN GOTO 480
 320 LET S=S+CODE C$(11)-156
 330 LET C$(11)="\''"
 340 RETURN 
 400 IF A$(11)="\.." THEN RETURN 
 410 LET S=S+CODE A$(11)-156
 420 LET A$(11)="\.."
 430 LET A$=A$(2 TO 32)+A$(1)
 480 RETURN 
 500 PRINT AT 6,0;"GAME OVER - PRESS ENTER","TO RESTART :::"
 510 INPUT A$
 520 FAST 
 530 CLS 
 540 SLOW 
 550 RUN 
9998 SAVE "CHAINSA%W"
9999 RUN