home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_17_1987_Transactor_Publishing.d64 / help! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  60 lines
  1. 15 rem the transactor help utility
  2. 16 rem nick sullivan and chris zamara
  3. 17 rem october 1986
  4. 18 rem (c) 1986 the transactor
  5. 19 rem okay to copy, not to sell
  6. 20 :
  7. 21 rem do not alter the length of any
  8. 22 rem line after program is assembled
  9. 23 :
  10. 24 a=00000: rem 5 digit link base addr
  11. 25 sys 3554,a: clr
  12. 26 goto 340
  13. 27 :
  14. 50 data "[199]etting [211]tarted          "
  15. 51 data "[208]rinting [217]our [212]ext       "
  16. 52 data "[193]voyding [211]pelling [197]rrors "
  17. 53 data "[199]etting [198]inished         "
  18. 54 data "                         "
  19. 55 data "  [212]he first four data    "
  20. 56 data "lines above are a sample "
  21. 57 data "menu that will be shown  "
  22. 58 data "when help is invoked.    "
  23. 59 data "  [213]p to 20 menu items may"
  24. 60 data "be used. [198]or each one,   "
  25. 61 data "there must be a matching "
  26. 62 data "file on disk, with a     "
  27. 63 data "filename of the form:    "
  28. 64 data "         help-?          "
  29. 65 data "where the '?' represents "
  30. 66 data "an alphabetic character. "
  31. 67 data "  [212]he above menu items   "
  32. 68 data "require filenames help-a "
  33. 69 data "through help-d.          "
  34. 70 :
  35. 100 sl=25+1: rem 25 chars per menu item
  36. 110 s=peek(45)+256*peek(46)-20*sl-1
  37. 120 read a$
  38. 130 if left$(a$,1)=chr$(32) goto 200
  39. 140 for i=1 to sl-1
  40. 150 poke s+i,asc(mid$(a$,i))
  41. 160 next i
  42. 170 poke s+i,0
  43. 180 n=n+1: s=s+sl: if n<20 goto 120
  44. 190 :
  45. 200 a=122: gosub 330: z=a
  46. 210 a=123: gosub 330: z=z+256*a+11
  47. 220 :
  48. 230 poke z+0, n
  49. 240 poke z+1,09 :rem border
  50. 250 poke z+2,09 :rem background
  51. 260 poke z+3,00 :rem cursor
  52. 270 print "done!": goto 340
  53. 280 :
  54. 290 rem subroutine calculates addr of
  55. 300 rem chrget ptr at colon in line 330
  56. 310 rem (no spaces allowed in 330)
  57. 320 :
  58. 330 a=peek(a):return
  59. 340 end
  60.