Notes

Disk info for 260b_Yo_Yo_Duck_Diagnostics.dsk:

File Name: 3d0g_260b_Yo_Yo_Duck_Diagnostics/260b_Yo_Yo_Duck_Diagnostics.dsk
Disk Name: /YOYODUCK/
Physical Size (bytes): 143360
Free Space (bytes): 20992
Used Space (bytes): 122368
Physical Size (KB): 140
Free Space (KB): 20
Used Space (KB): 119
Archive Order: DOS
Disk Format: ProDOS
Total Blocks: 280
Free Blocks: 41
Used Blocks: 239
Volume Access: Destroy Read Rename Write
Block Number of Bitmap: 6
Creation Date: 03/10/1990
File Entries Per Block: 13
File Entry Length (bytes): 39
Active Files in Root Directory: 37
Minimum ProDOS Version Required: 0
Volume Created By ProDOS Version: 8
Volume Name: YOYODUCK

Disk directory for 260b_Yo_Yo_Duck_Diagnostics.dsk:

3d0g_260b_Yo_Yo_Duck_Diagnostics/260b_Yo_Yo_Duck_Diagnostics.dsk /YOYODUCK/
PRODOS SYS 032 06/14/1989 06/14/1989 15,741
BASIC.SYSTEM SYS 021 08/01/1989 07/31/1989 10,240 A=$2000
BOUNCE BIN 001 03/10/1990 03/10/1990 82 A=$0300
BURNIN BAS 006 03/10/1990 03/10/1990 2,275 A=$0801
C.D.CONNECTION BAS 003 03/10/1990 03/10/1990 957 A=$0801
CLEAR BIN 001 03/10/1990 03/10/1990 50 A=$0300
CURTAIN BIN 001 03/10/1990 03/10/1990 81 A=$0300
D.HI.RES.TEST BAS 006 03/10/1990 03/10/1990 2,158 A=$0801
DISK.TEST2 BAS 004 03/10/1990 03/10/1990 1,095 A=$0801
DRIVE.CLEANER BAS 004 12/02/1988 03/10/1990 1,419 A=$0801
ENSONIQ.SOUNDS BAS 005 10/09/1987 03/10/1990 1,577 A=$0801
HELLO2 BAS 004 02/10/1989 03/10/1990 1,288 A=$0801
HIRES.TEST BAS 003 03/10/1990 03/10/1990 888 A=$0801
INSTAL BAS 010 09/29/1987 03/10/1990 4,563 A=$0801
INSTAL2 BAS 010 09/29/1987 03/10/1990 4,512 A=$0801
INSTRUCTIONS BAS 004 01/30/1989 03/10/1990 1,512 A=$0801
IW2 BAS 007 03/10/1990 03/10/1990 2,595 A=$0801
IWLQ BAS 007 12/03/1988 03/10/1990 2,783 A=$0801
JOY.PAD.TEST BAS 003 03/10/1990 03/10/1990 833 A=$0801
KB BAS 006 03/10/1990 03/10/1990 2,500 A=$0801
KB.II.PT BAS 006 03/10/1990 03/10/1990 2,406 A=$0801
KB.NEW.GS BAS 006 03/10/1990 03/10/1990 2,386 A=$0801
KB.UPGRADE.GS BAS 005 03/10/1990 03/10/1990 1,870 A=$0801
KEYBOARD.TEST BAS 001 03/10/1990 03/10/1990 481 A=$0801
MASTER.TXT TXT 001 05/20/1988 03/10/1990 0
MEMORY.TEST BAS 008 03/10/1990 03/10/1990 3,567 A=$0801
MONITOR.TEST BAS 007 03/10/1990 03/10/1990 2,984 A=$0801
NUMCOMP TXT 001 08/06/2004 03/10/1990 62
PRINTCOMP BAS 001 09/29/1987 03/10/1990 448 A=$0801
PRINTER.TEST BAS 012 03/10/1990 03/10/1990 5,502 A=$0801
SHAREWARE BIN 017 03/10/1990 03/10/1990 8,192 A=$2000
SPEAKER.TEST BAS 004 03/10/1990 03/10/1990 1,050 A=$0801
STARTUP BAS 003 09/28/1987 03/10/1990 641 A=$0801
V.JOKE BAS 001 03/10/1990 03/10/1990 152 A=$0801
YO.YO.DUCK.LOGO BIN 017 03/10/1990 03/10/1990 8,192 A=$2000
* YOYODUCK TXT 001 03/10/1990 03/10/1990 6
ZANNY.QUIT BAS 003 03/10/1990 03/10/1990 910 A=$0801
ProDOS format; 20,992 bytes free; 122,368 bytes used.

Text found in 260b_Yo_Yo_Duck_Diagnostics.dsk/BOUNCE.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 A9 01 85 3C 4A 90 0A A6 3C 20 70 FC CA D0 FA F0 )..

Text found in 260b_Yo_Yo_Duck_Diagnostics.dsk/BURNIN.bas:

