home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 12: Textmags & Docs / nf_archive_12.iso / MAGS / TEXTMAGS / 3RD_DIM / 3RDDM18.MSA / ROUTINES / 4DGTMINS.TXT < prev    next >
Text File  |  2004-06-27  |  1KB  |  79 lines
  1. TIME (V30,V31,V32)
  2. TOASCII (V30,2,S1)
  3. TOASCII (V31,2,S2)
  4. TOASCII (V32,2,S3)
  5. ADDSTR (S3,S2)
  6. ADDSTR (S2,S1)
  7. FOR (V33,1,4)
  8.  SETVAR (V33,V34)
  9.  ADDVAR (2,V34)
  10.  SETVAR (V34,V35)
  11.  ADDVAR (4,V35)
  12.  MIDSTR (S2,V33,V33,S4)
  13.  FROMASCII (S4,V36)
  14.  IF  VAREQ? (1,V36)
  15.  THEN
  16.   SETVAR (16,V37)
  17.   SETVAR (16,V38)
  18.  ENDIF
  19.  IF  VAREQ? (2,V36)
  20.  THEN
  21.   SETVAR (22,V37)
  22.   SETVAR (14,V38)
  23.  ENDIF
  24.  IF  VAREQ? (3,V36)
  25.  THEN
  26.   SETVAR (22,V37)
  27.   SETVAR (22,V38)
  28.  ENDIF
  29.  IF  VAREQ? (4,V36)
  30.  THEN
  31.   SETVAR (26,V37)
  32.   SETVAR (20,V38)
  33.  ENDIF
  34.  IF  VAREQ? (5,V36)
  35.  THEN
  36.   SETVAR (14,V37)
  37.   SETVAR (22,V38)
  38.  ENDIF
  39.  IF  VAREQ? (6,V36)
  40.  THEN
  41.   SETVAR (14,V37)
  42.   SETVAR (30,V38)
  43.  ENDIF
  44.  IF  VAREQ? (7,V36)
  45.  THEN
  46.   SETVAR (20,V37)
  47.   SETVAR (16,V38)
  48.  ENDIF
  49.  IF  VAREQ? (8,V36)
  50.  THEN
  51.   SETVAR (30,V37)
  52.   SETVAR (30,V38)
  53.  ENDIF
  54.  IF  VAREQ? (9,V36)
  55.  THEN
  56.   SETVAR (30,V37)
  57.   SETVAR (20,V38)
  58.  ENDIF
  59.  IF  VAREQ? (0,V36)
  60.  THEN
  61.   SETVAR (28,V37)
  62.   SETVAR (26,V38)
  63.  ENDIF
  64.  FOR (V39,1,4)
  65.   IF   BITSET? (V39,V37)
  66.   THEN
  67.    SETOBJCOL (8,V39,V34)
  68.   ELSE
  69.    SETOBJCOL (0,V39,V34)
  70.   ENDIF
  71.   IF   BITSET? (V39,V38)
  72.   THEN
  73.    SETOBJCOL (8,V39,V35)
  74.   ELSE
  75.    SETOBJCOL (0,V39,V35)
  76.   ENDIF
  77.  NEXT
  78. NEXT
  79.