10 LINE=49152
20 HARDCOPY=49155
30 CLEAR=49158
100 SYS CLEAR
110 FORT=0TO10000STEP400
120 FORS=0TO10000STEP400
130 SYS LINE,1,0,T,959,S
140 NEXT
150 NEXT
160 SYS HARDCOPY,10000