The Datafile PD-CD 3/PDCD_3.iso/pocketbk/developmen/rvtrn33/RVTRN3.OPA/RVTRN3.txt

Text File | 1995-02-22 | 8KB | 711 lines

OPLObjectFile**
LOC::M:\OPL\REVTRAN.OPLt
Revtran.ODB
\OPD\
PROGNM$
INDCH%
INDENT$
VERBOSE%
LVROOT$
PPROOT$
VPLIN&
TABHNDL%
HEXLIT%
JMODE%
NONOPL%
FILETYP$
QNAME$
QPOS&
DCLADR&
QHANDLE%
QLENGTH&
ORGPATH$
FSTDCL&
NPROCS%
PICADR&
PICSZ%
APPNM$
EXTNM$
APPPTH$
APPTYP%
APPTYP$
PICPTH$
MAINNM$
OPROOT$
OPLNM$
PROCNO%
PROCNM$
BODYADR&
NEWAPTY$
TRVER%
RTIVER%
S3AOPO%
PPOFFS%
LVOFFS%
FSTPROC&
LSTPROC&
USRABRT%
INDENT$
Revtran V3.3 (1995)
\APP\
rtout
OPL Reverse-TranslatorO
Please do NOT distribute anyO
program altered using Revtran.O
See accompanying REVTRAN.TXTO
(Press EnterO
\REVTRAN.TBL
:\APP
\REVTRANK
Q-code table file
(NID[3
is corrupted
or out-of-date.
kdoax
Revtran+    Write PICOk+
Show file DetailsOd+
Open another FileOo+
AboutOa+
ExitOx
wkdoax
Revtran+    Write OPLOw+    Write PICOk+
Show file DetailsOd+
Open another FileOo+
AboutOa+
ExitOx
Revtran+
Show file DetailsOd+
Open another FileOo+
AboutOa+
ExitOx
wdoax
Revtran+    Write OPLOw+
Show file DetailsOd+
Open another FileOo+
AboutOa+
ExitOx
Revtran+    Open FileOo+
AboutOa+
ExitOx
choice
VERS$
QHANDLE%
NONOPL%
FILETYP$
S3AOPO%
PICADR&
APPTYP$
PICSZ%
QNAME$
MAINNM$
NPROCS%
ORGPATH$
TRVER%
RTIVER%
Input file details:
File type:
OPA type
PICG\
UnknownG\[#
+    , Has PIC
, No PIC
+    Pathname:
Main PROC:
:  (1 of
Original OPL:
Translator version:
Required RTI version:
No input file.
CLOSEQ
SETOPRT
IMAGE
PICFILE
APPGROUP
OPLOBJ
QNAME$
QHANDLE%
PICSZ%
QPOS&
FILETYP$
NONOPL%
Open input file
File:O
File does not existW8
ImageFileType**C[
Image
AppAliasFile***C[
+    App Alias
AppGroupFile***C[
+    App Group
OPLObjectFile**C[
OPL Object
Unknown
+# file type; can't reverse-translateK
GETQ%
GETQ$
GETQ&
CAPITAL$
RTPROC&
FOURHEX$
PLURAL$
QPOS&
ORGPATH$
PICADR&
PICSZ%
QLENGTH&
TRVER%
RTIVER%
S3AOPO%
FSTDCL&
MAINNM$
NPROCS%
FSTPROC&
LSTPROC&
QHANDLE%
APPNM$
EXTNM$
APPPTH$
APPTYP%
APPTYP$
NEWAPTY$
Counting PROCsO
 PROCK
K+     counted.K
GETQ%
GETBQ%
QPOS&
PICADR&
PICSZ%
OID`S
OCD`[
GETQ%
QPOS&
PICSZ%
PICADR&
GETQ%
PICADR&
QPOS&
PICSZ%
SYSQUIT%
INDENT$
WRITEAPP
RTPROC&
CHKABRT%
CHOICEX
OPLNM$
OPROOT$
PICADR&
NPROCS%
FSTPROC&
LSTPROC&
PPROOT$
LVROOT$
VPLIN&
INDCH%
VERBOSE%
HEXLIT%
JMODE%
INDENT$
APPNM$
EXTNM$
APPPTH$
PICPTH$
NEWAPTY$
USRABRT%
S3AOPO%
PROGNM$
QNAME$
PROCNO%
FSTDCL&
PROCNM$
BODYADR&
\OPL\*.oplO
+    Write OPL
File:O
Module type+
OPO,OPA
Text features+
Current,Alter
First PROCO
+    Last PROCO
Proc. param. prefix
Local var. prefix
Variables per lineO
Indentation string+"1 space,2 spaces,3 spaces,Tab,None
Comments+
Terse,Verbose
Integer literals+
Decimal,Hexadecimal
ELSE and WHILE+
Both,No ELSE,No WHILE,Neither
+!OPL(OPA) output APP..ENDA details
APP   name
EXT   extension
PATH directory
ICON  pathO!
+    TYPE code
REM Reverse-translated Series 3
 OPL,
REM created by
REM from
REM on
+ REM Please do NOT distribute any
+"REM program altered using Revtran,
REM except with permission from
+"REM the program's original author.
REM Out of
PROCs,
 none were
REM only PROC
 number
+#REM asked to be reverse-translated.
REM Any ELSE statements will be
REM replaced by GOTO to reduce
REM structure nesting depth.
+ REM Any WHILE statements will be
+"REM replaced by GOTO to avoid mis-
+ REM interpretation of WHILE from
REM poorly-structured code.
Omitting PROC
REM Omitted PROC
: at &
REM PROC number
+,REM Incomplete Revtran output - user-aborted
Output aborted
finished OK.
Output finished OK
GETQ%
PLURAL$
QPOS&
PICADR&
PICPTH$
OPROOT$
QHANDLE%
PICSZ%
+    Write PIC
There are
 bitmaps in the PIC.K
Write which to file?O
SomeOS+
AllOA
Write Bitmaps
 x KS
Yes,No
(others not written)
MoreO
\PIC\*.PICO
Write PIC file (
 bitmapK
File:O
Writing PIC fileO
Oa@[Q
+     written.K
PROGNM$
About
+' Mike Rudin, [e-mail]
+)Please distribute freely, in REVTRAN.ZIP.
++REVTRAN.TXT must accompany this program; it
+%contains copyright and usage details.
++Please send small tokens of appreciation to
+)9 Highfield Rd., Coventry England CV2 4GU
CLOSEQ
TABHNDL%
APPNM$
EXTNM$
INDENT$
APPPTH$
PICPTH$
NEWAPTY$
NewApp
INDCH%
QNAME$
OPROOT$
OPLNM$
PICPTH$
QHANDLE%
CMDA%
CMDF%
MAXCMD%
PASS%
QSTART&
CSIDX%
GLDCNM$
GLDCAD%
ENDPR%
ENDPRM%
ENDGLDC%
ENDDYN%
PRRFNM$
PRRFPA%
PRRFAD%
GLRFNM$
NLCDC%
LCDCAD%
LCDCTY%
LCDCAS%
CHRLIT%
PROP%
PRNCHRS%
CMDPOSX%
CMDPOSY%
DEPWARN%
GETQ$
CAPITAL$
GETQ&
GETQ%
GETBQ%
PROCPROB
PRMNM$
FOURHEX$
IXOF%
PASS1$
CHKABRT%
LWSTLOC%
LOCNM$
PASS2
PASS3
QPOS&
PROCNM$
BODYADR&
VERBOSE%
OPLNM$
PROCNO%
NPROCS%
S3AOPO%
VPLIN&
INDENT$
USRABRT%
LVOFFS%
PPOFFS%
REM Original line number =
Writing to
Command no.
+    Procedure
(Esc to abort)
(O(8[!
Too many parametersO
Reading headerO
REM Max. Stack space needed:
REM Number of bytes of Q-code:
Too many globals declaredO
x*Od@[4
+&Too many external procedure referencesO
D+Od@[1
+#Too many external global referencesO
,Od@[4
+&Too many local/global strings declaredO
r.Od@[&
Too many arrays declaredO
GLOBAL
x.PH|W
REM Start of Q-code at: &
Pass 1: find commandsO
LOCAL
Unusual gap in localsW8
+     Problem:
 byte(s) to fill
Pass 2: infer control structureO
Pass 3: write out OPL textO
Problem; see OPL output fileW8
; procedure skipped.
ENDDYN%
NLCDC%
LCDCTY%
LCDCAD%
LOCNM$
CHOICEX
IXOF%
ENDGLDC%
NLCDC%
LCDCAD%
LCDCTY%
GLDCNM$
GLDCAD%
Od@[k
+*Unrecoverable problem; see OPL output fileW8
+    More than
locals declared; Revtran halted
PRMNM$
ENDPRM%
ENDPR%
GLRFNM$
CMDSTRT&
CHOICEX
QPOS&
Parse stack underflow at &    ,
NXTQ%
GETBQ%
GETQ%
LVAR$
EVAR$
SADR%
LOGNM$
FOURHEX$
GETQ&
F2STR$
GETQ$
UNKWNQ
PRCALL%
TABLE%
OPER%
PRNCALL%
ASSIGN%
PRITEM%
FNORCMD%
PASS%
HEXLIT%
CHRLIT%
CMDF%
MAXCMD%
O'4[T
O(@[?
O)@[A
O_@`[
Og@`[
Oc@[0
Ow4[1
RETURN
INPUTO
O0LPH
FOURHEX$
QPOS&
CMDSTRT&
Unknown Q-code $
 at &K
 in cmd at &K
UNKWNQ
GETBQ%
FNORCMD%
GETQ%
CMDWTH%
LOGNM$
SADR%
GETQ$
UJMP%
LPRIND
TABHNDL%
QPOS&
QSTART&
PASS%
CMDF%
MAXCMD%
CSIDX%
PROP%
PRNCHRS%
LOeH{
 OFFK
 OFFK
 OFFK
 ON,K
 OFFKO
O    @[.
Od8`[
gPRINT
gPRINT
 OFFK
Unknown special Q-code typeW8
DOADDR
SADR%
PASS%
SADR%
PASS%
CMDF%
MAXCMD%
CMDWTH%
PASS%
CMDF%
MAXCMD%
QPOS&
QSTART&
BREAK
CONTINUE
ADDR(W
)C\[&
FADR%
SADR%
PASS%
< <=> >== <>
 AND
SADR%
PASS%
IXOF%
SADR%
PRRFAD%
PRRFPA%
PASS%
PRRFNM$
SADR%
PASS%
LPRIND
SADR%
PASS%
CMDF%
MAXCMD%
PROP%
PRNCHRS%
CSIDX%
Od8`[
PRINT
Od8`[
LPRINT
PRINT
LPRINT
PRINT
LPRINT
TYPECHR$
PPROOT$
PPOFFS%
TYPECHR$
LVROOT$
LVOFFS%
FOURHEX$
QPOS&
IxOf%: value
 absent. Qpos=&K    "
QHANDLE%
QPOS&
QHANDLE%
QPOS&
QHANDLE%
QPOS&
QHANDLE%
QPOS&
QHANDLE%
QPOS&
CHKABRT%
PRSCMD
QPOS&
MAXCMD%
CMDPOSX%
CMDPOSY%
CMDA%
QSTART&
CMDF%
Too many commands
GETQ%
CMDWTH%
FINDIF
PRSCMD
MAXCMD%
CMDF%
CMDA%
QPOS&
QSTART&
JMODE%
CMDF%
GETQ%
CMDWTH%
FINDIF
SAMELP%
CMDA%
QPOS&
QSTART&
CMDF%
JMODE%
\(0 `
CHKABRT%
LPRIND
GETQ%
PRSCMD
CMDPOSX%
CMDPOSY%
CSIDX%
MAXCMD%
QPOS&
CMDA%
QSTART&
CHRLIT%
CMDF%
PROP%
DEPWARN%
JMODE%
ENDWH
ENDIF
\O0@\[
ELSEIF
WHILE
Unexpected UNTIL at &    E
UNTIL
Too complex
+%This procedure has more than 8 nested
+$control structures.  Try again later
+ with the 'no ELSE' Text Feature.
control structures, even though
'no ELSE' is set.  Tough.
ContinueO
\O @[
GETQ%
CMDF%
CMDA%
QPOS&
QSTART&
MAXCMD%
PROP%
PRNCHRS%
INDENT$
FOURHEX$
MAXCMD%
CMDA%
No command stored for
SYSQUIT%
USRABRT%
REVTRAN
CHOICED
CHOICEO
OPLOBJD
IMAGE
APPGROUP/
PICFILEv
CHOICEW
CHOICEK
CHOICEA
CHOICEX
WRITEAPP
INDENT$
SETOPRTC"
CLOSEQ
RTPROC&
PROCPROB^1
LWSTLOC%
CAPITAL$=2
LVAR${2
EVAR$
PRSCMD@4
NXTQ%/5
F2STR$
FOURHEX${>
VERS$
UNKWNQ
SADR%F?
FADR%
TABLE%
FNORCMD%
CJN%6K
UJMP%
DOADDR
OPER%pM
PRNCALL%
PRCALL%
ASSIGN%
PRITEM%bR
PRMNM$JU
LOCNM$
LOGNM$
TYPECHR$
IXOF%sV
GETBQ%
GETQ%SW
GETQ&
GETQ$
PASS1$
PASS2
FINDIF
DOCJR^
PASS3
SAMELP%
LPRIND
LBL$5h
CMDWTH%Xh
CHKABRT%
PLURAL$Ci