home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compy Shop Magazin 1988 October
/
Compy_Shop_Magazin_1988_10___de_Side_A_a.atr
/
antwort.i
< prev
next >
Wrap
Text File
|
2023-02-26
|
239b
|
1 lines
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;