home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 14
/
Commodore_Disc_14_19xx_-_de.d64
/
scs.demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
107 lines
5 rem************ demo ****************
10 (NULL)15
15 gosub660
20 (NULL)10,10,12,"s.c.s-extendet basic v2.2"
30 (NULL)100,144,120,55
40 (NULL)80,134,160,10
50 (NULL)180,120,10,14
60 (NULL)110,154,30,15
70 (NULL)180,154,30,15
80 (NULL)148,165,22,35
90 fora=0to14:(NULL)110+a*2,154+a:next
100 fora=0to14:(NULL)140-a*2,154+a:next
110 fora=0to14:(NULL)180+a*2,154+a:next
120 fora=0to14:(NULL)210-a*2,154+a:next
130 geta$:ifa$<>" "then130
140 (NULL)
150 (NULL)70,10,12,"dietmar schorr"
160 (NULL)110,24,9,"presents"
170 (NULL)0,45,13,"s.c.s-extendet basic v2.2"
180 (NULL)30,60,270,139
190 fora=0to110
200 b=int(a*3*rnd(1))+1
205 c=int(a*1.5*rnd(1))+1
206 if31+b>290then200
207 if61+c>200then200
210 (NULL)31+b,61+c,81
220 next
221 geta$:ifa$<>" "then221
222 (NULL)
230 (NULL)75,5,7,"s.c.s-extendet basic v2.2"
240 (NULL)60,50,200,100
250 fora=0to50:(NULL)a*1.21,a:next
260 fora=0to50:(NULL)319-a*1.22,a:next
270 fora=0to50:(NULL)a*1.21,199-a:next
280 fora=0to49:(NULL)319-a*1.22,199-a:next
290 (NULL)145,90,35,60
300 (NULL)168,115,46
310 geta$:ifa$<>" "then310
320 (NULL)
330 (NULL)50,10,23,"sinuskurve"
340 fora=0to319step.5
350 (NULL)a,110-(80*sin(a*2*(NULL)/160))
360 (NULL)a,110
370 next
380 geta$:ifa$<>" "then380
390 (NULL)
400 fora=0to99step10
410 (NULL)a,a,320-a*2,199-a*2
420 next
430 (NULL)108,96,25,"s.c.s"
440 geta$:ifa$<>" "then440
450 (NULL)
460 (NULL)5,11,"s.c.s presents s.c.s-basic v2.1"
470 (NULL)0,0
480 (NULL)........................,255,0
481 (NULL)..**..**..**.**.**.**...,255,1
482 (NULL).*...*..*.*.*.*.*.*.*...,255,2
483 (NULL).*...*..*.*...*.*...*...,255,3
484 (NULL)..**..**..*...*.*...*...,255,4
485 (NULL)........................,255,5
486 (NULL)..**..**...**..**..***..,255,6
487 (NULL).*..*.*.*.*..*.*.*.**...,255,7
488 (NULL).*..*.*.*.*..*.**..*....,255,8
489 (NULL)..**..**...**..*.*.***..,255,9
490 (NULL)........................,255,10
491 (NULL)........................,255,11
492 (NULL)...***..**..***.**.*....,255,12
493 (NULL)...*..*.**.*....***.....,255,13
494 (NULL)...*..*.**..**..***.....,255,14
495 (NULL)...*..*.**....*.**.*....,255,15
496 (NULL)...*..*.**.*..*.**.*....,255,16
497 (NULL)...***..**..**..**.*....,255,17
498 (NULL)........................,255,18
499 (NULL)........................,255,19
500 (NULL)........................,255,20
505 (NULL)255
510 (NULL)0,1
520 (NULL)0,1,0,1
530 (NULL)0,0
540 (NULL)0,255
550 fora=0to360
553 ifa/40<>int(a/40)then560
554 (NULL)255
560 (NULL)0,a,110
570 next
600 fora=0to345
610 ifa/40<>int(a/40)then630
620 (NULL)255
630 (NULL)0,a,110
640 next
650 print"[147]":end
660 (NULL)80,10,11,"saeulendiagramm"
670 (NULL)20,50,25,150
680 (NULL)47,100,25,100
690 (NULL)74,70,25,130
700 (NULL)101,80,25,120
710 (NULL)128,150,25,50
720 (NULL)155,140,25,60
730 (NULL)182,180,25,20
740 (NULL)209,175,25,25
750 (NULL)236,135,25,65
760 (NULL)264,125,25,75
770 (NULL)291,195,25,5
780 (NULL)10
790 geta$:ifa$<>" "then790
795 (NULL):return