B DEMIMER - A C64/128 PROGRAM TO DECODE MIME (BASE64) FILES.i PROGRAM BY ROD GASSON. FREEWARE. THIS CAN BE GREATLY IMPROVED. ENJOY!( "NTER SOURCE FILE TO DECODE";IN$ : IN$"" 40 2 "NTER SOURCE DRIVE";D$ : DV(D$): DV8 DV16 50M< "NTER DESTINATION DRIVE";D$ : D2(D$): D28 D216 60SF:PT$"BASE64":350: BLLI : SAVE LINE NUMBER OF BASE64 TEXTZT$"NAME=" :350:N$(A$,L5): FILENAME FOR OUTPUT.d:n 8,DV,8,IN$ :LI0&x#8,X$: X$(13) 120 : SKIP LINES TO BASE64 LINECLILI1 : LIBL 120t#8,A$ : A$(10) 140 : THEN READ DATA A$(13) 140 : UNTIL TWO CONSEQUTIVE#8,A$ : A$(10) 160 : CARRIAGE RETURNS ARE FOUND  A$(13) 140 : IGNORE LINEFEEDSF:: "ECODING FILE ("N$")" ::L:15,D2,15: 9,D2,9,(N$",P,W"): #15,E: E "WRITE FILE ERROR" : 8:9:15 : I1 4#8,A$(I): ST A$(I)(0) A$(I)(10) A$(I)(13) 220) (A$(I))43 (A$(I))122 8: 9: 15:L (A$(I))43 A(I)62 :320o  (A$(I))47 A(I)63 :320  (A$(I))61 A(I)64 :320  (A$(I))47 A$(I)(0): 240 " (A$(I))62 A(I)(A$(I))4 :320!, (A$(I))97 A(I)(A$(I))65 :320%!6A(I)(A$(I))71Z!@BRBR1:"YTES READ";BR;" YTES WRITTEN"BW: !J9,(A(1)4(A(2)48)16)((A(2)15)16(A(3)60)4)((A(3)3)64A(4)); :BWBW3: 210!T: "^15,DV,15: 8,DV,8,IN$ : #15,E: E "READ FILE ERROR":8:15: +"hLI0 : "CHECKING FOR :";T$="rA$"" :F0 :k"|#8,X$: SST: X$ (13) LILI1 : 420" X$(34) 380" (X$)96 (X$)123 X$((X$)32)"A$A$X$: S0 380#I1(A$): (A$,I,(T$))T$ F1:LI: S1 :I(A$)"# : : S0 370Z#8: 15: F0 " OT A RECOGNISED FILE" :`#