home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 109
/
109.d81
/
beyond
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
4KB
|
116 lines
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$="beyond.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$="000015":d2$="000030":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,"[193][210][212] [198][210][207][205] [194][197][217][207][206][196]"
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,"s0:beyond":[160]15:[148]"beyond",8:[144]