Notes

Disk info for 077b_Dung_Beetles_Various_Games.dsk:

File Name: 3d0g_077b_Dung_Beetles_Various_Games/077b_Dung_Beetles_Various_Games.dsk
Disk Name: DISK VOLUME #77
Physical Size (bytes): 143360
Free Space (bytes): 17664
Used Space (bytes): 125696
Physical Size (KB): 140
Free Space (KB): 17
Used Space (KB): 122
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 69
Used Sectors: 491
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for 077b_Dung_Beetles_Various_Games.dsk:

3d0g_077b_Dung_Beetles_Various_Games/077b_Dung_Beetles_Various_Games.dsk DISK VOLUME #77
* A 002 HELLO-C
* A 004 A
* A 022 B
* A 026 C
* B 034 D
* B 034 E
* B 010 F
* B 011 SHAPES
* T 002 SC.START
* B 002 START 5D00
* B 049 SC 6000
* B 090 SUPER COPY
* T 003 DUNG.START
* B 123 DUNG BEETLES.OBJ
A 002 STUPID.BOOT
* B 007 HELLO.STUPID
A 003 STUPID.BREAKABLE
B 010 TEST
DOS 3.3 format; 17,664 bytes free; 125,696 bytes used.

Text found in 077b_Dung_Beetles_Various_Games.dsk/A.bas:

10 ONERR GOTO 20
15 GOTO 100
20 TEXT : HOME : VTAB 11: PRINT "DISK ERROR -- PLEASE REBOOT"
30 GOTO 30
100 TEXT : HOME : HGR : HGR2 : LOMEM: 32768: GOSUB 7000
110 POKE 34,22
200 PRINT CHR$(4);"BLOADD"
210 A = PEEK(HIRES) + PEEK(NOMIX) - PEEK(P1) + PEEK(MODE)
220 PRINT CHR$(4);"BLOADE"
230 A = PEEK(P2): GOSUB 7100
300 VTAB 23: HTAB 1: PRINT "DO YOU WANT INSTRUCTIONS (Y OR N) ?
310 GET A$:A = FRE(0): IF A$ < >"Y" AND A$ < >"N" GOTO 310
400 VTAB 23: PRINT N$: VTAB 23: PRINT "LOADING: ";
410 IF A$ = "Y" THEN PRINT "INSTRUCTIONS...": PRINT CHR$(4);"RUN B"
450 PRINT "ESCAPE!...": PRINT CHR$(4);"RUN C"
7000 A = 0
7010 MODE = 49232:NMIX = 49234:MIX = 49235:P1 = 49236:P2 = 49237:HIRES = 49239
7050 A$ = " ":D$ = CHR$(4):N$ = " "
7090 RETURN
7100 PRINT CHR$(4);"BLOADF"
7110 POKE 974,0: POKE 975,58: POKE 232,0: POKE 233,56: ROT= 0: SCALE= 1
7120 POKE 54,0: POKE 55,62: CALL 43089: PRINT
7190 RETURN

Text found in 077b_Dung_Beetles_Various_Games.dsk/B.bas:

