home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9101 / dbase / test.prg < prev    next >
Encoding:
Text File  |  1991-10-13  |  789 b   |  37 lines
  1. set scoreboard off
  2. set status off
  3. set talk off
  4.  
  5. load screen
  6.  
  7. i = 1
  8. a = replicate("▒", 80)
  9.  
  10. do while i < 25
  11.   @ i, 1 say a
  12.   i = i + 1
  13. enddo
  14. @ 11,28 say "Wichtige Daten ... "
  15. @ 20,1
  16. wait("")
  17.  
  18. call screen with "s"           && Bildschirm sichern
  19.  
  20. ver = "dx"                     && zwei Bytes für die Rückgabe
  21. call screen with ver           && d = "GetDosVersion"
  22. AusVer = Left(ver,1) + "." + Right(ver,1)
  23.  
  24. call screen with "C0"          && Cursor ausschalten
  25.  
  26. @ 11,25 clear to 12,54
  27. @ 11,28 say "Dos-Version: "
  28. @ 11,41 say ausver             && aufbereitete Ausgabe
  29. @ 12,28 say "Bitte eine Taste drücken"
  30. @ 10,25 to 13,55 double
  31. * @ 20,1
  32. wait("")
  33.  
  34. call screen with "C1"          && Cursor einschalten
  35.  
  36. call screen with "R"           && Bildschirm zurück
  37.