Window Scrolls: WindoScrol.B

Is a part of release: Window Scrolls
File size: 3004
md5: 9df586d15aa7507e879bb854828df9de
  1 REM Window scrolls                  in 4 directions
  2 REM Pete Cooke May 84
  10 CLEAR 30999: GO SUB 9500: REM poke in the data
  100 BORDER 1: PAPER 1: INK 7: CLS : PRINT TAB 8;"Window scrolling";TAB 8;"Demonstration"
  110 PRINT AT 4,8;"Use Keys 5-8"
  120 POKE 31214,5: REM start x
  130 POKE 31215,5: REM start y
  140 POKE 31216,25: REM finish x
  150 POKE 31217,50: REM finish y
  200 PRINT AT 10,0;: FOR n=1 TO 76: PRINT "demo.";: NEXT n
  210 LET z$=INKEY$
  220 IF z$="6" THEN  LET v=USR 31003
  230 IF z$="7" THEN  LET v=USR 31000
  240 IF z$="5" THEN  LET v=USR 31006
  250 IF z$="8" THEN  LET v=USR 31009
  300 GO TO 210
  8999 STOP 
  9000 DATA 195,36,121,195,82,121,195,127,121,195
  9010 DATA 165,121,221,33,238,121,221,126,1,221
  9020 DATA 70,3,128,197,245,205,200,121,125,221
  9030 DATA 134,0,111,235,241,245,61,205,200,121
  9040 DATA 125,221,134,0,111,221,78,2,6,0
  9050 DATA 237,176,241,61,193,16,222,201,221,33
  9060 DATA 238,121,221,126,1,221,70,3,197,245
  9070 DATA 205,200,121,125,221,134,0,111,235,241
  9080 DATA 245,60,205,200,121,125,221,134,0,111
  9090 DATA 221,78,2,6,0,237,176,241,60,193
  9100 DATA 16,222,201,221,33,238,121,221,126,1
  9110 DATA 221,70,3,197,245,205,200,121,125,221
  9120 DATA 134,0,221,134,2,111,221,70,2,183
  9130 DATA 203,22,43,16,251,241,60,193,16,229
  9140 DATA 201,221,33,238,121,221,126,1,221,70
  9150 DATA 3,197,245,205,200,121,125,221,134,0
  9160 DATA 111,221,70,2,183,203,30,35,16,251
  9170 DATA 241,60,193,16,232,201,213,33,0,0
  9180 DATA 87,62,175,146,245,230,7,103,241,245
  9190 DATA 230,56,203,39,203,39,111,241,230,192
  9200 DATA 203,63,203,63,203,63,132,103,17,0
  9210 DATA 64,25,209,201,0,0,32,175
  9500 CLS : PRINT AT 5,5;"POKEing in m/code";AT 7,5;"Please wait"
  9510 LET total=0: RESTORE 9000: FOR n=31000 TO 31217: READ a: LET total=total+a: POKE n,a
  9520 NEXT n: IF total<>29511 THEN  PRINT "Error in data."'"Do not run.": STOP 
  9530 RETURN