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