100 REM
110 REM	PROGRAM WRITTEN BY P. M. DONINI
120 REM	GOODYEAR ATOMIC CORP.
130 REM	PIKETON, OHIO
140 REM
150 REM	SUBMITTED TO DECUS	30-JUL-73
160 REM
170 !
180 !   THIS PROGRAM WILL GIVE YOU A 
190 !     PICTURE OF YOUR SELF AS SEEN
200 !     BY THE COMPUTER.
210 !
220 INPUT "WHAT IS YOUR NAME"; N$
230 Y% = LEN(N$)
240 IF Y%>25 THEN PRINT "25 LETTER MAX." :GOTO 220
250 N% = 25 - Y%
260 M% = N% / 2%
270 PRINT "WHERE DO YOU WANT YOUR PICTURE"
280 PRINT"KB:---KEYBOARD,   LP:---PRINTER,   ";
290 PRINT "PP:---HIGH SPEED PUNCH"
300 INPUT "WHICH ONE"; A$
310 IF LEN(A$) =0 THEN A$ = "KB:"
320 IF INSTR(1,A$,":") = 0 THEN A$ = A$+":"
330 OPEN A$ AS FILE 1%
340 PRINT #1%,TAB(36);"..."
350 PRINT #1%,TAB(35);"(   )"
360 PRINT #1%,TAB(35);"( *.)"
370 PRINT #1%,TAB(35);"1"
380 PRINT #1%,TAB(35);"1"
390 PRINT #1%,TAB(34);"111"
400 PRINT #1%,TAB(31);"1..1*1..1"
410 PRINT #1%,TAB(29);"1*1       1*1"
420 PRINT #1%,TAB(27);"1.1           1.1"
430 PRINT #1%,TAB(25);"1.1";TAB(43);"1.1"
440 PRINT #1%,TAB(24);".1";TAB(45);"1."
450 PRINT #1%,TAB(23);".";TAB(47);"."
460 PRINT #1%,TAB(22);".";TAB(48);"."
470 PRINT #1%,TAB(21);".";TAB(49);"."
480 PRINT #1%,TAB(20);".";TAB(50);"."
490 PRINT #1%,TAB(19);".";TAB(51);"."
500 PRINT #1%,TAB(15);".. .";TAB(52);". .."
510 PRINT #1%,TAB(12);".*..*.     .---------.   .---------.     ";
520 PRINT #1%,".*..*."
530 PRINT #1%,TAB(12);". *  .(     ---------     ---------     ";
540 PRINT #1%, ").  * ."
550 PRINT #1%,TAB(12);"( *   1       .---.         .---.       ";
560 PRINT #1%,"1   * )"
570 PRINT #1%," . .. .. .. . .   1      *     *       *     *";
580 PRINT #1%,"      1   . . .. .. .. ."
590 PRINT #1%,"( *  *  *  ) . .  1     (  .*.  )     (  .*.  )";
600 PRINT #1%,"     1  . . (  *  *  * )"
610 PRINT #1%,"1 1  1  1  1......(.....1.(.0.).1     ";
620 PRINT #1%,"1.(.0.).1.....)......1  1  1  1 1."
630 PRINT #1%,"1 1  1  1  1--------------------1     ";
640 PRINT #1%,"1--------------------1  1  1  1 1-"
650 PRINT #1%,"1 1  1  1  1";TAB(32);"1     1";TAB(59);"1  1  1  1 1"
660 PRINT #1%,"(.1  1  1  1";TAB(32);"1     1";TAB(59);"1  1  1  1.)"
670 PRINT #1%,"  (..1  1..)";TAB(32);"1     1";TAB(59);"(..1  1..)"
680 PRINT #1%,"     (..)";TAB(32);"1     1";TAB(62);"(..)"
690 PRINT #1%,TAB(32);"(     )"
700 PRINT #1%,TAB(33);"*...*"
710 PRINT #1%,: PRINT #1%, : PRINT #1%,
720 PRINT #1%,TAB(21);"*****************************"
730 PRINT #1%,TAB(21);"*";TAB(49);"*"
740 PRINT #1%,TAB(21);"*";TAB(23+M%);N$;TAB(49);"*"
750 PRINT #1%,TAB(21);"*";TAB(49);"*"
760 PRINT #1%,TAB(21);"*****************************"
770 PRINT #1%, :PRINT #1%,
780 PRINT #1%,," YOUR PICTURE AS SEEN BY THE COMPUTER......."
790 PRINT #1%,,"COMPLIMENTS OF GOODYEAR ATOMIC RSTS-11 SYSTEM."
800 PRINT #1%,
810 PRINT #1%, CHR$(12); : CLOSE 1%
820 END