10 REM COPYRIGHT 1981 EDUCATIONAL SOFTWARE PACKAGES (ESP)
20 REM MARKETED IN COOPERATION WITH:
30 REM SUBLOGICCOMMUNICATIONS CORP.
40 REM ALL RIGHTS RESERVED
50 ONERR GOTO 70
60 GOTO 100
70 TEXT : HOME : VTAB 11: PRINT "DISK ERROR -- PLEASE REBOOT"
80 GOTO 80
100 TEXT : HOME : HGR2 : LOMEM: 8448: HIMEM: 14336: GOSUB 7000
110 DIM C%(4): FOR I = 0 TO 4: READ C%(I): NEXT
200 HGR2 : HOME : PRINT " THIS IS THE GAME OF ESCAPE! THE": PRINT "OBJECT IS TO GET OUT ALIVE.
210 PRINT " YOU HAVE JUST ESCAPED FROM YOUR": PRINT "PRISON CELL. FROM THE HUMAN SECURITY
220 PRINT "GUARD YOU HAVE OBTAINED A SINGLE LASER": PRINT "BLASTER CONTAINING "LN" SHOTS. THE
230 PRINT "REMAINDER OF THE SECURITY FORCE --": PRINT "CONSISTING OF NOTHING BUT PURSUIT
240 PRINT "ROBOTS -- HAS BEEN NOTIFIED OF YOUR": PRINT "BREAKOUT AND IS ALERT TO YOUR POSITION.
250 PRINT " YOU MUST MAKE YOUR WAY THROUGH THE": PRINT "PRISON'S COURTYARDS IN ORDER TO REACH
260 PRINT "SAFETY ON THE OUTSIDE. THE ROBOT": PRINT "GUARDS ARE PREPARED TO PURSUE YOU AT
270 PRINT "EVERY TURN. YOU MUST AVOID COMING INTO": PRINT "CONTACT WITH THEM AS THEY CARRY A HIGH
280 PRINT "VOLTAGE CHARGE AND WILL DISINTEGRATE": PRINT "YOU ANY CHANCE THEY GET.": GOSUB 9500
300 HGR2 : HOME : PRINT " SINCE YOU HAVE ONLY A LIMITED NUMBER": PRINT "OF SHOTS, YOU MUST MANEUVER THE ROBOTS
310 PRINT "INTO EACH OTHER OR INTO THE ELECTRIFIED": PRINT "POSTS WHICH OCCUPY THE YARD. EACH
320 PRINT "ROBOT YOU DESTROY WITHOUT THE AID OF": PRINT "THE LASER WILL RAISE YOUR SCORE. EVERY
330 PRINT "COMPLETE WAVE YOU WIPE OUT RAISES THE": PRINT "VALUE OF THE ROBOTS IN THE NEXT WAVE.
340 PRINT " THERE ARE TRANSPORTATION PADS IN EACH": PRINT "COURTYARD. THESE WILL TAKE YOU OUT OF
350 PRINT "ONE YARD AND INTO ANOTHER, EVENTUALLY": PRINT "TAKING YOU OUT OF THE PRISON.
360 PRINT " THERE IS ONLY ONE WAY INTO AND OUT OF": PRINT "THE PRISON. THIS YARD HAS A PAD AT THE
370 PRINT "LEFT AND ONE AT THE RIGHT, AND IS": PRINT "GUARDED BY EIGHT SENTRIES. THE PAD AT
380 PRINT "THE LEFT WILL TAKE YOU OUT, THE ONE AT": PRINT "THE RIGHT WILL TAKE YOU BACK IN.": GOSUB 9500
400 HGR2 : HOME : PRINT SPC( 9)"SCORING:": PRINT : PRINT " EACH ROBOT THAT IS DESTROYED RAISES": PRINT "YOUR SCORE BY THE WAVE VALUE. TWO
410 PRINT "ROBOTS COLLIDING SCORE FOR EACH OF THE": PRINT "TWO ROBOTS.
420 PRINT SPC( 9)"LASER:": PRINT : PRINT " ZAPS CLOSEST ROBOT. YOU HAVE "LN: PRINT "SHOTS AT THE BEGINNING OF THE GAME.
430 PRINT "USE THEM ONLY WHEN YOU MUST! ZAPPED": PRINT "ROBOTS DO NOT COUNT FOR SCORING.
450 PRINT SPC( 9)"POSTS:": PRINT : PRINT " TO MAKE YOUR ESCAPE MORE DIFFICULT,": PRINT "AFTER EVERY FEW WAVES THERE WILL BE ONE
460 PRINT "LESS POST IN THE YARD.": GOSUB 9500
500 HGR2 : HOME : PRINT : PRINT " R T Y MOVEMENT IS CONTROLLED USING": PRINT SPC( 8)"THE KEYS CENTERED ON 'G'.
510 PRINT " F G H AFTER YOU MAKE YOUR MOVE EACH": PRINT SPC( 8)"ROBOT MAKES ITS MOVE. YOU
520 PRINT " V B N HAVE A FIXED AMOUNT OF TIME TO": PRINT SPC( 8)"MOVE. AS YOU DESTROY WAVES OF
530 PRINT "ROBOTS, YOUR DECISION TIME DECREASES": PRINT "FROM TEN SECONDS AT THE BEGINNING TO A
540 PRINT "MINIMUM OF ONE SECOND.": PRINT : PRINT " YOU MOVE IN THE DIRECTION OF THE KEY
550 PRINT "PRESSED IN RESPECT TO 'G'. MOVING INTO": PRINT "A POST OR A ROBOT DESTROYS YOU AND ENDS": PRINT "THE GAME. MOVING ONTO A PAD LOWERS THE
560 PRINT "VALUE OF THE NEXT WAVE AND PLACES YOU": PRINT "IN ANOTHER ROOM; OR OUTSIDE IF YOU USE": PRINT "THE CORRECT PAD IN THE EXIT YARD.
590 HCOLOR= 6: FOR I = 0 TO 3: HPLOT 2,I *16 +2 TO 45,I *16 +2: HPLOT 2,I *16 +3 TO 45,I *16 +3: HPLOT I *14 +2,4 TO I *14 +2,50: HPLOT I *14 +3,4 TO I *14 +3,50: NEXT : GOSUB 9500
600 HGR2 : HOME : PRINT " YOU ALSO HAVE EXPERIMENTAL BIONIC": PRINT "IMPLANTS IN YOUR LEGS THAT ALLOW YOU TO
610 PRINT "MAKE FANTASTIC LEAPS! OF COURSE, BEING": PRINT "EXPERIMENTAL, THEY DON'T ALWAYS TAKE
620 PRINT "YOU WHERE YOU WANT TO GO. INSTEAD,": PRINT "THEY ARE RANDOM; SOMETIMES PUTTING YOU
630 PRINT "IN THE CLEAR, SOMETIMES DROPPING YOU ON": PRINT "TOP OF A ROBOT OR A POST.
640 PRINT : PRINT SPC( 16)"LEGEND:": PRINT : PRINT : PRINT : PRINT " YOU LASER ROBOT": PRINT : PRINT : PRINT : PRINT " POST TRANSPORTER
650 Y = 96:X = 38: HCOLOR= C%(0): GOSUB 9700:Y = 96:X = 115: HCOLOR= C%(4): GOSUB 9740:Y = 96:X = 199: HCOLOR= C%(1): GOSUB 9710
660 Y = 128:X = 77: HCOLOR= C%(2): GOSUB 9720:Y = 128:X = 143: HCOLOR= C%(3): GOSUB 9730: GOSUB 9500
700 HGR2 : HOME : PRINT "KEY FUNCTION": HCOLOR= 1: HPLOT 0,11 TO 103,11: PRINT
710 PRINT " G STAY AT CURRENT POSITION": PRINT " H MOVE RIGHT ONE SPACE": PRINT " T MOVE UP": PRINT " F MOVE LEFT": PRINT " B MOVE DOWN": PRINT " Y MOVE UP AND RIGHT
720 PRINT " R MOVE UP AND LEFT": PRINT " V MOVE DOWN AND LEFT": PRINT " N MOVE DOWN AND RIGHT": PRINT " L BIONIC LEAP": PRINT " Z ZAP CLOSEST ROBOT WITH LASER
730 PRINT "ESC QUIT (IF ACCIDENTALLY PRESSED,": PRINT " RESUME BY ANSWERING 'Y' TO": PRINT " 'CONTINUE ?')
740 PRINT : PRINT " ANSWER ALL QUESTIONS WITH Y OR N.": PRINT : PRINT " "BP"00 BONUS AWARDED FOR ESCAPING.": PRINT : PRINT
750 PRINT "PRESS THE SPACE BAR TO START ESCAPE!
760 GOSUB 9510: POKE 34,22: PRINT CHR$(4);"RUN C"
7000 I = 0:J = 0:K = 0:L = 0:X = 0:Y = 0
7020 C0 = 30:R0 = 24:HS = 300:LN = 8:BP = 500
7030 KB = -16384:KR = -16368:SND = 14720:FR = 768:DR = 769
7050 A$ = " "
7090 RETURN
9050 HCOLOR= C%( FN M(0),0):X = PX:Y = PY: GOSUB 9700: HCOLOR= C%( FN M(0),4): GOSUB 9740: HCOLOR= C%( FN M(0),2): FOR I = 0 TO C0/2 -1:X = I *2:Y = 0: GOSUB 9720:X = C0 -I *2 -2:Y = R0 -2: GOSUB 9720: NEXT
9060 FOR I = 1 TO R0/2 -2:X = C0 -2:Y = I *2: GOSUB 9720:X = 0:Y = R0 -I *2 -2: GOSUB 9720: NEXT : FOR I = 0 TO NT -1: HCOLOR= 0:X = T%(I,0):Y = T%(I,1): GOSUB 9720
9070 HCOLOR= C%( FN M(0),3): GOSUB 9730: NEXT : HCOLOR= C%( FN M(0),1): FOR I = 0 TO NR -1:X = R%(I,0):Y = R%(I,1): GOSUB 9710: NEXT
9080 IF NP <1 THEN RETURN
9090 HCOLOR= C%( FN M(0),2): FOR I = 0 TO NP -1:X = P%(I,0):Y = P%(I,1): GOSUB 9720: NEXT : RETURN
9300 IF SC >HS THEN HS = SC
9310 VTAB 16: PRINT RIGHT$(" " + STR$(HS),6)"00": PRINT : PRINT
9320 PRINT RIGHT$(" " + STR$(SC),6)"00": RETURN
9500 PRINT "*** PRESS THE SPACE BAR TO CONTINUE ***
9510 A = PEEK(KB): IF A < >160 GOTO 9510
9520 POKE KR,0: RETURN
9700 DRAW 1 AT X,Y: RETURN
9710 DRAW 2 AT X,Y: RETURN
9720 DRAW 3 AT X,Y: RETURN
9730 DRAW 4 AT X,Y: RETURN
9740 DRAW 5 AT X,Y: RETURN
9850 X = T%(K,0):Y = T%(K,1): POKE DR,8: FOR L = 0 TO 7: POKE FR,(128 -L *4) *SD: HCOLOR= C%(L,3): GOSUB 9730: GOSUB 9700: CALL SND: NEXT : RETURN
9990 DATA 7,2,1,5,6

