home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 12 / comal3.lst < prev    next >
Encoding:
File List  |  1987-08-30  |  495 b   |  20 lines
  1. // Listing 3
  2.  
  3. // Auswahl des Fehlermeldungstextes über ERR
  4.  
  5. PROC fehlermeldung 
  6.   warnton$:=CHR$(7); fett$:=CHR$(16); normal$:=CHR$(17)
  7.   PRINT AT 24,1: warnton$+fett$,
  8.   CASE ERR OF 
  9.   WHEN 2
  10.     PRINT AT 24,1: " Die Zahl liegt nicht im Zahlenbereich!"
  11.   WHEN 206
  12.     PRINT AT 24,1: " Bitte eine  Z a h l  eingeben!"
  13.   OTHERWISE
  14.     PRINT AT 24,1: " Bitte Eingabe wiederholen !!!!"
  15.   ENDCASE
  16.   TIMER 0
  17.   WHILE TIMER<2 DO NULL
  18.   PRINT AT 24,1: SPC$(79),
  19. ENDPROC fehlermeldung
  20.