home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 209 / 209.d81 / jaws (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2001-01-01  |  1.1 KB  |  26 lines
  1. 100 print"[158][147]jaws lxiv[155] - use <&> - [158]bob & dave snader":l=1104:poke53280,6
  2. 105 poke53281,6
  3. 110 forj=832to960:pokej,0:next
  4. 120 v=53248:s=54296:y=70:ti$="000000"
  5. 130 forj=0to33:readq,r:poke833+j,q:poke897+j,r:next:pokev+21,1:pokev+39,1:x=150
  6. 140 pokel,32:pokes,15:pokes,0:l=1994+rnd(8)*20:ify>250then210
  7. 150 k=peek(197):m=m+(k=47):m=m-(k=44):x=x+2*m:poke2040,14+(m<0)
  8. 160 ifx>255thenx=255:m=0
  9. 170 ifx<80thenx=80:m=0
  10. 180 pokev,x:pokev+1,y:pokel,32:pokel-40,87:l=l-40:ifl<1100theny=y+20:goto140
  11. 190 ifpeek(v+31)and1=1thengoto140
  12. 200 print"[153]";:printmid$(ti$,3,2);":";right$(ti$,2);"[154]":goto150
  13. 210 print"game over[154]":poke198,0:goto60000
  14. 220 data2,64,0,0,0,0,12,48,0,0,0,0,60,60,0,0,3,128,252,63,1,192,31,96,254,127
  15. 230 data6,248,119,57,255,255,156,238,255,31,255,255,248,255,127,31,255,255,248
  16. 240 data254,31,56,254,127,28,248,0,96,248,31,6,0,0,128,48,12,1,0,0,0,8,16
  17. 10000 d=peek(186):n$="jaws":open15,d,15,"s0:"+n$:close15:saven$,d:end
  18. 60000 print"  [154]would you like to play again? (y[154]/n[154])":poke198,.
  19. 60010 a=peek(203):ifa<>25anda<>39then60010
  20. 60020 ifa=25thenrun
  21. 60030 dv=peek(186):open15,dv,15,"i0":close15
  22. 60040 a$="b.tips and trick":d=dv:b$="l[207]a$,d"+chr$(13)+"r[213]"+chr$(13)
  23. 60050 forx=1to10:poke630+x,asc(mid$(b$,x)):next:poke198,10
  24. 60060 poke53280,0:poke53281,0:print"[144][147]":end
  25. 60070 poke631,13:poke632,13:poke198,2:end
  26.