home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG005.ARC / DTOMBUG < prev    next >
Text File  |  1979-12-31  |  5KB  |  133 lines
  1. Dave Nowlan,
  2. 7 Albert Street,
  3. Hawthorn East,
  4. Vic 3123
  5.  
  6. Dear Ed,
  7.  
  8. Oε thi≤ disπ therσ arσ │ MICROWORL─ BASI├ program≤ whicΦ ma∙ hel≡ ì
  9. junio≥ schoolkid≤ witΦ al∞ tha⌠ borinτ arithmetic«á Iε al∞ three¼ ì
  10. I have tried to give help if the wrong answer is given.
  11.  
  12. *ááááTABLE╙á doe≤á simplσá additions¼á subtractions¼á multiplies¼ ì
  13. ááááádivide≤á anΣ remainders«á I⌠ i≤ writteε fo≥ ß colou≥ BE┼á s∩ ì
  14. áááááyo⌡á ma∙ neeΣ t∩ takσ ou⌠ al∞ thσ COLO╥á statements«á Ou≥á ╡ ì
  15. áááááyea≥ olΣ useΣ t∩ enjo∙ playinτ witΦ it
  16.  
  17. *ááááLMUL╘á lead≤á yo⌡á througΦá ßá simplσ ▓á digi⌠á b∙á ▓á digi⌠ ì
  18. ááááámultiplication« I⌠ use≤ thσ formulß 
  19.  
  20. áááááááááá10a+Γ ¬ 10c+Σ ╜ 100aπ ½ 10aΣ ½ 10bπ ½ bd
  21.  
  22. ááááá╔á thinδá tha⌠ thi≤ i≤ ß simplσ methoΣ a≤ i⌠á separate≤á thσ ì
  23. ááááámultiplicatioεááá anΣáá additioεáá steps«ááá Thσááá approacΦ ì
  24. ááááá(Trautenberg?⌐ get≤ unwield∙ witΦ bigge≥ number≤ bu⌠ tha⌠ i≤ ì
  25. áááááwha⌠ computer≤ arσ for.
  26.  
  27. *ááááLDI╓ lead≤ yo⌡ througΦ ß lonτ divisioε ste≡ b∙ ste≡ ie
  28.  
  29. ááááááááááseσá iµ i⌠ goes¼á iµ no⌠ brinτ dowε thσ nex⌠ figurσ anΣ ì
  30. áááááááááátr∙ again
  31.  
  32. áááááááááámultipl∙ thi≤ quotien⌠ b∙ thσ divisor
  33.  
  34. áááááááááásubtrac⌠ produc⌠ froφ dividend
  35.  
  36.           loo≡ unti∞ complete
  37.  
  38.  
  39. Do with them as you will.
  40.  
  41.  
  42. N∩ prize≤ fo≥ quessinτ wherσ fallout.π camσ from« I'vσ changeΣ i⌠ ì
  43. t∩á bσá iε colou≥ anΣ t∩ acces≤ screeε RA═ direc⌠ s∩ tha⌠á i⌠á i≤ ì
  44. much faster. Or you can have more things moving around.
  45. .paèTherσ arσ als∩ somσ ├ program≤ whicΦ arσ m∙ attemp⌠ t∩ builΣá anΣ ì
  46. demonstratσá window≤á includinτ gloriou≤á technicolour«á ╔á woulΣ ì
  47. appreciatσá constructivσá criticisφ anΣ als∩ somσ advicσá oεá thσ ì
  48. bugs.
  49.  
  50. I⌠á al∞á starteΣá a≤ aε attemp⌠ t∩ cop∙ somσ oµ thσá feature≤á oµ ì
  51. IBM'≤ BASIC┴ iσ thσ abilit∙ t∩ operatσ oε (eτ clear⌐ onl∙ par⌠ oµ ì
  52. thσá screen«á Therσ i≤ als∩ thσ probleφ oµ handlinτ colou≥ (aφá ╔ ì
  53. thσ onl∙ onσ witΦ ß colou≥ disπ system?).
  54.  
  55. *ááááwdefines.Φ i≤ ß filσ whicΦ define≤ thσ Windo≈ structurσá anΣ ì
  56. áááááals∩á thσá variou≤ commands«á A≤ fa≥ a≤ possiblσá thesσá arσ ì
  57. ááááásimilia≥á t∩á thσ norma∞ 654╡ commands«á Thi≤ filσá mus⌠á bσ ì
  58. áááááincludeΣ iε al∞ ├ file≤ whicΦ usσ thσ windo≈ routines.
  59.  
  60. *ááááwindows.πá hold≤ thσ variou≤ windo≈ routines«á A≤ i⌠ i≤ herσ ì
  61. ááááái⌠á mus⌠á bσá includeΣ iε onσ (anΣ onl∙ one⌐á oµá thσá file≤ ì
  62. ááááámakinτ u≡ thσ program.
  63.  
  64. ááááááááááWcurso≥ i≤ supposeΣ t∩ positioε thσ CP/═ curso≥ a⌠á thσ ì
  65. áááááááááápositioεá correspondinτ t∩ thσ CursX,┘ positioε iεá thσ ì
  66. áááááááááácurren⌠ window.
  67.  
  68. ááááááááá Wdispla∙ i≤ reall∙ ß debugginτ aid
  69.  
  70. ááááááááá WfolΣ bring≤ thσ CursX,┘ positioε bacδ int∩ thσ windo≈ ì
  71. ááááááááááeτ wra≡ t∩ thσ nex⌠ line
  72.  
  73.  áááááááááWgetcha≥á get≤ ß characte≥ froφ thσ keyboard«á Notσá i⌠ ì
  74. ááááááááááignore≤ nulls.
  75.  
  76. ááááááááááWget≤ return≤ thσ addres≤ oµ ß strinτ froφ thσ keyboarΣ ì
  77. ááááááááááb∙ iterativσ call≤ oε Wgetchar«á Thσ norma∞ GET╙ canno⌠ ì
  78. áááááááááábσá useΣ a≤ i⌠ doe≤ no⌠ handlσ colour≤ anΣ wil∞á ignorσ ì
  79. ááááááááááthσ windo≈ boundaries.
  80.  
  81. ááááááááááWinitia∞ mus⌠ bσ thσ firs⌠ routinσ calleΣ a≤ i⌠ set≤ u≡ ì
  82. ááááááááááthσ Screeε structurσ anΣ thσ backgrounΣ colours
  83.  
  84. ááááááááááWpokσ put≤ thσ characte≥ iε thσ righ⌠ placσ (anΣ iε thσ ì
  85. áááááááááárigh⌠ colour⌐ oε thσ screen« 
  86.  
  87. ááááááááááWputcha≥ put≤ ß characte≥ usinτ Wpokσ afte≥ sortinτ ou⌠ ì
  88. ááááááááááall the control characters as in wdefines
  89.  
  90. ááááááááááWputs puts a string using iterative calls on Wputcharááááááááááááááá
  91.  
  92. ááááááááááWsizσá change≤ thσ Screeε size╗á i⌠ shoulΣ probabl∙á bσ ì
  93. áááááááááábuilt into Winitial
  94.  
  95. *áááádisc.πá i≤á ßá prograφ whicΦ use≤ window≤ t∩ sho≈á ho≈á ful∞ ì
  96. áááááand tidy the disc is. Give it a burl.
  97.  
  98. *áááátest.πá wa≤ useΣ t∩ tr∙ ou⌠ thσ variou≤ contro∞á characters« ì
  99. áááááIt is ponderous to use.èAny good? The known bugs are 
  100.  
  101. *ááááWcursor is suspect 
  102.  
  103. *ááááThσ firs⌠ cal∞ oε Wgetcha≥ (eithe≥ direc⌠ o≥ viß Wgets⌐ doe≤ ì
  104. ááááánot display the cursor ie the inverse space.
  105.  
  106. Thσá maiε probleφ i≤ ho≈ t∩ se⌠ u≡ thσ routine≤ fo≥ usσá a≤á somσ ì
  107. wa∙á mus⌠á bσ founΣ t∩ savσ thσ datß iε thσ Screeε structurσá fo≥ ì
  108. use by Wpoke (and Wsize if this is kept separate).
  109.  
  110. ╔á trieΣ compilinτ windows.π (#includσ bdscio.Φá anΣá wdefines.h⌐ ì
  111. anΣ theε usinτ thσ CR╠ filσ a≤ ß library« Naturall∙ thi≤ doe≤ no⌠ ì
  112. work¼á Screeε doe≤ no⌠ exis⌠ anΣ thσ resultinτ prograφ assume≤ i⌠ ì
  113. i≤á a⌠ locatioε 0000«á (I⌠ work≤ unti∞ yo⌡ acces≤ ßá routinσá (eτ ì
  114. reaΣ ß disc⌐ whicΦ use≤ thi≤ location.)
  115.  
  116. ╔ trieΣ linkinτ thσ CR╠ filσ a≤ ß sub-program«á Howeve≥ Screeε i≤ ì
  117. generateΣá a⌠ thσ star⌠ oµ thσ modulσ anΣ thσ correspondinτá areß ì
  118. mus⌠ bσ maskeΣ iε thσ maiε prograφ iµ thi≤ i≤ linkeΣ first«á Wil∞ ì
  119. it work if windows is linked as the first module?????
  120.  
  121. Includinτá windows.πá iε onσ oµ thσ prograφ file≤ doe≤á worδá bu⌠ ì
  122. doe≤á meaε tha⌠ al∞ thσ routine≤ arσ calleΣ iε eveε iµ no⌠á used« ì
  123. Notσá tha⌠á thi≤ includσ mus⌠ bσ outsidσ an∙ functioεá a≤á Screeε ì
  124. must be (at least partially) global.
  125.  
  126. Eventuall∙áá wdefines.Φá shoulΣá bσá includeΣá iεá thσáá standarΣ ì
  127. definitions.ì
  128.  
  129.  
  130.  
  131.                          Have fun,
  132.  
  133.