home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 August / 64er_Magazin_88-08_1988_Markt__Technik_de_Side_A.d64 / einzelzeichen (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  615 b   |  38 lines
  1. 10 rem programm einzelzeichen
  2. 20 rem startadresse fuer zeichen
  3. 30 rem 24576 + (ascii-32) *47
  4. 40 open3,4
  5. 50 print#3,chr$(27);chr$(120);chr$(49):rem nlq ein
  6. 60 print#3,chr$(27);chr$(58);chr$(0);chr$(0);chr$(0):rem download
  7. 65 close3
  8. 70 input "ascii-wert? ";a
  9. 80 if a=0 then 300
  10. 90 if a<33 then 40
  11. 100 if a>127 then 40
  12. 110 b=a-32
  13. 120 b=24576+b*47
  14. 125 open3,4
  15. 130 print#3,chr$(27);chr$(38);chr$(0);:rem eigenes zeichen
  16. 140 print#3,chr$(a);chr$(a);
  17. 150 for i=0 to 46
  18. 160 c=peek(b+i)
  19. 170 print#3,chr$(c);
  20. 180 nexti
  21. 190 close3
  22. 200 goto70
  23. 300 geta$
  24. 310 if a$<>""then300
  25. 320 print "testen j/n"
  26. 330 get a$
  27. 340 if a$=""then 330
  28. 350 if a$="j" then 400
  29. 360 stop
  30. 400 open3,4
  31. 410 print#3,chr$(27);chr$(37);chr$(49);chr$(0)
  32. 420 for i=32 to 127
  33. 430 print#3,chr$(i);
  34. 440 nexti
  35. 445 print#3
  36. 450 close3
  37. 460 stop
  38.