Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!think.com!spool.mu.edu!news.nd.edu!mentor.cc.purdue.edu!piskacrj
From: piskacrj@mentor.cc.purdue.edu (Robert J Piskac)
Newsgroups: comp.sys.cbm
Subject: Sequential file reader
Message-ID: <11633@mentor.cc.purdue.edu>
Date: 30 Apr 91 20:01:04 GMT
Article-I.D.: mentor.11633
Organization: Purdue University
Lines: 31


Here is a short program to read sequential files on a C=64.  Awhile
ago I saw some activity on the subject.

To pause the file from being listed press the stop key.  Then press
any other key to continue or press x to stop the listing of the file .

I have a C128 version if anyone is interested.

begin 600 type64
M`1P>"`H`CR!025-+04,@0D%+15)9(%-/1E1705)%`"H(%`">*#(P.3(I````
M(-4((/,((.0((#L)J1*-GPBI((V8":E_C9<)($X)(+T)K:`(\`8@Z0E,+`A@
M#L,]-C0@T$E32T%#(,)!2T5262!&24Q%(%)%041%4@!&24Q%3D%-12`M/@#$
M159)0T4@*$$L0BP@3U(@0RD@+3X`%@`````@("`@("`@("`@("`@("`@("`@
M("`@`"`@("`@("`@("`@("`@("`@("`@("`L4RQ2H`"Y60CP!R#2_\A,UPA@
MH`"Y?0CP!R#2_\A,Y@A@J4&-F`FI1(V7":``N8D(\`<@TO_(3/\(H`BB0<2Z
M\`7HR$P/"8ZD"(H@TO^I`8V@"(V?""!.":)!H`CLI`CP!<CH3"X)A+I@J2"@
M`)FD",C,GPC0]Z(`CJ`(8""1"2#D__#[R?`*R13P$B"9"4Q1"2"!":D@TO\@
MTO]@K:`(\-S.H`@@@0D@@0E,3@FIG2#2_ZD@(-+_J9T@TO]@J:0@TO]@``#-
MF`F0'LV7";`9K*`(S)\(\!%((($):)FD""#2_^Z@"""1"6"MH`C0`6"@`*(`
MN:0(G;L(Z,C,H`C0\ZV["*``N=$(G;L(Z,C`!-#TCJ,(8*V[",DDT`-,2PJM
MHPBBNZ`((+W_H@`@:/^I`Z:ZH``@NO\@P/^P':(#(,;_L!8@S_]((+?_T`QH
M(-+_(.'_\$P7"F@@S/^I`R##_V`@S/\@Y/_P^\E8\.NB`R#&_TP7"B2I`:)*
MH`H@O?^B`(Z-"JD`(&C_J02FNJ``(+K_(,#_L!BB!"#&_[`1(,D*()4*K8T*
MT`8@LPI,=@H@S/^I!"##_V```````````"#)"B"W__`&J0&-C0I@(,__C8X*
M(,__C8\*(-(*8*D@(-+_(,__\`8@TO],N`JI(-+_8"#/_R#/_V```"!!"ZD`
MC=`*C=$*HA`8+HX*+H\*+M`*+M$*.*W0"ND*J*W1"ND`D`:,T`J-T0K*T-TN
MC@HNCPJMT`H8:3`@*`NMC@J/"M"[H`"YD`H@TO_(P`70]6!(H`.YD`K(F9`*
<P`'P!8B(3"L+:(B9D`I@H`"I`)F0"LC`!=#X8/_(
`
end