home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 March / 64er_Magazin_89-03_1989_Markt__Technik_de_Side_A.d64 / buchstaben (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  70 lines
  1. 10 line=49152
  2. 20 hardcopy=line+3
  3. 30 clear=hardcopy+3
  4. 50000 rem zeichen-routine
  5. 50005 if zf=1 then 50055
  6. 50010 zf=1:dimzd(255):read za$:goto 50040
  7. 50020 read za$:if za$<>"-2" then 50020
  8. 50030 read za$:if za$="ende" then 50055
  9. 50040 zd(asc(za$))=peek(65)+peek(66)*256
  10. 50050 goto 50020
  11. 50055 zh=zd(asc(z$)):poke 66,int(zh/256):poke 65,zh-peek(66)*256
  12. 50060 read z1,z2
  13. 50070 gosub 50160
  14. 50080 z3=z1:z4=z2
  15. 50090 read z1
  16. 50100 if z1=-2 then z1=21:z2=7:gosub 50160:return
  17. 50110 if z1=-1 then 50060
  18. 50120 read z2
  19. 50130 gosub 50160
  20. 50140 sys 49152,1,z1,z2,z3,z4
  21. 50150 z3=z1:z4=z2:goto 50090
  22. 50155 rem vergroessern und drehen
  23. 50160 z6=(z1-7)*za/15:z7=(z2-7)*zb/15
  24. 50170 zv=zw*(NULL)/180
  25. 50180 z1=zx+z6*cos(zv)-z7*sin(zv)
  26. 50190 z2=zy+1.2*(z6*sin(zv)+z7*cos(zv))
  27. 50200 return
  28. 60000 data "a",2,14,2,5,7,1,12,5,12,14,-1,2,7,12,7,-2
  29. 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
  30. 60020 data "c",12,12,9,14,5,14,2,12,2,3,5,1,9,1,12,3,-2
  31. 60030 data "d",2,14,2,1,8,1,12,4,12,11,8,14,2,14,-2
  32. 60040 data "e",12,14,2,14,2,1,12,1,-1,2,7,9,7,-2
  33. 60050 data "f",2,14,2,1,12,1,-1,2,7,9,7,-2
  34. 60060 data "g",8,9,12,9,12,12,9,14,5,14,2,12,2,3,5,1,9,1,12,3,-2
  35. 60070 data "h",2,1,2,14,-1,2,7,12,7,-1,12,1,12,14,-2
  36. 60080 data "i",7,14,7,1,-2
  37. 60090 data "j",2,1,12,1,12,11,9,14,4,14,2,11,-2
  38. 60100 data "k",2,1,2,14,-1,12,1,2,7,12,14,-2
  39. 60110 data "l",2,1,2,14,12,14,-2
  40. 60120 data "m",2,14,2,1,7,7,12,1,12,14,-2
  41. 60130 data "n",2,14,2,1,12,14,12,1,-2
  42. 60140 data "o",2,3,5,1,9,1,12,3,12,12,9,14,5,14,2,12,2,3,-2
  43. 60150 data "p",2,14,2,1,9,1,12,3,12,5,9,7,2,7,-2
  44. 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
  45. 60170 data "r",2,14,2,1,9,1,12,3,12,5,9,7,2,7,12,14,-2
  46. 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
  47. 60190 data "t",2,1,12,1,-1,7,1,7,14,-2
  48. 60200 data "u",2,1,2,12,5,14,9,14,12,12,12,1,-2
  49. 60210 data "v",2,1,2,10,7,14,12,10,12,1,-2
  50. 60220 data "w",1,1,4,14,7,9,10,14,13,1,-2
  51. 60230 data "x",2,1,12,14,-1,2,14,12,1,-2
  52. 60240 data "y",2,14,12,1,-1,2,1,6,8,-2
  53. 60250 data "z",2,1,12,1,2,14,12,14,-2
  54. 60260 data " ",0,0,-2
  55. 60270 data "0",12,12,2,3,5,1,9,1,12,3,12,12,9,14,5,14,2,12,2,3,-2
  56. 60280 data "1",4,5,10,1,10,14,-2
  57. 60290 data "2",2,3,5,1,9,1,12,3,12,6,2,11,2,13,12,13,-2
  58. 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
  59. 60310 data "4",12,1,2,6,2,10,12,10,-1,7,6,7,14,-2
  60. 60320 data "5",12,1,2,1,2,7,5,5,9,5,12,7,12,12,9,14,5,14,2,12,-2
  61. 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
  62. 60340 data "7",2,4,2,1,12,1,12,4,2,14,-2
  63. 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
  64. 60360 data 12,5,9,7,-2
  65. 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
  66. 60380 data "_",12,7,2,7,-1,9,11,12,7,9,3,-2
  67. 60390 data "!",7,12,7,1,-1,6.5,14,7.5,14,-2
  68. 60400 data ",",8,13,6,15,-2
  69. 60410 data "ende"
  70.