dim a$(15)
0 'Processed by Byte Fyter & BYFYTE.CO
1 'For GEnie's Laptops RoundTable
2 'Use ENTER or TAB to move down.
3 'Use DEL/BKSP or ESC to move up.
4 'Fire at Vaders with SPACE BAR.
5 H$="<":FOR I=0 TO VAL(RIGHT$(TIME$,2)):J=RND:NEXT I
6 S=0:FOR Z=0 TO 2:P=38:TT=0:F=0:FOR I=1 TO 6:A$(I)=MID$("987654321",(3-Z),7):NEXT I:CLS:PRINT@P,H$;:PRINT@280,"Score:    "S;::FOR J=Z TO 49:IF J>33 THEN J=J-1
7 IF TT>48 THEN 29
8 FOR I=0 TO 6:PRINT@(I*40+J),SPACE$(Z+1);A$(I);:NEXT I:IF F=1 THEN RP=RP+1:IF FP=RP THEN GOSUB 33
9 V=0:FOR L=1 TO 6:IF LEN(A$(L))=0 THEN V=V+1
10 NEXT L:IF V=6 THEN PRINT@P," ":GOTO 29
11 I=INT(RND*7):B=LEN(A$(I)):IF B<=0 THEN 11
12 C$=RIGHT$(A$(I),1):A$(I)=LEFT$(A$(I),B-1):FOR N=I*40+J+B+Z+1 TO I*40+38:PRINT@N,C$;:PRINT@(N-1)," ";:IF N=FP THEN 23
13 K$=INKEY$:IF K$="" THEN 18
14 M=ASC(K$):IF M=32 THEN 20
15 PRINT@P," ":IF M=27 OR M=8 THEN P=P-40:IF P<38 THEN P=38
16 IF M=9 OR M=13 THEN P=P+40:IF P>278 THEN P=278
17 PRINT@P,H$
18 IF F<>1 THEN ST=15:GOTO 24
19 IF (FP%40)<(J+Z) THEN F=0:GOTO 25
20 IF F=0 THEN F=1:FP=P-1:PRINT@FP,"o";:K=INT(FP/40):RP=40*K+J+Z+LEN(A$(K))
21 FP=FP-1:PRINT@FP,"o ";:IF FP=RP THEN GOSUB 33:GOTO 25
22 IF FP<>N THEN ST=1:GOTO 24
23 SOUND 500,2:S=S+VAL(C$)*10:F=0:PRINT@N," ";:FP=999:GOTO 28
24 FOR T=0 TO ST:NEXT T
25 NEXT N:IF (N-1)<>P THEN 27
26 PRINT@P,H$;:SOUND 2000,2:S=S+VAL(C$)*10:GOTO 28
27 S=S-VAL(C$)*5:SOUND 1000,1:PRINT@(N-1)," ";
28 PRINT@290,S;:TT=TT+1:NEXT J
29 NEXT Z
30 PRINT@133,H$" Game Over "H$:FOR L=1 TO 1500:Q$=INKEY$:NEXT L:PRINT@215,"Play again [y/n] ? ";
31 Q$=INKEY$:IF Q$="" THEN 31
32 IF Q$="Y" OR Q$="y" THEN 6 ELSE cls : system
33 F=0:PRINT@RP," ";:FP=999:BR=LEN(A$(K)):IF BR=0 THEN RETURN
34 R$=RIGHT$(A$(K),1):S=S+VAL(R$)*10:A$(K)=LEFT$(A$(K),BR-1):SOUND 500,2:PRINT@290,S;:TT=TT+1:RETURN