| MediaWiki:Sitenotice |
|---|
| 2026-03-12: Cocopedia.com is now using a new caching system that should make things faster. Please let me know if you encounter any new issues.
2026-03-15: MediaWiki has been reinstalled and the old database and files restored. It was pretty clogged up from being upgraded so many times since 2004. I am also testing out Cloudflare to see if it can prevent the 'bot assaults that took the site down last year. 2026-03-16: Special thanks to Don Barber for hosting a backup mirror of CoCopedia: https://cocopedia.dgb3.net |
House drawing with lines: Difference between revisions
From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigationJump to search
Luis46coco (talk | contribs) Created page with "Just as a curiosity Famous house drawing with lines in the radio shack catalogs File:House_TRS-80_Microcomputer_News,_April_1981_Pag_11.png<br /> '''FOR COLOR BASIC'''<b..." |
Category |
||
| (2 intermediate revisions by one other user not shown) | |||
| Line 27: | Line 27: | ||
170 LINE(220,85)-(240,102),PSET | 170 LINE(220,85)-(240,102),PSET | ||
175 LINE(190,82)-(90,85),PSET | 175 LINE(190,82)-(90,85),PSET | ||
180 LINE(240,102)-(240,127),PSET | |||
190 LINE(200,135)-(240,127),PSET | 190 LINE(200,135)-(240,127),PSET | ||
200 FOR X= | 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 | 210 FOR X=62 TO 77:LINE(145,X)-(148,X-3),PSET:NEXT X | ||
220 LINE(140,62)-(145,59),PSET | 220 LINE(140,62)-(145,59),PSET | ||
| Line 38: | Line 38: | ||
270 FOR X=115 TO 135 STEP 5:LINE (155,X)-(195,X),PSET:NEXT X | 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 | 280 FOR X=122 TO 123:LINE(160,X)-(170,X),PSET:LINE(180,X)-(190,X),PSET:NEXT X | ||
290 LINE(174,127)-( | 290 LINE(174,127)-(176,127),PSET | ||
300 Y=85: | 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 | 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 | 320 LINE(95,135)-(95,118),PSET | ||
| Line 45: | Line 45: | ||
340 LINE(95,118)-(105,118),PSET | 340 LINE(95,118)-(105,118),PSET | ||
350 PSET(103,126,8) | 350 PSET(103,126,8) | ||
360 LINE(55,130)-(90 | 360 LINE(55,130)-(90,130),PSET | ||
370 LINE(55,130)-(55 | 370 LINE(55,130)-(55,118),PSET | ||
380 LINE(90,130)-(90 | 380 LINE(90,130)-(90,118),PSET | ||
390 LINE(55,118)-(90,118),PSET | 390 LINE(55,118)-(90,118),PSET | ||
400 LINE(110,130)-(145,130),PSET | 400 LINE(110,130)-(145,130),PSET | ||
| Line 69: | Line 69: | ||
580 LINE(131,100)-(131,105),PSET | 580 LINE(131,100)-(131,105),PSET | ||
590 LINE(126,105)-(131,105),PSET | 590 LINE(126,105)-(131,105),PSET | ||
600 LINE(155,135)-(105 | 600 LINE(155,135)-(105,145),PSET | ||
605 LINE(82,150)-(20,165),PSET | 605 LINE(82,150)-(20,165),PSET | ||
610 LINE(195,135)-(60,165),PSET | 610 LINE(195,135)-(60,165),PSET | ||
620 LINE(0,165)-(20,165),PSET | 620 LINE(0,165)-(20,165),PSET | ||
630 LINE(60,165)-(255,165),PSET | 630 LINE(60,165)-(255,165),PSET | ||
640 LINE( | 640 LINE(95,135)-(30,150),PSET | ||
645 LINE(105,135)-( | 645 LINE(105,135)-(95,145),PSET | ||
650 LINE(65,145)-(105,145),PSET | 650 LINE(65,145)-(105,145),PSET | ||
660 LINE(30,150)-(82,150),PSET | 660 LINE(30,150)-(82,150),PSET | ||
670 LINE(0, | 670 LINE(0,115)-(50,115),PSET:LINE(240,115)-(255,115),PSET | ||
680 GOTO 680 | 680 GOTO 680 | ||
| Line 141: | Line 141: | ||
670 LINE(0,1l5)-(50,115),PSET:LINE(240,115)-(255,115),PSET | 670 LINE(0,1l5)-(50,115),PSET:LINE(240,115)-(255,115),PSET | ||
680 GOTO 680 | 680 GOTO 680 | ||
[[Category:BASIC]] | |||
Latest revision as of 08:08, 11 September 2015
Just as a curiosity
Famous house drawing with lines in the radio shack catalogs
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
