10 REM <CTRL-J><CTRL-J>HELLO (DOUBLE-TAKE)<CTRL-J><CTRL-J>
20 PRINT : PRINT CHR$(4)"NOMONICO": TEXT : NORMAL : HOME :Q$ = CHR$(34)
30 PRINT "#":A = PEEK(1024): PRINT CHR$(12): HOME : IF A < >163 THEN PRINT "SWITCH TO NORMAL TEXT SCREEN BEFORE": PRINT "RUNNING THIS PROGRAM.": STOP
40 IF PEEK(978) = 157 AND PEEK(40193) = 156 AND PEEK(1005) = 234 THEN DN$ = "": GOTO 90
50 IF PEEK(978) = 157 AND PEEK(40193) = 140 AND PEEK(1005) = 1 THEN DN$ = ".48": GOTO 90
60 IF PEEK(978) = 157 AND PEEK(40193) = 156 AND PEEK(1005) = 2 THEN DN$ = ".LC": GOTO 90
70 IF PEEK(978) > = 190 THEN DN$ = ".DM": GOTO 90
80 PRINT : HTAB 12: PRINT "NON STANDARD SETUP.": HTAB 4: PRINT "BOOT THIS DISK TO LOAD DOUBLE-TAKE.": STOP
90 HTAB 10: PRINT "D O U B L E - T A K E": PRINT : HTAB 14: INVERSE : PRINT " VERSION 2.1 ": NORMAL : PRINT : HTAB 9: PRINT "(C) 1983 MARK SIMONSEN"
100 PRINT : HTAB 5: PRINT "BEAGLE BROS MICRO SOFTWARE INC.": HTAB 6: PRINT "3990 OLD TOWN AVE, SUITE 102C": HTAB 11: PRINT "SAN DIEGO, CA 92110"
110 VTAB 11: PRINT " IMPORTANT: (11/1/85)": PRINT " ----------": PRINT : PRINT "* RUN "Q$"NOTES"Q$" FOR THE LATEST INFO."
120 PRINT : PRINT "* RUN "Q$"DOUBLE-TAKE DEMO"Q$" FOR A DEMO.": PRINT : PRINT "* IF YOU NEED TO "Q$"CONFIGURE DOUBLE-TAKE"Q$;: PRINT " THEN RUN "Q$"REMOVE DOUBLE-TAKE"Q$" FIRST.": PRINT
