home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine: Run 14 / unpacked-run14.zip / ERRTST.BAS < prev    next >
BASIC Source File  |  1995-01-01  |  722b  |  28 lines
  1. ' Geschreven in powerbasic 3.0c
  2. ' Gecompileerde versie is meegeleverd
  3.  
  4. $STRING 1        ' Gebruik niet meer stringruimte dan nodig
  5. $LIB ALL OFF     ' Niet alles is nodig dus uitzetten, kleinere EXE!
  6.  
  7.  
  8. START:
  9.  
  10. CLS
  11. PRINT"Demo programma voor genereren errorlevels voor RUN14"
  12. PRINT"Start deze demo op via de meegeleverde CHKTST.BAT batchfile."
  13. PRINT
  14. PRINT"Welk level wilt u genereren."
  15. PRINT
  16. PRINT"   1 = Errorlevel 1"
  17. PRINT"   2 = Errorlevel 2"
  18. PRINT"   3 = Errorlevel 3"
  19. PRINT
  20. PRINT"Maak uw keuze (1-3) ";
  21. INPUT KEUZE
  22.  
  23. IF KEUZE = 1 THEN PRINT"Terug naar CHKTST.BAT" : END 1
  24. IF KEUZE = 2 THEN PRINT"Terug naar CHKTST.BAT" : END 2
  25. IF KEUZE = 3 THEN PRINT"Terug naar CHKTST.BAT" : END 3
  26.  
  27. GOTO START
  28.