Text found in 077b_Dung_Beetles_Various_Games.dsk/C.bas:

10 REM COPYRIGHT 1981 EDUCATIONAL SOFTWARE PACKAGES (ESP)
20 REM MARKETED IN COOPERATION WITH:
30 REM SUBLOGIC COMMUNICATIONS CORP.
40 REM ALL RIGHTS RESERVED
50 ONERR GOTO 70
60 GOTO 100
70 TEXT : HOME : VTAB 11: PRINT "DISK ERROR -- PLEASE REBOOT"
80 GOTO 80
100 LOMEM: 8448: HIMEM: 14336: TEXT : HOME : HGR2 : GOSUB 7000
110 DIM C%(7,4),R%(12,2),P%(9,1),T%(4,1): GOSUB 7500
120 DEF FN X(X) = X *7 +70: DEF FN Y(Y) = Y *8: DEF FN M(X) = RW - INT(RW/8) *8
150 A = RND( - PEEK(78) - PEEK(79) *256)
200 VTAB 12: PRINT "WANT SOUND": PRINT "EFFECTS ?
210 A = PEEK(KB): IF A < >217 AND A < >206 GOTO 210
220 POKE KR,0:SD = ( CHR$(A -128) = "Y"):RW = 0:RV = 1:NP = 10:LS = LN:SK = 99:SC = 0
230 HGR2 : HOME : VTAB 12: PRINT "ONE MOMENT, PLEASE...
240 SR = 0
250 GOSUB 6500: GOSUB 9000
300 GOSUB 9500
310 IF A$ = "" THEN I = 0:J = 0: GOTO 410
320 IF A$ = "L" THEN I = INT((C0 -2) * RND(1)) -PX:J = INT((R0 -2) * RND(1)) -PY: GOTO 410
330 IF A$ = "Z" GOTO 550
340 IF A$ = CHR$(27) GOTO 2100
350 IF A$ = "R" OR A$ = "F" OR A$ = "V" THEN I = -1
360 IF A$ = "T" OR A$ = "G" OR A$ = "B" THEN I = 0
370 IF A$ = "Y" OR A$ = "H" OR A$ = "N" THEN I = 1
380 IF A$ = "R" OR A$ = "T" OR A$ = "Y" THEN J = -1
390 IF A$ = "F" OR A$ = "G" OR A$ = "H" THEN J = 0
400 IF A$ = "V" OR A$ = "B" OR A$ = "N" THEN J = 1
410 HCOLOR= 0:X = PX:Y = PY: GOSUB 9700: GOSUB 9740
420 PX = PX +I:PY = PY +J:G = 0: FOR I = 0 TO NT -1: IF ABS(T%(I,0) -PX) <2 AND ABS(T%(I,1) -PY) <2 THEN K = I:G = 1:I = 99
430 NEXT : IF G THEN GOSUB 9850:RV = RV -(RV >1): IF SC > = HS GOTO 3000
440 IF G THEN GOSUB 6500: GOSUB 9000: GOTO 300
450 IF PX <2 OR PY <2 THEN X = INT(PX/2) *2:Y = INT(PY/2) *2
460 IF PX >C0 -4 THEN X = INT(PX/2) *2 +2:PY = INT(PY/2) *2
470 IF PY >R0 -4 THEN X = INT(PX/2) *2:Y = INT(PY/2) *2 +2
480 IF PX <2 OR PY <2 OR PX >C0 -4 OR PY >R0 -4 THEN GOSUB 9800: GOSUB 9810:G = 1: GOTO 1120
490 IF NP <1 GOTO 520
500 G = 0: FOR I = 0 TO NP -1: IF ABS(P%(I,0) -PX) <2 AND ABS(P%(I,1) -PY) <2 THEN K = I:G = 1:I = 999
510 NEXT : IF G THEN X = P%(K,0):Y = P%(K,1): GOSUB 9800: GOSUB 9810: GOTO 1120
520 G = 0: FOR I = 0 TO NR -1: IF R%(I,2) AND ABS(R%(I,0) -PX) <2 AND ABS(R%(I,1) -PY) <2 THEN K = I:G = 1:I = 999
530 NEXT : IF G THEN GOSUB 9820: HCOLOR= C%( FN M(0),0): GOSUB 9710: GOTO 1120
540 X = PX:Y = PY: HCOLOR= C%( FN M(0),0): GOSUB 9700: HCOLOR= C%( FN M(0),4): GOSUB 9740: GOTO 1000
550 IF LS <1 THEN A$ = "":A = FRE(0): GOSUB 9510: GOTO 310
560 X = 999: FOR I = 0 TO NR -1:Y = ABS(PX -R%(I,0)): IF Y < ABS(PY -R%(I,1)) THEN Y = ABS(PY -R%(I,1))
570 IF R%(I,2) AND Y = ABS(PY -Y)) * SGN(X -PX) +PX +1:Y1 = ( ABS(PY -Y) > = ABS(PX -X)) * SGN(Y -PY) +PY +1:X = X +1:Y = Y +1: POKE DR,1: HCOLOR= C%( FN M(0),4)
590 L = ( ABS(X1 -X) > ABS(Y1 -Y)): HPLOT FN X(X1) -1, FN Y(Y1) -1 TO FN X(X) -1, FN Y(Y) -1: HPLOT FN X(X1) -L, FN Y(Y1) -1 +L TO FN X(X) -L, FN Y(Y) -1 +L: FOR I = 0 TO 7: FOR J = 0 TO 3
600 POKE FR,(10 +J *16) *SD: CALL SND: NEXT : NEXT : HCOLOR= 4 *(C%( FN M(0),0) >3): HPLOT FN X(X1) -1, FN Y(Y1) -1 TO FN X(X) -1, FN Y(Y) -1: HPLOT FN X(X1) -L, FN Y(Y1) -1 +L TO FN X(X) -L, FN Y(Y) -1 +L:RD = RD +1
610 R%(K,2) = 0:X = X -1:Y = Y -1: GOSUB 9710: GOSUB 9750: GOSUB 9080:LS = LS -1: VTAB 21: HTAB 8: PRINT LS" ": GOTO 1130
999 STOP
1000 G = 0: FOR I = 0 TO NR -1: IF R%(I,2) = 0 GOTO 1110
1010 X = R%(I,0):Y = R%(I,1): HCOLOR= 0: GOSUB 9710:X = X + SGN(PX -X):Y = Y + SGN(PY -Y): FOR J = 0 TO NR -1: IF I = J OR R%(J,2) = 0 GOTO 1040
1020 IF ABS(X -R%(J,0)) >1 OR ABS(Y -R%(J,1)) >1 GOTO 1040
1030 SC = SC +RV: GOSUB 9300: GOSUB 9750:X = R%(J,0):Y = R%(J,1):SC = SC +RV: GOSUB 9300: HCOLOR= 0: GOSUB 9710: GOSUB 9750:RD = RD +2:R%(I,2) = 0:R%(J,2) = 0:J = 999
1040 NEXT
1050 IF NP <1 GOTO 1100
1060 FOR J = 0 TO NP -1: IF ABS(X -P%(J,0)) >1 OR ABS(Y -P%(J,1)) >1 GOTO 1080
1070 X = P%(J,0):Y = P%(J,1):SC = SC +RV: GOSUB 9300: GOSUB 9800:R%(I,2) = 0:RD = RD +1:J = 999
1080 NEXT
1100 IF R%(I,2) THEN HCOLOR= C%( FN M(0),1): GOSUB 9710:R%(I,0) = X:R%(I,1) = Y: IF ABS(X -PX) <2 AND ABS(Y -PY) <2 THEN G = 1:K = I:I = 999
1110 NEXT : IF G THEN X = PX:Y = PY: HCOLOR= 0: GOSUB 9700: GOSUB 9740:X = R%(K,0):Y = R%(K,1): GOSUB 9820: HCOLOR= C%( FN M(0),0): GOSUB 9710
1120 IF G THEN VTAB 8: PRINT "GOTCHA!!": GOTO 2000
1130 IF RD 10): IF SR = 0 THEN VTAB 10: PRINT "ATTACK": PRINT "WAVE "RW: PRINT "THROUGH...
1150 IF SR GOTO 3000
1160 NP = NP -(NP >0) *(RW/2 = INT(RW/2)): GOSUB 6600: GOSUB 9000: GOTO 300
2000 VTAB 10: PRINT "TRY AGAIN?
2010 A = PEEK(KB): IF A < >217 AND A < >206 GOTO 2010
2020 POKE KR,0: IF CHR$(A -128) = "Y" GOTO 200
2030 HGR2 : HOME : HGR 1
2035 GOTO 2035
2100 VTAB 10: PRINT "CONTINUE ?
2110 A = PEEK(KB): IF A < >217 AND A < >206 GOTO 2110
2120 POKE KR,0: IF CHR$(A -128) = "N" GOTO 2000
2130 VTAB 10: PRINT " ": GOTO 300
3000 IF SR = 0 OR K < >0 GOTO 3040
3010 HGR2 : HOME : VTAB 4: HTAB 6: PRINT "YOU HAVE ESCAPED!": HCOLOR= C%(0,1): DRAW 2 AT 0,0: DRAW 2 AT 0,32: DRAW 2 AT 14,16: HCOLOR= C%(0,0): DRAW 1 AT 210,24
3020 PRINT :SC = SC +BP: HTAB 6: PRINT "YOUR SCORE IS "SC"00.": GOTO 2000
3040 IF SR AND K = 1 THEN RV = RV +1:SR = 0: GOTO 250
3050 RD = 0:NP = 0:NT = 2:T%(0,0) = 0:T%(0,1) = INT(R0/2) -2:T%(1,0) = C0 -2:T%(1,1) = T%(0,1) +2: IF SR = 0 THEN PX = INT(C0/2) -2:PY = INT(R0/2) -1:SR = 1
3060 NR = 8: FOR I = 0 TO 2:R%(I,0) = I * INT(C0/3) + INT(C0/6) -1:R%(I,1) = INT(R0/6) -1:R%(I,2) = 1:R%(I +3,0) = R%(I,0) +2:R%(I +3,1) = INT(2 *R0/3) + INT(R0/6) -1:R%(I +3,2) = 1: NEXT
3070 R%(6,0) = INT(C0/6):R%(7,0) = INT(2 *C0/3) + INT(C0/6):R%(6,1) = INT(R0/2) -1:R%(7,1) = R%(6,1):R%(6,2) = 1:R%(7,2) = 1: GOSUB 9000: GOTO 300
6500 PX = INT((C0 -5) * RND(1) +2):PY = INT((R0 -5) * RND(1) +2):RD = 0
6510 NP = NP -(NP >0) *(RW/2 = INT(RW/2)): IF NP <1 GOTO 6600
6520 FOR I = 0 TO NP -1:X = INT((C0 -5) * RND(1) +2):Y = INT((R0 -5) * RND(1) +2): IF ABS(X -PX) <2 AND ABS(Y -PY) <2 THEN I = I -1: GOTO 6555
6525 IF I = 0 GOTO 6550
6530 G = 0: FOR J = 0 TO I -1: IF ABS(X -P%(J,0)) <2 AND ABS(Y -P%(J,1)) <2 THEN I = I -1:J = 99:G = 1
6540 NEXT : IF G GOTO 6555
6550 P%(I,0) = X:P%(I,1) = Y
6555 NEXT :NT = INT(5 * RND(1) +1): FOR I = 0 TO NT -1: IF RND(1) >.5 THEN X = INT(C0/2 * RND(1)) *2:Y = (R0 -2) *( RND(1) >.5): GOTO 6570
6560 Y = INT(R0/2 * RND(1)) *2:X = (C0 -2) *( RND(1) <.5)
6570 T%(I,0) = X:T%(I,1) = Y: NEXT
6600 NR = INT(8 * RND(1) +6):RD = 0: FOR I = 0 TO NR -1:X = INT((C0 -5) * RND(1) +2):Y = INT((R0 -5) * RND(1) +2): IF ABS(X -PX) <2 AND ABS(Y -PY) <2 THEN I = I -1: GOTO 6670
6610 IF NP <1 GOTO 6640
6620 G = 0: FOR J = 0 TO NP -1: IF ABS(X -P%(J,0)) <2 AND ABS(Y -P%(J,1)) <2 THEN I = I -1:J = 99:G = 1
6630 NEXT : IF G GOTO 6670
6640 G = 0: FOR J = 0 TO NR -1: IF ABS(X -R%(J,0)) <2 AND ABS(Y -R%(J,1)) <2 THEN I = I -1:J = 99:G = 1
6650 NEXT : IF G GOTO 6670
6660 R%(I,0) = X:R%(I,1) = Y:R%(I,2) = 1
6670 NEXT : RETURN
7000 I = 0:J = 0:K = 0:L = 0:X = 0:Y = 0:PX = 0:PY = 0:NP = 0:NR = 0:NT = 0:RW = 0:RV = 0:LS = 0:G = 0:A = 0:SC = 0
7010 T = 0:SK = 0:RD = 0:X1 = 0:Y1 = 0:SR = 0
7020 C0 = 30:R0 = 24:HS = 300:LN = 8:BP = 500
7030 KB = -16384:KR = -16368:SND = 14720:FR = 768:DR = 769
7050 A$ = " "
7090 RETURN
7500 RESTORE : FOR I = 0 TO 7: FOR J = 0 TO 4: READ C%(I,J): NEXT : NEXT : RETURN
9000 HGR2 : HOME : PRINT " ESCAPE!": PRINT : PRINT : PRINT : PRINT " TIME:": HCOLOR= C%( FN M(0),4): HPLOT 10,27 TO 51,27: HPLOT 10,28 TO 51,28: HPLOT 50,29 TO 50,51
9010 HPLOT 51,29 TO 51,51: HPLOT 51,52 TO 10,52: HPLOT 51,53 TO 10,53: HPLOT 10,51 TO 10,29: HPLOT 11,51 TO 11,29
9020 VTAB 15: PRINT "HI SCORE:": PRINT RIGHT$(" " + STR$(HS),6)"00": PRINT : PRINT " SCORE:": PRINT RIGHT$(" " + STR$(SC),6)"00"
9030 VTAB 21: PRINT "SHOTS: "LS: HCOLOR= C%( FN M(0),1): DRAW 2 AT 0,172: VTAB 23: HTAB 4: PRINT "= "RV"00
9050 HCOLOR= C%( FN M(0),0):X = PX:Y = PY: GOSUB 9700: HCOLOR= C%( FN M(0),4): GOSUB 9740: HCOLOR= C%( FN M(0),2): FOR I = 0 TO C0/2 -1:X = I *2:Y = 0: GOSUB 9720:X = C0 -I *2 -2:Y = R0 -2: GOSUB 9720: NEXT
9060 FOR I = 1 TO R0/2 -2:X = C0 -2:Y = I *2: GOSUB 9720:X = 0:Y = R0 -I *2 -2: GOSUB 9720: NEXT : FOR I = 0 TO NT -1: HCOLOR= 0:X = T%(I,0):Y = T%(I,1): GOSUB 9720
9070 HCOLOR= C%( FN M(0),3): GOSUB 9730: NEXT : HCOLOR= C%( FN M(0),1): FOR I = 0 TO NR -1:X = R%(I,0):Y = R%(I,1): GOSUB 9710: NEXT
9080 IF NP <1 THEN RETURN
9090 HCOLOR= C%( FN M(0),2): FOR I = 0 TO NP -1:X = P%(I,0):Y = P%(I,1): GOSUB 9720: NEXT : RETURN
9300 IF SC >HS THEN HS = SC
9310 VTAB 16: PRINT RIGHT$(" " + STR$(HS),6)"00": PRINT : PRINT
9320 PRINT RIGHT$(" " + STR$(SC),6)"00": RETURN
9500 T = SK: POKE DR,2: POKE FR,8 *SD: POKE KR,0:A$ = "":A = FRE(0)
9510 VTAB 6: HTAB 4: PRINT STR$( INT(T/10))"." STR$(T - INT(T/10) *10): CALL SND: FOR J = 0 TO 3
9520 A = PEEK(KB): IF A >127 THEN A$ = CHR$(A -128): POKE KR,0:J = 999
9530 NEXT : IF A$ = "" GOTO 9560
9540 FOR J = 1 TO 12: IF A$ < > MID$ ("RTYFGHVBNLZ" + CHR$(27),J,1) THEN NEXT :A$ = ""
9550 IF A$ < >"" THEN VTAB 6: HTAB 4: PRINT "0.0": RETURN
9560 IF T >0 THEN T = T -1: GOTO 9510
9570 RETURN
9700 DRAW 1 AT FN X(X), FN Y(Y): RETURN
9710 DRAW 2 AT FN X(X), FN Y(Y): RETURN
9720 DRAW 3 AT FN X(X), FN Y(Y): RETURN
9730 DRAW 4 AT FN X(X), FN Y(Y): RETURN
9740 DRAW 5 AT FN X(X), FN Y(Y): RETURN
9750 POKE DR,2: FOR L = 0 TO 2: HCOLOR= C%( FN M(0),0): DRAW L +6 AT FN X(X), FN Y(Y): FOR K = 0 TO 3: POKE FR,(180 +L *16 +K *4) *SD: CALL SND: NEXT
9760 HCOLOR= 0: DRAW L +6 AT FN X(X), FN Y(Y): NEXT : RETURN
9800 POKE DR,2: POKE FR,120 *SD: FOR L = 0 TO 24: HCOLOR= 0: GOSUB 9720: CALL SND: HCOLOR= C%( FN M(0),2): GOSUB 9720: CALL SND: NEXT : RETURN
9810 HCOLOR= C%( FN M(0),0): GOSUB 9720: RETURN
9820 X = R%(K,0):Y = R%(K,1): POKE DR,4: FOR L = 0 TO 15: HCOLOR= 0: GOSUB 9710: POKE FR,(255 -L *8) *SD: CALL SND: HCOLOR= C%( FN M(0),1): GOSUB 9710: CALL SND: NEXT : RETURN
9850 X = T%(K,0):Y = T%(K,1): POKE DR,8: FOR L = 0 TO 7: POKE FR,(128 -L *4) *SD: HCOLOR= C%(L,3): GOSUB 9730: GOSUB 9700: CALL SND: NEXT : RETURN
9900 DATA 7,2,1,5,6, 2,1,5,6,3, 1,5,6,3,2, 5,3,2,1,6, 3,6,1,5,2, 6,2,3,1,5, 2,7,6,5,1, 1,2,5,6,3

