Commodore Computer VC-1520 Bedienungshandbuch Seite 27

SA=2: Farbwahl
Über diese Sekundäradresse kann die Stiftfarbe gewählt werden
FORMAT: OPEN lfn,6,2
PRINT# lfn,"l" .... ("Zahl")
PRINT# lfn,2 ....... Zahl
PRINT# lfn,C ....... numerische Variable
Ist 0 < = C < 256,
dann gilt fUr C MOD(C,4).
Ist C > = 256, dann gilt
C = 0
PRINT# Ifn, STR$(c)
CLOSE Ifn
Ifn. .. .logische Filenummer
6 ..... Gerätenummer
C = Farbnummer
0... schwarz (Defaultwert)
1... blau
2... grün
3... rot
BEISPIEL:
100 REM xxx SEKUNDAERADRESSE 2 xxx
110 REM xxx WAHL DER FARBE xxx
120 OPEN 4,6
130 OPEN 2,6,2
140 FOR 1=0 TO 3
150 : READ At
160 : PRINT#2,I
120 : PRINT#4,I;" - "SAfER STIFT"
180 NEXT
190 CLOSE 4: CLOSE 2
200 DATA SCHWARZ,BLAU,GRUEN,ROT
READY .
0 - SCHWARZER STIFT
1 - BLAUER STIFT
2 - GRUENER STIFT
3 - ROTER STIFT
- 25 -