home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / WARGAMES.ARC / CHESS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  640 b   |  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.