home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 94 / 64er_Magazin_Sonderheft_94_19xx_Markt__Technik_de_Side_B.d64 / 3. col.+spr.ed. (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  572 b   |  11 lines
  1. 0 v=53248:print"sprite ed. oder zeichenfarben setzen:":input"(s/z)";a$:ifa$="z"then8
  2. 1 pokev+28,0:poke2040,11:pokev,255:input"multicol (j/n)";a$:ifa$="j"thengosub7
  3. 2 print"[147]123456781234567812345678";:pokev+1,200
  4. 3 fort=1to21:printspc(23);t:nextt:inputa$:xx=25:pokev+21,1
  5. 4 pokev+39,4:print"";:fort=0to20:fortt=0to2:y=0:forn=7to0step-1
  6. 5 x=peek(1024+t*40+tt*8+(7-n)):ifx<>32theny=y+2^n
  7. 6 nextn:print"[145]";spc(xx+tt*4);y:poke704+e,y:poke4096+e,y:e=e+1:nexttt:print:nextt:end
  8. 7 forr=1to3:print"farbe";r;" :(0-15)";:inputa:pokev+36,a:nextr:pokev+28,1:return
  9. 8 poke198,0:input"[147]zeichen:";a$:input"farbe:(0-15)";f:poke2816+peek(1034),f:poke55306,f
  10. 9 print"  <taste>":poke198,0:wait198,1:ifpeek(1034)<>32then8
  11.