Sitenotice: 11/29/2018: The wiki is back. It turns out, some anti-virus product on my web server had an issue with the latest version of PHP. My server techs have resolved this issue, and things should be working again. During the investigation, I did restore to a backup from September. There is a chance that any changes done since then were lost, but I do not recall any edits. --OS-9 Al

8/30/2016: Massive re-work is being done on the InfoBox Templates. Read that page to keep up with the plan for that, and adding better keyword tags (categories) to all the pages. --OS-9 Al (talk) 15:28, 31 August 2016 (CDT)

House drawing with lines

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Revision as of 07:08, 11 September 2015 by Polluks (talk | contribs) (Category)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search

Just as a curiosity

Famous house drawing with lines in the radio shack catalogs House TRS-80 Microcomputer News, April 1981 Pag 11.png

FOR COLOR BASIC

5 CLS
10 PCLEAR 4
15 PMODE 3,1
17 PCLS
20 SCREEN 1,1
30 LINE(0,185)-(255,185),PSET
40 LINE(50,135)-(200,135),PSET
50 LINE(50,135)-(50,85),PSET
60 LINE(150,135)-(150,85),PSET
70 LINE(200,135)-(200,105),PSET
80 LINE(50,85)-(150,85),PSET
90 LINE(150,105)-(200,105),PSET
100 LINE(70,S5)-(170,65),PSET
110 LINE(170,85)-(220,85),PSET
120 LINE(50,85)-(70,65),PSET
130 LINE(150,85)-(170,65),PSET
140 LINE(150,105)-(170,85),PSET
150 LINE(200,105)-(220,85),PSET
160 LINE(170,65)-(190,82),PSET
170 LINE(220,85)-(240,102),PSET
175 LINE(190,82)-(90,85),PSET
180 LINE(240,102)-(240,127),PSET
190 LINE(200,135)-(240,127),PSET
200 FOR X=62 TO 77:LINE(140,X)-(145,X),PSET:NEXT X
210 FOR X=62 TO 77:LINE(145,X)-(148,X-3),PSET:NEXT X
220 LINE(140,62)-(145,59),PSET
230 LINE-(148,59),PSET
240 LINE(155,135)-(155,115),PSET
250 LINE(195,135)-(195,115),PSET
260 LINE(155,115)-(195,115),PSET
270 FOR X=115 TO 135 STEP 5:LINE (155,X)-(195,X),PSET:NEXT X
280 FOR X=122 TO 123:LINE(160,X)-(170,X),PSET:LINE(180,X)-(190,X),PSET:NEXT X
290 LINE(174,127)-(176,127),PSET
300 Y=85:FOR X=50 TO 70 STEP 4:LINE(X,Y)-(X+100,Y),PSET:Y=Y-4:NEXT X
310 Y=105:FOR X=150 TO 170 STEP 4: LINE(X,Y)-(X+50,Y),PSET: Y=Y-4:NEXT X
320 LINE(95,135)-(95,118),PSET
330 LINE(105,135)-(105,118),PSET
340 LINE(95,118)-(105,118),PSET
350 PSET(103,126,8)
360 LINE(55,130)-(90,130),PSET
370 LINE(55,130)-(55,118),PSET
380 LINE(90,130)-(90,118),PSET
390 LINE(55,118)-(90,118),PSET
400 LINE(110,130)-(145,130),PSET
410 LINE(110,130)-(110,118),PSET
420 LINE(145,130)-(145,118),PSET
430 LINE(110,118)-(145,118),PSET
440 LINE(63,100)-(67,100),PSET
450 LINE(63,100)-(63,105),PSET
460 LINE(67,100)-(67,105),PSET
470 LINE(63,105)-(67,105),PSET
480 LINE(80,100)-(85,100),PSET
490 LINE(80,100)-(80,105),PSET
500 LINE(85,100)-(85,105),PSET
510 LINE(80,105)-(85,105),PSET
520 LINE(108,100)-(113,100),PSET
530 LINE(108,100)-(108,105),PSET
540 LINE(113,100)-(113,105),PSET
550 LINE(108,105)-(113,105),PSET
560 LINE(126,100)-(131,100),PSET
570 LINE(126,100)-(126,105),PSET
580 LINE(131,100)-(131,105),PSET
590 LINE(126,105)-(131,105),PSET
600 LINE(155,135)-(105,145),PSET
605 LINE(82,150)-(20,165),PSET
610 LINE(195,135)-(60,165),PSET
620 LINE(0,165)-(20,165),PSET
630 LINE(60,165)-(255,165),PSET
640 LINE(95,135)-(30,150),PSET
645 LINE(105,135)-(95,145),PSET
650 LINE(65,145)-(105,145),PSET
660 LINE(30,150)-(82,150),PSET
670 LINE(0,115)-(50,115),PSET:LINE(240,115)-(255,115),PSET
680 GOTO 680 

