0010 DESTROY ALL 
0020 DIM Q$[120]
0030 T$=CHR$(13)&CHR$(10)
0040 SETUP 2400,30,10,0,1,T$
0050 Q$=""
0060 CREATE TEXT PCX
0070 ASSIGN #3 TO *
0080 ASSIGN #3 TO PCX
0090 Q$=SERIAL$(120,"+")
0100 IF Q$="" THEN 90
0110 IF Q$="?" THEN 140
0120 PRINT #3;Q$
0130 GOTO 90
0140 ASSIGN #3 TO *
0150 END 
