home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 December / Ahoy_Magazine_88-12_1988_Double_L.d64 / Smooth Scroll (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  1.4 KB  |  56 lines
  1. 10 rem   -sys52224  to start-
  2. 20 rem  -simple smooth scroll-
  3. 30 rem  -by marcus linkert-
  4. 40 h$="0123456789abcdef"
  5. 50 hd$=""
  6. 60 v=52223
  7. 70 read hd$:v=v+1:printv,hd$
  8. 80 if v=52435 then goto 500
  9. 90 if len(hd$)=0then print"error":end
  10. 100 iflen(hd$)<>2then print"error":end
  11. 110 h=0
  12. 120 fori=1to16
  13. 130 ifleft$(hd$,1)=mid$(h$,i,1)thenh=i:i=16
  14. 140 next i
  15. 150 if h=0 then poke v,0:goto 70
  16. 160 h=h-1
  17. 170 l=0
  18. 180 fori=1to16
  19. 190 if right$(hd$,1)=mid$(h$,i,1)thenl=i:i=16
  20. 200 nexti
  21. 210 if l=0 then pokev,0:goto 70
  22. 220 l=l-1
  23. 230 d=h*16+l
  24. 240 pokev,d
  25. 250 goto 70
  26. 260 data 78,a9,3e,8d,14,03,a9,cc,8d
  27. 270 data 15,03,ad,11,d0,29,7f,8d,11
  28. 280 data d0,a9,90,8d,12,d0,a9,81,8d
  29. 290 data 19,d0,8d,1a,d0,ad,0e,dc,29
  30. 300 data fe,8d,0e,dc,ad,16,d0,29,f7
  31. 310 data 09,07,8d,16,d0,a9,e0,85,fb
  32. 320 data a9,cc,85,fc,c6,fb,58,60,ad
  33. 330 data 19,d0,29,01,f0,23,c6,fd,10
  34. 340 data 04,a9,07,85,fd,c6,fd,ad,16
  35. 350 data d0,29,f0,05,fd,8d,16,d0,a9
  36. 360 data 79,8d,14,03,a9,cc,8d,15,03
  37. 370 data a9,a4,8d,12,d0,a9,81,8d,19
  38. 380 data d0,8d,1a,d0,ad,0d,dc,68,a8
  39. 390 data 68,aa,68,40,ad,19,d0,29,01
  40. 400 data f0,48,ad,16,d0,09,07,8d,16
  41. 410 data d0,a5,fd,d0,2d,a8,c8,b9,08
  42. 420 data 06,88,99,08,06,4c,9a,cc,ea
  43. 430 data ea,c8,c0,28,d0,ee,a0,00,e6
  44. 440 data fb,d0,02,e6,fc,b1,fb,d0,0b
  45. 450 data a9,e0,85,fb,a9,cc,85,fc,4c
  46. 460 data a7,cc,8d,2f,06,a9,3e,8d,14
  47. 470 data 03,a9,cc,8d,15,03,a9,90,8d
  48. 480 data 12,d0,a9,81,8d,19,d0,8d,1a
  49. 490 data d0,4c,31,ea,00
  50. 500 rem -message writer-
  51. 510 a=52448:poke204,0:print"message:"
  52. 520 get a$:if a$="" then 520
  53. 530 if a$=chr$(13) then pokea,0:end
  54. 540 if asc(a$)<65 then printa$;:pokea,asc(a$):a=a+1:goto 520
  55. 550 printa$;:pokea,asc(a$)-64:a=a+1:goto 520
  56.