home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / programming / source / geoFontID.lnx / geoFontPrint (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  1999-06-16  |  3.0 KB  |  83 lines
  1. GEOfONTpRINT
  2. prg FORMATTED geos FILE v1.0
  3. wRITE iMAGE v2.1
  4. GEOwRITE    v2.0
  5. D +# K" T
  6. @GEOfONTpRINT ROUTINES
  7. .IFpASS1
  8. .INCLUDEGEOSmAC
  9. .ENDIF
  10. @__________________________________
  11. LOADPDRIVER:lOADwR6, #pRNTfILEnAME
  12. JSRfINDfILE;LOOK FOR PRINTER DRIVER
  13. CMP #5;'FILE NOT FOUND' ERROR
  14. BNE CONT
  15. LDANUMdRIVES
  16. CMP#2
  17. BNENOPDRIVER
  18. LDAPRINTfLAG;THIS IS FOR LATER
  19. CMP#1
  20. BEQNOPDRIVER
  21. JSRCHANGEDRIVE;IN id
  22. lOADbPRINTfLAG,#1;ONE DRIVE CHECKED
  23. JMPLOADPDRIVER
  24. NOPDRIVER:lOADwR0,#NOPDBOX
  25. JSRdOdLGbOX
  26. JMPeNTERdESKtOP
  27. CONT:lOADwR9,#DIReNTRYbUF
  28. lOADbR0l,#0
  29. JSRlDfILE
  30. JSRgETdIMENSIONS
  31. JSRiNITfORpRINT;INITIALIZE PRINTER
  32. @__________________________________
  33. CLRBUFF:lOADwR0, #$280
  34. lOADwR1, #GRBUFF
  35. JSRcLEARrAM
  36. ;______________________________________
  37. PRINTROW:lOADwR0, #GRBUFF;WHERE STUFF TO BE PRINTED IS
  38. lOADwR1, #PBUFF
  39. JSRpRINTbUFFER
  40. @__________________________________
  41. PRINTLINES:JSRCLRBUFF
  42. JSRMOVELN2
  43. JSRPRINTROW
  44. JSRCLRBUFF
  45. JSRMOVELN3
  46. JSRPRINTROW
  47. JSRCLRBUFF
  48. JSRMOVELN1
  49. JSRPRINTROW
  50. JSRCHKCANCL
  51. @__________________________________
  52. MOVELN1:lOADwR0, #back_scr_base
  53. lOADwR1, #GRBUFF
  54. lOADwR2, #320
  55. JSRmOVEdATA
  56. MOVELN2:lOADwR0, #(back_scr_base + #320)
  57. lOADwR1, #GRBUFF
  58. lOADwR2, #320
  59. JSRmOVEdATA
  60. @__________________________________
  61. MOVELN3:lOADwR0, #(back_scr_base + #640)
  62. lOADwR1, #GRBUFF
  63. lOADwR2, #320
  64. JSRmOVEdATA
  65. @__________________________________
  66. CHKCANCL:LDAPRESSfLAG
  67. AND#32
  68. BNECKMDATA
  69. @__________________________________
  70. CKMDATA:LDAMOUSEdATA
  71. BPLCKAREA
  72. @__________________________________
  73. CKAREA:lOADbR2l, #150
  74. lOADbR2h, #170
  75. lOADwR3, #120
  76. lOADwR4, #200
  77. JSRiSmSEiNrEGION
  78. BPLENDPL
  79. JMPDONECANC
  80. ENDPL:RTS
  81. @__________________________________
  82. @time  date   pAGE--page   .
  83.