10 REM COPYRIGHT 1989 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 IFPEEK(49168)<>96THENLOAD"SS.ML",8,1
30 POKE52,68:POKE56,68:CLR:DIMS(13):POKE53280,.:POKE53281,.:GOSUB420:L=49805
40 N=49750:FORI=1TO13:READS(I):NEXTI:PRINT"(PRESS RETURN TO QUIT)[145][145]"
50 N$="":INPUT"FILENAME";N$:IFN$=""THENPRINT"[147]	":END
60 OPEN15,8,15:OPEN1,8,2,"0:"+N$+",S,R":GOSUB450
70 INPUT#1,P:INPUT#1,TL:DIMF$(P),T(P),M$(P)
80 FORI=1TOP:INPUT#1,F$(I):INPUT#1,T(I):INPUT#1,M$(I):NEXTI:GOSUB450
90 CLOSE1:GOSUB250
100 FORI=1TOP:GOSUB420:B=INT(40-LEN(M$(I)))/2:PRINTTAB(B)M$(I)
110 IFT(I)=13THEN170:REM SEQ FILE
120 POKEL,96:IFT(I)=3ORT(I)=8THENPOKEL,92
130 IFT(I)=9ORT(I)=10THENPOKEL,88
140 SYS49152,F$(I),8:GOSUB450
150 POKE49269,16:IFT(I)=5THENPOKE49269,1
160 GOTO210
170 OPEN1,8,2,F$(I):W=24576:GOSUB450
180 GET#1,A$:POKEW,ASC(A$+CHR$(0)):IFSTTHEN200
190 W=W+1:GOTO180
200 CLOSE1:POKEW,.
210 PRINT"[147]":SYSS(T(I)):TI$="000000":POKE198,.
220 GETA$:IF(A$="")AND(TI/60<TL)THEN220
230 SYSN:IFA$="Q"THENCLOSE15:RUN
240 NEXTI:GOTO100
250 FORI=1TOP:E$=F$(I)
260 ONT(I)GOSUB280,290,320,330,340,350,360,370,380,390,400,410,330
270 F$(I)=E$:NEXT:RETURN
280 E$="?PIC ? "+E$+"*":RETURN
290 Q$="":FORJ=1TOLEN(E$)
300 R$=MID$(E$,J,1):R=ASC(R$):IFR>64THENR=R+32
310 Q$=Q$+CHR$(R):NEXT:E$="[CRT?>"+Q$+"*":RETURN
320 E$="DD"+E$:RETURN
330 RETURN
340 E$="PN."+E$:RETURN
350 E$=E$+"          ":E$=LEFT$(E$,11)+"  PIC":RETURN
360 E$=E$+"           ":E$=LEFT$(E$,12)+"MPIC":RETURN
370 E$="RP."+E$:RETURN
380 E$="\"+E$:RETURN
390 E$="B."+E$:RETURN
400 E$="P-"+E$:RETURN
410 E$="PI."+E$:RETURN
420 PRINT"[147][155]"CHR$(142)TAB(12)"SUPER  SLIDESHOW"
430 PRINTTAB(3)"COPYRIGHT 1989 COMPUTE! PUBL., INC."
440 PRINTTAB(11)"ALL RIGHTS RESERVED":RETURN
450 INPUT#15,EN,EM$,ET,ES:IFEN=0THENRETURN
460 SYSN:PRINT"DISK ERROR: "STR$(EN)" "EM$STR$(ET)" "STR$(ES)" "
470 CLOSE1:CLOSE15:PRINT"	":END
480 DATA49169,49215,49228,49268,49268,49296,49315
490 DATA49362,49426,49500,49564,49632,49646