FOR Extended COLOR BASIC more efficient, Now, for the creative and fancy readers. Since lines 360-590 are drawing squares and rectangles, each using four program lines, let's let Extended BASIC do some of the work for us. Delete those lines (360-590) and add these instead:

5 CLS
10 PCLEAR 4
15 PMODE 3,1
17 PCLS
20 SCREEN 1,1
30 LINE(0,185)-(255,185),PSET
40 LINE(50,135)-(200,135),PSET
50 LINE(50,135)-(50,85),PSET
60 LINE(150,135)-(150,85),PSET
70 LINE(200,135)-(200,105),PSET
80 LINE(50,85)-(150,85),PSET
90 LINE(150,105)-(200,105),PSET
100 LINE(70,S5)-(170,65),PSET
110 LINE(170,85)-(220,85),PSET
120 LINE(50,85)-(70,65),PSET
130 LINE(150,85)-(170,65),PSET
140 LINE(150,105)-(170,85),PSET
150 LINE(200,105)-(220,85),PSET
160 LINE(170,65)-(190,82),PSET
170 LINE(220,85)-(240,102),PSET
175 LINE(190,82)-(90,85),PSET
160 LINE(240,102)-(240,127),PSET
190 LINE(200,135)-(240,127),PSET
200 FOR X=G2 TO 77:LINE(140,X)-(145,X),PSET:NEXT X
210 FOR X=62 TO 77:LINE(145,X)-(148,X-3),PSET:NEXT X
220 LINE(140,62)-(145,59),PSET
230 LINE-(148,59),PSET
240 LINE(155,135)-(155,115),PSET
250 LINE(195,135)-(195,115),PSET
260 LINE(155,115)-(195,115),PSET
270 FOR X=115 TO 135 STEP 5:LINE (155,X)-(195,X),PSET:NEXT X
280 FOR X=122 TO 123:LINE(160,X)-(170,X),PSET:LINE(180,X)-(190,X),PSET:NEXT X
290 LINE(174,127)-(17B,127),PSET
300 Y=85:F0R X=50 TO 70 STEP 4:LINE(X,Y)-(X+100,Y),PSET:Y=Y-4:NEXT X
310 Y=105:FOR X=150 TO 170 STEP 4: LINE(X,Y)-(X+50,Y),PSET: Y=Y-4:NEXT X
320 LINE(95,135)-(95,118),PSET
330 LINE(105,135)-(105,118),PSET
340 LINE(95,118)-(105,118),PSET
350 PSET(103,126,8)
355 REM -------- New lines  ------
360 LINE(55,l18)-(90,130),PSET,B
400 LINE(110,130)-(145,118),PSET,B
440 LINE(63,100)-(67,105)*PSET,B
480 LINE(80,100)-(85,105)*PSET,B
520 LINE(108,100)-(113,105)*PSET,B
560 LINE(126,100)-(131,105),PSET,B
570 REM ----- End New lines -------
600 LINE(155,135)-(105*145),PSET
605 LINE(82,150)-(20,165),PSET
610 LINE(195,135)-(60,165),PSET
620 LINE(0,165)-(20,165),PSET
630 LINE(60,165)-(255,165),PSET
640 LINE(5,135)-(30,150),PSET
645 LINE(105,135)-(,5,145),PSET
650 LINE(65,145)-(105,145),PSET
660 LINE(30,150)-(82,150),PSET
670 LINE(0,1l5)-(50,115),PSET:LINE(240,115)-(255,115),PSET
680 GOTO 680