scene.org File Archive

File download

<root>­/­parties­/­2021­/­vintagecomputingchristmaschallenge21­/­challenge/berni_c64_basic_vc3-2021.zip

File size:
7 176 bytes (7.01K)
File date:
2021-12-25 12:55:52
Download count:
all-time: 14

Preview

  • berni_c64_basic_vc3-2021/ dir
  • berni_c64_basic_vc3-2021/basic.png 4.61K
  • berni_c64_basic_vc3-2021/basic.prg 311B
  • berni_c64_basic_vc3-2021/basic.txt 411B
  • berni_c64_basic_vc3-2021/challenge.d64 170.75K

file_id.diz

1 a=56334:pokea,0:poke1,51:fori=0to2047:poke8192+i,peek(53248+i):next
2 poke1,55:pokea,1:fori=0to23:poke8408+i,0:next:fori=0to4:readv
3 poke8409+i,vand15:poke8417+i,v:poke8425+i,vand240:next:poke53272,24
4 fori=0to11:w=iand3:v=w+(i-w)*(w+1)/4:gosub5:next:v=1:gosub5:gosub5:end
5 c$=" ":m=19-v:gosub6:print"[";:c$="\":m=2*v:gosub6:print"]":m=0
6 ifm>0thenfork=1tom:printc$;:next
7 return:data102,195,255,195,102