home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 12: Textmags & Docs / nf_archive_12.iso / MAGS / TEXTMAGS / 3RD_DIM / 3RDDM04.MSA / LOADSAVE / SAVE.TXT < prev    next >
Text File  |  2004-06-27  |  727b  |  73 lines
  1.                        THE THIRD DIMENSION
  2. The code below the dotted line is to accompany the LOADSAVE.TXT
  3. file by Robin Ball.Delete all of the writing above and including 
  4. the dotted line if you wish to use the code in the 3D KITS.
  5. --------------------------------------------------------------- 
  6.  
  7. IF FEXISTS? ("save.pos")
  8. THEN
  9.  SETVAR (V0,V50)
  10.  SETVAR (V1,V51)
  11.  SETVAR (V2,V52)
  12.  SETVAR (V3,V53)
  13.  SETVAR (V4,V54)
  14.  SETVAR (V5,V55)
  15.  FOPEN ("save.pos",1)
  16.  FPUT (V49)
  17.  FPUT (V50)
  18.  FPUT (V51)
  19.  FPUT (V52)
  20.  FPUT (V53)
  21.  FPUT (V54)
  22.  FPUT (V55)
  23.  FPUT (V100)
  24.  FPUT (V101)
  25.  FCLOSE
  26. ELSE
  27.  Print ("can't find file",1)
  28. ENDIF
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.