GRAPHICS GENERATOR

by John Bilton

In October's 8000 Plus we showed you how to design and print out any graphic in BASIC, Protext or Mini Office. Now John Bilton has used Larry Simon's plot routines (August issue) to automate all this.

Run the program and make your design on a 32 by 16 grid. The cursors move a marker about the grid while F and E fill and empty squares. 'S' prints your design and 'D' prints DATA followed by the numbers required to form the character.

You can then use them in a BASIC listing:

10 odd$=CHR$(27)+"L"+CHR$(15)+CHR$(0)
20 even$=odd$
30 FOR j%=l to 32:READ d%:odd$=odd$+CHR$(d%):even$=even$+CHR$(d%):NEXT j%
40 DATA (nos. in the first data statement)
50 FOR j%=1 to 32 : READ d% : NEXT j%
60 DATA (nos. in the second statement)
70 LPRINT odd$; CHR$(27)+"J"+CHR$(2)+CHR$(13); even$

This works for a graphic two characters wide. Do wider designs in parts. For a three double-characters width graphic, replace the '32' in lines 30 and 50 above by 96. The first DATA Statement in the above would hold the first lines of numbers together from each DATA statement for the three parts of the graphic as determined by the listing below. The second would hold the three second lines of numbers put together.

To incorporate the graphics in a Protext document, put the stored command >oc 27,76,32, followed by the numbers of the first line. On the next line >oc 27,74,2,13 then on the next oc 27,76,32, and the second lot of numbers. For a three double-characters width graphic, replace the 32s by 96s; run the figures from the first three lines of the DATA Statements together for the first Protext line of codes, and the three second lines together for the second.

Similarly for Mini Office. The equivalent of '>oc' is [SHIFT][ALT]X; precede all digits by [ALT]. Build up large graphics line by line.

10 GOSUB 770:GOSUB 690                                                                 0A40
20 x0=0:y0=40:xpos=30:ypos=55                                                          0CDD
30 DIM AX(64,16),t(64):PRINT CLS$;AOFF$;CUROFF$;BRIGHT$                                19E5
40 FOR z=1 TO 64:t(z)=0:NEXT z                                                         0D9F
50 FOR a=1 TO 64:FOR b=1 TO 16:AX(a,b)=0:NEXT b:NEXT a                                 16E7
60 GOSUB 620:GOTO 100                                                                  0956
70 IF AX(a%,b%)=1 THEN GOTO 100                                                        0C0F
80 f%=0:y%=eray:FOR x%=erax-7 TO erax+7:CALL plot(x%,y%,f%):NEXT                       1CD5
90 x%=erax:FOR y%=eray-3 TO eray+3:CALL plot(x%,y%,f%):NEXT                            1E85
100 f%=1:y%=ypos:FOR x%=xpos-7 TO xpos+7:CALL plot(x%,y%,f%):NEXT                      211D
110 x%=xpos:FOR y%=ypos-3 TO ypos+3:CALL PLOT(x%,y%,f%):NEXT                           1F6D
120 erax=xpos:eray=ypos                                                                0DAD
130 GOSUB 380                                                                          053F
140 k$=UPPER$(INKEY$):IF kS="" THEN 130                                                0E1A
150 num=INSTR("FESDA"+CHR$(6)+CHR$(1)+CHR$(31)+CHR$(30),k$)                            176B
160 IF k$="F" THEN GOTO 320                                                            0B3F
170 IF k$="E" THEN GOTO 310                                                            0B3D
180 IF k$="S" THEN GOTO 530                                                            0B88

190 IF k$="D" THEN GOTO 580                                                            0B54
200 IF k$="A" THEN GOTO 760                                                            0B3B
210 IF kS=CHR$(6) THEN xpos=xpos+20                                                    109A
220 IF k$=CHR$(1) THEN xpos=xpos-20                                                    109C
230 IF k$=CHR$(31) THEN ypos=ypos+10                                                   1087
240 IF k$=CHR$(30) THEN ypos=ypos-10                                                   108E
250 IF num=0 THEN PRINT BEEP$;:GOTO 130                                                11F1
260 IF xpos<30 THEN xpos=30                                                            0D5F
270 IF ypos<55 THEN ypos=55                                                            0DA8
280 IF xpos>650 THEN xpos=650                                                          0D5F
290 IF ypos>205 THEN ypos=205                                                          0D58
300 GOTO 70                                                                            046C
310 f%=0                                                                               0250
320 GOTO 470                                                                           04C1
330 FOR x%=xpos-9 TO xpos+9:FOR y%=ypos-4 TO ypos+4:CALL plot(x%,y%,f%)                264D
340 NEXT:NEXT                                                                          07C4
350 IF xpos<340 THEN xpos=xpos+20                                                      1059
360 IF xpos>340 THEN xpos=xpos-20                                                      1072

