FORTRAN-80 Ver. 3.1 Copyright 1978 (C) By Microsoft - Bytes: 30965
1	       IMPLICIT INTEGER (A-Z)
?Line: 1 Statement Unrecognizable or Misspelled:IMPL
2	       INTEGER FILENAME (10), IMAGE (79)
?Line: 2 Identifier Too Long:ILENAM
3	       WRITE (6,102)
*****	0000'	LXI	B,$$L
*****	0003'	JMP	$INIT
*****	0006'	LXI	D,102L
*****	0009'	LXI	H,[	06	00]
*****	000C'	CALL	$W2
4	       READ (5,101) FILENAME
*****	000F'	CALL	$ND
*****	0012'	LXI	D,101L
*****	0015'	LXI	H,[	05	00]
*****	0018'	CALL	$R2
?Line: 4 Identifier Too Long:READ(5,101)FILENAM
5	101    FORMAT (10A2)
6	       CALL OPEN (10,FILENAME)
?Line: 6 Identifier Too Long:CALLOPEN(10,FILENAM
7	       DO 1 J=1,9999
8	       READ (10,103,END=2) IMAGE
*****	001B'	LXI	H,0001
*****	001E'	SHLD	J
*****	0021'	LXI	B,0009"
*****	0024'	LXI	D,103L
*****	0027'	LXI	H,[	0A	00]
*****	002A'	CALL	$R5
9	103    FORMAT (80A1)
*****	002D'	LXI	D,IMAGE
*****	0030'	LXI	H,[	01	00]
*****	0033'	MVI	A,02
*****	0035'	CALL	$I0
*****	0038'	CALL	$ND
10	1      CALL SEND (IMAGE,79)
11	       CALL SEND ('*',1)
*****	003B'	LXI	D,[	4F	00]
*****	003E'	LXI	H,IMAGE
*****	0041'	CALL	SEND
*****	0044'	LHLD	J
*****	0047'	INX	H
*****	0048'	MVI	A,0F
*****	004A'	SUB	L
*****	004B'	MVI	A,27
*****	004D'	SBB	H
*****	004E'	JP	001E'
12	       STOP
*****	0051'	LXI	D,[	01	00]
*****	0054'	LXI	H,H:0001
*****	0057'	CALL	SEND
*****	005A'	CALL	$ST
13	       END
*****	005D'	202020202020
*****	0063'	0100
*****	0065'	0000
*****	0067'	0600
%Line: 13 Undefined Labels Have Occurred:102                 
*****	0069'	0500
*****	006B'	0A00
%Line: 13 Undefined Labels Have Occurred:2                   
*****	006D'	4F00

Program Unit Length=006F (111) Bytes
Data Area Length=0018 (24) Bytes

Subroutines Referenced:

$I0			$INIT			$W2			
$ND			$R2			$R5			
SEND			$ST

Variables:

J	0007"		IMAGE	000F"		H:0001	0017"

LABELS:

$$L	0006'		102L			101L	0001"		
1L	003B'		103L	0011"		2L
%2 Warning(s) Issued

?4 Fatal Error(s) Detected



13 Undefined Labels Have Occ