home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 July / 64er_Magazin_86-07_1986_Markt__Technik_de.d64 / griech._parallel (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  48 lines
  1. 10 rem*******griechisch/parallel*******
  2. 11 rem
  3. 12 rem fuer vizawrite & sg-10 drucker
  4. 13 rem
  5. 14 rem         rene' krause
  6. 15 rem         ottostr. 21
  7. 16 rem         5100 aachen
  8. 17 rem
  9. 18 rem*********************************
  10. 20 open 4,4
  11. 30 e$=chr$(27):print#4,e$ chr$(42) chr$(0)
  12. 40 for n=1 to 26
  13. 50 for m=1 to 13
  14. 60 read a
  15. 70 if m>1 then 100
  16. 80 print#4,e$ chr$(42) chr$(1) chr$(a) chr$(a);
  17. 90 if m=1 then 110
  18. 100 print#4,chr$(a);
  19. 110 next m:next n
  20. 120 print#4,e$ chr$(36) chr$(1)
  21. 130 close4
  22. 140 data 35,139,28,0,34,0,34,20,8,20,34,0,0
  23. 150 data 36,139,127,128,0,128,18,128,106,4,0,0,0
  24. 160 data 38,11,128,2,133,72,33,18,12,32,64,128,0
  25. 170 data 64,139,12,2,16,66,176,2,156,0,64,0,0
  26. 180 data 192,139,0,0,108,16,130,16,130,68,0,0,0
  27. 190 data 222,139,0,0,73,180,1,36,1,36,2,0,0
  28. 200 data 223,11,32,0,64,60,0,64,0,64,62,1,0
  29. 210 data 161,139,16,32,0,60,2,192,34,128,124,0,16
  30. 220 data 162,139,0,0,128,126,0,24,36,66,0,66,0
  31. 230 data 166,139,0,0,64,2,68,40,16,8,4,2,0
  32. 240 data 167,11,1,126,0,4,0,4,0,120,4,0,0
  33. 250 data 168,139,0,64,0,66,60,0,8,16,32,64,0
  34. 260 data 169,139,0,0,65,168,21,170,0,40,0,0,0
  35. 270 data 170,139,32,0,62,0,32,0,62,0,32,0,0
  36. 280 data 171,139,0,2,1,16,1,126,128,16,224,0,0
  37. 290 data 172,139,0,28,34,0,34,28,32,0,32,0,0
  38. 300 data 173,139,0,32,64,0,64,0,124,2,64,0,64
  39. 310 data 174,139,0,8,0,127,128,16,160,64,0,0,0
  40. 320 data 175,139,0,34,68,8,64,60,2,32,66,4,0
  41. 330 data 176,139,128,96,16,0,8,54,8,0,16,96,128
  42. 340 data 177,139,60,64,2,0,2,28,2,0,2,64,60
  43. 350 data 178,139,2,4,10,16,34,64,34,16,10,4,2
  44. 360 data 179,139,0,56,68,16,130,16,130,16,68,56,0
  45. 370 data 189,139,0,130,68,170,16,130,0,130,0,130,0
  46. 380 data 190,139,0,0,24,36,0,255,0,36,24,0,0
  47. 390 data 191,139,58,0,70,0,64,0,70,0,58,0,0
  48.