﻿10 CLS
20 HIMEM&7FD0
25 IF PEEK(&7FF9)=195THEN200
30 POKE&7FD0,&2A,&39,&00,&22,&FA,&7F,&21,&DD
40 POKE&7FD8,&7F,&22,&39,&00,&C9
50 POKE&7FDD,&F5,&3E,&8A,&D3,&00,&3E
60 POKE&7FE3,&FE,&D3,&03,&DB,&02,&32,&FC,&7F
70 POKE&7FEB,&3E,&7F,&D3,&03,&DB,&02,&32,&FD
80 POKE&7FF3,&7F,&3E,&88,&D3,&00,&F1,&C3
90 A=USR(&7FD0)
200 PRINTAT1,23PEEK(&7FFC)
210 PRINTAT1,22PEEK(&7FFD)
220 GOTO200
