home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-11_1988_-_de_Side_B.d64 / farbscroll-edito (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1996-01-01  |  1.5 KB  |  65 lines
  1. 10 if lo=0 thenlo=1:load"splitting*",8,1
  2. 11 dim co(15)
  3. 12 s=116:forx=0to14:co(x+1)=x:next
  4. 15 poke53280,0:poke53281,0
  5. 17 cb=49231:speed=49247
  6. 20 print"[144][147] [218] e c k i - [211] o f t w a r e
  7. 30 [153]" ============================
  8. 40 print"   [164]
  9. 50 [153]" prasentiert"
  10. 60 [153]"      poke                       stop
  11. 70 print"      [151] [196]en  [198]arbscrolleditor[160][144]
  12. 80 [153]"      poke                       stop
  13. 90 print" written and copyright(c)
  14. 100 [153]" 1988 by (NULL)arkus left$illebrand
  15. 105 forx=1063to2023step40:pokex,160:next
  16. 110 gosub 1000
  17. 120 print"+ = speed +1
  18. 130 [153]"- = speed -1 to
  19. 140 print"f = farbenmenu
  20. 141 [153]"s = (NULL)peed-eingabe
  21. 142 print"d = save on disk"
  22. 143 print"[211]peed="s
  23. 150 sys 49152:poke53281,15:poke53280,15
  24. 160 geta$
  25. 170 ifa$="+"ands<254then s=s+1
  26. 180 ifa$="-"ands>0then s=s-1
  27. 190 ifa$="s"then gosub 500
  28. 200 if a$="f"then gosub 600
  29. 210 if a$="d"then gosub  900
  30. 499 gosub 1000:goto 20
  31. 500 poke19,64:input"[211]peed:";s$:print:poke19,0:s=val(s$):ifs>255ors<0then500
  32. 510 a$="":return
  33. 600 x=0
  34. 601 print"[147][150][198]arbmenue":poke53280,0:poke53281,0
  35. 610 print"========="
  36. 615 print""
  37. 616 fora=0to14:printtab(5)"    ":next:print""
  38. 620 fora=0to14:printatab(4)"="co(a);:poke646,co(a):printtab(9)"     [146][150][179]":next a
  39. 640 gosub 800
  40. 645 get a$:if a$=""then 645
  41. 650 if a$="[133]"andx>0 then gosub810:x=x-1
  42. 660 if a$="[134]"andx<14then gosub810:x=x+1
  43. 670 if a$="[135]"then gosub 750
  44. 680 if a$="[136]"then gosub 770
  45. 685 if a$=chr$(13)then return
  46. 690 goto 615
  47. 750 co(x)=co(x)+1:ifco(x)>15 thenco(x)=0
  48. 760 return
  49. 770 co(x)=co(x)-1:ifco(x)<0 thenco(x)=15
  50. 780 return
  51. 800 poke781,x+2:poke782,15:poke783,0:sys65520:print"_":return
  52. 810 poke781,x+2:poke782,15:poke783,0:sys65520:print" ":return
  53. 900 input"[198]ilename";a$
  54. 910 a1=int(49152/256)
  55. 920 a2=49152-a1*256
  56. 930 e1=int(49500/256)
  57. 940 e2=49500-e1*256
  58. 950 sys 57812a$,8,1
  59. 960 poke193,a2:poke194,a1
  60. 970 poke174,e2:poke175,e1
  61. 980 sys 62957
  62. 990 open1,8,15:input#1,a,a$,b,c:close1:printa,a$,b,c:return
  63. 999 end
  64. 1000 forx=0to14:pokecb+x,co(x):next:poke sp,s:return
  65.