A100:20: *** KLEURENDEMO *** KC$(7),KT$(7),CC(2) I0 7:KC$(I):KT$(I):I CC(0)7:CC(1)0:100!:" M E N U "-!:"1 Witte tekst op kleur-achtergrond"Y!$:"2 Kleur-tekst op kleur-achtergrond"!.:"3 Kleur op kleur met GOSUB150"!8:"4 Blokken met GOSUB150"!B:"5 Kleur op kleur in grafisch bedrijf"!L:"0=einde"!V:"U kiest : ";"`210:(IN48)(IN53) 250:1120*"jIN48 950O"tIN48 1510,2010,3000,4010,5010Y"~1030" *** Witte tekst op kleur achtergrond ***"I1 7:CC(1)I:100:"TEKSTBEDRIJF"":"Witte tekst; Ondergrond ";KT$(CC(1))":"CC(1)=";KC$(CC(1)); #SD20:450:I#?# *** Kleurtekst op kleur achtergrond **N#FF0:6010T## 100:FF1:6010: ** idem met GOSUB150 **# # *** blokken met GOSUB150 ***#CC(0)7:CC(1)0:100#CC(0)2:HO0:VE1 12$110:SR$" ":150 $VE&$CC(0)4:HO0:VE10 20I$110:SR$" ":150Q$VEm$CC(0)5:HO20:VE1 12$110:SR$" ":150$VE$CC(0)6:HO20:VE10 20$110:SR$" ":150$"VE$,CC(0)0:HO12:VE8 14%6110:SR$" ":150$%@VE@%JCC(0)3:HO15:VE9 13X%T110:SR$" ":150`%^VEo%hSD20:450%r *** tweede scherm ***%|CC(0)7:CC(1)0:100%CC(0)2:HO4:VE20 10 1%110:SR$"":150%VE&CC(0)3:HO8:VE20 8 1&110:SR$"":150&VE>&CC(0)4:HO12:VE20 15 1S&110:SR$"":150[&VE|&CC(0)5:HO16:VE20 10 1&110:SR$"":150&VE&CC(0)6:HO20:VE20 5 1&110:SR$"":150&VE&CC(0)7:HO24:VE20 11 1 '&110:SR$"":150'0VE#':SD30:450)'DG' *** GRAFISCHE TESTS ***P'CN0d'I0 7:CC(1)Ix'J0 7:CC(0)J'600'VE.1:HO.2:620'HO.5:630'VE.6:630'HO.2:630'VE.1:630(VE.7:HO.35:SR$"CC(0)="KC$(CC(0)):650.(VE.8:HO.35:SR$"CC(1)="KC$(CC(1)):650_(VE.9:HO.2:SR$KT$(CC(0))" op "KT$(CC(1))h( 650w(SD20:450(J:I((SD20:450(2(p *** tekst-subroutine ***(zC10 7:CC(1)C1(C00 7:CC(0)C0)BO$" op ":FF1 BO$" onder ":6150&)100:::::S)" * * * ****** * * ******")" * * * * * * * *")" * * * * * * * *")" * * * * * * * *"*" ** * **** * * ******"1*" ** * * * * * *"\*" * * * * * * * *"*" * * * * * * * *"*" * * ***** ****** ****** * *";*6190*SR$" ":HO2+VE11:110:150:VE13:110:150%+SR$" TEST GOSUB 150 "9+$VE12:110:150b+.VE18:HO5:110:"CC(0)=";KC$(CC(0))+8HO20:110:"CC(1)=";KC$(CC(1))+BVE19:HO6:110+LKT$(CC(0));BO$;KT$(CC(1));" ";+VSD20:450+`C0:C1:+a"0","zwart"+a"1","blauw",a"2","rood" ,a"3","paars"1,a"4","groen"B,a"5","cyaan"R,a"6","geel"a,a"7","wit",} ** DIT IS PUBLIC DOMAIN SOFTWARE **, },} ************************,} * *,(} * RZ-Software * -2} * *,-<} * Rob van der Zee *K-F} * *j-P} * Braamkamp 40 *-Z} * *-d} * 7206 HB Zutphen *-n} * *-x} * TEL:05750-21736 *.} * *$.} *************************.}N.} TROS-RADIO dd 910828 + 910904^.} DS-KULTURs.}-spezial 911030