Program listing of birds.prg for the Vic 20


 LOAD address $1001

 1 PRINT"{CLR}":PRINT:POKE55,0:POKE56,28:CLR:VIC=9*16^3
 2 PRINT"{PUR} DEMONSTRATION OF"
 3 PRINT" USER-DEFINED"
 4 PRINT" CHARACTERS AND REAL-"
 5 PRINT" TIME ANIMATION;  "
 6 PRINT" ADOPTED BY PBE-NL  {DOWN}{DOWN}{RED}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}BY BOB YANNES"
 7 FORI=1TO3000:NEXT I
 9 VM=7680
 10 CNYB=38400
 12 CM=VM-512
 20 FOR A=0 TO 506
 30 POKE VM+A,0
 40 POKE CNYB+A,1
 50 NEXT A
 60 FOR A=0 TO 7
 70 POKE CM+A,0
 71 NEXT A
 72 FOR A=0 TO 7
 73 POKE CM+56+A,16
 74 NEXT A
 75 POKE VIC+5,255
 80 POKE CM+62,56
 81 POKE CM+48,24
 82 POKE CM+49,153
 83 POKE CM+50,90
 84 POKE CM+51,60
 85 POKE CM+52,90
 86 POKE CM+53,189
 87 POKE CM+54,60
 88 POKE CM+55,126
 89 FORTT=1TO5
 90 POKE CNYB+30,7
 91 POKE CNYB+31,7
 92 POKE CNYB+32,7
 93 POKE CNYB+67,1
 94 POKE CNYB+68,1
 95 POKE CNYB+69,1
 96 POKE CNYB+205,6
 97 POKE CNYB+206,6
 98 POKE CNYB+207,6
 99 POKE VM+30,1
 100 POKE VM+31,2
 101 POKE VM+32,3
 102 POKE VM+67,1
 103 POKE VM+68,2
 104 POKE VM+69,3
 105 POKE VM+205,1
 106 POKE VM+206,2
 107 POKE VM+207,3
 120 POKE CM+16,126
 130 POKE CM+17,60
 140 POKE CM+18,153
 150 POKE CM+19,255
 160 POKE CM+20,255
 170 POKE CM+21,126
 180 POKE CM+22,24
 190 POKE CM+23,24
 192 POKE VIC+15,239
 194 PRINT"{HOME}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}";
 200 PRINT"{CYN}ACACACACACACACACACACAC";
 210 PRINT"{GRN}@ACACA@@@@CACA@@CAC@AC";
 211 PRINT"{CYN}@@AC@@@CACACA@ACAC@@@";
 212 PRINT"{GRN}@@@ACACAC@@ACAC@CAC@@@";
 213 PRINT"{CYN}CAC@@CAC@ACACA@AC@ACA@";
 214 PRINT"{GRN}@@ACACA@@CAC@ACA@@@AC";
 220 PRINT"{HOME}{DOWN}{DOWN}{DOWN}{DOWN}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{BLK}{F1}ABC{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RED}ABC{DOWN}{LEFT}{LEFT}{LEFT}{LEFT}{PUR}ABC"
 230 PRINT"{HOME}{WHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}EDDDDDD{DOWN}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}EDDDDD{DOWN}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}EDDDD{DOWN}{LEFT}{LEFT}{LEFT}EDD{DOWN}{LEFT}E"
 234 FOR A=0 TO 9
 235 POKE CM+32+A,255
 236 NEXT A
 237 POKE CM+42,127
 238 POKE CM+43,127
 239 POKE CM+44,63
 240 POKE CM+45,31
 241 POKE CM+46,15
 242 POKE CM+47,3
 247 FOR Z=1 TO 5
 248 RESTORE
 250 FOR A=1 TO 7
 260 FOR B=0 TO 7
 270 READ C
 280 POKE CM+8+B,C
 290 READ C
 300 POKE CM+24+B,C
 310 NEXT B
 320 NEXT A
 331 FOR A=1 TO 7
 332 FOR B=0 TO 7
 333 READ C
 334 POKE CM+8+B,C
 335 READ C
 336 POKE CM+24+B,C
 337 NEXT B
 338 NEXT A
 340 NEXT Z
 365 FOR A=1 TO 12
 370 READB:READC
 380 POKE VIC+12,B
 385 POKE VIC+14,15
 390 FOR X=1TO25*C:NEXTX
 400 FOR Y=14 TO 0 STEP-1
 401 POKE VIC+14,Y
 403 NEXT Y
 405 READ C
 406 FOR X=1 TO 25*C:NEXTX
 411 NEXT A
 412 POKE VIC+12,0
 500 PRINT"{HOME}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{WHT}F";
 501 FOR X= 1 TO 50:NEXT:PRINT"{CYN}{LEFT}A{F1}{UP}";
 502 POKE VIC+14,15
 510 FOR Y=1 TO 7
 520 GOSUB 599
 530 NEXT
 540 PRINT"{LEFT}{LEFT}{RED}@F@";
 541 FOR X=1 TO 20:NEXTX:PRINT"{LEFT}{LEFT}{LEFT}@@@"
 542 POKE VIC+13,170
 543 FOR Y=15 TO 0 STEP-1:POKEVIC+14,Y:FOR X=1 TO 30:NEXT X:NEXT Y
 544 POKE VIC+13,0
 545 FOR X=1 TO 20:NEXTX
 547 FOR X=1 TO700:NEXT
 590 NEXTTT:FORI=1TO3000:NEXTI:SYS58648:POKE56,30:CLR:END
 599 PRINT"{LEFT}@{UP}{BLK}{LEFT}G";
 600 POKE VIC+13,240+Y
 601 FOR X=1 TO 45:NEXT:RETURN
 1000 DATA0,0,0,0,0,0,0,0,3,192,15,240,112,14,128,1
 1010 DATA0,0,0,0,0,0,1,128,3,192,60,60,192,3,0,0
 1020 DATA0,0,0,0,0,0,1,128,15,240,240,15,0,0,0,0
 1030 DATA0,0,0,0,1,128,255,255,1,128,0,0,0,0,0,0
 1040 DATA0,0,0,0,240,15,15,240,1,128,0,0,0,0,0,0
 1050 DATA0,0,192,3,60,60,3,192,1,128,0,0,0,0,0,0
 1060 DATA128,1,112,14,15,240,3,192,0,0,0,0,0,0,0,0
 1070 DATA128,1,112,14,15,240,3,192,0,0,0,0,0,0,0,0
 1080 DATA0,0,192,3,60,60,3,192,1,128,0,0,0,0,0,0
 1090 DATA0,0,0,0,240,15,15,240,1,128,0,0,0,0,0,0
 1100 DATA0,0,0,0,1,128,255,255,1,128,0,0,0,0,0,0
 1110 DATA0,0,0,0,0,0,1,128,15,240,240,15,0,0,0,0
 1120 DATA0,0,0,0,0,0,1,128,3,192,60,60,192,3,0,0
 1130 DATA0,0,0,0,0,0,0,0,3,192,15,240,112,14,128,1
 2000 DATA 213,8,2,217,8,2,204,3,1,198,1,1,191,2,1
 2010 DATA179,8,2,170,8,2,179,4,1,191,1,1,198,1,1,213,3,1,217,15,0

Converted to HTML using prgread.exe v1.42 by Lee Davison
Hosted by www.Geocities.ws

1