home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh19.d64
/
codieren
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
527b
|
34 lines
10 PRINT"**** KODIEREN/DEKODIEREN ****
20 :
30 :
100 [161] W$:[139] W$[178]"" [167] 100
110 [139] W$[178][199](133) [167] 270
120 [153] W$;
130 A$[178]A$[170]W$
140 [139] W$[178][199](13) [167] 170
150 [137] 100
160 [143]----------------------------
170 X[178]X[170]1
180 A[178][198]([202](A$,X,1))
190 B[178]A[170]X
200 B$[178][199](B)
210 C$[178]C$[170]B$
220 [139] X[179][177][195](A$)[171]1 [167] 170
230 C$[178]C$[170][199](32)
240 [153] C$
250 A$[178]""
260 X[178]0:[137] 100
265 [143]-----------------------------
270 [153]"DEKODIEREN"
280 [133] E$
285 [139] E$[178]"ENDE" [167] [128]
290 X[178]X[170]1
300 E[178][198]([202](E$,X,1))
310 D[178]E[171]X
320 D$[178]D$[170][199](D)
330 [139] X[179][177][195](E$) [167] 290
340 D$[178]D$[170][199](32)
350 [153] D$
360 E$[178]""
370 X[178]0:[137] 280