Text found in 077b_Dung_Beetles_Various_Games.dsk/DUNG.START.txt:

NOMON C,I,O
FP
TEXT:HOME
HOME : VTAB 2:FLASH :PRINT" THE SOFTWARE PIRATE PRESENTS..... ":NORMAL : VTAB 12: NORMAL : PRINT " D U N G B E E T L E S ! ":NORMAL:VTAB 20
VTAB 20:PRINT" SORRY FOR THE 'EXEC' FILE FOLKS BUT...":VTAB 22:FOR I=1 TO 4000:NEXT I:HGR:POKE-16302,0
BLOAD DUNG BEETLES.OBJ
CALL-151
NC050 C057 C054 C052 8000<4000.6FFFM 9600G
C600G
PR#6

Text found in 077b_Dung_Beetles_Various_Games.dsk/HELLO-C.bas:

10 TEXT : HOME : NORMAL : SPEED= 255
20 PRINT "DISK #77B FOR APPLE ][C ... READY!"
30 CLEAR :FR = FRE(0):FR = 0: NEW

Text found in 077b_Dung_Beetles_Various_Games.dsk/SC.START.txt:

5
HOME
NOMON C
BLOAD SUPER COPY
BLOAD SC 6000
BRUN START 5D00

Text found in 077b_Dung_Beetles_Various_Games.dsk/STUPID.BOOT.bas:

10 POKE 1010,0: POKE 1011,19: POKE 1012,182
20 PRINT "]";
30 GET A$: PRINT A$;: IF A$ < > CHR$(13) AND A$ < > CHR$(141) THEN 30
35 PRINT
40 PRINT "?SYNTAX ERROR"
50 GOTO 20

Text found in 077b_Dung_Beetles_Various_Games.dsk/STUPID.BREAKABLE.bas:

10 POKE 1010,3: POKE 1011,8: POKE 1012,173
20 HTAB (1): PRINT : PRINT "]";
30 GET A$: PRINT A$;: IF A$ = CHR$(1) THEN 100
31 IF A$ = CHR$(24) THEN PRINT "\": GOTO 20
33 IF A$ < > CHR$(13) AND A$ < > CHR$(141) THEN 30
35 PRINT
40 PRINT "?SYNTAX ERROR"
50 PRINT "]";: GOTO 30
100 GET A$: PRINT A$;: IF A$ < > CHR$(1) THEN 30
110 GET A$: PRINT A$;: IF A$ < > CHR$(1) THEN 30
120 POKE 1010,191: POKE 1011,157: POKE 1012,56: HOME : CLEAR :FR = FRE(0): PRINT "READY"
130 NEW