home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols200 / vol235 / testbc2.bas < prev    next >
Encoding:
BASIC Source File  |  1994-07-13  |  5.3 KB  |  130 lines
  1. 1000 A=100:GOTO 20:REM RESERVEER STRINGRUIMTE
  2. 1010 GOSUB 100
  3. 1020 PRINT TAB(8);"BASICODE-2 TESTPROGRAMMA"
  4. 1030 PRINT TAB(8);"------------------------"
  5. 1040 PRINT:PRINT"Met dit programma willen we het nieuwe"
  6. 1050 PRINT:PRINT"Basicode-2 protocol en Uw subroutine's"
  7. 1060 PRINT:PRINT"testen. We beginnen maar meteen..."
  8. 1070 HO=15:VE=15
  9. 1080 HO=HO+1:HM=HO:GOSUB 110:GOSUB 120:IF HM=HO THEN 1080
  10. 1090 HM=HM-1:HO=0
  11. 1100 VE=VE+1:VM=VE:GOSUB 110:GOSUB 120:IF VM=VE THEN 1100
  12. 1110 VM=VM-1:HO=0:VE=8:GOSUB 110
  13. 1120 PRINT:PRINT"Als het goed is, meet Uw scherm"
  14. 1130 PRINT:PRINT HM+1;" bij ";VM+1;" karakters. Klopt dat?"
  15. 1140 PRINT:PRINT"Aan het eind van elke pagina wordt U"
  16. 1150 PRINT:PRINT"gevraagd op een toets te drukken. Druk"
  17. 1160 PRINT:PRINT"op de P als er iets niet klopt, druk"
  18. 1170 PRINT:PRINT"anders een willekeurige toets in."
  19. 1180 GOSUB 9000
  20. 1190 IF IN$="P"OR IN$="p"THEN 10000
  21. 1200 PRINT"We gaan nu de cursor besturen op het"
  22. 1210 PRINT:PRINT"scherm. Druk daartoe op de toetsen"
  23. 1220 PRINT:PRINT"I, J, K en M voor resp naar boven,"
  24. 1230 PRINT:PRINT"links, rechts en naar beneden."
  25. 1240 PRINT:PRINT"Het drukken op S stopt dit deel van het"
  26. 1250 PRINT:PRINT"programma."
  27. 1260 GOSUB 9000
  28. 1270 IF IN$="P"OR IN$="p"THEN 10000
  29. 1280 HO=INT(HM/2):VE=INT(VM/2):IN$="*"
  30. 1290 GOSUB 110:PRINT IN$;:GOSUB 110:GOSUB 120
  31. 1300 GOSUB 210
  32. 1310 IF IN$="I"THEN IF VE>0 THEN VE=VE-1
  33. 1320 IF IN$="K"THEN IF HO<HM THEN HO=HO+1
  34. 1330 IF IN$="J"THEN IF HO>0 THEN HO=HO-1
  35. 1340 IF IN$="M"THEN IF VE<VM THEN VE=VE+1
  36. 1350 IF IN$="S"THEN 1380
  37. 1360 IF VE=VM AND HO=HM THEN 1300
  38. 1370 GOTO 1290
  39. 1380 GOSUB 100:PRINT"Om te voorkomen dat het scherm scrollt"
  40. 1390 PRINT:PRINT"wordt de positie uiterst rechtsonder"
  41. 1400 PRINT:PRINT"niet geprint!"
  42. 1410 GOSUB 9000
  43. 1420 IF IN$="P"OR IN$="p"THEN 10000
  44. 1430 PRINT"We maken nu een tabel met getallen :"
  45. 1440 VE=3:HO=0:GOSUB 110
  46. 1450 PRINT"!    x   ! sin(x) !   x^2  !"
  47. 1460 PRINT"----------------------------"
  48. 1470 CT=6:CN=3
  49. 1480 FOR VE=5 TO VM-7
  50. 1490 GOSUB 110
  51. 1500 GOSUB 260:RV=(1-2*RV)*3
  52. 1510 SR=RV:GOSUB 310:PRINT"! ";SR$;" !";
  53. 1520 SR=SIN(RV):GOSUB 310:PRINT" ";SR$;" !";
  54. 1530 SR=RV^2:GOSUB 310:PRINT" ";SR$;" !"
  55. 1540 NEXT VE
  56. 1550 PRINT:PRINT"De getallen moeten netjes onder elkaar"
  57. 1560 PRINT:PRINT"in kolommen staan!"
  58. 1570 GOSUB 9000
  59. 1580 IF IN$="P"OR IN$="p"THEN 10000
  60. 1590 PRINT"Als er een getal niet past in het veld"
  61. 1600 PRINT:PRINT"als opgegeven (hier CN=3:CT=6), moeten"
  62. 1610 PRINT:PRINT"er bv sterretjes geprint worden:"
  63. 1620 SR=1E+23:GOSUB 300
  64. 1630 PRINT:PRINT"Als voorbeeld nemen we het getal ";SR$
  65. 1640 GOSUB 310:PRINT:PRINT"Dat wordt: ";SR$
  66. 1650 PRINT:PRINT"Als het te klein is, wordt er afgerond"
  67. 1660 PRINT:PRINT"en wordt het dus nul."
  68. 1670 SR=-3.45E-06:GOSUB 300
  69. 1680 PRINT:PRINT"Het getal ";SR$;" wordt dus ";
  70. 1690 GOSUB 310:PRINT SR$
  71. 1700 PRINT:PRINT"Voor het getal 0.000 schrijft U toch"
  72. 1710 PRINT:PRINT"geen min-teken, he?"
  73. 1720 GOSUB 9000
  74. 1730 IF IN$="P"OR IN$="p"THEN 10000
  75. 1740 PRINT"Nu testen we de routine op regel 200 en"
  76. 1750 PRINT:PRINT"de pieproutine. Als U op een toets"
  77. 1760 PRINT:PRINT"drukt piept de computer indien dat kan"
  78. 1770 PRINT:PRINT"en print een boodschap op het scherm."
  79. 1780 PRINT:PRINT"Het tikken van de S stopt de routine."
  80. 1790 K=0
  81. 1800 HO=0:VE=12:GOSUB 110
  82. 1810 K=NOT(K):IF K THEN PRINT"Druk op een toets..":GOTO 1830
  83. 1820 PRINT"                        "
  84. 1830 FOR I=0 TO 20:GOSUB 200:IF IN$="S"THEN I=101
  85. 1840 IF IN$=""THEN 1860
  86. 1850 VE=12:GOSUB 110:PRINT"PIEP!               ":GOSUB 250
  87. 1860 NEXT I
  88. 1870 IF IN$<>"S"THEN 1800
  89. 1880 GOSUB 9000
  90. 1890 IF IN$="P"OR IN$="p"THEN 10000
  91. 1900 PRINT"Volgens opgave van Uw subroutine is nog"
  92. 1910 GOSUB 270:SR=FR:GOSUB 300
  93. 1920 PRINT:PRINT SR$;" bytes aan geheugenruimte over."
  94. 1930 PRINT:PRINT"Als laatste kunnen we nu nog de printer"
  95. 1940 PRINT:PRINT"subroutine's testen. Is dat mogelijk?";
  96. 1950 GOSUB 210:IF IN$="N"OR IN$="n"THEN 2020
  97. 1960 PRINT:PRINT"Ok daar gaan we dan..."
  98. 1970 SR$="Hallo dit is een stukje tekst voor op":GOSUB 350
  99. 1980 SR$=" de printer.":GOSUB 350:GOSUB 360
  100. 1990 SR$="We zijn benieuwd of dat ook heeft gewerkt."
  101. 2000 GOSUB 350:GOSUB 360
  102. 2010 PRINT:PRINT"Zo, dat was dat."
  103. 2020 GOSUB 9000
  104. 2030 IF IN$="P"OR IN$="p"THEN 10000
  105. 2040 PRINT"Deze test is nu afgelopen. Op dit"
  106. 2050 PRINT:PRINT"bandje vindt U verder nog enkele"
  107. 2060 PRINT:PRINT"programma's om mee te testen. We zijn"
  108. 2070 PRINT:PRINT"zeer benieuwd naar de resultaten die U"
  109. 2080 PRINT:PRINT"behaald met deze programma's!"
  110. 2090 PRINT:PRINT"Laat U dat eens weten? Het adres en"
  111. 2100 PRINT:PRINT"telefoonnummer:"
  112. 2110 GOTO 10090
  113. 9000 HO=0:VE=VM:GOSUB 110
  114. 9010 PRINT"Probleem? druk op P..";:GOSUB 210:GOSUB 100:RETURN
  115. 10000 GOSUB 100:PRINT"Dan is er dus iets mis!!"
  116. 10010 PRINT"------------------------"
  117. 10020 PRINT:PRINT"Probeer uit te vinden wat precies en"
  118. 10030 PRINT"pas dan zonodig de subroutine's aan."
  119. 10040 PRINT"Maar er kan natuurlijk ook een fout in"
  120. 10050 PRINT"het protocol of dit programma zitten."
  121. 10060 PRINT"Probeert U eerst nog even de rest van"
  122. 10070 PRINT"dit programma te laten lopen?"
  123. 10080 PRINT"Neem dan svp kontakt op met:"
  124. 10090 PRINT:PRINT:PRINT"      J. Herrmann"
  125. 10100 PRINT:PRINT"      Musschenbroekstr. 17"
  126. 10110 PRINT:PRINT"      5621 EA Eindhoven"
  127. 10120 PRINT:PRINT"      Tel 040-438505"
  128. 10130 END
  129. T"      Musschenbroekstr. 17"
  130.