Synchro-Smash

Source Code

  10 LET P=15
  20 LET T=0
  30 LET A$=" %V %V %V %V %V %V %V %V %V \':\:' %V %V %V %V %V "
  40 PRINT AT 20,3;"%S%Y%N%C%H%R%O";AT 20,20;"%-%S%M%A%S%H% "
  50 PRINT AT 1,0;A$;AT 18,P-2;"  %*  "
  80 IF INKEY$="Z" THEN GOSUB 230
  90 LET P=P+2*(INKEY$="0")-2*(INKEY$="1")
 100 IF P<2 THEN LET P=2
 110 IF P>29 THEN LET P=29
 120 LET A$=A$(2 TO 31)+A$(1)
 160 GOTO 50
 230 FOR N=17 TO 1 STEP -1
 240 IF N<17 THEN PRINT AT N+1,P;" "
 250 PRINT AT N,P;"*"
 260 NEXT N
 270 IF A$(P+1)="%V" THEN LET T=T+10
 280 IF A$(P+1)="\':" OR A$(P+1)="\:'" THEN LET T=T+100
 290 IF A$(P+1)=" " THEN LET T=T-50
 300 LET A$(P+1)=" "
 310 IF T<-150 THEN GOTO 400
 320 IF A$="                               " THEN GOTO 500
 330 PRINT AT 19,11;"\:'\''\''\''\''\''\''\':";AT 20,11;"\:       \ :";AT 21,11;"\:.\..\..\..\..\..\..\.:";AT 20,13;T;" "
 340 RETURN 
 400 CLS 
 410 PRINT AT 10,11;"GAME OVER";AT 12,12;"YOU LOSE"
 420 STOP 
 500 CLS 
 510 PRINT AT 10,11;"GAME OVER";AT 12,9;"YOU SCORED ";T
 520 IF T=340 THEN PRINT AT 14,8;"PERFECT SCORE"
 530 STOP 
 998 SAVE "SYNCHRO-SMAS%H"
 999 RUN