home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 October / 64er_Magazin_88-10_1988_Markt__Technik_de_Side_A.d64 / setcolor (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  858b  |  28 lines
  1. 10 rem"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  2. 20 [143]"(NULL) (w) 1988 by u.kepper         (NULL)
  3. 30 rem"[221]             j.mann           [221]
  4. 40 [143]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp
  5. 50 poke53280,0:poke53281,0:poke650,0
  6. 60 input"grafikname";a$:sys57812 a$,8:poke780,0:poke781,0:poke782,32:sys65493
  7. 70 poke53265,187:poke53272,56
  8. 80 x=0:y=0:f=peek(3072):h=fand15:v=(fand240)/16
  9. 90 a=3072+y*40+x:pokea,f:getg$:pokea,(fand15)*16+(fand240)/16
  10. 100 gosub220:pokea,f:gosub220:ifg$=""then90
  11. 110 ifg$=chr$(13)then230
  12. 120 ifg$="[145]"andy>0theny=y-1
  13. 130 ifg$=""andy<24theny=y+1
  14. 140 ifg$="[157]"andx>0thenx=x-1
  15. 150 ifg$=""andx<39thenx=x+1
  16. 160 ifg$=""thenx=0:y=0
  17. 170 ifg$="+"thenh=(h+1)and15
  18. 180 ifg$="-"thenh=(h-1)and15
  19. 190 ifg$=","thenv=(v-1)and15
  20. 200 ifg$="."thenv=(v+1)and15
  21. 210 f=h+v*16:goto90
  22. 220 forw=1to50:next:return
  23. 230 poke53265,155:poke53272,21
  24. 240 input"neuer name";a$
  25. 250 fora=53248to53254:readb:pokea,b:next:data133,95,134,96,76,191,163
  26. 260 poke780,0:poke781,12:poke90,0:poke91,16:poke88,0:poke89,68:sys53248
  27. 270 sys 57812 a$,8:poke174,0:poke175,68:poke193,0:poke194,32:sys62957
  28.