home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 Janurary / 64er_Magazin_89-01_1989_Markt__Technik_de_Side_C.d64 / grafik hc (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  986 b   |  43 lines
  1. 100 print"[147]hardcoy fuer einsteiger von thomas lipp";chr$(13);chr$(13)
  2. 110 open 1,4,1
  3. 120 print#1,chr$(27);"@" : rem drucker initialisieren
  4. 130 print#1,chr$(27);chr$(108);chr$(10); : rem 10 spalten linker rand
  5. 140 print#1,chr$(27);chr$(51);chr$(24); : rem zeilenabstand 24/216 zoll
  6. 150 :
  7. 160 dim s(7,7) : rem 64 bit feld
  8. 170 b=8192     : rem startadresse, basis
  9. 180 :
  10. 190 for i=0 to 7
  11. 200 : a(7-i) = 2^i : rem in a(0-7) ist
  12. 210 :                rem 128, 64, .. 1
  13. 220 next i
  14. 230 :
  15. 240 for z=0 to 24
  16. 250 : print#1,chr$(27);"*";chr$(4);chr$(64);chr$(1); : rem grafik-sequenz
  17. 260 : for s=0 to 39
  18. 270 :   for n=0 to 7
  19. 280 :
  20. 290 :     m=b+z*320+s*8+n
  21. 300 :     x = peek(m)
  22. 310 :     print chr$(13);"[145]";m;" ";
  23. 320 :     for i=0 to 7
  24. 330 :       if x>=a(i) then x=x-a(i) : s(n,i) =1 : print"*"; : goto350
  25. 340 :       s(n,i) = 0 : print".";
  26. 350 :     next i
  27. 360 :   next n
  28. 370 :
  29. 380 :   rem kippen des 8-byte blocks
  30. 390 :
  31. 400 :   for n=0 to 7
  32. 410 :     j = 0
  33. 420 :     for i=0 to 7
  34. 430 :       j = j+s(i,n)*a(i)
  35. 440 :     next i
  36. 450 :     rem und drucken des bytes
  37. 460 :     print#1,chr$(j);
  38. 470 :   next n
  39. 480 : next s
  40. 490 : print#1,chr$(13);
  41. 500 next z
  42. 510 close 1
  43.