Notes

Disk info for 093a_Beagle_Bag.dsk:

File Name: 3d0g_093a_Beagle_Bag/093a_Beagle_Bag.dsk
Disk Name: DISK VOLUME #92
Physical Size (bytes): 143360
Free Space (bytes): 256
Used Space (bytes): 143104
Physical Size (KB): 140
Free Space (KB): 0
Used Space (KB): 139
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 1
Used Sectors: 559
Tracks On Disk: 35
Sectors On Disk: 16



Text found in 093a_Beagle_Bag.dsk/BABY NAMES.bas:

10 REM BABY NAMESBY BERT KERSEYBEAGLE BROS
20 TEXT : HOME : NORMAL : ONERR GOTO 63900
40 V$ = "AEIOU":C$ = "BCDFGHJKLMNPQRSTVWXYZ"
50 PRINT "100 NAMES FOR BABY:"
60 FOR I = 1 TO 40: PRINT "-";: NEXT
70 FOR KID = 1 TO 99
80 A = INT( RND(1) *21) +1:B = INT( RND(1) *5) +1:C = INT( RND(1) *21) +1:D = INT( RND(1) *5) +1:E = INT( RND(1) *21) +1
90 PRINT MID$ (C$,A,1); MID$ (V$,B,1); MID$ (C$,C,1); MID$ (C$,C,1);
93 IF INT( RND(1) *2) = 0 THEN PRINT "Y ";: GOTO 100
94 PRINT MID$ (V$,D,1); MID$ (C$,E,1);"Y ";
100 NEXT KID: PRINT "GEORGE": FOR I = 1 TO 40: PRINT "-";: NEXT
110 FOR I = 1 TO 2000: NEXT : VTAB 24: HTAB 1: PRINT "ANY KEY:";: GET A$: PRINT A$;: HTAB 1: CALL -958
63900 NORMAL : PRINT : HTAB 5: PRINT "BEAGLE BAG": HTAB 5: PRINT "------------------"
63910 PRINT " MENU": PRINT " SEE MORE NAMES": PRINT " QUIT": HTAB 5: PRINT "------------------": PRINT " SELECT:";: GET A$: PRINT A$: IF A$ = "Q" THEN END
63920 IF A$ = "M" THEN PRINT CHR$(4);"RUN SHORT MENU"
63930 IF A$ = "C" THEN RUN
63940 GOTO 63900

Text found in 093a_Beagle_Bag.dsk/BEAGLE MENU.bas:

57 REM 65535 REM==================BEAGLE MENUBY BERT KERSEYCOPYRIGHT (C) 1982BEAGLE BROSSAN DIEGO==================
100 S = 0:B = 0:A = 1:I = 0:T = 0:U = 0
110 REM ABOVE^LINE^DETERMINES^DISPLAY^OF^SECTORS^AND/OR^BINARY,APPLESOFT,INTEGER,TEXT^OR^UNLOCKED^FILES^(1=YES,0=NO)
112 POKE 44483,32: POKE 44484,47: POKE 44485,174: POKE 44486,32: POKE 44487,47: POKE 44488,174: IF PEEK(978) < >157 THEN PRINT "NOT 48K"; CHR$(7): END
115 POKE 49385,0: DIM SC(24):F = 128: FOR X = 1 TO 24: GOSUB 146:SC(X) = SC: NEXT : FOR II = 24576 TO 24831: POKE II,0: NEXT
120 LA = 136:RA = 149:Q = -16384:CL = -16368:BZ = -16336:TF = 256:Q$ = CHR$(34):DD$ = CHR$(4):UM = PEEK(175) + PEEK(176) *TF -56:B = 2 *(B = 0):A = (A = 0):I = 9 *(I = 0):T = 4 *(T = 0):A$ = "---------------":L$ = " : ::: ": ONERR GOTO 830
140 FOR II = 1 TO 30:L$ = L$ +":": NEXT II: TEXT : NORMAL : PRINT CHR$(4);"NOMONICO": HOME : VTAB 16: HTAB 8: POKE 32,7: PRINT "BEAGLE MENU": PRINT A$: PRINT "SLOT: " PEEK(43626): PRINT "DRIVE: " PEEK(43624): PRINT A$: PRINT "FILES: 0": PRINT "SECTORS:0": PRINT A$: TEXT : GOTO 0160
145 POKE 60,OS - INT(OS/TF) *TF: POKE 61, INT(OS/TF): POKE 62,OE - INT(OE/TF) *TF: POKE 63, INT(OE/TF): POKE 64,NE - INT(NE/TF) *TF: POKE 65, INT(NE/TF): POKE 66,NS - INT(NS/TF) *TF: POKE 67, INT(NS/TF): CALL UM +49 *(OS >NS): RETURN
146 SC = F *X +1 -(984 * INT((X -1)/8)) +895: RETURN
160 FOR II = 768 TO 795: READ N: POKE II,N: NEXT : POKE 54,0: POKE 55,3: CALL 1002: DATA 201,141,240,21,234,234,234,234,201,128,144,13,201,160,176,9,72,132,53,56,233,128,76,249,253,76,240,253
165 FOR II = 800 TO 805: READ J: POKE II,J: NEXT : DATA 32,227,3,76,217,3
170 POKE 47083,0: POKE 47084,17: POKE 47088,0: POKE 47089,96: POKE 47091,0: POKE 47092,1
180 FOR SE = 15 TO 1 STEP -1: POKE 47085,SE: CALL 800: FOR X = 24587 TO 24797 STEP 35:SC = PEEK(X): IF SC <255 AND SC >0 THEN NF = NF +1:SS = SS + PEEK(X +33): VTAB 21: HTAB 16: PRINT NF: HTAB 16: PRINT SS
185 IF SC THEN NEXT : NEXT
200 FOR PG = 1 TO 7:MV(PG) = 16384 +1024 *PG: NEXT
210 POKE 44596,234: POKE 44597,234: POKE 44598,234
220 POKE 44578,96
230 FLAG = 1: VTAB 1: PRINT DD$"CATALOG": PRINT :FI = 1:FVIS = 1: GOTO 260
240 IF NF = 1 THEN 390
250 CALL 44581: PRINT :FI = FI +1:FVIS = FVIS +1
260 PRINT L$;: HTAB 1:VP = PEEK(37):SC = 2 *VP -2
270 SC = SCRN( 1,2 *VP -2): IF SC = B OR SC = A OR SC = I OR SC = (T) OR SCRN( 0,2 *VP -2) = U THEN VTAB VP: CALL -868:FVIS = FVIS -1
280 IF FLAG THEN FLAG = 0: GOTO 250
290 IF FVIS <20 THEN 380
300 IF NOT NPG THEN VTAB 24: HTAB 1: CALL -958: PRINT
310 F7 = FV:FVIS = 0:NPG = NPG +1
320 INVERSE : VTAB 1: HTAB 1: PRINT SPC( 40): VTAB 1: HTAB 2: PRINT "CATALOG PAGE ";NPG
330 NORMAL : VTAB 23: HTAB 1: PRINT SPC( 40)":SELECT :RUN :HEL";: POKE 2039,208
340 FOR II = 1 TO 2:P = PEEK(BZ): NEXT : FLASH : HTAB 2: PRINT "ARROWS";: INVERSE : HTAB 19: PRINT "RETURN";: HTAB 34: PRINT "H";: NORMAL
350 IF NOT S THEN VTAB 3: FOR P = 3 TO 22: HTAB 4: PRINT " ": NEXT
360 OS = 1024:OE = 2047:NS = MV(NPG):NE = MV(NPG) +1023: GOSUB 145
370 FOR II = 1 TO 2:P = PEEK(BZ): NEXT : VTAB 24: HTAB 1: INVERSE : PRINT " STAND BY."; SPC( 29);: POKE 2039,32: NORMAL : VTAB 3: HTAB 1: IF FLAG THEN 410
380 IF FI 0 AND FVIS >0 THEN 310
400 IF NOT NPG THEN VTAB 24: PRINT : GOTO 300
410 POKE 888,0
420 NPG = NPG +(NPG = 0): POKE 44596,206: POKE 44597,157: POKE 44598,179: POKE 44578,32: PRINT : PRINT DD$"PR#0": IF PEEK(888) THEN END
430 PG = 1:VP = 3:K = 149: POKE 888,0: IF NOT F7 THEN HOME : PRINT CHR$(7)"NO FILES SELECTED; CHANGE LINE 100:": LIST 100 -110: VTAB 3: PRINT " 100 S =": PRINT : PRINT " 110": VTAB 2: END
440 POKE 49385,0: POKE 49384,0:OS = MV(PG):OE = OS +1023:NS = 1024: GOSUB 145:FLAG = 0
450 INVERSE : VTAB 1: HTAB 17: PRINT "OF ";NPG
460 GOSUB 640: IF VP <3 OR VP >22 THEN 610
470 VTAB VP: HTAB 7: INVERSE : PRINT ">": COLOR= SCRN( 3,2 *VP -1) -8: HLIN 3,5 AT 2 *VP -1: NORMAL : POKE CL,0
480 IF FLAG THEN INVERSE : VTAB 24: HTAB 2: PRINT "ARROWS";: NORMAL
490 K = PEEK(Q):FLAG = 1: IF K 23 THEN PG = PG +1 -NPG *(PG = NPG):VP = 3: GOTO 440
630 GOTO 470
640 IF K < >149 AND K < >160 THEN K = 136
645 IF SCRN( 1,2 *VP -2) = 0 THEN NORMAL : VTAB VP: HTAB 4: PRINT "--->";:VP = VP +(K = 149 OR K = 160) -(K = 136): IF VP >2 AND VP <24 THEN HTAB 3: CALL -868: GOTO 645
650 RETURN
670 SC = SCRN( 1,2 *VP -2): IF SC = 4 THEN GO$ = "EXEC"
680 IF SC = 2 THEN GO$ = "BRUN": IF K = 204 THEN GO$ = "BLOAD"
690 IF SC = 1 OR SC = 9 THEN GO$ = "RUN": IF K = 204 THEN GO$ = "LOAD"
700 X = VP: GOSUB 146: VTAB VP: HTAB 1: PRINT " "GO$ SPC( 6 - LEN(GO$)): FOR II = 1 TO 24: VTAB II +(II = VP): HTAB 1: CALL -868: NEXT
710 NAME$ = "": FOR X = SC +7 TO SC +36:NAME$ = NAME$ + CHR$( PEEK(X)): NEXT
720 VTAB 22: PRINT : CALL -958: PRINT DD$GO$NAME$: GOTO 440
740 HOME : INVERSE
750 PRINT SPC( 40): VTAB 1: HTAB 13: PRINT "BEAGLE MENU": GOSUB 820: NORMAL : HTAB 11: PRINT "--> CURSOR DOWN": HTAB 11: PRINT "<-- CURSOR UP": PRINT " SPACE OR [P] PAGE ADVANCE": PRINT
755 PRINT "RETURN OR [R] RUN APPLESOFT PROGRAM": HTAB 15: PRINT "RUN INTEGER PROGRAM": HTAB 15: PRINT "BRUN BINARY PROGRAM"
760 HTAB 15: PRINT "EXEC TEXT FILE": PRINT : HTAB 11: PRINT "[L] LOAD APPLESOFT PROGRAM": HTAB 15: PRINT "LOAD INTEGER PROGRAM": HTAB 15: PRINT "BLOAD BINARY FILE": PRINT
770 HTAB 11: PRINT "[1] NEW MENU/DRIVE 1": HTAB 11: PRINT "[2] NEW MENU/DRIVE 2": HTAB 11: PRINT "[C] NORMAL CATALOG": PRINT
780 HTAB 4: PRINT "[F] OR [S] FREE SECTORS": HTAB 4: PRINT "[?] OR [H] HELP (THIS PAGE)": HTAB 4: PRINT "ESC OR [Q] QUIT"
790 GOSUB 820: INVERSE : PRINT SPC( 39): POKE 2039,32: POKE 1036,2: POKE 1037,5: POKE 1038,1: POKE 1039,7: POKE 1040,12: POKE 1041,5: POKE 1043,13: POKE 1044,5: POKE 1045,14: POKE 1046,21: HTAB 15: PRINT "TO CONTINUE.";
800 IF PEEK(Q) < >160 THEN HTAB 9: PRINT " ";: FOR II = 1 TO 444: NEXT : IF PEEK(Q) < >160 THEN HTAB 9: PRINT "SPACE";: FOR II = 1 TO 444: NEXT : IF PEEK(Q) < >160 THEN 800
810 POKE CL,0: GOTO 440
820 NORMAL : FOR X = 1 TO 40: PRINT "-";: NEXT : RETURN
830 J = PEEK(218) + PEEK(219) *256:II = PEEK(222): IF II = 255 THEN K = 155: GOTO 540
832 IF II = 8 AND NOT PEEK(888) THEN POKE 888,1: POKE 43624,1: POKE 47082,1: RUN
835 IF II = 8 AND PEEK(888) THEN PR# 0: VTAB 24: PRINT : PRINT : PRINT CHR$(7)"DISK OR DRIVE ERROR": GOTO 420
840 IF II = 11 OR II = 6 THEN VTAB VP -2: HTAB 1: PRINT "TRACE OVER FILE NAME TO EXECUTE:": END
845 IF II = 1 THEN VTAB VP -2: HTAB 1: PRINT "LANGUAGE NOT AVAILABLE": GOTO 860
850 TEXT : HOME : VTAB 12: HTAB 13: PRINT "ERROR: ";II: HTAB 13: PRINT "LINE: ";J
860 PRINT CHR$(7);: FOR II = 1 TO 2000: NEXT : GOTO 440
63999 REM 65535
65535 REM ==================BEAGLE MENUBY BERT KERSEYCOPYRIGHT (C) 1982BEAGLE BROS==================

Text found in 093a_Beagle_Bag.dsk/BEAGLE NEWS.bas:

