home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / GLEN / ROLODEXL.BAS < prev    next >
BASIC Source File  |  1991-09-12  |  1KB  |  38 lines
  1. 5 'Rolodex printout of cardfile.com in as a list to be taken with cellular phone
  2. 10 open "R",#1,"PHONE#",1
  3. 20 FIELD #1,1 AS X$
  4. 30 GET #1,1
  5. 40 A#=2
  6. 45 I=0
  7. 47 LPRINT:LPRINT:LPRINT "ROLODEX  ";DATE$
  8. 48 LPRINT "===================================================================";
  9. 49 LPRINT CHR$(15):WIDTH "LPT1:",132
  10. 50 C$=" "
  11. 60 B#=A#
  12. 65 I=I+1:J=I
  13. 70 FOR A#=B# TO B#+191 STEP 32
  14. 75      E$=" "
  15. 80     FOR REC#=A# TO A#+31
  16. 90             GET #1,REC#
  17. 95        IF C$=X$ THEN IF X$=" " THEN GOTO 105
  18. 100            E$=E$+X$
  19. 105        C$=X$
  20. 110    NEXT REC#
  21. 115     E$=MID$(E$,2)
  22. 120     IF E$<="     " THEN GOTO 140
  23. 122     IF J>0 THEN LPRINT RIGHT$("     "+STR$(J)+". ",6);E$;:GOTO 135
  24. 130     LPRINT E$;
  25. 135     J=0
  26. 140 NEXT A#
  27. 160 LPRINT " "
  28. 170 GET #1,REC#+1
  29. 180 IF EOF(1) THEN GOTO 200
  30. 185 LPRINT
  31. 190 GOTO 60
  32. 200 CLOSE
  33. 203 LPRINT "==================================================================="
  34. 204 LPRINT "END OF FILE";
  35. 205 LPRINT CHR$(18);CHR$(12):LPRINT:WIDTH "LPT1:",80
  36. 210 END
  37.  
  38.