home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaDemoCD2.iso / DEMOS / SOD-ShadowRun.DMS / SOD-ShadowRun.adf / DidsDecode.AMOS / DidsDecode.amosSourceCode
Encoding:
AMOS Source Code  |  1992-09-19  |  414 b   |  20 lines
  1. INITSCREEN:
  2.  Screen Open 1,640,256,16,Hires
  3. INIT:
  4.  F$=Fsel$("","","Load-A","Dids-Text")
  5. OPSHI:
  6.  Open In 1,F$
  7. MAIN:
  8.  While Eof(1)=0
  9.        Input #1,LIN$
  10.        For L=Len(LIN$) To 1 Step -1
  11.            CHAR$=Mid$(LIN$,L,1)
  12.            GCHAR$=Chr$((Asc(CHAR$))-1)
  13.            Print GCHAR$;
  14.            If Mouse Key=2
  15.               While Mouse Key=2
  16.               Wend 
  17.            End If 
  18.        Next L
  19.        Print 
  20.  Wend