Notes

Disk info for 111a_Music_Disk_1.dsk:

File Name: 3d0g_111a_Music_Disk_1/111a_Music_Disk_1.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 2048
Used Space (bytes): 141312
Physical Size (KB): 140
Free Space (KB): 2
Used Space (KB): 138
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 8
Used Sectors: 552
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for 111a_Music_Disk_1.dsk:

3d0g_111a_Music_Disk_1/111a_Music_Disk_1.dsk DISK VOLUME #254
A 006 HELLO
* B 050 INTBASIC
* I 005 APPLE PI SLICE 5 (MUSIC)
* I 027 SOUND OF APPLE
* I 016 TWO VOICES
* I 017 BACH WITH GRAPHICS
* I 007 SOUND EFFECTS DEMO
* I 019 SMALL WORLD
* I 005 APPLE II BUGLE CALL
* I 013 STAR BATTLE SOUNDS II
* I 003 SOUND TEST
* I 008 PATRIOTIC DISPLAY
* I 006 BIRTHDAY BY ROD
* I 013 BACH MUSIC
* A 013 SOFT-SOUNDS
T 001 SONG
T 001 NOS
A 004 JUKEBOX
A 017 JUKEBOX PROGRAM PART 1
A 014 JUKEBOX PROGRAM PART 2
B 006 TEXT
B 006 TEXT2
B 005 M.2001
B 005 M.BEN
B 003 M.IN MAY
B 003 M.TA-RA-RA-BOOM-DE-AY
B 002 M.HAPPY MOMENTS
B 003 M.OVER THE WAVES
B 002 M.MORNING SONG
B 003 M.WISH UPON A STAR
B 005 M.THE ENTERTAINER
B 018 M.SONATA
B 002 PLAYER
B 004 M.MINUET (TELEMANN)
B 005 M.MINUET (PURCELL)
B 003 M.MARCH
B 004 M.BORN FREE
B 003 M.MELODY
B 005 M.MINUET IN G
* I 009 MUSIC FOR CLOSE ENCOUNTER
* I 012 JOHANN SEBASTIAN APPLE
* I 008 LUDWIG'S FANTASY
* B 018 BACH
I 011 THE HART PIANO
* I 008 APPLE PIANO DOC
* B 002 APPLE PIANO
I 012 ANDY'S TONES
* I 007 PHILA ORGAN
* I 053 MULTI TONE
* I 021 MUSIC WRITER
DOS 3.3 format; 2,048 bytes free; 141,312 bytes used.

Text found in 111a_Music_Disk_1.dsk/HELLO.bas:

10 REM -- DOS 3.3 HELLO
20 REM
30 TEXT : PRINT
40 HOME
50 PRINT "DOS VERSION 3.3 08/25/80"
60 PRINT : PRINT "APPLE II PLUS OR ROMCARD SYSTEM MASTER"
70 REM
80 REM --POKE LANGUAGE CARD FINDER
90 POKE 768,0: POKE 769,173: POKE 770,0: POKE 771,224: POKE 772,72: POKE 773,173: POKE 774,129: POKE 775,192: POKE 776,104:
95 POKE 777,72: POKE 778,205: POKE 779,0: POKE 780,224: POKE 781,208: POKE 782,35: POKE 783,173: POKE 784,131: POKE 785,192:
100 POKE 786,173: POKE 787,131: POKE 788,192: POKE 789,169: POKE 790,165: POKE 791,141: POKE 792,0: POKE 793,208: POKE 794,205:
105 POKE 795,0: POKE 796,208: POKE 797,208: POKE 798,19: POKE 799,74: POKE 800,141: POKE 801,0: POKE 802,208: POKE 803,205:
110 POKE 804,0: POKE 805,208: POKE 806,208: POKE 807,10: POKE 808,173: POKE 809,129: POKE 810,192: POKE 811,173: POKE 812,129:
115 POKE 813,192: POKE 814,169: POKE 815,1: POKE 816,208: POKE 817,2: POKE 818,169: POKE 819,0: POKE 820,141: POKE 821,0:
120 POKE 822,3: POKE 823,104: POKE 824,205: POKE 825,0: POKE 826,224: POKE 827,240: POKE 828,3: POKE 829,173: POKE 830,128:
125 POKE 831,192: POKE 832,96:
155 CALL 769
160 IF PEEK(768) < >1 THEN 250
170 REM
180 REM --IF THERE, LOAD INTG AND PA#1
190 REM
200 VTAB 10: PRINT "(LOADING INTEGER INTO LANGUAGE CARD)"
210 PRINT "BLOAD INTBASIC,A$D000"
220 REM --WRITE PROTECT THE CARD
230 A = PEEK( -16254): REM $C082
240 END
250 REM
260 REM --NO CARD OR CAN'T RELOAD
270 REM
280 IF PEEK(768) = 0 THEN END
290 PRINT : PRINT "...LANGUAGE CARD CANNOT BE RELOADED": PRINT " UNTIL THE SYSTEM IS REBOOTED..."
300 END