🚀 go-pugleaf

    >Let me try to tone down the level of invective in this discussion by
    >not being sarcastic for once.  I will instead try to make the discussion
    >somewhat more precise by asking snarfy@cruzio.santa-cruz.ca.us what
    >is actually being claimed. [ list of reasonable concerns deleted ]


    > Matt McIrwin

     Thank you for the voice of reason, Matt. I'll be  glad  to  answer  all
   your  questions  next  week.  I'm in sort of a rush now, going on weekend
   trip , so I thought I'd leave the kiddies something to  play  with  while
   I'm  gone. It's a color graphic that works in EGA 640X350 ,but may run in
   CGA or hercules too. Load it into Basic.  Hope you like it -


     Bye now,


     Snarfy (Jim Ostrowski) ..netcom!cruzio!snarfy

--------------------------DELETE THIS LINE AND ABOVE-----------------------

10 REM SHOWTIME
15 TECHNAME$="                IT'S SHOWTIME!"
20 GOTO 140
30 IF VERT GOTO 80
40 CIRCLE (X,Y),R,C,,,.07
50 FOR I = 1 TO 5
60 CIRCLE (X,Y),R,C,,,I*.2:NEXT I
70 IF VERT THEN RETURN
80 CIRCLE (X,Y),R,C,,,1.3
90 CIRCLE (X,Y),R,C,,,1.9
100 CIRCLE (X,Y),R,C,,,3.6
110 CIRCLE (X,Y),R,C,,,9.8
120 IF VERT GOTO 40
130 RETURN
140 CLS:SCREEN 1:COLOR 1,0:KEY OFF:VERT=0
150 X=160:Y=100:C=1:R=50:GOSUB 30
160 X=160:Y=100:C=2:R=30:GOSUB 30
170 X=160:Y=100:GOSUB 30
180 X=160:Y=100:GOSUB 30
190 X=160:Y=100:GOSUB 30
200 PAINT (50,50),0
210 CIRCLE(160,100),115,,,,.45
220 LINE (70,-80)-(319,159)
230 LINE (190,-30)-(20,160)
240 COLOR 16,2:PRINT "               Hi There!  "
250 PRINT
260 LINE (20,160)-(639,160)
270 PRINT "             IT'S SHOWTIME! "
280 LINE (142,24)-(177,24)
290 FOR T = 1 TO 18
300 PRINT
310 NEXT T
320 PRINT "     Brought to you by the ILLUMINATI!"
330 PRINT "     Not just another secret order.."
340 Z$=INKEY$: IF Z$="" THEN 340
350 CLS
410 REM SHOWTIME
415 TECHNAME$="  Novus Ordo Seclorum"
420 GOTO 540
540 CLS:SCREEN 1:COLOR 1,0:KEY OFF:VERT=0
600 PAINT (50,50),0
610 CIRCLE(160,100),115,,,,.45
620 LINE (70,-80)-(319,159)
625 LINE (50,100)-(270,100)
630 LINE (190,-30)-(20,160)
640 COLOR 16,2:PRINT "                ANYMORE! "
660 LINE (20,160)-(639,160)
670 PRINT "         ";TECHNAME$
680 LINE (142,24)-(177,24)
690 FOR T = 1 TO 18
700 PRINT
710 NEXT T
715 PRINT
720 PRINT "           Means NEW WORLD ORDER!"
730 PRINT "          Want to join the Lodge?.."
740 Z$=INKEY$: IF Z$="" THEN 740
750 CLS
815 TECHNAME$=" IT'S PRONOUNCED"
820 GOTO 940
830 IF VERT GOTO 980
840 CIRCLE (X,Y),R,C,,,.07
850 FOR I = 1 TO 5
860 CIRCLE (X,Y),R,C,,,I*.2:NEXT I
870 IF VERT THEN RETURN
880 CIRCLE (X,Y),R,C,,,1.3
890 CIRCLE (X,Y),R,C,,,1.9
900 CIRCLE (X,Y),R,C,,,3.6
910 CIRCLE (X,Y),R,C,,,9.8
920 IF VERT GOTO 840
930 RETURN
940 CLS:SCREEN 1:COLOR 1,0:KEY OFF:VERT=0
950 X=160:Y=100:C=1:R=50:GOSUB 830
960 X=160:Y=100:C=2:R=30:GOSUB 830
970 X=160:Y=100:GOSUB 830
980 X=160:Y=100:GOSUB 830
990 X=160:Y=100:GOSUB 830
1000 PAINT (50,50),0
1010 CIRCLE(160,100),115,,,,.45
1020 LINE (70,-80)-(319,159)
1030 LINE (190,-30)-(20,160)
1040 COLOR 16,2:PRINT "   It's NITE ,Dave.. K-N-I-G-H-T ! "
1050 PRINT
1060 LINE (20,160)-(639,160)
1070 PRINT "              Not K-NIGGET! "
1080 LINE (142,24)-(177,24)
1090 FOR T = 1 TO 18
1100 PRINT
1110 NEXT T
1120 PRINT "             Here to There "
1130 PRINT "        in the wink of an EYE!.."
1140 Z$=INKEY$: IF Z$="" THEN 340
1150 CLS