SHARE
TWEET

StranoComportamento

EmanueleBonin Apr 15th, 2019 151 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 05 gosub 25000
  2. 10 a$="ab "
  3. 20 b$=":: "
  4. 30 c$=".,,"
  5. 40 for i = 1 to 6: a$ = a$ + a$: b$=b$+b$: c$=c$+c$: next
  6. 45 i = 1:j=1:k=1:y=0:x=0
  7. 50 print "{home}" + mid$(a$, i, 40) + mid$(b$, j, 40) + mid$(c$,k,40)
  8. 60 i=i+1: if i=40 then i = 1
  9. 62 if int(i/2)=i/2 then j=j+1: goto 50
  10. 65 if int(i/3)=i/3 then k=k+1: goto 50
  11. 70 goto 50
  12.  
  13.  
  14. 25000 poke 53272,(peek(53272)and240)+12
  15. 25080 for ch=1to2
  16. 25090 for by=0to7
  17. 25100 read number
  18. 25110 poke 12288+(8*ch)+by,number: rem store the data in memory
  19. 25120 next by:next ch
  20. 25998 return
  21.  
  22. 30010 data 255,255,127,63,31,3,0,0
  23. 30020 data 255,255,254,252,248,192,0,0
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top