10 REM YO YO DUCK DIAGNOSTIC PROGRAM
20 REM BURN IN
22 D$ = CHR$(4)
30 IF PEEK(64448) = 224 AND PEEK(65055) = 96 THEN COMP$ = "IIE Enhanced":NL = 1
32 IF PEEK(64448) = 224 AND PEEK(65055) = 173 THEN COMP$ = "IIGS":NL = 3
34 IF PEEK(64448) = 0 THEN COMP$ = "IIC or IIC+":NL = 4
40 IF NL = 1 THEN TYPE = 2000
41 IF NL = 2 THEN TYPE = 6000
42 IF NL = 3 THEN TYPE = 2000
100 REM ASK NUMBER OF DRIVES
110 HOME
120 VTAB 8: PRINT "How many drives do you want": PRINT "tested during this burn in? "
130 VTAB 9: HTAB 28: GET ND$: PRINT ND$
140 ND = ASC(ND$) -48
150 IF ND <1 OR ND >2 THEN PRINT CHR$(7): GOTO 130
160 VTAB 12: PRINT "Enter slot if 1st drive: "
165 VTAB 12: HTAB 29: GET S1$: PRINT S1$
168 S1 = ASC(S1$) -48
170 IF S1 <5 OR S1 >7 THEN PRINT CHR$(7): GOTO 165
174 VTAB 13: PRINT "Enter number of 1st drive: "
175 VTAB 13: HTAB 29: GET D1$: PRINT D1$
177 D1 = ASC(D1$) -48
179 IF D1 <1 OR D1 >2 THEN PRINT CHR$(7): GOTO 175
195 IF ND = 1 THEN GOTO 470
200 VTAB 15: PRINT "Enter slot of 2nd Drive: "
210 VTAB 15: HTAB 29: GET S2$: PRINT S2$
220 S2 = ASC(S2$) -48
230 IF S2 <5 OR S2 >7 THEN PRINT CHR$(7): GOTO 210
240 VTAB 16: PRINT "Enter number of 2nd drive: "
245 VTAB 16: HTAB 29: GET D2$: PRINT D2$
250 D2 = ASC(D2$) -48
260 IF D2 <1 OR D2 >2 THEN PRINT CHR$(7): GOTO 250
470 REM MONITOR TESTS
500 U = 9:D = 3:E = -16384:F = -16368:G = -16287:H = -16286:Z = 127
510 POKE 768,173: POKE 769,48: POKE 770,192: POKE 771,136: POKE 772,208: POKE 773,4: POKE 774,198: POKE 775,7
520 POKE 776,240: POKE 777,8: POKE 778,202: POKE 779,208: POKE 780,246: POKE 781,166: POKE 782,6: POKE 783,76: POKE 784,0: POKE 785,03: POKE 786,96
525 TEXT : HOME : PRINT : POKE F,0
532 GR : FOR I = 0 TO 31: COLOR= I/2: VLIN 0,39 AT I +3: NEXT I
534 COLOR= 5: VLIN 0,39 AT 2: VLIN 0,39 AT 35: HLIN 2,35 AT 0: HLIN 2,35 AT 39
536 FOR I = 1 TO LEN(A$)
538 HTAB 2 *I +2: PRINT MID$ (A$,I,1);
560 FOR K = 1 TO TYPE: NEXT K
600 REM CROSSHATCH TEST
610 HGR2 : CALL 62450: HCOLOR= 7
620 FOR Y = 0 TO 180 STEP 18: HPLOT 0,Y TO 279,Y: NEXT Y
630 FOR X = 0 TO 252 STEP 28: HPLOT X,0 TO X,179: NEXT X
640 HPLOT 279,0 TO 279,179
650 FOR K = 1 TO TYPE: NEXT K
720 REM
730 M1$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
740 M2$ = "abcdefghijklmnopqrstuvwxyz"
750 TEXT : NORMAL : HOME
800 TR = 0
820 HOME
830 PRINT CHR$(4);"PR#3"
840 PRINT : PRINT : PRINT : PRINT
850 PRINT "THIS IS NORMAL": POKE 1403,5: PRINT M1$: PRINT M2$
860 PRINT : PRINT
870 PRINT "This is MouseText"
880 PRINT CHR$(27); CHR$(15);
890 POKE 1403,5
900 PRINT "@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_"
910 PRINT CHR$(24): REM TURN OFF ALT CHAR SET
920 PRINT : PRINT "THIS IS INVERSE"
930 POKE 1403,5: PRINT M1$
940 POKE 1403,5: PRINT M2$
950 PRINT CHR$(14): REM NORMAL
960 FOR I = 1 TO 1200 *NL: NEXT I
970 PRINT CHR$(17);: FOR J = 1 TO 1750 *NL: NEXT J: PRINT CHR$(18)
972 HOME : FOR K = 1 TO TYPE/6: NEXT K
975 CALL -1994: REM Unusual screen 40 col clear
977 HOME : FOR K = 1 TO TYPE/6: NEXT K
980 TR = TR +1: IF TR < >5 THEN GOTO 820
1000 REM CATALOG DRIVES
1010 PRINT D$;"CATALOG,S";S1;",D";D1
1020 IF ND = 2 THEN PRINT D$;"CATALOG,S";S2;",D";D2
1500 REM SPEAKER
1510 FOR I = 1 TO 5
1520 FOR K = 1 TO 25: POKE -16336,0: NEXT K
1530 CALL -198
1540 NEXT I
1550 PRINT CHR$(12): PRINT CHR$(21)
1600 REM INTERESTING SCREEN EFFECTS
1610 FOR I = 1 TO 196: POKE -16299,0: HCOLOR= 3: POKE -16300,0: NEXT I
3000 REM Start over
3010 CALL -7036: REM Do Applesoft garbage collection routine
3020 GOTO 470

