MediaWiki:Sitenotice:
2024-03-02: The wiki ran out of disk space, so things were not working. This has been resolved by adding another 5GB of quota ;-) Thanks to Tim Lindner for reporting the issues.
2020-05-17: If a page gives you an error about some revision not being found, just EDIT the page and the old page should appear in the editor. If it does, just SAVE that and the page should be restored. OS-9 Al (talk) 12:22, 17 May 2020 (CDT)
House drawing with lines: Difference between revisions
Jump to navigation
Jump 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 12: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