1 GOSUB6:S$="          ":FORA=1TO8:PRINT"F";A;:INPUTF$(A):F$(A)=LEFT$((F$(A)+S$),10):NEXT
2 INPUT"N";PR$:PR$=LEFT$(PR$+L$,25):OPEN1,4,S:CMD1:PRINTOL$;:FORT=1TO25:PRINTOU$;:NEXT:PRINTRO$:PRINTLR$;
3 PRINTPR$;LR$:PRINTLR$;SPC(25);LR$:PRINTLR$;"  ";OL$;:FORT=0TO10:PRINTOU$;:NEXT:PRINTRO$;:PRINTS$;LR$
4 FORB=1TO4STEP2:A=B:GOSUB8:A=B+1:GOSUB8:GOSUB7::NEXT:FORA=5TO8:GOSUB8:NEXT:PRINTLR$;"  ";UL$;
5 FORA=0TO10:PRINTOU$;:NEXT:PRINTUR$;S$;LR$:PRINTUL$;:FORA=1TO25:PRINTOU$;:NEXT:PRINTUR$:PRINT:PRINTW$:PRINT#1:CLOSE1:END
6 GOSUB8:W$="F-PRINT,(C)[160]BY CHRISTIAN ABT IN 1993":S=1:LR$="[179]":PRINT"[147][144]";W$;"":RETURN
7 PRINTLR$;"  ";LR$;SPC(11);LR$;S$;LR$:L$="                         ":OU$="[196]":RETURN
8 PRINTLR$;"  ";LR$;SPC(11);LR$;F$(A);LR$:RO$="[191]":OL$="[218]":UR$="[217]":UL$="[192]":GOSUB7:RETURN