10 GRAPHICS4
20 SETPALETTE81,84,0,81;MODE3;BORDER81
30 SETINK2:PRINTAT10,7:"VIDEOTON TV COMPUTER ":PRINTAT9,14:"K K S";
40 SETINK3:FORI=80TO1023STEP8
50 PLOT512,700;I,560
60 PLOT512,700;I-80,560:NEXT
90 FORI=0TO15STEP3:FORZ=3800TO4000STEP80:SOUND PITCHZ,VOLUMEI:NEXTZ,I:SOUND PITCH4095,VOLUME0
100 SETINK1: FORI=0TO40STEP4:PLOT840+I,600;840-I,600;840,600-I;840,600+I
108 NEXT
110 FORI=40TO 0STEP-4:PLOT840+I,600;840-I,600;840,600-I;840,600+I
120 NEXT
121 FORI=15TO0 STEP-3:FORZ=4000TO3800STEP-80:SOUND PITCHZ,VOLUMEI:NEXTZ,I