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

2B5 ?1. *3. iggg
■ ■ ^ m M " " ■■■■■■■■■■■■■■■ 0 0 1
1/1/131313 niniuiiMim
i/u i i i n t i h ii i : i m i m
■ ■ I ■ ■ I I I I r ^ 3 3 1 I I | | ) I
U i l . , ] i 1 1 . ; : , , , ] ] 1 1 1
l ' l l 3 3 3 l l s s s i l J 3 3 i t s , . s
■ ■-■4M7>B, ....„.,..,, gag
1 13 3 ■ 1! il313J3l/t/ 1/1/ ■■■■■■■■■■■■ *■>■■■,..,,. ~
■ ■■■■ ■■gggfififi.' : 9@£6g£
■ in unit t iTTt : = s VT
U i i i i l H n S l i M t « 4 H U
fi@8@e@68@ffiS6HSS8fi86S@B 0 @ 5
k i i f e j , 1 k - b T b b - t k b f e i . b f c 1 i " ~
%«%%%%%%«%%%%%%%%%%%%
££@®?£&G6£@ia ■■■■■■-^«
111 Sl l k bTTlil ■■■■■■ HIH
!!■ • ■■■■ / ■■■■ g Q 7
J 3 i d i = a = 1 3 l b l J ■ ■ ■ ! I ( / ! / , . .
i a i t i i i i t iu i t i ; jim ■ • ■
■ ■ > I S t H i i i i i i i H ■■■ ••■■■
I ■ I ■ • ■ ■ ■ , .11 ■■■■■«. a
■ >■■■■ ■ ■■■^■■pfjp RP19
; ■ l ■ lliiiiilllnnl ■ ■ > ■ l i Jl ■ ■ I il ■bbb I S
k 7 T 7 T T b T T T T T T T T T T T i t ■ ■ ■
t M t M H M i H n n i i u
■■■■
■ ■ a IS IS a *■■■■■■■■ i ■ * 1! ■
0 11
I llllll 11 I IIII |l. ■ E |l I ■
■ ■■■■■■■ iffi ((iiiiiiii _)!'?,
■ ■ ■ ■ ■ a ■ ■ ■ U I i S t ■ ■ a * h t X i ~ ' "
■ •■ • ■ i t ■ i i n ■ m t ■ ■ ■ i n
j i i i i i i m u i ■■■ | P i g
I
■)■■«■
a ■ a ■
a
■
1/1/
17!J
■
■
■
■
■
■
a
»l/l/l
1/1/
b
nm
3 i 7
p... 015
il 1117 ■ . i l l S I I l i a . 1 7 1 7 ■ ■ ■ . 1 7 1 7 ■
l l % I J ■ ■ 1 M b b b f S ■ . 1 7 1 / ■ ■ ■ . I 7 i 7 I
■ ■ H I S I l l l a i H I S I i . 1 = a = ! . i l i 1
i a i S t a f c k i s ■ a t S l a a k i s ■ ■ ■ ! ■ i s k k
■ 0 1 7
IX ■ atllS 1 I II I ■ ■ ■ ■ .1/1/ ■ ■ a ■ ■
I I t i K I l k k f t i i i i i i 1 7 1 7 I I I 1 1
■ till ■ aiS ■ ■ 17.7 t I II ■ ■ IS II 3 3 a a
a IS 13 ■ a 13 ■ at/17 k b IS a a la IS 1 1 a ■
I ■ p'P ■■■■ iiiziiiai-jr M 1 9
IXIS 113a alSIl 3 3 a a ■■ a a a a ■ 13
I S l a a . I a a i » I S 1 I o a a /
13 S 13 a ■ ■ a a 1 t
I l i U i t n i t i
h i n i l / l a l l ) - r u i i l l i l l l l l l i i H H
■ . i i i i t i ; i i i i i n m i i i i
t - r r r r " T T
iitiiiiiiiiiiimijiiiiijiiiiiiuiiii/isti
iMiiiniiiiinun ji
& l , « * * H - + + r + +
1 1 1 1 1 3 l / I S I S I S H l l l l l l i l l l l l l l l l l l l l l U l l l
l i n n i l l M M M I M M I
+ d " " " * + +
l l l l l l l l I / I S I S I S I l l l l l l l l l l l l l l l l l l l l l l l l l
i i i n ; ; i i i i i i i n i i i n
iiiititiiiiiiiiiiuiiiiiiiiiiiiiiiiiiiiiii
I M H I I H U H I I H I I I I
iiiiiiiiiiiiiiiiiiiiiiiiiiiuiiiiiiimifs'
i n n i M . i i i i i i i u i M
T S 1 3 1 3 1 3 l l l l l l l l l l l l l l l l I
lkk/11 1 11 Mill
561.5 Bytes
021
023
025
027
Taschenrechner
riTLTLTLn
^ . i r _ : i — T3v
i
i ! C ' I - " ! t a
| ^OL[o&ino I ohi-eir g !j
EBi =
'QRNZ'
« C > 'ANZ' STO { £
186 1SA 190 > { 138
170 162 } £ 186 170
130 } { 226 238 130
J £ 162 170 138 } {
130 170 138 J £ 154
234 242 } £ 130 170
130 > £ 162 170 130
} £ 198 136 198 } £
190 190 190 } £ 182
17A 21A ":• •;" ISA 222
130 T £ 24A 154 230
> I 1 14
FOR X DUP X GET
LIST* " START DROP SWAP"CHR "" 1 3
SWAP +
NEXT 254 CHR
SWAP + ANZ SWAP +
'ANZ' STO
NEXT DROP
659 Bytes
BS
' I N F O "
« " " DUP DUP +
+ fsijP " setz* " + 1
DIAP DUP " Ziffern"
+ 2 DISP " "1-" SS
2 + +STR + + 3 DISP
LCD* 1 274 SUB ANZ
14 GET DUP DUP + DUP
DUP + + + 1 SS 4 *
SUB + ANZ 11 GET +
ANZ 12 GET + ANZ 13
GET + 254 CHR + +LCD
=«3.h3.133B
001
0 0 3
005
007
009
011
013
015
017
019
021
023
= *3.«.133E
691
003
005
007
009
011
013
EBJ:
^3.«.133E
"RANDO'
ff " It DO 11 RAND SS 1 + * 1
+ IP +STR + DUP SIZE
UNTIL NOT
, END
73 Bytes
bb;
' C O N V '
« "" 4 DISP LCD+ 1
411 SUB"1 SS
FOR X AT X X SUB
STR+ ANZ SWAP GET +
NEXT ANZ 11 GET +
ANZ BB DUP
IF 0 =
THEN IA +
END GET + ANZ CC
Dl IP IF 0 ==
THEN 10 +
END GET + 25^ CHR
+ +LCD
3ytes
bb;
' Z D R O P '
« DUP2 1"-1 SWAP
SUB ROT ROT 1 + OVER
SIZE SUB +
54.5 Bytes
001
003
005
007
:*3.*3.133E
001
003
005
00?
009
011
013
015
S3.d3.133E
001
003
005
■ F? O W '
« LCD+ 'LC' STA I C
138"274 SUB lC~275
411 SUB + LC 412 456
SNB + LA 1 A2 AMB +
+LCD
:*3.*3.133E
001
003
EiPlS
151 Bytes 0 0 ~f
M.S3.135E
' r-1 I N D '
« CLLCD STD 001
MASTER MIND" 1
DISP
DO
"wieviel Stellen" 3
DISP
DO IKEY
UNTIL 1
jp pun?
"123456?" SWAP PAA
NOT
THEN DR0P2
"1-7 bitte" 4 DISP
003
005
007
AAA
01 1
Al 3
0
END
Fj-.jp eyp-j, QU AD
'SS' STO RANDO 'RX' 017
STO INFO
DO CHAR Bl WI 019
CONV ROW "" 4 DISP
UHTIi BB SS — 021
END 1 3
START 2500 .1 023
BEEP 15A0 .1 BEEP
AARfi .1 PEEP 25A0 .2
LV?i=
BEEP .5 WAIT
NhXT 2 WAIT 02 i*
DA KFY
UNTIL 029
END CLLCD
"Noch ein Spiel ?" 1 031
DISP ".!=,ia" "N=Nein"
4 DISP 3 DISP IKEY 033
UNTIL CLLCD "N" ==
END CLMF £ BB CC 035
AT RX SS I C BF }
PURGE 037
527 Bytes 039
"3.M.1S3E
' B L W I '
* 0. DUP 'AA' ATA
i pp i c--rp j " ee
001
PAP Pp ST pp [)I!P AAA
SUB PX PP DUP SUB ==
'BB' ST0+
NEXT ST RX 1 SS
FOR PP DUP PP DUP
SUB 3 PICK SWAP POS
DUP 0 * 'AA' ST0+
0A5
00?
AAA
ROT SWAP ZDROP SWAP
NEXT DRAP2 'AA' AA
STO-
225.5 Bytes
011
a ^ --
rut PRI
+6ALWbden*s£0,8S1,
nit PPNB
aa;
" T E S T '
+6ALWbdenx
31.5 Bytes
=11.S3.133B
puunrLn f—7-^
1
i HcLrotric
! I ic'" l
. uhi-eir
^-l " C
n
a
5
F 9 o I ) i
S a c h s § n s t r a S3 e 166
4350 Recklinghausen
xel. 02361 .•■'"891344
PRISMA 1/92 Computerclub Deutschland e.V. 51
001