63500 PK=5:POKE198,0:PRINT"[147]	:";:POKE19,1:INPUTPL$:POKE19,0:POKE820,PEEK(65)
63501 POKE821,PEEK(66):FORPI=0TO3:PM$(PI)="":NEXT:PM=LEN(PL$):PJ=0:FORPI=1TOPM
63502 PX$=MID$(PL$,PI,1):PJ=PJ-(PX$=" "):IFPX$<>" "THENPM$(PJ)=PM$(PJ)+PX$
63503 NEXT:POKE65,PEEK(122):POKE66,PEEK(123):PI=0
63504 PI=PI+1:READPX$,PX:ON(PX$<>PM$(0))*(PI<(PK+1))GOTO63504:POKE65,PEEK(820)
63505 POKE66,PEEK(821):PRINT"[147]G[207]"63500+PX:POKE631,19:POKE632,13:POKE198,2:END
63506 PRINT"[147]"PM$(1)CHR$(34)PM$(2)CHR$(34)",8":GOTO63509:DATAD,6,O,7,B,8
63507 CLOSE1:OPEN1,8,15,PM$(1)+":"+PM$(2):CLOSE1:GOTO63500:DATADIR,10,PR,14
63508 PRINT"[147]";PM$(1);:IFPM$(2)<>""THENPRINT","PM$(2)
63509 POKE631,19:POKE632,13:POKE633,71:POKE634,207:POKE635,48:POKE198,5:END
63510 PRINT"[147] 0 ";:OPEN1,8,0,"$":POKE781,1:SYS65478:GETPA$,PA$,PA$,PA$:DATA"",0
63511 PX$=CHR$(0):FORPI=1TO7:GETPA$,PB$,PC$,PD$:PRINTPA$PB$PC$PD$;:NEXT:PRINT
63512 GETPA$,PA$,PA$,PB$:IFSTTHENSYS65484:CLOSE1:WAIT653,3:GOTO63500
63513 PRINTASC(PA$+PX$)+256*ASC(PB$+PX$);:GOTO63511
63514 PRINT"[147]O[208]1,4:CMD1:L[201]"PM$(1):PRINT"P[210]1:CL[207]1:G[207]0"
63515 POKE631,19:POKE632,13:POKE633,13:POKE198,3:END