home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 49 / 049.d81 / jaws (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  25 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. 60000 print"  [154]would you like to play again? (y[154]/n[154])":poke198,.
  18. 60010 a=peek(203):ifa<>25anda<>39then60010
  19. 60020 ifa=25thenrun
  20. 60030 open15,8,15,"r0:tips and tricks=tips and tricks":input#15,er:close15
  21. 60040 ifer<>63thenend
  22. 60050 print"[147]load"chr$(34)"tips and tricks"chr$(34)",8"
  23. 60060 print"run"
  24. 60070 poke631,13:poke632,13:poke198,2:end
  25.