dos33fsprogs/graphics/hgr/trench/trench.bas

5 HGR2:HCOLOR=7
20 HPLOT 0,78 TO 136,78 TO 0,114
30 HPLOT 279,78 TO 144,78 TO 279,114
'40 HPLOT 136,78 TO 136,88 TO 48,191
'50 HPLOT 144,78 TO 144,88 TO 232,191
60 FOR X=0 TO 11
70 Y2=256-(X*16):IF Y2>191 THEN Y2=191
80 HPLOT 4+X*12,112-X*3 TO 4+X*12,Y2
90 HPLOT 276-X*12,112-X*3 TO 276-X*12,Y2
100 NEXT
'
'136
'124
'60 HPLOT 112,85 TO 112,112
'70 HPLOT 100,88 TO 100,128
'80 HPLOT 88,91 TO 88,144
'90 HPLOT 76,94 TO 76,160
'64 97                176
'52 100               192
'40 103               208
'28 106               224
'16 109               240
'4  112               256