home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 December / 1987-12.d64 / printscr.changer (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  53 lines
  1. 10 rem copyright 1987 compute! publications, inc. - all rights reserved
  2. 20 printchr$(14)chr$(8)"[147]   [195]opyright 1987 [195][207][205][208][213][212][197]! [208]ub., [201]nc."
  3. 30 printtab(10)"[193]ll rights reserved"
  4. 40 dimm(55):print"   [208]arameter [195]hanger for [208]rintscreen"
  5. 50 forj=0to54:readm(j):next:fori=1to1500:next
  6. 60 print"[147][201]s your printer [195]ommodore 1525":print"compatible (y/n)";
  7. 70 inputa$:ifa$<>"y"anda$<>"n"then70
  8. 80 m(15)=0:ifa$="y"thenm(15)=1
  9. 90 print"[212]he numbers in parentheses indicate"
  10. 100 print"the usual values for commands."
  11. 110 print"[215]hen printing, what logical file"
  12. 120 print"number do you use (14)";:inputm(16)
  13. 130 print"[215]hat is your printer device":print"number (4)";:inputm(17)
  14. 140 ifm(15)=1then340
  15. 150 print"[215]hat secondary address do you want"
  16. 160 print "to use for transparent with":print"linefeed (4)";:inputm(18)
  17. 170 print"[215]hat command is needed to set your"
  18. 180 print"printer to 7/72-inch line spacing?"
  19. 190 print"[197]nter one code per question mark."
  20. 200 print"[193]fter you've entered all values (ie.,"
  21. 210 print"27, 65, 7), press [210][197][212][213][210][206] to continue."
  22. 220 i=20:l=19:gosub390
  23. 230 print"[215]hat command is needed to set your"
  24. 240 print"printer back to 12/72-inch line"
  25. 250 print"spacing (27, 65, 12)"
  26. 260 i=29:l=28:gosub390
  27. 270 print"[215]hat command is needed to turn on"
  28. 280 print"your printer's dot-column graphics"
  29. 290 print"mode (27, 75)?"
  30. 300 i=38:l=37:gosub390
  31. 310 m(46)=2:rem number of width-bytes following graphic command
  32. 320 m(47)=64:rem low-byte of width number
  33. 330 m(48)=1:rem high-byte of width number
  34. 340 forj=0to55:poke52996+j,m(j):next:rem $cf04
  35. 350 print"[207]kay, your printer parameters have"
  36. 360 print"been stored in memory.  [206]ow, load"
  37. 370 print"and run [208]rint[211]creen. [212]hen save"
  38. 380 print"it to disk under a new name.":end
  39. 390 j=0
  40. 400 a$=""
  41. 410 input" ";a$:ifa$=""then440
  42. 420 m(i+j)=val(a$):j=j+1
  43. 430 ifj<8then400
  44. 440 m(l)=j:return
  45. 450 data 96,2,25,96,10,1,13,5,19,96
  46. 460 data 8,15,19,20,96
  47. 470 data 1
  48. 480 data 14,4,0
  49. 490 data 1,8,0,0,0,0,0,0,0
  50. 500 data 1,15,0,0,0,0,0,0,0
  51. 510 data 0,0,0,0,0,0,0,0,0
  52. 520 data 0,0,0,0,0,0,0,0,0
  53.