home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / phon / pct_tipc.mrg < prev    next >
Text File  |  1984-12-26  |  256b  |  8 lines
  1. 605 IF LOF(1)<256 THEN PSE=-1:PRINT#1,XF$;
  2. 612 IF LOC(1)>250 THEN BUFCH=250:GOTO 615
  3. 613 BUFCH=LOC(1)
  4. 615 A$=INPUT$(BUFCH,#1);IF NS=0 THEN 635
  5. EN PSE=-1:PRINT#1,XF$;
  6. 612 IF LOC(1)>250 THEN BUFCH=250:GOTO 615
  7. 613 BUFCH=LOC(1)
  8. 615 A$=INPUT$(BUFCH,#1)