1 INPUT"[147] WIEVIELE BLOECKE (MAX.17)";A:X=(18-A)*3+1
2 IFX>18THENX=X-17:GOTO2
3 PRINT" AUF DIE DISKETTE PASSEN DANN MAX.",(18-A)*8"FILES. OK? (J/N)"
4 WAIT198,1:GETA$:IFA$="N"THENRUN
5 OPEN1,8,15,"M-W"+CHR$(7)+CHR$(28)+CHR$(1)+CHR$(15):OPEN2,8,2,"#"
6 PRINT#1,"U1"2;0;18;1:PRINT#1,"B-P"2;3:GET#2,A$,B$:PRINT#1,"B-P"2;3
7 PRINT#2,CHR$(18)CHR$(X);:PRINT#1,"U2"2;0;18;1
8 PRINT#1,"U1"2;0ASC(A$)ASC(B$+CHR$(0)):PRINT#1,"B-P"2;0:GET#2,A$,B$
9 IFA$=""ORX=18THENPRINT#1,"U2"2;0;18;X:PRINT#1,"V":CLOSE2:CLOSE1:END
10 A=X+3+17*(X>15):PRINT#1,"B-P"2;0:PRINT#2,CHR$(18)CHR$(A);
11 PRINT#1,"U2"2;0;18;X:X=A:GOTO8