10 REM COPYRIGHT 1989 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 DIMFO$(13),F$(50),T(50),M$(50)
30 FORI=1TO13:READFO$(I):NEXT:POKE53280,.:POKE53281,.:GOTO170
40 INPUT"[147]HOW MANY PICTURES";P
50 IFP<1THEN170
60 Z=.:INPUT"DISPLAY TIME (1-59 SECONDS)";TL:IFTL<1ORTL>59THENTL=10
70 FORI=1TOP:PRINT"[147]#[159]"I"PICTURE NAME";:INPUTF$(I)
80 IFF$(I)=""ORLEN(F$(I))>16THEN70
90 PRINT""TAB(13)"[153]PICTURE FORMAT?"
100 PRINT"[150]":FORJ=1TO13:PRINTCHR$(64+J)". "FO$(J):NEXT
110 GETA$:IFA$=""THEN110
120 K=ASC(A$):IFK<65ORK>77THEN110
130 T(I)=K-64:PRINT"[154] MESSAGE TO BE DISPLAYED BEFORE VIEWING"
140 INPUTM$(I)
150 IFM$(I)=""THENM$(I)="NOW LOADING..."
160 Z=Z+1:NEXT
170 PRINT"[147]"CHR$(142)TAB(14)"[158][213][192][192][157][157][157][221]  UPER[157][157][157][157][157][157][157][158][202][192][201][157]";
180 PRINT"[221]LIDESHOW[157][157][157][157][157][157][157][157][157][157][157][158][192][192][203]"
190 PRINTTAB(10)"1. CREATE SLIDESHOW":PRINTTAB(10)"2. EDIT SLIDESHOW"
200 PRINTTAB(10)"3. SAVE SLIDESHOW":PRINTTAB(10)"4. LOAD SLIDESHOW"
210 PRINTTAB(10)"5. QUIT":PRINTTAB(10)"YOU HAVE"Z"PICTURES"
220 PRINT""TAB(10)"[159]MAKE SELECTION (1-5)"
230 PRINT""TAB(3)"COPYRIGHT 1989 COMPUTE! PUBL., INC."
240 PRINTTAB(11)"ALL RIGHTS RESERVED[159]"
250 GETA$:IFA$=""THEN250
260 IFA$<"1"ORA$>"5"THEN250
270 ONVAL(A$)GOTO40,360,280,460,510
280 REM SAVE
290 H$="":INPUT"[147]SAVE AS (FILENAME)";H$:IFH$=""THEN170
300 IFLEN(H$)>16THEN290
310 OPEN15,8,15,"S0:"+H$:PRINT#15,"I0"
320 OPEN1,8,2,"0:"+H$+",S,W":GOSUB750
330 PRINT#1,P:PRINT#1,TL
340 FORI=1TOP:PRINT#1,F$(I):PRINT#1,T(I):PRINT#1,M$(I):NEXTI
350 GOSUB750:CLOSE1:CLOSE15:GOTO170
355 REM EDIT
360 IFZ=0THEN170
370 FORI=1TOP
380 PRINT"[147]#"I:PRINT"PICTURE NAME: "F$(I):PRINT"PIC FORMAT: "FO$(T(I))
390 PRINT"MESSAGE":PRINTM$(I)
400 PRINT"[158]1. CHANGE PICTURE NAME":PRINT"2. CHANGE PICTURE FORMAT"
410 PRINT"3. CHANGE MESSAGE":PRINT"4. NEXT":PRINT"5. QUIT"
420 GETA$:IFA$=""THEN420
430 IFVAL(A$)<1ORVAL(A$)>5THEN420
440 ONVAL(A$)GOTO560,600,620,650,730
450 REM LOAD
460 H$="":INPUT"[147]LOAD (FILENAME)";H$:IFH$=""THEN170
470 IFLEN(H$)>16THEN460
480 OPEN15,8,15:OPEN1,8,2,"0:"+H$+",S,R":GOSUB750:INPUT#1,P:INPUT#1,TL
490 FORI=1TOP:INPUT#1,F$(I):INPUT#1,T(I):INPUT#1,M$(I):NEXTI
500 GOSUB750:CLOSE1:CLOSE15:Z=P:GOTO170
510 REM QUIT
520 PRINT"[147]"TAB(7)"QUIT, ARE YOU SURE?  (Y/N)"
530 GETA$:IFA$="N"THEN170
540 IFA$="Y"THENPRINT"[147]	":END
550 GOTO530
560 PRINT"PICTURE NAME";:INPUTU$
570 IFU$=""THEN380
580 IFLEN(U$)>16THENPRINT"[145][145][145][145]":GOTO560
590 F$(I)=U$:GOTO380
600 T(I)=T(I)+1:IFT(I)=14THENT(I)=1
610 GOTO380
620 PRINT"NEW MESSAGE":INPUTV$:IFV$=""THEN380
630 IFLEN(V$)>40THENPRINT"[145][145][145][145][145][145]":GOTO620
640 M$(I)=V$:GOTO380
650 NEXT
660 PRINT"[147]"TAB(7)"CURRENT DISPLAY TIME IS"TL
670 PRINT""TAB(7)"CHANGE TIME LIMIT?   (Y/N)"
680 GETA$:IFA$="N"THEN730
690 IFA$<>"Y"THEN680
700 PRINT"[147]TIME LIMIT  (1-59)";:INPUTLT:IFLT=.THEN730
710 IFLT>59THEN730
720 TL=LT
730 GOTO170
740 REM READ ERROR CHANNEL
750 INPUT#15,EN,EM$,ET,ES:IFEN=0THENRETURN
760 PRINT"DISK ERROR: "STR$(EN)" "EM$STR$(ET)" "STR$(ES)" "
770 PRINTTAB(14)"PRESS ANY KEY"
780 GETK$:IFK$=""THEN780
790 CLOSE1:CLOSE15:GOTO170
800 DATAKOALA,CREATE WITH GARFIELD,DOODLE,PRINT SHOP SCREEN MAGIC,PAINT NOW!
810 DATAART STUDIO,ADVANCED ART STUDIO,RAINBOW PAINTER,PAINTBRUSH,VIDCOM
820 DATAARTIST 64,BLAZING PADDLES,LORES