image of READY prompt

Wang2200.org

Listing of file='COMPAT' on disk='vmedia/more_games.wvd.zip'

# Sector 459, program filename = 'COMPAT'
0010 REM *COMPAT*
   : LOAD DC T#6,"GAMES"
0020 DIM Q5$1,Q6$64,W$8,W3$3,W4$1,W$(3)8,Q4(3),Q5(3),Q1$8
0030 DIM U$10,U(12),G$(7,62)1,D$(12),N$64
0040 DIM L(3),M(3),N(3),N$(3)
0050 FOR X=1 TO 3
   : READ N$(X)
   : NEXT X
   : DATA "PHYSICAL","EMOTIONAL","INTELLECTUAL"
0060 L(1)=23
   : L(2)=28
   : L(3)=33
0070 GOSUB 340
   : SELECT PRINT 005
0080 PRINT HEX(030A0A),,"DEGREE OF CONGENIALITY CALCULATION"
0090 PRINT
   : PRINT
   : INPUT "FIRST NAME",N$
0100 INPUT "FIRST BIRTHDATE (MMDDYY)",D$
   : IF NUM(D$)<6 THEN 100
0110 CONVERT STR(D$,1,2) TO U1
   : CONVERT STR(D$,3,2) TO U2
   : CONVERT STR(D$,5,2) TO U3
   : GOSUB 350
   : GOSUB 370
   : B=U5
0111 Y=1976
   : U3=Y-100*(INT(Y/100))
   : U2=1
0112 FOR U1 =1 TO 12
   : GOSUB 350
   : GOSUB 370
   : D=U5-B
0120 PRINT
   : PRINT
   : INPUT "SECOND NAME",N1$
0130 INPUT "SECOND BIRTHDATE (MMDDYY)",D1$
   : IF NUM(D1$)<6 THEN 130
0140 CONVERT STR(D1$,1,2) TO U1
   : CONVERT STR(D1$,3,2) TO U2
   : CONVERT STR(D1$,5,2) TO U3
   : GOSUB 350
   : GOSUB 370
   : B1=U5
0150 Y=1976
   : U3=Y-100*(INT(Y/100))
   : U2=1
0155 FOR U1=1 TO 12
   :  GOSUB 350
   : GOSUB 370
   : D1=U5-B1
0160 SELECT PRINT 005 (64)
0170 PRINT HEX(030A),"DEGREE OF CONGENIALITY BETWEEN---  "
0180 PRINT HEX(0A);N$;"   ";STR(D$,1,2);"/";STR(D$,3,2);"/";STR(D$,5,2);"
     AND   ";
0200 PRINT TAB(5);N1$;"   ";STR(D1$,1,2);"/";STR(D1$,3,2);"/";STR(D1$,5,2)
   : PRINT
0210 %         BIORHYTHM BASE 1      ##       ##       ##
0220 %         BIORHYTHM BASE 2      ##       ##       ##
0230 P=D-23*INT(D/23)+1
   : S=D-28*INT(D/28)+1
   : I=D-33*INT(D/33)+1
0240 P1=D1-23*INT(D1/23)+1
   : S1=D1-28*INT(D1/28)+1
   : I1=D1-33*INT(D1/33)+1
0250 PRINTUSING 210, P, S, I
0260 PRINTUSING 220, P1, S1, I1
0265 PRINT
0270 M(1)=ABS(P1-P)
   : M(2)=ABS(S1-S)
   : M(3)=ABS(I1-I)
0280 FOR X=1 TO 3
0281 C=100/(L(X)/2)
0290 IF M(X)< INT(L(X)/2) THEN 330
0330 N(X)=(ABS(M(X)-(L(X)/2))*C)
0331 PRINTUSING 332, N$(X),L(X),N(X)
0332 %  ############ COMPATIBILITY (## DAYS)  =    ###.# PERCENT
0333 NEXT X
0334 PRINT "  ";
   : FOR X=1TO 56
   : PRINT "-";
   : NEXT X
   : PRINT
0335 PRINTUSING 336,(N(1)+N(2)+N(3))/3
0336 %  OVERALL      COMPATIBILITY            =    ###.# PERCENT
0338 PRINT
   : X=0
   : INPUT "ENTER (C/R= CONTINUE, 1= EXIT)",X
   : IF X=1THEN 10
   : GOTO 60
0340 U(1)=0
   : U(2)=31
   : U(3)=60
   : U(4)=91
   : U(5)=121
   : U(6)=152
   : U(7)=182
   : U(8)=213
   : U(9)=244
   : U(10)=274
   : U(11)=305
   : U(12)=335
   : U$="0123456789"
   : RETURN
0350 V=INT((U1-1)/12)
   : U3=U3+V
   : U1=U1-12*V
   : U4=U(U1)+U2-SGN(U3-4*INT(U3/4))*(SGN(U1-2.5)+1)/2
   : RETURN
0360 U2=U2-U(U1)
   : RETURN
0370 U5=U4+INT(365.25*(U3-1))
   : RETURN