100 REM VIEW SLIDESHOW BY STEVE EMSLEY
110 IFDV=0THENPOKE55,.:POKE56,88:CLR:DV=PEEK(186):IFDV<8THENDV=8
120 IFA=0THENA=1:LOAD"ES3.O",DV,1
130 IFA=1THENA=2:LOAD"TOOLKIT CC00",DV,1
140 VI=53248:DN$="":MT=49152+12*256:CM=MT:BOX=MT+3
150 DIMPN$(24),D1(24),D2(24),SP(24),PM$(24,11),TX(24),BR(24),BK(24),CT(24)
160 SN$="SLICKSHOW DM.SCR":REM NAME OF SLIDESHOW
165 IFRIGHT$(SN$,4)=".SCR"THENSN$=LEFT$(SN$,LEN(SN$)-4)
170 POKE53280,00:POKE53281,00:REM SET BACKGROUND AND BORDER COLORS FOR START
180 D1$="000010":D2$="000020":REM SET DELAYS, 1 FOR TEXT, 2 FOR PIC
190 PM=49152:TM=PM+3:REM PM IS PIC MODE & TM IS TEXT MODE
200 SV(1)=49158:REM ROUTINE TO SAVE PIC AS KOALA
210 SV(2)=49161:REM ROUTINE TO SAVE PIC AS KOALA
220 SS=51029
230 ::
240 PRINT"[147]":POKE53272,23:GOSUB950
250 MS$="[210]EADING [211]LIDESHOW [196]ATA...":GOSUB1060
260 OPEN1,DV,15,"I0":OPEN2,DV,2,"0:"+SN$+".SCR,S,R":GET#2,A$,A$
265 INPUT#1,E:IFETHEN570
270 INPUT#2,PN
280 FORW=1TOPN:INPUT#2,PN$(W),D1(W),D2(W),SP(W),TX(W),BR(W),BK(W),CT(W)
290 IFCT(W)THENGOSUB320:GOSUB330:GOTO310
300 GOSUB330:GOSUB320
310 NEXT:CLOSE2:CLOSE1:GOTO340
320 FORJ=1TO11:INPUT#2,X$:NEXT:RETURN
330 FORJ=1TO11:INPUT#2,PM$(W,J):NEXT:RETURN
340 FORW=1TOPN:F$=PN$(W):IFRIGHT$(F$,2)<>".P"THENF$=F$+".P"
350 X1=9+(3*D1(W)):X2=36+(3*D2(W)):REM SET UP DISPLAY TYPE
360 GOSUB890:POKE53280,BR(W):POKE53281,BK(W):POKE646,TX(W)
370 SYSBOX,1,38,7,17,160,PEEK(646):POKE199,1
380 FORZ=1TO11:IFPM$(W,Z)=""THEN400
390 SYSMT+18,6+Z,PM$(W,Z)
395 REM SYSMT+15,1,6+Z,PM$(W,Z)
400 NEXTZ:POKE49775,SP(W):POKE49798,SP(W):POKE198,.
410 GOSUB920:TI$="000000":SYSMT+6,216:POKE198,0
420 IFTI$>D1$THEN450
430 GETA$:IFA$<>" "ANDA$<>"Q"THEN420
440 POKE198,0:JQ%=0:IFA$="Q"THENJQ%=1:GOSUB750:GOTO430
450 PRINT"[147]":SYSPM:POKE53280,PEEK(SS):POKE53281,PEEK(SS+1):SYSPM+X1:TI$="000000"
460 IFTI$>D2$THEN560
470 GETA$:IFA$=""THEN460
480 IFA$=CHR$(133)THENSYS50845:GOTO460
490 IFA$=CHR$(137)THENSYS50857:GOTO460
500 IFA$=CHR$(134)THENSYS50827:GOTO460
510 IFA$=CHR$(138)THENSYS50839:GOTO460
520 IFA$=CHR$(32)THEN560
530 IFA$="S"ORA$="[211]"THENGOSUB580:GOTO460:SAVE PIC
540 IFA$="Q"ORA$="[209]"THENGOSUB750
550 GOTO460
560 SYSPM+X2:SYSTM:NEXT:GOTO340
570 MS$="[195]AN'T ACCESS SLIDESHOW DATA!":CLOSE2:CLOSE1:GOSUB1070:PRINT"[147]":END
580 TT$=TI$:SYSTM:SYSMT+9,216:MS$="[211]AVE THIS UNPACKED PICTURE? ([217]/[206])":GOSUB1070
590 IFA$="Y"ORA$="[217]"THEN610
600 MS$="[208]RESS A KEY TO CONTINUE":GOTO740
610 MS$="[211]AVE AS [203]OALA OR [207][195][208]? ([203]/[207])":GOSUB1070:IFA$<>"K"ANDA$<>"O"THEN610
620 IN$=LEFT$(F$,LEN(F$)-2):IFA$="O"THEN660
630 SF$=CHR$(129)+"PIC A "+IN$+"         "
640 IFLEN(SF$)>15THENSF$=LEFT$(SF$,15)
650 GOTO690
660 SF$=IN$+"             "
670 IFLEN(SF$)>12THENSF$=LEFT$(SF$,12)
680 SF$=SF$+"MPIC"
690 GOSUB1080:OPEN1,JJ,15:OPEN8,JJ,2,SF$:INPUT#1,ER,ER$:CLOSE8:CLOSE1
700 IFER=.THEN730
710 MS$="[211]AVING...":GOSUB1060:OPEN9,JJ,1,SF$:IFLEN(SF$)=15THENSYSSV(1):GOTO730
720 SYSSV(2)
730 CLOSE1:OPEN1,JJ,15:INPUT#1,AA$,BB$,CC$,DD$:MS$=AA$+","+BB$+","+CC$+","+DD$
740 CLOSE1:GOSUB1070:SYSPM:TI$=TT$:RETURN
750 TT$=TI$:SYSTM
760 SYSMT+9,216:MS$="[209]UIT? [193]RE YOU SURE? ([217]/[206])":GOSUB1070:IFA$<>"Y"THEN800
770 POKE55,.:POKE56,160:
780 MS$="[201]NSERT [204][207][193][196][211][212][193][210] DISK AND PRESS A KEY":GOSUB1070
790 GOTO1160
800 IFJQ%THENSYSMT+9,216:RETURN
810 PRINT"[147]":SYSPM:TI$=TT$:RETURN
820 IN$="":POKE198,.:PRINT"[154][164]";
830 WAIT198,15:GETZ$:Z=ASC(Z$):IFZ>218THEN830
840 ZL=LEN(IN$):IFZL>LNTHEN860
850 IFZ>31THENIN$=IN$+Z$:PRINT"[157]"Z$"[164]";:GOTO830
860 IFZ=13THENPRINT"[157] ":IN=VAL(IN$):RETURN
870 IFZ=20ANDZLTHENIN$=LEFT$(IN$,ZL-1):PRINT"[157][157][164] [157]";
880 GOTO830
890 REM PUT MESSAGES AND OTHER JUNK ONTO THE SCREEN
900 SYSMT+9,208
910 RETURN
920 OPEN1,DV,15:OPEN8,DV,2,F$:INPUT#1,E:CLOSE8:CLOSE1:IFETHEN940
930 SYS50863,F$,DV
940 RETURN
950 PRINT"[147]":SYSMT+3,0,39,0,0,111,1:SYSMT+3,0,39,1,3,160,7
960 SYSMT+3,0,39,4,4,119,10:PRINT"[158]";
970 SYSMT+18,2,"[211] [204] [201] [195] [203] [211] [200] [207] [215]"
980 SYSBOX,0,39,6,6,98,13:SYSBOX,0,39,18,18,226,5:SYSBOX,0,0,7,18,225,13
990 SYSBOX,39,39,7,17,97,5:SYSBOX,1,38,7,17,160,3:POKE1024+40*6,108
1000 POKE1024+40*7-1,123:POKE1024+40*18,124:POKE1024+40*19-1,126
1010 SYSBOX,0,39,24,24,120,6:SYSBOX,0,39,21,23,160,14:SYSBOX,0,39,20,20,121,3
1020 :PRINT"[154]";:SYSMT+15,1,21,"[198]1/[198]2 [208]IC [194]ACKGROUND [198]3/[198]4 [208]IC [194]ORDER"
1030 SYSMT+18,22,"[211] [211]AVE [208]ICTURE  [209] [209]UIT [212]O [204][207][193][196][211][212][193][210]
1040 [158]MT[170]18,23,"(null)(null)ATNLENVAL NEXT PICTURE":[158]MT[170]6,208:[142]
1050 [144]
1060 [158]BOX,0,39,21,23,160,14:[153]"CONT";:[158]MT[170]18,22,MS$:MS$[178]"":[142]
1070 [141]1060:[151]198,0:[146]198,15:[161]A$:[142]
1080 [158]BOX,30,35,4,14,255,6:[158]BOX,31,36,3,13,160,13:[153]"PRINT";
1090 [129]I[178]0[164]8:[158]MT[170]15,32,4[170]I,[196](8[170]I):[130]
1100 [139]MS$[179][177]""[167][141]1060:[137]1120
1110 MS$[178]"(null)LEASE (null)ELECT STR$ESIRED STR$RIVE":[141]1060
1120 [158]MT,4,32,35,9,13,1,0:[161]A$:JJ[178][197](A$)[170]7:[160]2:[159]2,JJ,2:[160]2
1130 [139]ST[167]1120
1140 [142]
1160 A$[178]"HELLO CONNECT":[129]I[178]8[164]9:[160]2:[159]2,I,2:[160]2:[139]ST[167]1180
1170 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]1190
1180 [130]:[153]"LOAD":[128]
1190 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD"
1200 [153]"LOADLOAD"Q$A$Q$","I
1210 [153]"RUN":[151]631,13:[151]632,13:[151]198,2:[128]
10000 [160]15:[159]15,8,15,"S:SLIDESHOW":[160]15:[148]"SLIDESHOW",8:[144]