INDEX (2DISK EDIT PL1 PRINT PASS2 ASM  LINK  MFILE (@ PL1LIB  TRACE SORT JOIN ALIST DEBUG L010 qO)* "L15 O)#,ARTREG -6L020 MO)7;L030 O)<?L040 YO)@CTRANSREGDKTEST O)LL IF MY>0 THEN ICY=12; LSE MICY=8; DO MI=1 T 15; END; CALL UTPUT(7,MICX); DO MI=1 TO 15; ED; CINDEX :@C&IAʚCIH!@ xD!@F6>BC2@!C xDC>!@ xD2@RʑFPʨFFʲF!_J'0!@BFwx# ŽC͆C!@ ~D!C * C+"C!_JC>(!B-!J'͆C!@-{? C o&"B!D!"B"Bh"B:qJ!CͼFID!BC>ȷxD!BB~# oD>!@5ƒD2@*@!C "CxD!@6!B-!@~W##ʥE=_&kD%J!oJ%'!@'+F* C+"CRD D!B~ HM Hw++OF6x2EG!ByڋEq ͼF!Bp:B_!TyKE (EyF!B ExD*C#"C:B!BFwͼF!B~pXEEþE2B!BxD"C!C*C+"CRD!B~w>!BCxDRD!B~Ճw##~w!BC>xD:B!BFwͼF!B~pXEwFNFC>!@xD!@~wÔF!@~wÔF!B6!@~Ơo:BOqF/@GG!:BʍG.G7G>IG|}y/GG>!HҜGw#œG!H~<=!@6##6!iJN#x!H }CG •H>ÆH!H~4! CIH*HB~# ¬H"HͼFڕH÷H ILLEGAL INDEX !H}C HCHECK DISK!"C!_J>2C>=C!@6!B~6L++wL·HH FILES COPIED::@I͆C!@B#pI >I!@6!B !@6!@ !@6͈I!B !@ ͈I*B!_J ʫI:h¤I|hҫI>wʑI y!_JB!_JI@ IíI@!B!BI!_J!@!C !"C!I'!@6!BC>WJ!@Bw# 3J!B6!@ J!B'͈IJ!@6ILLEGAL COMMAND PRESS RETURN TO ADD TRACKS TO ENTER RECORD SIZE OF NEW FILE: PRESS RETURN TO DELETE @CI@!B!BI!_J!@!C !"C!I'!@6!BC>WJ!@Bw# 3J!B6!@ J!B'͈IJ!@6ILLEGAL COMMAND PRESS RETURN TO ADD TRACKS TO ENTER RECORD SIZE OF NEW FILE: PRESS RETURN TO DELETE C!C:C,C2C2C!C!@ !"@C YOUR FILE IS EMPTY!C'C!@ *@|C$!@BaG!@BaG!@~6vGE/F_FHFvDwE:C`D@>!CYF!CA:@O2@aG:A2@ !PFD SEARCH uD:2C*B"B!nD':@2D!P!nD'@!C>E!CPaG!CP9|GD*B#*B}DDF=@"@"@!C>B oE"BDD2C>2C!@~++++^!T=E*@D"B:@*@_>DM*@"@< ҷE*@DM*BT] "BSGESGBE:@o&DM)*@"@*B"B=E "@*B"@`DnF*@+"@"BDnF:C*@"@!@2C2C*B+"BD*@"@nF!"@" iFBD2C*B"BDM*@*@ FFSGʫFSGBÍFSG!@!@!PFBF"@*B"@"B*B*@*B#"BFG:C'G!PC:@OG# G"B>!PB*B"@!@!AG'>G YOUR FILE IS FULL*@!P:@@~ cGi# aG KEY SEARCH:!jG '2CnF!Bq#!C+ ʟG~ ʔGM!C~# ʦG+y<@ *@"B!jG'D @C*B*@*B#"BFG:C'G!PC:@OG# G"B>!PB*B"@!@!AG'>G YOUR FILE IS FULL*@!P:@@~ C C MFILE _!hB:hB,!E!@C L@!]_ L!C W_!C W_!C+6 E_ !f_''FPASS2 PL/1 VERSION 3.0 C * EMÀ@WDChBCffffffffffffffffiADF MEfiFd*E6!D>C!D"EE!"E~6ʞEE*E#"E!En&D4*Ep#"E}mEìESL#"ExNK*E" E"E!"E6* E"EE:EOF!D"E&Di6ÿE ͿE!EFͿE!EFͿE!E~!EwÿEM:lJ(XFMaK*ExMJ GFJ:#E'FL@K'FMaK>2E*E~'F'FL+++6++6+6'F!)I2 EMM*E"EMGL" E" E(ʑHMM> NKHG=IʰGoGʩGGNKI* E~w####qöF>NKæFSL(FM*E-"ESL,@GM*E-"E AG)EyƂG{YG xG* E#pyO>NK F*E" E!L*E##FG͌E GEFxG͌E  GÏGF*E~( Iy>NKyOF* E~0H* E2E+V+^ DM* E##^#V r+s * E:Es#r#" EG* E~?H́H* E~8H N#fi*E ;HE)IGmHmH" E" E##^#V#*Es#rG*E~ʉF> NK'F~0 _^#V*E##"E* E~w0>NKM*E-"ESL:H#"EM*E-"E*E~,ʑH#"EöFH)I! EFGGGF* E* E~wÉF(EM*E-"E)E*E~>*E 5I~0 ؗ*E" E(E*E~(IM* E~####^I>NK*EI…I* E#^!1K6##s*E~–I6-M"EK!1K6##6!%EF͌E#¦I!$E~5TI4M*E~HIEöFI !$EqHI͜J{o>NK,-ʯI͌EI-"EcjLïI*E6!E4*E++"E*E~;'F(EMM>NK /JL"E*E|}##"E!6+6++~@wM*E~#J> NK'FM>NKL5K@KM*E##"E'FL͜J5K'F*E#'¯JG͌E äJL*E~.JK-J~.JEJcj5KL'FK!,E~K+ J 5K!%EF͌E# K'F~# K!%E*EK )K!0K++q++++p+V+^*E"EE͝K1@'F6'F6'FʖKJʅF'F!#EWK'F'F\K!E5'FE!E4'F*EDMڨK*EyM/_:EGQKA}!B6  #K_r(!hB!hB6 (*ͨM #L*E~_*EI;LO;Lp#6E#:Ew#:Ew#q#w#"E*E~ #XL/ƒL~*>/ƒL#XL*mL#XL/qL#XL+"E!zQQҔL*E}hڷL"E!PhBLC!B>QL:C!C>ҢM> 2 C2ZC!C6+w!BVL~# LD͌EEÌESL"ExM# M&M+~w#VL M>MMxM#~E8M##xM#0McM} mMZmMmM~#'DM~'#DMxM#cM>͝K*E~G-&Eox~܏Mx*Eq#"E+y>K*EM|^q#VwK͔MJ͔M*ENyڔM#͔MÿM*E~o&UDM~#f$%No#MN#MW~ NN`i~NN# N~*E o gM B V UV V V UV V V UV VIƏ V V VINDE 5 VV VINI VV #VINITIA V!V -VINT !V+V +V 4VEDI U2V ;VELS 2V9V BVENĉ 9V@V HV ENDFIL@ @VFV TVERRO@ FVRV RV ^V U\V dVKE \VbV jVKEYT bVhV hV rV UpV pV xV UvV vV ~V U|V VOΘ |VV V ONCOD@ VV VOPEΕ" VV V V UV V VPROÓ UV V PROCEDURœ VV VPUԍ VV V VREAĖ+ UV VRETUR VΗ VV V REWRITŖ- VV V VTHE UV VT VV V V UV V> VV V V UV V< VV W VW W| W W W W UW W WW W W UW "WFIL W W )WFIXE W'WUR 1WFLOA 'W/W 9WFRO /W7W 7W @WCAL̔ U>W GWCA >WEW MWCHA EWKW TW CHARACTE KWRW `WCLOSŕ/ RW^W ^W iWBINAR UgW rWB gWpW pW wWDC̒ UuW }WDECLARŒ uW{W WDISPLA {WW WDϐ WW W W UW WLENGT 0 WW WLISԈ WW W WGEԎ UW WGϊ WW WGOTϋ WW W WSKI UW WSTOБ WW WSUBST WW W WUNSPE UW W WVERIF 4 UW W WWRITŖ, UW W U U U U @_ UW WLENGT 0 C RENAME CA aINDEX NAME RECORDS LENGTH MAXRECS FIRST & LAST TRACK D D  &DC2% C+D +DC2 C CC2  @DC2C2 C CC >DDW WD,C2C2C3C3C"C3C3C2C2  D*2 2*C22&2 2* DD D DY@D$C3C+*2 2*C2&CD(CD(CCC C D(CD(CDD(D  DD DDCDC 2 E DD2 DC3C+DC D$E $E!C2 DD DD2 DD GEDDD D EEEW WE*2 2*C2 C D&E  EEpE DEp $DpE pE *2 2* @&D @ D(CCC C D(CD(CDD(D  DD DDCDC 2 E DD2 DC3C+DC D$E $E!C2 DD DD2 DD GEDDD D EEEW WE*2 2*C2 C D&E  C EÀ@ EhB$EC ffffffffffffffffiADFfiFd*E6!D>C!D"EE!"E~6ʟEE*E#"E!En&D4*Ep#"E}nEíE*E" E"E!"E6* E"EE:EOE!D"E&Di6 EE E!EFE!EFE!E~!EwEFF?F͍E_H+~F-F+~-F##*EDMJF*EyM/_:EGQgFA}!B6  #wF_r(!hB!hB6 (*N:kH!$E"E]OʑKLIlK"K FG_H|GGGʁNkMʥIIoQH=>"FNUGʲGͺO> "FúH3͍E^#V#L HGN]OoQH"F HGÍEN]O"F#F͍E#F͍EN]ONdQH"F!L;ÖIͺO=GH5M1͍EòGÍENdQH>"F͍E͍E GN!BBP6 ͍I*E"EF͍E!@E*E|eoLE!@#E! LnE!-E'@:E!ENH!C͍I!C!WH͍IELINK ]ON_H]O##ʣH> 2E^#VE! EFx͍E#Fx͍E> 2EENF*E"#E Es#rÝHHH5MHOʍEE#~W### ^ HHS_͍EB͍ECÍE*E~+F"E*E~ #I/-I~*>/-I#I*I#I/I#I+"E!zQQ>I*E}haI"E!PhB͍IC!B>QwI> 2 C2ZC!C6+w!BI~# IH#"Ex"FH;I(͖IN]O ^#VL)I,͖IòI͍E_H IF͍E*E"EdQH%R#FÍE.#!J6N]O!J͌J!" E!IN]O>"F(͖IdQ)͖IH%RN͌JN]OrJ"F(͖IN]O##^#V* E" E)͖If|.‡J3͍E* EL&..L(͖IN]OF##^#V" E(JxJ#^#V#~#fo!JsHG+V+^" EL JJ#HG̈́Q)͖IH#~#^#V<=$%J*Er+s*C#s#r:E#w#"E!>͗F!2LN]O>"F*E~;]K(͖IN]Ö́QH)]K,͖IDKJLNÍE*E~;ʌK*#ELͺOH5M!LÍEͺO> "FH5M*E##E͍EFEN]OʸKK* E###" K ELEFE* EL͍EE* EL*E"EEnE:EKD͍EEÍE*E~;F~> "F~#;L!C6;N]OoQ=͖IͺO"F"LͺH*E"E*E" E!MͽO"EͺOH5M:%E G͍E͍E*E" EMH5M*EE*E#"E!$E"E#~ G#>"F͍EdQ"E!MͽOM LH5M:&E G͍E!ͺH* EL͍E*E!C6FL͍E E* ELLE* E"EN]OʺO!2L*E#6"E%RxOM]MʍEÍE=͍EÍE͍EÍE͍EN]O!*MNNNN!'L]OZNM>"F(͖IͺOH&M5M'͍E MʬMěPNÐMͺO"FH#"EPNA@NX>"F! 2LkR*͍E]OMěPH(MNÐMH5MdQH>"F)N͍ENH5MH(&5NkR(:N! 2LH(vN!2L*͍ENkR*͍EÐMN]ON"F(͖IN]OoQN$͍E*E#6"EͺHG* NE~,ʖN)͖IÁN%͍EHýN#͍EÁNH"E@O#OO+~w#ION@O#~EO##@O#O3O~#'$O~'#$O@O#3O*E~G.&Eox~WOx#*E~o&UDM~#f$%ʔOo#‡OO#yOW~ʚOҨO`i~OèO#~*E o glO>" OF!ON]OjQ 6QPoQGuP͍EN]O~ѷO#F+~P*E~ Pp5MPp5MͽOH%PYP5M@PG͍E pPOEP=G͍E*E6G͍EO%P*E6͍E*PSPO͍E~AO͍E#~G*E6O£PͺO> "FOPP##~ P>"F!MͽO*E~Pp5M> G͍EO!MͽO*E~5MPJLP!2LPP!MͽO*E~p5M!LJL!LP(͖IdQH5MH,)9Q#"E#F*E#6"EON]O>"F~ R̈́Qi&2L>~ PR>"F(ĖI##^#V#N|@3܍EL Q@QQ*E#w"E@^#VL! LíQRͺO"FH5MHG! LíQ## Q##Q(͖IN]Ö́Q>"FN!2L! LkR*E~"F ͍EkR>(͖IN]Ö́Q)͖I*E~wͺOH5M @G~ PR>"F(ĖI##^#V#N|@3܍EL C ^m!E:E,^!E!@E ~# #^!D6 ,.^!E T^!@ T^!Z^'>E Q1 ASSEMBLER E KPE!ETNH-NH!!E~E7K KtE#tE.qEJFJJ>IEEGƔ!Ew!"EqÔEÆFíFûF EFèGF IGF F%HGGFYGNNÃMO7I@IE;GIIw.6[EͭL>O̵LGFJ>I YG!E6J>M͵LtEzGFKGFͭLtEIE!D́I!CT~`OcI!DTNcI!ETNcItE!L6ͭL^F!,E~6>RĵLdF>EK> 2?D>!)E6GG> ʽL͂K|F͗L!#Eq F͞F͗L F!#EÌF͗Ly!"Ew͗Ly!"Ew F͞F F͞FíF6!!En&D~, F F,F~, FF!"E6OIèG¨G!"E6͞F!"E~6.$w͞F!$E~."#G~2G͗L!%Ep.#q F~wèG͗L!"Eq,p;GK K,;GGFL>UʋG:,EDIkb͟G6}G6`2,E#bkq#pGFͭLĵL GGF>WͭL̵LGF##~G#͗L!#Eq,p;G F@L!,E~ͭL! ENyOڻG!-EһGn&Cq-}!-Ew!,E6L,IdF!!Eq7K>E͗L!"EqK K GFG!L~Gx GGFͭLkH!En&D~# 1H YH!@"DT@L͗L!"Eq,p;GK͖KdF!@!CT6b,w,6C!+Ew!,Ew!L6@L!"E H!E6!E~_N>E> ͂KTXbk^IT]|H͟G~¨H##NH+NH> ͂Kbk##~͂K~H> ͂KèHxG8¥H> ͂K>EyHyH0:KÂKL,I!,E~6!CTw,q,pͭL@LGF>UͭL̵LGF!+EFpPE!+EFpPEOI F͗Ly0!"Ew~#fo!E^Iq~yI#LE!Ep,q>SLͯIT] I!EN#Fbk^q#VpKcIJcIIbkN~cI#T]cIÞI2I|2I}!Ir!Is!Iw!Ip!Iq.&>!Ewbk~0I:Jo&TͯIN#~ʆJgi##~yJJ,J~VKJ_yO_yOxKG>JJ,~W0 _xGyOvJxGyuJvJvJvJO>JKJG~ JʍJJIT]~JJ!EFkb#xJFJ~`ʺJ#F!,E6Jkb##N#FWI^#zVI^IIpkbAÿJ!ED^JJKJp&Dh~wJJ!EFK!Ep!En&D~[A4K:04K.4K ,)ȷ!(EF—N:EeKo?Db~# MK#}2E> 2?D!E6>!D@E.@VK zK.@VK!Cw*ͭL!-EF! En&C6h6>!C@! E6!-E6@LͭL!+E~ƀ!E~LKɷ"k&ENKL!)E~Lw> ͂KHk&EFLK!DT~w,~wͭL!En&C~w! E~wo&C-p!-EÖK! E~!-EOQLbL6! E6&Ci6,L!CT~`wL!-EFph , tL&Cq ,L!DTF,L!ETF,L! E~!Ew,LLͭL>U͵L!,E6Hɿ!*EwK!*E~6 ͂K> ͂K!D~͂K~ #LfM!QM6!E6Jbk~TMQIM!QM>w!E~M.&+=MIP KPM%GM PM'ʮP!&Eq,p.wJL~,O~GMHJM>J!L6"lMxMJ O nM K"J!L>wM7KͭLMJ!&Es>IN!&En&D́IcIdF7KͭLMJOcI M"M ¶MJMùMJOcI M!E6 KMJJ>IʪMªMcIGF>M͵LêM!(EFʏNpPE!(E~ʏNwGbk͟G#T]&E>.os,r>6os,rx_S!E6J^NkbwQNJ^NJ hNrN dN}Nkb6JwNkbw GFJrN}N>W͵LGF~.o&E^ID~#w ʲNäNM!(E~.os,ri&D-}ZK~(N,]!Es."sL!,E6!(E~o&S N~ N,NN]TJ ʏN,JO)Nkb~, OOE!"E~.N&DiO!"En-&D~ʆO ʆOw,8O!#Es,rLJ ʏN)SO!# bOE^I~ʁO ʁO, fO!"En-&Dw,ÆO!"En-}_!EFn&DNMh~kw iNÓOO~, ¦OyM@O ifo|&D-w}¶O>oyOxG.?6 -} KOJO.OL!,E6APxOyGFJK!(E~6o^I~AP.*PDY~##P,P,4P~# *P P!(E~.os,rGF>U͵LGF-ʽP*zP>P= \PPWͭL̵LHÑE~,fiHG͙PxEoyLg͙PygM͙PzGMyzҤPWyOžPPJzGyOM~,O~GM~,O~GM~,O~GM,~-~PPPHMPPHMPPP!Es>-H.M T BTbC T@T HTʄ @TFT MTJÄ FTKT STJń KTQT YTJ [T QTWT _TJNÄ WT]T fTJNń ]TdT mTJN̈́ dTkT tTJNڄ kTrT {TJUMБ rTyT TJڄ yTT T T TT T TT TAÁ TT TACɀ TT TADCOΕ TT TAɀ TT T T TT T T TT T TT TÁ TT TCɀ TT TC̄ TT TCLÄ TT TCLń TT TCL̈́ TT TCLNÄ TT TCLNń TT TCLN̈́ TT TCLNڄ TT UCLڄ TU UCM/ U U UCMÉ? UU UCO΋ UU U U TU %UDA' U#U ,UDAĖ #U*U 3UDCĖ *U1U :UDE 1U8U AUDIӉ 8U?U HUDUЇ ?UFU FU NU TLU TUEN‰ LURU [UENĊ RUYU aUEQՍ YU_U _U gU TeU eU mUI΀ TkU sUIN kUqU zUINĖ qUxU xU ÛF TU U UU ULAD҈ UU ULD:*U UU ULDA͖ UU ULH̄* UU ULɃ UU UL҅@ UU U U TU U UU UMACRϐ UU UMENď UU U U΁ TU UNɀ UU UNOЉ UU U Uρ TU UOɀ UU UOUԀ UU U UPCH̉ TU UPOЖ U UU VPRINԒ UU VPUSȖ UV V V҉ $TV VRÉ VV VRʼn VV "VR͉ V V (VRNÉ V&V /VRNʼn &V-V 6VRN͉ -V4V =VRNډ 4V;V DVRډ ;VBV BV JVӁ &THV OVS HVMV UVSBɀ MVSV \VSEԆ SVZV bVSɀ ZV`V \V hVS̉ `VfV nVSLÉ fVlV uVS lVsV |VSPH̉ sVzV VS҉ zVV VSRÉ VV VSԁp VV VST2 VV VSTA͖ VV VSTÉ7 VV VSTH̄" VV VSTɀ6 VV VSTOЉv VV VSWAЉ VV V VUNPRINԓ *TV V V؁ 0TV VXCȉ VV VXɀ VV EV V T T "T (T ,T 2T @^V VST2 VV VSTA͖ VV VSTÉ7 VV VSTH̄" VV VSTɀ6 VV VSTOЉv VV VSWAЉ VV V VUNPRINԓ *TV V V؁ C C PL1LIB EÀ@ E "EBIFLFXCHPR LAFIST TYPE ADDR BYTES NAME !C C!I>:EL!E*!U,,}F~#fo$% EEB##~ E#~G FPEƄ_E!Ew#w#p#6 :ELEE~+ng> {;F++++~VF F#F!E*##~ jFw##*E!C@!C ~# ‹F* EFF*EFF(!F:EL* PROGRAM RUNS IN K AND COMPILES IN K +| F!D*E#*CGC!D>2E!D~ GD ʳG&Do :#Ew:$E#wÜG!D~G++6C>!D*E##s#r GH:%E!DC2%EE#~<H###60>F#y#H#6 H!}IB |LZH{rH#4H)H UNDEFINED REFERENCE:!EH*eF!^#VïHE~# xH*C" E*E&EG™HgHŒH!DM* E}|"#E*E"E^#VI##^#V#N:%E=G*C+z HG}HG"CC!D>>2%E*E#&D#~w+~wúHG* E"C*E&EG-IG I"C+r+smGCI G:"E yI@I~E!CPaG!CP9|GD*B#*B}DDF=E!CPaG!CP9|GD*B#*B}DDF=-C C2@>C >BC2@!C xDC>!@ xD2@RʑFPʨFFʲF!_J'!C:C,C2C2C!C!@ !"@C YOUR FILE IS EMPTY!C'C!@ *@|C$!@BaG!@B CBB*B*BN~#3 C >BC2@!C xDC>!@ xD2@RʑFPʨFFʲF!_J'!C:C,C2C2C!C!@ !"@C YOUR FILE IS EMPTY!C'C!@ *@|C$!@BaG!@B CBB*B~2C*B~O ALL DRIVES AVAILABLE*/ .C*C"B!BB.C!"B"B*C"B* C!D" C*C"!C:C,C2C2C!C!@ !"@C YOUR FILE IS EMPTY!C'C!@ *@|C$!@BaG!@B ~0000@0@0@0@0 e0!`0 c0 c0 `0)`0 `0 `0 WHAT ? ENTER TRACE COMMAND :Ùz xA@qxxxAyxxxxxx1 x*(x!~{NyG&~o~^x ax&x*o~#fo–z!xp#6#6"(x1 x1@"&x!ڤx9"x1&x>x97Øx*&x"(x>x,yx*x^#V#"x"(x>x"(x>xN#V#"(x!xp#q#rx,yx~#fo"(x>x,yxog$y!~{$y*x+r+s"xx++F#xx82:y: xO?y7ɷN!xp#qxx!x!.zi [yz#### Xy: x!TzO6 uy6C#6 }y6Z#6 y6M#6 y6E*xz!\ziz#{iz*(xz!ziz#{iz*&x~!Qziz*x^#~!eziz{#iz! "'z")z*(x~G#V#^&~o~yOx!%zizy z#ziz!)zy{izN!z͈z!~' P=1234 I=123456 A=XX E=XX D=XX C=XX B=XX L=XX H=XX M=MM C UzZME SP=HHLL STK=HHLLG0:yzwx0:#ww'ʌz!3!~1 x'!'6!~!~{ _#~ z»z{a{g{epzd5{s({!~ '͋zÙz{z{ҙz{z!~'{>x"(x>x~͔{Ùz~͔{Ùz1{͔{*1{!"1{M!~6 #z O{iz#{iz#6 #iz{V{5!~͈z*3{}/_|/W*1{;{Ùz#z+Š{{###~+~{ұ{{һ{z{ z { á{á{~0#{{~0# {))))o{ @~z{ҙz{z!~'{>x"(x>x~͔{Ùz~͔{Ùz1{͔{*1{!"1{M!~6 #z N!I:I,N!N!@B.C!@B.C!B ŠD!BB.C!B ŠD:NOvN!YO'!YO'!@-"C"vE*BDM!KGs$r%, :C<ʵN2C|PڂN:h®N|hҵN>wʂN!Gw$w%-¹N"C*B"C|}©CC#ʢC* CC*CC"C" C!C5ND!C4:C‹C*DËC*CC"C" C!C5̕DC*D!C6!C6*C*B"B*B"B*C*B|C*C)"C*C)"C9C:C* C!D*C" CBŠD2C*C|+ʐD"C*B#*C#ҐD:C%vD qDvD}*C!D"C2CB!C5*C|D+"C*B#*C#D:C%DڽD}* CD*C"C2CBÊD!C5hÉE*B|/W}/_*B!C~E~E{9C/<2Co&G^$V*CBŠD!Iu,"E!E6J!eE6I!E6I!E6!E6!E6I!C~_!E~W!Efk¤EzOC&Ih~in& kEG^$Vo~%ng #}EDi &IV&J]or{dE,{X¤EYEkT&I~b]hw,}¤E}GzOdE!eE~!EFw!Fp!Ep!eEp!Ep!E7~w!EwE!COEE*C:COJ o&G~$foC F*C*CB:C/<ŠDD @NE6!E6!E6I!C~_!E~W!Efk¤EzOC&Ih~in& C!@B~# C!@ C!B C*@DM!C :Cw7C*B"B*@!C:C@B!C†C:CC_CC!@:@!C!CC!BC @C<ŠDD @NE6!E6!E6I!C~_!E~W!Efk¤EzOC&Ih~in *E RENAME DE  ME UE0123456789ABCDEF rEE2% BEwE wEE2 ED EDEF2  EE2E2 EG EIEB EE E7E2E2E*3E3E*"E3E*3EKEMEKE ED 2 E6 EKEK2 E*2 2*EKEO(E*3C+EQEMEQE"ED F 2 Fm EQEQ2 F E2CEQ3 2ESEEU*EF2&EW2 ESEgED ED&EW2 ESESEgEg ED ED&EQEM F EQEiEi F*EF2&EQEkEk F*2 2*Em2& FF FF FF FF FFF* FE EFE F @rE @ "ED 0hiOi;i[iA!!11AAA WHAT ? ENTER DEBUG COMMAND :@*@"jZjiWj*j~i~0 Gh"j+~ h*hHh o g2i*jjw¢h^i*j{fʥhhhâh!9"h10hâh!" %iji!#i2i2i)"!i!6i",i!1i!1i"!i+~#3kO!_i s#rZj~##ҁi++"iʠi+N+F{zÎi!~#*jiŷ"j»i"j!i@!:h:&ho~O*j!jz*j{#*ji!j*j# i6 #}&i~M j##:j*j!jIj P=PPPP I= j123456 G0::jwx0:#ww'Mj!3!xh'!k6!Tk!Tk)k _#~ ʄjyj{tgimʹjgjepjhjsj!ph'LjZj3k!&j6M#6="j~2jZj>2i!xh'i>j3kҨj3kZj{j3k!M!Tk6 #z*j#{*j#6 #*j k;{k5!TkIjZj~0#)k)k~0# Gk))))o;k @h'!k6!Tk!Tk)k _#~ ʄjyj{tgimʹjgjepjhjsj!ph'LjZj3k!&j6M#6="j~2jZj>2i!xh'i>j3kҨj3kZj{j3k!M!Tk6 #z*j#{*j#6 #*jDCL 1 L010U, 2 ARTNR CHAR(5), 2 BENAMN CHAR(40), 2 PRISUTL FIXED(8,2), 2 UTLPRIS2 FIXED(8,2), 2 PRISLAG1 FIXED(8,2), 2 PRISLAG2 FIXED(8,2), 2 FORSPRIS FIXED(8,2), 2 SALDO1 FIXED(3), 2 SALDO2 FIXED(3), 2 FAKTOR1 FIXED(4,2), 2 FAKTOR2 FIXED(4,2), 2 ULAND CHAR(1), 2 BORTMARK CHAR(1), 2 SLEVDAT CHAR(6), 2 S1 FIXED(5), 2 S2 FIXED(5), 2 S3 FIXED(5), 2 S4 FIXED(5), 2 S5 FIXED(5), S6 FIXED(5), S7 FIXED(5), 2 S8 FIXED(5); DCL RUBR1 CHAR(40) INITIAL('M S T E N H A R D T A B'); DCL RUB1 CHAR(40) INITIAL('ARTIKELREGISTER'); DCL RUBRIK2 CHAR(50) INITIAL('ARTNR BEN[MNING '); DCL RUBRIK3 CHAR(40) INITIAL(' UTL.PRIS LAG.PRIS '); DCL RUBRIK4 CHAR(45) INITIAL('F\RS[LJPRIS ANTAL FAKTOR LAND LEVDAT '); DCL RUBRIK5 CHAR(50) INITIAL(' SERIENUMMER '); DCL DATUM CHAR(8); DCL DOLL FIXED(8,3); DCL PUND FIXED(8,3); DCL FRAN FIXED(8,3); DCL BFRA FIXED(8,3); DCL DKR FIXED(8,3); DCL BKURS FIXED(8,3); PUT FILE(DISPLAY) SKIP LIST('DATUM '); GET SKIP LIST(DATUM); PUT FILE(DISPLAY) SKIP LIST(' SKRIV AKTUELLA KURSER $, P, FRANCE,BFRAN,DKR '); GET LIST(DOLL,PUND,FRAN,BFRA,DKR); PUT SKIP(3) EDIT(RUBR1) (A(49)) (RUB1) (A(30)) (DATUM) (A(10)); PUT EDIT(DOLL) (X(1),P'ZZ9V.999') (PUND) (X(2),P'ZZ9V.999'); PUT EDIT(FRAN) (X(2),P'ZZ9V.999') (BFRA) (X(2),P'ZZ9V.999'); PUT EDIT(DKR) (X(2),P'ZZ9V.999'); PUT SKIP(2) LIST(RUBRIK2,RUBRIK3,RUBRIK4,RUBRIK5); DCL A CHAR(1); DCL B CHAR(5); DCL C CHAR(2); DCL ARTREG FILE; OPEN ARTREG; PUT FILE(DISPLAY) SKIP LIST('SKRIV N F\R NYTT, G F\R GAMMALT ARTREG '); GET LIST(A); RADR = 5; IF(A = 'G') THEN CALL SEOF(ARTREG); START: PUT FILE(DISPLAY) SKIP LIST(' ANGE ARTIKELNUMMER '); GET LIST(ARTNR); IF(ARTNR = '99999') THEN GO TO SLUT; PUT FILE(DISPLAY) SKIP LIST(' ANGE BEN[MNING '); GET LIST(BENAMN); PUT FILE(DISPALY) SKIP LIST(' ANGE UTL[NDSKT PRIS1 '); GET LIST(PRISUTL); PUT FILE(DISPLAY) SKIP LIST(' ANGE UTL[NDSKT PRIS2 '); GET LIST(UTLPRIS2); PUT FILE(DISPLAY) SKIP LIST(' ANGE F\RS[LJNINGSPRIS '); GET LIST(FORSPRIS); PUT FILE(DISPLAY) SKIP LIST(' ANGE ANTAL1 '); GET LIST(SALDO1); PUT FILE(DISPLAY) SKIP LIST(' ANGE ANTAL2 '); GET LIST(SALDO2); PUT FILE(DISPLAY) SKIP LIST(' ANGE FAKTOR1 '); GET LIST( FAKTOR1); PUT FILE(DISPLAY) SKIP LIST(' ANGE FAKTOR2 '); GET LIST(FAKTOR2); PUT FILE(DISPLAY) SKIP LIST(' ANGE LAND '); GET LIST(ULAND); PUT FILE(DISPLAY) SKIP LIST(' ANGE SENASTE LEVERANSDATUM '); GET LIST(SLEVDAT); PUT FILE(DISPLAY) SKIP LIST(' ANGE BORTTAGNINGSMARKERING '); GET LIST(BORTMARK); PUT FILE(DISPLAY) SKIP LIST(' ANGE SERIENUMMER 1 TILL8 '); GET LIST(S1,S2,S3,S4,S5,S6,S7,S8); IF(ULAND = 'U') THEN BKURS = DOLL; IF(ULAND = 'E') THEN BKURS = PUND; IF(ULAND = 'F') THEN BKURS = FRAN; IF(ULAND = 'B') THEN BKURS = BFRA; IF(ULAND = 'D') THEN BKURS = DKR; PRISLAG1 = PRISUTL * FAKTOR1 * BKURS; PRISLAG2 = UTLPRIS2 * FAKTOR2 * BKURS; WRITE FILE(ARTREG) FROM(L010U); RADR = RADR + 3; IF(RADR = '50') THEN DO; PUT SKIP(7) EDIT(RUBR1) (A(49)) (RUB1) (A(30)) (DATUM) (A(10)); PUT SKIP(2) LIST(RUBRIK2,RUBRIK3,RUBRIK4,RUBRIK5); RADR = 8; END; PUT SKIP(2) EDIT(ARTNR) (A(7)) (BENAMN) (A(41)); PUT EDIT(PRISUTL) (P'ZZZZ9V.99') (PRISLAG1) (X(2),P'ZZZZ9V.99'); PUT EDIT(FORSPRIS) (X(4),P'ZZZZ9V.99') (SALDO1) (X(2),P'--9'); PUT EDIT(FAKTOR1) (X(4),P'Z9V.99',X(3)) (ULAND) (A(3)); PUT EDIT(SLEVDAT) (A(8)) (BORTMARK) (A(2)); PUT EDIT(S1) (X(1),P'ZZZZZ') (S2) (X(2),P'ZZZZZ') (S3) (X(2),P'ZZZZZ'); PUT EDIT(S4) (X(2),P'ZZZZZ'); PUT SKIP EDIT(UTLPRIS2) (X(48),P'ZZZZ9V.99') (PRISLAG2)(X(2),P'ZZZZZV.99'); PUT EDIT(SALDO2) (X(14),P'--9') (FAKTOR2) (X(4),P'ZZV.99'); PUT EDIT(S5) (X(17),P'ZZZZZ') (S6) (X(2),P'ZZZZZ') (S7) (X(2),P'ZZZZZ'); PUT EDIT(S8) (X(2),P'ZZZZZ'); GO TO START; SLUT: CLOSE ARTREG; END; C DET GICK CC2%C$C2%C$C2C2  8C *C2 & 6CCA AC*2 2*C2&C'C2&C' @C @ RCH:2C*B"B!nD':@2D!P!nD'@!C>E!CPaG!CP9|GD*B#*B}DDF=E!CPaG!CP9|GD*B#*B}DDF=E!CPaG!CP9|GD*B#*B}DDF=