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)

User contributions for Luis46coco

A user with 2,463 edits. Account created on 7 March 2012.
Jump to navigation Jump to search
Search for contributionsExpandCollapse
⧼contribs-top⧽
⧼contribs-date⧽
(newest | oldest) View ( | ) (20 | 50 | 100 | 250 | 500)

27 May 2014

31 March 2014

30 March 2014

23 March 2014

13 March 2014

11 March 2014

10 March 2014

9 December 2013

6 December 2013

5 December 2013

30 November 2013

29 November 2013

18 November 2013

11 October 2013

10 October 2013

24 June 2013

23 June 2013

2 June 2013

28 May 2013

22 May 2013

21 May 2013

13 May 2013

7 May 2013

6 May 2013

5 May 2013

3 May 2013

29 April 2013

28 April 2013

27 April 2013

25 April 2013

9 April 2013

8 April 2013

7 April 2013

1 April 2013

26 March 2013

25 March 2013

  • 15:3315:33, 25 March 2013 diff hist +1,895 N WJUMBLECreated 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 ..."
  • 15:3215:32, 25 March 2013 diff hist +1,930 N WORDSMCCreated 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 ..."
  • 15:3115:31, 25 March 2013 diff hist +2,100 N WORDSCreated 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..."
  • 15:2915:29, 25 March 2013 diff hist +2,345 N VOCABCreated 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 ..."
  • 15:2815:28, 25 March 2013 diff hist +1,715 N TRIG2Created 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..."
  • 15:2715:27, 25 March 2013 diff hist +1,824 N TRIG1Created 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--..."
  • 15:2615:26, 25 March 2013 diff hist +1,815 N TOLLTIMCreated 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..."
  • 15:2415:24, 25 March 2013 diff hist +1,338 N TIMPGMCreated 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"..."
  • 15:2315:23, 25 March 2013 diff hist +1,316 N TELDIRCreated 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..."
  • 15:2215:22, 25 March 2013 diff hist +1,360 N STATSCreated 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: ..."
  • 15:2115:21, 25 March 2013 diff hist +2,255 N SPANISHCreated 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..."
  • 15:1915:19, 25 March 2013 diff hist +2,852 N SLOTCreated 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..."
  • 15:1815:18, 25 March 2013 diff hist +1,191 N SKETCHCreated 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..."
  • 15:1715:17, 25 March 2013 diff hist +1,001 N SAVESCCreated 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..."
  • 15:1415:14, 25 March 2013 diff hist +761 N SAINTSCreated 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..."
  • 15:1315:13, 25 March 2013 diff hist +1,307 N PLOTTERCreated 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..."
  • 15:1115:11, 25 March 2013 diff hist +1,639 N OHMSLAWCreated 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/..."
  • 15:1015:10, 25 March 2013 diff hist +613 N ODECreated 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..."
  • 03:5203:52, 25 March 2013 diff hist +850 N MUSICCreated 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..."
  • 03:5103:51, 25 March 2013 diff hist +2,065 N MULTDIVCreated 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 ..."
  • 03:4703:47, 25 March 2013 diff hist +1,803 N MORTGAGECreated 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 ..."
  • 03:4503:45, 25 March 2013 diff hist +2,802 N METRIC2Created 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"..."
  • 03:3903:39, 25 March 2013 diff hist +1,716 N METRIC1Created 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..."
  • 03:3603:36, 25 March 2013 diff hist +1,980 N LABELSCreated 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..."
  • 03:3403:34, 25 March 2013 diff hist +3,327 N INTERESTCreated 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..."
  • 03:3103:31, 25 March 2013 diff hist +812 N GREENCreated 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..."
  • 03:3003:30, 25 March 2013 diff hist +2,181 N GERMANCreated 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 ..."
  • 03:2803:28, 25 March 2013 diff hist +2,266 N FRENCHCreated 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 ..."
  • 03:2703:27, 25 March 2013 diff hist +1,728 N DIETCALCreated 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 ..."
  • 03:2503:25, 25 March 2013 diff hist 0 m DECCONVNo edit summary
  • 03:0403:04, 25 March 2013 diff hist +2,361 N DECCONVCreated 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..."
  • 03:0203:02, 25 March 2013 diff hist +2,236 N CRYPTOCreated 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..."
  • 02:5902:59, 25 March 2013 diff hist +2,591 N CODECreated page with " 90 CLEAR 300 100 DATA "-...-/",".-.-.-","-..-./","-----/" 110 DATA ".----/","..---/" 120 DATA "...--/","....-/","...../","-..../","--.../" 130 DATA "---../","----./" 140..."
  • 02:5702:57, 25 March 2013 diff hist +4,806 N CHECKSCreated 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,..."
  • 02:5402:54, 25 March 2013 diff hist +1,132 N CFLIPCreated 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..."
  • 02:5202:52, 25 March 2013 diff hist +837 N CAMPCreated 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..."
  • 02:5002:50, 25 March 2013 diff hist +2,326 N CALPGMCreated 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..."
  • 02:4602:46, 25 March 2013 diff hist +20 m CADNZANo edit summary
  • 02:4502:45, 25 March 2013 diff hist −1,300 m BACHNo edit summary
  • 02:4102:41, 25 March 2013 diff hist +2,206 N BANNERCreated 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..."
  • 02:3802:38, 25 March 2013 diff hist +1,971 N CADNZACreated 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 ..."
  • 02:3402:34, 25 March 2013 diff hist +2,206 N BACHCreated 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..."
  • 02:3002:30, 25 March 2013 diff hist +57 m AMORTIZENo edit summary
  • 02:2902:29, 25 March 2013 diff hist +2,042 N AMORTIZECreated 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..."
  • 01:5601:56, 25 March 2013 diff hist +83 m TRS-80 Color Computer & MC-10 ProgramsNo edit summary
  • 01:5501:55, 25 March 2013 diff hist +78 m TRS-80 Color Computer & MC-10 ProgramsNo edit summary
  • 01:4601:46, 25 March 2013 diff hist +1,781 m TRS-80 Color Computer & MC-10 ProgramsNo edit summary
  • 01:4601:46, 25 March 2013 diff hist +56 m ADDSUBNo edit summary
  • 01:4401:44, 25 March 2013 diff hist +1,679 N ADDSUBCreated page with "100 DIMLM(5,2),MS$(5) 110 DATA0,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 FORT=1TO5 ..."
  • 00:2700:27, 25 March 2013 diff hist −4 m Publications→‎Basic

22 March 2013

21 March 2013

27 February 2013

10 February 2013

9 February 2013

7 February 2013

3 February 2013

2 February 2013

(newest | oldest) View ( | ) (20 | 50 | 100 | 250 | 500)