10 CLS:SCREEN0,0 20 LINE(0,0)-(239,63),1,B 30 LINE(2,2)-(200,61),1,B 40 LINE(202,2)-(237,61),1,BF 50 LINE(4,4)-(198,17),1,BF 60 PRINT@42,CHR$(27);"pTest for the program XCOPY.CO"; 65 PRINT@76,"H":PRINT@116,"E":PRINT@156,"L":PRINT@196,"L":PRINT@236,"O";CHR$(27);"q" 70 FORI=20TO48STEP2 80 LINE(4,I)-(52,I+10):LINE(52,I+10)-(198,I) 90 NEXT 100 RUNM"XCOPY 110 BEEP:END