Die PRG- oder TXT File des Sinus Scrollers ist nicht downloadbar ...
Kann jemand die Textdatei als Beitrag copypasten ?
Warum du das nicht downloaden kannst... verstehe ich zwar nicht! Aber hier die Listings...
sinuswave4.txt
ZitatAlles anzeigen10 rem sinuswelle (c) bytebreaker 2015
20 rem laenge 40 zeichen
30 rem hoehe +2 bis -2
40 rem welle 4pi
50 rem pos array a0 bis a39
55 dim a(40):n=0
60 rem 1. 40 sinuswerte bilden und auf bildschirmkoordinaten umrechnen
70 poke 53281,15
80 poke 53280,7
85 poke 646,9
90 print chr$(147)
100 print "thinking..."
110 for i=0 to 4*(pi) step (pi/10) : rem pi symbol nehmen!!
120 a(n)=int((sin(i)*10)/2)
200 n=n+1
210 next i
211 base=1024+(14*40)
212 for i=0to39
213 a(i)=a(i)*40+base+i
214 next i
220 rem 2. 5 zeilen -2 bis +2 einfaerben
230 bc=55656
240 co=9:gosub 500:co=8:gosub 500:co=7:gosub 500:co=8:gosub 500:co=9:gosub 500
241 co=9:gosub 500:co=8:gosub 500:co=7:gosub 500:co=8:gosub 500:co=9:gosub 500
242 ts=1064 : rem thinking done
243 for i=1to11
244 poke ts,32
245 ts=ts+1
246 next i
247 print " --= (c) bytebreaker in 2015 =--"
321 d1=peek(63) : rem datazeiger sichern
322 d2=peek(64)
323 d3=peek(65)
324 d4=peek(66)
330 rem 3. datas einpoken auf sinuswelle
340 rem writex
350 for i=1 to 176 : rem data laenge
360 for j = 1 to 40 : rem zeilen laenge
370 poke a(j-1),peek(a(j))
380 next j
390 read x
400 poke a(39),x
410 next i
420 poke 63,d1 : rem datazeiger reset
430 poke 64,d2
440 poke 65,d3
450 poke 66,d4
460 goto 340
500 rem faerben
510 for i=1to40
520 poke bc,co
530 bc=bc+1
540 next i
550 return
600 data 32,32,8,5,12,12,15,32,1,14,4,32,23,5,12,3,15,13,5,32,20,15,32,20,8,9
610 data 19,32,12,9,20,20,12,5,32,19,9,14,21,19,32,5,6,6,5,3,20,32,3,15,4,5,4
620 data 32,9,14,32,16,12,1,9,14,32,22,50,32,2,1,19,9,3,46,32,12,15,14,7,32,12
630 data 9,22,5,32,20,8,5,32,3,54,52,46,32,8,9,32,6,9,22,5,32,20,15,32,6,15,18
640 data 21,13,54,52,46,4,5,32,1,14,4,32,20,8,5,32,23,8,15,12,5,32,3,15,13,13
650 data 21,14,9,20,25,32,33,33,32,32,20,5,24,20,32,18,5,19,20,1,18,20,19,32,46
660 data 46,46,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
sinuswave5.txt das ist für den Basic-Boss Compiler optimiert
ZitatAlles anzeigen1 rem@ £protocol:£fastfor
2 rem@ £word a(,bc,ts:£byte i,c,co:£constant base
10 rem sinuswelle (c) bytebreaker 2015
20 rem laenge 40 zeichen
30 rem hoehe +2 bis -2
40 rem welle 4pi
50 rem pos array a0 bis a39
55 dim a(40)
60 rem 1. 40 sinuswerte bilden und auf bildschirmkoordinaten umrechnen
70 poke 53281,15
80 poke 53280,7
85 poke 646,9
90 print chr$(147)
100 print "thinking..."
105 i=0
110 for x=0 to 4*π step π/10
120 a(i)=int((sin(x)*10)/2)
200 i=i+1
210 next x
211 base=1024+(14*40)
212 for i=0to39
213 a(i)=a(i)*40+base+i
214 next i
220 rem 2. 5 zeilen -2 bis +2 einfaerben
230 bc=55656
240 co=9:gosub 500:co=8:gosub 500:co=7:gosub 500:co=8:gosub 500:co=9:gosub 500
241 co=9:gosub 500:co=8:gosub 500:co=7:gosub 500:co=8:gosub 500:co=9:gosub 500
242 ts=1064 : rem thinking done
243 for i=1to11
244 poke ts,32
245 ts=ts+1
246 next i
247 print " --= (c) bytebreaker in 2015 =--"
330 rem 3. datas einpoken auf sinuswelle
340 rem writex
345 rem@ £ignore
346 goto 360
347 rem@ £use
350 for dl=0 to 100:next dl:rem verzoegerung fuer basic boss
360 for i = 1 to 40 : rem zeilen laenge
370 poke a(i-1),peek(a(i))
380 next i
390 read c
495 if c=255 then restore:goto 390:rem 255 = restart scroller
400 poke a(39),c
460 goto 340
500 rem faerben
510 for i=1to40
520 poke bc,co
530 bc=bc+1
540 next i
550 return
599 rem@ £datatype byte
600 data 32,32,8,5,12,12,15,32,1,14,4,32,23,5,12,3,15,13,5,32,20,15,32,20,8,9
610 data 19,32,12,9,20,20,12,5,32,19,9,14,21,19,32,5,6,6,5,3,20,32,3,15,4,5,4
620 data 32,9,14,32,16,12,1,9,14,32,22,50,32,2,1,19,9,3,46,32,12,15,14,7,32,12
630 data 9,22,5,32,20,8,5,32,3,54,52,46,32,8,9,32,6,9,22,5,32,20,15,32,6,15,18
640 data 21,13,54,52,46,4,5,32,1,14,4,32,20,8,5,32,23,8,15,12,5,32,3,15,13,13
650 data 21,14,9,20,25,32,33,33,32,32,20,5,24,20,32,18,5,19,20,1,18,20,19,32,46
660 data 46,46,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,255
ciao Dirk