100 MODE 4:lscreen
120 length=75264
130 b=ALCHP(87356):a=262144-length
140 IF a<b THEN PRINT "NOT ENOUGH MEMORY":RECHP b:STOP
145 IF Q_MYJOB>0 THEN CLOSE#0:CLOSE#1:CLOSE#2
150 LBYTES chessc,a
155 STOP
160 CALL a
170 STOP
180 DEFine PROCedure lscreen
190 MODE 4
200 OPEN #1,con_512x256a0x0_32:INK 7:PAPER 3:CLS
210 CSIZE 2,1
220 AT 2,18:CSIZE 3,1:PRINT"CHESS"
230 CSIZE 1,0:AT 7,28:PRINT"by PSION"
240 AT 9,24:PRINT"with Richard Lang"
250 CSIZE 1,0:AT 24,20:PRINT"Copyright 1984 PSION LTD"
260 END DEFine lscreen
2000 DEFine PROCedure patch
2020 p=HEX("31f68")
2030 POKE_L p,HEX("4e40588f"):POKE_L p+4,HEX("027cdfff")
2040 p=p+8:POKE_W p,HEX("227c"):POKE_L p+2,HEX("00030f44")
2050 p=p+6:POKE_W p,HEX("22fc"):POKE_L p+2,HEX("ffcb6368")
2060 p=p+6:POKE_W p,HEX("22fc"):POKE_L p+2,HEX("65737332")
2070 p=p+6:POKE_W p,HEX("22fc"):POKE_L p+2,HEX("2e303120")
2080 p=p+6:POKE_W p,HEX("22fc"):POKE_L p+2,HEX("0042701c")
2090 p=p+6:POKE_W p,HEX("4ef9"):POKE_L p+2,HEX("00031314")
2100 END DEFine 
