Inhaltsverzeichnis
Werbung
30
Die g e w u e n s c h t e Zahl der D r u c k s t a r t - P o s i t i o n kann a n g e g e b e n werden.
W i r d Sie
fuer e in en Punkt angegeben,
wo berei t s a n d e r e Daten g e d r u c k t w e rden sollen,
dann
wi r d u e b e r s c h r i e b e n .
BEISPIEL:
10© REM DOT P O S IT IO N SET
110 0 P E N 4 .4
: REM P R IN T
IN GRAFIC MODE
120 P 0 *= C H R * C16 > : E S C *= C H R *<27 >
130
140 FOR 1=1 TO 4
150 P R IN T # 4 , " 1 2 3 4 5 6 7 3 9 0 " ;
160 HEXT I
170 P R IN T # 4
130
19 0 H=S7
2 0 0 FOR J=1 TO 8
2 1 0 N = N + 1
2 2 0 NH= I NT N /2 5 6 > = N L = N -N H *2 5 6
2 3 0 PR I N T # 4 , E S C *; P O * ; CHR* NH > CHR* < NL > J
2 3 5 P R IN T # 4 ," PUNKTRDRESSE"
2 4 0 NEXT J
2 5 0
2 6 0 FOR K = 1 TO S : P R IN T # 4 : NEXT K
2 7 0 CLOSE4
REflDV.
RUN
1234567890123456789012345678901234567890
P U N K T A D R E S S E
P U N K T R D R E S S E
P U N K T R D R E S S E
P U N K T R D R E S S E
P U N K T R D R E S S E
P U N K T R D R E S S E
P U N K T R D R E S S E
P U N K T R D R E S S E
B E I S P I E L 2:
100 REM DOT POSITION SET...SIN CURVE
110 OPEN4 . . 4
: REM PRINT IN GRRFIC MODE
120 P0*=CHR*<16>:ESC*=CHR*<27>
130 EN*=CHR* 14 > = DE*=ÜHR* < 15 >
140
150 CN=23 = R M = 1 6 :0F=4
160 R * = "-"=FOR I=0 TO C N + R M =R*=fl*+"-"=NEXT I
170 SP*="
180 PRINT#4,EN * ;"
SIN CURVE";DE*
190 PRINT#4
200 PR INT#4.. LEFT*-::SP*, OF--1 > "X"
210 PRINT#4, LEFT* C SP * , CN-flM.O F - 1 > ; " -1 "
220 PR I NT#4, LEFT* < S P * , AM - 1 > " 0 "
230 P RINT#4,LEFT* CSP*,A M - 1>;"1"
240 PR I NT#4.. R*
250
260 FOR -J=0 TO 360 STEP 10
270 I*=RIGHT*<SP*+STR*<J >,OF >
Werbung
Inhaltsverzeichnis
