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