home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 12 / comal2.lst < prev    next >
Encoding:
File List  |  1987-08-30  |  937 b   |  32 lines
  1. 0010 // Listing 2
  2. 0020 
  3. 0030 // Demo für den Gebrauch der TRAP-HANDLER-ENDTRAP-Struktur
  4. 0040 
  5. 0050 // Zahleneingabe über Zahlenstring
  6. 0060 
  7. 0070 PAGE
  8. 0080 REPEAT
  9. 0090   zahleingabe(10,1,16,"Parameter: ",ax)
  10. 0100   PRINT AT 12,1: USING "Eingabe : -########.####": ax
  11. 0110 UNTIL ax=1000
  12. 0120 
  13. 0130 PROC zahleingabe(zeile#,spalte#,feldlänge#,text$,REF zahl) CLOSED
  14. 0140   TRAP
  15. 0150     PRINT AT zeile#,spalte#+LEN(text$): SPC$(feldlänge#)
  16. 0160     INPUT AT zeile#,spalte#,feldlänge#: text$: zahl_$
  17. 0170     zahl:=VAL(zahl_$)
  18. 0180   HANDLER
  19. 0190     fehlermeldung
  20. 0200     RETRY
  21. 0210   ENDTRAP
  22. 0220   
  23. 0230   PROC fehlermeldung 
  24. 0240     warnton$:=CHR$(7); fett$:=CHR$(16); normal$:=CHR$(17)
  25. 0250     PRINT AT 24,1: warnton$+fett$+"Fehler: "+ERRTEXT$+" !!!"
  26. 0260     TIMER 0
  27. 0270     WHILE TIMER<1 DO NULL
  28. 0280     PRINT AT 24,1: normal$+SPC$(79),
  29. 0290   ENDPROC fehlermeldung
  30. 0300   
  31. 0310 ENDPROC zahleingabe
  32.