F168                ORG  61800
F168 ED5B785C BORDC LD   DE,(23672)
F16C 1A             LD   A,(DE)
F16D E607           AND  7
F16F D3FE           OUT  (254),A
F171 C9             RET
 
F172 210058   INKCH LD   HL,22528
F175 7E       ICLOP LD   A,(HL)
F176 E6F8           AND  248
F178 4F             LD   C,A
F179 ED5F           LD   A,R
F17B E607           AND  7
F17D B1             OR   C
F17E 77             LD   (HL),A
F17F 23             INC  HL
F180 3E5B           LD   A,91
F182 BC             CP   H
F183 C8             RET  Z
F184 18EF           JR   ICLOP
 
F186 210058   PAPCH LD   HL,22528
F189 7E       PCLOP LD   A,(HL)
F18A E6C8           AND  200
F18C 4F             LD   C,A
F18D ED5F           LD   A,R
F18F E638           AND  56
F191 B1             OR   C
F192 77             LD   (HL),A
F193 23             INC  HL
F194 3E5B           LD   A,91
F196 BC             CP   H
F197 C8             RET  Z
F198 18EF           JR   PCLOP
 
F19A 210040   SCRGB LD   HL,16384
F19D 7E       SCRLP LD   A,(HL)
F19E CB0F           RRC  A
F1A0 A7             AND  A
F1A1 77             LD   (HL),A
F1A2 23             INC  HL
F1A3 3E58           LD   A,88
F1A5 BC             CP   H
F1A6 C8             RET  Z
F1A7 18F4           JR   SCRLP
 
F1A9 110A00   KEYBP LD   DE,10
F1AC 21D007         LD   HL,2000
F1AF 3A085C         LD   A,(23560)
F1B2 6F             LD   L,A
F1B3 CDB503         CALL 949
F1B6 C9             RET