home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1989 May
/
1989-05.d64
/
show.player
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
50 lines
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