home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 May / 1989-05.d64 / show.player (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  50 lines
  1. 10 rem copyright 1989 compute! publications, inc. - all rights reserved
  2. 20 ifpeek(49168)<>96thenload"ss.ml",8,1
  3. 30 poke52,68:poke56,68:clr:dims(13):poke53280,.:poke53281,.:gosub420:l=49805
  4. 40 n=49750:fori=1to13:reads(i):nexti:print"(press return to quit)[145][145]"
  5. 50 n$="":input"filename";n$:ifn$=""thenprint"[147]":end
  6. 60 open15,8,15:open1,8,2,"0:"+n$+",s,r":gosub450
  7. 70 input#1,p:input#1,tl:dimf$(p),t(p),m$(p)
  8. 80 fori=1top:input#1,f$(i):input#1,t(i):input#1,m$(i):nexti:gosub450
  9. 90 close1:gosub250
  10. 100 fori=1top:gosub420:b=int(40-len(m$(i)))/2:printtab(b)m$(i)
  11. 110 ift(i)=13then170:rem seq file
  12. 120 pokel,96:ift(i)=3ort(i)=8thenpokel,92
  13. 130 ift(i)=9ort(i)=10thenpokel,88
  14. 140 sys49152,f$(i),8:gosub450
  15. 150 poke49269,16:ift(i)=5thenpoke49269,1
  16. 160 goto210
  17. 170 open1,8,2,f$(i):w=24576:gosub450
  18. 180 get#1,a$:pokew,asc(a$+chr$(0)):ifstthen200
  19. 190 w=w+1:goto180
  20. 200 close1:pokew,.
  21. 210 print"[147]":syss(t(i)):ti$="000000":poke198,.
  22. 220 geta$:if(a$="")and(ti/60<tl)then220
  23. 230 sysn:ifa$="q"thenclose15:run
  24. 240 nexti:goto100
  25. 250 fori=1top:e$=f$(i)
  26. 260 ont(i)gosub280,290,320,330,340,350,360,370,380,390,400,410,330
  27. 270 f$(i)=e$:next:return
  28. 280 e$="?pic ? "+e$+"*":return
  29. 290 q$="":forj=1tolen(e$)
  30. 300 r$=mid$(e$,j,1):r=asc(r$):ifr>64thenr=r+32
  31. 310 q$=q$+chr$(r):next:e$="[crt?>"+q$+"*":return
  32. 320 e$="dd"+e$:return
  33. 330 return
  34. 340 e$="pn."+e$:return
  35. 350 e$=e$+"          ":e$=left$(e$,11)+"  pic":return
  36. 360 e$=e$+"           ":e$=left$(e$,12)+"mpic":return
  37. 370 e$="rp."+e$:return
  38. 380 e$="\"+e$:return
  39. 390 e$="b."+e$:return
  40. 400 e$="p-"+e$:return
  41. 410 e$="pi."+e$:return
  42. 420 print"[147][155]"chr$(142)tab(12)"super  slideshow"
  43. 430 printtab(3)"copyright 1989 compute! publ., inc."
  44. 440 printtab(11)"all rights reserved":return
  45. 450 input#15,en,em$,et,es:ifen=0thenreturn
  46. 460 sysn:print"disk error: "str$(en)" "em$str$(et)" "str$(es)" "
  47. 470 close1:close15:print"":end
  48. 480 data49169,49215,49228,49268,49268,49296,49315
  49. 490 data49362,49426,49500,49564,49632,49646
  50.