Listing of file='MODART.BAS;01' on disk='vmedia/ncc_16-sector.ccvf'
0 POKE 33289,200 1 PLOT 15,27,24 2 CLEAR 10000 4 PLOT 12,6,6 5 REM PUT HERE PLOT TO TURN OFF FLAG AND SMALL CHAR. 6 PRINT "A BASIC SYMBOL WILL BE COMPOSED OF 4 SQUARES." 7 PRINT "YOU WILL HAVE THE OPPORTUNITY OF DECIDING THE" 8 PRINT "COLOR SCHEME OF EACH SYMBOL." 9 PLOT 29 10 PLOT 6,2,2,104,120 20 PLOT 242,124,120,124,96,104,96,104,120 22 PLOT 255,2,114,120,242,114,96 24 PLOT 255,2,104,108,242,124,108 30 PLOT 255 35 A= 53:B= 3 37 C= 58:D= 6 38 PLOT 6,1 40 PLOT 3,A,B:PRINT 1:PLOT 3,C,B:PRINT 2 45 PLOT 3,A,D:PRINT 3:PLOT 3,C,D:PRINT 4 50 PLOT 3,0,5 60 SP$= CHR$ (32)+ CHR$ (32):CD$= CHR$ (10):BL$= CHR$ (16) 70 CL$= CHR$ (26)+ CHR$ (26)+ CHR$ (26)+ CHR$ (26):CU$= CHR$ (28) 100 INPUT "HOW MANY SYMBOLS ARE YOU GOING TO CREATE(2,..8)";N 105 PLOT 30 110 FOR K= 1TO N 115 GOSUB 1000 120 PLOT 3,6* K- 6,7 130 UL$(K)= CHR$ (30)+ A$(1)+ SP$+ A$(2)+ SP$+ CD$+ CL$+ A$(3)+ SP$+ A$(4)+ SP$+ BL$+ CU$ 135 UR$(K)= CHR$ (30)+ A$(2)+ SP$+ A$(1)+ SP$+ CD$+ CL$+ A$(4)+ SP$+ A$(3)+ SP$+ BL$+ CU$ 140 LL$(K)= CHR$ (30)+ A$(3)+ SP$+ A$(4)+ SP$+ CD$+ CL$+ A$(1)+ SP$+ A$(2)+ SP$+ BL$+ CU$ 145 LR$(K)= CHR$ (30)+ A$(4)+ SP$+ A$(3)+ SP$+ CD$+ CL$+ A$(2)+ SP$+ A$(1)+ SP$+ BL$+ CU$ 160 PRINT UL$(K):PLOT 3,6* (K- 1)+ 1,10:PRINT K 170 NEXT 180 PLOT 29 200 PLOT 3,0,20:FOR I= 1TO 10:PLOT 11,10:NEXT 205 GOTO 400 210 PLOT 6,6,2,61,128- 4* 14 220 PLOT 242,62+ 8* N,128- 4* 14 230 PLOT 62+ 8* N,131- 4* (15+ 2* N) 240 PLOT 61,131- 4* (15+ 2* N) 250 PLOT 61,128- 4* 14 260 PLOT 255 300 FOR I= 1TO N 310 FOR J= 1TO N 315 PLOT 3 320 PLOT 31+ 4* (J- 1),15+ 2* (I- 1) 330 PRINT N* (I- 1)+ J 340 NEXT J,I 350 PLOT 3,0,18:GOTO 410 400 PLOT 3,0,15 402 M= N 405 PRINT "HOW BIG OF A SQUARE(N X N)" 406 INPUT "INPUT N (KEEP N<=8) ";N 408 GOTO 210 410 PRINT "NOW WE PUT THE NEWLY DEFINED" 420 PRINT "SYMBOLS IN THE "N* N" POSITIONS" 430 PRINT "IN THE SQUARE TO THE RIGHT." 440 PRINT :PRINT "WHEN ASKED,PUT THE NUMBER OF" 450 PRINT "EACH SYMBOL FOR THE GIVEN" 460 PRINT "POSITION." 490 FOR I= 1TO N:FOR J= 1TO N 500 PLOT 3,0,28 510 PRINT "SYMBOL NO. FOR POSITION "; 511 FOR T= 1TO 5:PRINT CHR$ (26);:NEXT 512 PRINT N* (I- 1)+ J;:INPUT P 515 IF P< 1OR P> MTHEN 500 517 S1$(I,J)= UL$(P):S2$(I,N+ 1- J)= UR$(P) 520 S3$(N+ 1- I,J)= LL$(P):S4$(N+ 1- I,N+ 1- J)= LR$(P) 530 PLOT 3,31+ 4* (J- 1),14+ 2* (I- 1) 540 PRINT S1$(I,J) 550 NEXT J,I 600 PLOT 12 610 FOR I= 1TO N:PLOT 3,4* (8- N),2* (I- 1)+ 2* (8- N) 620 FOR J= 1TO N 630 PRINT S1$(I,J); 640 NEXT 650 FOR J= 1TO N 660 PRINT S2$(I,J); 670 NEXT J:PRINT "" 680 NEXT I 700 FOR I= 1TO N 710 PLOT 3,4* (8- N),2* (I- 1)+ 2* (8- N)+ 2* N 720 FOR J= 1TO N 730 PRINT S3$(I,J); 740 NEXT 750 FOR J= 1TO N 760 PRINT S4$(I,J); 770 NEXT 780 PRINT "" 790 NEXT I 997 PLOT 3,0,0 998 PLOT 27,11 999 POKE 33289,64:END 1000 PLOT 3,0,20:FOR I= 1TO 10:PLOT 11,10:NEXT :PLOT 3,0,20 1005 PLOT 6,3:PRINT "NOW DEFINING SYMBOL ";K:PRINT :PLOT 6,1 1010 FOR I= 1TO 4:PRINT "PRESS COLOR KEY(FOLLOWED BY RETURN) FOR SECTION "I;:INPUT A$(I) 1014 Z= 51 1015 PLOT 3,Z,21+ I:PRINT (A$(I)+ CHR$ (32)+ CHR$ (16)) 1020 NEXT :RETURN