13 REM BUY DOS BOSS & PREVENT LISTING!FP
15 TEXT :V = 1:NB = 51:BZ = -16336: GOSUB 160:NB = 1: FOR I = 1 TO 24: GOSUB 160: TEXT : PRINT : NEXT : HOME
20 INVERSE : PRINT " BEAGLE BROS DISKLIST ";: NORMAL : PRINT " (DECEMBER 1982)----------------------": FOR I = 1 TO 51: GOSUB 170: NEXT :NB = 19: GOSUB 160:NB = 9
25 A$ = " ALPHA PLOT ......................$39.50 HI-RES GRAPHICS/TEXT UTILITY":N = 12: GOSUB 999: GOSUB 160
30 A$ = " APPLE MECHANIC .................. 29.50 SHAPE TABLE/BYTE ZAP UTILITY":N = 16: GOSUB 999
35 A$ = " BEAGLE BAG ...................... 29.50 -GAMES-PLUS ON ONE DISK":N = 12: GOSUB 999
40 A$ = " DOS BOSS ........................ 24.00 DISK COMMAND EDITOR":N = 10: GOSUB 999
50 A$ = " FLEX TEXT ....................... 29.50 -COLUMN TEXT UTILITY":N = 11: GOSUB 999
60 A$ = " FRAME-UP ........................ 29.50 HI-RES " + CHR$(34) +"SLIDE PROJECTOR" + CHR$(34) +" UTILITY":N = 10: GOSUB 999
70 A$ = " PRONTO-DOS ...................... 29.50 TRIPLE-SPEED LOADING & SAVING":N = 12: GOSUB 999
80 A$ = " TIP DISK #1 ..................... 20.00 100 PROGRAMS FROM TIP BOOKS 1-":N = 13: GOSUB 999
85 A$ = " TYPEFACES ....................... 20.00 FONTS FOR APPLE MECHANIC":N = 11: GOSUB 999
90 A$ = " UTILITY CITY .................... 29.50 USEFUL UTILITIES ON ONE DISK":N = 14: GOSUB 999
100 N = 12:V = 9:H = 3: GOSUB 9999:N = 70:V = 13:H = 3: GOSUB 9999:N = 4:V = 19:H = 33: GOSUB 9999:N = 26:V = 21:H = 3: GOSUB 9999:N = 21:V = 23:H = 3: GOSUB 9999
110 POKE 49385,0:A$ = " GET ON OUR LIST. WE MAIL GREAT MAIL! ": POKE 49384,0: FOR I = 20 TO 39: VTAB 24: HTAB I: PRINT MID$ (A$,I,1);: HTAB 40 -I: PRINT MID$ (A$,40 -I,1);: FOR J = 1 TO 5: NEXT : NEXT
150 NB = 123: GOSUB 160: VTAB 23: END
160 TX = 49237: FOR K = 1 TO NB: POKE TX,0: TEXT : FOR J = 1 TO 1: NEXT :S = PEEK( -16336): NEXT : VTAB 22: POKE -16368,0: RETURN
170 TX = 49237: FOR K = 1 TO NB: POKE TX,0: TEXT : NEXT : VTAB 22: POKE -16368,0: RETURN
999 GOSUB 160:V = V +2: FOR I = 23 TO V STEP -1: VTAB I: HTAB 1: INVERSE : PRINT LEFT$(A$,N);: NORMAL : PRINT RIGHT$(A$, LEN(A$) -N);: CALL -958:S = PEEK(BZ): NEXT : RETURN
9999 V = V -1: VTAB V: FOR I = 0 TO N STEP 1 +(N >69): HTAB H: PRINT I;: FOR J = 1 TO 2:S = PEEK( -16336): NEXT : NEXT : RETURN

Text found in 093a_Beagle_Bag.dsk/BUZZWORD.bas:

44 REM ==================BUZZWORDBY BERT KERSEYCOPYRIGHT (C) 1980BEAGLE BROS==================
139 ONERR GOTO 63900
140 GOSUB 20000: GOTO 1060
145 REM PRINT STORY-----------
150 FOR I = 1 TO LEN(A$):M$ = MID$ (A$,I,1): IF M$ >"." AND M$ <"8" THEN GOSUB 500: GOTO 230
155 IF ( PEEK(37) - INT( PEEK(37)/2) *2 = 1) AND ( PEEK(37) < >23) THEN PRINT
158 IF PEEK(Q) = 155 THEN POKE Q +16,0: POP : GOTO 1060
160 PRINT M$;: FOR J = 1 TO 3:S = PEEK(Q +48): NEXT J: IF M$ < >" " OR I = LEN(A$) THEN 220
169 REM CARRIAGE RETURN?----------------
170 J = I +1
180 J = J +1: IF MID$ (A$,J,1) < >" " THEN 210
190 IF (J -I + PEEK(36)) <39 THEN 220
195 PRINT : PRINT : GOTO 220
210 IF J < LEN(A$) THEN 180
220 IF PEEK(37) >15 THEN CALL -958
227 IF M$ = "." OR M$ = "!" THEN FOR J = 1 TO 444: NEXT J
230 NEXT : RETURN
499 REM GET BUZZWORD------------
500 IF M$ = "/" THEN N$ = S$:I = I +1: RETURN
530 IF M$ = "0" THEN S$ = N$: GOTO 605
540 N = ASC(M$) -48
550 IF PEEK(36) 155) OR K >218 THEN 580
585 POKE Q +16,0: IF K = 155 THEN POP : GOTO 1060
590 L = K -192
591 IF N = 1 THEN S$ = PRS$(L)
592 IF N = 2 THEN S$ = PLC$(L)
593 IF N = 4 THEN S$ = ADJ$(L)
594 IF N = 5 THEN S$ = VB$(L)
596 IF N = 6 THEN S$ = PST$(L)
597 IF N = 7 THEN S$ = ING$(L)
598 IF N < >3 THEN 605
599 S$ = T1$(L):R = INT( RND(1) *3): IF R = 1 THEN S$ = T2$(L)
600 IF R = 2 THEN S$ = T3$(L)
605 IF PEEK(36) > = MRGN THEN PRINT : PRINT
610 FOR J = 1 TO LEN(S$): PRINT MID$ (S$,J,1);: IF MID$ (S$,J,1) < >" " THEN 630
620 IF PEEK(36) > = MRGN THEN PRINT : PRINT
630 FOR K = 1 TO 3:S = PEEK(Q +48): NEXT K: FOR K = 1 TO 30: NEXT K,J
640 RETURN
1010 REM MENU----
1060 TEXT : HOME : INVERSE :MRGN = 30:ESC = 0: VTAB 3: HTAB 3: PRINT " BEAGLE BROS ": ONERR GOTO 63900
1070 FOR I = 1 TO 999: NEXT
1080 INVERSE : VTAB 3: HTAB 3: PRINT " BUZZ";
1090 FOR I = 1 TO 50:S = PEEK(Q +48) + PEEK(Q +48): NEXT
1110 HTAB 8: PRINT "WORD! ";: NORMAL : PRINT " "
1120 FOR I = 1 TO 66:S = PEEK(Q +48): NEXT
1130 VTAB 5: HTAB 3
1140 PRINT " PICK A STORY... ": PRINT : NORMAL
1150 PRINT " . 'THE ISLE OF ***'": GOSUB 1350
1160 PRINT " . 'NEVER TRUST A ***!'": GOSUB 1350
1170 PRINT " . 'REPAIRING YOUR ***'": GOSUB 1350
1180 PRINT " . 'MISTER ***'": GOSUB 1350
1190 PRINT " . '*** YOUR DOG'": GOSUB 1350
1200 INVERSE : HTAB 3: PRINT " OR... ": NORMAL : PRINT
1210 PRINT " . CREATE YOUR OWN STORY.": VTAB 24: PRINT "(TYPE Q TO QUIT.)";: VTAB 1: PRINT : GOSUB 1350
1220 FOR I = 12 TO 28 STEP 4: COLOR= 2: PLOT 3,I: NEXT
1230 PLOT 19,12: PLOT 22,16: PLOT 22,20: PLOT 14,24: PLOT 16,28
1240 A = 1:X = 0
1250 FOR I = 1 TO 6: VTAB 2 *I +5 +2 * INT(I/6): NORMAL : IF A = I THEN INVERSE
1252 PRINT I: NEXT
1260 A = A +1: IF A >6 THEN A = 1
1262 X = X +1: IF X < >36 THEN 1280
1270 INVERSE : VTAB 21: HTAB 3: PRINT " HURRY UP! ": FOR I = 1 TO 99:S = PEEK(Q +48): NEXT
1280 FOR I = 1 TO 50: NEXT
1290 K = PEEK(Q): IF K <177 OR (K >182 AND K < >209) THEN 1250: POKE Q +16,0:K = K -176
1292 POKE Q +16,0:K = K -176
1295 IF K = 33 THEN 63900
1300 IF K = 6 THEN 1500
1310 INVERSE : HOME
1320 VTAB 24: PRINT " TYPE A LETTER WHEN YOU HEAR THE BUZZ. ";: VTAB 1: HTAB 1
1330 ON K GOTO 9100,9200,9300,9400,9500
1349 REM BUZZ----
1350 FOR J = 1 TO 9:S = PEEK( -16336): NEXT J: PRINT : RETURN
1500 REM TYPE YOUR OWN STORY-------------------
1520 NORMAL : HOME :TRY = 0:V = 9
1560 TEXT : POKE 35,7: HOME : TEXT : VTAB 1: HTAB 1: ONERR GOTO 63900
1580 PRINT "PERSON PLACE THING ADJ. VERB VB/PAST ING------ ----- ----- ---- ---- ------- ---";
1585 FOR I = 1 TO 182:A(I) = 0: NEXT
1600 INVERSE : FOR I = 1 TO 7: HTAB 6 *I -4: PRINT " "; CHR$(I +32);" ";: NEXT : FOR I = 1 TO 7: HTAB 6 *I -4: PRINT " ";I;" ";: NEXT : NORMAL
1700 PRINT : PRINT "@=GET/SAVE STORY *,*=ERASE ==CURSOR UP----------------------------------------";
1730 INVERSE : VTAB 6: HTAB 1: PRINT "@";: HTAB 19: PRINT "*";: HTAB 21: PRINT "*";: HTAB 30: PRINT "=": NORMAL
1800 POKE 34,4: COLOR= 6: VTAB V: HTAB 1
1815 REM PRINT-LETTER LOOP-----------------
1820 ESC = 0
1840 IF ESC >1 THEN 1060
1846 A$ = M$: GET M$
1850 IF M$ = "*" THEN PRINT M$;"";:ESC = ESC +1: GOTO 1840
1860 IF M$ = "@" THEN 3000
1870 IF M$ = "=" THEN VTAB PEEK(37) +( PEEK(37) = 0): HTAB PEEK(36) +1: GOTO 1820
1880 IF M$ <"8" AND M$ >"0" THEN 2000
1890 PRINT M$;: GOTO 1820
1999 REM GET A BUZZWORD--------------
2000 IF PEEK(36) > = MRGN THEN PRINT
2100 TRY = TRY +1: IF TRY >25 THEN TRY = 1: FOR I = 1 TO 182:A(I) = 0: NEXT
2110 I = INT( RND(1) *26) +1:N = 26 * VAL(M$) -26 +I: IF A(N) >0 THEN 2110
2120 A(N) = 1
2201 IF M$ = "1" THEN S$ = PRS$(I)
2202 IF M$ = "2" THEN S$ = PLC$(I)
2204 IF M$ = "4" THEN S$ = ADJ$(I)
2205 IF M$ = "5" THEN S$ = VB$(I)
2206 IF M$ = "6" THEN S$ = PST$(I)
2207 IF M$ = "7" THEN S$ = ING$(I)
2210 IF M$ < >"3" THEN 2240
2215 S$ = T1$(I):N = INT( RND(1) *3): IF N = 1 THEN S$ = T2$(I)
2220 IF N = 2 THEN S$ = T3$(I)
2240 PRINT M$;""; SPC( (A$ >" " AND A$ <"0") OR (A$ >"9") AND PEEK(36) < >0);S$;" ";: FOR J = 1 TO 50:S = PEEK(Q +48): NEXT J
2250 GOTO 1820
3000 REM SAVE STORY----------
3010 TEXT : VTAB 1: HTAB 1: PRINT M$: POKE 35,6: HOME : PRINT "GET STORY FROM DISK OR SAVE STORY?";
3020 HTAB 1: FLASH : PRINT "G";: HTAB 24: PRINT "S": NORMAL : PRINT "^";: HTAB 24: PRINT "^"
3025 PRINT : PRINT "PRESS G OR S (OR ESC TO CANCEL)."
3030 K = PEEK(Q): IF K < > ASC("G") +128 AND K < > ASC("S") +128 AND K < >155 THEN 3030
3040 POKE Q +16,0: IF K = 155 THEN 1560
3050 IF K = ASC("G") +128 THEN 4000
3960 HOME : PRINT "NAME OF STORY TO BE SAVED": PRINT : PRINT "TYPE NAME & PRESS .": PRINT : PRINT "( ONLY TO CANCEL.)": VTAB 1: HTAB 26: INPUT P$
3965 IF P$ = "" THEN 1560
3970 HOME : TEXT : VTAB 4: HTAB 20 - INT( LEN(P$))/2: PRINT P$
3980 PRINT "BSAVE ";P$;",A$400,L$400": GOTO 1560
4000 REM GET STORY---------
4005 HOME : ONERR GOTO 4444
4010 PRINT "GET WHICH STORY": PRINT : PRINT "TYPE STORY NAME & PRESS .": PRINT : PRINT "( ONLY FOR CATALOG)": VTAB 1: HTAB 16: INPUT P$
4015 IF P$ = "" THEN TEXT : POKE 34,7: PRINT "CATALOG": TEXT : VTAB 1: POKE 35,6: GOTO 4005
4020 TEXT : PRINT "BLOAD";P$: ONERR GOTO 1060
4030 K = PEEK(Q): IF K <32 THEN 4030
4040 POKE Q +16,0: GOTO 1560
4444 FLASH : TEXT : VTAB 1: HTAB 1: PRINT " ILLEGAL FILE NAME. TRY AGAIN.": NORMAL : FOR I = 1 TO 1500: NEXT : GOTO 1560
8250 REM WAIT AFTER STORY----------------
8300 FOR I = 1 TO 999: NEXT I: VTAB 1: HTAB 35: FLASH : PRINT "RETURN": NORMAL
8320 K = PEEK(Q): IF K < >141 THEN 8320
8325 POKE Q +16,0:X = 1: HOME : GOTO 1060
9100 REM STORY #1--------
9105 A$ = " THE ISLE OF 3/ ": GOSUB 150: PRINT : NORMAL
9110 A$ = "THE ISLE OF 0, RICH IN 2S AND FAMOUS FOR ITS 4 3S, WAS DISCOVERED BY A 1 NAMED HARRY 4. JUST AFTER THE WAR WITH THE "
9112 GOSUB 150
9120 A$ = "1S, HARRY AND A GROUP OF 1S (DISGUISED AS 3S) OCCUPIED THE ISLE OF 0 AND ALMOST 6 IT! THEY "
9122 GOSUB 150
9130 A$ = "FOUND A TRIBE OF 1S AND TRAINED THEM TO 5 3S! TO LEARN MORE, VISIT YOUR LOCAL 2. "
9132 GOSUB 150
9199 GOTO 8300
9200 REM STORY #2--------
9205 A$ = " NEVER TRUST A 1/ ": GOSUB 150: PRINT : NORMAL
9210 A$ = "LADIES AND 1S-- THE 0S ARE EVERYWHERE! 0S IN THE 2, 0S IN THE 2...YOU MAY EVEN CATCH A 4 0 GOING DOOR-TO-DOOR SELLING 3S. DON'T LET HIM IN! GET YOUR 3 OUT OF THE 2 AND 5 HIM! ": GOSUB 150
9220 A$ = "THEN SEND HIM TO THE 2 WHERE HE WON'T 5 AGAIN! ": GOSUB 150
9299 GOTO 8300
9300 REM STORY #3--------
9310 INVERSE :A$ = " REPAIRING YOUR 3/ ": GOSUB 150: PRINT : NORMAL
9320 A$ = "THERE IS NOTHING MORE 4 THAN A BROKEN 0. YOU CAN'T 5 WITH IT, AND 7 IS IMPOSSIBLE! HERE'S WHAT 1S DO TO REPAIR THEIR 0S: ": GOSUB 150: PRINT
9340 A$ = "(A) MAKE SOME GLUE OUT OF 4 3S. (B) PUT YOUR 0 BY A 3 UNTIL IT'S 6 (UNLESS YOU LIVE IN A 2). (C) POUR THE GLUE ON YOUR 0 AND LIGHT IT! ": GOSUB 150
9350 A$ = "(D) GO BUY A NEW 0 FROM A 1 DOWN AT THE LOCAL 2. ": GOSUB 150
9399 GOTO 8300
9400 REM STORY #4--------
9410 INVERSE :A$ = " MISTER 3/ ": GOSUB 150: PRINT : NORMAL
9420 A$ = "KNOWN MOSTLY FOR HIS TIMELY INVENTION OF THE 0, GEORGE 3 ALSO INVENTED THE 3, THE 3, AND THE 4 3! HOW DID HE DO IT? ENDLESS HOURS OF 7 IN HIS 2 AND COMPLETE DISREGARD FOR HIS 3! ": GOSUB 150
9430 A$ = " NO 1 CAN MATCH MR. 0'S 4 DEDICATION. RUMOR HAS IT, HE WAS A LITTLE 4, THOUGH. ": GOSUB 150
9499 GOTO 8300
9500 REM STORY #5--------
9505 A$ = " 7/ YOUR DOG ": GOSUB 150: PRINT : PRINT : NORMAL
9510 A$ = "0 YOUR DOG CAN BE A 4 EXPERIENCE IF DONE CORRECTLY. 0 EXPERTS TELL US THESE 4 RULES: ": GOSUB 150: PRINT : PRINT
9520 A$ = "A. 0 A DOG NEAR A 3 CAN BE 4, ESPECIALLY WITH A 4 DOG! "
9522 GOSUB 150: PRINT
9530 A$ = "B. STAY AWAY FROM 1S WHILE 0; DOGS LOVE TO 5 THEM! "
9532 GOSUB 150: PRINT
9540 A$ = "C. WHEN FINISHED, GIVE YOUR DOG A TASTY 3 OR A 3 TO CHEW ON. HE'LL 5 YOU AND PROVE THAT HE'S MAN'S 4 1! "
9542 GOSUB 150
9599 GOTO 8300
10000 REM VERBS-----
10001 DATA AX,BOOGIE,CALL,DISSECT,ELIMINATE,FUMIGATE,GRIND,HASSLE,INJURE,JUGGLE,KNOCK,LIKE,MURDER
10005 DATA NAIL,OBLITERATE,PEEL,QUIZ,RIP,SLURP,TROUNCE,UNCOVER,VACUUM,WASTE,X-RAY,YANK,ZAP: REM VB$(X)
10009 REM ING VERBS---------
10010 DATA APPLAUDING,BATHING,CARRYING,DEODORIZING,EMPTYING,FIXING,GREASING,HARMING,INKING,JAILING,KICKING,LOSING,MAILING
10015 DATA NOODLING,OILING,PICKLING,QUIETING,RUNNING,SHOEING,TRAINING,UNDRESSING,VIBRATING,WAXING,X-RAYING,YANKING,ZAPPING: REM ING$(X)
10019 REM PAST TENSE VERBS----------------
10020 DATA ALTERED,BURNED,CREMATED,DESTROYED,ENGULFED,FRIED,GORGED,HUMIDIFIED,INFESTED,JOLTED,KISSED,LAMBASTED,MARINATED
10025 DATA NEEDLED,OPENED,POUNDED,QUASHED,RUINED,STORMED,TORE UP,USED,VIOLATED,WASHED,XEROXED,YELLED AT,ZOOMED: REM PST$(X)
10039 REM ADJECTIVES----------
10040 DATA AWFUL,BUMMED OUT,CORNY,DUMB,EMPTY,FRUITY,GOOFY,HOT,INEPT,JUNKY,KINKY,LOOSE,MESSY
10045 DATA NORMAL,OLD,PUNY,QUEER,RADICAL,STICKY,TEENSY,UGLY,VOLUPTUOUS,WEIRD,XERIC,YUCKY,ZANY: REM ADJ$(X)
10049 REM PERSON NOUNS------------
10050 DATA APE,BOOGEYMAN,COP,DUNCE,ELF,FOOL,GOLFER,HIPPIE,IDIOT,JUGGLER,KING,LADY,MEANIE
10055 DATA NURD,OAF,PERVERT,QUACK,RAT,SINGER,TIGHTWAD,UNDERTAKER,VAMPIRE,WEIRDO,XENOPHOBE,YODELER,ZOMBIE: REM PRS$(X)
10059 REM PLACE NOUNS-----------
10060 DATA ATTIC,BATHROOM,CUPBOARD,DUNGEON,ELEVATOR,FACTORY,GOLF COURSE,HOT TUB,IGLOO,JUNGLE,KITCHEN,LUMBER YARD,MOUNTAIN
10065 DATA NEST,OPERA HOUSE,PIANO BAR,QUICKSAND,RUNWAY,SANITARIUM,THEATER,USED CAR LOT,VOLVO,WIGWAM,XEROX MACHINE,YACHT,ZEBRA FARM: REM PLC$(X)
10069 REM THING NOUNS (1)---------------
10070 DATA ANT,BROOMSTICK,COW,DOORKNOB,EDSEL,FENDER,GIANT,HARPOON,INDIAN CLUB,JAR,KITE STRING,LUNCH BUCKET,MARSHMALLOW
10075 DATA NECKTIE,ORANGE PEEL,PRUNE,QUARTER,ROWBOAT,SEWER,TOW TRUCK,UKULELE,VULTURE,WOMBAT,XYLOPHONE,YOKEL,ZITHER: REM T2$(X)
10079 REM THING NOUNS (2)---------------
10080 DATA AWNING,BOW TIE,CRAYON,DINGBAT,ELEPHANT,FOG LIGHT,GARAGE,HAM,IRON,JURY,KITTEN,LADDER,MUFFIN
10085 DATA NIGHTSTAND,OAR,PACKARD,QUAGMIRE,ROOSTER,SNOW CONE,TON OF BRICKS,USED CAR,VIOLIN,WAGON,XEBEC,YAHOO,ZOOT SUIT: REM T3$(X)
10089 REM THING NOUNS (3)---------------
10090 DATA ANIMAL,BARN,CUCKOO,DOUGHNUT,EARLOBE,FERN,GARBAGE,HOSE,ICEBOX,JAZZ BAND,KNEECAP,LEFTOVER,MOTHBALL
10095 DATA NUT,OVEN,POPCORN,QUILT,RADIO,SNAKE,TUTU,UMBRELLA,VALENTINE,WEENY,XYLOPHONE,YOYO,ZIPPER: REM T1$(X)
20000 DIM VB$(26),ING$(26),PST$(26),PLC$(26),T1$(26),PRS$(26),ADJ$(26),T2$(26),T3$(26),A(182),X$(26)
20010 FOR I = 1 TO 26: READ VB$(I): NEXT : PRINT "]": FOR I = 1 TO 26: READ ING$(I): NEXT : PRINT "]": FOR I = 1 TO 26: READ PST$(I): NEXT : PRINT "]": FOR I = 1 TO 26: READ ADJ$(I): NEXT : PRINT "]"
20030 FOR I = 1 TO 26: READ PRS$(I): NEXT I: PRINT "]": FOR I = 1 TO 26: READ PLC$(I): NEXT I: PRINT "]": FOR I = 1 TO 26: READ T1$(I): NEXT I: PRINT "]": FOR I = 1 TO 26: READ T2$(I): NEXT : PRINT "]": FOR I = 1 TO 26: READ T3$(I): NEXT
20040 Q = -16384: RETURN
22222 FOR X = 1 TO 26: PRINT VB$(X): PRINT ING$(X): PRINT PST$(X): PRINT PLC$(X): PRINT PRS$(X): PRINT ADJ$(X): PRINT T1$(X): PRINT T2$(X): PRINT T3$(X): PRINT : NEXT : END
63900 TEXT : HOME : NORMAL : VTAB 10: HTAB 5: PRINT "BEAGLE BAG": HTAB 5: PRINT "------------------"
63910 VTAB 12: PRINT " MENU": PRINT " CONTINUE THIS GAME": PRINT " QUIT": HTAB 5: PRINT "------------------": PRINT " SELECT:";: GET A$: PRINT A$: IF A$ = "Q" THEN END
63920 IF A$ = "M" THEN POKE 768,17: PRINT CHR$(4);"RUN SHORT MENU"
63930 IF A$ = "C" THEN RUN
63940 GOTO 63900

