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

User contributions for Luis46coco

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Results for Luis46coco talk block log uploads logs
A user with 2,463 edits. Account created on 7 March 2012.
Jump to navigationJump to search
Search for contributionsExpandCollapse
⧼contribs-top⧽
⧼contribs-date⧽
(newest | oldest) View ( | ) (20 | 50 | 100 | 250 | 500)

26 March 2013

25 March 2013

  • 11:3311:33, 25 March 2013 diff hist +1,895 N WJUMBLE Created page with " 100 P=0: LC=0 110 A$="": B$="":C$="":D$="" 120 CLS: PRINT@6,"JUMBLED WORD PUZZLE" 130 PRINT@64,"ENTER:" 140 PRINT@97,"JUMBLED WORD (2-6 CHR)";: INPUT N$ 150 IFLEN(N$)>1 ..."
  • 11:3211:32, 25 March 2013 diff hist +1,930 N WORDSMC Created page with " 100 DIM A(480*5): A(480*5)=0 110 CLS: R=0: C=0 120 CC=PEEK(16384+R*32+C) 130 A$=INKEY$: IF A$<>"" THEN 160 140 IF K=0 THEN POKE 16384+R*32+C,128: K=1: GOTO 130 130 POKE ..."
  • 11:3111:31, 25 March 2013 diff hist +2,100 N WORDS Created page with " 100 DIM A(480*S): A(480*S)=0 110 CLS: R=0: C=0 120 CC=PEEK(1024+K*32+C) 130 A$INKEY$: IF A$<>" THEN 160 140 IF K=0 THEN POKE 1024+R*32+C,128: K=1: GOTO 130 130 POKE 1024..."
  • 11:2911:29, 25 March 2013 diff hist +2,345 N VOCAB Created page with " 100 CLEAR: CLS: DIM T$(50,2), N(5) 110 L=0 120 IF L<50 THEN 130 125 PRINT@64,"TOO MANY TABLE ENTRIES," 127 PRINT@96,"VOCABULARY DRILL ABORTED": STOP 130 L=L+1 140 READ ..."
  • 11:2811:28, 25 March 2013 diff hist +1,715 N TRIG2 Created page with " 100 DIM AG(2), SD(3) 110 CLS: PRINT@4,"TRIGONOMETRIC FUNCTIONS" 120 PRINT@99,"QUIZ GIVEN ONE SIDE AND" 130 PRINT@131,"AND ONE ANGLE):" 140 PRINT@262,CHR$(136);: REM--DRAW..."
  • 11:2711:27, 25 March 2013 diff hist +1,824 N TRIG1 Created page with " 100 DIM AG(2), SD(3) 110 CLS: PRINT@4,"TRIGONOMETRIC FUNCTIONS" 120 PRINT@98,"FIND VALUES (ENTER ONE SIDE" 130 PRINT@130,"AND ONE ANGLE):" 140 PRINT@262,CHR$(136);: REM--..."
  • 11:2611:26, 25 March 2013 diff hist +1,815 N TOLLTIM Created page with " 100 CLS: PRINT@6,"TELEPHONE TOLL/TIMER" 110 PRINT@6,"TELEPHONE TOLL/TIMER" 120 PRINT@64,"SELECT ONE OF THE FOLLOWING:" 130 PRINT@96,"1. FIRST 3-MINUTE RATE PLUS" 140 PRIN..."
  • 11:2411:24, 25 March 2013 diff hist +1,338 N TIMPGM Created page with " 100 HH=0: MM=0: SS=0: TD$=" " 110 CLS 120 PRINT@6,"TIMER/CLOCK PROGRAM" 130 PRINT@64,"ENTER C TO BEGIN THE CLOCK, OR T FOR THE TIMER"; 140 INPUT CT$ 150 IF CT$="T"..."
  • 11:2311:23, 25 March 2013 diff hist +1,316 N TELDIR Created page with " 100 CLEAR 200 110 CLS: DIM T$(50) 120 L1=0 130 IF L1<50 THEN 160 140 PRINT@64,"TOO MANY TABLE ENTRIES," 150 PRINT@96,"TELEPHONE DIRECTORY RUN ABORTED": STOP 160 L1=L1+1..."
  • 11:2211:22, 25 March 2013 diff hist +1,360 N STATS Created page with " 100 DIM A(300) 110 I=1 120 CLS: PRINT @5,"STATISTICAL ANALYSIS" 130 PRINT @64,"ENTER NUMBER,";CHR$(13);" END BY 1E30";: INPUT A(I) 140 IF A(I)=1E+30 THEN 160 150 I=I+1: ..."
  • 11:2111:21, 25 March 2013 diff hist +2,255 N SPANISH Created page with " 100 CLEAR 500: CLS: DIM T$(50,2), N(5) 110 L=0 120 IF L<50 THEN 130 125 PRINT@64,"TOO MANY TABLE ENTRIES," 127 PRINT@96,"SPANISH DRILL ABORTED": STOP 130 L=L+1 140 READ..."
  • 11:1911:19, 25 March 2013 diff hist +2,852 N SLOT Created page with " 100 TL=0: TW=0: DIM T$(8,5) 110 CLS: PRINT@9,"SLOT MACHINE" 120 FOR I=1 TO 8 130 FOR J=1 TO 5 140 READ T$(I,J) 150 NEXT J,I 160 GOSUB390 170 GOSUB530 180 PRINT@480,"P..."
  • 11:1811:18, 25 March 2013 diff hist +1,191 N SKETCH Created page with " 100 C=1: I=2: P=3: X=32: Y=16 110 CLS(P) 120 A$=INKEY$ 130 IF AS<>"" THEN 160 140 IF C=1 THEN RESET(X,Y): SET(X,Y,I) 150 GOTO120 160 IF A$<>"Y" THEN 190 170 IF Y>1 THE..."
  • 11:1711:17, 25 March 2013 diff hist +1,001 N SAVESC Created page with " DIM A(255) SAVESC 10000 REM SCREEN TO CASSETTE SUBROUTINE 10010 FOR I=1024 TO 1534 STEP 2 10020 J=(I-1024)/2 10030 A(J)=PEEK(I)*256+PEEK(I+1) 10040 NEXT I 10050 OPEN..."
  • 11:1411:14, 25 March 2013 diff hist +761 N SAINTS Created page with " 100 DATA -1,-1,89,4,125,4,133,4,147,16,-2,-2,147,4,89,4,123,4,133,4,147,16 110 DATA -3,-3,147,4,89,4,125,4,133,4,147,8,125,8,89,8,125,8,108,16 120 DATA -4,-4,108,8,125,4,10..."
  • 11:1311:13, 25 March 2013 diff hist +1,307 N PLOTTER Created page with " 100 DIM X(100),Y(100) 110 CLS: PRINT@5,"POINT GRAPH PROGRAM" 120 PRINT@32,"INPUT MAXIMUM X VALUE";:INPUT MX 130 IF (MX<0 OR MX>1000000) THEN PRINT@32,"":GOTO 120 140 PRIN..."
  • 11:1111:11, 25 March 2013 diff hist +1,639 N OHMSLAW Created page with " 100 CLEAR 500: CLS: PRINT@11,"OHM'S LAW" 110 PRINT@64,"SELECT ONE OF THE FOLLOWING:" 120 PRINT@96, "1. GIVEN E,R, FIND I (I=E/R)" 130 PRINT@128,"2. GIVEN E,I, FIND R (R=E/..."
  • 11:1011:10, 25 March 2013 diff hist +613 N ODE Created page with " 100 DATA 170,8,170,8,176,8,185,8,185,8,176,8,170,8,159,8,147,8 110 DATA 147,8,159,8,170,8,170,12,159,4,159,16 120 DATA 170,8,170,8,176,8,185,8,185,8,176,8,170,8,159,8,147,8..."

