home *** CD-ROM | disk | FTP | other *** search
/ Compy Shop Magazin 1988 October / Compy_Shop_Magazin_1988_10___de_Side_A.atr / antwort.i < prev    next >
Text File  |  2023-02-26  |  239b  |  1 lines
  1. FUNCTION antwort:boolean;¢¢VAR¢ant:^Integer;¢¢BEGIN¢ant:=Pointer(764);¢ant^:=255;¢While (ant^<>1) AND (ant^<>35) DO¢ BEGIN¢ ant:=Pointer(764)¢ END;¢IF ant^=1 THEN¢ BEGIN¢ antwort:=TRUE;¢ ANT^:=255¢ END¢ ELSE¢ antwort:=FALSE;¢ant^:=255¢END;