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

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigation Jump to search
(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
  160 LINE(240,102)-(240,127),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=G2 TO 77:LINE(140,X)-(145,X),PSET:NEXT 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)-(17B,127),PSET
  290 LINE(174,127)-(176,127),PSET
  300 Y=85:F0R X=50 TO 70 STEP 4:LINE(X,Y)-(X+100,Y),PSET:Y=Y-4:NEXT X
  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*130),PSET
  360 LINE(55,130)-(90,130),PSET
  370 LINE(55,130)-(55*118),PSET
  370 LINE(55,130)-(55,118),PSET
  380 LINE(90,130)-(90*118),PSET
  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*145),PSET
  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(5,135)-(30,150),PSET
  640 LINE(95,135)-(30,150),PSET
  645 LINE(105,135)-(,5,145),PSET
  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,1l5)-(50,115),PSET:LINE(240,115)-(255,115),PSET
  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