Text found in 093a_Beagle_Bag.dsk/CROSS WORD.bas:

5 ST = 0
10 TEXT : HOME : NORMAL : ONERR GOTO 63900
20 TURN = 0: PRINT "----------------------------------------";: INVERSE : PRINT " LET'S PLAY CROSS WORD! ";: NORMAL : PRINT "---------------------------------------- (A LESSON IN USER-FRIENDLY SOFTWARE)": PRINT
50 FOR TURN = 1 TO 9: PRINT "PRESS ANY KEY: ";: FLASH : PRINT " ";: NORMAL
60 K = PEEK( -16384): IF K <160 THEN 60
65 POKE -16368,0
68 IF NOT ST THEN ST = 1:X = 1: GOSUB 501: GOTO 80
70 X = INT( RND(1) *12) +1: ON X GOSUB 501,502,503,504,505,506,507,508,509,510,511,512
75 KEY$ = CHR$(K -128): IF KEY$ = " " THEN KEY$ = "SPACE"
80 KEY$ = CHR$(34) +KEY$ + CHR$(34)
84 IF X = 10 THEN A$ = " " +KEY$ +" IS A DUMB KEY! "
85 INVERSE : PRINT A$
90 NORMAL : IF LEFT$(A$,4) < >" NOT" THEN 100
95 HTAB 21: PRINT "----";
100 PRINT : FOR I = 1 TO 55:S = PEEK( -16336): NEXT I,TURN
110 PRINT "WANNA PLAY AGAIN? (Y/N):";: POKE -16368,0: GET A$: PRINT A$
125 POKE -16368,0
130 IF A$ = "N" THEN 160
135 IF A$ < >"Y" THEN 150
140 PRINT : PRINT "DON'T RUSH ME!": HTAB 7: PRINT "----": FOR I = 1 TO 999: NEXT I: PRINT : PRINT : PRINT : GOTO 20
150 PRINT : PRINT "I SAID Y OR N!! ";: FLASH : PRINT "CAN'T YOU READ??": NORMAL : HTAB 8: PRINT "- -": GOTO 110
160 FOR I = 1 TO 23: POKE -16304,0: FOR J = 1 TO 9: NEXT J: TEXT : FOR J = 1 TO 5:S = PEEK( -16336): NEXT J,I
170 PRINT : PRINT "OH, YEAH!?": HTAB 5: PRINT "----": FOR I = 1 TO 2000: NEXT : GOTO 63900
500 REM CROSS WORDS-----------
501 A$ = " NOT THAT KEY, BOZO! ": RETURN
502 A$ = " WHO CARES! ": RETURN
503 A$ = " NUTS! ": RETURN
504 A$ = " SO WHAT! ": RETURN
505 A$ = " DARN! ": RETURN
506 A$ = " HECK! ": RETURN
507 A$ = " FOOEY! ": RETURN
508 A$ = " SO'S YOUR OLD MAN! ": RETURN
509 A$ = " RATS! ": RETURN
510 A$ = " BALDERDASH! ": RETURN
511 A$ = " YOU TURKEY! ": RETURN
512 A$ = " GET OUTTA HERE! ": RETURN
63900 VTAB 24: PRINT : PRINT : PRINT : PRINT "CROSS WORD, (C) 1982 VISI-GRUMP SOFTWARE": HTAB 5: PRINT "BEAGLE BAG": HTAB 5: PRINT "------------------"
63910 PRINT " MENU": PRINT " CONTINUE THIS GAME": PRINT " QUIT": HTAB 5: PRINT "------------------": PRINT " SELECT:";: GET A$: PRINT A$: IF A$ = "Q" THEN END
63920 IF A$ = "M" THEN PRINT CHR$(4);"RUN SHORT MENU"
63930 IF A$ = "C" THEN 10
63940 GOTO 63900

Text found in 093a_Beagle_Bag.dsk/DATE SEARCH.bas:

