MediaWiki:Sitenotice:
2025-12-29: I have restored the wiki to a backup from the end of November. Starting in September 2025, accesses went form the 800MB-1.2GB range per month to 26GB in September, 42GB in October, and 70GB in November with most accesses originating from China. As soon as I realized what was causing all the access problems in November, I shut it down (it had reached 36GB by then) behind a password/login screen. The database had gotten corrupted, and I tried a restore from just before the spike in access but that didn't work. Thus, end of November. I still have the other daily backups so if there were any important additions in December, let me know and maybe they can be recovered. - Allen H.
House drawing with lines
Just as a curiosity
Famous house drawing with lines in the radio shack catalogs
Error creating thumbnail: Unable to save thumbnail to destination
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