home *** CD-ROM | disk | FTP | other *** search
/ Dark Star 2 / Dark_Star_02_1995_-_de_Side_B.d64 / chess (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  640b  |  19 lines
  1. 50 poke792,207:poke793,2:poke720,4:poke739,13:poke743,0:poke648,4:poke49153,0
  2. 100 ifpeek(25598)=169then600
  3. 200 poke53280,6:poke53281,6
  4. 440 print"[147]           loading sub programs  [146]"
  5. 500 load"xyzzy",8,1:run
  6. 600 poke 53280,0:poke 53281,0:poke 53282,7:poke 53283,7:poke 53284,7
  7. 700 poke792,168:poke793,99:sys (12288)
  8. 800 poke53280,6:poke53281,6:poke792,168:poke793,99:poke648,4
  9. 802 print"[147] do you want to play more chess? (y/n)"
  10. 810 getx$:ifx$=""then810
  11. 820 ifx$="n"then840
  12. 830 sys (12288)
  13. 840 poke25598,0:print"[147] do you want to return to war games ?"
  14. 850 geta$:ifa$=""then850
  15. 860 ifa$="y"then880
  16. 870 print"[147]  bye bye":end
  17. 880 poke49153,0:print"[147]load";chr$(34);"war menu";chr$(34);",8,1"
  18. 890 poke631,19:poke632,13:poke633,82:poke634,117:poke635,13:poke198,5:end
  19.