program FruityFrank(input,output); {$I-} {$IFR1.INC} {$IFR2.INC} BEGIN {M A I N} Fruit_Init; repeat Level_holen; repeat Spiel_Init; Frucht_Positionieren; Spielen; if (Gewinner=Frank) then begin for j:=1 to 8 do begin Schirm_blinken(dunkel); delay(30); Schirm_blinken(hell); delay(30); end; if (Ebene<3) then Ebene:=Ebene+1; end; delay(1000); until (Gewinner<>Frank); Spielstand_ausgeben; until (1=0); END.