Computerclub Deutschland e.V. • Postfach 11 0411 • D-6000 ...

W = 1 1 .
1QHNF"
« £ } 'SDIS' STO C C
6 6 0 } £ 0 0 R } ■:'
0 23 0 } £ 3 0 3 > £
31 19 31 > £ 18 3} 9
5 C 25 4 19 } £ 31
27 28 } £ 9 3 0 } £
14 17 17 > { 17 17
14 } £ 21 14 21 5 {
4 14 4 ";• { 0 Rft fi ■}
£ 4 4 4 } £ 0 16 0 )
£ 24 4 3 } •:" 14 21
14 > -C i? 31 16 > -r
29 21 23 } £ 17 21
31 } £ 7 4 31 > £ 23
21 29 } £ 31 21 29 }
£ 25 5 3 } £ 31 21
31 } £ 23 21 31 5 £
0 10 0 } £ 0 58 0 }
£ 4 10 17 }"£ 10 10
19 } £ 17 10 4 J £ 2
25 6 } £ 14 21 23 }
£ 30 5 30 ":■ £ 31 21
19 3 £ 14 17 17 } £
31 17 14 } £ 31 21
17 5 £ 31 5 1 } £ 14
17 29 } £ 31 4 31 }
£ 17 31 17 } £ 9 17
15 } £ 31 6 25 > £
31 16 16 J £ 31 2 31
5 £ 31 4 30 > £ 14
17 14 } £ 31 5 2 } £
6 9 30 } £ 31 s: 26 5
£ 18 21 9 }"£ 1 31 1
> £ 31 16 31 J £ 15
16 15 } £ 31 8 31 >
£ 27 4 27 } £ 3 28 3
> £ 25 21 19 } £ 31
17 17 J £ 3 4 24 J £
17 17 31 } £ 2 1 2 >
£ 16 16 16 5 £ 9 1 2
} £ 28 20 28 } £ 31
20 28 } £ 28 20 20 }
£"28"20 31 } £"12"29
0 } ," HM 5 Pt ';■ f 92
84"124"j £ 31 4 23 }
•f 0 2A 0 > £ A4 15] fi
} £ 31 8 20 } £ 31
16 0 } £ 28 12 28 >
£ 28 4 28 } £ 24 29
12 } £ H" 20 28 } £
28 29 124 > £ 24 4 4
} £ 16 28 4 } £ 31
18 16 } { 28 ib 28 }
£ 12 16 12 5 £"28 8
28 I £ 20 A 29 } £
92 89 124 J £ 4 23
16 } £ 4 31 17 } £ 0
31 0 J z 17 31 4 } £
6 4 x } £ 21 10 21
J ," 0 0 0 > C 4 21 4
j- £ 19 4 10 } £ 12
31 1 } £ 8 31 2 } £
27 21 17 } £ 31 14 4
> £ 4 28 4 } £ 8 21
14 > £ 20 22 21 } £
21 22 20 J £ 10 31
15 } £ 12 12 18 } £
4 21 14 } £ 14 21 4
> £ 39 4 6 } £ 7 28
li 6 6 0
14 27 } £ 27 14 4 }
£ 6 6 9 } 5 1 118
FOR X DUP tt GET
L.IST+ DROP ""IS
START SWAP CHR
SWAP +
NEXT QDIS SWRP +
'QDIS' STO
NEXT DROP
35: :'ytes
S3.1BBE
001
Taschenrechner
'PPSN'
« 30 CF PPS
1S.S3.133E
001
E B J I E .
' P P N '
« CLLCD
" Rusdruck yon " 3
S3.13SE
38 Bytes Q Ci O IDISP 1 1 •» X Y 003
093
« I STD 2? CHR 253
■ I*.*:.. }M2 CHR + OVER +STR DUP 005
S@5 PPSC '
4 DISP + 27 CHR +
* 30 SF PPS
252 {• Lr- 1 " " OVER CHR + OSIZE PRI DROP *STR 007
00?
38 Bytes
@ !*i -■
+ " Bytes" + SWAP 999
009
RCL +STR 10 CHR +
'"' — SWAP + 10 CHR + 011
011
10.63.1592 ■ O P> ■=; ■ WHILE DUP DUP 18
CHR POS DUP"2f" 013
913
" IFERR
THEN DROP 21 015
015 WHILE DUP TYPE 6 p, ^ ■": END DUP 'X1
STO 017
017 REPEAT I PRI 1 905 REPEAT FAST 1 X
FIX DUP OSIZE +STR SUB DUP 1 DISP 27 019
019
" " SWAP + 128 CHR
i r . '
id? CHR 137 CHR + LCD* 1
+ "Bytes" + SWAP STD 137 SUB + " " + Y 2 921
021 RCL 60c IF MOD
IF 30 FS? THEN Y .1001 •: 923
023 " " + 10 THEN CHR 10 CHR " " + 0 1 1 +ATP 2 4 SUB +
END SLOW PRI 025
925 PSUB DROP 913 DROP 1
END *STR SWAP IF FS? 027
927 + PRIS CR CR DROP 915 THEN
j"! " flip 'jjND
"Ri_i+p^ i-y"iTj" 2 DISP 029
0 2 9
91? IKEY""Y" ==
THEN 30 CF ELSE 0 931
331
END 919 END
TC
-J .~i .^i
9 3 3 253 Bytes 921 THEN FAST 27
Ci Q cr V ■"' ■_'
037
039
041
043
ns
'STSUB'
« OVER
IF TYPE
THEN ROT ROT DUP2
POS 4 ROLL ROT
ELSE Df IP
END SIZE 3 PICK 5
PICK SIZE OVER ^
045
047
SWAP 0 >
IF AND
THEN 4 PICK 1 5
PICK 1 - SUB ROT + 4
ROLLD + OVER SIZE
1S.S3.133E
001
003
005
007
0 0 1
CHR X 6 * CHR + 1 X 035
FOR A OVER A
DUP SUB NUM BILA +
NEXT SLOW
PRI CR DROP
END DROP DUP X
1 + SWAP SIZE SUB Y
1 + '¥' STO
END CR DR0P2
CLMF
S> SLOW
937
039
941
043
945
909 697.5 Bytes 94?
011
S B ; - U S3.1BSE
949 SUB + 013 ' P R i s ■
ELSE DROP DR0P2 « FAST STD DUP *STR 001
051 ., 915 1 * S XX
« FAST
993
953 157 Bytes 017
DO S 10 CHR 32
355 g g - r : ^ ^ = ^ ^ = ^ r = r ^ = ^ = ^ = . = - 1 J a a i 1 l O O J H CHR DUP + + POS DUP 905
-iS.Si.lS3c
■ S M 1 "
IF 0 == 30 FS^
+
057
307
« FAST "" 13 PICK 001 THEN DROP S
SIZE
SIZE 999
959 FOR X OVER X X SUB 093
FND 'XX' STR
NUM 148 MIN IF XX 41 > 911
061 IF DUP 10 == 005 THEN S 1 41
THEN 22 + SUB 41 1 913
963 END 31 MAX 30 - 007 FOR X Ot ip X
QDIS SWRP GET + 0 X RHP, 915
965 CHR + 009 TF DUP " "
NEXT SWAP DROP == SWAP 10 CHR = OR
067
917
SLOW 911 THEN X
-V* 'XX' STA 1 'X' STO
069
919
1B3.5 Bytes 013 END -1
STEP DROP 921
071 ...
t!H5
1E.S3.133E END XX 41 MIN
■ !=■ p H H " i"iT^
'XX' STO S 1 XX SUB 023
973
* 1 CF PPN 901 S XX 1 + S SIZE SUB
1.717 'S' STO SML 27 CHR 925
Of D
30 Bytes 903 OVER SIZE CHR + SWAP
faj-ai-ai
+ PRI 927
Of 1
UNTIL HPRP S
B B S :
-1B.S3.133E
SIZE NOT
929
079 1 P P N B '
« 1 SF PPN
END SLOW
901 Zk ~' i
(3 O 1
981
30 Bytes 0 0 3 490 Bytes d "
PRISMA 1/92 Computerclub Deutschland e.V. 49