220 "S" CLS : CLEAR : PRINT = LPRINT : RESTORE 243: FOR I=0 TO 53: READ A: POKE 63898+I,A: NEXT I
  221 CALL 63898: RESTORE 241
  222 FOR I=0 TO 95:B$="  "
  223 IF I<12 OR I>91 READ B$
  224 IF  PEEK 63952=I LET B$="P: "+B$: GOTO 228
  225 IF  PEEK 63953=I LET B$="Q: "+B$: GOTO 228
  226 IF  PEEK 63954=I LET B$="R: "+B$: GOTO 228
  227 B$="   "+B$
  228 E= INT (I/16)
  229 F=(I-16*E)
  230 IF E>9 LET E=E+7
  231 IF F>9 LET F=F+7
  232 G$= CHR$ (E+48)+ CHR$ (F+48)
  233 A= PEEK (63955+I)
  234 C= INT (A/16)
  235 D=(A-16*C)
  236 IF C>9 LET C=C+7
  237 IF D>9 LET D=D+7
  238 E$= CHR$ (C+48)+ CHR$ (D+48)
  239 PRINT  USING "&&"; STR$ I; USING ;"(&";G$;")->"; USING "&&&&&";B$; USING ;"= "; USING "&&&"; STR$ A; USING ;"(&";E$;")
  240 NEXT I: END 
  241 DATA " I"," J"," A"," B","XL","XH","YL","YH"," K"," L"," M"," N"
  242 DATA "IA","IB","FO"," C"
  243 DATA 16,249,213,82,17,208,32,82,17,209,33,82,17,210,34,82,17,211,128,89,82
  244 DATA 17,212,129,89,82,17,214,218,82,17,215,0,7,132,25
  245 DATA 2,249,135,219,2,222,134,219,139,80,89,38,32,103,96,41,7,55