home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 180 / 180.d81 / lose (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  42 lines
  1. 8 dv=peek(186):ifdv<8thendv=8
  2. 10 rem   lose-jc hilty-9/92-escape route
  3. 11 ifa=0thena=1:load"pic.now",dv,1
  4. 12 ifa=1thena=2:load"zippack",dv,1
  5. 13 poke49167,dv
  6. 14 ifa=2thena=3:load"writer",dv,1
  7. 16 ifa=3thena=4:load"escape1.font",dv,1
  8. 17 ifa=4thena=5:load"play",dv,1
  9. 20 sys49152,"pic13",40960,24576
  10. 21 poke147,0:sys57812"mus1",dv,1:sys62631:sys57812"mus2",dv,1:sys62631
  11. 22 open3,dv,3,"stats,s,r":input#3,dy:input#3,ms:input#3,sc:input#3,ft
  12. 23 sys860:sys52222,40960
  13. 24 sys16384,2,24576,14336,23552
  14. 25 sys16439,1,0,21,"[206]ice try, [205]r. [196]etective, but close      "
  15. 26 sys16439,1,0,22,"only counts in horseshoes.              "
  16. 28 sys16439,1,0,23,"[217]ou should just stick to rescuing       "
  17. 30 sys16439,1,0,24,"stray cats from trees.                  "
  18. 32 wait56320,16,16:gosub500
  19. 34 sys16439,6,0,21,"[193]ll right, all right, don't rub it in.  "
  20. 36 sys16439,6,0,22,"[201] will do better next time.             "
  21. 38 sys16439,6,0,23,"[215]ith just a few breaks here and there  "
  22. 40 sys16439,6,0,24,"[201] would be gloating instead of you."
  23. 42 wait56320,16,16:gosub500
  24. 44 sys16439,1,6,22,"score":sys16439,1,14,22,sc:wait56320,16,16:gosub500
  25. 46 poke198,0
  26. 48 sys16439,1,10,22,"[208]lay again   y or n"
  27. 50 geta$:ifa$=""then50
  28. 52 ifa$="y"thensys52225:goto60
  29. 54 ifa$="n"thensys52225:goto80
  30. 56 goto50
  31. 60 poke56576,(peek(56576)and252)or3:poke53265,27:poke53270,200:poke53272,21
  32. 62 poke53281,0:poke53280,0:print"[147]"
  33. 64 a$="b.escape route":q$=chr$(34)
  34. 66 print"[144][147]load"q$a$q$","dv
  35. 68 print"run":poke631,13:poke632,13:poke198,2:end
  36. 80 poke56576,(peek(56576)and252)or3:poke53265,27:poke53270,200:poke53272,21
  37. 82 print"[147]":new
  38. 84 end
  39. 500 fort=21to24:sys16439,0,0,t,"                                      ":next
  40. 502 return
  41. 10000 d=peek(186):n$="0:lose":open15,d,15,"s"+n$:close15:saven$,d:end
  42.