10 POKE648,4:PRINT"[147]":POKE53272,21:POKE56576,151:POKE53265,PEEK(53265)AND239:FORI=1TO8
20 POKE53281,0:POKE53280,0
30 IFPEEK(53265)<>139THEN30
40 POKE53281,11:POKE53280,11
50 IFPEEK(53265)<>139THEN50
60 POKE53281,12:POKE53280,12
70 IFPEEK(53265)<>139THEN70
80 POKE53281,15:POKE53280,15
90 IFPEEK(53265)<>139THEN90
100 POKE53281,1:POKE53280,1
110 IFPEEK(53265)<>139THEN110
120 POKE53281,15:POKE53280,15
130 IFPEEK(53265)<>139THEN130
140 POKE53281,12:POKE53280,12
150 IFPEEK(53265)<>139THEN150
160 POKE53281,11:POKE53280,11
170 IFPEEK(53265)<>139THEN170
180 POKE53281,0:POKE53280,0
190 IFPEEK(53265)<>139THEN190
200 NEXT:POKE53280,6:POKE53281,14:PRINT"[147]"
210 POKE53265,PEEK(53265)OR16
220 PRINT"[147][154]          S I E G E R L I S T E         ";
230 PRINT"                                        "
240 FORI=55296TO55376:POKEI,6:FORK=1TO30:NEXTK,I
250 DIMA$(10):OPEN4,8,4,"86,P,R"
260 PRINT"1. ";:INPUT#4,A$(1):PRINTA$(1)
270 PRINT"2. ";:INPUT#4,A$(2):PRINTA$(2)
280 PRINT"3. ";:INPUT#4,A$(3):PRINTA$(3)
290 PRINT"4. ";:INPUT#4,A$(4):PRINTA$(4)
300 PRINT"5. ";:INPUT#4,A$(5):PRINTA$(5)
310 PRINT"6. ";:INPUT#4,A$(6):PRINTA$(6)
320 PRINT"7. ";:INPUT#4,A$(7):PRINTA$(7)
330 PRINT"8. ";:INPUT#4,A$(8):PRINTA$(8)
340 PRINT"9. ";:INPUT#4,A$(9):PRINTA$(9)
350 PRINT"1O. ";:INPUT#4,A$:PRINTA$:CLOSE4
360 PRINT"IHR NAME ? ";:POKE204,0
370 GETR$:IFR$=""THEN370
380 IFR$=CHR$(13)ANDLEN(IN$)>0THEN430
390 IFR$=CHR$(20)ANDLEN(IN$)>0THENIN$=LEFT$(IN$,LEN(IN$)-1):PRINTR$;:GOTO370
400 IF(R$<"A"ORR$>"Z")ANDR$<>"."AND(R$<"1"ORR$>"0")ANDR$<>" "THEN370
410 IFLEN(IN$)+1>32THEN370
420 PRINTR$;:IN$=IN$+R$:GOTO370
430 POKE204,1:PRINT" ":CLOSE4:OPEN1,8,15,"S:86":CLOSE1:OPEN4,8,4,"86,P,W"
440 PRINT#4,IN$:FORI=1TO9:PRINT#4,A$(I):NEXT:CLOSE4:PRINT"[147]"
450 IFPEEK(53265)<>155THEN450
460 POKE53281,0:POKE53280,0
470 PRINT"[147][144]L[207]"CHR$(34)"82"CHR$(34)",8":PRINT"RUN"
480 POKE631,19:POKE632,13:POKE633,13:POKE198,3:NEW