5000 PRINT"[147]ONE MOMENT..":POKE49,PEEK(47):POKE50,PEEK(48):DIMT$(77):T=1:FORK=41
5010 IFPEEK(K)>127THENA$=A$+CHR$(PEEK(K)-128):T$(T)=A$:T=T+1:A$="":GOTO5030
5020 A$=A$+CHR$(PEEK(K))
5030 NEXT:O$=CHR$(0)
5040 CLOSE15:OPEN15,8,15:INPUT"[147]PROGRAM TO LIST";A$:OPEN2,8,2,""+A$:GOSUB5140
5050 PRINT"[147]PRESS <SHIFT> TO PAUSE <_> TO EXIT":GET#2,B$,C$
5060 IFPEEK(197)=57THEN5170
5070 IFPEEK(653)=1THEN5070
5080 GET#2,Z$,B$,C$,D$:IFZ$=""ANDB$=""THEN5170
5090 V$=STR$(ASC(C$+O$)+ASC(D$+O$)*256)+" ":V$=MID$(V$,2):PRINT:PRINTV$;:Q=0
5100 GET#2,C$:C=ASC(C$+O$):IFC=0THEN5060
5110 IFC>127ANDC<204ANDQ=0THENPRINTT$(C-127);:GOTO5100
5120 IFC=34THENQ=1-Q
5130 PRINTCHR$(C);:GOTO5100
5140 GET#15,N:IFN=0THENRETURN
5150 IFN=6THENPRINT"PROGRAM NOT ON THIS DISK":FORK=1TO2000:NEXT:RUN
5160 PRINT"DISK ERROR. PROGRAM ABORTED
5170 [160]15:[151]198,0