2 REM *****************
3 REM * VIGENERE-CODE *
4 REM *****************
5 :
6 PRINT"[147]"
7 DIMC$(37,37):DIMS$(21):DIMD$(100)
10 PRINT"VIGENERE-CODE         (16. JH.)
11 [153]"FREFREFREFREFREFREFREFREFREFREFREFREFRE"
15 [153]:[153]"DER VIGENERE-CODE ARBEITET MIT EINEM"
20 [153]:[153]"SCHLUESSELWORT,DAS BIS ZU 20 BUCH-"
22 [153]:[153]"STABEN LANG SEIN DARF."
24 [153]:[153]"DER TEXT (BUCHSTABEN UND ZIFFERN)"
25 [153]:[153]"WIRD OHNE RETURN-TASTE EINGEGEBEN."
26 [153]:[153]"LEERTASTE MIT - EINGEBEN."
28 [153]:[153]"BUCHSTABEN LOESCHEN MIT /  (NUR VOR"
30 [153]:[153]"ZEILENENDE MOEGLICH)."
32 [153]:[153]"ENDE DES TEXTES MIT * EINGEBEN!"
34 [153]:[153][163]17)"C 1990 DIETER MARUNG"
100 [131]A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,-
105 [131]1,2,3,4,5,6,7,8,9,0
110 [131]A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,-
115 [131]1,2,3,4,5,6,7,8,9,0
200 [129]S[178]1[164]37
220 [129]Z[178]1[164]37
240 [135]C$(S,Z)
300 [130]Z
305 [140]
310 [129]A[178]1[164]S:[135]A$:[130]
320 [130]S
430 I[178]1:[153]"SCHLUESSELWORT:";
450 [161]S$(I):[139]S$(I)[178]""[167]450
455 L[178]L[170]1
460 [153]S$(I);:[139]S$(I)[179][177][199](13)[167]I[178]I[170]1:[137]450
470 L[178]L[171]1
480 [153]"LOAD"
2000 [153]:[153]:[153]:[153]"VERSCHLUESSELN     1"
2010 [153]:[153]"ENTSCHLUESSELN     2"
2030 [153]:[153]:[153]:[133]"";AU
2040 [145]AU[137]3000,5000
3000 [153]"LOAD"
3050 [129]G[178]1061[164]2021[169]40:[151]G,117:[130]G
3100 [153]:[153]"GIB DEN KLARTEXT EIN:":[153]
3104 I[178]0
3105 I[178]I[170]1:[139]I[178]L[170]1[167]I[178]1
3110 [161]K$:[139]K$[178]""[167]3110
3112 [139]K$[178]"*"[167]6000
3114 [139]K$[178]"/"[167]3117
3115 [137]3123                        
3117 D$(Z1)[178][200](D$(Z1),[195](D$(Z1))[171]1):I[178]I[171]1
3118 [139]I[178]0[167]I[178]L
3119 ZW[178]ZW[171]1
3120 [153]"CMD CMD ONCMD";:[139]ZW[178]0[167]ZW[178]1:[137]3104
3121 [137]3110
3123 [153]K$;
3125 [129]Z[178]1[164]37
3127 FL[178]0
3130 [139]K$[178]C$(1,Z)[167]FL[178]1:[137]3150
3140 [130]Z
3150 [139]FL[178]0[167]3120
3210 [129]S[178]1[164]37
3220 [139]S$(I)[178]C$(S,1)[167]3500
3230 [130]S
3500 [153]"CMD";C$(S,Z);"ON";
3510 D$(Z1)[178]D$(Z1)[170]C$(S,Z)
3520 [139][195](D$(Z1))[178]76[167]Z1[178]Z1[170]1
3602 ZW[178]ZW[170]1:[139]ZW[173]38[178][181](ZW[173]38)[167][153]:[153]:[153]
3610 [137]3105
5000 [153]"LOAD"
5010 [153]
5050 [129]G[178]1061[164]2021[169]40:[151]G,117:[130]G
5100 [153]:[153]"GIB DEN VERSCHLUESSELTEN TEXT EIN:":[153]                
5190 I[178]0
5195 I[178]I[170]1:[139]I[178]L[170]1[167]I[178]1
5200 [161]V$:[139]V$[178]""[167]5200
5205 [139]V$[178]"*"[167]6000
5207 [139]V$[178]"/"[167]5210
5209 [137]5230
5210 D$(Z1)[178][200](D$(Z1),[195](D$(Z1))[171]1):I[178]I[171]1
5212 [139]I[178]0[167]I[178]L
5214 ZW[178]ZW[171]1
5216 [153]"CMD CMD ONCMD";:[139]ZW[178]0[167]ZW[178]1:[137]5190
5219 [137]5200
5230 [153]V$;
5235 [129]Z[178]1[164]37
5240 [139]S$(I)[178]C$(1,Z)[167]5300
5250 [130]Z
5300 [129]S[178]1[164]37
5305 FL[178]0
5310 [139]V$[178]C$(S,Z)[167]FL[178]1:[137]5330
5320 [130]S
5330 [139]FL[178]0[167]5216
5400 [153]"CMD";C$(S,1);"ON";
5410 D$(Z1)[178]D$(Z1)[170]C$(S,1)
5420 [139][195](D$(Z1))[178]76[167]Z1[178]Z1[170]1
5502 ZW[178]ZW[170]1:[139]ZW[173]38[178][181](ZW[173]38)[167][153]:[153]:[153]
5600 [137]5195
6000 [153]"LOAD"
6010 [153]:[153]
6020 [133]"  SOLL GEDRUCKT WERDEN J/N";A$
6030 [139]A$[178]"N"[167][128]
6040 [139]A$[179][177]"J"[167][153]"ONON":[137]6020
6100 [159]1,4:[157]1
6200 [129]I[178]0[164]Z1
6210 [153]D$(I)
6220 [130]I
6300 [152]1:[160]1
6310 [133]"  NOCH EINMAL DRUCKEN J/N";A$
6315 [139]A$[178]"N"[167][128]
6320 [139]A$[178]"J"[167]6100
6330 [139]A$[179][177]"J"[167][153]"ONON":[137]6310