10 TEXT : HOME :G$ = CHR$(7): PRINT "THIS PROGRAM WILL CALCULATE THE NUMBER OF DAYS BETWEEN TWO DATES (1801-2099).": PRINT : ONERR GOTO 63900
20 FOR T = 1 TO 2:V = 3 +8 *(T = 2): VTAB V: GOSUB 140: INVERSE : PRINT " ENTER DATE #";T;" ": NORMAL : GOSUB 100: NEXT : VTAB V +8: GOSUB 140
90 DD = ABS(DD(2) -DD(1)): VTAB 20: HTAB 1: NORMAL : PRINT "TIME SPAN: " INT((100 *(DD +.5))/365.244966)/100" YEARS, OR "DD" DAYS.": VTAB 21: GOSUB 140
95 NORMAL : VTAB 23: HTAB 1: CALL -958: PRINT "HIT TO TRY AGAIN:": PRINT " OR TO QUIT.";: VTAB 23: HTAB 27: GET A$: PRINT A$: IF A$ = CHR$(13) THEN RUN
96 IF A$ = "Q" THEN 63900
99 GOTO 95:
100 RESTORE : FOR I = 1 TO 12: READ MO$,LE$: VTAB I +18 -6 *(I >6): HTAB 1 +12 *(I >6) -(I >9): PRINT I;" ";MO$;: NEXT
102 VTAB 3 +V: HTAB 1: CALL -868: PRINT "__<-MONTH (1-12)";: HTAB 1: INPUT "";MO$:MO(T) = VAL(MO$): IF MO(T) <1 OR MO(T) >12 THEN PRINT G$;: GOTO 100
105 RESTORE : FOR I = 1 TO MO(T): READ MO$,LE$: NEXT : VTAB 3 +V: HTAB 1: CALL -958: PRINT MO$;:HT = POS(0) +2: IF MO(T) = 2 THEN LE$ = "29": DATA JANUARY,31,FEBRUARY,28,MARCH,31,APRIL,30,MAY,31,JUNE,30,JULY,31,AUGUST,31,SEPTEMBER,30,OCTOBER,31,NOVEMBER,30,DECEMBER,31
110 VTAB 3 +V: HTAB HT: CALL -868: PRINT "__<-DAY (1-";LE$;")";: HTAB HT: INPUT "";DA$:DA(T) = VAL(DA$): IF DA(T) <1 OR DA(T) > VAL(LE$) THEN PRINT G$;: GOTO 100
115 VTAB 3 +V: HTAB HT: PRINT DA(T);",";:HT = POS(0) +2
120 VTAB 3 +V: HTAB HT: CALL -868: PRINT "____<-YEAR (1801-2099)";: HTAB HT: INPUT "";YR$: IF LEN(YR$) = 2 THEN YR$ = "19" +YR$
121 VTAB 3 +V: HTAB HT: PRINT YR$;: CALL -958: PRINT :YR(T) = VAL(YR$): IF YR(T) <1801 OR YR(T) >2099 THEN PRINT G$;: GOTO 100
122 LP(T) = 0: IF (YR(T) - INT(YR(T)/4) *4 = 0) AND (YR(T) < >1800 AND YR(T) < >1900) THEN LP(T) = 1
123 IF MO(T) = 2 AND NOT LP(T) THEN LE$ = "28"
125 IF MO(T) = 2 AND DA(T) = 29 AND LP(T) = 0 THEN PRINT G$;: GOTO 100
127 DY(T) = DA(T): IF MO(T) >1 THEN RESTORE : FOR I = 1 TO MO(T) -1: READ A$,LE:DY(T) = DY(T) +LE: NEXT
128 IF LP(T) = 1 AND MO(T) >2 THEN DY(T) = DY(T) +1
130 SPEED= 255:Y1 = 1801:D1 = 1:L1 = 0:Y2 = YR(T):D2 = DY(T): GOSUB 5000:DD(T) = DD: RESTORE : FOR I = 1 TO 24: READ A$: NEXT : FOR I = 1 TO 1 +DD - INT(DD/7) *7: READ DA$: NEXT : VTAB V +4: PRINT " ";DA$: DATA THURSDAY,FRIDAY,SATURDAY,SUNDAY,MONDAY,TUESDAY,WEDNESDAY
132 PRINT " DAY OF YEAR: ";DY(T): IF LP(T) THEN PRINT " (LEAP YEAR)"
133 GOSUB 6000
135 RETURN
140 NORMAL : HTAB 1: FOR I = 1 TO 40: PRINT "-";: NEXT : RETURN :
5000 NORMAL : IF Y1 = Y2 THEN DD = D2 -D1: RETURN
5055 DD = D2 +365 +L1 -D1: IF Y2 = Y1 +1 THEN RETURN
5060 DD = DD +365 *(Y2 -Y1 -1): FOR I = Y1 +1 TO Y2 -1: IF (I - INT(I/4) *4 >0) OR I = 1900 THEN NEXT
5062 YR = I: FOR I = YR TO Y2 -1 STEP 4: IF I < >1900 THEN DD = DD +1
5063 NEXT : RETURN :
6000 VTAB V +1: HTAB 1: PRINT "DATE #";T;":";: CALL -868: HTAB 21: PRINT MO$;" ";YR(T):DW = DD -DA(T) +1:D1 = DW - INT(DW/7) *7:D1 = D1 +5:D1 = D1 -7 *(D1 >7):HT = D1 *3 +18: VTAB 2 +V:DA = 1
6010 HTAB HT: POKE 50,63 +192 *(DA < >DA(T)): PRINT SPC( DA <10);DA;:DA = DA +1:HT = HT +3 -21 *(HT = 39): IF DA < VAL(LE$) +1 THEN 6010
6030 RETURN
63900 NORMAL : HOME : VTAB 10: HTAB 5: PRINT "BEAGLE BAG": HTAB 5: PRINT "------------------"
63910 VTAB 12: PRINT " MENU": PRINT " CONTINUE THIS GAME": PRINT " QUIT": HTAB 5: PRINT "------------------": PRINT " SELECT:";: GET A$: PRINT A$: IF A$ = "Q" THEN END
63920 IF A$ = "M" THEN POKE 768,16: PRINT CHR$(4);"RUN SHORT MENU"
63930 IF A$ = "C" THEN RUN
63940 GOTO 63900

Text found in 093a_Beagle_Bag.dsk/DOWNWARD WIPE!.bas:

200 T$ = "THAT'S ALL FOLKS!"
290 EN = PEEK(175) +256 * PEEK(176):SC = EN -130:SU = EN -225: POKE 10,4: POKE 11,0
300 READ AD: IF NOT AD THEN 400
310 READ RA:RA = EN -RA:AD = EN -AD: POKE AD,RA - INT(RA/256) *256: POKE AD +1, INT(RA/256): GOTO 300
320 DATA 31,24,74,34,101,32,123,32,132,34,172,34,199,32,221,32,0
400 VTAB (1): FLASH : PRINT T$: FOR I = 1 TO 25: CALL SC: FOR J = 1 TO 30: NEXT : NEXT : VTAB (22): NORMAL : PRINT T$

Text found in 093a_Beagle_Bag.dsk/ELEVATORS.bas:

57 REM ================ELEVATORSBY BERT KERSEYCOPYRIGHT C) 1980BEAGLE BROS=================
100 Y = 39:Z = ASC("Q") +128:W = ASC("W") +128:E = ASC("E") +128:R = ASC("R") +128:A = ASC("A") +128:S = ASC("S") +128:D = ASC("D") +128:F = ASC("F") +128: ONERR GOTO 63900
110 GOSUB 32000: GOTO 2000
190 POKE 0,P
200 POKE 1,L
210 CALL MU
215 FOR I = 1 TO 9: NEXT I
220 RETURN
230 REM === MOVE LOOP ====
240 FOR X = 1 TO ELNO
260 K = PEEK(Q): IF K = 176 +X THEN MOVE(X) = -3: GOTO 290
262 ON X GOTO 265,270,275,280
265 IF K = Z THEN MOVE(X) = 0: GOTO 290
266 IF K = (A) THEN MOVE(X) = 3
267 GOTO 290
270 IF K = W THEN MOVE(X) = 0: GOTO 290
271 IF K = S THEN MOVE(X) = 3
272 GOTO 290
275 IF K = E THEN MOVE(X) = 0: GOTO 290
276 IF K = D THEN MOVE(X) = 3
277 GOTO 290
280 IF K = R THEN MOVE(X) = 0: GOTO 290
281 IF K = F THEN MOVE(X) = 3
290 Y = YPSN(X) +MOVE(X): IF Y <40 AND Y >5 THEN YPSN(X) = Y: REM NEW VERTICAL CAR POSITION.
300 IF MOVE(X) = 0 AND CARCLR(X) < >15 AND LITECLR(Y -MOVE(X)) = 15 THEN POKE Q +16,0:YPSN(X) = Y -MOVE(X):CARCLR(X) = 15:LITECLR(Y) = BLDG: COLOR= BLDG: VLIN Y -1,Y AT 14: VLIN Y -1,Y AT 17: VLIN Y -1,Y AT 20: PRINT "";
320 IF Y = 6 THEN MOVE(X) = 3
325 COLOR= 0: VLIN 4,39 AT 3 *X +9: VLIN 4,39 AT 3 *X +10: COLOR= CARCLR(X): VLIN YPSN(X) -2,YPSN(X) AT 3 *X +9: VLIN YPSN(X) -2,YPSN(X) AT 3 *X +10: REM DRAW NEW CAR
330 IF YPSN(X) = 39 AND CARCLR(X) = 15 THEN PAS(X) = PAS(X) +1: VTAB 24: HTAB 3 *X +10: PRINT SPC( PAS(X) <10);PAS(X);:PAS = PAS +1:CARCLR(X) = 9:N = PAS:XNUM = 6:NCLR = 15: GOSUB 390
370 NEXT : IF K = 160 THEN GOSUB 2210
371 REM === CLOCK ===
372 O = M:M = M +ELNO/16: IF INT(O) = INT(M) THEN 240
375 FLR = 3 * INT( RND(1) *11) +6: IF LITECLR(FLR) = BLDG THEN LITECLR(FLR) = 15: COLOR= 15: VLIN FLR -1,FLR AT 14: VLIN FLR -1,FLR AT 17: VLIN FLR -1,FLR AT 20: REM FLOORLIGHTS
377 N = M:NCLR = 0:XNUM = 36: GOSUB 390: IF M >29 THEN 2270
378 GOTO 240
380 REM ====NUMBERS====
390 H = 1
391 POKE 0,9 *NCLR +25
392 POKE 1,9
393 CALL MU
395 COLOR= NCLR: VLIN YNUM,YNUM +6 AT XNUM: VLIN YNUM,YNUM +6 AT XNUM +1: VLIN YNUM,YNUM +6 AT XNUM +2: COLOR= SKY:J = N - INT(N/10) *10: ON J +1 GOTO 400,410,420,430,440,450,460,470,480,490
400 VLIN YNUM +2,YNUM +4 AT XNUM +1: IF H = 0 THEN RETURN
405 XNUM = XNUM -4:N = N/10:H = 0: GOTO 391
410 VLIN YNUM +2,YNUM +4 AT XNUM: VLIN YNUM,YNUM +4 AT XNUM +2: RETURN
420 HLIN XNUM,XNUM +1 AT YNUM +2: HLIN XNUM +1,XNUM +2 AT YNUM +4: RETURN
430 HLIN XNUM,XNUM +1 AT YNUM +2: HLIN XNUM,XNUM +1 AT YNUM +4: RETURN
440 VLIN YNUM,YNUM +2 AT XNUM +1: VLIN YNUM +4,YNUM +6 AT XNUM: VLIN YNUM +4,YNUM +6 AT XNUM +1: RETURN
450 HLIN XNUM +1,XNUM +2 AT YNUM +2: HLIN XNUM,XNUM +1 AT YNUM +4: RETURN
460 HLIN XNUM +1,XNUM +2 AT YNUM +2: PLOT XNUM +1,YNUM +4: RETURN
470 VLIN YNUM +2,YNUM +6 AT XNUM: VLIN YNUM +2,YNUM +6 AT XNUM +1: RETURN
480 PLOT XNUM +1,YNUM +2: PLOT XNUM +1,YNUM +4: RETURN
490 PLOT XNUM +1,YNUM +2: HLIN XNUM,XNUM +1 AT YNUM +4: RETURN
2000 REM ==== SET-UP GAME ====
2010 GR
2020 IF PAS >BEST THEN BEST = PAS
2025 M = 0:PAS = 0:ELNO = 4
2030 COLOR= SKY: FOR I = 0 TO 39: HLIN 0,9 AT I: HLIN 25,39 AT I: NEXT I: HLIN 0,39 AT 0: HLIN 0,39 AT 1
2040 COLOR= 15: HLIN 12,22 AT 37: HLIN 12,22 AT 38: HLIN 12,22 AT 39
2050 COLOR= 0: FOR I = 12 TO 22: VLIN 4,36 AT I: NEXT I
2060 COLOR= BLDG: FOR I = 11 TO 23 STEP 3: VLIN 4,39 AT I: NEXT I: HLIN 10,24 AT 2: HLIN 10,24 AT 3: VLIN 4,39 AT 10: VLIN 4,39 AT 24: HLIN 0,10 AT 39: HLIN 23,39 AT 39
2062 NCLR = 0:XNUM = 26:N = 5: GOSUB 390:XNUM = 36:N = 0: GOSUB 390:XNUM = 6:N = 0:NCLR = 15: GOSUB 390
2063 COLOR= 0: VLIN YNUM +1,YNUM +2 AT 30: VLIN YNUM +5,YNUM +6 AT 30
2070 HOME : IF FLAG THEN 2100
2080 PRINT ":::::::::::: 1 2 3 4 ::::::::::::::::";
2090 PRINT " USING 1-4 ELEVATORS, HOW MANY CARLOADS OF PASSENGERS CAN YOU DELIVER BETWEEN 5 AND 5:30? ";
2100 FOR X = 0 TO 39:LITECLR(X) = BLDG: NEXT
2105 FOR X = 1 TO 4:PAS(X) = 0:MOVE(X) = 0:YPSN(X) = 39:LITECLR(X) = BLDG:CARCLR(X) = 9: NEXT : IF FLAG THEN 2130
2110 PRINT "(HIT ";: FLASH : PRINT "RETURN";: NORMAL : PRINT " TO START.)";
2120 K = PEEK(Q): IF K < >141 THEN 2120
2125 REM === START GAME ====
2130 POKE Q +16,0: HOME
2168 INVERSE : VTAB 21: HTAB 13: PRINT " 1";: HTAB 16: PRINT " 2";: HTAB 19: PRINT " 3";: HTAB 22: PRINT " 4"
2170 HTAB 13: PRINT " Q";: HTAB 16: PRINT " W";: HTAB 19: PRINT " E";: HTAB 22: PRINT " R"
2175 HTAB 13: PRINT " A";: HTAB 16: PRINT " S";: HTAB 19: PRINT " D";: HTAB 22: PRINT " F": HTAB 27: PRINT "SPACE";
2188 NORMAL : VTAB 21: HTAB 1: PRINT " UP>";: HTAB 27: PRINT "DEADLINE 5:30"
2190 PRINT "STOP & LOAD>";: HTAB 27: PRINT "BEST TODAY:";BEST: HTAB 1: PRINT " DOWN>";: HTAB 27: PRINT "-------------"
2192 PRINT " TOTALS: 0 0 0 0";: HTAB 32: PRINT "=NO.CARS";
2195 COLOR= 9: FOR X = 12 TO 21 STEP 3: VLIN 37,39 AT X: VLIN 37,39 AT X +1: NEXT
2200 P = 99:L = 200: GOSUB 190: GOTO 230
2205 REM ===# ELVTRS.WORKING===
2210 POKE Q +16,0:ELNO = ELNO +1: IF ELNO >4 THEN ELNO = 1
2220 POKE 50,63 +192 *(ELNO <2): VTAB 21: HTAB 16: PRINT " 2": HTAB 16: PRINT " W": HTAB 16: PRINT " S"
2230 POKE 50,63 +192 *(ELNO <3): VTAB 21: HTAB 19: PRINT " 3": HTAB 19: PRINT " E": HTAB 19: PRINT " D"
2240 POKE 50,63 +192 *(ELNO <4): VTAB 21: HTAB 22: PRINT " 4": HTAB 22: PRINT " R": HTAB 22: PRINT " F"
2250 POKE Q +16,0: NORMAL : RETURN
2260 REM ==== END GAME ====
2270 POKE Q +16,0
2280 FOR H = 1 TO 4:P = 99:L = 11: GOSUB 190: FOR J = 1 TO 15: NEXT J,H:L = 200: GOSUB 190
2285 FOR I = 1 TO 99: NEXT I
2287 FOR I = 21 TO 23: VTAB I: HTAB 1: CALL -868: NEXT : VTAB 24: PRINT " TOTALS:";: HTAB 24: PRINT " ";
2290 INVERSE : VTAB 21: HTAB 27: PRINT " TIME'S UP!! ";
2291 NORMAL : IF PAS > = BEST THEN VTAB 22: HTAB 1: FLASH : PRINT "BEST SCORE TODAY!";: FOR J = 1 TO 18:P = INT( RND(1) *200) +30:L = 20: GOSUB 190: NEXT :L = 150: GOSUB 190: NORMAL : HTAB 1: PRINT "BEST SCORE TODAY!"
2292 IF PAS 3 THEN A$ = "(SNAIL)"
2370 IF PAS >5 THEN A$ = "(SLOWPOKE)"
2375 IF PAS >7 THEN A$ = "(HO HUM)"
2380 IF PAS >9 THEN A$ = "(SO-SO)"
2382 IF PAS >11 THEN A$ = "(NOT BAD)"
2390 IF PAS >13 THEN A$ = "(PRETTY GOOD)"
2395 IF PAS >15 THEN A$ = "(VERY GOOD!)"
2400 IF PAS >17 THEN A$ = "(EXCELLENT!)"
2402 IF PAS >19 THEN A$ = "(FANTASTIC!)"
2404 IF PAS >21 THEN A$ = "(HOLY MACKEREL!)"
2406 IF PAS >23 THEN A$ = "(AMAZING!!!)"
2408 IF PAS >25 THEN A$ = "(UNBELIEVABLE!)"
2410 IF PAS >27 THEN A$ = "(IMPOSSIBLE!)"
2412 IF PAS >29 THEN A$ = "(HOW'D YOU DO THAT?)"
2414 IF PAS >31 THEN A$ = "QUIT READING THE LISTING AND PLAY THE GAME!"
2430 FOR I = 1 TO 500: NEXT I
2440 VTAB 21: HTAB 1: INVERSE : PRINT A$: NORMAL
2450 P = 30:L = 100: GOSUB 190
2460 K = PEEK(Q): IF K < >141 THEN 2460
2470 POKE Q +16,0:FLAG = 1:SKY = 2: GOTO 2020
31000 REM === PARAMETERS ===
32000 POKE 771,173: POKE 772,48: POKE 773,192: POKE 774,136: POKE 775,208: POKE 776,4: POKE 777,198: POKE 778,1: POKE 779,240: POKE 780,8: POKE 781,202: POKE 782,208: POKE 783,246: POKE 784,166: POKE 785,0: POKE 786,76: POKE 787,3: POKE 788,3: POKE 789,96
32762 DIM YPSN(39),LITECLR(39),PAS(20):SKY = 2:BLDG = 5:NCLR = 0:XNUM = 9:YNUM = 31:Q = -16384:MU = 771: RETURN
63900 HOME : NORMAL
63910 VTAB 22: PRINT " MENU, CONTINUE GAME, QUIT": PRINT : PRINT " SELECT:";: GET A$: PRINT A$: HOME : VTAB 21: IF A$ = "Q" THEN END
63920 IF A$ = "M" THEN POKE 768,15: PRINT CHR$(4);"RUN SHORT MENU"
63930 IF A$ = "C" THEN RUN
63940 GOTO 63900

