0 '100+ Rbbs (703) 525-1256 The 100/102/200 bbs
10 CLS:MAXFILES=2:PRINTCHR$(27)+"pрсссссссссссусссссссссссссссссссссссст":PRINT"хZ-Ref III  х(C)1989 Patrick Ellison х":PRINT"цсссссссссссшссссссссссссссссссссссссч"+CHR$(27)+"q"
20 LINEINPUT"File to Z-Ref->";F$:PRINT"In ->"F$:PRINT"Out->"LEFT$(F$,5)+"Z":OPENF$FORINPUTAS1:OPENLEFT$(F$,5)+"Z"FOROUTPUTAS2
30 IFEOF(1)=0THENLINEINPUT#1,A$ELSE100
35 IF LEFT$(A$,7)="       "THEN30
40 A$=MID$(A$,14,20)
41 C=INSTR(5,A$,"Z"):IFC=0THEN50
42 H$=A$+":  ":PRINTMID$(H$,C,6)+" EQU  ";"0";RIGHT$(A$,LEN(A$)-C);"H":PRINT#2,MID$(H$,C,6)+" EQU  ";"0";RIGHT$(A$,LEN(A$)-C);"H"
50 PRINT"       ";A$:PRINT#2,"       ";A$:GOTO30
100 CLOSE
Patrick ELlison Sysop 100+ bbs
(703) 525-1256 100/102/200/82010 '100+ Rbbs (703) 525-1