home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / pktbook / progs / programs16 / S3TRIS_ZIP / SHUTTLE_ZI / SHUTTLE.OPL next >
Text File  |  1993-01-10  |  1KB  |  63 lines
  1. rem TITLE - SHUTTLE.OPL
  2. rem 
  3. rem Copyright (c) Psion PLC 1992.
  4. rem 
  5. rem  Ver    Date    By  Description
  6. rem ===== ======== ==== ===========
  7. rem 0.10A 30/01/92 RMP  Pre-release
  8. rem 
  9.  
  10. PROC shuttle:
  11.  
  12.     LOCAL pP%,pOldP%,f%
  13.     LOCAL i%,s%,psize%,nPairs%,mapID%,scrnID%
  14.     LOCAL save$(20),dev$(2)
  15.     LOCAL screenX%,screenY%,mode%
  16.     LOCAL poly%(3000)
  17.     LOCAL ky%
  18.  
  19.     onerr E::
  20.     screenX%=160
  21.     screenY%=80
  22.         save$= "\shuttle.pic"
  23.     dev$= "m:"
  24.     if not exist(dev$+save$)
  25.         dev$= "a:"
  26.         if not exist(dev$+save$)
  27.             dev$= "b:"
  28.             if not exist(dev$+save$)
  29.                 stop
  30.             endif
  31.         endif
  32.     endif
  33.  
  34.     scrnID%=gIdentity
  35.     gGmode 0
  36.     do
  37.         mapID%=gLoadBit(dev$+save$,1,f%)
  38.         f%=f%+1 :if f%>65 :f%=0 :endif
  39.         gUse scrnID%                         :rem Switch back to screen
  40.         gCopy mapID%,0,0,screenX%,screenY%,3 :rem Copy to screen with replace
  41.         gClose mapid%
  42.         ky%= key
  43.         if ky%<>0
  44.             if (ky%=32) or (ky%=27)
  45.                 stop
  46.             else    rem/* wait for another keypress */
  47.                 get
  48.             endif
  49.         endif
  50.         continue
  51.  
  52.     E::     
  53.         if (err=-36)
  54.             f%=0
  55.             continue
  56.         endif
  57.         print err,err$(err)
  58.         get
  59.         stop
  60.     until (ky%=32) or (ky%=27)
  61.     stop
  62. ENDP
  63.