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