home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 June / 64er_Magazin_86-06_1986_Markt__Technik_de_Side_A.d64 / shopmaster (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  657b  |  35 lines
  1. 10 rem ***    shopmaster    ***
  2. 20 rem konvertiert printshop-grafik
  3. 30 rem zu printmaster-grafik
  4. 40 rem (c) 64'er, markt und technik
  5. 50 rem geschrieben von boris schneider
  6. 60 rem am 23.03.86 um 23.17 uhr
  7. 70 rem:
  8. 80 dim g$(572)
  9. 90 input "filename";a$
  10. 100 for i=1tolen(a$)
  11. 101 :b$=b$+chr$(asc(mid$(a$,i,1))+32)
  12. 102 nexti
  13. 110 b$=b$+".gra"
  14. 120 open 1,8,2,a$+",p,r"
  15. 130 get#1,x$:get#1,x$
  16. 140 fory=0to51
  17. 150 :forx=1to11
  18. 160 ::get#1,g$
  19. 161 ::g$(y*11+x)=chr$(asc(g$+chr$(0)))
  20. 170 :nextx
  21. 180 nexty
  22. 190 close1
  23. 191 print"zieldiskette einlegen[146]"
  24. 192 gete$:ife$=""then192
  25. 200 open 1,8,2,b$+",p,w"
  26. 210 print#1,chr$(80)chr$(135)chr$(88)chr$(0)chr$(52)chr$(0)chr$(180)chr$(139);
  27. 220 for y=0to51
  28. 230 :forx=1to11
  29. 240 ::print#1,g$(y*11+x);
  30. 250 :nextx
  31. 260 :print#1,chr$(139);
  32. 270 nexty
  33. 280 close1
  34. 290 run
  35.