home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 October / 64er_Magazin_84-10_1984_Markt__Technik_de.d64 / hc-epson (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  45 lines
  1. 0 open1,4,1:print#1,chr$(27);"l";chr$(64);chr$(1);
  2. 2 dim s(7,7):l=0:q=8192
  3. 3 a=128:b=64:c=32:d=16:e=8:f=4:g=2:h=1
  4. 4 forl=1to25
  5. 6 forr=qtoq+320step8
  6. 8 forn=0to7
  7. 10 m=r+n
  8. 11 printm:print"[145][145]"
  9. 12 x=peek(m)
  10. 28 if x>=a then x=x-a:gosub 1000:s(n,0)=1:goto 30
  11. 29 gosub 2000:s(n,0)=0
  12. 30 if x>=b then x=x-b:gosub 1000:s(n,1)=1:goto 50
  13. 40 gosub 2000:s(n,1)=0
  14. 50 if x>=c then x=x-c:gosub 1000:s(n,2)=1:goto 70
  15. 60 gosub 2000:s(n,2)=0
  16. 70 if x>=d then x=x-d:gosub 1000:s(n,3)=1:goto 90
  17. 80 gosub 2000:s(n,3)=0
  18. 90 if x>=e then x=x-e:gosub 1000:s(n,4)=1:goto110
  19. 100 gosub 2000:s(n,4)=0
  20. 110 if x>=f then x=x-f:gosub 1000:s(n,5)=1:goto130
  21. 120 gosub 2000:s(n,5)=0
  22. 130 if x>=g then x=x-g:gosub 1000:s(n,6)=1:goto150
  23. 140 gosub 2000:s(n,6)=0
  24. 150 if x=hthen gosub 1000:s(n,7)=1:goto3000
  25. 160 gosub 2000:s(n,7)=0
  26. 180 nextn:goto3000:rem*** wenn mehr datas dann goto4! ***
  27. 1000 rem print"*";
  28. 1010 return
  29. 2000 remprint".";
  30. 2010 return
  31. 3000 a=0 :rem *** umwandlung der wertikalen datas in horizontaldatas ***
  32. 4001 rem *** umwandlung der horizonalen datas in epson datas ***
  33. 4010 forn=oto7
  34. 4011 j=s(0,n)*128+(s(1,n)*64)+(s(2,n)*32)+(s(3,n)*16+s(4,n)*8)
  35. 4015 k(n)=j+(s(5,n)*4)+(s(6,n)*2)+s(7,n)
  36. 4020 print#1,chr$(k(n));
  37. 4030 nextn:nextr:
  38. 4040 q=q+320:print#1,chr$(13);chr$(27);"l";chr$(64);chr$(1);:nextl
  39. 4050 rem *** basic hardcopy    ***
  40. 4060 rem *** by mark zimmermann ***
  41. 4070 rem *** postfach 22 00 44 ***
  42. 4080 rem *** stadtwaldwende 20 ***
  43. 4090 rem *** d - 4300 essen 01 ***
  44. 5000 rem *** for  c=64 & epson ***
  45.