AMOS Pro101V+(RH~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ R ndret i PDFormat V1.10: &RD 27.12.1993: Offset til tekst i jumptable peger direkte p teksten, R istedet for 2 pladser fr. R( Ingen max. lngde p ASCII-filen mere. (RH 31.01.1994: Frdiggjort PDFormat v1.20. Eneste forskel i den fra fore- R6 gende versioner er udseendet, og brugerinterface'et (RH~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ (> ver&1.20TJ ---Versions-nummer @Btekstt>\>| filename\ver\Btekstt| setupscr  _startotherinwindow>~whatnow't>|,whatnow>exbwhatnow>!8whatnowprosess\selprint\ex whatnow>v(setupscr  >\>@\>e\>\  >\>\>d\\  >\6  >\6`  >\6  4 6 \6\6\6 6  4TFT > TTJ ---Kun mus p den nye skrmv  _startother ' >\>TJ&---Kontrol-panel(Incl. close gadget) 1't>\>|&PDCat Formatter vver& Rt>|& 1994 MLJdum'lt>|<a>><R b>> Btekstta\ b|F bFa R---Til upstarten 0&%Wellcome to this little program which&$simply will convert an ASCII-file to & a PDCat-file&&%Have you read the docs? (You should!)&#Remember the special format for the & ASCII-file!!&R---Hvis CANCEL ved Load 1 &&No input-file selected&&Processing aborted&&&&R---Hvis fejl ved Load 2 & &ERROR!&&An error has occured&&Processing aborted&&R---Fil eksisterer ikke 3&&The selected file &does not exist&&Processing aborted&&&R---Processing file 4&&Processing file:& &filename& & Please wait&&R---Beskrivelse er for lang 5&&Description for disk nr.:& & is too long&&Processing aborted&&R---Hvis ingen '{}' fundet 6 &&The '{}'-control code not found&&Can't convert this file&to a .PDAbk-file&&Processing aborted&R"---Hvis ingen filename ved Save 7 &&No output-file selected&&Processing aborted&&&&R ---Ulovligt output-fil-navn 8 &&Illegal output-filename&$(Output file has to end on '.PDAbk')&&Processing aborted&&&R ---Status ved endt processing 9 & & Statistics & -----------& &File: & Final lenght:&Number of disks in it:& R---Til SELPRINT 10&Print orderform from disk&&Insert volume PDCat:&#(Make sure there's only 1 disk with&$this name, in your drives at a time)&&#Left mouse button or =print&"Right mouse button or =CancelR---Hvis ESC ved print 11& & User abort&&Nothing printed&&&&R$---Hvis ingen 'Ordered.disk'-fil 12 &&No file with ordered disks& & Print aborted&&&&R---Hvis ingen PDCat: 13 &&Volume PDCat: not available&&Select 'Print' to try again&&&&R---Vises efter print 14 & & List printed&&"Select 'Print' to print a new list&&&&v`fileload R ---Load file!^> TJ---Slet bank *filenamext&*.asc\&\&Load an ASCII file to process\&|Jfilename&inwindow>(><vBNtfilename|! %>\filenameTJ---Find lngden p ASCII-filen )bHTJ---Hvis filen existerer a|t>|  >, Xa\>TJ<---Lg 409 til, s haves lngden p den bank som reserveres  % > \aTJ.---Reserver bank til pointere + beskrivelser , !@t> |Lt> |>\>TJ"---Srg for en nul-byte til sidst 3  filename\@t> |>TJ6---Load tekst ind i plads 408 i bank 10 og fremefter  atfilename\&:|TJ---Find kolon - filenamefilename(tfilename\a|TJ---Fjern pathname + Btekstt>\>|filenameTJ---Load FILENAME$ ind i array  <TJ---Ellers fejl!  inwindow> & inwindow>v|filesave R ---Save fileLfilenamext&*.PDabk\filename\&*Save as a PDCat-file (Has to end on PDabk)\&,Give it the name of the PD-serie it contains| nfilename&TJ---Hvis ingen file, s abort inwindow><>-6tfilename\>|f&.PDabkTJ$---Hvis fil ikke ender p ".PDabk" inwindow><>Dfilename\> atfilename\&:|TJ---Find kolon -filenamefilename(tfilename\a|TJ---Fjern pathname >v *prosess(z> fileload"RLt> |>TJ"---Hvis ingen fil loaded, s exit (< R---Process file inwindow>6hvor>TJP---Pointer til adressen, hvor pointeren til nste diskbeskrivelse skal gemmes .descrip@t> |>TJ.---Adressen p starten af teksten i bank 10 & _end@t> |Lt> |TJ---End-adressen p bank 10 PTJ---Main loop )place!tdescrip _end\&{}|TJ---Sg efter '{}'  place>TJ---Hvis ikke fundet, s exit $ rhvor>TJ(---Hvis der ikke findes en '{}' s fejl  inwindow> ( <  b &Xplace\@t> |TJ$---Find offset til diskbeskrivelsen 0placeoldplace>'TJ.---Hvis beskrivelsen er over 10Kb s fejl! 8 Btekstt>\>|Btekstt>\>|thvor|TJ---Set disk med fejl i inwindow> <-!@t> |hvor\place>TJ ---Put pointer frst i bank 10   bankstart@t> |T$banklenLt> |B! bankstartplace\>T! bankstartplace>\>TJ ---Udskift '{}'med 2 nul-bytes Xhvor\>TJ ---Nste plads i pointer-bank R,---DESCRIP = nste plads efter sidste '{}' -oldplaceplaceTJ4---Gem place i oldplace for senere test af lngde )\hvor>TJ4---Indtil 100 disk er processed,eller enden er net 'hvorhvor>TJ&---Find antallet af disk-beskrivelser .!@t> |>\hvorTJ0---Put antallet af disk p plads 404 i bank 10 R.---Hvis filename ender p .asc s fjern det. vt6tfilename\>||&.asc filenamefilename6tfilename\>|)filenamefilename&.PDabkTJ---St '.PDabk' efter filnavn R---Hop til filesave filesave,)Btekstt> \>|Btekstt> \>|filename/Btekstt> \>|Btekstt> \>|tLt> |>|*Btekstt> \>|Btekstt> \>|thvor|inwindow> !^> TJ---Slet teksten (>v~$selprint(finwindow> Pv at|b2&\a> La>LbLba> Lb@ Bnavnt>|TJ---Array til navn/adresse @Bdiskt>|TJ---Array til bestilte disks  Nt&PDCat:| ZNt&PDCat:Ordered.Disk| >\&PDCat:Ordered.Disk <ja>>TJ---Hent navn/adresse >\ Bnavnta| Fa R8---Hvis der er en bank med ordered disks, s load den # >\pintTJ(---Hent antallet af disks i ordre-bank  <a>pint>>\aTJ---Hent titel fra disk #Bdiskta|aTJ---Put titlen i ordre-array  Fa  > %NTJ---ben printer  NRt> | <va>>TJ ---Skriv navn/adresse N Bnavnta|Rt> | Fa NRt> |  <,a>pint> a(tBdiskta|^t>(|\>(| Xa\>~apint0aa(tBdiskta|^t>(|\>(|TJ ---Send titler NaRt> | FaTJ ---Flere titler?   NTJ---Luk printer  inwindow> & inwindow>  VTJ*---Hvis PDCat: ikke findes, s meddelelse  inwindow> &inwindow> ( v2ex >TJ ---Luk skrmvinwindownr >\> \>>4\>O<a>>% xt>(tBteksttnr\a|||>*J x> \a>>\Bteksttnr\a|FaAmBsAmBk ResourceKontrolpanel JBB.set up gadget definitions WD 0,0,319,99,4VA,%01; gr titellinien perfect IN1,0,0;GL19,10,19,1;GL20,1,20,9; OB 9,13,301,66,0,0,%0; tegn close gadget BUtton1,0,0,19,9,0,0,1;[CG BP;][BR0;BQ;] andre gadgets SV 1,'Process'; BUtton1,9,82,80,12,0,0,1;[DB 80,12,BP,1VA,BP 3*,%0;][BR0;] SV 2,'Print'; BUtton2,120,82,80,12,0,0,1;[DB 80,12,BP,2VA,BP 3*,%0;][BR0;] SV 3,'Exit'; BUtton3,230,82,80,12,0,0,1;[DB 80,12,BP,3VA,BP 3*,%0;][BR0;] EXit; x y bredde hjde titel bitmap UI WinDow,6;[IN0,0,0;slet underGB P1,P2,P1 P3+,P2 P4+; IN 3,0,0;title barGB P1,P2,P1 P3+,P2 10+; blt i siderGB P1 1+,P2,P1 2+,P2 P4+;GB P1 P3+ 2-,P2,P1 P3+ 1-,P2 P4+; IN 2,0,0;sort udenp GL P1 P3+,P2,P1 P3+,P2 P4+;GL XB,YB,P1,YB; IN 1,0,0;hvidt udenpGL XB,YB,XB,P2;GL XB,YB,P1 P3+,YB; hvidt indeniGL P1 P3+ 3-,P2 10+,P1 P3+ 3-,P2 P4+ 1-;GL XB,YB,P1 3+,YB; IN 2,0,0;sort indeniGL XB,YB,XB,P2 10+;GL XB,YB,P1 P3+ 3-,YB; IF P6 %10& %10=;[SliderBox P1 P3+ 18-,P2 10+,P4 10-;] IF P6 %1& 1=;[PR P1 24+,P2 1+,P5,2;] IF P6 %1& 0=;[PR P1 6+,P2 1+,P5,2;]] UI CloseGadget,1;[IN3,0,0;GB 0,0,18,10;IN2,0,0;GS 7,3,11,7; IN1 P1-,0,0;GB8,4,10,6; IN 1 P1+,0,0;GL 1,0,1,10;GL XB 1-,YB,XB 1-,0;GL XB,YB,18,YB; IN2 P1-,0,0;GL XB,10,XB,0;GL XB 1-,1,XB 1-,10;GL1,YB,XB,10;] x y bredde hjde farve baggrundsfarve bitmap hvis farve er nul s outbox hvis et s inbox bitmap bit et lig et s tegn baggrund UI OutBox,7;[IF P7 %1& 1=;[INP6,0,0;GB P1,P2,P1 P3+,P2 P4+;] IN 1 P5+,0,0;GL P1 1+,P2 P4+,P1 1+,P2; GL P1,P2 P4+,P1,P2;GL XB,YB,P1 P3+,YB; IN 2 P5-,0,0;GL XB,YB,XB,P2 P4+;GL XB 1-,P2 1+,XB 1-,YB; GL XB,YB,P1 1+,YB;] bredde hjde liniefarve text baggrundsfarve bitmap kan kun kaldes fra en button draw rutine da xy altid er nul nul UI DrawButton,6;[IN P5,0,0;GB 1,1,P1,P2;IN 1 P3+,0,0; GL 1,P2 1-,1,0;GL 0,P2 1-,0,0;GL XB,YB,P1,YB; IN 2 P3-,0,0;GL XB,YB,XB,P2;GL XB 1-,1,XB 1-,P2;GL XB,YB,1,YB; IF P6 %1& 1=;[PO P4 CX 2+,3,P4,2,0 P3+;] IF P6 %1& 0=;[PR P4 CX,3,P4,2;]]