Text found in 260b_Yo_Yo_Duck_Diagnostics.dsk/C.D.CONNECTION.bas:

5 REM C-D CONNECTION
7 ONERR GOTO 10
10 HOME
20 VTAB 8: PRINT "TESTING FOR COMPUTER-DRIVE CONNECTION"
25 PRINT : PRINT TAB( 5);"TYPE 'Q' TO RETURN TO MAIN MENU"
30 VTAB 15: PRINT TAB( 5);"SLOT NUMBER: 5"
33 VTAB 15: HTAB 18: GET S$: PRINT S$
35 IF S$ = "Q" OR S$ = "q" THEN 1000
37 IF S$ = CHR$(13) THEN SN = 5: GOTO 50
40 IF S$ <"5" OR S$ >"7" THEN PRINT CHR$(7): GOTO 30
45 SN = VAL(S$)
50 VTAB 17: PRINT TAB( 4);"DRIVE NUMBER: 2"
51 VTAB 17: HTAB 18: GET D$: PRINT D$
52 IF D$ = CHR$(13) THEN DN = 2: GOTO 80
55 IF D$ = "Q" OR D$ = "q" THEN 1000
60 IF D$ <"1" OR D$ >"2" THEN PRINT CHR$(7): GOTO 50
65 DN = VAL(D$)
80 HOME
90 VTAB 8: PRINT TAB( 6);"PLACE YO YO DIAGNOSTIC DISK": PRINT
100 PRINT TAB( 10);"INTO SLOT ";SN;" DRIVE ";DN
110 PRINT : PRINT TAB( 7);"PRESS RETURN TO CONTINUE: ";
120 GET P$: PRINT P$
130 PRINT CHR$(4);"CAT,S";SN;",D";DN
140 PRINT : PRINT : PRINT
150 VTAB 22: PRINT TAB( 6);"PRESS RETURN TO CONTINUE: ";: GET A$: PRINT A$
1000 HOME
1010 VTAB 8: HTAB 6
1020 PRINT "PLACE YO YO DIAGNOSTIC DISK"
1030 PRINT : PRINT TAB( 10);"INTO SLOT 5"
1040 VTAB 10: HTAB 20: GET S$: PRINT S$
1045 IF S$ = CHR$(13) THEN SN = 5: GOTO 1070
1050 IF S$ <"5" OR S$ >"7" THEN PRINT CHR$(7): GOTO 1040
1060 SN = VAL(S$)
1070 VTAB 10: HTAB 22: PRINT "DRIVE 1"
1080 VTAB 10: HTAB 28: GET D$: PRINT D$
1090 IF D$ = CHR$(13) THEN DN = 1: GOTO 1110
1100 IF D$ <"1" OR D$ >"2" THEN PRINT CHR$(7): GOTO 1080
1105 DN = VAL(D$)
1110 PRINT CHR$(4);"RUN HELLO2,S";SN;",D";DN