Text found in 093a_Beagle_Bag.dsk/FILENAME SWAP.bas:

100 REM ============================CATALOG FILE SWAPPER EXCHANGES ANY TWO FILENAMES IN A CATALOGI HOPE IT WORKS...============================
110 REM BY BERT KERSEYBEAGLE BROS
120 TEXT : HOME : INVERSE : PRINT " ": PRINT " FILENAME SWAP ": PRINT " ": NORMAL
125 PRINT : PRINT "THIS PROGRAM WILL EXCHANGE THE POSITIONSOF ANY TWO FILE NAMES IN YOUR CATALOG.": PRINT : PRINT "INSERT DISK AND PRESS ";: GET A$: PRINT A$: IF A$ < > CHR$(13) THEN END
135 TEXT : HOME : PRINT CHR$(4);"CATALOG": PRINT
140 TRK = 17:RW = 1:LOC = 8192: REM $2000
150 POKE 768,32: POKE 769,227: POKE 770,3: POKE 771,76: POKE 772,217: POKE 773,3
160 POKE 47084,TRK: POKE 47083,0: POKE 47091,0: POKE 47092,RW
170 PRINT "THIS PROGRAM WILL SWAP ANY TWO": PRINT "FILE NAMES IN YOUR CATALOG."
180 FOR SEC = 1 TO 15:LOC = LOC +256: POKE 47085,SEC: POKE 47088,LOC - INT(LOC/256) *256: POKE 47089, INT(LOC/256): CALL 768: NEXT : REM READ^SECTORS^1-15
190 FOR F = 1 TO 2: PRINT : PRINT "FILE NAME #";F;: INPUT ":";FI$(F)
200 FOR I = 1 TO 30:FI$(F) = FI$(F) +" ": NEXT : REM ADD^TRAILING^SPACES
210 A$ = "": FOR X = 1 TO 30:A$ = A$ + CHR$( ASC( MID$ (FI$(F),X,1)) +128): NEXT :FI$(F) = A$: NEXT F: REM ADD^128^TO^EACH^CHARACTER'S^ASCII^VALUE
220 FOR F = 1 TO 2: PRINT : PRINT "SEARCHING SECTOR:";
230 FOR SEC = 15 TO 1 STEP -1: PRINT SEC;",";:LOC = 8192 +256 *SEC
240 FOR X = LOC +14 TO LOC +224 STEP 35: IF CHR$( PEEK(X)) < > LEFT$(FI$(F),1) THEN 260: REM LOOK^AT^1ST^CHARACTER
250 FOR Y = X +1 TO X +29: IF CHR$( PEEK(Y)) = MID$ (FI$(F),Y -X +1,1) THEN NEXT : GOTO 280: REM FILE^FOUND
260 NEXT X
270 NEXT SEC: PRINT : PRINT "FILE #";F;" NOT FOUND"; CHR$(7): PRINT : GOTO 190
280 PRINT : PRINT "FILE #";F;" FOUND IN SECTOR ";SEC:SEC(F) = SEC:LOC(F) = Y -33
290 NEXT F: PRINT
300 LOC = 24576: FOR X = 0 TO 34: POKE LOC +X, PEEK(LOC(1) +X): POKE LOC(1) +X, PEEK(LOC(2) +X): POKE LOC(2) +X, PEEK(LOC +X): NEXT : REM SWAP^FILENAMES
305 PRINT : PRINT : PRINT "HERE GOES...": FOR I = 1 TO 999: NEXT
310 RW = 2: POKE 47092,RW: FOR F = 1 TO 2: POKE 47085,SEC(F): POKE 47089, INT((8192 +SEC(F) *256)/256): CALL 768: NEXT : REM WRITE^SECTORS^TO^DISK
320 PRINT CHR$(4);"CATALOG"

Text found in 093a_Beagle_Bag.dsk/GAS CRUNCH.bas:

30 REM GAS CRUNCHBY BERT KERSEYBEAGLE BROS
32 Q = -16384:QQ = -16368:U = -16336:G$ = CHR$(7): ONERR GOTO 63900
1010 N = 18
1015 HOME : INVERSE : VTAB 21: PRINT SPC( 40): VTAB 21: HTAB 16: PRINT "GAS CRUNCH": GOSUB 1225: NORMAL
1020 VTAB 22: PRINT "TAKE THE LAST CAN OF GAS, AND YOU LOSE!"
1021 REM FLIP
1022 PRINT " ---- --- --- ----": PRINT "FLIP FOR FIRST: HEADS OR TAILS (H/T):";: GET A$: PRINT A$: IF A$ = CHR$(3) OR A$ = CHR$(27) THEN ERR
1030 IF A$ < >"H" AND A$ < >"T" THEN RUN
1032 POKE QQ,0
1035 HOME : PRINT " FLIP-->";: FOR I = 1 TO 300: NEXT :J = INT( RND(1) *2)
1040 FOR I = 1 TO 60: PRINT ":";: FOR II = 1 TO 3:S = PEEK(U): NEXT : NEXT
1045 INVERSE : IF J = 0 THEN PRINT " HEADS ";
1046 IF J = 1 THEN PRINT " TAILS ";
1047 NORMAL : PRINT G$
1050 FOR I = 1 TO 999: NEXT
1055 IF (J = 1 AND A$ = "T") OR (J = 0 AND A$ = "H") THEN 1065
1057 PRINT "I WIN THE FLIP-- I GO FIRST..."
1060 GOTO 1125
1065 PRINT "YOU WIN THE FLIP--YOU GO FIRST..."
1070 FOR I = 1 TO 999: NEXT
1075 REM GET NUMBER
1080 HOME : PRINT "THE OBJECT IS TO NOT TAKE THE LAST CAN.": HTAB 18: PRINT "--- ---- ---"
1085 PRINT N;" LEFT. DO YOU TAKE 1, 2 OR 3 GAS CANS"
1090 COLOR= 15: PLOT 39,44: COLOR= 7: PLOT 39,45
1095 K = PEEK(Q): IF K <176 OR K >185 THEN 1095
1096 POKE QQ,0
1100 K = K -176: IF K >0 AND K <4 THEN 1115
1105 HOME : PRINT " NO WAY! YOU'VE GOTTA PUSH 1, 2 OR 3... - - -": GOTO 1085
1115 GOSUB 1157: HOME : PRINT " YOU REMOVED ";CARD$: GOSUB 1190
1120 REM APPLE'S TURN
1125 IF N = 1 THEN 1180
1127 IF N >16 OR N = 13 OR N = 9 OR N = 5 THEN 1135
1130 K = N -1 - INT((N -1)/4) *4: GOTO 1140
1135 K = 1
1140 GOSUB 1157: FOR I = 1 TO 999: NEXT
1145 PRINT : PRINT " MY TURN: I REMOVE ";CARD$: IF N <11 THEN 1148
1146 FOR I = 1 TO 800: NEXT
1148 GOSUB 1190
1150 IF N = 1 THEN 1165
1152 GOTO 1080
1155 GOTO 1090
1157 CARD$ = "ONE GAS CAN.": IF K = 2 THEN CARD$ = "TWO GAS CANS."
1158 IF K = 3 THEN CARD$ = "THREE GAS CANS."
1159 RETURN
1160 REM END
1165 HOME : PRINT " YOU GET THE LAST CAN-- YOU LOSE!": HTAB 27: PRINT "--- ----"
1170 FOR I = 1 TO 999: NEXT : GOTO 63900
1180 HOME : PRINT " RATS! YOU WON (#%&@!)! WHAT LUCK!": HTAB 8: PRINT "--- ---": GOTO 1170
1185 REM REMOVE CANS
1190 COLOR= 0
1195 FOR I = 1 TO K
1200 IF N <7 AND N >0 THEN YY = 28
1201 IF N <13 AND N >6 THEN YY = 14
1202 IF N >12 THEN YY = 0
1205 FOR J = 3 +(N - INT(N/6) *6) *6 TO 7 +(N - INT(N/6) *6) *6
1210 VLIN YY,YY +10 AT J: FOR X = 1 TO 3
1215 S = PEEK(U) + PEEK(U) - PEEK(U) - PEEK(U): NEXT : NEXT :N = N -1: NEXT : RETURN
1220 REM SET-UP CANS
1225 GR
1230 COLOR= 15: HLIN 0,39 AT 11: HLIN 0,39 AT 39: HLIN 0,39 AT 25: VLIN 0,39 AT 0: VLIN 0,39 AT 39
1235 FOR I = 0 TO 28 STEP 14: FOR J = 3 TO 33 STEP 6
1245 COLOR= 5: HLIN J +1,J +3 AT I: PLOT J +1,I +1: PLOT J +3,I +1
1250 COLOR= 9: FOR II = J TO J +4: VLIN I +2,I +10 AT II: NEXT
1255 COLOR= 13: HLIN J,J +1 AT I +4: HLIN J,J +3 AT I +5: HLIN J,J +4 AT I +6: HLIN J +1,J +4 AT I +7: HLIN J +3,J +4 AT I +8
1260 FOR II = 1 TO 25: NEXT : FOR II = 1 TO 4:S = PEEK(U): NEXT : NEXT : NEXT : RETURN
63900 NORMAL : VTAB 22: HTAB 1: CALL -958: PRINT : PRINT " MENU, CONTINUE GAME, QUIT SELECT:";: GET A$: PRINT A$: IF A$ = "C" THEN RUN
63910 IF A$ = "M" THEN POKE 768,14: PRINT CHR$(4);"RUN SHORT MENU"
63920 IF A$ = "Q" THEN VTAB 22: HTAB 1: CALL -958: END
63930 GOTO 63900

Text found in 093a_Beagle_Bag.dsk/HANG PERSON.bas:

