{$F+} {$M $4000,500000,650000} program passwortabfrage; uses crt,design; const Passwoerter : array[1..10] of string = ('Data Becker','Inspire','PC Underground','Soundblaster', 'Demos','Super','Vengeance','Dynamite','Bier','Haus'); Pw_Pages : array[1..10] of word = (17,3,29,43,12,21,4,9,13,30); Var pw_nr : byte; verbleibende_durchlaeufe : byte; Passwort_correct : word; New_Pass : string; PNeues_Passwort_waehlen : pointer; PEingabe_Box_zeichnen : pointer; PPasswort_abfragen : pointer; PSystem_anhalten : pointer; unnoetige_Variable1 : word; unnoetige_Variable2 : word; {$L Pwmodul} procedure Abfrage_Schleife; far; external; procedure Neues_Passwort_waehlen; begin; pw_nr := random(10)+1; unnoetige_Variable1 := 1; unnoetige_Variable2 := 2; end; procedure Eingabe_Box_zeichnen; var pws : string; begin; str(Pw_Pages[pw_nr]:2,pws); asm int 3; end; Fenster(20,10,40,4,'Bitte Passwort auf Seite '+pws+' eingeben',black,7); unnoetige_Variable1 := 1; unnoetige_Variable2 := 2; gotoxy(23,12); end; procedure Passwort_abfragen; begin; readln(New_Pass); unnoetige_Variable1 := 1; unnoetige_Variable2 := 2; if New_Pass = Passwoerter[pw_nr] then Passwort_correct := 1 else Passwort_correct := 0; end; procedure System_anhalten; begin; textbackground(black); textcolor(7); clrscr; writeln('Wir h„tten doch wohl besser ein Orginal gekauft ...'); halt(0); end; procedure Main_Programm; begin; textbackground(black); textcolor(7); clrscr; gotoxy(20,12); writeln('Wilkommen im Hauptprogramm !'); gotoxy(20,22); write('Enter zum Beenden ... '); readln; halt(0); end; begin; textbackground(black); textcolor(7); clrscr; verbleibende_durchlaeufe := 57; PNeues_Passwort_waehlen := @Neues_Passwort_waehlen; PEingabe_Box_zeichnen := @Eingabe_Box_zeichnen; PPasswort_abfragen := @Passwort_abfragen; PSystem_anhalten := @System_anhalten; randomize; Abfrage_Schleife; end.