Edge

Gallery

Source Code

   2 PRINT "INPT RAND NUMBER"
   4 INPUT P
   5 CLS 
   6 PRINT "RAND";P
   7 RAND P
   8 DIM H(1)
  10 DIM D$(1,1)
  20 DIM A$(6,1)
  25 DIM X(6)
  27 DIM M$(16,8)
  30 DIM Q(1)
  32 DIM E(1)
  35 DIM R(1)
  40 FOR Y=1 TO 4
  50 LET X(Y)=INT (RND*2)
  60 IF X(Y)=1 THEN LET A$(Y)="I"
  70 IF X(Y)=0 THEN LET A$(Y)="O"
  75 NEXT Y
  80 LET U$=A$(1)+A$(2)+A$(3)+A$(4)
  90 PRINT U$;
 100 PRINT " ";
 110 DIM N$(16,4)
 120 LET N$(1)=U$
 200 LET W=INT (RND*4)+1
 201 LET H(1)=H(1)+1
 202 IF H(1)>50 THEN GOTO 750
 203 LET D$(1)=A$(W)
 205 DIM C$(1,1)
 210 IF A$(W)="O" THEN LET C$(1)="I"
 220 IF A$(W)="I" THEN LET C$(1)="O"
 225 LET A$(W)=C$(1)
 230 LET B$=A$(1)+A$(2)+A$(3)+A$(4)
 340 LET R(1)=R(1)+1
 350 GOTO 600
 370 PRINT B$;
 375 PRINT " ";
 380 LET Q(1)=Q(1)+1
 390 LET N$(Q(1)+1)=B$
 420 GOTO 200
 600 FOR T=1 TO R(1)
 610 IF B$=N$(T) THEN GOTO 700
 620 NEXT T
 630 GOTO 370
 700 LET R(1)=R(1)-1
 705 LET A$(W)=D$(1)
 710 GOTO 200
 750 FOR I=1 TO 16
 752 LET L=I+1
 754 IF I=16 THEN LET L=1
 756 LET M$(I)=N$(I)+N$(L)
 758 NEXT I
 760 FOR C=1 TO 16
 762 FOR H=1 TO 16
 764 IF M$(C,1)=M$(C,5) AND M$(C,2)=M$(C,6) AND M$(C,1)=M$(H,1) AND M$(C,5)=M$(H,5) AND M$(C,2)=M$(H,2) AND M$(C,6)=M$(H,6) AND ((M$(C,3)<>M$(H,3) AND M$(C,7)<>M$(H,7)) OR (M$(C,4)<>M$(H,4) AND M$(C,8)<>M$(H,8))) THEN LET E(1)=E(1)+1
 774 IF M$(C,1)=M$(C,5) AND M$(C,3)=M$(C,7) AND M$(C,1)=M$(H,1) AND M$(C,5)=M$(H,5) AND M$(C,3)=M$(H,3) AND M$(C,7)=M$(H,7) AND ((M$(C,2)<>M$(H,2) AND M$(C,6)<>M$(H,6)) OR (M$(C,4)<>M$(H,4) AND M$(C,8)<>M$(H,8))) THEN LET E(1)=E(1)+1
 784 IF M$(C,2)=M$(C,6) AND M$(C,3)=M$(C,7) AND M$(C,2)=M$(H,2) AND M$(C,6)=M$(H,6) AND M$(C,3)=M$(H,3) AND M$(C,7)=M$(H,7) AND ((M$(C,1)<>M$(H,1) AND M$(C,5)<>M$(H,5)) OR (M$(C,4)<>M$(H,4) AND M$(C,8)<>M$(H,8))) THEN LET E(1)=E(1)+1
 794 IF M$(C,2)=M$(C,6) AND M$(C,4)=M$(C,8) AND M$(C,2)=M$(H,2) AND M$(C,6)=M$(H,6) AND M$(C,4)=M$(H,4) AND M$(C,8)=M$(H,8) AND ((M$(C,1)<>M$(H,1) AND M$(C,5)<>M$(H,5)) OR (M$(C,3)<>M$(H,3) AND M$(C,7)<>M$(H,7))) THEN LET E(1)=E(1)+1
 804 IF M$(C,3)=M$(C,7) AND M$(C,4)=M$(C,8) AND M$(C,3)=M$(H,3) AND M$(C,7)=M$(H,7) AND M$(C,4)=M$(H,4) AND M$(C,8)=M$(H,8) AND ((M$(C,1)<>M$(H,1) AND M$(C,5)<>M$(H,5)) OR (M$(C,2)<>M$(H,2) AND M$(C,6)<>M$(H,6))) THEN LET E(1)=E(1)+1
 814 IF M$(C,1)=M$(C,5) AND M$(C,4)=M$(C,8) AND M$(C,1)=M$(H,1) AND M$(C,5)=M$(H,5) AND M$(C,4)=M$(H,4) AND M$(C,8)=M$(H,8) AND ((M$(C,3)<>M$(H,3) AND M$(C,7)<>M$(H,7)) OR (M$(C,2)<>M$(H,2) AND M$(C,6)<>M$(H,6))) THEN LET E(1)=E(1)+1
 824 NEXT H
 834 NEXT C
 840 PRINT 
 850 PRINT "NUMBER OF SYMMETRICAL EDGES:";E(1)
 860 PRINT 
 870 PRINT "NUMBER OF ASYMMETRICAL EDGES:";48-E(1)
 880 STOP 
 890 CLEAR 
 900 SAVE "1030%9"
 910 RUN