100  ' this originaly appeared on the CP/M User's Group disc #21 of
 
       unknown authorship as 'APOLLO'. L.P.Biese is responsible for
 
       this version (June 1979)
 
  
110 PRINT CHR$(26):REM Screen clear
120 PRINT "       ***   THIS IS AN APOLLO SPACECRAFT MISSION   ***"
130 PRINT
140 PRINT"       A GIANT STEP FORWARD FOR MANKIND POSSIBLE ONLY"
150 PRINT"        BY THE EFFORTS OF A THOUSAND UNSUNG HEROS WHO..."
160 PRINT
170 PRINT"                    'BUT STAND AND WAIT'....(LINDBERG)
180 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
190 PRINT:PRINT"STAND BY FOR BLAST OFF":PRINT
200 FOR I=1 TO 10:PRINT CHR$(7);:FOR J=2 TO 500:NEXT J,I
210 FOR A=1 TO 100
220 NEXT A
230 LET B=11
240 LET B=B-1
250 FOR C=1 TO 750:NEXT C
260 PRINT TAB(8) B;
270 IF B=0 THEN 300
280 GOTO 240
290 END
300 PRINT
310 GOTO 340
320 FOR D=1 TO 750:NEXT D
330 IF D=749 THEN 430
340 PRINT CHR$(26)
350 PRINT "***********************************************************"
360 PRINT "***********************************************************"
370 PRINT "****              BLAST OFF!!!!!!!!                    ****"
380 PRINT "***********************************************************"
390 PRINT "***********************************************************"
400 FOR E=1 TO 200 :NEXT E
410 PRINT:PRINT:PRINT:PRINT
420 OUT 2,26
430 PRINT "                         '"
440 PRINT "                         I"
450 PRINT "                       / ^ \"
460 PRINT "                     /^^^^^^^\"
470 PRINT "                     I--USA--I"
480 PRINT "                     I-------I"
490 PRINT "                     I   A   I"
500 PRINT "                     I   P   I"
510 PRINT "                     I   O   I"
520 PRINT "                     I   L   I"
530 PRINT "                     I   L   I" 
540 PRINT "                    /    O    \"
550 PRINT "                   /           \"
560 PRINT "                  /             \"
570 PRINT "                  ---------------"
580 PRINT "                     /\  /\  /\"
590 PRINT "                   **************"  
600 PRINT "                ********************"
610 PRINT "                   *************"
620 PRINT "                      ********"
630 FOR H=1 TO 1000
640 NEXT H
650 FOR H=1 TO 30
660 PRINT"                          *"
670 PRINT"                         ***"
680 PRINT"                        ** **"
690 PRINT"                       **   **"
700 PRINT"                      *** * ***"
710 PRINT"                    ** ******  **"
720 PRINT"                        *****"
730 PRINT"                  **             **"
740 NEXT H
750 PRINT"                 ********
760 PRINT"                ********
770 PRINT"               ********
780 PRINT"             ****  *
790 PRINT"           ** *   
800 PRINT"         ***
810 PRINT"       **
820 PRINT"      **
830 PRINT"  **
840 PRINT"  **
850 PRINT"  **
860 PRINT"  **
870 PRINT"  **
880 PRINT"   **
890 PRINT"    **
900 PRINT"     **
910 PRINT"       **
920 PRINT"             **
921 PRINT"          **
922 PRINT"            **
923 PRINT"                   ***
924 PRINT"                      ***
925 PRINT "                         ***
926 PRINT"                       **
927 PRINT"                   **
928 PRINT"                   **
929 PRINT"                   **
930 PRINT"                   **
931 PRINT
932 PRINT"                  \  /
933 PRINT"               \\     //
934 PRINT"           \\\\         ////
935 PRINT"     \\\\\\\\\\\\\  ////////////////
936 PRINT
1000 PRINT "***********************************************************"
1010 PRINT "***********************************************************"
1020 PRINT "****                                                   ****"
1030 PRINT "****             BOOM!!!!!!!!!!!                       ****"
1040 PRINT "****                                                   ****"
1050 PRINT "***********************************************************"
1060 PRINT "***********************************************************"
1070 PRINT CHR$(7);
1080 FOR I=1 TO 750
1090 NEXT I
1100 OUT 2,26
1110 PRINT:PRINT
1120 PRINT:PRINT:PRINT
1130 PRINT:PRINT:PRINT
1140 PRINT"NOTHING CAN POSSIBLY GO WRONG........";
1150 FOR I=1 TO 750
1160 NEXT I
1170 PRINT"GO WRONG........";
1180 FOR I=1 TO 50: NEXT I:GOTO 1170
1190 END
NG........";
1150 FOR I=1 TO 750
1160 NEXT I
1170 PRINT"GO WRONG........";
1180 F