home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / alpha.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  65 lines
  1. 0 'ALPHA.BA - BY LARRY GENSCH
  2. 1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 10 REM Alpha.100 by larry gensch, ESQ
  4. 20 REM Copyright (c) 1984
  5. 30 REM All rights reserved
  6. 40 REM --------------------------------
  7. 50 REM Alpha.100 creates a 36-byte .CO
  8. 60 REM file in RAM on the Model 100.
  9. 70 REM This routine will capitalize a
  10. 80 REM BASIC string.  It will work on
  11. 90 REM any string and only affect lower
  12. 100 REM case letters and not affect
  13. 110 REM punctuation, control characters
  14. 120 REM or graphics characters.
  15. 130 REM -------------------------------
  16. 140 REM The routine resides at decimal
  17. 150 REM 62862 to 62892 and will not
  18. 160 REM conflict with SUBLIB.CO.
  19. 170 REM HIMEM will have to be set at
  20. 180 REM 62861 or lower.  This can be
  21. 190 REM done by the statement:
  22. 200 REM     CLEAR256,62861
  23. 210 REM
  24. 220 REM Once the routine is loaded into
  25. 230 REM protected memory, it can be
  26. 240 REM called as follows:
  27. 250 REM      CALL 62862, 0, VARPTR(A$)
  28. 260 REM Where A$ is the variable to be
  29. 270 REM capitalized.
  30. 280 REM
  31. 290 REM WARNING:
  32. 300 REM Make sure that the variable
  33. 310 REM to be converted exists in
  34. 320 REM string memory (as opposed to
  35. 330 REM program memory).  For instance,
  36. 340 REM when the BASIC statement:
  37. 350 REM     A$="Text"
  38. 360 REM the variable will point to the
  39. 370 REM "Text" in the program line.
  40. 380 REM Performing any operation on
  41. 390 REM such a string:
  42. 400 REM     A$=A$+""
  43. 410 REM will copy it into string memory.
  44. 420 REM if the string is pointing into
  45. 430 REM program memory, the actual
  46. 440 REM program statement will be
  47. 450 REM modified.
  48. 460 REM
  49. 470 REM Permission is granted for any
  50. 480 REM use of this routine.
  51. 490 REM
  52. 500 REM This routine is REQUIRED by
  53. 510 REM Diary.300 (version 3.0)
  54. 1000 IF HIMEM>62861 THEN CLEAR 0,62861
  55. 1010 FOR AD=62862 TO 62892
  56. 1020 READ VL
  57. 1030 POKE AD,VL
  58. 1040 NEXT AD
  59. 1050 SAVEM "ALPHA",62862,62892,0
  60. 1060 MENU
  61. 1070 DATA 70,35,94,35,86,235,43,62,223
  62. 1080 DATA 79,35,120,183,200,5,126,254
  63. 1090 DATA 97,218,152,245,254,122,210
  64. 1100 DATA 152,245,161,119,195,152,245
  65.