140 IF PEEK(1015) < >149 THEN PRINT CHR$(4);"BRUN FORMATTER.BIN"
150 READ B$: READ C$: READ AA$(5)
160 HOME
170 & PRINT "THIS PART OF THE PROGRAM WILL PRINT OUT THE STRINGS USING THE BASIC FORMATTER ROUTINE. SINCE WE ARE FORMATTING 3 DIFFERENT NAMED STRINGS, WE WILL USE A DUMMY STRING NAMED ZZ$, AND SET IT EQUAL TO THE STRING WE NEED PRINTED OUT.
180 PRINT : PRINT "PRESS ANY KEY TO START DEMO ";: GET QQ$
190 HOME :ZZ$ = B$: GOSUB 100: PRINT :ZZ$ = C$: GOSUB 100: PRINT :ZZ$ = AA$(5): GOSUB 100: PRINT : PRINT "PRESS ANY KEY TO CONTINUE WITH DEMO ";: GET QQ$
200 HOME
210 & PRINT "WE WILL NOW PRINT THE SAME STRINGS, BUT WITH THE MACHINE LANGUAGE ROUTINE, ONLY THIS TIME NO TEMP STRING NEEDS TO BE SET UP. WE CAN USE THE NAME OF THE STRING TO PRINT IN THE & PRINT STATEMENT. (I.E. & PRINT B$, & PRINT AA$)."
220 PRINT : PRINT "PRESS ANY KEY TO CONTINUE ";: GET QQ$: HOME
230 & PRINT B$: PRINT : & PRINT C$: PRINT : & PRINT AA$(5): PRINT : PRINT "PRESS ANY KEY TO END DEMO ";: GET QQ$
240 HOME : & PRINT "THIS IS HOW THE 3 STRINGS WOULD LOOK IF NOT FORMATTED OUT.": PRINT : PRINT : PRINT B$: PRINT : PRINT C$: PRINT : PRINT AA$(5): PRINT : END
250 DATA "THE APPLE COMPUTER IS THE BEST HOME & BUSINESS COMPUTER ON THE MARKET TODAY AND I'M PROUD TO OWN ONE!"
260 DATA "YOU'RE IN A DEEP AND DARK CAVE. THE LIGHT FROM THE OUTSIDE, JUST SHOWS YOU A NOTE ON THE LEFT WALL, THE NOTE READS: 'GO BUY YOURSELF A 'NIBBLE' MAGAZINE AND QUIT READING CAVE WALLS!!!"
270 DATA "80 DASHES FOLLOW TO PROVE THAT THE ROUTINES CAN HANDLE NO SPACES IN A LINE. --------------------------------------------------------------------------------"
280 IF PEEK(222) = 6 THEN HOME : PRINT "THE FILE FORMATTER.BIN MUST": PRINT "BE ON THIS DISK": END