home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh47a.d64 / buchstaben-demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.