6502/C02
1
0
Fork 0
mirror of https://github.com/RevCurtisP/C02.git synced 2024-11-25 06:31:25 +00:00
Code Issues Projects Releases Wiki Activity

Created program test/filesrecs.c02

Browse Source
This commit is contained in:
Curtis F Kaylor 2020-09-24 12:11:05 -04:00
parent 0ffce0edfa
commit 80c75bdb5e
1 changed files with 49 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
test/filerecs.c02 Normal file
View File

@ -0,0 +1,49 @@
/***********************************************
* 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;