0d REL<>SEQ CONVERTER, DAVID WILLIMAS, 19836n:x THIS PROGRAM CAN BE USED TO GENERATE A SEQUENTIAL DISK FILE CONTAINING ALL THE INFORMATION IN A RELATIVE FILE, OR TO RE-CONVERT THE SEQUENTIAL FILE TO A RELATIVE ONE. IT SHOULD BE USEFUL IN COPYING REL. FILESg (ESPECIALLY ON SINGLE DISK DRIVES), OR IN UP/DOWNLOADING INFORMATION IN RELATIVE FILES TO BULLETIN BOARD SYSTEMS. : THE PROGRAM SHOULD WORK ON ALL COMMODORE COMPUTERS AND DISK DRIVES EXCEPT FOR VERY OLD DRIVES WITH DOS 1.0. :* X$(1000)= 15: 15,8,15V "1. REL TO SEQ"l "2. SEQ TO REL"| "3. QUIT"  "WHICH ? "; 15,E,E$,E1,E2  G$: G$"1" G$"3" 280 " G$ , G$"3" 15: 6 (G$) 340,720 @ 220 J:& T "NAME OF REL FILE";RN$? ^ "DRIVE NUMBER ? ";c h D1$: D1$"0" D1$"1" 360m r D1$ | 1: 1,8,5,D1$":"RN$ 15,E,E$,E1,E2  E E$: 1: 340  "NAME OF SEQ FILE";SN$  "DRIVE NUMBER ? ";  D2$: D2$"0" D2$"1" 430  D2$=  2: 2,8,6,D2$":"SN$",S,W"P 15,E,E$,E1,E2i  E E$: 2: 410~  I255 1 1 15,"P"(5)(1)(0)(I) 15,E,E$,E1,E2: E0 LEI:I1  I1 RL255 I:RH(I256) 15,"P"(5)(RL)(RH)(1)3 &15,E,E$,E1,E2: E RNI1: 570C 0II1: 530 :2,"ENCODED RELATIVE FILE. DECODE WITH PROGRAM 'REL<>SEQ CONV.'";(13); D2,LE;(13);RN;(13); N I1 RN XL$"" bRL255 I:RH(I256) l J1 LEv15,"P"(5)(RL)(RH)(J)+#1,G$: G$"" G$(0)8L$L$G$>I2,L$;OY1:2c 230i: "NAME OF SEQ FILE";SN$ "DRIVE NUMBER ? "; D2$: D2$"0" D2$"1" 740 D2$ 2: 2,8,6,D2$":"SN$",S,R"15,E,E$,E1,E2  E E$: 2: 720; "NAME OF REL FILE";RN$T  "DRIVE NUMBER ? ";x* D1$: D1$"0" D1$"1" 8104 D1$>2,G$H2,LER2,RN\ I1 RNfX$(I)""p J1 LEz#2,G$: G$"" G$(0)X$(I)X$(I)G$ J,I 2)RL255 RN:RH(RN256)Q 1: 1,8,5,D1$":"RN$",L,"(LE)d15,E,E$,E1,E2} E E$: 1: 79015,"P"(5)(RL)(RH)(1)1,"X"; I1 RNRL255 I:RH(I256)15,"P"(5)(RL)(RH)(1)1,X$(I);  I 1 230