home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2002-08_2002_CSW_Side_A.d64 / screen-edit (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  55 lines
  1. 2 p=p+1
  2. 4 ifp=1then16
  3. 6 ifp=2then34
  4. 8 ifp=3thenloadf$(1),8,1
  5. 10 ifp=4thenloadf$(2),8,1
  6. 12 ifp=5then84
  7. 14 ifp=6then42
  8. 16 poke53280,0:poke53281,11:print"[147][153]":g=55296:h=1024:c1=7:c2=7:c3=7
  9. 18 print"[198]1/[198]2:[195]olor1  [198]3/[198]4:[195]olor2  [198]5/[198]6:[195]olor3"
  10. 20 printtab(10)"[198]7:[211]ave     [198]8:[209]uitt"
  11. 22 print"":printtab(8)"[197][146]rstellen        [193][146]endern"
  12. 24 getk$:ifk$=""then24
  13. 26 ifk$="e"then32
  14. 28 ifk$="a"thenp=2:goto34
  15. 30 ifk$<>""then24
  16. 32 input" [198]ont: font.";c$:c$="font."+c$:goto84
  17. 34 input" [198]ilename: ";f$
  18. 36 f$(1)="eda."+f$:f$(2)="edb."+f$:f$(3)="edc."+f$:x$=f$(1):gosub108:ife>0then40
  19. 38 goto80
  20. 40 print"[147]"
  21. 42 fori=0to39:poke56256+i,0:poke1984+i,160:next
  22. 44 print"";:poke53272,31:poke53270,peek(53270)or16
  23. 46 poke53281,c1:poke53282,c2:poke53283,c3
  24. 48 x=40*peek(214)+peek(211):ifx>959thenprint"";
  25. 50 z=peek(h+x):poke646,peek(g+x)
  26. 52 poke204,0
  27. 54 geta$:ifa$=""then54
  28. 56 ifa$=chr$(133)andc1<15thenc1=c1+1:poke53281,c1
  29. 58 ifa$=chr$(137)andc1>0thenc1=c1-1:poke53281,c1
  30. 60 ifa$=chr$(134)andc2<15thenc2=c2+1:poke53282,c2
  31. 62 ifa$=chr$(138)andc2>0thenc2=c2-1:poke53282,c2
  32. 64 ifa$=chr$(135)andc3<15thenc3=c3+1:poke53283,c3
  33. 66 ifa$=chr$(139)andc3>0thenc3=c3-1:poke53283,c3
  34. 68 ifa$=chr$(136)thenwait207,1:poke204,1:goto88
  35. 70 ifa$=chr$(140)then98
  36. 72 ifa$=chr$(20)ora$=chr$(148)then48
  37. 74 ifpeek(h+x)<>zthen74
  38. 76 wait207,1:poke204,1:printa$;:pokeg+x,peek(646)
  39. 78 goto48
  40. 80 x$=f$(3):gosub108:ife>0thenp=1:goto16
  41. 82 open1,8,2,f$(3):input#1,c$,c1,c2,c3:close1
  42. 84 x$=c$:gosub108:ife>0thenprint"[147]":p=1:goto16
  43. 86 sys57812 c$,8:poke780,0:poke781,0:poke782,56:sys65493:goto2
  44. 88 f$(1)="@:"+f$(1):f$(2)="@:"+f$(2):sys57812 f$(1),8:poke174,231:poke175,7
  45. 90 poke193,0:poke194,4:sys62957
  46. 92 sys57812 f$(2),8:poke174,231:poke175,219:poke193,0:poke194,216:sys62957
  47. 94 d$="s:"+f$(3):open2,8,15,d$:close2:c4=peek(g)
  48. 96 open1,8,1,f$(3):print#1,c$:print#1,c1:print#1,c2:print#1,c3:close1
  49. 98 poke53270,peek(53270)and239:poke53272,21:poke204,1
  50. 100 print"[147][155]":printtab(9)"weitere bilder (j/n) ?"
  51. 102 getk$:ifk$=""then102
  52. 104 ifk$="j"thenp=0:goto2
  53. 106 ifk$<>"j"thenprint"[147]":end
  54. 108 e=0:open1,8,0,x$:open2,8,15:input#2,e:close2:close1:return
  55.