home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 83 / Tiger_Disk_083_20xx_Tiger-Crew-Disk_de_Side_B.d64 / screenfarben-ed. (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  987b  |  32 lines
  1. 1 x=53280:y=53281:z=646:a=6:b=6:c=1:hb=208:lb=32:gosub2:goto9
  2. 2 ifa>15thena=0
  3. 3 ifb>15thenb=0
  4. 4 ifc>15thenc=0
  5. 5 ifa<0thena=15
  6. 6 ifb<0thenb=15
  7. 7 ifc<0thenc=15
  8. 8 pokex,a:pokey,b:pokez,c:return
  9. 9 poke53265,11
  10. 10 print"[147]           screen-farben-editor":print""tab(14)"f1 bildschirm +"
  11. 11 printtab(14)"f3 rahmen     +":printtab(14)"f5 bildschirm -":printtab(14)"f7";
  12. 12 print" rahmen     -":print""tab(14)"f8 speichern":print""tab(14)" e prg.-e";
  13. 13 print"nde":print""tab(14)"f2 schrift +":printtab(14)"f4 schrift -"
  14. 14 print" achtung!: schriftfarbe wird nicht (!)":printtab(13)"gespeichert!!"
  15. 15 print""tab(7)"(c) by tigercrew in 2001[145]":print" char:"c:poke53265,27
  16. 16 geta$:ifa$=""then16
  17. 17 ifa$="e"thenpoke214,19:poke211,0:sys58640:end
  18. 18 ifa$=chr$(140)then21
  19. 19 ifasc(a$)<133orasc(a$)>138then16
  20. 20 on(asc(a$)-132)gosub26,27,28,29,30,31:goto9
  21. 21 poke214,21:poke211,14:sys58640
  22. 22 ax$="":print"nummer ";:inputax$:ifax$=""thenend
  23. 23 sa$="farben"+"."+ax$:open15,8,15,"s:"+sa$:close15
  24. 24 hb$=chr$(hb):lb$=chr$(lb):a$=chr$(a):b$=chr$(b)
  25. 25 open2,8,2,sa$+",p,w":print#2,lb$;hb$;a$;b$:close2:goto9
  26. 26 b=b+1:gosub2:return
  27. 27 a=a+1:gosub2:return
  28. 28 b=b-1:gosub2:return
  29. 29 a=a-1:gosub2:return
  30. 30 c=c+1:gosub2:return
  31. 31 c=c-1:gosub2:return
  32.