home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / m / menubar / !MenuBar / Overlays / Sprites < prev   
Encoding:
Text File  |  1997-01-07  |  1.6 KB  |  3 lines
  1.  
  2. 5ô> Sprites & SysVars
  3. 6õÝòmy:êIu%,Sy%,W$,n$,Zy$:n$=U$+".RAMpool":Zy$=U$+".Sprites":òy(-1):È−&400EA¸,Iu%:È−46,8+256,Iu%¸,,d%,Al%:gy%=¤A(d%+16):gy%!0=d%+16:gy%!8=16:È−46,9+256,gy%:È−46,&C+256,Iu%,n$:È−46,&A+256,gy%,n$:N%=0:ãJ%=Al%¸1⇦-1:N%+=1:rl%=¨(N%/Al%*&64):òy(rl%)
  4. 7W$=¤Wy(J%):ȉ¹Ê
  5. 8#ÉÀW$,1)="!":ç¤p("sm"+W$)…òi(W$)
  6. 9)ÉÀW$,5)="file_":ç¤p("small_"+ÂW$,3))…
  7. :
  8. òi(W$)
  9. ;Í
  10. <ÉÀW$,3)="sm!"
  11. =ÉÀW$,6)="small_"
  12. > òi(W$)
  13. ?6Ë:í:òy(&64):È−46,&C+256,gy%,Zy$:È−8,6,n$:òA(gy%):á
  14. @BݤWy(Vi%):êe%:È−46,&D+256,gy%,C%,16,Vi%¸,,,e%:?(C%+e%)=&D:=$C%
  15. A5ݤp(W$):È−&2002E,40+256,gy%,W$¸;Hy%:ç(Hy%€1)=0…=¹
  16. B=£:á
  17. C Ýòi(W$):È−46,25+256,gy%,W$:á
  18. DÝòy(N%):ȉ¹Ê
  19. EÉN%<0:È−&406C0
  20. FÉN%>99:È−&406C2
  21. GÈ−&406C4,N%
  22. HË:á
  23. I{Ýòm_:ê`u%,J_%,V%,Hy%,Y$,Q$:Z$=U$+".SysVars":F%=®(Z$):È−&20023,"*",A%,256,0¸,,`u%,J_%,V%;Hy%:È”(Hy%€1)<>1:A%?`u%=0:ȉV%Ê
  24. JDÉ0:Y$=¤By(A%):Y$=¤v(Y$):Y$=""""+Y$+"""":Q$="Set "+¤Q(J_%)+" "+Y$
  25. K)É1:Q$="SetEval "+¤Q(J_%)+" &"+Ã~(!A%)
  26. L8É2:Y$=¤Q(A%):Y$=¤v(Y$):Q$="SetMacro "+¤Q(J_%)+" "+Y$
  27. M
  28. Ë:ȉ¹Ê
  29. NɧQ$,"$Running")>0
  30. OɧQ$,"$Loaded")>0
  31. P É§Q$,"SetMacro Font$Path")>0
  32. QɧQ$,"Set Font$Prefix")>0
  33. RɧQ$,"Set Sys$")>0
  34. S)ɧQ$,"SetEval Desktop$ActiveTasks")>0
  35. TɧQ$,"Set FS$")>0
  36. UɧQ$,"Set Internal$Path")>0
  37. VɧQ$,"SetMacro FS$")>0
  38. W#ɧQ$,"SetEval Edit$Tokenise")>0
  39. X%ɧQ$,"SetEval Edit$Detokenise")>0
  40. Y
  41. :Õ#F%,Q$
  42. ZTË:È−&20023,"*",A%,256,J_%¸,,`u%,J_%,V%;Hy%:Î:Ù#F%:F%=0:ÿ("SetType "+Z$+" FEB"):á
  43. [#ݤBy(W%):êA$:A$="":È”?W%>0:ȉ¹Ê
  44. \É?W%<32:A$+="|"+½((?W%)+64)
  45. ]É?W%=34:A$+="|"""
  46. ^É?W%=&7C:A$+="||"
  47. _A$+=½(?W%)
  48. `Ë:W%+=1:Î:=A$
  49. aIݤv(Q$):êJ%,A$,T$:A$="":ãJ%=1¸©Q$:T$=ÁQ$,J%,1):A$+=T$:çT$="%"…A$+="%"
  50. b    í:=A$
  51. ÿ