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
