SEQ/USR.C
FILE INFORMATION
FILENAME(S): SEQ/USR.C
FILE TYPE(S): USR
FILE SIZE: 3.9K
FIRST SEEN: 2025-11-30 21:12:51
APPEARS ON: 1 disk(s)
FILE HASH
838ae6c8368671232c242bf0471300daa070e841931a5c0e410cc1b607e04a60
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | SEQ/USR.C | USR | DuncanTwain | 11 | 18 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 85 81 05 2F 2A 50 52 4F 47 52 41 4D 20 54 4F 20 |.../*PROGRAM TO |
00000010: 43 4F 4E 56 45 52 54 20 D3 55 50 45 52 20 43 20 |CONVERT .UPER C |
00000020: 20 20 20 20 20 20 20 20 2A 2F 0D 05 2F 2A 46 49 | */../*FI|
00000030: 4C 45 53 20 54 4F 2F 46 52 4F 4D 20 D3 C5 D1 20 |LES TO/FROM ... |
00000040: 46 49 4C 45 53 20 20 20 20 20 20 20 20 20 20 20 |FILES |
00000050: 20 2A 2F 0D 05 2F 2A 43 4F 4E 56 45 52 54 49 4E | */../*CONVERTIN|
00000060: 47 20 46 49 4C 45 54 59 50 45 53 20 20 20 20 20 |G FILETYPES |
00000070: 20 20 20 20 20 20 20 20 20 20 2A 2F 0D 05 2F 2A | */../*|
00000080: 41 4E 44 20 43 4F 4E 54 52 4F 4C 20 43 4F 44 45 |AND CONTROL CODE|
00000090: 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |S |
000000A0: 20 20 20 2A 2F 0D 1E 0D 1E 2F 2A 23 44 45 46 49 | */..../*#DEFI|
000000B0: 4E 45 20 D0 CF D7 C5 D2 2A 2F 0D 1E 23 49 46 44 |NE .....*/..#IFD|
000000C0: 45 46 20 D0 CF D7 C5 D2 0D 1E 23 49 4E 43 4C 55 |EF .......#INCLU|
000000D0: 44 45 20 22 53 54 44 49 4F 2E 48 22 0D 1E 23 44 |DE "STDIO.H"..#D|
000000E0: 45 46 49 4E 45 20 C3 CC D2 20 27 5C 32 32 33 27 |EFINE ... '\223'|
000000F0: 0D 1E 23 45 4C 53 45 0D 1E 23 49 4E 43 4C 55 44 |..#ELSE..#INCLUD|
00000100: 45 20 22 48 3A 53 54 44 49 4F 2E 48 22 0D 1E 23 |E "H:STDIO.H"..#|
00000110: 45 4E 44 49 46 0D 1E 0D 1F 43 48 41 52 20 49 4E |ENDIF....CHAR IN|
00000120: 4E 41 4D 45 5B 32 35 5D 3B 0D 1F 43 48 41 52 20 |NAME[25];..CHAR |
00000130: 4F 55 54 4E 41 4D 45 5B 32 35 5D 3B 0D 1F 49 4E |OUTNAME[25];..IN|
00000140: 54 20 44 52 49 56 49 4E 3B 0D 1F 49 4E 54 20 44 |T DRIVIN;..INT D|
00000150: 52 49 56 4F 55 54 3B 0D 1F 23 49 46 44 45 46 20 |RIVOUT;..#IFDEF |
00000160: D0 CF D7 C5 D2 0D 1F 20 20 20 C6 C9 CC C5 20 49 |....... .... I|
00000170: 4E 43 48 41 4E 3B 0D 1F 20 20 20 C6 C9 CC C5 20 |NCHAN;.. .... |
00000180: 4F 55 54 43 48 41 4E 3B 0D 1F 23 45 4C 53 45 0D |OUTCHAN;..#ELSE.|
00000190: 1F 46 49 4C 45 20 49 4E 43 48 41 4E 3B 0D 1F 46 |.FILE INCHAN;..F|
000001A0: 49 4C 45 20 4F 55 54 43 48 41 4E 3B 0D 1F 23 45 |ILE OUTCHAN;..#E|
000001B0: 4E 44 49 46 0D 1F 0D 9E 4D 41 49 4E 28 29 0D 9E |NDIF....MAIN()..|
000001C0: DB 0D 9E 20 20 20 56 4F 49 44 20 46 41 53 54 28 |... VOID FAST(|
000001D0: 29 3B 0D 9E 20 20 20 49 4E 54 20 4D 45 4E 55 28 |);.. INT MENU(|
000001E0: 29 3B 0D 9E 0D 9E 20 20 20 49 4E 54 20 43 48 4F |);.... INT CHO|
000001F0: 49 43 45 3B 0D 9E 20 20 20 49 4E 54 20 53 54 41 |ICE;.. INT STA|
00000200: 54 55 53 3D 30 3B 0D 9E 20 20 20 43 48 41 52 20 |TUS=0;.. CHAR |
00000210: 49 4E 42 55 46 46 5B 32 35 35 5D 3B 0D 9E 20 20 |INBUFF[255];.. |
00000220: 20 43 48 41 52 20 4F 55 54 42 55 46 46 5B 32 35 | CHAR OUTBUFF[25|
00000230: 35 5D 3B 0D 9E 0D 9E 20 20 20 57 48 49 4C 45 28 |5];.... WHILE(|
00000240: 28 43 48 4F 49 43 45 3D 4D 45 4E 55 28 29 29 21 |(CHOICE=MENU())!|
00000250: 3D 27 30 27 29 0D 9E 20 20 20 DB 0D 9E 20 20 20 |='0').. ... |
00000260: 20 20 20 20 43 48 4F 49 43 45 3D 28 43 48 4F 49 | CHOICE=(CHOI|
00000270: 43 45 3D 3D 27 31 27 29 3F 31 3A 32 3B 0D 9E 20 |CE=='1')?1:2;.. |
00000280: 20 20 20 20 20 20 50 55 54 43 48 41 52 28 C3 CC | PUTCHAR(..|
00000290: D2 29 3B 0D 9E 23 49 46 44 45 46 20 D0 CF D7 C5 |.);..#IFDEF ....|
000002A0: D2 0D 9E 20 20 20 20 20 20 20 20 20 20 20 47 45 |... GE|
000002B0: 54 43 48 41 52 28 29 3B 0D 9E 23 45 4E 44 49 46 |TCHAR();..#ENDIF|
000002C0: 0D 9E 20 20 20 20 20 20 20 4E 41 4D 45 46 49 4C |.. NAMEFIL|
000002D0: 45 28 22 D3 4F 55 52 43 45 20 22 2C 49 4E 4E 41 |E(".OURCE ",INNA|
000002E0: 4D 45 29 3B 0D 9E 20 20 20 20 20 20 20 44 52 49 |ME);.. DRI|
000002F0: 56 49 4E 3D 44 52 49 56 45 28 22 D3 4F 55 52 43 |VIN=DRIVE(".OURC|
00000300: 45 20 22 29 3B 0D 9E 20 20 20 20 20 20 20 4E 41 |E ");.. NA|
00000310: 4D 45 46 49 4C 45 28 22 C4 45 53 54 49 4E 41 54 |MEFILE(".ESTINAT|
00000320: 49 4F 4E 20 22 2C 4F 55 54 4E 41 4D 45 29 3B 0D |ION ",OUTNAME);.|
00000330: 9E 20 20 20 20 20 20 20 44 52 49 56 4F 55 54 3D |. DRIVOUT=|
00000340: 44 52 49 56 45 28 22 C4 45 53 54 49 4E 41 54 49 |DRIVE(".ESTINATI|
00000350: 4F 4E 20 22 29 3B 0D 9E 20 20 20 20 20 20 20 4D |ON ");.. M|
00000360: 4F 44 4E 41 4D 45 53 28 20 43 48 4F 49 43 45 20 |ODNAMES( CHOICE |
00000370: 29 3B 0D 9E 23 49 46 44 45 46 20 D0 CF D7 C5 D2 |);..#IFDEF .....|
00000380: 0D 9E 20 20 20 20 20 20 20 20 20 20 20 20 49 4E |.. IN|
00000390: 43 48 41 4E 3D 46 4F 50 45 4E 28 49 4E 4E 41 4D |CHAN=FOPEN(INNAM|
000003A0: 45 2C 22 52 22 29 3B 0D 9E 20 20 20 20 20 20 20 |E,"R");.. |
000003B0: 20 20 20 20 20 4F 55 54 43 48 41 4E 3D 46 4F 50 | OUTCHAN=FOP|
000003C0: 45 4E 28 4F 55 54 4E 41 4D 45 2C 22 57 22 29 3B |EN(OUTNAME,"W");|
000003D0: 0D 9E 23 45 4C 53 45 0D 9E 20 20 20 20 20 20 20 |..#ELSE.. |
000003E0: 20 20 20 20 20 49 4E 43 48 41 4E 3D 4F 50 45 4E | INCHAN=OPEN|
000003F0: 28 44 52 49 56 49 4E 2C 32 2C 49 4E 4E 41 4D 45 |(DRIVIN,2,INNAME|
00000400: 29 3B 0D 9E 20 20 20 20 20 20 20 20 20 20 20 20 |);.. |
00000410: 4F 55 54 43 48 41 4E 3D 4F 50 45 4E 28 44 52 49 |OUTCHAN=OPEN(DRI|
00000420: 56 4F 55 54 2C 33 2C 4F 55 54 4E 41 4D 45 29 3B |VOUT,3,OUTNAME);|
00000430: 0D 9E 23 45 4E 44 49 46 0D 9E 50 55 54 43 48 41 |..#ENDIF..PUTCHA|
00000440: 52 28 C3 CC D2 29 3B 0D 9E 50 52 49 4E 54 46 28 |R(...);..PRINTF(|
00000450: 22 5C 4E 5C 4E 5C 31 31 5C 31 31 5C 31 31 5C 31 |"\N\N\11\11\11\1|
00000460: 31 D7 CF D2 CB C9 CE C7 21 22 29 3B 0D 9E 53 54 |1.......!");..ST|
00000470: 41 54 55 53 3D 30 3B 0D 9E 0D 9E 20 20 20 20 20 |ATUS=0;.... |
00000480: 20 20 57 48 49 4C 45 28 21 53 54 41 54 55 53 29 | WHILE(!STATUS)|
00000490: 20 2F 2A 20 52 45 41 44 20 41 20 4C 49 4E 45 20 | /* READ A LINE |
000004A0: 41 4E 44 20 43 4F 4E 56 45 52 54 20 49 54 20 2A |AND CONVERT IT *|
000004B0: 2F 0D 9E 20 20 20 20 20 20 20 DB 0D 9E 20 20 20 |/.. ... |
000004C0: 20 20 20 20 20 20 20 20 46 47 45 54 53 28 49 4E | FGETS(IN|
000004D0: 42 55 46 46 2C 20 32 35 34 2C 20 49 4E 43 48 41 |BUFF, 254, INCHA|
000004E0: 4E 29 3B 0D 9E 23 49 46 44 45 46 20 D0 CF D7 C5 |N);..#IFDEF ....|
000004F0: D2 0D 9E 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
00000500: 20 20 53 54 41 54 55 53 3D 46 45 4F 46 28 49 4E | STATUS=FEOF(IN|
00000510: 43 48 41 4E 29 3B 0D 9E 23 45 4C 53 45 0D 9E 20 |CHAN);..#ELSE.. |
00000520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 | ST|
00000530: 41 54 55 53 3D C5 CF C6 3B 0D 9E 23 45 4E 44 49 |ATUS=...;..#ENDI|
00000540: 46 0D 9E 20 20 20 20 20 20 20 20 20 20 20 43 4F |F.. CO|
00000550: 4E 56 45 52 54 28 43 48 4F 49 43 45 2C 49 4E 42 |NVERT(CHOICE,INB|
00000560: 55 46 46 2C 4F 55 54 42 55 46 46 29 3B 0D 9E 20 |UFF,OUTBUFF);.. |
00000570: 20 20 20 20 20 20 20 20 20 20 46 50 55 54 53 28 | FPUTS(|
00000580: 4F 55 54 42 55 46 46 2C 4F 55 54 43 48 41 4E 29 |OUTBUFF,OUTCHAN)|
00000590: 3B 0D 9E 20 20 20 20 20 20 20 DD 0D 9E 0D 9E 20 |;.. ..... |
000005A0: 20 20 20 20 20 20 43 4C 4F 53 45 28 49 4E 43 48 | CLOSE(INCH|
000005B0: 41 4E 29 3B 0D 9E 20 20 20 20 20 20 20 43 4C 4F |AN);.. CLO|
000005C0: 53 45 28 4F 55 54 43 48 41 4E 29 3B 0D 9E 20 20 |SE(OUTCHAN);.. |
000005D0: 20 DD 0D 9E DD 0D 9E 0D 9F 4D 4F 44 4E 41 4D 45 | ........MODNAME|
000005E0: 53 28 20 43 48 4F 49 43 45 20 29 20 2F 2A 20 4D |S( CHOICE ) /* M|
000005F0: 4F 44 49 46 59 20 46 49 4C 45 4E 41 4D 45 20 46 |ODIFY FILENAME F|
00000600: 4F 52 20 2A 2F 0D 9F 49 4E 54 20 43 48 4F 49 43 |OR */..INT CHOIC|
00000610: 45 3B 20 20 20 20 20 20 20 20 2F 2A 52 45 41 44 |E; /*READ|
00000620: 2F 57 52 49 54 45 20 55 53 52 2F 53 45 51 20 20 |/WRITE USR/SEQ |
00000630: 20 2A 2F 0D 9F DB 0D 9F 20 20 20 53 57 49 54 43 | */..... SWITC|
00000640: 48 20 28 43 48 4F 49 43 45 29 0D 9F 20 20 20 DB |H (CHOICE).. .|
00000650: 0D 9F 20 20 20 20 20 20 20 43 41 53 45 20 31 20 |.. CASE 1 |
00000660: 3A 0D 9F 20 20 20 20 20 20 20 20 20 20 20 53 54 |:.. ST|
00000670: 52 43 41 54 28 49 4E 4E 41 4D 45 2C 20 22 2C 55 |RCAT(INNAME, ",U|
00000680: 2C 52 22 29 3B 0D 9F 20 20 20 20 20 20 20 20 20 |,R");.. |
00000690: 20 20 53 54 52 43 41 54 28 4F 55 54 4E 41 4D 45 | STRCAT(OUTNAME|
000006A0: 2C 20 22 2C 53 2C 57 22 29 3B 0D 9F 20 20 20 20 |, ",S,W");.. |
000006B0: 20 20 20 20 20 20 20 42 52 45 41 4B 3B 0D 9F 20 | BREAK;.. |
000006C0: 20 20 20 20 20 20 43 41 53 45 20 32 20 3A 0D 9F | CASE 2 :..|
000006D0: 20 20 20 20 20 20 20 20 20 20 20 53 54 52 43 41 | STRCA|
000006E0: 54 28 49 4E 4E 41 4D 45 2C 20 22 2C 53 2C 52 22 |T(INNAME, ",S,R"|
000006F0: 29 3B 0D 9F 20 20 20 20 20 20 20 20 20 20 20 53 |);.. S|
00000700: 54 52 43 41 54 28 4F 55 54 4E 41 4D 45 2C 20 22 |TRCAT(OUTNAME, "|
00000710: 2C 55 2C 57 22 29 3B 0D 9F 20 20 20 20 20 20 20 |,U,W");.. |
00000720: 20 20 20 20 42 52 45 41 4B 3B 0D 9F 20 20 20 DD | BREAK;.. .|
00000730: 0D 9F DD 0D 9F 0D 9C 4E 41 4D 45 46 49 4C 45 28 |.......NAMEFILE(|
00000740: 46 49 4C 45 54 59 50 45 2C 4E 41 4D 45 29 20 20 |FILETYPE,NAME) |
00000750: 20 20 20 20 20 20 20 2F 2A 20 49 4E 50 55 54 20 | /* INPUT |
00000760: 46 49 4C 45 4E 41 4D 45 20 20 20 20 20 20 20 20 |FILENAME |
00000770: 20 20 2A 2F 0D 9C 43 48 41 52 20 2A 46 49 4C 45 | */..CHAR *FILE|
00000780: 54 59 50 45 3B 0D 9C 43 48 41 52 20 2A 4E 41 4D |TYPE;..CHAR *NAM|
00000790: 45 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |E; |
000007A0: 20 20 20 20 20 20 20 2F 2A 50 41 53 53 20 50 4F | /*PASS PO|
000007B0: 49 4E 54 45 52 20 54 4F 20 46 49 4C 45 4E 41 4D |INTER TO FILENAM|
000007C0: 45 20 2A 2F 0D 9C DB 0D 9C 20 20 20 50 52 49 4E |E */..... PRIN|
000007D0: 54 46 28 22 5C 4E 25 53 46 49 4C 45 20 4E 41 4D |TF("\N%SFILE NAM|
000007E0: 45 3A 20 22 2C 46 49 4C 45 54 59 50 45 29 3B 0D |E: ",FILETYPE);.|
000007F0: 9C 20 20 20 47 45 54 53 28 4E 41 4D 45 2C 31 36 |. GETS(NAME,16|
00000800: 29 3B 0D 9C 20 20 20 20 20 20 20 20 20 20 20 20 |);.. |
00000810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000820: 20 20 20 20 2F 2A 20 D3 55 50 45 52 20 C3 20 47 | /* .UPER . G|
00000830: 45 54 53 28 29 20 46 49 58 2A 2F 0D 9C 20 20 20 |ETS() FIX*/.. |
00000840: 49 46 20 28 2A 28 4E 41 4D 45 2B 28 53 54 52 4C |IF (*(NAME+(STRL|
00000850: 45 4E 28 4E 41 4D 45 29 2D 31 29 29 3D 3D 27 5C |EN(NAME)-1))=='\|
00000860: 4E 27 29 0D 9C 20 20 20 20 20 2A 28 4E 41 4D 45 |N').. *(NAME|
00000870: 2B 28 53 54 52 4C 45 4E 28 4E 41 4D 45 29 2D 31 |+(STRLEN(NAME)-1|
00000880: 29 29 3D 27 5C 30 27 3B 0D 9C DD 0D 05 0D 05 49 |))='\0';.......I|
00000890: 4E 54 20 44 52 49 56 45 28 44 49 52 45 43 54 49 |NT DRIVE(DIRECTI|
000008A0: 4F 4E 29 20 20 20 20 20 20 20 20 20 20 20 20 20 |ON) |
000008B0: 2F 2A 49 4E 50 55 54 2F 4F 55 54 50 55 54 20 44 |/*INPUT/OUTPUT D|
000008C0: 52 49 56 45 20 20 2A 2F 0D 05 43 48 41 52 20 2A |RIVE */..CHAR *|
000008D0: 44 49 52 45 43 54 49 4F 4E 3B 0D 05 DB 0D 05 20 |DIRECTION;..... |
000008E0: 20 20 43 48 41 52 20 4B 45 59 3B 0D 05 20 20 20 | CHAR KEY;.. |
000008F0: 44 4F 0D 05 20 20 20 DB 0D 05 20 20 20 20 20 20 |DO.. ... |
00000900: 50 52 49 4E 54 46 28 22 5C 4E 25 53 44 52 49 56 |PRINTF("\N%SDRIV|
00000910: 45 20 41 2C 20 42 2C 20 4F 52 20 48 3F 20 22 2C |E A, B, OR H? ",|
00000920: 44 49 52 45 43 54 49 4F 4E 29 3B 0D 05 20 20 20 |DIRECTION);.. |
00000930: 20 20 20 4B 45 59 3D 47 45 54 43 48 41 52 28 29 | KEY=GETCHAR()|
00000940: 3B 0D 05 20 20 20 20 20 20 50 55 54 43 48 41 52 |;.. PUTCHAR|
00000950: 20 28 4B 45 59 29 3B 0D 05 20 20 20 DD 0D 05 20 | (KEY);.. ... |
00000960: 20 20 57 48 49 4C 45 28 28 4B 45 59 21 3D 27 41 | WHILE((KEY!='A|
00000970: 27 29 26 26 28 4B 45 59 21 3D 27 42 27 29 26 26 |')&&(KEY!='B')&&|
00000980: 28 4B 45 59 21 3D 27 48 27 29 29 3B 0D 05 0D 05 |(KEY!='H'));....|
00000990: 20 20 20 52 45 54 55 52 4E 28 4B 45 59 3D 3D 27 | RETURN(KEY=='|
000009A0: 41 27 29 3F 38 3A 28 4B 45 59 3D 3D 27 42 27 29 |A')?8:(KEY=='B')|
000009B0: 3F 39 3A 31 35 3B 0D 05 DD 0D 9B 0D 1E 49 4E 54 |?9:15;.......INT|
000009C0: 20 4D 45 4E 55 28 29 0D 1E DB 0D 1E 20 20 20 49 | MENU()..... I|
000009D0: 4E 54 20 43 48 4F 49 43 45 3B 0D 1E 20 20 20 44 |NT CHOICE;.. D|
000009E0: 4F 0D 1E 20 20 20 DB 0D 1E 20 20 20 20 20 20 20 |O.. ... |
000009F0: 50 52 49 4E 54 46 28 22 25 43 5C 4E 22 2C C3 CC |PRINTF("%C\N",..|
00000A00: D2 29 3B 0D 1E 20 20 20 20 20 20 20 50 52 49 4E |.);.. PRIN|
00000A10: 54 46 28 22 20 31 2E 20 D3 55 50 45 52 20 C3 20 |TF(" 1. .UPER . |
00000A20: 54 4F 20 D3 C5 D1 55 45 4E 54 49 41 4C 5C 4E 22 |TO ...UENTIAL\N"|
00000A30: 29 3B 0D 1E 20 20 20 20 20 20 20 50 52 49 4E 54 |);.. PRINT|
00000A40: 46 28 22 20 32 2E 20 D3 C5 D1 55 45 4E 54 49 41 |F(" 2. ...UENTIA|
00000A50: 4C 20 54 4F 20 D3 55 50 45 52 20 C3 5C 4E 5C 4E |L TO .UPER .\N\N|
00000A60: 22 29 3B 0D 1E 20 20 20 20 20 20 20 50 52 49 4E |");.. PRIN|
00000A70: 54 46 28 22 20 30 2E 20 C5 D8 C9 D4 22 29 3B 0D |TF(" 0. ....");.|
00000A80: 1E 20 20 20 20 20 20 20 43 48 4F 49 43 45 3D 47 |. CHOICE=G|
00000A90: 45 54 43 48 41 52 28 29 3B 0D 1E 20 20 20 DD 0D |ETCHAR();.. ..|
00000AA0: 1E 20 20 20 57 48 49 4C 45 28 28 43 48 4F 49 43 |. WHILE((CHOIC|
00000AB0: 45 21 3D 27 30 27 29 26 26 28 43 48 4F 49 43 45 |E!='0')&&(CHOICE|
00000AC0: 21 3D 27 31 27 29 26 26 28 43 48 4F 49 43 45 21 |!='1')&&(CHOICE!|
00000AD0: 3D 27 32 27 29 29 3B 0D 1E 20 20 20 52 45 54 55 |='2'));.. RETU|
00000AE0: 52 4E 20 43 48 4F 49 43 45 3B 0D 1E DD 0D 05 0D |RN CHOICE;......|
00000AF0: 9F 43 4F 4E 56 45 52 54 28 43 48 4F 49 43 45 2C |.CONVERT(CHOICE,|
00000B00: 20 49 4E 42 55 46 46 2C 20 4F 55 54 42 55 46 46 | INBUFF, OUTBUFF|
00000B10: 29 0D 9F 49 4E 54 20 43 48 4F 49 43 45 3B 0D 9F |)..INT CHOICE;..|
00000B20: 43 48 41 52 20 49 4E 42 55 46 46 5B 5D 3B 0D 9F |CHAR INBUFF[];..|
00000B30: 43 48 41 52 20 4F 55 54 42 55 46 46 5B 5D 3B 0D |CHAR OUTBUFF[];.|
00000B40: 9F DB 0D 9F 0D 9F 20 20 20 53 54 41 54 49 43 20 |...... STATIC |
00000B50: 49 4E 54 20 4C 49 4E 45 4E 55 4D 3D 30 3B 0D 9F |INT LINENUM=0;..|
00000B60: 20 20 20 49 4E 54 20 49 4E 4E 44 45 58 3D 30 3B | INT INNDEX=0;|
00000B70: 0D 9F 20 20 20 49 4E 54 20 4F 55 54 4E 44 45 58 |.. INT OUTNDEX|
00000B80: 3D 30 3B 0D 9F 0D 9F 20 20 20 49 46 28 4C 49 4E |=0;.... IF(LIN|
00000B90: 45 4E 55 4D 3D 3D 30 29 0D 9F 20 20 20 20 20 20 |ENUM==0).. |
00000BA0: 20 53 57 49 54 43 48 28 43 48 4F 49 43 45 29 0D | SWITCH(CHOICE).|
00000BB0: 9F 20 20 20 20 20 20 20 DB 0D 9F 20 20 20 20 20 |. ... |
00000BC0: 20 20 20 20 20 20 43 41 53 45 20 31 3A 0D 9F 20 | CASE 1:.. |
00000BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4E | IN|
00000BE0: 4E 44 45 58 2B 3D 33 3B 0D 9F 20 20 20 20 20 20 |NDEX+=3;.. |
00000BF0: 20 20 20 20 20 20 20 20 20 4C 49 4E 45 4E 55 4D | LINENUM|
00000C00: 3D 31 3B 0D 9F 20 20 20 20 20 20 20 20 20 20 20 |=1;.. |
00000C10: 20 20 20 20 43 4F 50 59 42 55 46 46 28 49 4E 42 | COPYBUFF(INB|
00000C20: 55 46 46 2C 20 4F 55 54 42 55 46 46 2C 49 4E 4E |UFF, OUTBUFF,INN|
00000C30: 44 45 58 2C 20 4F 55 54 4E 44 45 58 29 3B 0D 9F |DEX, OUTNDEX);..|
00000C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 | B|
00000C50: 52 45 41 4B 3B 0D 9F 0D 9F 20 20 20 20 20 20 20 |REAK;.... |
00000C60: 20 20 20 20 43 41 53 45 20 32 3A 0D 9F 20 20 20 | CASE 2:.. |
00000C70: 20 20 20 20 20 20 20 20 20 20 20 20 4F 55 54 42 | OUTB|
00000C80: 55 46 46 5B 30 5D 3D 31 33 33 3B 0D 9F 20 20 20 |UFF[0]=133;.. |
00000C90: 20 20 20 20 20 20 20 20 20 20 20 20 4F 55 54 42 | OUTB|
00000CA0: 55 46 46 5B 31 5D 3D 31 32 39 3B 0D 9F 20 20 20 |UFF[1]=129;.. |
00000CB0: 20 20 20 20 20 20 20 20 20 20 20 20 4F 55 54 42 | OUTB|
00000CC0: 55 46 46 5B 32 5D 3D 35 3B 0D 9F 20 20 20 20 20 |UFF[2]=5;.. |
00000CD0: 20 20 20 20 20 20 20 20 20 20 4F 55 54 4E 44 45 | OUTNDE|
00000CE0: 58 2B 3D 33 3B 0D 9F 20 20 20 20 20 20 20 20 20 |X+=3;.. |
00000CF0: 20 20 20 20 20 20 4C 49 4E 45 4E 55 4D 3D 31 3B | LINENUM=1;|
00000D00: 0D 9F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000D10: 20 43 4F 50 59 42 55 46 46 28 20 49 4E 42 55 46 | COPYBUFF( INBUF|
00000D20: 46 2C 20 4F 55 54 42 55 46 46 2C 20 49 4E 4E 44 |F, OUTBUFF, INND|
00000D30: 45 58 2C 20 4F 55 54 4E 44 45 58 20 29 3B 0D 9F |EX, OUTNDEX );..|
00000D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 | B|
00000D50: 52 45 41 4B 3B 0D 9F 20 20 20 20 20 20 20 DD 0D |REAK;.. ..|
00000D60: 9F 20 20 20 45 4C 53 45 0D 9F 20 20 20 20 20 20 |. ELSE.. |
00000D70: 20 53 57 49 54 43 48 28 43 48 4F 49 43 45 29 0D | SWITCH(CHOICE).|
00000D80: 9F 20 20 20 20 20 20 20 DB 0D 9F 20 20 20 20 20 |. ... |
00000D90: 20 20 20 20 20 20 43 41 53 45 20 31 3A 0D 9F 20 | CASE 1:.. |
00000DA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4E | IN|
00000DB0: 4E 44 45 58 2B 2B 3B 0D 9F 20 20 20 20 20 20 20 |NDEX++;.. |
00000DC0: 20 20 20 20 20 20 20 20 43 4F 50 59 42 55 46 46 | COPYBUFF|
00000DD0: 28 49 4E 42 55 46 46 2C 20 4F 55 54 42 55 46 46 |(INBUFF, OUTBUFF|
00000DE0: 2C 20 49 4E 4E 44 45 58 2C 20 4F 55 54 4E 44 45 |, INNDEX, OUTNDE|
00000DF0: 58 29 3B 0D 9F 20 20 20 20 20 20 20 20 20 20 20 |X);.. |
00000E00: 20 20 20 20 42 52 45 41 4B 3B 0D 9F 0D 9F 20 20 | BREAK;.... |
00000E10: 20 20 20 20 20 20 20 20 20 43 41 53 45 20 32 3A | CASE 2:|
00000E20: 0D 9F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000E30: 20 4F 55 54 42 55 46 46 5B 30 5D 3D 35 3B 0D 9F | OUTBUFF[0]=5;..|
00000E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4F | O|
00000E50: 55 54 4E 44 45 58 2B 2B 3B 0D 9F 20 20 20 20 20 |UTNDEX++;.. |
00000E60: 20 20 20 20 20 20 20 20 20 20 43 4F 50 59 42 55 | COPYBU|
00000E70: 46 46 28 49 4E 42 55 46 46 2C 20 4F 55 54 42 55 |FF(INBUFF, OUTBU|
00000E80: 46 46 2C 20 49 4E 4E 44 45 58 2C 20 4F 55 54 4E |FF, INNDEX, OUTN|
00000E90: 44 45 58 29 3B 0D 9F 20 20 20 20 20 20 20 20 20 |DEX);.. |
00000EA0: 20 20 20 20 20 20 42 52 45 41 4B 3B 0D 9F 20 20 | BREAK;.. |
00000EB0: 20 20 20 20 20 DD 0D 9F DD 0D 9C 0D 9C 43 4F 50 | ........COP|
00000EC0: 59 42 55 46 46 28 49 4E 42 55 46 46 2C 20 4F 55 |YBUFF(INBUFF, OU|
00000ED0: 54 42 55 46 46 2C 20 49 4E 4E 44 45 58 2C 20 4F |TBUFF, INNDEX, O|
00000EE0: 55 54 4E 44 45 58 20 29 0D 9C 43 48 41 52 20 49 |UTNDEX )..CHAR I|
00000EF0: 4E 42 55 46 46 5B 5D 3B 0D 9C 43 48 41 52 20 4F |NBUFF[];..CHAR O|
00000F00: 55 54 42 55 46 46 5B 5D 3B 0D 9C 49 4E 54 20 49 |UTBUFF[];..INT I|
00000F10: 4E 4E 44 45 58 3B 0D 9C 49 4E 54 20 4F 55 54 4E |NNDEX;..INT OUTN|
00000F20: 44 45 58 3B 0D 9C DB 0D 9C 20 20 20 44 4F 0D 9C |DEX;..... DO..|
00000F30: 20 20 20 DB 0D 9C 20 20 20 20 20 20 20 4F 55 54 | ... OUT|
00000F40: 42 55 46 46 5B 20 20 20 4F 55 54 4E 44 45 58 20 |BUFF[ OUTNDEX |
00000F50: 5D 3D 49 4E 42 55 46 46 5B 20 20 49 4E 4E 44 45 |]=INBUFF[ INNDE|
00000F60: 58 20 5D 3B 0D 9C 20 20 20 20 20 20 20 49 4E 4E |X ];.. INN|
00000F70: 44 45 58 2B 2B 3B 0D 9C 20 20 20 20 20 20 20 4F |DEX++;.. O|
00000F80: 55 54 4E 44 45 58 2B 2B 3B 0D 9C 20 20 20 DD 0D |UTNDEX++;.. ..|
00000F90: 9C 20 20 20 57 48 49 4C 45 28 49 4E 4E 44 45 58 |. WHILE(INNDEX|
00000FA0: 3C 3D 53 54 52 4C 45 4E 28 49 4E 42 55 46 46 29 |<=STRLEN(INBUFF)|
00000FB0: 29 3B 0D 9C DD 0D 1C 0D 00 |);....... |
.../*PROGRAM TO CONVERT SUPER C
*/../*FILES TO/FROM SEQ FILES
*/../*CONVERTING FILETYPES
*/../*AND CONTROL CODES
*/..../*#DEFINE POWER*/..#IFDEF POWER
..#INCLUDE "STDIO.H"..#DEFINE CLR '\223'
..#ELSE..#INCLUDE "H:STDIO.H"..#ENDIF...
.CHAR INNAME[25];..CHAR OUTNAME[25];..IN
T DRIVIN;..INT DRIVOUT;..#IFDEF POWER..
FILE INCHAN;.. FILE OUTCHAN;..#ELSE.
.FILE INCHAN;..FILE OUTCHAN;..#ENDIF....
MAIN()..... VOID FAST();.. INT MENU(
);.... INT CHOICE;.. INT STATUS=0;..
CHAR INBUFF[255];.. CHAR OUTBUFF[25
5];.... WHILE((CHOICE=MENU())!='0')..
... CHOICE=(CHOICE=='1')?1:2;..
PUTCHAR(CLR);..#IFDEF POWER..
GETCHAR();..#ENDIF.. NAMEFIL
E("SOURCE ",INNAME);.. DRIVIN=DRIV
E("SOURCE ");.. NAMEFILE("DESTINAT
ION ",OUTNAME);.. DRIVOUT=DRIVE("D
ESTINATION ");.. MODNAMES( CHOICE
);..#IFDEF POWER.. INCHAN=FOP
EN(INNAME,"R");.. OUTCHAN=FOP
EN(OUTNAME,"W");..#ELSE.. INC
HAN=OPEN(DRIVIN,2,INNAME);..
OUTCHAN=OPEN(DRIVOUT,3,OUTNAME);..#ENDIF
..PUTCHAR(CLR);..PRINTF("\N\N\11\11\11\1
1WORKING!");..STATUS=0;.... WHILE(
!STATUS) /* READ A LINE AND CONVERT IT *
/.. ... FGETS(INBUFF, 25
4, INCHAN);..#IFDEF POWER..
STATUS=FEOF(INCHAN);..#ELSE..
STATUS=EOF;..#ENDIF.. CO
NVERT(CHOICE,INBUFF,OUTBUFF);..
FPUTS(OUTBUFF,OUTCHAN);.. .....
CLOSE(INCHAN);.. CLOSE(OUTCH
AN);.. ........MODNAMES( CHOICE ) /* M
ODIFY FILENAME FOR */..INT CHOICE;
/*READ/WRITE USR/SEQ */..... SWITC
H (CHOICE).. ... CASE 1 :..
STRCAT(INNAME, ",U,R");..
STRCAT(OUTNAME, ",S,W");.. B
REAK;.. CASE 2 :.. STRCA
T(INNAME, ",S,R");.. STRCAT(OU
TNAME, ",U,W");.. BREAK;.. .
.......NAMEFILE(FILETYPE,NAME) /
* INPUT FILENAME */..CHAR *FILE
TYPE;..CHAR *NAME; /
*PASS POINTER TO FILENAME */..... PRIN
TF("\N%SFILE NAME: ",FILETYPE);.. GETS
(NAME,16);..
/* SUPER C GETS() FIX*/.. IF (*(NA
ME+(STRLEN(NAME)-1))=='\N').. *(NAME
+(STRLEN(NAME)-1))='\0';.......INT DRIVE
(DIRECTION) /*INPUT/OUTPUT D
RIVE */..CHAR *DIRECTION;..... CHAR K
EY;.. DO.. ... PRINTF("\N%SDRIV
E A, B, OR H? ",DIRECTION);.. KEY=G
ETCHAR();.. PUTCHAR (KEY);.. ...
WHILE((KEY!='A')&&(KEY!='B')&&(KEY!='H
'));.... RETURN(KEY=='A')?8:(KEY=='B')
?9:15;.......INT MENU()..... INT CHOIC
E;.. DO.. ... PRINTF("%C\N",CL
R);.. PRINTF(" 1. SUPER C TO SEQUE
NTIAL\N");.. PRINTF(" 2. SEQUENTIA
L TO SUPER C\N\N");.. PRINTF(" 0.
EXIT");.. CHOICE=GETCHAR();.. ..
. WHILE((CHOICE!='0')&&(CHOICE!='1')&&
(CHOICE!='2'));.. RETURN CHOICE;......
.CONVERT(CHOICE, INBUFF, OUTBUFF)..INT C
HOICE;..CHAR INBUFF[];..CHAR OUTBUFF[];.
...... STATIC INT LINENUM=0;.. INT I
NNDEX=0;.. INT OUTNDEX=0;.... IF(LIN
ENUM==0).. SWITCH(CHOICE)..
... CASE 1:.. IN
NDEX+=3;.. LINENUM=1;..
COPYBUFF(INBUFF, OUTBUFF,INN
DEX, OUTNDEX);.. BREAK;...
. CASE 2:.. OUTB
UFF[0]=133;.. OUTBUFF[1]=1
29;.. OUTBUFF[2]=5;..
OUTNDEX+=3;.. LI
NENUM=1;.. COPYBUFF( INBUF
F, OUTBUFF, INNDEX, OUTNDEX );..
BREAK;.. ... ELSE..
SWITCH(CHOICE).. ... CA
SE 1:.. INNDEX++;..
COPYBUFF(INBUFF, OUTBUFF, INNDEX
, OUTNDEX);.. BREAK;....
CASE 2:.. OUTBUFF
[0]=5;.. OUTNDEX++;..
COPYBUFF(INBUFF, OUTBUFF, INND
EX, OUTNDEX);.. BREAK;..
........COPYBUFF(INBUFF, OUTBUFF, I
NNDEX, OUTNDEX )..CHAR INBUFF[];..CHAR O
UTBUFF[];..INT INNDEX;..INT OUTNDEX;....
. DO.. ... OUTBUFF[ OUTNDEX
]=INBUFF[ INNDEX ];.. INNDEX++;..
OUTNDEX++;.. ... WHILE(INNDEX
<=STRLEN(INBUFF));.......
> CLICK IMAGE PREVIEW FOR FULL MODAL