90 REM HANG PERSONBY BERT KERSEYBEAGLE BROS
100 GOSUB 2580: ONERR GOTO 63900
105 FOR I = 1 TO 150: READ X$(I): NEXT
110 FOR I = 1 TO 150:N(I) = 0: NEXT
130 TEXT : HOME : VTAB 5: PRINT "H A N G ";: GOSUB 2540: PRINT " P E R S O N !": PRINT "- - - - - - - - - -": PRINT : GOSUB 2540
140 PRINT "HIT ONLY";: INVERSE : HTAB 6: PRINT "RETURN": NORMAL : PRINT " TO PLAY AGAINST": PRINT " THE COMPUTER, OR...": PRINT : PRINT
150 GOSUB 2540: FOR I = 1 TO 400: NEXT
160 FOR I = 1 TO 150: IF N(I) = 0 THEN 170
162 NEXT : GOTO 110
170 VTAB 12
180 PRINT "TYPE YOUR SECRET WORD(S): ______________ THEN HIT .": PRINT : GOSUB 2540
190 VTAB 20: PRINT "TYPE LETTERS + SPACES ONLY, 14 MAXIMUM. ": GOSUB 2540: PRINT " S TURNS MUSIC ON.";: IF MU = 771 THEN PRINT "OFF.";
192 PRINT : PRINT " Q QUITS GAME."
195 VTAB 12: HTAB 27: POKE QQ,0: INPUT "";W$
196 IF W$ = "S" THEN MU = MU +(MU = 770) -(MU = 771): GOTO 130
197 IF W$ = "Q" THEN 63900
200 IF NOT LEN(W$) THEN GOSUB 9000
210 FOR I = 1 TO LEN(W$):J = ASC( MID$ (W$,I,1)): IF (J < ASC("A") AND J < >32) OR (J > ASC("Z")) THEN 130
212 NEXT
220 IF LEN(W$) >14 THEN 130
222 HOME : GR
230 REM START GAME
240 VTAB 21: PRINT "SECRET WORD:": PRINT : PRINT "TYPE A LETTER."
260 X = 18:Z = 12
270 FOR J = 1 TO LEN(W$):A(J) = 0: IF MID$ (W$,J,1) = " " THEN A(J) = 1: IF MID$ (W$,J,1) = " " THEN P = P +1
272 NEXT
280 GOSUB 700
290 FOR J = 1 TO LEN(W$): VTAB 22: HTAB X -7 +2 *J: PRINT "-";: GOSUB 2540: NEXT
300 FOR J = 1 TO LEN(W$): IF MID$ (W$,J,1) < >" " THEN 320
310 VTAB 22: HTAB (2 *J) -7 +X: PRINT " "
320 NEXT
330 L = 0
340 REM WORD FINISHED?
350 FOR J = 1 TO LEN(W$): IF A(J) < >1 THEN 460
352 NEXT
360 REM WORD FINISHED
370 VTAB 24: HTAB 1: CALL -868: HTAB 1: INVERSE :W$ = " YOU GOT IT!! ": FOR I = 1 TO 14: PRINT MID$ (W$,I,1);
380 POKE 0, INT( RND(1) *200) +20
390 POKE 1,44
400 CALL MU
410 NEXT
420 POKE 1,150
430 CALL MU
440 NORMAL : VTAB 21: HTAB 1: PRINT " ";: FLASH : HTAB 2: PRINT "RETURN";: NORMAL : VTAB 21: HTAB 2: GET W$:S = 0: GOTO 130
450 REM GET LETTER
460 K = PEEK(Q): IF K < ASC("A") +128 OR K > ASC("Z") +128 THEN 460
470 POKE QQ,0
480 VTAB 21: HTAB 1: PRINT SPC( 12)
490 N = K -192:L$ = MID$ (A$,N,1)
500 REM LETTER CORRECT?
510 FOR I = 1 TO LEN(W$): IF L$ < > MID$ (W$,I,1) THEN 600
520 VTAB 21: HTAB (2 *I) -7 +X: PRINT L$;:L = L +1
530 A(I) = 1
540 VTAB 21: HTAB 1: PRINT "ONE "Q$L$Q$"->";: IF L <2 THEN 570
550 VTAB 21: HTAB 1: PRINT " "
560 VTAB 21: HTAB 1: PRINT L;" ";L$;"'S!->"
570 POKE 0, INT( RND(1) *200) +20
580 POKE 1,80
590 CALL MU
600 NEXT : IF L = 0 THEN S = S +1
610 IF L < >0 THEN 330
620 REM WRONG GUESS
630 VTAB 23: HTAB 1: PRINT "WRONG GUESSES:"
640 VTAB 23: HTAB Z +3: PRINT L$;" ":Z = Z +1: NORMAL
650 FOR J = 1 TO 40:SND = PEEK(MU +BZ): NEXT
660 ON S GOSUB 740,780,820,860,900,940,980,1020,1060,1100
670 VTAB 21: HTAB 1: PRINT "NO "Q$L$Q$"..."
680 GOTO 330
690 REM GRAPHICS
700 COLOR= 5
710 HLIN X +6,X +13 AT 0: VLIN 0,39 AT X +13: HLIN X,X +13 AT 37: HLIN X,X +13 AT 38: PLOT X,39
720 PLOT X +9,1: PLOT X +10,2: PLOT X +11,3: PLOT X +12,4: RETURN
730 REM ROPE
740 COLOR= 15
750 VLIN 1,5 AT X +6: VLIN 5,9 AT X +5: VLIN 5,9 AT X +7: PLOT X +6,9
760 RETURN
770 REM HEAD
780 COLOR= 11
790 FOR I = 4 TO 7: HLIN X +4,X +8 AT I: NEXT : HLIN X +5,X +7 AT 3: HLIN X +5,X +7 AT 8
800 COLOR= 11: PLOT X +6,10: COLOR= 0: PLOT X +5,5: PLOT X +7,5: RETURN
810 REM BODY
820 COLOR= 9
830 FOR I = 10 TO 18: HLIN X +4,X +8 AT I: NEXT
840 COLOR= 11: PLOT X +6,10: COLOR= 3: PLOT X +6,13: PLOT X +6,16: RETURN
850 REM ARMS
860 COLOR= 9
870 VLIN 11,13 AT X +3: VLIN 11,13 AT X +9: VLIN 12,21 AT X +2: VLIN 12,21 AT X +10: RETURN
880 REM LEGS
890 COLOR= 2
900 FOR I = 20 TO 32: HLIN X +4,X +8 AT I: NEXT : COLOR= 0: VLIN 23,32 AT X +6
910 COLOR= 11: VLIN 22,24 AT X +2: VLIN 22,24 AT X +10: PLOT X +1,24: PLOT X +11,24
920 COLOR= 8: HLIN X +4,X +8 AT 19
930 INVERSE : VTAB 24: HTAB 1: PRINT " ONE MORE MISS, AND YOU'RE HUNG! ";: NORMAL : RETURN
940 REM BOOTS
950 COLOR= 8
960 FOR I = 29 TO 34: HLIN X +4,X +8 AT I: NEXT : FOR I = 33 TO 34: HLIN X +2,X +10 AT I: NEXT
970 COLOR= 0: VLIN 29,34 AT X +6: PLOT X +4,34: PLOT X +8,34
980 VTAB 24: HTAB 1: CALL -868
990 VTAB 24: HTAB 1: PRINT "YOU LOSE! IT'S ";: INVERSE : PRINT " ";W$;" ";: NORMAL : PRINT "!";
1000 FOR J = 1 TO 50:SND = PEEK(MU +BZ) - PEEK(MU +BZ) - PEEK(MU +BZ): NEXT
1010 GOTO 440
2540 POKE 0, INT( RND(1) *200) +20
2550 POKE 1,30
2560 CALL MU
2570 RETURN
2580 FOR I = 768 TO 789: READ J: POKE I,J: NEXT
2600 DIM L$(5),A$(30),X$(150),W$(21),A(20),N(255):Q = -16384:QQ = -16368:A$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ'-":U = -16336:Q$ = CHR$(34):MU = 771:BZ = -17107
2610 RETURN
8999 REM COMPUTER'S WORDS
9000 N = INT( RND(1) *150) +1: IF N(N) THEN 9000
9010 N(N) = 1:W$ = X$(N): RETURN
9999 DATA 0,0,96,173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,3,3,96
10000 DATA HAPPY NEW YEAR,ONE TWO THREE,PIE CRUST,SLOT MACHINE,HAM AND CHEESE,SCHOOL ZONE,DONALD DUCK,FOOTBALL,MEOW,MINNEAPOLIS
10010 DATA UNITED STATES,DICTIONARY,DICK TRACY,APPLE COMPUTER,CIGARETTE,E T PHONE HOME,ABRA CADABRA,FOOTBALL,QUICK DRAW,BEAGLE PUPPIES
10020 DATA CROAKING FROGS,LUGGAGE,FURNITURE,HAWAIIAN SURF,ZEBRA STRIPES,HOT DOG BUNS,NOSE JOB,PRIVATE EYE,LIGHT MY FIRE,SWEAT SHIRT
10030 DATA KITCHEN SINK,JUMBO JET,TELEVISION SET,TRAIN,KARATE EXPERT,SCREAMING KIDS,QUACKING DUCKS,CITY LIMITS,SYMBOL,POLICEMAN
10040 DATA BELLY BUTTON,ROLLAWAY BED,JACK AND JILL,HAUNTED HOUSE,HANDKERCHIEF,CINCINNATI,TIGHTROPE,JIGGLING,FREEWAY DRIVER,FOXY LADY
10050 DATA WONDER WOMAN,FOX TERRIER,BIG FAT PIG,ONION SOUP,EGGS OVER EASY,GOOD GRAVY,MISTLETOE,TAXICAB DRIVER,RED RIDINGHOOD,STAR WARS
10060 DATA ROLLING STONE,LAZY DAY,WALK THE PLANK,TAKE A CHANCE,SLAPSTICK,ROAST BEEF,FRANKENSTEIN,ONE MAN BAND,DOWNTOWN,CHICKEN SOUP
10070 DATA MOW THE LAWN,UMBRELLA,HIT A HOME RUN,GREASED PIG,BACON FAT,OATMEAL,YELLOW RIBBON,MICROWAVE OVEN,FROZEN CUSTARD,POPSCICLE
10080 DATA TEN SPEED BIKE,RADIO,POPULATION,STEREO,LUMBERJACK,FORTUNE COOKIE,BULLETIN BOARD,COWS GO MOO,WASHINGTON,YES SIR
10090 DATA GUNNY SACK,WATER FOUNTAIN,ORANGE PUMPKIN,SLIME,KEYBOARD,SOAPY WATER,JUICY PICKLES,HALF AN OUNCE,ORANGE JUICE,GOOD MOOD
10100 DATA RHYTHM,FLOPPY DISK,MEXICO,LIZARD,NOOSE,NEEDLE NOSE,KEYBOARD,SPLASH,ZOOLOGY,CRUNCH
10110 DATA CASSETTE,BOOKLET,PERFORATE,SHOWCASE,SPRAY,TOKYO,DECEMBER,LOLLIPOP,TURKEY,CAT TAIL
10120 DATA REAL ESTATE,COLLAPSE,SHOTGUN,FLEA POWDER,CRYBABY,OKLAHOMA,ALASKA,CIVIC,UNQUESTIONABLY,LIQUOR
10130 DATA QUAKER,JUMPY,FROWN,COLLAR,KNOBS,STOVE,SIGNATURE,SIX PACK,BEER KEG,SWEAT SHIRT
10140 DATA BUSY BODY,STRIPES,CALENDAR,PENCIL,COMMERCIAL,DITCH,SCOOPER,ARKANSAS,QUICKSAND,ROCKET SHIP
63900 NORMAL : TEXT : HOME : VTAB 10: PRINT " MENU": PRINT " CONTINUE THIS GAME": PRINT " QUIT": PRINT : PRINT "SELECT:";: GET W$: PRINT W$: IF W$ = "C" THEN POKE -16368,0: GOTO 130
63910 IF W$ = "M" THEN POKE 768,13: PRINT CHR$(4);"RUN SHORT MENU"
63920 IF W$ = "Q" THEN END
63930 GOTO 63900

Text found in 093a_Beagle_Bag.dsk/MAGIC PACK.bas:

