1SOUND 1,2,53,20 10MODE 1 11SOUND 1,2,53,20 20D%=4 30VDU 19,2,RND(3)+1,0,0,0 40VDU 19,3,RND(3)+4,0,0,0 50VDU 29,640;400; 60J1%=0 70FOR K%=400 TO 280 STEP -40 80REPEAT J2%=RND(3): UNTIL J2%<>J1% 90J1%=J2% 100GCOL 3,J1% 110FOR I%=-K% TO K% STEP D% 120MOVE K%,I% 130DRAW -K%,-I% 140MOVE I%,K% 150DRAW -I%,-K% 160NEXT 170NEXT 180 GOTO 10 300 SOUND 1,-15,52,40 310 SOUND 2,-15,68,40 320 SOUND 3,-15,80,40