EmanueleBonin

StranoComportamento

Apr 15th, 2019
390
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