home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 004 / oplexamp_z / EX_ANIMA.OPL < prev    next >
Text File  |  1992-08-27  |  892b  |  40 lines
  1. PROC animate:
  2. LOCAL id%(5),i%,j%,s$(5,5),w%,h%
  3. print "This version uses the Psion logo"
  4. print "ALERT: makes 5 .pic files" :get :cls
  5. i%=gloadbit("rom::logo.pic")
  6. gat 0,0
  7. gsavebit "one.pic",15,28
  8. gat 16,0
  9. gsavebit "two.pic",14,28
  10. gat 31,0
  11. gsavebit "three.pic",10,28
  12. gat 42,0
  13. gsavebit "four.pic",16,28
  14. gat 59,0
  15. gsavebit "five.pic",15,28
  16. gCLOSE i%
  17. w%=16 :h%=28 REM example width and height
  18. s$(1)="one" :s$(2)="two" :s$(3)="three"
  19. s$(4)="four" :s$(5)="five"
  20. j%=1
  21. WHILE j%<6
  22.     i%=gLOADBIT(s$(j%))
  23.     id%(j%)=gCREATE(0,0,w%,h%,0)
  24.     gCOPY i%,0,0,w%,h%,3
  25.     gCLOSE i%
  26.     j%=j%+1
  27. ENDWH
  28. i%=0 :gorder 1,9
  29. DO
  30.     j%=(i%-5*(i%/5))+1 REM (i% MOD 5)+1
  31.     gVISIBLE OFF REM previous window
  32.     gUSE id%(j%) REM new window
  33.     gSETWIN i%,20 REM position it
  34.     gORDER id%(j%),1 REM make foreground
  35.     gVISIBLE ON REM make visible
  36.     i%=i%+1
  37.     PAUSE 2
  38. UNTIL KEY OR (i%>(240-w%)) REM screen edge
  39. ENDP
  40.