home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / BAS_SUB.ZIP / SCRLDEMO.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-04-19  |  3.1 KB  |  66 lines
  1. 10  KEY OFF:WIDTH 80:SCREEN 0,0,0:COLOR 7,0:CLS: PRINT
  2. 20   PRINT"                     LINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINE"
  3. 30   PRINT"                     LINEVARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLORLINE"
  4. 40   PRINT"                     LINECALL                                   CALLLINE"
  5. 50   PRINT"                     LINECALL       SCROLL DEMONSTRATION        CALLLINE"
  6. 60   PRINT"                     LINECALL                                   CALLLINE"
  7. 70   PRINT"                     LINECALL                                   CALLLINE"
  8. 80   PRINT"                     LINECALL BROUGHT TO YOU BY THE MEMBERS OF  CALLLINE"
  9. 90   PRINT"                     LINECALL      POINTPOINTPOINTPOINTPOINT POINTPOINTPOINTPOINTPOINT POINTPOINTPOINTPOINTPOINT POINTPOINTPOINTPOINTPOINT      CALLLINE"
  10. 100  PRINT"                     LINECALL        CSRLIN   CSRLIN   CSRLIN CSRLIN     CSRLIN   CSRLIN      CALLLINE"
  11. 110  PRINT"                     LINECALL        CSRLIN   CSRLINPOINTPOINTPOINTCSRLIN CSRLIN     CSRLIN   CSRLIN      CALLLINE"
  12. 120  PRINT"                     LINECALL        CSRLIN   CSRLIN     CSRLIN     CSRLIN   CSRLIN      CALLLINE"
  13. 130  PRINT"                     LINECALL      POINTPOINTCSRLINPOINTPOINT CSRLIN     CSRLINPOINTPOINTPOINTPOINT CSRLINPOINTPOINTPOINTCSRLIN      CALLLINE"
  14. 140  PRINT"                     LINECALL                                   CALLLINE"
  15. 150  PRINT"                     LINECALL      International PC Owners      CALLLINE"
  16. 160  PRINT"                     LINECALL                                   CALLLINE"
  17. 170  PRINT"                     LINECALLP.O. Box 10426, Pittsburgh PA 15234CALLLINE"
  18. 180  PRINT"                     LINECALL                                   CALLLINE"
  19. 190  PRINT"                     LINECLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'LINE"
  20. 200  PRINT"                     LINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINE"
  21. 210  PRINT
  22. 220  PRINT "                           PRESS ANY KEY TO CONTINUE"
  23. 230  A$=INKEY$: IF A$="" THEN 230
  24. 240  CLS
  25. 250  '*** THIS SOFTWARE DEMONSTRATES SMOOTH SCROLLING ON THE COLOR MONITOR.
  26. 260  '**************************************************
  27. 270  '***              SPC CORPORATION               ***     Compliments of
  28. 280  '***               P.O. BOX 9038                ***    UTAH BLUE CHIPS
  29. 290  '***             OGDEN, UTAH 84409              ***   IBM PC Users Group
  30. 300  '***                                            ***
  31. 310  '***   THIS SOFTWARE IS AVAILABLE FOR COPY AND  ***     December 1982
  32. 320  '***         USE IN THE PUBLIC DOMAIN.          ***
  33. 330  '**************************************************
  34. 340  '*** THIS SOFTWARE DEMONSTRATES SMOOTH SCROLLING ON THE COLOR MONITOR.
  35. 350  '
  36. 360  ' 1. With the color monitor adaptor in operation, LOAD this program.
  37. 370  ' 2. RUN the program and scroll the screen window up and down.
  38. 380  '
  39. 390  SCREEN 1 : KEY OFF : COLOR 1,7 : CLS
  40. 400  PRINT : PRINT : PRINT : PRINT
  41. 410  PRINT "   DEMONSTRATION OF SMOOTH SCROLLING"
  42. 420  PRINT : PRINT : PRINT
  43. 430  PRINT "Use the  Up Arrow  and  Down Arrow  keys"
  44. 440  PRINT " to move the screen window up and down."
  45. 450  PRINT : PRINT : PRINT
  46. 460  PRINT "      *****************************"
  47. 470  PRINT "      *      Compliments of       *"
  48. 480  PRINT "      *     UTAH  BLUE  CHIPS     *"
  49. 490  PRINT "      *    IBM PC  Users Group    *"
  50. 510  PRINT "      *****************************"
  51. 515  LOCATE 25,12 : PRINT"Press Escape to quit."
  52. 520  DEFINT I-N
  53. 530  UP$=CHR$(0)+CHR$(72)
  54. 540  DN$=CHR$(0)+CHR$(80)
  55. 550  ES$=CHR$(27)
  56. 560  IS=0
  57. 570  X$=INKEY$ : IF X$=UP$ THEN IS=IS-80 ELSE IF X$=DN$ THEN IS=IS+80 ELSE IF X$=ES$ THEN IS=0 ELSE 570
  58. 580  IF IS < 0 THEN IS = IS + 16384
  59. 590  IF IS > 16383 THEN IS=IS - 16384
  60. 600  IH = IS \ 256
  61. 610  IL = IS - IH*256
  62. 620  IF (INP(986) AND 1) <> 0 THEN 620
  63. 630  IF (INP(986) AND 1) = 0 THEN 630
  64. 640  OUT 980,12:OUT 981,IH:OUT 980,13:OUT 981,IL
  65. 650  IF X$ <> ES$ THEN 570
  66.