370 GOTO 100                                                                           04B5
380 IF ypos=65 OR ypos=85 THEN GOTO 430                                                120F
390 IF ypos=105 OR ypos=125 THEN GOTO 430                                              1309
400 IF ypos=145 OR ypos=165 THEN GOTO 430                                              1310
410 IF ypos=185 OR ypos=205 THEN GOTO 430                                              1320
420 a%=xpos/20-0.5:b%=ypos/20-1.75:c%=0.5:GOTO	440                                    12B5
430 a%=32+xpos/20-0.5:b%=8+ypos/20-2.25:c%=0.5:GOTO 450                                1557
440 FOR z=1 TO b%-1:c%=c%+c%:NEXT z                                                    0E6F
450 FOR s=1 TO b%-9:c%=c%+c%:NEXT                                                      0DCD
460 RETURN                                                                             0511
470 IF f%=0 THEN GOTO 500                                                              0AA5
480 IF AX(a%,b%)=1 THEN GOTO 520                                                       0C82
490 t(a%)=t(a%)+c%:AX(a%,b%)=1:GOTO 330                                                0F17
500 IF AX(a%,b%)=0 THEN GOTO 520                                                       0C69
510 t(a%)=t(a%)-c%:AX(a%,b%)=0:GOTO 330                                                0F03
520 PRINT BEEPS:GOTO 130                                                               0B0B
530 LPRINT CHR$(27)+"@":bottom$=CHR$(27)+"L"+CHR$(32)+CHR$(0)                          19D1

540 top$=bottom$                                                                       092E
550 FOR z%=33 TO 64:bottom$=bottom$+CHR$(t(z%)):NEXT z%                                1B6F
560 FOR z%=1 TO 32:top$=top$+CHR$(t(z%)):NEXT z%                                       15CB
570 LPRINT bottom$;CHR$(27)+"J"+CHR$(2)+CHR$(13);top$;:GOTO 130                        1CA8
580 LPRINT CHR$(15);"DATA ":FOR z=33 TO 64:LPRINT t(z);",";:NEXT                       1D54
590 LPRINT CHR$(27)+CHR$(10)                                                           0B9E
600 LPRINT "DATA ":FOR z=1 TO 32:LPRINT t(z);",";:NEXT                                 1A45
610 LPRINT CHR$(18):GOTO 130                                                           0C62
620 f%=1                                                                               025A
630 FOR a=1 TO 17:y0=y0+10:y%=y0:FOR x%=20 TO 660:CALL plot(x%,y%,f%):NEXT x%:NEXT a   24B1
640 FOR b=1 TO 33:x0=x0+20:x%=x0:FOR y%=50 TO 210:CALL plot(x%,y%,f%):NEXT y%:NEXT b   246F
650 PRINT FNat$(2,0);REVON$;" F - FILL "                                               103E
660 PRINT FNat$(16,0);" E - ERASE ";FNat$(31,0);" S - PRINT SYMBOL "                   1CA3

670 PRINT FNat$(53,0);" D - PRINT DATA ";FNat$(73,0);" A - ABORT ";                    1962
680 a$=STRINGS(90,95):PRINT FNat$(0,0);REVOFF$;a$;:RETURN                              1ABE
690 BEEP$=CHR$(7):AON$=CHR$(27)+CHR$(49)                                               111D
700 AOFF$=CHR$(27)+CHR$(48):CURON$=CHR$(27)+"e":CUROFF$=CHR$(27)+"f"                   1A02
710 DARK$=CHR$(27)+"b"+CHR$(0)+CHR$(27)+"c"+CHR$(0):REVON$=CHR$(27)+CHR$(112)          1DDA
720 DEF FNat$(x,y)=CHR$(27)+"Y"+CHR$(32+y)+CHR$(32+x)                                  13DF
730 CLS$=CHR$(27)+"E"+CHR$(27)+"H"                                                     0B4A
740 BRIGHT$=CHR$(27)+"b"+"?"+CHR$(27)+"c"+CHR$(0)                                      0FA4
750 REVOFF$=CHR$(27)+CHR$(113):RETURN                                                  1052
760 PRINT CLS$;AON$;CURON$;DARKS;REVOFF$;:END                                          16AE
770 MEMORY &HBFFF:plot=&HC000:A=PLOT                                                   13A5
780 RESTORE 810                                                                        06FD
790 FOR F=0 TO 14:FOR G=0 TO 7:READ X$:X=VAL("&H"+X$):POKE A,X:A=A+1:NEXT:READ X$:NEXT 2845
800 RETURN                                                                             0507

810 DATA 0A,32,7C,CD,4E,23,46,21,250                                                   0B95
820 DATA CF,02,A7,ED,42,D8,ED,43,4AF                                                   0E11
830 DATA 78,C0,EB,5E,23,56,7A,A7,41B                                                   0D03
840 DATA C0,93,3D,5F,ED,53,7A,C0,469                                                   0D35
850 DATA F3,ED,73,7D,C0,31,9D,C0,51E                                                   0DF5
860 DATA 01,36,C0,CD,5A,FC,E9,00,403                                                   0CCA
870 DATA ED,7B,7D,C0,FB,C9,2A,7A,50D                                                   0E0E
880 DATA C0,29,11,00,B6,19,5E,23,24A                                                   0C9A
890 DATA 56,7B,E6,F8,CB,27,CB,12,47E                                                   0E00
900 DATA 47,7B,E6,07,B0,5F,2A,78,360                                                   0CCA
910 DATA C0,45,7D,E6,F8,6F,EB,19,4D3                                                   0DDB
920 DATA 78,E6,07,3C,47,AF,37,1F,2ED                                                   0D94
930 DATA 10,FD,47,3A,7C,C0,A7,20,391                                                   0CE1
940 DATA 05,78,2F,A6,77,C9,3D,78,347                                                   0CC8
950 DATA 20,03,B6,77,C9,AE,77,C9,407                                                   0C91

[BASIC-Listing] und [Assembler-Listing]