home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 August / 64er_Magazin_88-08_1988_Markt__Technik_de_Side_B.d64 / farbdesigner (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  516b  |  16 lines
  1. 63000 rem   farbdesigner
  2. 63001 rem ** '88 by harald keding **
  3. 63002 a=53281:b=53280:c=646:ac=6:bc=14:cc=14:pokea,ac:pokeb,bc:pokec,cc
  4. 63003 t$="          ":gosub63020
  5. 63004 :
  6. 63005 geta$:ifa$=""goto63005
  7. 63006 ifa$=chr$(133)thenac=ac+1:pokea,ac:ifac=16thenac=0
  8. 63008 ifa$=chr$(134)thenbc=bc+1:pokeb,bc:ifbc=16thenbc=0
  9. 63010 ifa$=chr$(135)thencc=cc+1:pokec,cc:gosub63020:ifcc=16thencc=0
  10. 63012 ifa$=chr$(136)thenprint""tab(17)ac:print:printtab(17)bc:print:printtab(17)cc:print:printt$:end
  11. 63014 goto 63005
  12. 63015 :
  13. 63020 print"[147]    farbdesigner    by h. keding '88    "
  14. 63022 print"  f1[146] hintergrund":print"  f3[146] rahmen":print"  f5[146] schrift"
  15. 63024 print"  f7[146] werte":return
  16.