Inhaltsverzeichnis
Werbung
27
CHR$ (1 45 )
a r b e i t e t so lange,
bis entweder ein CHR$(17)
od e r ein Car r i a g e R e turn
err e i c h t
wird.
B E I S P I E L 1:
1 00 REM CHR* 17 > ...L OCR L B U S IN E SS MODE
110 REM CHR*CI 45
LOC RL G R RF I C MODE
120 CD*= C H R * < 1 7 > = CIJ*=CHR* 145>
130
140 O P E N ? , 4,7
:RE M P RINT
IN B U S I N E S S MOI
150 PRINT#?, CU*.: "*
" . CD*.: "PIK"
160 PRINT#?,CU*;
" . C D * . ;"HERZ"
170 PRINT#?, cu*.; "♦
" .
c d
* . ; "K R R O "
ISO PRINT#?, CU*.:
" C D * . ;"KREUZ"
190 P R I N T # ? :P R I N T # ?
200 CLO SE ?
210
220 0 P E N 4 ,4,0
:R EM PRI NT
IN G R R F I C MODE
230 P R INT#4, CD*,' " P IK
" . C U * . :
240 P R INT#4, CD*.: "HERZ
" . cu*.;
250 P R INT#4, CD*.: "KRRO
" . cu*.;
260 PR I N T #4, C D * . :"KREUZ
" . CU*.: " r
270 P R INT # 4 • P R INT#4
280 CL 0SE4
290
300 O P E N ? ,4,7
310 FOR 1=1 TO 8 = P R I N T # ? ^NEXT
I
320 CLOS E ?
RERDV.
RÜN
♦
Pi K
*
herz
♦
Ka.ro
*
K reuz
P i K
*
herz
*
K-a.ro
♦
K reuz
*
B E I S P I E L 2:
100 rem "Sl" : c h r *
1 ? " . . . 1 oc - a . 1 b u s i ne s - s m o<
110
120
rem "M " :chr *
145 > . . . local 9 r a fi K mode
130 oP e n ? ,4, 7
:r em 1 P r i nt
i n b u s i n e s s - m o d e
140 Print#?, "LOGO
M
W 1
S*=:/8 V ertical"
150 P r int#7, "SHIFT V
Mr'
517/8 V ertical"
160 Print#?, "SHIFT H
MH
SIS 8 V e r t i c a 1 "
170 Print#?, "SHIFT
1
M 1
515/8 Vertical"
180 P r i n t #7, "SHIFT B
MB
514/8 V ertical"
190 Print#?, "SHIFT 0
MB
513/8 Vertical "
200 P r i n t # 7 , "SHIFT T
m
StL'/8 V e rtical"
210
220
P r int#7, "LOGO
G
MB
511/8 Vertical"
2 3 0 f o r i = 1 t o S : P r i n t#7 • n e x t i
240 d o s e ?
ready
Werbung
Inhaltsverzeichnis
