10 REM 20 REM PROGRAM WRITTEN BY P. M. DONINI 30 REM GOODYEAR ATOMIC CORP. 40 REM PIKETON, OHIO 50 REM 60 REM SUBMITTED TO DECUS 30-JUL-73 70 REM 80 PRINT "WHERE DO YOU WANT ME TO PUT YOUR BUNNY?" 90 PRINT 100 PRINT "KB:= KEYBOARD, LP:= PRINTER, PP:= HIGH SPEED PUNCH" 110 INPUT D$ 120 IF LEN(D$)=0 THEN D$="KB:" 130 IF INSTR(1,D$,":")=0 THEN D$= D$+":" 140 PRINT "START ON A NEW SHEET OF PAPER ... HIT WHEN READY" 150 PRINT 160 PRINT 170 INPUT Z$ 180 OPEN D$ FOR OUTPUT AS FILE 1% 190 F1$= "*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*" 200 F4$= "0*0*0*0*0*0*0*0*0" 210 F1$= F1$+F4$ 220 F2$= "0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0" 230 F5$= "*0*0*0*0*0*0*0*0*" 240 F2$= F2$+F5$ 250 PRINT #1%, F2$ 260 PRINT #1%, F1$ 270 PRINT #1%,"0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*"; 280 PRINT #1%,"0*0*0*0*0*0*0* *0*0*" 290 PRINT #1%,"*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0"; 300 PRINT #1%,"*0*0*0*0*0*0* 0*0*0" 310 PRINT #1%,"0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*"; 320 PRINT #1%,"0*0*0*0*0*0 0*0*" 330 PRINT #1%,"*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0"; 340 PRINT #1%,"*0*0*0*0* 0*0" 350 PRINT #1%,"0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*"; 360 PRINT #1%,"0*0*0*0* *0*" 370 PRINT #1%,"*0 *0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0"; 380 PRINT #1%,"*0*0*0 *0" 390 PRINT #1%,"0* *0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*"; 400 PRINT #1%,"0*0*0 0*" 410 PRINT #1%,"*0 0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0"; 420 PRINT #1%,"*0*0 *0" 430 PRINT #1%,"0*0 0*0*0*0*0*0*0*0*0*0*0*0*0*0*"; 440 PRINT #1%,"0*0 0*" 450 PRINT #1%,"*0*0 *0*0*0*0*0*0*0*0*0*0*0*0*0"; 460 PRINT #1%,"*0 0*0" 470 PRINT #1%,"0*0*0 0*0*0*0*0*0*0*0*0*0*0*0*"; 480 PRINT #1%,"0* *0*" 490 PRINT #1%,"*0*0*0 0*0*0*0*0*0*0*0*0*0*0"; 500 PRINT #1%,"* 0*0" 510 PRINT #1%,"0*0*0*0 *0*0*0*0*0*0*0*0*0*"; 520 PRINT #1%,"0 *0*" 530 PRINT #1%,"*0*0*0*0 0*0*0*0*0*0*0*0"; 540 PRINT #1%,"90 *0*0" 550 PRINT #1%,"0*0*0*0*0* 0*0*0*0*0*0*0*"; 560 PRINT #1%,"0 0*0*" 570 PRINT #1%,"*0*0*0*0*0* *0*0*0*0*0*0"; 580 PRINT #1%,"* *0*0" 590 PRINT #1%,"0*0*0*0*0*0* 0*0*0*0*0"; 600 PRINT #1%,"* *0*0*" 610 PRINT #1%,"*0*0*0*0*0*0*0 0*0*0*0*"; 620 PRINT #1%,"0 *0*0*0" 630 PRINT #1%,"0*0*0*0*0*0*0*0* 0*0*0*0"; 640 PRINT #1%,"* 0*0*0*" 650 PRINT #1%,"*0*0*0*0*0*0*0*0*0* *0*0*"; 660 PRINT #1%,"0 0*0*0*0" 670 PRINT #1%,"0*0*0*0*0*0*0*0*0*0*0* *0*0"; 680 PRINT #1%,"* 0*0*0*0*" 690 PRINT #1%,"*0*0*0*0*0*0*0*0*0*0*0*0 0*"; 700 PRINT #1%,"0 0*0*0*0*0" 710 PRINT #1%,"0*0*0*0*0*0*0*0*0*0*0*0*0*0*0* 0"; 720 PRINT #1%,"* *0*0*0*0*" 730 PRINT #1%,"*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0* "; 740 PRINT #1%,"0 0*0*0*0*0*0" 750 PRINT #1%,"0*0*0*0*0*0*0*0*0*0*0*0*0*0*0 "; 760 PRINT #1%," 0*0*0*0*0*0*" 770 PRINT #1%,"*0*0*0*0*0*0*0*0*0*0*0*0* "; 780 PRINT #1%," 0*0*0*0*0*0*0" 790 PRINT #1%,"0*0*0*0*0*0*0*0*0*0*0* "; 800 PRINT #1%," 0*0*0*0*0*0*" 810 PRINT #1%,"*0*0*0*0*0*0*0*0*0* "; 820 PRINT #1%," 0*0*0*0*0*0" 830 PRINT #1%,"0*0*0*0*0*0*0*0* "; 840 PRINT #1%," *0*0*0*0*0*" 850 PRINT #1%,"*0*0*0*0*0*0*0* "; 860 PRINT #1%," *0*0*0*0*0" 870 PRINT #1%,"0*0*0*0*0*0*0 *0*0* "; 880 PRINT #1%," 0*0*0*0*0*" 890 PRINT #1%,"*0*0*0*0*0* * SEX * "; 900 PRINT #1%," *0*0*0*0*0" 910 PRINT #1%,"0*0*0*0*0* *0*0* "; 920 PRINT #1%," *0*0*0*0*" 930 PRINT #1%,"*0*0*0*0* "; 940 PRINT #1%," 0*0*0*0*0" 950 PRINT #1%,"0*0*0*0* "; 960 PRINT #1%," *0*0*0*0*" 970 PRINT #1%,"*0*0*0* "; 980 PRINT #1%," 0*0*0*0*0" 990 PRINT #1%,"0*0*0* "; 1000 PRINT #1%," *0*0*0*0*" 1010 PRINT #1%,"*0*0*0 "; 1020 PRINT #1%," 0*0*0*0*0" 1030 PRINT #1%,"0*0*0* "; 1040 PRINT #1%," 0*0*0*0*0*" 1050 PRINT #1%,"*0*0*0 "; 1060 PRINT #1%," *0*0*0*0*0" 1070 PRINT #1%,"0*0*0* "; 1080 PRINT #1%," 0*0*0*0*0*" 1090 PRINT #1%,"*0*0*0* "; 1100 PRINT #1%," *0*0*0*0*0" 1110 PRINT #1%,"0*0*0*0* "; 1120 PRINT #1%," *0*0*0*0*0*" 1130 PRINT #1%,"*0*0*0*0 "; 1140 PRINT #1%," 0*0*0*0*0*0" 1150 PRINT #1%,"0*0*0*0*0 "; 1160 PRINT #1%," 0*0*0*0*0*0*" 1170 PRINT #1%,"*0*0*0*0* "; 1180 PRINT #1%," *0*0*0*0*0*0" 1190 PRINT #1%,"0*0*0*0*0*0* "; 1200 PRINT #1%," *0*0*0*0*0*0*" 1210 PRINT #1%,"*0*0*0*0*0*0*0 "; 1220 PRINT #1%," 0*0*0*0*0*0*0" 1230 PRINT #1%,"0*0*0*0*0*0*0*0*0*0 "; 1240 PRINT #1%," 0*0*0*0*0*0*0*" 1250 PRINT #1%,"*0*0*0*0*0*0*0*0*0*0*0* "; 1260 PRINT #1%," *0*0*0*0*0*0*0" 1270 PRINT #1%,"0*0*0*0*0*0*0*0*0*0*0*0 "; 1280 PRINT #1%," *0*0*0*0*0*0*0*0*0*0*" 1290 PRINT #1%,"*0*0*0*0*0*0*0*0*0*0*0* *0*0*"; 1300 PRINT #1%,"0*0 0*0*0*0*0*0*0*0" 1310 PRINT #1%,"0*0*0*0*0*0*0*0*0*0*0*0 *0 0*0*0*0 "; 1320 PRINT #1%," *0*0*0*0*0*0*0*" 1330 PRINT #1%,"*0*0*0*0*0*0*0*0*0*0*0* 0*0* *0*0*0* "; 1340 PRINT #1%," 0*0*0*0*0*0*0*0*0*0" 1350 PRINT #1%,"0*0*0*0*0*0*0*0* *0*0*0*0*0 0*0*0 *0"; 1360 PRINT #1%,"*0*0*0*0*0*0*0*0*0*0*0*" 1370 PRINT #1%,"*0*0*0*0*0*0*0*0 *0*0*0* * *0*0*0*0*"; 1380 PRINT #1%,"0*0*0*0*0*0*0*0*0*0*0*0" 1390 PRINT #1%,"0*0*0*0*0*0*0*0* * 0 0*0*0*0*0*0*0*0"; 1400 PRINT #1%,"*0*0*0*0*0*0*0*0*0*0*0*" 1410 PRINT #1%,"*0*0*0*0*0*0*0*0 0 *0*0*0*0*0*0*0*0*0*0*"; 1420 PRINT #1%,"0*0*0*0*0*0*0*0*0*0*0*0" 1430 PRINT #1%,"0*0*0*0*0*0*0*0* 0*0*0*0 0*0*0*0*0*0*0*0*0*0*0"; 1440 PRINT #1%,"*0*0*0*0*0*0*0*0*0*0*0*" 1450 PRINT #1%,"*0*0*0*0*0*0*0*0 0*0*0*0*0* *0*0*0*0*0*0*0*0*0*0*"; 1460 PRINT #1%,"0*0*0*0*0*0*0*0*0*0*0*0" 1470 PRINT #1%, F2$ 1480 PRINT #1%, F1$ 1490 PRINT #1%, 1500 PRINT #1%, CHR$(12); :CLOSE 1% 1510 END