Locode 3/5

 BBS: Inland Empire Archive
Date: 01-04-56 (01:04)             Number: 1468
From: BRENT ASHLEY                 Refer#: NONE
  To: ALLAN ZACHARY                 Recvd: NO  
Subj: Locode 3/5                     Conf: (2) Quik_Bas

(Continued from the previous message)

  MID$(Temp$, 2, 1) = MID$(CharSet, (k AND 3) * 16 + (j \ &H10) + 1, 1)
  MID$(Temp$, 1, 1) = MID$(CharSet, (k \ 4) + 1, 1)

  ' return ascii string
  Encode$ = Temp$
END FUNCTION

SUB ProgressMeter (Row, Col, freq)
  ' displays progress meter at row, col, updating
  ' meter once every (freq)
  STATIC Spokes$, Counter, Skip
  ' only assign first time through
  IF NOT LEN(Spokes$) THEN Spokes$ = "\|/-"

  Skip = (Skip + 1) MOD freq
  IF Skip = 0 THEN
    LOCATE Row, Col
    PRINT "["; MID$(Spokes$, Counter + 1, 1); "]";
    Counter = (Counter + 1) MOD 4
  END IF
END SUB
___
 X DeLuxe2 1.12 #10383 X

--- Maximus 2.00
 * Origin: Durham Systems (ONLINE!) (1:229/110)