home *** CD-ROM | disk | FTP | other *** search
/ Phoenix CD 2.0 / Phoenix_CD.cdr / 16c / sounds.zip / SCROLL.SUB < prev    next >
Text File  |  1980-01-01  |  2KB  |  52 lines
  1. 25000 ' THIS IS A SCROLL ROUTINE FRO THE NEW SOFTALK FEB 83 ISSUE
  2. 25010 ' YOU CAN CHANGE ANY OF THE FIVE PARAMETERS (LINES 30-36) AS WELL
  3. 25020 ' AS THE MEMORY LOCATION (LINE 6). ALSO THIS PROGRAM SCROLLS DOWN.
  4. 25030 ' TO SCROLL UP CHANGE THE LAST VALUE IN LINE 1230 TO &H06
  5. 25040 DEF SEG
  6. 25050 SCROLL=&HB000
  7. 25060 FOR ADDRESS=SCROLL TO SCROLL+&H40
  8. 25070    READ CODE
  9. 25080    POKE ADDRESS,CODE
  10. 25090 NEXT ADDRESS
  11. 25100 ULR%=2:ULC%=1 'ULR= ROW OF UPPER LEFT CORNER OF SCROLL, ULC UPPER LEFT CORN
  12. 25110 LRR%=15: LRC%=80 'LOWER RIGHT (LRR) ROW AND LOWER RIGHT COLUMN OF SCROLL
  13. 25120 ATTR%=53  '                       R=ROW AND C=COLUMN OF SCROLL LIMITS
  14. 25130 LENGTH%=2 'LENGTH OF SCROLL
  15. 25140 CALL SCROLL (ULR%,ULC%,LRR%,LRC%,ATTR%,LENGTH%)
  16. 25150 END
  17. 25160 DATA &H55
  18. 25170 DATA &H8B,&HEC
  19. 25180 DATA &H50
  20. 25190 DATA &H53
  21. 25200 DATA &H51
  22. 25210 DATA &H52
  23. 25220 DATA &H56
  24. 25230 DATA &H8B,&HB6,&H10,&H00
  25. 25240 DATA &h8A,&H2C
  26. 25250 DATA &H8B,&HB6,&H0E,&H00
  27. 25260 DATA &H8A,&H0C
  28. 25270 DATA &H8B,&HB6,&H0C,&H00
  29. 25280 DATA &H8A,&H34
  30. 25290 DATA &H8B,&HB6,&H0A,&H00
  31. 25300 DATA &H8A,&H14
  32. 25310 DATA &H8B,&HB6,&H08,&H00
  33. 25320 DATA &H8A,&H3C
  34. 25330 DATA &H8B,&HB6,&H06,&H00
  35. 25340 DATA &H8A,&H04
  36. 25350 DATA &HFE,&HCD
  37. 25360 DATA &HFE,&HC9
  38. 25370 DATA &HFE,&HCE
  39. 25380 DATA &HFE,&HCA
  40. 25390 DATA &HB4,&H07
  41. 25400 DATA &HCD,&H10
  42. 25410 DATA &H5E
  43. 25420 DATA &H5A
  44. 25430 DATA &H59
  45. 25440 DATA &H5B
  46. 25450 DATA &H58
  47. 25460 DATA &H5D
  48. 25470 DATA &HCA,&H0C,&H00
  49. 410 DATA &H5E
  50. 25420 DATA &H5A
  51. 25430 DATA &H59
  52. 25440 DATA &