home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / OLM.BAS < prev    next >
BASIC Source File  |  1994-01-14  |  546b  |  21 lines
  1. SUB GETOLM
  2. SHARED OLMPath$
  3.  IF DIR$(OLMPath$+Global$(1)+".OLM")<>"" THEN
  4.     LET Fi%=FREEFILE
  5.         PROZOPRINT CHR$(7)
  6.         IF tty THEN PROZOPRINT CrLf$
  7.     OPEN OLMPath$+Global$(1)+".OLM" FOR INPUT AS #Fi%
  8.     DO WHILE NOT EOF(Fi%)
  9.  
  10.                 LINE INPUT #Fi%, A$
  11.                 CALL PROZOL("PRINT '@SCP()@LOCATE(22,1)"+A$+"@RCP()'")
  12.                 PROGDELAY 2
  13.     LOOP
  14.     CLOSE #Fi%
  15.     KILL OLMPath$+Global$(1)+".OLM"
  16.         'PROZOPRINT "Press a key..."+CrLf$
  17.     'CWAIT
  18.         IF tty THEN PROZOPRINT LastPrompt$
  19.  END IF
  20. END SUB
  21.