home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 55
/
055.d81
/
reach!
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
48 lines
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