"         ORG $300"
"*"
"* SAMPLE PROGRAM TO SHOW OFF THE FEATURES OF BASIC ASSEMBLER MODIFICATIONS"
"* BY ALBERT C. BAKER, JR."
"*"
"COUT     EQU $FDED           CHARACTER OUT MONITOR ROUTINE"
"CROUT    EQU $FC62           PRINT CARRIAGE RETURN MONITOR SUBROUTINE"
"N        EQU $6"
"BELL     EQU 7               ASCII BELL CHARACTER"
"RTNTOBAS EQU $3D0"
"         JSR CROUT           PRINT <RETURN>"
"*"
"         LDX #0              PRINT OUT TEXT OF MESSAGE"
"LOOP     LDA MESSAGE,X"
"         JSR COUT"
"         INX"
"         CPX #18             HAVE WE PRINTED WHOLE MESSAGE?"
"         BNE LOOP"
"         JSR CROUT"
"         JMP RTNTOBAS"
"*"
"* VARIOUS EXAMPLE INSTRUCTIONS"
"*"
"DATA     HEX $8D00"
"         LDA N+1"
"         STA N-1"
"         LDA <MESSAGE"
"         LDY >MESSAGE"
"         LDA #BELL"
"         JSR COUT"
"MESSAGE  ASC 'HI THERE, '"
"         ASC 'NIBBLER.'"
"         EOF"