Compy Shop Magazin 1988 October/Compy_Shop_Magazin_1988_10___de_Side_A.atr/taste.i

Text File | 2023-02-26 | 616b | 1 lines

PROCEDURE taste;¢¢VAR¢ crs,zeichen,aus:^Integer;¢¢BEGIN¢aus:=Pointer(752);¢aus^:=1; (* Cursor ausschalten *)¢zeichen:=Pointer(764);¢zeichen^:=255; (* Abfrage vorbereiten*)¢crs:=Pointer(84);¢crs^:=23; (* Cursor auf Zeile 23 *)¢crs:=Pointer(85);¢crs^:=1; (* Cursor auf Spalte 1 *)¢write('                                        '); (* Zeile 23 loeschen *)¢crs^:=1; (* Cursor zurueck auf Sp. 1 *)¢¢write('Zur Fortsetzung bitte TASTE druecken');¢¢While zeichen^=255 DO¢BEGIN¢ zeichen:=Pointer(764);¢END;¢zeichen^:=255; (* Letztes Zeichen loeschen *)¢writeln(chr(155)); (* Return *)¢aus^:=0  (* Cursor einschalten *)¢END;