From the Applesoft prompt, enter 'CALL-151'
At the asterisk prompt, enter the following:
1000:A9 63 85 FE A9 14 20 2B  10 A2 23 A0 02 20 4F 10
1010:A9 08 20 2B 10 A2 00 A0  45 C6 FE 30 32 A2 46 A0
1020:24 20 4F 10 A9 17 20 2B  10 F0 D9 48 A6 FE D0 09
1030:A2 6A A0 07 20 4F 10 F0  05 A9 00 20 24 ED A0 08
1040:A6 FE CA D0 01 88 A2 27  20 4F 10 A2 2F 68 A8 BD
1050:5A 10 20 ED FD E8 88 D0  F6 60 AE 8D C7 CF A0 D4
1060:CF A0 D4 C8 C5 A0 D3 D4  CF D2 C5 A0 C1 CE C4 A0
1070:C2 D5 D9 A0 D3 CF CD C5  A0 CD CF D2 C5 AC 8D B9
1080:B9 A0 C2 CF D4 D4 CC C5  D3 A0 CF C6 A0 C2 C5 C5
1090:D2 A0 CF CE A0 D4 C8 C5  A0 D7 C1 CC CC AE 8D 8D
10A0:AE 8D D4 C1 CB C5 A0 CF  CE C5 A0 C4 CF D7 CE A0
10B0:C1 CE C4 A0 D0 C1 D3 D3  A0 C9 D4 A0 C1 D2 CF D5
10C0:CE C4 AC 8D CE CF A0 CD  CF D2 C5

To execute the program, enter '1000G' at the asterisk prompt.
To save the program to tape, enter '1000.10CAW' at the asterisk prompt
   (put the tape recorder in RECORD mode before you press RETURN)
Alternatively, you can exit the monitor with ctrl-c RETURN.
    Now you can execute with a 'CALL4096', and save to 5 1/4" floppy
    disk with 'BSAVE BOTTLESONG, A4096, L203'
Notice that '1 BOTTLE' and 'NO BOTTLES' are printed to specification.
>>>>>>>>>>>>>>>>> 65XX FOREVER!!!!!!!!!!!!!! <<<<<<<<<<<<<<<<<<