*************************************************************** * NAME EARTH * * VERSION 3.20 *( * DATE 07/07/87 *2 * MODIFIED BY S.Y. Wu *a< ***************************************************************F SEG @ : DATA SEGMENT = 40HPDSAM$"NO"Z ndDSAM$"YES"n (( ) 0) 0 x P:: , ();"***** IMPROPER DISPLAY ADAPTOR *****"!:+ SEG? "" OSELECT$ j SELECT$ ""  SELECT$ ()  SELECT$ " "  :  SEG :    ,,& "THIS PROGRAM REQUIRES GWBASIC": ,,: I (#:: 8 : x ,: DSAM$"YES" "cafdemo" : ,,: P:: : :Q" ,: ,, K()6 I @ X  h J S (XH)x : C (XH)Zd&T X  G^ Y  X h S1 ((Y)H)x : C1 ((Y)H)Zdr (S,C)(S1,C1),| Y X : IF I = 7 THEN I = 0 A   : A. I(()):J(())E J JJd (I) (J)  (I) (J)  I,J QQ: Q ,: DSAM$"YES" "colorbar", : "EARTH" A$: A$() P: % A$""  : < ,,: "QUIZ1"