{* Конфетти *}

REM basic

' Конфетти


30 WIDTH 80: SCREEN 0: Key Off: CLS

40 For 1=1 ТО 1000

50 C=INT(RND(1)*16)

60 X=INT(RND(1)*79)+1

70 Y=INT(RND(1)*23)+1

80 A$=CHR$(INT(RND(1)*224)+32)

90 LOCATE Y,X

100 COLOR C,0