|
|
Post by oocozyoo on Jan 18, 2021 22:04:23 GMT
Im new to basic on the vic20 and I made this silly programme to make a flashing boarder with a random maze lol,
1 print chr$(147)
5 poke646,11
10 poke36879,i
11 print chr$(205.5+rnd(1));
20 i=i+1
30 if i>12 then i=0
40 goto10
|
|
|
|
Post by oocozyoo on Jan 25, 2021 15:16:45 GMT
another flashing boarder which is better
1 data173,15,144,133,99,41,248,133,100,166,100,142,15,144,162,3,160,23,136,208,253
2 data202,208,248,165,197,201,64,208,14,174,15,144,138,229,100,201,7,240,225
3 data232,76,71,3,165,99,141,15,144,96
4 c=0:fora=828to877:readb:pokea,b:c=c+b:next:ifc<>6620thenprint"error":stop
5 sys828
|
|
|
|
Post by jj0 on Jan 26, 2021 10:04:20 GMT
Ok, here's my first ever VIC-20 program:
10 data 6,952
20 data 238,15,144,208,251,96
30 read l:read s
40 c=0:fora=1tol:readb:pokea+827,b:c=c+b:next:ifc<>sthenprint"error":stop
45 print chr$(147)
50 sys828:goto 50
EDIT: This one is better:
10 data 6,952
20 data 238,15,144,208,251,96
30 read l:read s
40 c=0:fora=1tol:readb:pokea+827,b:c=c+b:next:ifc<>sthenprint"error":stop
45 poke 36866,(peek(36866) and 128) or 0
50 sys828:goto 50
|
|
|
|
Post by oocozyoo on Jan 28, 2021 17:22:48 GMT
Nice effect jj0  |
|
