home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 55 / 055.d81 / reach! (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  48 lines
  1. 0 gosub6000:clr:rem reach! by carlos j. velazquez
  2. 1 dimm(41,18),a(40):h=(256*peek(251)+peek(252))*(peek(10)):forn=1to40:l$=l$+"[192]"
  3. 2 next:print"[147][159]";l$;""l$;spc(10)"[158]hit space[146] to launch[155]"
  4. 3 poke198,0:d=48+int(rnd(0)*9+1):p=1:n=1864:ifrnd(0)<.5thenp=-1:n=1903
  5. 4 n=n+p:poken,d:poken-p,32:geta$:ifa$=" "thenc=abs(n-1864):n=n-40:goto7
  6. 5 ifp=1andn<1903 or p=-1andn>1864 then4
  7. 6 s=s-20:poken,32:z=0:goto10
  8. 7 a(c)=a(c)+1:e=1064+a(c)*40+c:forl=ntoestep-40:pokel,d:pokel+40,32:next
  9. 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)
  10. 9 ifz=uporz=doorz=rt orz=lfthen12
  11. 10 s=s+z*(do+up+lf+rt)+z:ifs>hthenh=s
  12. 11 print"    [157][157][157][157]";s,,"hi";h:goto3
  13. 12 geta$:printtab(10)"play again (y/n)[145][145]":ifa$<>"y"anda$<>"n"then12
  14. 13 ifa$="y"thenhb=int(h/256):lb=h-hb*256:poke251,hb:poke252,lb:poke10,1:run1
  15. 14 print"[147]goodbye"
  16. 15 :
  17. 16 :
  18. 17 :
  19. 18 :
  20. 19 rem the following lines are added
  21. 20 :
  22. 21 :
  23. 22 :
  24. 23 :
  25. 24 :
  26. 100 open15,8,15,"r0:one-screen winners=one-screen winners":input#15,er:close15
  27. 101 ifer<>63 then print"[147]":end
  28. 102 load"one-screen winners",8
  29. 6000 poke53280, 0:poke53281, 0:print"[147]";
  30. 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]"
  31. 6002 print"[152]    [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]     "
  32. 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]"
  33. 6004 print"[172]                    [146][187]"
  34. 6005 print"                      "
  35. 6006 print"     R E A[160]C[160]H !      "
  36. 6007 print"[163][163][163][163][163][163][163][163][163][160]                     [146][163][163][163][163][163][163][163][163][163][160]        By     ";
  37. 6008 print"     [160]"
  38. 6009 print"[163][163][163][163][163][163][163][163][163]                      [146][163][163][163][163][163][163][163][163][163]  Carlos Velazqu";
  39. 6010 print"ez   [160]"
  40. 6011 print"[163][163][163][163][163][163][163][163][163]                     [160][146][163][163][163][163][163][163][163][163][163]                ";
  41. 6012 print"      "
  42. 6013 print"[188]                    [146][190]"
  43. 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]"
  44. 6015 print"[152] PRESS SPACE[160]TO[160]CONTINUE  "
  45. 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]"
  46. 6020 geta$:ifa$<>" "then6020
  47. 6030 print"[147]":return
  48.