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 >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
65 lines
10 if lo=0 thenlo=1:load"splitting*",8,1
11 dim co(15)
12 s=116:forx=0to14:co(x+1)=x:next
15 poke53280,0:poke53281,0
17 cb=49231:speed=49247
20 print"[144][147] [218] e c k i - [211] o f t w a r e
30 [153]" ============================
40 print" [164]
50 [153]" prasentiert"
60 [153]" poke stop
70 print" [151] [196]en [198]arbscrolleditor[160][144]
80 [153]" poke stop
90 print" written and copyright(c)
100 [153]" 1988 by (NULL)arkus left$illebrand
105 forx=1063to2023step40:pokex,160:next
110 gosub 1000
120 print"+ = speed +1
130 [153]"- = speed -1 to
140 print"f = farbenmenu
141 [153]"s = (NULL)peed-eingabe
142 print"d = save on disk"
143 print"[211]peed="s
150 sys 49152:poke53281,15:poke53280,15
160 geta$
170 ifa$="+"ands<254then s=s+1
180 ifa$="-"ands>0then s=s-1
190 ifa$="s"then gosub 500
200 if a$="f"then gosub 600
210 if a$="d"then gosub 900
499 gosub 1000:goto 20
500 poke19,64:input"[211]peed:";s$:print:poke19,0:s=val(s$):ifs>255ors<0then500
510 a$="":return
600 x=0
601 print"[147][150][198]arbmenue":poke53280,0:poke53281,0
610 print"========="
615 print""
616 fora=0to14:printtab(5)" ":next:print""
620 fora=0to14:printatab(4)"="co(a);:poke646,co(a):printtab(9)" [146][150][179]":next a
640 gosub 800
645 get a$:if a$=""then 645
650 if a$="[133]"andx>0 then gosub810:x=x-1
660 if a$="[134]"andx<14then gosub810:x=x+1
670 if a$="[135]"then gosub 750
680 if a$="[136]"then gosub 770
685 if a$=chr$(13)then return
690 goto 615
750 co(x)=co(x)+1:ifco(x)>15 thenco(x)=0
760 return
770 co(x)=co(x)-1:ifco(x)<0 thenco(x)=15
780 return
800 poke781,x+2:poke782,15:poke783,0:sys65520:print"_":return
810 poke781,x+2:poke782,15:poke783,0:sys65520:print" ":return
900 input"[198]ilename";a$
910 a1=int(49152/256)
920 a2=49152-a1*256
930 e1=int(49500/256)
940 e2=49500-e1*256
950 sys 57812a$,8,1
960 poke193,a2:poke194,a1
970 poke174,e2:poke175,e1
980 sys 62957
990 open1,8,15:input#1,a,a$,b,c:close1:printa,a$,b,c:return
999 end
1000 forx=0to14:pokecb+x,co(x):next:poke sp,s:return