home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / TINY-DIR-PRINTER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.3 KB  |  53 lines
  1. 90 GOTO200
  2. 100       TINY DIRECTORY PRINTER
  3. 110    FOR EPSON COMPATIBLE PRINTERS
  4. 120     (C) ALLAN L. COURTNEY D.M.D.
  5. 200 DIMA$(200),B$(200),C$(200)
  6. 210 POKE53280,8:POKE53281,8:POKE646,0
  7. 220 RO$=CHR$(18):RF$=CHR$(146):CH$=CHR$(147):DW$=CHR$(17)
  8. 225 B1$="****************************************":DP$=CHR$(14):DO$=CHR$(20)
  9. 227 B2$="***************************************":B3$="*"
  10. 228 P1$=CHR$(27)+CHR$(15):P2$=CHR$(27)+"S"+CHR$(1):P3$=CHR$(27)+"A"+CHR$(5)
  11. 235 PRINTCH$:GOSUB250
  12. 237 GOTO270
  13. 250 PRINTCH$RO$">>TINY DIRECTORY PRINTER<<   VERSION 1.0"RF$
  14. 260 PRINTTAB(6)RO$"(C) ALLAN L. COURTNEY D.M.D."RF$
  15. 265 RETURN
  16. 270 PRINTDW$DW$"PLACE DISK IN DRIVE AND PRESS A KEY":WAIT 198,1:GETA$
  17. 280 PRINTCH$:GOSUB250:PRINTDW$DW$"WORKING..."
  18. 300 OPEN1,8,0,"$0"
  19. 310 I=0:N$=CHR$(0)
  20. 320 FORN=1TO25:SP$=SP$+" ":NEXT
  21. 330 GET#1,D$,D$
  22. 360 I=I+1
  23. 370 GET#1,D$,D$
  24. 390 IFD$=""THEN500
  25. 410 GET#1,A$(I),B$(I)
  26. 420 C$(I)=STR$(ASC(A$(I)+N$)+ASC(B$(I)+N$)*256)
  27. 440 GET#1,D$
  28. 460 IFD$=""THEN360
  29. 480 C$(I)=C$(I)+D$
  30. 490 C$(I)=LEFT$(C$(I),25):GOTO440
  31. 500 CLOSE1
  32. 510 GOSUB250
  33. 520 PRINTDW$DW$"PRINTING..."
  34. 570 OPEN4,4
  35. 580 PRINT#4,P1$+P2$+P3$
  36. 590 PRINT#4,B1$B2$
  37. 600 PRINT#4,B3$;DP$;RIGHT$(C$(1),LEN(C$(1))-2);:PRINT#4,DO$" ";
  38. 610 PRINT#4,P1$P2$P3$B3$
  39. 620 FORJ=2TOISTEP3
  40. 630 IFC$(J)=""THENC$(J)=SP$
  41. 640 IFC$(J+1)=""THENC$(J+1)=SP$
  42. 650 IFC$(J+2)=""THENC$(J+2)=SP$
  43. 660 PRINT#4,B3$;C$(J);" ";C$(    
  44. 8763  "C$(J[170]2)B3$
  45. 670 [130]
  46. 680 [152]4,B1$B2$
  47. 700 [160]1
  48. 750 [141]250
  49. 800 [153]DW$DW$"ANOTHER DIRECTORY?";
  50. 810 [161]R$:[139]R$[178]""[167]810
  51. 820 [161]R$:[139]R$[178]"Y"[167][138]
  52. 830 [153]CH$:[128]
  53.