0 REM  EINZELSCHRITTGENERATOR V2.0            (C) 1.11.1989 BY MARTIN FUCHS
1 A$=CHR$(34)+CHR$(34)+CHR$(20):OPEN2,8,15:OPEN1,8,1,"EINZELSCHRITTE.B,P,W":POKE198,5
2 PRINT"[147]AHKH[197][146]G^[146]2070@@@@@@@@@@@@)X [146]JE[146]+D[146], [217]&[146][204].'[146][204]2H%[146]A";:POKE631,19
3 PRINT"[200] [208]J[168]E[146]A[216][160]-[146]HC,[146]ICM[146]MHL[146]NH-[146]@C,[146]ACM[146]OHL[146]PH)] [146]HM[146]HC";:POKE632,29
4 PRINT"L[146]IC)W [146]HM[146]@CL[146]AC-[146]BC,[146]CCM[146]SHL[146]TH)Q [146]HM[146]BCL[146]CC [146]@1[146][186]i";
5 PRINT"[146],[176][146]J[201]J[208][146]L [179]@[204]^H [179]@[204] ([146][168][168][204][217]([146] XJ[172]BC XJ[172]OH:N[146]UH";:POKE633,29:POKE634,34
6 PRINT"%[146]@[200]%[146]A[200])[146]/E[146]@[184])[146]4E[146]A"A$"[146]@N[146]A[214]5[146]@][146]@[208]=[146]@A][146]@[209]=[146]@B][146]@[210]=[146]@C";
7 PRINT"][146]@s[168]p[166][146][168]M[146]Ap[146][168]M[146]@p)[146]7E[146]A-[146]!p[146]iHMF[146]B [166][165]-[146]FC,[146]GCM[146]QHL[146]R";
8 PRINT"H)[146]p [146]IM[146]FCL[146]GC)[146]# [146]IM[146]&CL[146]'C%[146]9$[146]:E[146]TD[146]U S&%[146]9$[146]:E[146]TD[146]U";
9 PRINT" [146]@D[146]ChD[146]Olw&[146]hi[146]M[176][146][166]EwJ[146]hX[146]h[184])[146]4E[146]A.[146]Av$s1q][146]@t[166][146]A1[179]";
10 PRINT"f[146]A][146]@u[174][146]Av)[146]7E[146]Al][167][146]h%[146]&[146][160]D[146]Bf[146]BX[165]BP[146]A[168]e[146][186]p[146]H[164][146][187]p[146]D)[191]";
11 PRINT"E[199][146][168]&[199][176][146]V[201][146]:[176][146]J&[146]C0N[198][146]C[208][146]J[176][146]D&[146]C[176][146]H"A$"[146]@F[199]*[146][172]QH[166][146]C[208][184][146] U[189]";
12 PRINT"$[211][146][184])[146]4E[146]A.[146]A[214]1[209]][146]@[212][166][146]A1[179][198][146]A][146]@[213])[146] Q[209][168][200][196][213]P[168][176][166]N[146]A[214]"A$;:POKE635,13
13 PRINT"[146]@=[146]@[209]][146]@A=[146]@[210]][146]@B=[146]@[211]][146]@C[168][208][171]"A$"[146]B=[146]@[208]U[146]@[168][208][184]-[146]A[208],[146]@[208]D[146]@";
14 PRINT".[146]UHZ[146]h)[146]7E[146]A <[182]%Qi[176][146]U [161][191][176][146]Z G[170]&f[176][171]=[146][182]Bi[146] p[164]ff[146] ";
15 PRINT"pJ[168]E[146]Ax[172]MH[168]E[146]A 4(-[146]SH,[146]THM[146]BCL[146]CC-[146]OH,[146]PHM[146]@CL[146]AC-";
16 PRINT"[146]QH,[146]RH[176][146]KM[146]FCL[146]GC)[146]@M[146]RH-[146]MH,[146]NHM[146]HCL[146]IC[160]%[146]@h)[146]/E[146]@%[146]B";
17 PRINT"h%[146]Ch[184])[146]4E[146]A-H[146]BE[146]C [146]@D[146]B>[146]@t1[146]BY[146]@tJQ[146]B9[146]@u[166][146]A>[146]@xY[146]@x";
18 PRINT"[198][146]AJY[146]@[213][200][204][146]A[214]P[255][146][168]E[146]C[168]E[146]B[168]E[146]@[160]@@@":FORN=1024TO1690:PRINT#1,CHR$(PEEK(N));:NEXT
19 INPUT#2,B$,C$,D$,E$:PRINT"[147]"B$","C$","D$","E$:CLOSE1:CLOSE2:PRINT"L[207]EINZELSCHRITTE.B"A$",8