home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 07 / heimwerk / test.bib < prev   
Encoding:
Text File  |  1989-05-03  |  1.7 KB  |  67 lines
  1. '------------------------------------------------
  2. ' Test.Bas
  3. ' Testprogramm für Archiv.Bas
  4. ' hat nur Testfunktion !
  5. '------------------------------------------------
  6. ' Zeichen nach '
  7. '------------------------------------------------
  8. DEF FNTest1 (Test$)
  9. ' eine aufgerufene Funktion
  10.  
  11. END DEF
  12. '------------------------------------------------
  13. DEF FNTest2 (Test$)
  14. ' eine aufgerufene Funktion
  15.  
  16. END DEF
  17. '------------------------------------------------
  18. '------------------------------------------------
  19. DEF FNTest4 (Test$)
  20. ' eine aufgerufene Funktion
  21.  IF Test$ = "J" THEN FNTest4 = 10 ELSE FNTest4 = 20
  22. END DEF
  23. '------------------------------------------------
  24. DEF FNTemp (x) = 5 * 2
  25. ' eine aufgerufene Funktion
  26. '------------------------------------------------
  27. ' eine nicht aufgerufene Funktion
  28. '------------------------------------------------
  29. TestSub :
  30.  x = 3 * 5
  31. RETURN
  32. '------------------------------------------------
  33. '------------------------------------------------
  34. '------------------------------------------------
  35. sub Name2
  36.  
  37. end sub
  38. '------------------------------------------------
  39. '------------------------------------------------
  40. sub gosubtest
  41.  
  42. end sub
  43. '------------------------------------------------
  44. sub hoppla
  45.  
  46. end sub
  47. '------------------------------------------------
  48. sub oha
  49.  
  50. end sub
  51. '------------------------------------------------
  52. '------------------------------------------------
  53. PRINT FnTest1 (test$) : CALL Name2
  54. IF Test$ = "J" THEN
  55.     x = FNTest2 (test$)
  56.  ELSE
  57.     x = FNTest1 (test$)
  58.  END IF
  59.  
  60. A = FnTest4 (Test$)    ' Test für Aufruf nach REM
  61. PRINT FnTemp (5)
  62. print "dies ist ein test" : CALL GosubTest
  63. call hoppla   ' test
  64. call oha
  65.  
  66.  
  67.