полудемка
Код:
    5 CLS
   10 MODE 12
   11 VDU 23,0,192,0
   20 GCOL 0,5
   30 MOVE 0,0
   40 PLOT 5,319,199
   45 *FX 19
   46 VDU 23,7,2,3,1
   47 GOTO 45