home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 52 / 64er_Magazin_Sonderheft_52_19xx_Markt__Technik_de_Side_B.d64 / grafik-designer (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  33 lines
  1. 60000 rem *****************************
  2. 60001 rem g r a f i k - d e s i g n e r
  3. 60002 rem *****************************
  4. 60003 data"","","[159]","[156]","","","[158]","[129]","[149]","[150]","[151]","[152]","[153]","[154]","[155]"
  5. 60004 dimz$(25):i=1024:dimy$(15):fori4=1to15:ready$(i4):nexti4
  6. 60005 ifpeek(i)=0thena=i+1:goto60008
  7. 60006 ifi>2023then60011
  8. 60007 i=i+1:goto60005
  9. 60008 fori=atoa+38:ifpeek(i)=0thenb=i-1
  10. 60009 next:fori=a-1+40to2023step40:ifpeek(i)=0thenc=i+1
  11. 60010 next
  12. 60011 ab=b-a:d=c+ab:ifa=0orb=0orc=0ord=0thenprint"?illegal size  error":end
  13. 60012 fa=peek(53280)
  14. 60013 iffa>15thenfa=fa-16:goto60013
  15. 60014 fori1=atocstep40:z$="?"+chr$(34):fori=i1toi1+ab:x=peek(i):cl=peek(i+54272)
  16. 60015 ifcl>15thencl=cl-16:goto60015
  17. 60016 ifrv=2andx<128thenrv=3
  18. 60017 ifx>127andrv=0thenrv=1
  19. 60018 ifrv=1orrv=2thenx=x-128
  20. 60019 ifx>63andx<96thenx=x+32:goto60023
  21. 60020 ifx>96andx<128thenx=x+64:goto60023
  22. 60021 ifx>0 andx<32thenx=x+64:goto60023
  23. 60022 ifx>=32andx<64thenx=x
  24. 60023 iffa=clthen60027
  25. 60024 fa=cl:iffa=0thenz$=z$+"[144]"
  26. 60025 fori2=1to15:iffa=i2thenz$=z$+y$(i2)
  27. 60026 nexti2
  28. 60027 ifrv=1thenz$=z$+"":rv=2
  29. 60028 ifrv=3thenz$=z$+"[146]":rv=0
  30. 60029 z$=z$+chr$(x):nexti:z$=z$+chr$(34):z$(an)=z$:z$="":an=an+1:rv=0:nexti1
  31. 60030 input"[147]ab welcher zeile ";zn:ifzn<0orzn>63000then60030
  32. 60031 print"[147]":fori=0to(c-a)/40:printzn+i;z$(i):next:print"";:end
  33.