home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 March / 64er_Magazin_89-03_1989_Markt__Technik_de_Side_A.d64 / buchstaben-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  88 lines
  1. 10 line=49152
  2. 20 hardcopy=line+3
  3. 30 clear=hardcopy+3
  4. 50 def fnac(x)=(-atn(x/sqr(1-x^2))+(NULL)/2)*180/(NULL)
  5. 100 sys clear
  6. 110 a$="_hallo c64 redaktion! dies ist ein demo meiner hardcopyroutine!"
  7. 111 a$=a$+"endlich ist es moeglich,grafiken in hoher qualitaet zu drucken,die "
  8. 112 a$=a$+"man nicht nur in sein briefmarkenalbum kleben kann!"
  9. 113 a$=a$+"man kann 6 meter lange poster in doppelter aufloesung drucken!!!"
  10. 120 za=50:zb=50:l=len(a$):r=100:w=0:t=0
  11. 130 t=t+1:s=fnac((za^2-2*r^2)/((-2)*r^2))
  12. 140 w=w+s:zw=270-w
  13. 150 r=r+zb*s/360
  14. 160 zx=r*cos(w*(NULL)/180)+480
  15. 170 zy=(-r*sin(w*(NULL)/180)+480)*1.2
  16. 180 z$=mid$(a$,t,1):printz$;
  17. 190 gosub 50000
  18. 200 if t=l then 220
  19. 210 goto 130
  20. 220 print:sys hardcopy,960*1.2
  21. 230 end
  22. 50000 rem zeichen-routine
  23. 50005 if zf=1 then 50055
  24. 50010 zf=1:dimzd(255):read za$:goto 50040
  25. 50020 read za$:if za$<>"-2" then 50020
  26. 50030 read za$:if za$="ende" then 50055
  27. 50040 zd(asc(za$))=peek(65)+peek(66)*256
  28. 50050 goto 50020
  29. 50055 zh=zd(asc(z$)):poke 66,int(zh/256):poke 65,zh-peek(66)*256
  30. 50060 read z1,z2
  31. 50070 gosub 50160
  32. 50080 z3=z1:z4=z2
  33. 50090 read z1
  34. 50100 if z1=-2 then z1=21:z2=7:gosub 50160:return
  35. 50110 if z1=-1 then 50060
  36. 50120 read z2
  37. 50130 gosub 50160
  38. 50140 sys 49152,1,z1,z2,z3,z4
  39. 50150 z3=z1:z4=z2:goto 50090
  40. 50155 rem vergroessern und drehen
  41. 50160 z6=(z1-7)*za/15:z7=(z2-7)*zb/15
  42. 50170 zv=zw*(NULL)/180
  43. 50180 z1=zx+z6*cos(zv)-z7*sin(zv)
  44. 50190 z2=zy+1.2*(z6*sin(zv)+z7*cos(zv))
  45. 50200 return
  46. 60000 data "a",2,14,2,5,7,1,12,5,12,14,-1,2,7,12,7,-2
  47. 60010 data "b",2,14,2,1,9,1,12,3,12,5,9,7,12,9,12,12,9,14,2,14,-1,2,7,9,7,-2
  48. 60020 data "c",12,12,9,14,5,14,2,12,2,3,5,1,9,1,12,3,-2
  49. 60030 data "d",2,14,2,1,8,1,12,4,12,11,8,14,2,14,-2
  50. 60040 data "e",12,14,2,14,2,1,12,1,-1,2,7,9,7,-2
  51. 60050 data "f",2,14,2,1,12,1,-1,2,7,9,7,-2
  52. 60060 data "g",8,9,12,9,12,12,9,14,5,14,2,12,2,3,5,1,9,1,12,3,-2
  53. 60070 data "h",2,1,2,14,-1,2,7,12,7,-1,12,1,12,14,-2
  54. 60080 data "i",7,14,7,1,-2
  55. 60090 data "j",2,1,12,1,12,11,9,14,4,14,2,11,-2
  56. 60100 data "k",2,1,2,14,-1,12,1,2,7,12,14,-2
  57. 60110 data "l",2,1,2,14,12,14,-2
  58. 60120 data "m",2,14,2,1,7,7,12,1,12,14,-2
  59. 60130 data "n",2,14,2,1,12,14,12,1,-2
  60. 60140 data "o",2,3,5,1,9,1,12,3,12,12,9,14,5,14,2,12,2,3,-2
  61. 60150 data "p",2,14,2,1,9,1,12,3,12,5,9,7,2,7,-2
  62. 60160 data "q",2,3,5,1,9,1,12,3,12,12,9,14,5,14,2,12,2,3,-1,9,12,12,14,-2
  63. 60170 data "r",2,14,2,1,9,1,12,3,12,5,9,7,2,7,12,14,-2
  64. 60180 data "s",12,3,9,1,5,1,2,3,2,5,5,7,9,7,12,9,12,12,9,14,5,14,2,12,-2
  65. 60190 data "t",2,1,12,1,-1,7,1,7,14,-2
  66. 60200 data "u",2,1,2,12,5,14,9,14,12,12,12,1,-2
  67. 60210 data "v",2,1,2,10,7,14,12,10,12,1,-2
  68. 60220 data "w",1,1,4,14,7,9,10,14,13,1,-2
  69. 60230 data "x",2,1,12,14,-1,2,14,12,1,-2
  70. 60240 data "y",2,14,12,1,-1,2,1,6,8,-2
  71. 60250 data "z",2,1,12,1,2,14,12,14,-2
  72. 60260 data " ",0,0,-2
  73. 60270 data "0",12,12,2,3,5,1,9,1,12,3,12,12,9,14,5,14,2,12,2,3,-2
  74. 60280 data "1",4,5,10,1,10,14,-2
  75. 60290 data "2",2,3,5,1,9,1,12,3,12,6,2,11,2,13,12,13,-2
  76. 60300 data "3",2,3,5,1,9,1,12,3,12,6,9,7,12,8,12,12,9,14,5,14,2,12,-2
  77. 60310 data "4",12,1,2,6,2,10,12,10,-1,7,6,7,14,-2
  78. 60320 data "5",12,1,2,1,2,7,5,5,9,5,12,7,12,12,9,14,5,14,2,12,-2
  79. 60330 data "6",12,1,8,1,2,9,2,12,5,14,9,14,12,12,12,9,9,7,5,7,2,9,-2
  80. 60340 data "7",2,4,2,1,12,1,12,4,2,14,-2
  81. 60350 data "8",5,7,9,7,12,9,12,12,9,14,5,14,2,12,2,9,5,7,2,5,2,2,4,1,9,1,12,3
  82. 60360 data 12,5,9,7,-2
  83. 60370 data "9",2,14,8,14,12,6,12,3,9,1,5,1,2,3,2,6,5,8,9,8,12,6,-2
  84. 60380 data "_",12,7,2,7,-1,9,11,12,7,9,3,-2
  85. 60390 data "!",7,12,7,1,-1,6.5,14,7.5,14,-2
  86. 60400 data ",",8,13,6,15,-2
  87. 60410 data "ende"
  88.