90 REM ==================MAGIC PACKBY BERT KERSEYCOPYRIGHT (C) 1980BEAGLE BROS==================
100 FOR I = 1 TO 40:A$ = A$ +".": NEXT : TEXT : HOME : FOR I = 1 TO 22: PRINT A$;: NEXT : VTAB 8
101 INVERSE : CALL -868: PRINT " MAGIC PACK ": NORMAL : FOR I = 1 TO 40: PRINT "-";: NEXT : PRINT "HELLO. PLEASE FOLLOW THE INSTRUCTIONS INTHE MANUAL, OR THE FOLLOWING TRICKS WILLNOT WORK PROPERLY (EVEN THOUGH THEY WILLAPPEAR TO BE WORKING).";
102 CALL -868: PRINT : PRINT "------": VTAB 24: PRINT "HIT ANY KEY TO START MAGIC PACK:";: GET A$: PRINT A$;
140 GOSUB 32000: ONERR GOTO 63900
142 GOTO 240
170 REM MENU:-----
180 IF II = 2 THEN 182
181 FOR I = 22 TO J STEP -1: VTAB I: PRINT A$: CALL -868
182 IF II < >2 THEN 220
184 VTAB J: PRINT A$: RETURN
220 S = PEEK( -16336)
230 NEXT I: RETURN
240 A$ = " ":J = 1: GOSUB 180
250 A$ = " MAGIC PACK ":J = 4: GOSUB 180
260 A$ = " -----------------------":J = 5: GOSUB 180
270 A$ = " 1. PLENTY QUESTIONS":J = 7: GOSUB 180:A$ = " 2. 21 NUMBERS":J = 9: GOSUB 180
280 A$ = " 3. NEXTWORD":J = 11: GOSUB 180:A$ = " 4. CARD SCANNER":J = 13: GOSUB 180
290 A$ = " -----------------------":J = 15: GOSUB 180:A$ = " BY BEAGLE BROS":J = 16: GOSUB 180
300 IF II = 2 THEN 310
305 FOR I = 1 TO 400: NEXT I
310 FOR I = 1 TO 7
320 POKE 0,55 -I *7
330 POKE 1,5
340 CALL MU
350 NEXT I: VTAB 22: HTAB 9: PRINT "(TYPE Q TO QUIT.)"
360 FOR J = 7 TO 13 STEP 2: VTAB J: HTAB 5: PRINT "?": NEXT J
370 A$ = " - ":C$ = " > "
375 A = 0
380 A = A +1: IF A = 5 THEN 405
382 FOR I = 4 TO 10 STEP 2: FOR J = 1 TO 11
385 K = PEEK(Q) -176: IF (K >0 AND K <5) OR K = 33 THEN 410
390 VTAB I +J
391 HTAB 6
392 PRINT MID$ (A$,J,1); MID$ (C$,J,1)
393 NEXT J
400 FOR J = 1 TO 50: NEXT J,I: GOTO 380
405 VTAB 18: HTAB 12: INVERSE : PRINT " HURRY UP! ": NORMAL : FOR I = 1 TO 50:S = PEEK(Q +48): NEXT I: GOTO 380
410 POKE Q +16,0: IF K = 33 THEN 63900
420 ON K GOTO 450,1920,6000,2930
430 REM ================PLENTY QUESTIONS================
450 S$ = "":TURN = 3:CHEET = 0: VTAB 4: HTAB 1: CALL -958: REM NEW GAME
451 IF B <50 THEN 460
452 B = 0
455 TT = 0: FOR I = 1 TO 100:A(I) = 0:B(I) = 0: NEXT I
460 HOME : PRINT ":::::::::::::::::::::::::::::::::::::::": PRINT ":";: INVERSE : PRINT " LET'S PLAY 'PLENTY-QUESTIONS!' ";: NORMAL
465 COLOR= 2: VLIN 2,3 AT 16: VLIN 2,3 AT 34
470 PRINT ":": PRINT ":::::::::::::::::::::::::::::::::::::::"
480 T$ = " YOU THINK OF AN OBJECT,": HTAB 20 - INT( LEN(T$)/2): GOSUB 5000: FLASH : HTAB 25: PRINT "OBJECT": NORMAL
485 T$ = "AND I'LL ASK THE QUESTIONS.": HTAB 20 - INT( LEN(T$)/2)
487 GOSUB 5000
488 PRINT
522 POKE Q +16,0: VTAB 6: HTAB 1: PRINT " -----------------------------": VTAB 4: HTAB 25: PRINT "OBJECT"
525 VTAB 7: HTAB 7: FLASH : PRINT " ";: NORMAL : PRINT "(HIT ANY KEY WHEN READY.)"
526 K = PEEK(Q): IF K <129 THEN 526
527 POKE Q +16,0: IF K = 129 THEN CHEET = 1: REM K=ASC(CTRL-A)
529 VTAB 7: CALL -958:J = 0
530 J = J +1:TURN = TURN +1: IF TURN >21 THEN TURN = 21
535 INVERSE : VTAB 3 +TURN: HTAB 1: IF J <10 THEN PRINT " ";
537 PRINT J;".";
540 FOR I = 1 TO 9
550 POKE 0,20 -2 *I +J *9
560 POKE 1,4
570 CALL MU
580 NEXT I
585 NORMAL : VTAB 3 +TURN: HTAB 1: IF J <10 THEN PRINT " ";
586 PRINT J;".";
588 A(J) = INT( RND(1) *70) +1: IF B(A(J)) = 1 THEN 588
593 B(A(J)) = 1:B = B +1: IF A(J) >50 THEN 596
594 ON A(J) GOSUB 601,602,603,604,605,606,607,608,609,610,611,612,613,614,615,616,617,618,619,620,621,622,623,624,625,626,627,628,629,630,631,632,633,634,635,636,637,638,639,640,641,642,643,644,645,646,647,648,649,650
595 GOTO 597
596 A(J) = A(J) -50: ON A(J) GOSUB 651,652,653,654,655,656,657,658,659,660,661,662,663,664,665,666,667,668,669,670
597 GOSUB 5000: GOSUB 1340
598 IF J <17 THEN 530
599 GOTO 1440
600 REM === QUESTIONS ===
601 T$ = "DOES IT HAVE TEETH?": RETURN
602 T$ = "IS IT ROUND?": RETURN
603 T$ = "IS IT HEAVIER THAN A CAR?": RETURN
604 T$ = "CAN YOU RIDE IT?": RETURN
605 T$ = "DOES IT HAVE MOVING PARTS?": RETURN
606 T$ = "DOES IT COST MORE THAN $4?": RETURN
607 T$ = "IS IT PAINTED?": RETURN
608 T$ = "CAN YOU EAT IT?": RETURN
609 T$ = "DOES IT HAVE DRAWERS?": RETURN
610 T$ = "IS IT BIGGER THAN A CAT?": RETURN
611 T$ = "DO YOU WEAR IT?": RETURN
612 T$ = "IS IT EVER BLUE?": RETURN
613 T$ = "IS THERE ONE IN THIS ROOM?": RETURN
614 T$ = "IS IT NOISY?": RETURN
615 T$ = "IS IT SHINY?": RETURN
616 T$ = "DOES IT COST OVER $500?": RETURN
617 T$ = "IS IT PART CHINESE?": RETURN
618 T$ = "CAN YOU WRITE ON IT?": RETURN
619 T$ = "DOES IT WRINKLE?": RETURN
620 T$ = "CAN YOU BEND IT?": RETURN
621 T$ = "DOES IT HAVE WHEELS?": RETURN
622 T$ = "CAN IT FLOAT?": RETURN
623 T$ = "DOES IT FLY?": RETURN
624 T$ = "DOES IT COST OVER $1000?": RETURN
625 T$ = "DOES IT SMELL BAD?": RETURN
626 T$ = "IS IT HAIRY?": RETURN
627 T$ = "IS IT SQUISHY?": RETURN
628 T$ = "CAN YOU THROW IT?": RETURN
629 T$ = "CAN IT SWIM?": RETURN
630 T$ = "COULD IT HOLD WATER?": RETURN
631 T$ = "IS IT USUALLY COLD?": RETURN
632 T$ = "IS IT BREAKABLE?": RETURN
633 T$ = "IS IT ELECTRICAL?": RETURN
634 T$ = "CAN YOU SEE ONE HERE?": RETURN
635 T$ = "IS IT EVER BROWN?": RETURN
636 T$ = "WILL IT BURN?": RETURN
637 T$ = "IS IT FUZZY?": RETURN
638 T$ = "IS IT HEAVIER THAN AIR?": RETURN
639 T$ = "DOES IT START WITH 'Q'?": RETURN
640 T$ = "DOES IT MAKE YOU ITCH?": RETURN
641 T$ = "IS IT BIGGER THAN A PIG?": RETURN
642 T$ = "IS IT A SCARY THING?": RETURN
643 T$ = "DOES IT HAVE BATTERIES?": RETURN
644 T$ = "IS IT STICKY?": RETURN
645 T$ = "IS ONE IN YOUR POCKET?": RETURN
646 T$ = "IS IT HARD TO SEE?": RETURN
647 T$ = "CAN YOU CARRY IT?": RETURN
648 T$ = "IS IT PINK?": RETURN
649 T$ = "IS IT FLEXIBLE?": RETURN
650 T$ = "IS IT TASTY?": RETURN
651 T$ = "CAN YOU THUMP IT?": RETURN
652 T$ = "CAN YOU DENT IT?": RETURN
653 T$ = "IS IT WASHABLE?": RETURN
654 T$ = "DOES IT RATTLE?": RETURN
655 T$ = "DOES IT START WITH 'T'?": RETURN
656 T$ = "WAS IT INVENTED BY 1800?": RETURN
657 T$ = "COULD A DUCK SIT ON IT?": RETURN
658 T$ = "IS IT MULTI-COLORED?": RETURN
659 T$ = "HAVE YOU SEEN ONE TODAY?": RETURN
660 T$ = "DOES IT MOO?": RETURN
661 T$ = "WILL IT FIT IN A CAN?": RETURN
662 T$ = "CAN YOU RE-USE IT?": RETURN
663 T$ = "ARE THERE ANY LUMPY ONES?": RETURN
664 T$ = "DOES IT HAVE 5 LETTERS?": RETURN
665 T$ = "DID POPEYE HAVE ONE?": RETURN
666 T$ = "DOES IT HAVE LEGS?": RETURN
667 T$ = "IS IT A GOOD INVESTMENT?": RETURN
668 T$ = "DOES IT NEED FIXING A LOT?": RETURN
669 T$ = "DOES IT GLITTER?": RETURN
670 T$ = "IS IT MADE IN JAPAN?": RETURN
1330 REM === GET ANSWERS ===
1340 VTAB 3 +TURN: HTAB 31: PRINT " ________";: VTAB 3 +TURN: HTAB 32: FLASH : PRINT "_";: NORMAL
1345 IF CHEET = 0 THEN 1360
1350 K = PEEK(Q): IF K <136 THEN 1350
1352 POKE Q +16,0
1355 VTAB 2: HTAB 30: INVERSE : PRINT "1": NORMAL
1360 VTAB 3 +TURN: HTAB 32: INPUT "";Q$: VTAB 2: HTAB 30: INVERSE : PRINT "I": NORMAL
1361 IF Q$ = "" THEN 1340
1362 IF RIGHT$(Q$,1) = "." THEN 1435
1365 IF CHEET = 0 OR K = 149 THEN RETURN
1370 IF K >159 THEN S$ = S$ + CHR$(K -128)
1400 IF K < >136 THEN 1405
1401 IF LEN(S$) >1 THEN S$ = LEFT$(S$, LEN(S$) -1): GOTO 1405: REM <-
1402 S$ = ""
1405 IF RIGHT$(S$,1) = "/" THEN S$ = ""
1410 IF RIGHT$(S$,1) = "." OR RIGHT$(S$,1) = "," OR RIGHT$(S$,1) = ";" THEN 1435
1420 RETURN
1430 REM === PRINT ANSWER ===
1435 POP
1440 IF TURN >19 THEN TURN = 19
1442 HTAB 12: PRINT :T = 0: FOR I = 1 TO 50:X = PEEK(Q +48): NEXT I
1445 T$ = "I'VE GOT IT!": VTAB 5 +TURN: HTAB 14: GOSUB 5000
1460 IF RIGHT$(S$,1) = ";" THEN S$ = "LIGHT BULB."
1470 FOR I = 1 TO 500: NEXT I
1480 PRINT : HTAB 12:T$ = "IT'S A ": GOSUB 5000
1500 IF S$ = "." THEN S$ = "TUNA SANDWICH."
1505 IF RIGHT$(S$,1) < >"," AND CHEET >0 THEN 1540
1506 RN = INT( RND(1) *50) +1: IF RN >25 THEN 1509
1507 ON RN GOSUB 1650,1651,1652,1653,1654,1655,1656,1657,1658,1659,1660,1661,1662,1663,1664,1665,1666,1667,1668,1669,1670,1671,1672,1673,1674
1508 GOTO 1515
1509 RN = RN -25: ON RN GOSUB 1675,1676,1677,1678,1679,1680,1681,1682,1683,1684,1685,1686,1687,1688,1689,1690,1691,1692,1693,1694,1695,1696,1697,1698,1699
1515 S$ = T$: GOTO 1545
1540 S$ = LEFT$(S$, LEN(S$) -1)
1545 FOR X = 1 TO 20: HTAB 19
1550 FOR I = 1 TO 3:S = PEEK(Q +48): NEXT I
1560 RN = INT( RND(1) *50) +1: IF RN >25 THEN 1563
1561 ON RN GOSUB 1650,1651,1652,1653,1654,1655,1656,1657,1658,1659,1660,1661,1662,1663,1664,1665,1666,1667,1668,1669,1670,1671,1672,1673,1674
1562 GOTO 1568
1563 RN = RN -25: ON RN GOSUB 1675,1676,1677,1678,1679,1680,1681,1682,1683,1684,1685,1686,1687,1688,1689,1690,1691,1692,1693,1694,1695,1696,1697,1698,1699
1568 PRINT T$;: FOR I = 1 TO 20: NEXT I
1570 HTAB 19: PRINT " ";
1580 FOR I = 1 TO 3 *X: NEXT I,X
1590 X = 19 - INT(( LEN(S$) +7 +T)/2)
1592 HTAB 1: CALL -868: HTAB X: PRINT "IT'S A";
1593 IF LEFT$(S$,1) < >"A" AND LEFT$(S$,1) < >"E" AND LEFT$(S$,1) < >"I" AND LEFT$(S$,1) < >"O" AND LEFT$(S$,1) < >"U" THEN 1595
1594 PRINT "N";:T = 1
1595 PRINT " ";S$;"! "
1600 HTAB X +7 +T: FOR I = 1 TO LEN(S$): PRINT "-";: NEXT I
1630 PRINT : GOSUB 1860: GOTO 450
1640 REM === FAKE ANSWERS ===
1650 T$ = "WEENY": RETURN
1651 T$ = "CHOCOLATE CAKE": RETURN
1652 T$ = "DINOSAUR": RETURN
1653 T$ = "TREE": RETURN
1654 T$ = "SPOON": RETURN
1655 T$ = "DANDILION": RETURN
1656 T$ = "WEASEL": RETURN
1657 T$ = "BEANSTALK": RETURN
1658 T$ = "TABLECLOTH": RETURN
1659 T$ = "EGGPLANT": RETURN
1660 T$ = "HAIR DRYER": RETURN
1661 T$ = "DOUGHNUT": RETURN
1662 T$ = "HEATER": RETURN
1663 T$ = "GIRDLE": RETURN
1664 T$ = "CURTAIN": RETURN
1665 T$ = "SEE SAW": RETURN
1666 T$ = "RAISIN BOX": RETURN
1667 T$ = "T-SQUARE": RETURN
1668 T$ = "HOUSE": RETURN
1669 T$ = "MOSQUITO": RETURN
1670 T$ = "CLOCK RADIO": RETURN
1671 T$ = "SANDWICH": RETURN
1672 T$ = "JOGGING SHOE": RETURN
1673 T$ = "NAIL FILE": RETURN
1674 T$ = "FRUIT CAKE": RETURN
1675 T$ = "FRIED EGG": RETURN
1676 T$ = "BROWN BAG": RETURN
1677 T$ = "BUN WARMER": RETURN
1678 T$ = "SOCK": RETURN
1679 T$ = "SWING": RETURN
1680 T$ = "NECKLACE": RETURN
1681 T$ = "PENCIL": RETURN
1682 T$ = "WITCH": RETURN
1683 T$ = "PICKLE": RETURN
1684 T$ = "SHOVEL": RETURN
1685 T$ = "WORM": RETURN
1686 T$ = "ORANGE": RETURN
1687 T$ = "STAPLER": RETURN
1688 T$ = "CAN OF BEANS": RETURN
1689 T$ = "BEER CAN": RETURN
1690 T$ = "NOODLE": RETURN
1691 T$ = "BELT LOOP": RETURN
1692 T$ = "EARRING": RETURN
1693 T$ = "SCREEN DOOR": RETURN
1694 T$ = "SCREWDRIVER": RETURN
1695 T$ = "TELEVISION": RETURN
1696 T$ = "FAUCET": RETURN
1697 T$ = "SQUIRREL": RETURN
1698 T$ = "MATCH BOOK": RETURN
1699 T$ = "COMIC BOOK": RETURN
1850 REM === MENU/REPEAT? ===
1860 FOR I = 1 TO 999: NEXT I
1870 VTAB 24: HTAB 1: PRINT "( ANY KEY = REPEAT. = MENU.)";
1880 COLOR= 6: PLOT 1,47: PLOT 21,47
1890 K = PEEK(Q): IF K <128 THEN 1890
1892 POKE Q +16,0: IF K < >141 THEN RETURN
1894 POP :II = 2: TEXT
1900 HOME : GOTO 240
1910 REM ==========21 NUMBERS==========
1920 HOME : VTAB 9: HTAB 12: PRINT "21 NUMBERS"
1930 T = -1:V = 2:J = 0
1935 REM === SHUFFLE ===
1940 FOR X = 1 TO 21
1960 A(X) = INT( RND(1) *100): IF X = 1 THEN 1980
1970 FOR Y = 1 TO X -1: IF A(X) = A(Y) THEN 1960
1972 NEXT Y
1980 NEXT X: HOME
1990 REM === DEAL ===
2000 FOR X = 1 TO 21
2002 T = T +10: IF T >30 THEN T = 9
2004 IF (X -1) - INT((X -1)/3) *3 = 0 THEN V = V +2
2010 VTAB V: HTAB T: INVERSE : PRINT " ";A(X);" ": NORMAL
2020 POKE 0,A(X) *2
2022 POKE 1,4
2024 CALL MU
2030 VTAB V: HTAB T: PRINT " ";
2031 IF J < >3 THEN 2034
2032 PRINT IT;: GOTO 2038
2034 PRINT A(X);
2038 PRINT " "
2042 NEXT : PRINT
2045 IF J = 3 THEN 2210
2050 VTAB 1: PRINT " A B C ---- ---- ----"
2060 VTAB 18: HTAB 8
2070 PRINT "--------------------------": HTAB 9
2080 REM === ASK FOR COLUMN ===
2090 IF J = 0 THEN 2100
2092 PRINT "FIND THE SAME NUMBER... ": PRINT : GOTO 2110
2100 PRINT "PICK A NUMBER FROM ABOVE.": PRINT
2110 HTAB 9: PRINT "WHICH COLUMN-- A, B OR C?"
2120 HTAB 8: PRINT "--------------------------"
2130 COLOR= 15: PLOT 32,40: COLOR= 7: PLOT 32,41
2140 K = PEEK(Q): IF K <193 OR K >195 THEN 2140
2142 POKE Q +16,0
2150 VTAB 21: CALL -868: VTAB 19: CALL -868
2170 IF K = 193 THEN GOSUB 2300
2171 IF K = 194 THEN GOSUB 2330
2172 IF K = 195 THEN GOSUB 2360
2180 J = J +1:IT = B(11): IF J = 3 THEN 2200
2190 FOR X = 1 TO 21:A(X) = B(X): NEXT X
2200 V = 2:T = -1: GOTO 2000
2210 INVERSE : VTAB 19: HTAB 9: PRINT " ": HTAB 9: PRINT " "
2220 HTAB 9: PRINT " "
2230 REM END: ----
2240 VTAB 20: HTAB 13: PRINT " I GIVE UP!"
2250 VTAB 1: HTAB 9: PRINT " A ";: HTAB 19: PRINT " B ";: HTAB 29: PRINT " C "
2270 NORMAL
2280 GOSUB 1860: GOTO 1920
2290 REM === RESHUFFLE ===
2300 INVERSE : VTAB 1: HTAB 9: PRINT " A ": NORMAL
2310 FOR X = 1 TO 21: IF X <8 THEN XX = 1
2312 IF X >7 AND X <15 THEN XX = 23
2314 IF X >14 THEN XX = 42
2320 GOTO 2380
2330 INVERSE : VTAB 1: HTAB 19: PRINT " B ": NORMAL
2340 FOR X = 1 TO 21: IF X <8 THEN XX = 2
2344 IF X >7 AND X <15 THEN XX = 22
2346 IF X >14 THEN XX = 42
2350 GOTO 2380
2360 INVERSE : VTAB 1: HTAB 29: PRINT " C ": NORMAL
2370 FOR X = 1 TO 21: IF X <8 THEN XX = 2
2372 IF X >7 AND X <15 THEN XX = 21
2374 IF X >14 THEN XX = 43
2380 N = A((3 *X) -XX)
2390 B(X) = N: NEXT X: RETURN
2930 REM ============CARD SCANNER============
2940 HOME : INVERSE
2950 VTAB 1: HTAB 11: PRINT ": :": HTAB 11: PRINT " CARD IDENTIFIER ": HTAB 11: PRINT ": :"
2960 NORMAL : PRINT
2970 PRINT "THIS COMPUTER WILL": PRINT "IDENTIFY ANY CARD": PRINT "USING AN ADVANCED": PRINT "VIDEO SCANNING": PRINT "TECHNIQUE."
2980 PRINT : PRINT " INSTRUCTIONS:": PRINT "---------------------"
2990 PRINT "1. PRESS YOUR CARD": PRINT " AGAINST THE SCREEN->": PRINT
3000 PRINT "2. TYPE 'RUN'.": PRINT : PRINT "3. PRESS 'RETURN'"
3010 PRINT "---------------------"
3020 VTAB 22: PRINT "] <-TYPE 'RUN'."
3030 INVERSE
3040 FOR I = 5 TO 22: VTAB I: HTAB 24
3050 PRINT "@@@@@@@@@@@@@@@@@";: NEXT I
3060 NORMAL : COLOR= 6: PLOT 1,43
3070 K = PEEK(Q): IF K <160 THEN 3070
3072 POKE Q +16,0:N = K
3080 VTAB 22: HTAB 2: PRINT "R";: PLOT 2,43
3090 K = PEEK(Q): IF K <160 THEN 3090
3092 POKE Q +16,0:S = K
3100 HTAB 3: PRINT "U";: PLOT 3,43
3110 IF PEEK(Q) <160 THEN 3110
3112 POKE Q +16,0
3120 HTAB 4: PRINT "N";: PLOT 4,43
3130 IF PEEK(Q) <141 THEN 3130
3132 POKE Q +16,0
3140 HTAB 5: PRINT " ": VTAB 5: HTAB 24
3150 POKE 32,23: POKE 34,4: POKE 35,22: POKE 33,17
3160 C$ = ""
3170 IF (N <176 OR N >185) AND (N < >193 AND N < >202 AND N < >203 AND N < >209) THEN 3260
3180 N = N -176: IF N = 17 THEN N = 1
3182 IF N = 0 THEN N = 10
3190 IF N = 26 THEN C$ = "JACK"
3192 IF N = 27 THEN C$ = "KING"
3194 IF N = 33 THEN C$ = "QUEEN"
3200 IF N = 17 OR N = 1 THEN C$ = "ACE"
3210 IF S = 195 THEN C$ = C$ +" OF CLUBS"
3220 IF S = 196 THEN C$ = C$ +" OF DIAMONDS"
3230 IF S = 200 THEN C$ = C$ +" OF HEARTS"
3240 IF S = 211 THEN C$ = C$ +" OF SPADES"
3250 GOTO 3270
3260 C$ = "PLAYING CARD "
3270 FOR I = 1 TO 61
3280 S = PEEK( -16304)
3290 NORMAL : IF I - INT(I/2) *2 = 0 THEN INVERSE
3300 POKE 0, INT( RND(1) *49) +1
3310 POKE 1,2
3320 CALL MU
3330 PRINT " ";: IF N >1 AND N <11 THEN PRINT N;
3332 PRINT C$;" ";: NEXT I
3340 TEXT :S = PEEK( -16304): TEXT
3350 POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24
3360 GOSUB 1860: GOTO 2930
5000 REM === TYPING NOISE ===
5005 FOR X = 1 TO LEN(T$): PRINT MID$ (T$,X,1);: IF MID$ (T$,X,1) = " " THEN 5020
5010 FOR U = 1 TO 3:S = PEEK(Q +48): NEXT U
5020 FOR U = 1 TO 6: NEXT U,X: RETURN
6000 REM ========NEXTWORD========
6002 X = 0:Z = 0
6005 HOME : INVERSE
6010 PRINT " ";: HTAB 7: PRINT " ": PRINT " NEXT";: HTAB 7: PRINT "WORD ": PRINT " ----";: HTAB 7: PRINT "---- ": PRINT " ";: HTAB 7: PRINT " "
6015 NORMAL : VTAB 1
6020 HTAB 13: PRINT "1.YOU TYPE A WORD.": HTAB 13: PRINT "2.THE COMPUTER TYPES THE": HTAB 13: PRINT " NEXT LOGICAL WORD."
6025 HTAB 13: PRINT "3.YOU TYPE THE NEXT, ETC."
6030 INVERSE : VTAB 6: HTAB 1: PRINT " YOUR FIRST WORD: ";: NORMAL : HTAB 20: INPUT C$: IF C$ = "" THEN 6030
6032 FOR I = LEN(C$) TO 1 STEP -1:TEST = ASC( MID$ (C$,I,1)): IF TEST >64 AND TEST <91 THEN 6035
6033 NEXT I: GOTO 6002
6035 I = TEST -64
6037 ON I GOSUB 6165,6170,6175,6180,6185,6190,6195,6200,6205,6210,6215,6220,6225,6230,6235,6240,6245,6250,6255,6260,6265,6270,6275,6280,6285,6290
6040 NORMAL : HTAB 1: PRINT " COMPUTER'S WORD: ";S$: PRINT
6044 J = 0
6045 J = J +1
6050 POKE 0, INT( RND(1) *200) +5
6055 POKE 1,3
6060 CALL MU
6065 FOR I = 1 TO 25: NEXT I
6067 IF J <10 THEN 6045
6075 INVERSE : PRINT " YOUR NEXT WORD: ";
6080 NORMAL : HTAB 20: INPUT C$: IF C$ = "" THEN 6080
6085 IF LEFT$(C$,1) = RIGHT$(S$,1) THEN 6105
6090 X = 0: FOR J = 1 TO 50:S = PEEK(Q +48): NEXT J
6095 Z = Z +1: IF Z = 3 THEN 6150
6100 INVERSE : PRINT " WRONG! TRY AGAIN:";: GOTO 6080
6105 NORMAL : VTAB PEEK(37): PRINT " ";
6110 Y = INT( RND(1) *99) +9: FOR J = Y TO Y +100 STEP 10
6115 POKE 0,250 -J
6120 POKE 1,9
6125 CALL MU
6130 NEXT J:Z = 0
6135 INVERSE : HTAB 7: PRINT " CORRECT! "
6140 X = X +1: IF X = 3 THEN 6155
6145 GOTO 6032
6150 NORMAL : PRINT : PRINT "THREE WRONG IN A ROW-- YOU LOSE!": FOR I = 1 TO 123:S = PEEK(Q +48): NEXT I: GOTO 6160
6155 NORMAL : PRINT : PRINT "I THINK YOU'VE GOT ME!-- YOU WIN!!"
6160 GOSUB 1850: GOTO 6002
6165 S$ = "ARROW": RETURN
6170 S$ = "BOX": RETURN
6175 S$ = "CANE": RETURN
6180 S$ = "DOLLAR": RETURN
6185 S$ = "ELEPHANT": RETURN
6190 S$ = "FORK": RETURN
6195 S$ = "GATE": RETURN
6200 S$ = "HAT": RETURN
6205 S$ = "IGLOO": RETURN
6210 S$ = "JAIL": RETURN
6215 S$ = "KITE": RETURN
6220 S$ = "LADDER": RETURN
6225 S$ = "MARBLE": RETURN
6230 S$ = "NUMBER": RETURN
6235 S$ = "OWL": RETURN
6240 S$ = "PIN": RETURN
6245 S$ = "QUEEN": RETURN
6250 S$ = "RAKE": RETURN
6255 S$ = "SNAIL": RETURN
6260 S$ = "TRIANGLE": RETURN
6265 S$ = "UMBRELLA": RETURN
6270 S$ = "VALENTINE": RETURN
6275 S$ = "WAGON": RETURN
6280 S$ = "XYMURGY": RETURN
6285 S$ = "YOYO": RETURN
6290 S$ = "ZERO": RETURN
32000 POKE 771,173: POKE 772,48: POKE 773,192: POKE 774,136: POKE 775,208: POKE 776,4: POKE 777,198: POKE 778,1: POKE 779,240: POKE 780,8: POKE 781,202: POKE 782,208: POKE 783,246: POKE 784,166: POKE 785,0: POKE 786,76: POKE 787,3: POKE 788,3: POKE 789,96
32762 DIM A(100),B(100): TEXT : NORMAL :Q = -16384:MU = 771: RETURN
63900 TEXT : HOME : NORMAL : VTAB 10: HTAB 5: PRINT "BEAGLE BAG": HTAB 5: PRINT "------------------"
63910 VTAB 12: PRINT " MENU": PRINT " CONTINUE THIS GAME": PRINT " QUIT": HTAB 5: PRINT "------------------": PRINT " SELECT:";: GET A$: PRINT A$: IF A$ = "Q" THEN END
63920 IF A$ = "M" THEN POKE 768,12: PRINT CHR$(4);"RUN SHORT MENU"
63930 IF A$ = "C" THEN RUN
63940 GOTO 63900

