home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 180 / 180.d81 / win (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1999-01-01  |  1.4 KB  |  42 lines
  1. 8 dv=peek(186):ifdv<8thendv=8
  2. 10 rem    win-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. 18 sys49152,"pic12",40960,24576
  10. 19 poke147,0:sys57812"mus1",dv,1:sys62631:sys57812"mus2",dv,1:sys62631
  11. 21 open3,dv,3,"stats,s,r":input#3,dy:input#3,ms:input#3,sc:input#3,ft:close3
  12. 22 sys860:sys52222,40960
  13. 23 sys16384,2,24576,14336,23552
  14. 24 sys16439,0,1,21,"[215]ell, [201]ce[204]ady, [201] hope you have learned"
  15. 26 sys16439,0,1,22,"that crime does not pay."
  16. 28 sys16439,0,1,23,"[217]ou can never escape from a great"
  17. 30 sys16439,0,1,24,"detective like myself."
  18. 32 wait56320,16,16:gosub500
  19. 34 sys16439,1,1,21,"[193]ll right, all right."
  20. 36 sys16439,1,1,22,"[196]id you have to chain me to the car."
  21. 38 sys16439,1,1,23,"[193]nd how about slowing down..."
  22. 40 sys16439,1,1,24,"[201] am not motorized, you know."
  23. 42 wait56320,16,16:gosub500
  24. 43 sys16439,1,8,22,"score":sys16439,1,15,22,sc:wait56320,16,16:gosub500
  25. 45 sys16439,1,8,22,"[208]lay again   y or n"
  26. 46 poke198,0
  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,1,t,"                                      ":next
  40. 502 return
  41. 10000 d=peek(186):n$="0:win":open15,d,15,"s"+n$:close15:saven$,d:end
  42.