24 March 2013

  • 23:5223:52, 24 March 2013 diff hist +850 N MUSIC Created page with " 110 DIM T(12,2) 120 DATA 38,452,58,422,78,392,89,362,108,332,125,302,133,272,147,242 125 DATA 159,212,170,182,176,132,185,122 130 FOR I=1 TO 12 140 READ T(I,1),T(I,2): NE..."
  • 23:5123:51, 24 March 2013 diff hist +2,065 N MULTDIV Created page with " 100 DIM LM(5,2), MS$(5) 110 DATA 0,9,10,99,100,999,1000,9999,10000,99999 120 DATA "GOOD WORK!","KEEP IT UP!","NICE GOING!","YOU'RE DOING GREAT" 130 DATA "FANTASTIC!" 140 ..."
  • 23:4723:47, 24 March 2013 diff hist +1,803 N MORTGAGE Created page with " 100 CLS: PRINT@6,"MORTGAGE CALCULATOR" 110 PRINT@64,"SELECT ONE OF THE FOLLOWING:" 120 PRINT@96,"1. GIVEN MONTHLY PAYMENT," 130 PRINT@131,"INTEREST RATE, AND YEARS," 140 ..."
  • 23:4523:45, 24 March 2013 diff hist +2,802 N METRIC2 Created page with " 100 CLS: PRINT@7,"METRIC CONVERSION" 110 PRINT@64,"SELECT ONE OF THE FOLLOWING:" 120 PRINT@97,"1. GALS/QTS/PTS/OZS TO LITERS" 130 PRINT@129,"2. LITERS TO GALS/QTS/PTS/OZS"..."
  • 23:3923:39, 24 March 2013 diff hist +1,716 N METRIC1 Created page with " 100 CLS: PRINT@7,"METRIC CONVERSION" 110 PRINT@64,"SELECT ONE OF THE FOLLOWING:" 120 PRINT@97,"1. KILOMETERS TO MILES" 130 PRINT@129,"2. MILES TO KILOMETERS" 140 PRINT@16..."
  • 23:3623:36, 24 March 2013 diff hist +1,980 N LABELS Created page with " 100 DIM A$(20) 110 CLS: PRINT@5,"MAILING LABEL PROGRAM" 120 NL=1: LB=6: LM=0 130 PRINT@32,"SPCL CODE SEQUENCE, Y OR N";: INPUT S$ 140 IF (S$<>"Y") AND (S$<>"N") THEN PRIN..."
  • 23:3423:34, 24 March 2013 diff hist +3,327 N INTEREST Created page with " 100 CLEAR 500: CLS: PRINT@7,"INTEREST FORMULAS" 110 PRINT@64,"SELECT ONE OF THE FOLLOWING:" 120 PRINT@96,"1. GIVEN AN INITIAL AMOUNT, HOW" 130 PRINT@131,"MUCH WILL IT RE A..."
  • 23:3123:31, 24 March 2013 diff hist +812 N GREEN Created page with " 100 DATA 125,8,147,16,159,8,170,8,170,4,176,4,170,8,159,16,140,8 110 DATA 108,12,125,4,140,8 120 DATA 147,16,125,8,125,8,125,4,117,4,125,8,140,16,117,8,78,16,125,8 130 DAT..."
  • 23:3023:30, 24 March 2013 diff hist +2,181 N GERMAN Created page with " 100 CLEAR 500: CLS: DIM T$(50,2), N(5) 110 L=0 120 IF L<50 THEN 130 125 PRINT@64,"TOO MANY TABLE ENTRIES," 127 PRINT@96,"GERMAN DRILL ABORTED": STOP 130 L=L+1 140 READ ..."
  • 23:2823:28, 24 March 2013 diff hist +2,266 N FRENCH Created page with " 100 CLEAR 500: CLS: DIM T$(50,2), N(5) 110 L=0 120 IF L<50 THEN 130 125 PRINT@64,"TOO MANY TABLE ENTRIES," 127 PRINT@96,"FRENCH DRILL ABORTED": STOP 130 L=L+1 140 READ ..."
  • 23:2723:27, 24 March 2013 diff hist +1,728 N DIETCAL Created page with " 100 CLS: PRINT@5,"DIET CALCULATOR" 110 PRINT@64,"ENTER AGE, 20 TO 65";:INPUT AG$ 120 IF (VAL(AG$)>=20) AND (VAL(AG$)<=65) THEN AG=VAL(AG$): GOTO 140 130 PRINT@64,"": GOTO ..."
  • 23:2523:25, 24 March 2013 diff hist 0 m DECCONV No edit summary
  • 23:0423:04, 24 March 2013 diff hist +2,361 N DECCONV Created page with " 100 DIM R$(16), T(6,3), T$(6,2) 110 DATA 5, 10,2,DECIMAL,BINARY,16,2,10,BINARY,DECIMAL 120 DATA 5,10,16,DECIMAL,HEXADECIMAL 130 DATA 4,16,10,HEXADECIMAL,DECIMAL,16,2,16,BI..."
  • 23:0223:02, 24 March 2013 diff hist +2,236 N CRYPTO Created page with " 100 CLEAR 500: DIM T$(36,2) 110 DATA A,B,C,D,E,F,G,H,I ,J,K,L,M,N,O,P,Q,R,S 120 DATA T,U,V,W,X,Y,Z,0, 1,2,3,4,5,6,7,8,9 130 FOR I=1 TO 36: READ T$(I,1): NEXT I 140 CLS: P..."
  • 22:5922:59, 24 March 2013 diff hist +2,591 N CODE Created page with " 90 CLEAR 300 100 DATA "-...-/",".-.-.-","-..-./","-----/" 110 DATA ".----/","..---/" 120 DATA "...--/","....-/","...../","-..../","--.../" 130 DATA "---../","----./" 140..."
  • 22:5722:57, 24 March 2013 diff hist +4,806 N CHECKS Created page with " 100 CLEAR 2000: DIM T$(100,2), LM(3,3) 110 DATA 1,74,0,76,89,75,91,100,90 120 FOR I=1 TO 100: T$(I,1)="": T$(I,2)="": NEXT I 130 FOR I=1 TO 3: READ LM(I,1), LM(I,2), LM(I,..."
  • 22:5422:54, 24 March 2013 diff hist +1,132 N CFLIP Created page with " 100 T1=0: T2=0: T3=0 110 CLS: PRINT@10,"COIN FLIPPER" 120 PRINT@64,"PRESS ANY KEY TO FLIP COIN" 130 A$=INKEY$ 140 IF A$="" THEN 130 150 PRINT@128: PRINT: PRINT: PRINT: P..."
  • 22:5222:52, 24 March 2013 diff hist +837 N CAMP Created page with " 100 DATA 176,4,176,4,159,4,176,4,185,4,176,4,159,8,-1,-1,159,4,147,8,147,4 110 DATA -2,-2,159,4,147,8,147,4,-3,-3,176,4,176,4,159,4,176,4,185,4,176,4 120 DATA 159,8,147,8,1..."
  • 22:5022:50, 24 March 2013 diff hist +2,326 N CALPGM Created page with " 100 DIM M$(12) 110 DATA JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE 120 DATA JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER 130 FOR I=1 TO 12 140 READ M$(I) 150 NEXT I 160 C..."
  • 22:4622:46, 24 March 2013 diff hist +20 m CADNZA No edit summary
  • 22:4522:45, 24 March 2013 diff hist −1,300 m BACH No edit summary
  • 22:4122:41, 24 March 2013 diff hist +2,206 N BANNER Created page with " 100 CLEAR3000 110 DIM CH(258),CL(4),R$(6),S$(6) 120 CLS: PRINT@12,"BANNER" 130 PRINT@64,"COLOR (1-8)";: INPUT CO 140 IF (CO<1 OR CO>8) THEN PRINT@64," ": GOTO 130 150 CO..."
  • 22:3822:38, 24 March 2013 diff hist +1,971 N CADNZA Created page with " 100 CLS 110 GOTO570 120 DIM CD(8,4),MD(200) 130 FOR I=1 TO 8 140 FOR J=I TO 4 150 READ CD(I,J) 160 NEXT:NEXT:I=0 170 I=I+1:READ MD(I) 180 IF MD(I)<0 THEN RETURN 190 ..."
  • 22:3422:34, 24 March 2013 diff hist +2,206 N BACH Created page with " 100 CLEAR3000 110 DIM CH(258),CL(4),R$(6),S$(6) 120 CLS: PRINT@12,"BANNER" 130 PRINT@64,"COLOR (1-8)";: INPUT CO 140 IF (CO<1 OR CO>8) THEN PRINT@64," ": GOTO 130 150 CO..."
  • 22:3022:30, 24 March 2013 diff hist +57 m AMORTIZE No edit summary
  • 22:2922:29, 24 March 2013 diff hist +2,042 N AMORTIZE Created page with "100 TP=0: TI=0: T$=" 110 CLS: PRINT@5,"AMORTIZATION SCHEDULE" 120 PRINT@64,"ENTER PRINCIPAL";: INPUT P$ 130 IF (VAL(P$)>0) AND (VAL(P$)<10000000) THEN P=VAL(P$): GOTO150 140 P..."
(newest | oldest) View ( | ) (20 | 50 | 100 | 250 | 500)
Retrieved from "https://www.cocopedia.com/wiki/Special:Contributions/Luis46coco"