Text found in 260b_Yo_Yo_Duck_Diagnostics.dsk/CLEAR.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 A9 00 85 01 85 00 A5 00 20 5B FB A0 27 B1 28 C9 ).....%. [{ '1(I
$000010 A0 F0 0F 38 E9 01 91 28 A2 0A 86 01 AD 30 C0 CA p.8i..( "...-0@J
$000020 10 FA 88 10 E8 E6 00 A5 00 C9 18 D0 D9 A5 01 D0 .z..hf.% .I.PY%.P
$000030 CF 60 .. .. .. .. .. .. .. .. .. .. .. .. .. .. O`
** END **

Text found in 260b_Yo_Yo_Duck_Diagnostics.dsk/CURTAIN.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 8D 57 C0 8D 52 C0 8D 50 C0 A9 C0 85 F9 A2 20 86 .W@.R@.P @)@.y" .
$000010 27 86 E6 A2 00 86 26 86 FC C6 F9 F0 16 E6 FC A5 '.f"..&. |Fyp.f|%
$000020 26 85 FA A5 27 85 FB 20 05 F5 20 47 03 A6 FC E4 &.z%'.{ .u G.&|d
$000030 F9 D0 EA A5 26 85 FA A5 27 85 FB 18 69 20 85 27 yPj%&.z% '.{.i .'
$000040 20 47 03 A5 F9 D0 C6 A0 27 B1 26 91 FA 88 10 F9 G.%yPF '1&.z..y
$000050 60 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. `
** END **

Text found in 260b_Yo_Yo_Duck_Diagnostics.dsk/D.HI.RES.TEST.bas:

10 DATA 8,120,173,0,224,141,208,2,173,0,208,141,209,2,173,0,212,141,210,2,173,0,216,141,211,2,173,129,192,173,129,192,173,179,251,201,6,208,73,173
20 DATA 23,192,48,60,173,19,192,48,39,173,22,192,48,34,160,42,190,162,3,185,0,0,150,0,153,162,3,136,208,242,76,1,0,8,160,42,185,162,3,153
30 DATA 0,0,136,208,247,104,176,8,169,128,141,207,3,76,73,3,169,64,141,207,3,76,73,3,169,32,141,207,3,76,73,3,169,0,141,207,3,173,0,224
40 DATA 205,208,2,208,24,173,0,208,205,209,2,208,16,173,0,212,205,210,2,208,8,173,0,216,205,211,2,240,56,173,136,192,173,0,224,205,208,2,240,6
50 DATA 173,128,192,76,161,3,173,0,208,205,209,2,240,6,173,128,192,76,161,3,173,0,212,205,210,2,240,6,173,128,192,76,161,3,173,0,216,205,211,2
60 DATA 240,3,173,128,192,40,96,169,238,141,5,192,141,3,192,141,0,8,173,0,12,201,238,208,14,14,0,12,173,0,8,205,0,12,208,3,56,176,1,24
70 DATA 141,4,192,141,2,192,76,29,3,234
80 ALOOK = 975:START = 724
90 FOR I = 0 TO 249
100 READ BYTE
110 POKE START +I,BYTE
120 NEXT
130 CALL START
140 RESULTS = PEEK(ALOOK)
150 IF RESULTS <128 OR PEEK(64435) < >6 THEN HOME : VTAB 8: PRINT TAB( 5);"YOU MUST HAVE A IIC OR 128K IIE": PRINT : PRINT TAB( 12);"TO RUN THIS TEST ": PRINT : PRINT TAB( 14);"PRESS RETURN ";: GET A$: PRINT A$: PRINT CHR$(13); CHR$(4);"RUN HELLO2"
500 PRINT CHR$(21): HOME
510 REM : THIS PROGRAM DRAWS 16 COLOR BARS ON THE SCREEN IN DOUBLE HI-RES GRAPHICS MODE
520 REM : SOFTALK JULY, 1983
530 REM : DON D. WORTH
540 PRINT CHR$(4);"PR#3": PRINT CHR$(12): PRINT
550 VTAB 21: POKE 36,1: PRINT " ";
560 REM : DOUBLE HI-RES INITIALIZATION AN SCREEN CLEAR
570 REM
580 POKE 49154,0: POKE 49156,0: POKE 49153,0: POKE 49239,0
590 POKE 49160,0: POKE 49246,0: POKE 49232,0: POKE 49165,0
600 XB = 0
610 REM : ERASE THE GRAPHICS SCREN
620 HGR
630 POKE 49237,0: CALL 62450
640 HCOLOR= 7
650 DL = 73/16:TB = -(DL/2)
660 REM : PLOT GROUPS OF 4 DOTS IN EVERY COMBINATION
670 FOR X0 = 0 TO 1
680 FOR X1 = 0 TO 1
690 FOR X2 = 0 TO 1
700 FOR X3 = 0 TO 1
710 TB = TB +DL:T = INT(TB)
720 VTAB 21: POKE 36,T: PRINT X0: POKE 36,T: PRINT X1
730 POKE 36,T: PRINT X2: POKE 36,T: PRINT X3;
740 FOR AD = 0 TO 24 STEP 4
750 IF X0 THEN X = XB +AD: GOSUB 890
760 IF X1 THEN X = XB +1 +AD: GOSUB 890
770 IF X2 THEN X = XB +2 +AD: GOSUB 890
780 IF X3 THEN X = XB +3 +AD: GOSUB 890
790 NEXT AD
800 XB = XB +32
810 NEXT X3,X2,X1,X0
820 PRINT " ";: GET A$
830 PRINT
840 ONERR GOTO 960
850 PRINT CHR$(17)
860 PRINT CHR$(21): TEXT : HOME
870 PRINT CHR$(4);"RUN HELLO2"
880 REM : DOUBLE HI-RES VERTICAL LINE DRAW ROUTINE
890 XX = INT(X/7):PG = XX/2 - INT(XX/2)
900 XX = INT(XX/2) +((X/7 -XX))
910 XX = INT(XX *7 +.5)
920 POKE 49237,0: IF PG THEN POKE 49236,0
930 HPLOT XX,O TO XX,159
940 POKE 49236,0
950 RETURN
980 GET P$: PRINT P$
990 GOTO 870

Text found in 260b_Yo_Yo_Duck_Diagnostics.dsk/DISK.TEST2.bas:

100 REM DISK CHECK ProDOS Version
110 DATA 32,0,191,129,9,3,176,249,96,3,96,0,32,0,0,0,0,0,
120 FOR X = 768 TO 785: READ Y: POKE X,Y: NEXT X
130 TEXT : HOME : VTAB 6: HTAB 15: PRINT "DISK.TEST2"
150 PRINT : HTAB 10: PRINT "5 1/4 INCH DISKS ONLY"
160 VTAB 22: HTAB 6: PRINT "PRESS SPACEBAR TO CONTINUE: ";: POKE -16388,0: GET A$: PRINT A$
170 HOME :ND = 1
180 VTAB 4: HTAB 11: PRINT "IF DISK FAILS TEST": HTAB 10: PRINT "COMPUTER WILL CRASH!": HTAB 11: PRINT "REBOOT TO CONTINUE."
190 VTAB 12: HTAB 12: PRINT "PLACE DISK TO BE": HTAB 11: PRINT "CHECKED IN DRIVE 1"
195 VTAB 18: PRINT TAB( 13);"PRESS Q TO QUIT"
200 VTAB 20: POKE -16368,0: HTAB 6: PRINT "PRESS SPACEBAR TO CONTINUE: ";: GET A$: PRINT A$
205 IF A$ = "Q" OR A$ = "q" THEN PRINT CHR$(4);"RUN HELLO2"
210 F = 0:M = 3
220 FOR N = 1 TO M
230 POKE 771,128: POKE 780,32: POKE 778,96
250 FOR I = F TO F +55
260 P2 = INT(I/256):P1 = I -256 *P2
270 POKE 782,P2: POKE 781,P1
280 CALL 768: POKE 780, PEEK(780) +2: NEXT I
290 IF N

Text found in 260b_Yo_Yo_Duck_Diagnostics.dsk/DRIVE.CLEANER.bas:

10 REM DISK CLEANER
20 REM T. J. MANN
25 REM MODIFIED BY M.A.C.
27 ONERR GOTO 5000
30 HOME : POKE 34,2: VTAB 1: HTAB 15: PRINT "DISK CLEANER"
40 FOR I = 0 TO 30: READ J: POKE 4096 +I,J: NEXT
50 DATA 166,3,198,4,208,5,189,138
60 DATA 192,208,3,189,139,192,189,137
70 DATA 192,160,160,169,255,32,168,252
80 DATA 136,208,248,189,136,192,96
90 VTAB 5: HTAB 5: PRINT "This program will engage the motor": PRINT : PRINT "on the drive specified by the user for": PRINT : PRINT "cleaning by a cleaning disk. The drive": PRINT : PRINT "will remain ON for about 30 seconds."
100 VTAB 18: PRINT "ENTER SLOT # TO BE CLEANED: ";: GET SL$: PRINT SL$:SL% = INT( VAL(SL$)): IF SL% <1 OR SL% >7 THEN GOSUB 190: GOTO 100
110 VTAB 20: PRINT "ENTER DRIVE # TO BE CLEANED: ";: GET DR$: PRINT DR$:DR% = INT( VAL(DR$)): IF DR% <1 OR DR% >2 THEN GOSUB 190: GOTO 110
120 VTAB 22: PRINT "INSERT THE CLEANING DISK IN THE DRIVE AND PRESS SPACE TO CLEAN; 'Q' TO QUIT: ";: GET A$: PRINT A$: IF LEFT$(A$,1) = "Q" OR LEFT$(A$,1) = "q" THEN POKE 34,0: GOTO 5000
130 IF LEFT$(A$,1) < >" " THEN GOSUB 190: GOTO 120
132 IF SL% = 5 OR SL% = 2 THEN GOTO 2000
140 POKE 3, INT(SL% *16): POKE 4,DR%: HOME : VTAB 12: HTAB 16: PRINT "CLEANING": CALL 4096
150 HOME : VTAB 12: HTAB 11: PRINT "CLEANING COMPLETED"
160 VTAB 23: PRINT "SPACE TO CONTINUE; 'Q' TO QUIT: ";: GET A$: PRINT A$: IF A$ = "Q" THEN POKE 34,0: GOTO 5000
170 IF A$ < >" " THEN GOSUB 190: GOTO 160
180 HOME : GOTO 100
190 VTAB ( PEEK(37)): HTAB 1: CALL -198: HTAB 12: FLASH : PRINT "INVALID RESPONSE": FOR D = 1 TO 1000: NORMAL : NEXT : VTAB ( PEEK(37)): CALL -868: RETURN
2000 REM CLEAN SLOT 5 OR 2
2005 POKE 3, INT(SL% *16): POKE 4,DR%: HOME : VTAB 12: HTAB 16: PRINT "CLEANING"
2010 ER = 0
2015 POKE 216,0: CALL 54915
2020 ONERR GOTO 2015
2030 IF ER = 200 THEN GOTO 150
2040 ER = ER +1
2050 PRINT CHR$(4);"CATALOG,S";SL%;",D";DR%
5000 HOME
5010 VTAB 8: PRINT TAB( 5);"MAKE SURE YO YO DUCK DIAGNOSTIC"
5020 PRINT : PRINT TAB( 10);"DISK IS IN DRIVE ONE"
5030 VTAB 22: PRINT TAB( 9);"PRESS RETURN WHEN READY";: GET P$: PRINT P$
5040 PRINT CHR$(4);"RUN HELLO2"

Text found in 260b_Yo_Yo_Duck_Diagnostics.dsk/ENSONIQ.SOUNDS.bas:

10 DIM N(6,12):T = 75:V1 = 230:V2 = 190:V3 = 190:BF = 16384
20 TEXT : HOME : GOSUB 1000
30 READ F,N,D,F2,N2,F3,N3:N = N(F,N): IF NOT F THEN 80
40 CALL 768,0,N,V1,1,N(F2,N2),V2,2,N(F3,N3),V3
50 E = D *T -20:E = ABS(E):D = ABS(D) -.1:V = V1
60 FOR A = 1 TO D *T: IF A >E THEN CALL 768,0,N,V:V = V -15
70 NEXT : GOTO 30
80 TEXT : HOME : PRINT CHR$(4);"RUN HELLO2"
1000 REM Compute Frequencies
1010 FOR A = 1 TO 12: READ N(6,A): FOR B = 5 TO 1 STEP -1:N(B,A) = N(B +1,A)/2: NEXT B,A
1020 DATA 20856,22080,23400,24800,26280,27840
1030 DATA 29500,31240,33120,35080,37160,39380
1100 REM Machine Code
1110 FOR A = 768 TO 871: READ B: POKE A,B: NEXT
1120 DATA 76,30,3,175,202,0,225,9,64,141,60,192,160,0,140,63
1130 DATA 192,140,62,192,185,0,64,141,61,192,200,208,244,96,175,202
1140 DATA 0,225,141,60,192,32,76,231,134,58,32,190,222,32,103,221
1150 DATA 32,82,231,72,187,169,0,32,95,3,250,169,32,32,95,3
1160 DATA 32,76,231,169,64,32,95,3,169,128,162,0,32,95,3,169
1170 DATA 160,32,95,3,169,192,32,95,3,32,183,0,208,192,96,5
1180 DATA 58,141,62,192,142,61,192,96
1200 REM Douwnload wave form to Ensoniq RAM
1210 HGR : HCOLOR= 3:C = 128/3.1415926:YF = 160/256
1220 FOR A = 0 TO 255
1230 Y = 128 +127 * SIN(A/C): REM Sine wave
1240 HPLOT A,Y *YF: POKE BF +A,Y: NEXT
1250 VTAB 22: PRINT "Apple Computer 1977 - APPLE II FOREVER!"
1300 CALL 771
1400 RETURN
2000 REM Music Data
2010 DATA 3,1,3,0,0,0,0,3,1,1,0,0,0,0,3,3,4,1,6,0,0
2020 DATA 3,1,4,2,6,2,10,3,6,4,2,6,2,10,3,5,-4,2,1,2,11
2030 DATA 3,5,4,2,5,2,11,3,1,3,2,5,2,11,3,1,1,2,5,2,11
2040 DATA 3,3,4,2,1,2,11,3,1,4,2,5,2,11,3,8,4,2,5,2,11
2050 DATA 3,6,-4,1,6,2,10,3,6,4,2,6,2,10,3,1,3,2,6,2,10
2060 DATA 3,1,1,2,6,2,10,4,1,4,1,6,0,0,3,10,4,2,6,2,10
2070 DATA 3,6,4,2,6,2,10,3,5,4,1,11,2,8,3,3,16,1,11,2,6
2080 DATA 3,11,3,1,0,0,0,3,11,1,1,0,0,0,3,10,4,1,1,0,0
2090 DATA 3,6,4,2,1,2,10,3,8,4,2,5,2,11,3,6,12,2,10,3,1,1,0,12,0,0,0,0,0,0,0,0,0,0,0

Text found in 260b_Yo_Yo_Duck_Diagnostics.dsk/HELLO2.bas:

500 TEXT : HOME
900 ONERR GOTO 1100
1000 FOR N = 1 TO 88: READ A$: NEXT
1100 POKE 216,0: RESTORE :N = N -1: DIM A$(N):K = 1:D$ = CHR$(4)
1150 IF N >36 THEN VTAB 10: HTAB 2: PRINT "THERE ARE MORE THAN 36 MENU ITEMS":I = 0: FOR J = 1 TO 2000: NEXT : GOTO 2020
1200 T$ = "YO YO DUCK DIAGNOSTIC PROGRAMS"
1210 T2$ = "Version 2.4A (ProDOS Based)"
1250 PRINT "****************************************"
1300 VTAB 1: HTAB (19 - LEN(T$)/2): PRINT "- ";T$;" -": HTAB (19 - LEN(T2$)/2): PRINT T2$
1350 PRINT
1400 FOR I = 1 TO N: READ A$:A$(I) = A$
1500 K = ABS(K -1): IF N <10 THEN K = .5
1550 IF LEN( STR$(I)) = 1 THEN L = 2: GOTO 1600
1560 L = 1
1600 HTAB (20 *K +L): PRINT I;") "; LEFT$(A$,15);
1700 IF K = 1 THEN PRINT
1800 IF (K = 1) AND (N <19) THEN PRINT
1810 IF N <10 THEN CV = PEEK(37): PRINT : PRINT
1900 IF K = 0 THEN CV = PEEK(37)
1910 IF CV <21 THEN NEXT I
1950 VTAB (CV +3): HTAB 1: PRINT "***(CATALOG=0)**************************"
1990 ONERR GOTO 2000
1999 POKE -16368,0
2000 VTAB CV +5: HTAB 9: INPUT "ENTER PROGRAM NUMBER: ";I
2020 IF I = 0 THEN A$(0) = "CATALOG": POKE 216,0: HOME : PRINT D$;"CAT": END
2100 POKE 216,0: IF (I >N) OR (I <1) THEN 2000
2210 ONERR GOTO 2396
2310 CALL -936
2320 VTAB 10: HTAB 8: PRINT A$(I);" IS LOADING."
2395 PRINT D$;"RUN";A$(I)
2396 PRINT D$;"BRUN";A$(I)
2397 POKE 216,0: END
2400 POKE 216,0: CALL -936: VTAB 10: HTAB 8: PRINT "THE FILE ( ";A$(I);" )": VTAB 14: HTAB 11: PRINT "HAS NOT BEEN FOUND."
2410 FOR I = 1 TO 2500: NEXT : HOME : PRINT D$;"RUN MENU": NEW
10000 DATA BURNIN
10010 DATA C.D.CONNECTION,MONITOR.TEST
10020 DATA DRIVE.CLEANER
10040 DATA D.HI.RES.TEST
10050 DATA DISK.TEST2
10060 REM DATA INSTRUCTIONS
10065 DATA ENSONIQ.SOUNDS
10070 DATA HIRES.TEST,INSTRUCTIONS
10075 DATA IW2 ,IWLQ
10080 DATA JOY.PAD.TEST,KEYBOARD.TEST
10085 DATA MEMORY.TEST
10090 DATA PRINTER.TEST
10100 DATA SPEAKER.TEST
10200 DATA ZANNY.QUIT

Text found in 260b_Yo_Yo_Duck_Diagnostics.dsk/HIRES.TEST.bas:

10 REM REVISION 2-26-86
20 REM HIRES TV PATTERN GENERATOR
30 REM BY PHILIP A. WASSON
35 REM MODIFIED BY MICHAEL A. COFFEY
40 CR$ = CHR$(13)
90 REM
100 REM DISPLAY MENU
110 TEXT : HOME
120 VTAB 2: PRINT "SELECT OPTIONS:"
130 VTAB 5
140 PRINT : PRINT "1...DOT PATTERN"
150 PRINT : PRINT "2...CROSSHATCH"
160 PRINT : PRINT "3...CROSSHAIR"
170 PRINT : PRINT "4...RETURN TO MAIN MENU"
410 PRINT : VTAB 20: INVERSE : PRINT " SELECT ";: NORMAL : PRINT " ";
500 GET K$: PRINT K$
505 IF K$ <"1" OR K$ >"4" THEN PRINT CHR$(7): GOTO 410
510 ON VAL(K$) GOTO 1000,2000,3000,970
520 IF K$ = "2" THEN 2000
530 IF K$ = "3" THEN 3000
960 IF K$ < >CR$ THEN 100
970 TEXT : HOME
980 PRINT CHR$(4);"RUN HELLO2"
990 REM
1000 REM DOT PATTERN
1010 GOSUB 60010
1020 FOR Y = 12 TO 180 STEP 28
1030 FOR X = 14 TO 266 STEP 28
1040 HPLOT X,Y
1050 NEXT X,Y
1055 GET P$: PRINT P$
1060 GOTO 110
1990 REM
2000 REM CROSSHATCH
2010 GOSUB 60010
2020 FOR Y = 0 TO 180 STEP 18
2030 HPLOT 0,Y TO 279,Y
2040 NEXT
2050 FOR X = 0 TO 252 STEP 28
2060 HPLOT X,0 TO X,179
2070 NEXT
2080 HPLOT 279,0 TO 279,179
2085 GET P$: PRINT P$
2090 GOTO 110
2990 REM
3000 REM CROSSHAIR
3010 GOSUB 60010
3020 HPLOT 0,96 TO 279,96
3030 HPLOT 140,0 TO 140,191
3045 GET P$: PRINT P$
3050 GOTO 110
3990 REM
60000 REM SET HIRES GRAPHICS
60010 HGR2
60020 HCOLOR= 7
60030 RETURN

Text found in 260b_Yo_Yo_Duck_Diagnostics.dsk/SPEAKER.TEST.bas:

100 REM SPEAKER TEST IIGS
101 REM by Michael A. Coffey
110 REM BASED ON ADVICE BY P. S. DUNSEATH
120 DATA B,210,MID C,200,D,180,E,160,F,150,G,135,A,120,B,107,C,100,D,95
130 DATA 0,0
140 POKE 770,173: POKE 771,48: POKE 772,192: POKE 773,136: POKE 774,208: POKE 775,5: POKE 776,206: POKE 777,1: POKE 778,3: POKE 779,240
150 POKE 780,9: POKE 781,202: POKE 782,208: POKE 783,245: POKE 784,174: POKE 785,0: POKE 786,3: POKE 787,76: POKE 788,2: POKE 789,3: POKE 790,96
160 FOR I = 1 TO 10: READ N$(I),PITCH(I): NEXT I
165 HOME : VTAB 6: PRINT "Press Q to QUIT"
166 VTAB 8: PRINT "Press SPACEBAR for normal speed.": PRINT : PRINT "Press any other key for IIGS fast speed.": VTAB 14: HTAB 12: PRINT "Enter choice: ";: GET A$: PRINT A$
167 IF A$ = "Q" OR A$ = "q" THEN PRINT CHR$(4);"-HELLO2"
168 L = 1: IF A$ < > CHR$(32) THEN L = 3
170 HOME : VTAB 2: HTAB 14
180 PRINT "SPEAKER TEST"
190 VTAB 5: HTAB 5: PRINT "HALF NOTE ";: INVERSE : PRINT "TIME": NORMAL
200 HTAB 5: PRINT "---------"
210 VTAB 8: HTAB 5: PRINT "MUSIC": PRINT TAB( 5);"NOTE:"
220 FOR I = 1 TO 10
225 FOR K = 1 TO L
230 POKE 768,PITCH(I): POKE 769,80: CALL 770
235 NEXT K
240 VTAB 7 +I: HTAB 12: PRINT N$(I)
250 NEXT I
260 VTAB 5: HTAB 26: PRINT "FULL NOTE"
270 HTAB 26: PRINT "---------"
280 VTAB 8: HTAB 26: PRINT "MUSIC": HTAB 26: PRINT "NOTE:"
290 FOR I = 1 TO 10
300 VTAB 7 +I: HTAB 33: PRINT N$(I)
305 FOR K = 1 TO L
310 POKE 768,PITCH(I): POKE 769,180: CALL 770
315 NEXT K
320 NEXT I
330 VTAB 22: HTAB 7: PRINT "PRESS RETURN FOR MAIN MENU: ";: GET A$: PRINT A$
340 PRINT CHR$(4);"RUN HELLO2"

Text found in 260b_Yo_Yo_Duck_Diagnostics.dsk/STARTUP.bas:

90 XN = PEEK( -16384) -128
92 IF XN = 32 THEN PRINT CHR$(4);"RUN INSTAL2"
95 IF XN = 80 OR XN = 112 THEN PRINT CHR$(4);"RUN PRINTCOMP"
96 IF XN = 74 OR XN = 106 THEN CALL -1998: PRINT CHR$(4);"RUN V.JOKE"
100 IF PEEK( -16384) -128 = 27 THEN POKE -16388,0: GOTO 250
110 POKE -16384,200
120 HOME : HGR : POKE -16302,0
130 PRINT CHR$(4)"BLOADYO.YO.DUCK.LOGO"
140 POKE 770,173: POKE 771,48: POKE 772,192: POKE 773,136: POKE 774,208: POKE 775,5: POKE 776,206: POKE 777,1: POKE 778,3: POKE 779,240: POKE 780,9: POKE 781,202
150 POKE 782,208: POKE 783,245: POKE 784,174: POKE 785,0: POKE 786,3: POKE 787,76: POKE 788,2: POKE 789,3: POKE 790,96: POKE 791,0: POKE 792,0
160 READ I,J: IF J = 0 THEN 190
170 POKE 768,I: POKE 769,J: CALL 770
180 GOTO 160
190 REM
200 DATA 87,100,103,50,78,50,87,100,103,250,0,0
210 PRINT CHR$(4)"BLOAD SHAREWARE,A$4000"
220 PRINT CHR$(4)"BLOAD CURTAIN"
230 CALL 768
240 FOR I = 1 TO 1750: NEXT I
250 PRINT CHR$(4)"RUN HELLO2"

Text found in 260b_Yo_Yo_Duck_Diagnostics.dsk/V.JOKE.bas:

5 ONERR GOTO 100
10 HOME : SPEED= 240
20 V = INT( RND(1) *8) +8
25 IF V = V2 THEN 20
30 HTAB 10: VTAB V: PRINT "ADJUST VERTICAL HOLD "
40 HOME :V2 = V
50 GOTO 20
100 SPED = 255: PRINT CHR$(4);"RUN HELLO2"

Text found in 260b_Yo_Yo_Duck_Diagnostics.dsk/YOYODUCK.txt:

SIDE1

Text found in 260b_Yo_Yo_Duck_Diagnostics.dsk/ZANNY.QUIT.bas:

10 REM ZANNY QUIT BY M. A. COFFEY
20 REM SOME HELP FROM ARTICLE BY P. S. DUNSEATH
100 S$ = "@@@@@@@@@@@@@@ YO YO DUCK @@@@@@@@@@@@@@"
110 N = INT( RND(1) *3) +1
115 IF PEEK(64448) = 224 AND PEEK(65055) = 96 AND N = 1 THEN GOTO 110
116 IF PEEK(64448) = 224 AND PEEK(65055) = 176 AND N = 1 THEN GOTO 110
120 ON N GOTO 140,200,240
130 GOTO 110
140 HOME
150 FOR I = 1 TO 280
160 PRINT CHR$( INT( RND(1) *126 +33));" ";
170 NEXT I
180 PRINT CHR$(13); CHR$(4);"BRUN CLEAR"
190 END
200 HOME
210 FOR I = 1 TO 24: PRINT S$;: NEXT
220 PRINT CHR$(4);"BRUN BOUNCE"
230 END
240 HOME
250 FOR I = 1 TO 24: PRINT S$;: NEXT
260 FOR I = 24 TO 13 STEP -1: HTAB 1: VTAB I: CALL -868: VTAB (25 -I): CALL -868: FOR J = 1 TO 50: NEXT : NEXT : CALL -936: REM SCREEN WIPE FROM TOP AND BOTTOM TO MIDDLE
270 HOME
280 FOR I = 1 TO 24: PRINT S$;: NEXT
290 FOR I = 13 TO 24: HTAB 1: VTAB 1: VTAB I: CALL -868: VTAB (25 -I): CALL -868: FOR J = 1 TO 50: NEXT : NEXT : REM SCREEN WIPE FORM MIDDLE TO TOP AND BOTTOM SIMULTANEOUSLY
300 HOME
310 FOR I = 1 TO 24: PRINT S$;: NEXT
320 FOR Z = 1 TO 20:X = 20 -Z: POKE 32,X: POKE 33,(2 *Z): CALL -936: FOR I = 1 TO 50: NEXT : NEXT : REM CURTAINS
330 HOME
340 FOR I = 1 TO 24: PRINT S$;: NEXT
350 FOR I = 1 TO 12: POKE 35,I: CALL -936: POKE 34,(24 -I): CALL -936: POKE 35,24: POKE 34,0: POKE 33,I: POKE 32,(I -1): CALL -936: POKE 32,(41 -(2 *I)): CALL -936: POKE 32,0: POKE 33,40: FOR J = 1 TO 25: NEXT : NEXT : HOME