home *** CD-ROM | disk | FTP | other *** search
/ Big Blue Disk 15 / bbd15.zip / SCROLL.BAS < prev    next >
BASIC Source File  |  1987-10-14  |  987b  |  26 lines
  1. 10 dim scr%(21):key off:gosub 400
  2. 20 cls:for j=1 to 61 step 20
  3. 30 for i=1 to 25:locate i,j:print using"##";i;:next i
  4. 40 next j:locate 1,1:a$=input$(1)
  5. 50 attr%=&h20:lns%=0:dir%=6:ch%=0:cl%=20:dh%=24:dl%=25:gosub 500:a$=input$(1)
  6. 60 attr%=&h30:cl%=60:dl%=65:gosub 500:a$=input$(1)
  7. 70 attr%=&h50:ch%=9:cl%=0:dh%=15:dl%=79:gosub 500:a$=input$(1)
  8. 80 for i=1 to 6
  9. 90 attr%=&h10:lns%=1:dir%=6:ch%=0:cl%=40-i:dh%=24:dl%=44+i:gosub 500
  10. 100 next:a$=input$(1)
  11. 110 for i=1 to 6
  12. 120 dir%=7:cl%=40-i:dl%=44+i:gosub 500
  13. 130 next:a$=input$(1)
  14. 140 for i=1 to 6
  15. 150 dir%=7:cl%=40-i:dl%=44+i:gosub 500
  16. 160 next:a$=input$(1)
  17. 170 for i=1 to 6
  18. 180 dir%=6:cl%=40-i:dl%=44+i:gosub 500
  19. 190 next:a$=input$(1)
  20. 200 end
  21. 400 for i=0 to 21:read a$:scr%(i)=val("&h"+a$):next:return
  22. 410 data 8B55,8BEC,1276,2C8A,768B,8A10,8B0C,0E76,348A,768B,8A0C,8B14
  23. 420 data 0A76,3C8A,768B,8A08,8B04,0676,248A,10CD,CA5D,000E
  24. 500 scroll%=varptr(scr%(0)):call scroll%(ch%,cl%,dh%,dl%,attr%,lns%,dir%):return
  25. 
  26.