0 REM K4PCS.G 2/5/85 R. Perry 75665,1045 Kills Lucid Paste buffer if present else beeps
1 DEFINTA-Z:FORI=-1694TO-1408STEP11:IF(PEEK(I)AND247)<>160THENNEXT:BEEPELSERESTORE2:FORJ=3TO10:READN:IFPEEK(I+J)<>NTHENJ=11:NEXT:NEXTELSENEXT:POKEI+3,75:POKEI+10,75:KILL"K4 PCS.GK"
2 MENU:DATA0,52,32,80,67,83,71,0