10 POKE53280,.:POKE53281,.:PRINT"[147]":OPEN1,8,15,"I":OPEN2,8,2,"#":S=1
20 PRINT#1,"U1 2 0 18"S
30 FORF=0TO255STEP32
40 PRINT#1,"B-P 2"F+2:GET#2,A$:IFA$<>CHR$(130)ANDA$<>CHR$(194)THEN180
50 PRINT#1,"B-P 2"F+21:GET#2,A$:IFA$<>""THEN180
60 PRINT#1,"B-P 2"F+30:GET#2,A$:POKE781,ASC(A$+CHR$(0)):POKE780,0:SYS48589
80 PRINT#1,"B-P 2"F+5:PRINTTAB(5)CHR$(34);
90 X=0:FORI=0TO15:GET#2,A$:IFA$=CHR$(160)ANDX=0THENX=1:PRINTCHR$(34);
100 PRINTA$;:NEXT:IFX=0THENPRINTCHR$(34);
110 PRINT#1,"B-P 2"F+25:GET#2,A$:IFA$>""THENPRINTTAB(24)"_";
120 PRINTTAB(26)"[211]PERRE J/N[157][157][157]";
130 GETA$:IFA$="J"ORA$="Y"THENX=32:PRINT" J ":GOTO170
140 IFA$=CHR$(13)THENPRINT"   ":GOTO180
150 IFA$<>"N"THEN130
160 X=0:PRINT" N "
170 PRINT#1,"B-P 2"F+25:PRINT#2,CHR$(X);
180 NEXT:PRINT#1,"B-P 2 0":PRINT#1,"U2 2 0 18"S
190 GET#2,A$,S$:S=ASC(S$+CHR$(0)):IFA$=CHR$(18)THEN20
200 CLOSE2:CLOSE1:END