1 SCREEN2,0
10 OPEN"grp:" AS#1'Данный оператор применяется совместно с операторами PRINT#1 и CLOSE#1 для организации вывода символьной информации на графические экраны SCREEN2 и SCREEN3.
20 SPRITE$(1)="итерация":SPRITE$(2)="интеграл":SPRITE$(3)="алгоритм":E=2:ON SPRITE GOSUB 500
40 PUT SPRITE 2,(60,100),2:PUT SPRITE 3,(90,100),1
60 FORK=1TO256:SPRITE ON:N=1:PUT SPRITE N,(K,100),1,3:NEXT
100 GOTO 100
500 SPRITE OFF::PRESET(90,10)
512 IF POINT(PEEK(&HFCB3),PEEK(&HFCB5))<>2 AND E=2 THEN PRINT #1,"Green" ELSE IF POINT(PEEK(&HFCB3),PEEK(&HFCB5))<>1AND E=3 THEN PRINT #1,"Black"
520 FOR T=1 TO 500:NEXT:PUT SPRITE E,(E*10,E*10),15:E=E+1
525 CLS:SPRITE ON:RETURN