0 GOSUB6000:CLR:REM REACH! BY CARLOS J. VELAZQUEZ
1 DIMM(41,18),A(40):H=(256*PEEK(251)+PEEK(252))*(PEEK(10)):FORN=1TO40:L$=L$+"[192]"
2 NEXT:PRINT"[147][159]";L$;""L$;SPC(10)"[158]HIT SPACE[146] TO LAUNCH[155]"
3 POKE198,0:D=48+INT(RND(0)*9+1):P=1:N=1864:IFRND(0)<.5THENP=-1:N=1903
4 N=N+P:POKEN,D:POKEN-P,32:GETA$:IFA$=" "THENC=ABS(N-1864):N=N-40:GOTO7
5 IFP=1ANDN<1903 OR P=-1ANDN>1864 THEN4
6 S=S-20:POKEN,32:Z=0:GOTO10
7 A(C)=A(C)+1:E=1064+A(C)*40+C:FORL=NTOESTEP-40:POKEL,D:POKEL+40,32:NEXT
8 X=C+1:Y=A(C):Z=D-48:M(X,Y)=Z:UP=M(X,Y-1):DO=M(X,Y+1):LF=M(X-1,Y):RT=M(X+1,Y)
9 IFZ=UPORZ=DOORZ=RT ORZ=LFTHEN12
10 S=S+Z*(DO+UP+LF+RT)+Z:IFS>HTHENH=S
11 PRINT"    [157][157][157][157]";S,,"HI";H:GOTO3
12 GETA$:PRINTTAB(10)"PLAY AGAIN (Y/N)[145][145]":IFA$<>"Y"ANDA$<>"N"THEN12
13 IFA$="Y"THENHB=INT(H/256):LB=H-HB*256:POKE251,HB:POKE252,LB:POKE10,1:RUN1
14 PRINT"[147]GOODBYE"
15 :
16 :
17 :
18 :
19 REM THE FOLLOWING LINES ARE ADDED
20 :
21 :
22 :
23 :
24 :
100 OPEN15,8,15,"R0:ONE-SCREEN WINNERS=ONE-SCREEN WINNERS":INPUT#15,ER:CLOSE15
101 IFER<>63 THEN PRINT"[147]":END
102 LOAD"ONE-SCREEN WINNERS",8
6000 POKE53280, 0:POKE53281, 0:PRINT"[147]";
6001 PRINT"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
6002 PRINT"[152]    [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]     "
6003 PRINT"[151][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
6004 PRINT"[172]                    [146][187]"
6005 PRINT"                      "
6006 PRINT"     r e a[160]c[160]h !      "
6007 PRINT"[163][163][163][163][163][163][163][163][163][160]                     [146][163][163][163][163][163][163][163][163][163][160]        bY     ";
6008 PRINT"     [160]"
6009 PRINT"[163][163][163][163][163][163][163][163][163]                      [146][163][163][163][163][163][163][163][163][163]  cARLOS vELAZQU";
6010 PRINT"EZ   [160]"
6011 PRINT"[163][163][163][163][163][163][163][163][163]                     [160][146][163][163][163][163][163][163][163][163][163]                ";
6012 PRINT"      "
6013 PRINT"[188]                    [146][190]"
6014 PRINT"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
6015 PRINT"[152] press space[160]to[160]continue  "
6016 PRINT"[151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
6020 GETA$:IFA$<>" "THEN6020
6030 PRINT"[147]":RETURN