Text found in 093a_Beagle_Bag.dsk/SHORT MENU.bas:

90 REM ===================BEAGLE BAGSHORT MENUBY BERT KERSEYCOPYRIGHT (C) 1982BEAGLE BROS4315 SIERRA VISTASAN DIEGO, CA 92103===================
110 DIM GAME$(19): PRINT "NOMONICO": GOSUB 290: POKE 40286,35: POKE 40287,216:DD$ = "..": FOR I = 1 TO 38:DO$ = DO$ +".": NEXT : FOR G = 1 TO 16: READ GA$(G): IF LEN(GA$(G)) THEN NEXT
120 G = G -1
130 ST = 0: TEXT : HOME : INVERSE : PRINT SPC( 40): VTAB 20: PRINT SPC( 40): FOR I = 2 TO 19: VTAB I: HTAB 1: PRINT " ";: HTAB 40: PRINT " ": NEXT : VTAB 1: HTAB 4: PRINT "BEAGLE BAG BY BEAGLE BROS": NORMAL : ONERR GOTO 800
140 VTAB 22: HTAB 8: PRINT " SELECT GAME": HTAB 12: PRINT " RUN GAME": HTAB 15: PRINT " QUIT";
150 FOR I = 2 TO 19: VTAB I: HTAB 2: PRINT DOT$: NEXT
170 FOR I = 1 TO 18: VTAB I +2: HTAB I +5: PRINT GA$(I): NEXT :V = PEEK(888): IF V <3 OR V >G +2 THEN V = 3
175 FOR I = 11 TO 15: VTAB I +2: HTAB I +1: PRINT "*": NEXT : VTAB 20: HTAB 19: INVERSE : PRINT "* 2-PLAYER GAMES": NORMAL : REM OPTIONAL
180 FLASH : IF ST THEN INVERSE
185 VTAB V: HTAB V: PRINT "->";: HTAB V + LEN(GA$(V -2)) +4: PRINT "<-": NORMAL
190 K = PEEK( -16384): IF K <128 THEN 190
200 POKE -16368,0:ST = 1: NORMAL : VTAB V: HTAB V:S = PEEK( -16336): PRINT DD$;: HTAB V + LEN(GA$(V -2)) +4: PRINT DD$:S = PEEK( -16336):V = V +(K = 149 OR K = 138) -(K = 136 OR K = 139):V = V +G *(V = 2) -G *(V = G +3): IF K < >141 AND K < >155 THEN 180
218 IF K < >141 AND K < >155 THEN 180
220 A$ = " TO EXIT GAME AND RE-RUN MENU.": IF K = 155 OR V = 18 THEN A$ = ""
240 CALL SC: CALL SC: CALL SC: VTAB 1: PRINT A$: FOR I = 1 TO 21: CALL SC: FOR J = 1 TO 19: NEXT : NEXT : IF K = 155 THEN POKE 888,V: GOTO 800
250 A$ = GA$(V -2): IF LEFT$(A$,1) = "(" THEN 270
260 INVERSE : VTAB 15: HTAB 14: PRINT SPC( 12): PRINT : HTAB 14: PRINT " BEAGLE BAG ": HTAB 14: PRINT SPC( 12): NORMAL : VTAB 20: HTAB 15 - LEN(A$)/2: FLASH : PRINT "+";: NORMAL : PRINT " LOADING "A$" ";: FLASH : PRINT "+": NORMAL : POKE 888,V: PRINT CHR$(4);"RUN ";A$
270 VTAB 1: PRINT CHR$(4);"CATALOG": FOR I = 1 TO 40: PRINT "-";: NEXT : PRINT "ANY KEY: TO QUIT";: FLASH : HTAB 9: PRINT " ";: NORMAL
275 K = PEEK( -16384): IF K <128 THEN 275
276 POKE -16368,0: IF K = 155 THEN HTAB 1: CALL -958: VTAB PEEK(37): END
277 GOTO 130
290 EN = PEEK(175) +256 * PEEK(176):SC = EN -130:SU = EN -225: POKE 10,4: POKE 11,0
300 READ AD: IF NOT AD THEN RETURN
310 READ RA:RA = EN -RA:AD = EN -AD: POKE AD,RA - INT(RA/256) *256: POKE AD +1, INT(RA/256): GOTO 300
320 DATA 31,24,74,34,101,32,123,32,132,34,172,34,199,32,221,32,0
800 HOME : VTAB 23: END :
876 REM ===================BEAGLE BAGSHORT MENUBY BERT KERSEYCOPYRIGHT (C) 1982BEAGLE BROS4315 SIERRA VISTASAN DIEGO, CA 92103===================
999 DATA TEXTTRAIN,SUB SEARCH,SLIPPERY DIGITS,NAME GAME,MAGIC PACK,HANG PERSON,GAS CRUNCH,ELEVATORS,DATE SEARCH,BUZZWORD,WOWZO,TRIPLE DIGITS,QUICK-DRAW!,PICK-A-PAIR,OINK!,(CATALOG DISK),: REM END.WITH.COMMA