50 POKE792,207:POKE793,2:POKE720,4:POKE739,13:POKE743,0:POKE648,4:POKE49153,0
100 IFPEEK(25598)=169THEN600
200 POKE53280,6:POKE53281,6
440 PRINT"[147]           LOADING SUB PROGRAMS  [146]"
500 LOAD"XYZZY",8,1:RUN
600 POKE 53280,0:POKE 53281,0:POKE 53282,7:POKE 53283,7:POKE 53284,7
700 POKE792,168:POKE793,99:SYS (12288)
800 POKE53280,6:POKE53281,6:POKE792,168:POKE793,99:POKE648,4
802 PRINT"[147] DO YOU WANT TO PLAY MORE CHESS? (Y/N)"
810 GETX$:IFX$=""THEN810
820 IFX$="N"THEN840
830 SYS (12288)
840 POKE25598,0:PRINT"[147] DO YOU WANT TO RETURN TO WAR GAMES ?"
850 GETA$:IFA$=""THEN850
860 IFA$="Y"THEN880
870 PRINT"[147]  BYE BYE":END
880 POKE49153,0:PRINT"[147]LOAD";CHR$(34);"WAR MENU";CHR$(34);",8,1"
890 POKE631,19:POKE632,13:POKE633,82:POKE634,117:POKE635,13:POKE198,5:END