mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-11-18 21:07:28 +00:00
49 lines
1.5 KiB
Plaintext
49 lines
1.5 KiB
Plaintext
/***********************************************
|
|
* FILERECS - Test/Demo File Record Read/Write *
|
|
***********************************************/
|
|
|
|
//Specify System Header using -H option
|
|
#include <screen.h02>
|
|
#include <stddef.h02>
|
|
#include <stdlib.h02>
|
|
#include <intlib.h02>
|
|
#include <stdio.h02>
|
|
#include <stdiox.h02>
|
|
#include <string.h02>
|
|
#include <memory.h02>
|
|
#include <fileio.h02>
|
|
|
|
|
|
struct txtrec {
|
|
char name[23];
|
|
char start[3], dash, end[3];
|
|
char cr; char lf; char null;};
|
|
|
|
struct binrec {
|
|
char name[24];
|
|
char start[4], end[4];
|
|
};
|
|
|
|
char f; //File Channel
|
|
char text[128]; //Input Text
|
|
struct txtrec tr;
|
|
|
|
main:
|
|
f = fopen(#MREAD, "RECTEXT.TXT");
|
|
while (fgets(f, tr))
|
|
puts(tr);
|
|
fclose(f);
|
|
goto exit;
|
|
|
|
data: inline
|
|
"TEX AVERY",&1935,&1942, "TED BONNICKSEN",&1963,&1963, "BERNARD B. BROWN",&1934,&1934,
|
|
"GERRY CHINIQUY",&1964,&1964, "BOB CLAMPETT",&1937,&1946, "CAL DALTON",&1938,&1940,
|
|
"ARTHUR DAVIS",&1946,&1962, "EARL DUVALL",&1933,&1934, "FRIZ FRELENG",&1934,&1964,
|
|
"BEN HARDAWAY",&1934,&1940, "KEN HARRIS",&1959,&1959, "CAL HOWARD",&1938,&1938,
|
|
"UB IWERKS",&1937,&1937, "CHUCK JONES",&1938,&1964, "JACK KING",&1934,&1936,
|
|
"ABE LEVITOW",&1959,&1962, "ALEX LOVY",&1967,&1968, "NORMAN MCCABE",&1940,&1943,
|
|
"ROBERT MCKIMSON",&1946,&1969, "PHIL MONROE",&1963,&1964, "MAURICE NOBLE",&1961,&1964,
|
|
"TOM PALMER",&1933,&1933, "HAWLEY PRATT",&1961,&1964, "FRANK TASHLIN",&1936,&1946,
|
|
"RICHARD THOMPSON",&1963,&1963, "BILL TYTLA",&1964,&1964;
|
|
|
|
|