home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol026 / qsolist.bas < prev    next >
BASIC Source File  |  1984-04-29  |  569b  |  27 lines
  1. 3000    REM    LIST
  2.     PRINT "TURN PRINTER ON !!!!!!!!!!!!!!!!!!!!!"
  3.      INPUT "FILENAME: ";FILENAME$
  4.     COUNTER=0
  5. 3060    FILE    FILENAME$
  6.     LPRINTER
  7.     PRINT FILENAME$
  8.  
  9. 3100    REM
  10.     READ #1; CALL$,NAME$,QTH$,FREQ$,\
  11.     DATE$,TIME$,CARD$
  12.     IF CALL$="END" THEN 3200
  13.     COUNTER=COUNTER+1
  14.     PRINT CALL$;" -";TAB(11);NAME$;TAB(30);QTH$;\
  15.         TAB(55);DATE$;"  ";CARD$
  16.     GOTO 3100
  17.  
  18. 3200    CLOSE 1:CONSOLE
  19.     INPUT "New filename? (or 'END')";F$
  20.     IF F$="END" THEN 3300
  21.     FILENAME$=F$:GOTO 3060
  22.  
  23. 3300    REM
  24.     LPRINTER:PRINT:PRINT "END OF LIST"
  25.     PRINT COUNTER, "NAMES":CONSOLE:PRINT
  26.     GOTO 2
  27.