Gury's Atari 8-bit Forever Portal - Site dedicated to Atari 8-bit home computers by Bostjan Gorisek (Gury)

Listing 1
10 OPEN #1,4,0,"K:":L=30:B=100:Q=21:A=752:Z=23:E=22:N=2:O=4:AA=60:BB=55:CC=99:DD=68:EE=73:FF=75:GG=70:HH=15:II=0
20 DIM A$(1),B$(1),C$(1),D$(18),E$(12),N$(120),F$(11),G$(14),H$(8),I$(15),J$(14),K$(12),L$(7),M$(5),O$(11):P=3.14
30 A$="Y":B$="N":D$="":E$="PES RTR":F$="fu-foe":H$="ares":S=12:R=10:U=20:G=8:D=40
40 N$="BELLA BUNNY BILLY BULL BARNYARD BOBCAMILLA CAT FREDDIE FISHGRADY GOAT ":J$="ot ot ot":M=45:H=50
50 N$(73)="LENNY LAMB PATTY PIG SALLY SPIDERTAMMY TURKEY":G$="ur o hiy":I$="nt fu-foe":F=35:K=11
60 K$="pitd as":L$="ties":M$="ue":O$="dd yu se":W=1510:V=1240:JJ=1:KK=5:LL=3:MM=25:NN=17:PP=7
70 GRAPHICS 18:COLOR JJ:SETCOLOR II,G,G:POSITION JJ,II
80 ? #6;D$:POSITION KK,N:? #6;"BRYR":? #6;" RAI":? #6;" By":? #6;" ui uek"
90 POSITION O,PP:? #6;"TN B O":? #6;" ietos":POSITION JJ,R:? #6;D$:RESTORE 1550:GOSUB W
100 GRAPHICS NN:POSITION JJ,N:? #6;"someone's stolen":? #6;" rover's bone.":POSITION JJ,KK:? #6;""
110 ? #6;" "
120 POSITION JJ,G:? #6;"HE WILL NEED":? #6;" A FRIEND LIKE YOU":POSITION JJ,K:? #6;""
130 ? #6;" ":POSITION JJ,14:? #6;"lots of luck":? #6;" & when it's over":POSITION JJ,NN
140 ? #6;"":? #6;"  HAPPY ROVER!":RESTORE 1590:GOSUB W:POSITION JJ,E:? #6;E$:? #6;" T SE UPCS!"
150 GET #1,ZZ
160 GRAPHICS G:SETCOLOR N,G,II:SETCOLOR O,O,II:SOUND N,HH,G,6
170 X=319:Y=96
180 COLOR II
190 PLOT X-U,Y:DRAWTO X-R,Y-R:DRAWTO X,Y+R:DRAWTO X-R,Y:DRAWTO X,Y-R:DRAWTO X-R,Y+R
200 DRAWTO X-U,Y:X=X-R
210 IF X<Q THEN 240
220 COLOR 255:PLOT X-U,Y
230 DRAWTO X-R,Y-R:DRAWTO X,Y+R:DRAWTO X-R,Y:DRAWTO X,Y-R:DRAWTO X-R,Y+R:DRAWTO X-U,Y:GOTO 180
240 GRAPHICS N:COLOR JJ:SETCOLOR II,G,II:SOUND N,II,II,II:POSITION JJ,II:? #6;D$:POSITION LL,LL:? #6;O$
250 POSITION N,KK:? #6;"fede ih?":POSITION JJ,G:? #6;D$:POKE A,JJ:INPUT C$:IF C$<>A$ THEN 160
260 GRAPHICS MM:SETCOLOR O,S,II:COLOR G
270 PLOT BB,CC:DRAWTO BB,F:DRAWTO FF,F:DRAWTO FF,CC:PLOT BB,F:DRAWTO 65,R:DRAWTO FF,F
280 PLOT AA,CC:DRAWTO AA,EE:DRAWTO DD,EE:DRAWTO DD,CC:PLOT U,110:DRAWTO U,KK:DRAWTO HH,II:DRAWTO R,KK
290 POSITION R,110:POKE 765,G:XIO 18,#6,II,II,"S:"
300 PLOT F,H:DRAWTO M,H:DRAWTO M,GG:DRAWTO F,GG:DRAWTO F,H:PLOT 37,BB
310 PLOT 43,BB:PLOT D,AA:PLOT 37,65:DRAWTO 43,65:PLOT D,GG:DRAWTO D,B:DRAWTO M,B:DRAWTO F,B
320 DRAWTO D,B:DRAWTO D,130:DRAWTO M,140:DRAWTO D,130:DRAWTO F,140:FOR I=JJ TO HH:COLOR G:PLOT M,B
330 DRAWTO H,85:FOR T=JJ TO HH:NEXT T:COLOR II:PLOT H,85:DRAWTO M,B:COLOR G:DRAWTO H,115:FOR T=JJ TO HH:NEXT T
340 COLOR II:PLOT H,115:DRAWTO M,B:NEXT I:RESTORE 1610:GOSUB W
350 GRAPHICS N:COLOR JJ:SETCOLOR II,G,II:POSITION JJ,II:? #6;D$:POSITION LL,N:? #6;O$:POSITION N,O:? #6;"anad o,"
360 POSITION JJ,6:? #6;"te ie hn?":POSITION JJ,G:? #6;D$:POKE A,JJ:INPUT C$:IF C$<>A$ THEN 260
370 GRAPHICS II:SETCOLOR N,O,N:SETCOLOR O,G,N:POKE A,JJ:POSITION N,LL:? "  ":? "   "
380 ? "   "
390 ? "    HAS POINTY EARS"
400 ? "  "
410 ? "  THAT IS HOW"
420 ? "    HEARS"
430 ? "   "
440 ? " ":? " ":? "":? "":? " "
450 ? " ":? " ":? " ":? " ":RESTORE 1630:GOSUB W:POSITION N,E
460 ? E$:GET #1,ZZ
470 ? "":GRAPHICS II:SETCOLOR JJ,N,S:SETCOLOR N,S,JJ:SETCOLOR O,N,N:POKE A,JJ:POSITION N,O
480 ? "   ":? "  ":? "    ":? "    "
490 ? "   HAS GOT A BEARD"
500 ? "   "
510 ? "  *** AND HORNS THAT"
520 ? " ***** MAKE HIM LOOK SO"
530 ? "  ***  WEIRD!"
540 ? "*":? "":? ""
550 ? "":? " "
560 ? " ":? " ":? " ":? " ":RESTORE 1650:GOSUB W
570 POSITION U,U:? E$:GET #1,ZZ
580 ? "":GRAPHICS II:SETCOLOR JJ,JJ,R:SETCOLOR N,PP,JJ:SETCOLOR O,O,O:POKE A,JJ:POSITION N,6
590 ? " V V V V V V V V V"
600 ? " V V V V V V V V":? " VVVVVVVVVVVVV":? " VVVVVVVVVVVVV ":? " VVVV VVVV"
610 ? " VVV  VVV TALKS SO LOUD":? " VVV VVV & SPREADS HER":? " VVVVVV FEATHERS"
620 ? "  ":POSITION U,16:? "WHEN SHE'S PROUD!!":FOR CYCLE=JJ TO S:FOR I=JJ TO R:SOUND II,I,R,R
630 NEXT I:NEXT CYCLE:SOUND II,II,II,II:POSITION N,U:? E$:GET #1,ZZ
640 ? "":GRAPHICS II:SETCOLOR N,K,II:SETCOLOR JJ,JJ,S:SETCOLOR O,N,G:POKE A,JJ:POSITION II,N:? D$;D$:POSITION N,O
650 ? " **":? " *OO* *** **":? " *<>*******":? " ********":? " ******":? "  ":? " ** **"
660 POSITION II,13:? D$;D$:POSITION N,HH:? " HAS FUR TO SPARE.":POSITION N,NN
670 ? "HE HAS NOTHING ELSE TO WEAR!!":POSITION II,19:? D$;D$:RESTORE 1670:GOSUB W:POSITION N,Q:? E$:GET #1,ZZ
680 GRAPHICS 24:COLOR 255:FOR I=JJ TO U:PLOT 160,96:X=INT(320*(RND(JJ))):Y=INT(192*(RND(JJ))):DRAWTO X,Y:NEXT I
690 RESTORE 1690:GOSUB W
700 GRAPHICS N:COLOR JJ:SETCOLOR II,G,II:POSITION JJ,II:? #6;D$:POSITION LL,LL:? #6;O$:POSITION N,KK:? #6;"al sie?"
710 POSITION JJ,G:? #6;D$:POKE A,JJ:INPUT C$:IF C$<>A$ THEN 680
720 GRAPHICS II:SETCOLOR N,O,N:SETCOLOR O,13,N:POKE A,JJ:POSITION II,N:? D$;D$:POSITION N,O
730 ? "  ":? "    ":? "   ":? "   ":? " ":? " ":? " ":? "   "
740 ? "    ":POSITION II,HH:? D$;D$:POSITION N,NN:? " IS NOT ONE TO FIGHT,":POSITION N,19
750 ? "BUT IF HE WERE,HE'D WIN ALL RIGHT!!":POSITION II,Q:? D$;D$:FOR CYCLE=JJ TO LL:SOUND II,193,R,HH
760 FOR I=JJ TO 130:NEXT I:SOUND II,192,N,R:SOUND II,192,N,6:SOUND II,II,II,II:FOR I=JJ TO 90:NEXT I:NEXT CYCLE
770 POSITION N,Z:? E$:GET #1,ZZ
780 GRAPHICS 19:SETCOLOR II,O,G:SETCOLOR JJ,G,II:SETCOLOR O,13,N:COLOR JJ:PLOT 28,N:PLOT 29,JJ:PLOT 29,N:PLOT 13,19
790 PLOT R,E:PLOT K,Q:PLOT S,U:COLOR N:PLOT MM,R:PLOT HH,R:COLOR JJ:PLOT S,N:PLOT K,JJ:PLOT S,JJ
800 PLOT K,N:PLOT U,S:PLOT 28,JJ:X=U-(R*COS(JJ/S*P)):Y=R+(R*SIN(JJ/S*P)):PLOT X,Y
810 FOR OO=N TO MM:X=U-(R*COS(OO/S*P)):Y=R+(R*SIN(OO/S*P)):DRAWTO X,Y:PLOT X,Y:NEXT OO
820 PLOT K,Z:PLOT 13,Z:PLOT 14,E:PLOT HH,Q:PLOT MM,Q:PLOT 26,E:PLOT 27,Z
830 PLOT 29,Z:FOR I=27 TO L:PLOT I,I-G:NEXT I:SETCOLOR N,LL,II:COLOR LL:PLOT 18,16:DRAWTO E,16:FOR I=JJ TO S
840 SETCOLOR JJ,14,N:FOR J=JJ TO S:NEXT J:SETCOLOR JJ,G,II:FOR J=JJ TO U:NEXT J:NEXT I:RESTORE 1710:R=12:GOSUB W:R=10
850 GRAPHICS N:COLOR II:SETCOLOR II,G,II:POSITION JJ,II:? #6;D$:POSITION LL,LL:? #6;O$:POSITION O,KK:? #6;"at pg?"
860 POSITION LL,LL:? #6;O$
870 POSITION JJ,G:? #6;D$:POKE A,JJ:INPUT C$:IF C$<>A$ THEN 780
880 GRAPHICS II:SETCOLOR O,N,G:SETCOLOR N,LL,N:POKE A,JJ:POSITION N,N
890 ? " ` `":? " ``` ```":? " ``` ```":? " ` `":? " ":? "  ":? "    "
900 ? "  ":? "   ":? " ":? " ":? " ##":? "  "
910 ? "  LOOKS SO":? " * SWEET":? "  FROM HER LONG,":? " # # LONG EARS"
920 POSITION R,U:? "TO HER LITTLE FEET.":RESTORE 1730:GOSUB W:POSITION N,E:? E$:GET #1,ZZ:CLOSE #1
930 C=II:TF=RND(II):TF=JJ+INT(TF*R)
940 GRAPHICS II:SETCOLOR N,13,O:SETCOLOR O,N,II:POKE A,JJ:SETCOLOR JJ,JJ,S:POSITION II,O:? D$;D$
950 ?:? " EL BNY  IL BL":?:? " BRYR BB  CMLA CT"
960 ?:? " FEDE FS  GAY GA":?:? " LNY LM  PTY PG"
970 ?:? " SLY SIE  TMY TREY":?:? D$;D$:?:? ""
980 TRAP 980:INPUT TG:IF TG<JJ OR TG>R THEN 980
990 IF TG=TF THEN 1250
1000 C=C+JJ
1010 GRAPHICS 18:COLOR JJ:SETCOLOR II,G,II:POSITION LL,KK
1020 IF C>LL THEN 1460
1030 ON TF GOTO 1040,1080,1120,1040,1160,1080,1080,1040,1200,1200
1040 ON C GOTO 1050,1060,1070
1050 ? #6;F$:GOTO V
1060 ? #6;G$:GOTO V
1070 ? #6;K$:GOTO V
1080 ON C GOTO 1090,1100,1110
1090 ? #6;F$:GOTO V
1100 ? #6;G$:GOTO V
1110 ? #6;J$:GOTO V
1120 ON C GOTO 1130,1140,1150
1130 ? #6;I$:GOTO V
1140 ? #6;G$:GOTO V
1150 ? #6;M$:GOTO V
1160 ON C GOTO 1170,1180,1190
1170 ? #6;I$:GOTO V
1180 ? #6;H$:GOTO V
1190 ? #6;M$:GOTO V
1200 ON C GOTO 1210,1220,1230
1210 ? #6;I$:GOTO V
1220 ? #6;H$:GOTO V
1230 ? #6;L$
1240 FOR I=JJ TO 300:NEXT I:GOTO 940
1250 GRAPHICS 19:COLOR JJ:SETCOLOR N,O,6:SETCOLOR JJ,G,II:SETCOLOR II,N,G
1260 PLOT R,R:DRAWTO HH,KK:DRAWTO MM,KK:DRAWTO L,R:DRAWTO MM,HH:DRAWTO HH,HH:DRAWTO R,R
1270 COLOR N:PLOT 18,9:PLOT E,9:PLOT 18,G:PLOT E,G
1280 COLOR LL:PLOT Q,K:DRAWTO U,S:DRAWTO 19,K:DRAWTO Q,K
1290 COLOR JJ:PLOT HH,O:DRAWTO NN,O:PLOT 16,LL:PLOT Z,O:DRAWTO MM,O:PLOT 24,LL
1300 PLOT U,16:DRAWTO U,Z:DRAWTO 14,Z:DRAWTO HH,16
1310 PLOT Q,Z:DRAWTO 26,Z:DRAWTO MM,16
1320 FOR J=JJ TO KK
1330 COLOR II:PLOT U,S
1340 FOR I=JJ TO L:NEXT I
1350 COLOR LL:PLOT U,S
1360 FOR I=JJ TO L:NEXT I:NEXT J
1370 RESTORE 1750:R=12:GOSUB W:R=10
1380 GRAPHICS 18:COLOR JJ:SETCOLOR II,G,II:POSITION JJ,II:? #6;D$:POSITION N,O:? #6;"cnrtltos"
1390 POSITION O,6:? #6;"fo rvr":POSITION JJ,R:? #6;D$:RESTORE 1760:GOSUB W
1400 GRAPHICS N:COLOR JJ:SETCOLOR II,G,II:POSITION JJ,II:? #6;D$:POSITION N,LL:? #6;"do  WANT ":POSITION LL,KK
1410 ? #6;"play ?":POSITION JJ,9:? #6;D$:POKE A,JJ:INPUT C$:IF C$<>A$ THEN 1450
1420 GRAPHICS N:COLOR JJ:SETCOLOR II,G,II:POSITION JJ,II:? #6;D$:POSITION N,LL:? #6;"do  WANT ":POSITION N,KK
1430 ? #6;" the SUSPECTS?":POSITION JJ,9:? #6;D$:POKE A,JJ:INPUT C$:IF C$<>A$ THEN 930
1440 RUN
1450 END
1460 GRAPHICS 18:COLOR JJ:SETCOLOR II,G,II:POSITION JJ,II:? #6;D$:POSITION LL,O:? #6;"bte lc":POSITION O,6
1470 ? #6;"nx tm":POSITION JJ,R:? #6;D$:RESTORE 1770:GOSUB W
1480 GRAPHICS 18:COLOR JJ:SETCOLOR II,G,II:POSITION JJ,II:? #6;D$:POSITION JJ,O:? #6;"te nwr ws":POSITION LL,6
1490 ? #6;TF;" ";N$(S*TF-K,S*TF):POSITION JJ,R:? #6;D$:RESTORE 1780:GOSUB W
1500 GOTO 1400
1510 READ I:IF I=N THEN 1540
1520 SOUND II,I,10,HH:FOR T=1 TO R:NEXT T
1530 GOTO W
1540 SOUND II,II,II,II:RETURN
1550 DATA 121,0,121,0,121,0,162,0,144,0,144,0,162,162,0,96,0,96,0,108,0,108,0,121,121,0
1560 DATA 121,0,121,0,121,0,162,0,144,0,144,0,162,162,0,96,0,96,0,108,0,108,0,121,121,0
1570 DATA 162,0,121,0,121,0,121,0,162,0,121,0,121,0,121,121,0,0
1580 DATA 121,0,121,0,121,0,162,0,144,0,144,0,162,162,0,96,0,96,0,108,0,108,0,121,121,2
1590 DATA 162,162,162,0,121,0,96,0,108,0,121,0,162,0,144,144,144,0,108,0,91,0,96,0,108,0,121,121,0,128,0,128
1600 DATA 0,128,0,121,0,108,0,108,0,108,108,0,121,0,128,0,121,0,108,0,96,96,2
1610 DATA 121,0,91,0,91,0,91,0,91,0,91,91,0,81,0,72,0,72,0,72,0,72,0,72,72,0,60,0,60,0,53,0,60,0,72,0
1620 DATA 91,91,0,81,0,72,0,72,0,81,0,81,0,91,91,2
1630 DATA 60,0,64,0,72,0,76,0,81,0,76,0,72,0,0,0,81,0,76,0,72,0,68,0,64,0,0,0,0,0,60,0,64,0,72,0,76,0,81,0,76,0
1640 DATA 72,0,0,0,81,0,76,0,72,0,64,0,60,2
1650 DATA 121,121,91,0,91,0,91,0,81,72,0,72,81,72,81,91,91,81,0,81,91,81,91,96,0,72,0,72,81,72,81,91
1660 DATA 121,91,0,91,0,91,81,0,72,0,72,81,72,81,91,0,81,0,81,81,72,0,81,0,91,91,2
1670 DATA 72,0,81,0,91,0,81,0,72,0,72,0,72,72,0,81,0,81,0,81,81,0,72,0,60,0,60,60,0
1680 DATA 72,0,81,0,91,0,81,0,72,0,72,0,72,72,0,81,0,81,0,72,0,81,0,91,91,2
1690 DATA 121,0,144,0,121,121,0,121,0,144,0,121,121,0,108,0,121,0,136,0,144,0,162,0,144,0,136,136,0,121,0,182
1700 DATA 0,182,0,182,0,182,0,144,0,121,121,0,121,0,162,0,162,0,136,0,144,0,162,0,182,2
1710 DATA 121,0,121,0,121,121,0,108,0,108,0,108,108,0,96,0,91,0,81,0,121,0,128,0,121,0,108,0,162,0,121,0
1720 DATA 121,0,121,121,0,108,0,108,0,108,108,0,96,0,91,0,81,0,121,0,108,0,128,0,121,121,2
1730 DATA 108,81,0,81,72,0,72,72,64,53,64,81,81,0,108,81,0,81,72,0,60,0,64,64,81,0,108,81,0,81
1740 DATA 72,0,72,72,64,53,64,81,81,0,47,47,0,72,0,60,0,64,64,0,81,2
1750 DATA 121,0,121,0,144,0,121,0,108,0,121,0,144,144,0,144,0,162,162,0,144,0,162,162,2
1760 DATA 121,0,121,0,144,0,121,0,108,0,121,0,144,144,0,162,162,0,144,0,162,0,182,182,2
1770 DATA 121,0,108,0,96,0,121,0,121,0,108,0,96,0,121,0,96,0,91,0,81,81,0,96,0,91,0,81,81,2
1780 DATA 81,0,72,0,81,0,91,0,96,96,0,121,0,81,0,72,0,81,0,91,0,96,96,0,121,0
1790 DATA 0,121,0,162,0,121,0,0,121,0,162,0,121,2
References
http://www.page6.org/pd_lib/standard/pd_061.htm
http://www.atarimania.com/game-atari-400-800-xl-xe-barnyard-break-in_506.html
https://forums.atariage.com/topic/125131-bellcom-pd-catalog-disk/
https://archive.org/details/BELLCOMPublicDomainSoftwareAtari8Bit
https://ftp.pigwa.net/stuff/collections/holmes%20cd/Holmes%203/BELLCOM/index.html
Listing downloads
Download link 1
Downloads
Atari 8-bit Source code
