Ubuntu Peronista

As an active member of an Organized Community on the global data networks, I assist the Working Masses with the high goal of achieving Social Justice 2.0: Fair, Free and Sovereign software.

  • 2 Posts
  • 25 Comments
Joined 1 year ago
Cake day: June 7th, 2023
  • Ubuntu Peronista@lemmy.sdf.orgOPtoretrocomputing@lemmy.sdf.org•BASIC for the Masses
    1·
    1 year ago
    10 : CLEAR : PAUSE “Mini Moon Age Calculator “
20 : W=694098 : X=29.53 : Z=365.25 : JN=2460202.6 : REM Julian date for last moon on 25/9/2023 at 2:39am
30 : INPUT “DAY:” ; D , “MONTH:” ; M , “YEAR:” ; Y
40 : IF M<=2 LET Y=Y-1 : M=M+12
50 : A=INT(Y/100) : B=INT(A/4) : C=2-A+B : E=INT(Z * (Y+4716))
60 : F=INT(30.6001 * (M+1)) : JD=C+D+E+F-1524.5 : DS=JD-JN
70 : S=(DS/X-INT(DS/X)) * X : S=INT(S+.5)
80 : PRINT “Age of Moon “ ; USING “###.# “ ; S ; “_days” : END

    Stay SHARP!

  • Ubuntu Peronista@lemmy.sdf.orgtoAntique Memes Roadshow@lemmy.world•cowsay -- Linux command line meme generator circa 2001
    1·
    1 year ago

    I made some .cow files anyone may like.

    gaucho_hacker.cow:

    $the_cow = <<"EOC";
   $thoughts
    $thoughts    _________
         |        |                   ________
     ____|________|____       ~      |        \\
        //// _____)              ~   ||        \\_____
        _|   (o)(o)           ~    ~ ||              \\
       (o        \\|              ~   ||               \\
         |     (..)           ~    ~ ||                \\
         |    /||||\\             ~   ||                 |
         | \\     \\\\           ~    ~ |                  |
        /|  -----_\\\\__           ~   |___________----|--+
       /  \\__/_ )    ( ______ ~____      ======      wwwww8 
      / +___   (/|    )______||_--\\\\--+  -                8
     /      +--- +- \\/        /________|wwwwwwwwwwwwwwwwww8
    |________---____/
EOC

    peron.cow

    $the_cow = <<"EOC";
        $thoughts
         $thoughts  ,_____._____
     ,_.    /-_---------_\\
    /  |   ||           ||        /\\
   /  <    \\|.__.   .__.|/       | l
  |    /    |E==<   E==<|      n J |
  |  /     G|    | |    |D     \\   |
  | |      \\|  , q_p ,  |J     _|__/_
 ====       | /._____.\\ |      |\\__/|
 |   |      (   \\___J   )      |    |
 |   |      (  =.___- = )     /    /
 |   |       (.__-___,)      /    /
  \\   |____----+   |________/    /
   \\        \\   \\/   _/        /
    \\_____   \\  /   /   ______/
EOC

    17oct.cow

    $the_cow = <<"EOC";
 $thoughts
  $thoughts           _______
  \\o/        \\ peron \\     ---------
------+       \\-------    | C  G  T |
:::::::::::::::\\::::::::::|---------|:::::::::::
%%%%%%%%%%%%%%%%\\%%%%%%%%%|%%%%%%%%%|%%%%%%%%%%%
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
oooooooooooooooooooooooooooooooooooooooooooooooo
  • Ubuntu Peronista@lemmy.sdf.orgOPtoretrocomputing@lemmy.sdf.org•BASIC for the Masses
    1·
    1 year ago

    Darthmouth GRAFIX.BAS!

    100 DEF FNF(X)=SIN(X)
105 DEF FNG(X)=LOG(X)/LOG(10)
110 DEF FNR(X)=INT(X+.5)
120 DEF FNX(X)=INT(100*X+.5)/100
130 READ A,B,S
140 READ C,D,N
150 IF N<=50 THEN 180
160 PRINT "ONLY 50 SUBDIVISIONS"
170 STOP
175 :
180 H=(D-C)/N
190 PRINT ""Y-AXIS FROM ";C;" TO ";D;
195 PRINT " IN INCREMENTS OF ";H
200 PRINT
210 PRINT TAB(8);"'";
220 FOR I=1 TO N-1
230    PRINT "-";
240 NEXT I
250 PRINT "'"
255 :
260 FOR X=A TO B STEP S
270    Y=FNF(X)
272    Y1=8+FNR((Y-C)/H)
274    Y=FNG(X)
276    Y2=8+FNR((Y-C)/H)
278    PRINT FNX(X);
280    IF Y2
  • Ubuntu Peronista@lemmy.sdf.orgOPtoretrocomputing@lemmy.sdf.org•BASIC for the Masses
    1·
    1 year ago

    This a Sharp BASIC suffler for the 40 spanish card deck, for truco and other games.

    10:REM BARAJADOR MAZO DE 40 CARTAS ESPANOLAS,SHARP PC-1360
20:WAIT 0: CLS : CLEAR
30:DIM A$(41)*20,S$(0)*32,P$(0)*65
40:C=0:S$(0)="Basto   Espada  Oro     Copas"
50:P$(0)="As   Dos  Tres CuatroCincoSeis SieteSota CaballoRey"
60:FOR S=1 TO 4
70:FOR N=1 TO 10
80:C=C+1
90:A$(C)= MID$ (P$(0),(N*5)-4,5)+" de "+ MID$ (S$(0),(S*8)-5,0)
100:NEXT N: NEXT S
110:FOR C=41 TO 2 STEP - 1:A= RND (40)+1:A$(C)=A$(A):A$(A)=A$(C-1): NEXT C: BEEP 1: WAIT
120:FOR C=1 TO 40: PRINT SRT$ (C);":";A$(C): NEXT C
  • Ubuntu Peronista@lemmy.sdf.orgtoretrocomputing@lemmy.sdf.org•Commodore show this weekend in Seattle (June 24th and 25th)
    1·
    1 year ago

    Such pretty machines! The C64 was my first computer. I still remember it fondly.

    I got mine 2nd hand with its manuals and several BASIC books in spanish. A diskette drive called 1741 was presented to me for free. At first it got no software or knowledge at all, so I got playing writing “x” on the TV and erasing those. The “x” were soldiers. ASCII games could be fun, they require very few memory, but lots of human imagination…

    Then I would program BASIC games (a dice game from a large C64 book). After that a very long sound-making program called DEMOSON. It required saving it in the diskette, it took so long to write and correct errores.

    Once I learned about its routines, I used those to write my first own game: it was a Russian Roulette simulator! It included a gunshot sound from DEMOSON, some randomized routines for the revolver chamber, and even red flashing screen and a loud scream for effect. Not bad!

    It was better than play russian roulette with a real gun for sure.

    Then I got COMMANDO, a C64 run and gun game, with great music. With SPACEBAR you throw hand grenades. It’s the first diskette game I can remember. But it was so much better than my BASIC game. :D