100 MODE 4:lscreen
110 length=75264
120 b=ALCHP(87356):a=262144-length
130 IF a<b THEN PRINT "NOT ENOUGH IN MEMORY IN THE CORRECT PLACE FOR ABSOLUTE LOAD":RECHP b:STOP
140 IF Q_MYJOB>0 THEN CLOSE#0:CLOSE#1:CLOSE#2
150 LBYTES chessc,a:patch
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
270 DEFine PROCedure patch
280 p=HEX("31f68")
290 POKE_L p,HEX("4e40588f"):POKE_L p+4,HEX("027cdfff")
300 p=p+8:POKE_W p,HEX("227c"):POKE_L p+2,HEX("00030f44")
310 p=p+6:POKE_W p,HEX("22fc"):POKE_L p+2,HEX("ffcb6368")
320 p=p+6:POKE_W p,HEX("22fc"):POKE_L p+2,HEX("65737332")
330 p=p+6:POKE_W p,HEX("22fc"):POKE_L p+2,HEX("2e303120")
340 p=p+6:POKE_W p,HEX("22fc"):POKE_L p+2,HEX("0042701c")
350 p=p+6:POKE_W p,HEX("4ef9"):POKE_L p+2,HEX("00031314")
360 END DEFine 
