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.

  • 3 Posts
  • 36 Comments
Joined 1 year ago
cake
Cake day: June 7th, 2023

help-circle






  • Star Wars March for the Atari!

    1 GRAPHICS 2+16
    2 ? #6;"STAR WARS THEME"
    3 ? #6;"BY JOHN WILLIAMS"
    4 REM ARR. BY AARON NESS
    5 REM FROM ACE NEWSLETTER, VOL.2,NO.3, MARCH 1981
    8 FOR W=1 TO 500:NEXT W
    9 GRAPHICS 0
    10 READ S,N0,N1,N2,N3
    20 IF N0=-1 THEN END 
    25 ? S;"|";N0;"|";N1;"|";N2;"|";N3
    30 SOUND 0,N0,10,4:SOUND 1,N1,10,4
    35 SOUND 2,N2,10,4:SOUND 3,N3,10,4
    40 FOR X=1 TO S*150:NEXT X:GOTO 10
    100 DATA .3,108,0,0,0
    101 DATA 0,0,0,0,0
    102 DATA .3,108,0,0,0
    104 DATA 0,0,0,0,0
    105 DATA .2,108,0,0,0
    110 DATA 1,81,108,128,162
    111 DATA 1,81,108,128,173
    114 DATA 1,53,64,81,193
    116 DATA 1,53,64,81,217
    120 DATA .3,60,81,96,243
    122 DATA .3,64,81,96,243
    124 DATA .2,72,81,96,243
    125 DATA 1,40,53,64,128
    128 DATA 1,40,53,64,144
    129 DATA 1,53,64,81,162
    140 DATA .3,60,81,96,243
    141 DATA .3,64,81,96,243
    144 DATA .2,72,81,96,243
    145 DATA 1,40,53,64,128
    148 DATA 1,40,53,64,144
    149 DATA 1,53,64,81,162
    160 DATA .3,60,72,91,182
    161 DATA .3,64,72,91,182
    164 DATA .3,60,72,91,182
    165 DATA 2,72,85,108,217
    168 DATA .6,108,0,0,0
    169 DATA 0,0,0,0,0
    172 DATA .3,108,0,0,0
    173 DATA 0,0,0,0,0
    180 DATA 1,81,103,128,162
    181 DATA 1,81,108,128,173
    184 DATA 1,53,64,81,193
    185 DATA 1,53,64,81,217
    190 DATA .3,60,81,96,243
    191 DATA .3,64,81,96,243
    194 DATA .2,72,81,96,243
    196 DATA 1,40,53,64,128
    198 DATA 1,40,53,64,144
    199 DATA 1,53,64,81,162
    210 DATA .3,60,81,96,243
    211 DATA .3,64,81,96,243
    214 DATA .2,72,81,96,243
    215 DATA 1,40,53,64,128
    218 DATA 1,40,53,64,144
    219 DATA 1,53,64,81,162
    230 DATA .3,60,72,91,182
    231 DATA .3,64,72,91,182
    234 DATA .3,60,72,91,182
    235 DATA 1,72,85,108,217
    236 DATA .6,108,0,0,0
    237 DATA 0,0,0,0,0
    238 DATA .3,108,0,0,0
    250 DATA 1.5,96,121,162,0
    251 DATA 0,0,0,0,0
    252 DATA .5,96,0,0,217
    254 DATA .5,60,81,96,217
    255 DATA .5,64,81,96,217
    256 DATA .5,72,81,96,217
    258 DATA .5,81,81,96,217
    270 DATA .3,81,96,0,217
    271 DATA .3,72,96,0,217
    274 DATA .3,64,96,0,217
    275 DATA 1,72,0,0,217
    278 DATA .25,96,0,0,217
    279 DATA 1,85,108,144,217
    282 DATA .6,108,0,0,0
    283 DATA 0,0,0,0,0
    284 DATA .3,108,0,0,0
    290 DATA 1.5,96,121,162,217
    291 DATA 0,0,0,0,0
    292 DATA .5,96,121,162,217
    294 DATA .5,60,81,121,217
    295 DATA .5,64,81,121,217
    298 DATA .5,72,81,121,217
    299 DATA .5,0,81,121,217
    310 DATA .75,53,68,91,136
    311 DATA .25,72,0,0,0
    314 DATA 2,72,85,108,217
    315 DATA .6,108,0,0,0
    318 DATA 0,0,0,0,0
    319 DATA .3,108,0,0,0
    320 DATA 1.5,96,121,162,0
    321 DATA 0,0,0,0,0
    322 DATA .5,96,0,0,217
    324 DATA .5,60,81,96,0
    325 DATA .5,64,81,96,0
    328 DATA .5,72,81,96,217
    329 DATA .5,0,81,96,0
    340 DATA .3,81,96,121,217
    341 DATA .3,72,96,121,0
    344 DATA .3,64,96,121,0
    345 DATA .6,72,96,121,217
    348 DATA .3,0,96,0,0
    349 DATA 1,85,0,0,0
    352 DATA .6,53,0,0,217
    353 DATA 0,0,0,0,0
    354 DATA .3,53,0,0,0
    360 DATA .6,40,50,60,81
    361 DATA .3,45,60,81,128
    364 DATA .6,50,60,81,243
    365 DATA .3,53,0,81,217
    368 DATA .6,60,0,81,204
    369 DATA .3,68,0,0,182
    372 DATA .6,72,0,0,162
    373 DATA .3,81,0,0,144
    380 DATA 1,53,0,0,0
    381 DATA .1,72,85,121,217
    384 DATA 0,0,0,0,0
    385 DATA .1,72,85,121,217
    386 DATA 0,0,0,0,0
    387 DATA .1,72,85,121,217
    388 DATA 0,0,0,0,0
    389 DATA .5,72,85,121,217
    390 DATA .3,0,0,108,0
    391 DATA 0,0,0,0,0
    392 DATA .3,0,0,108,0
    393 DATA 0,0,0,0,0
    394 DATA .3,0,0,108,0
    395 DATA 0,0,0,0,0
    400 DATA 1,81,108,128,162
    401 DATA 1,81,108,128,173
    404 DATA 1,53,64,81,193
    405 DATA 1,53,64,81,217
    410 DATA .3,60,81,96,243
    411 DATA .3,64,81,96,243
    414 DATA .2,72,81,96,243
    415 DATA 1,40,53,64,128
    418 DATA 1,40,53,64,144
    419 DATA 1,53,64,81,162
    430 DATA .3,60,81,96,243
    431 DATA .3,64,81,96,243
    434 DATA .2,72,81,96,243
    435 DATA 1,40,53,64,128
    438 DATA 1,40,53,64,144
    439 DATA 1,53,64,81,162
    450 DATA .3,60,72,91,182
    451 DATA .3,64,72,91,182
    454 DATA .3,60,72,91,182
    455 DATA 2,72,85,108,217
    456 DATA .6,108,0,0,0
    457 DATA 0,0,0,0,0
    458 DATA .3,108,0,0,0
    462 DATA 0,0,0,0,0
    470 DATA 1,81,108,128,162
    471 DATA 1,81,108,128,173
    474 DATA 1,53,64,81,193
    475 DATA 1,53,64,81,217
    480 DATA .3,60,81,96,243
    481 DATA .3,64,81,96,243
    484 DATA .2,72,81,96,243
    485 DATA 1,40,53,64,128
    488 DATA 1,40,53,64,144
    489 DATA 1,53,64,81,162
    500 DATA .3,60,81,96,243
    501 DATA .3,64,81,96,243
    504 DATA .2,72,81,96,243
    505 DATA 1,40,53,64,128
    508 DATA 1,40,53,64,144
    509 DATA 1,53,64,81,162
    520 DATA .3,60,72,91,182
    521 DATA .3,64,72,91,182
    524 DATA .3,60,72,91,182
    525 DATA 2,72,85,108,217
    528 DATA 1,53,108,217,0
    530 DATA .5,0,0,0,217
    540 DATA 1,40,53,64,162
    542 DATA 1,40,53,64,173
    544 DATA 1,40,53,64,193
    546 DATA 1,40,53,64,217
    550 DATA 1,40,53,64,243
    552 DATA 1,40,53,64,217
    554 DATA 1,40,53,64,193
    556 DATA 1,40,53,64,173
    558 DATA 2,40,53,64,162
    559 DATA 0,0,0,0,0
    560 DATA .1,40,53,64,162
    561 DATA 0,0,0,0,0
    562 DATA .1,40,53,64,162
    563 DATA 0,0,0,0,0
    564 DATA .1,40,53,64,162
    565 DATA 0,0,0,0,0
    566 DATA 1.7,40,53,64,162
    600 DATA 0,-1,0,0,0
    

  • That used to be true in my country too. For some bureaucratic issues, fax was legal-binding. For example, for public health/social pharmaceutical deliveries, it acted as a valid receipt, it was “official”. I noted fax used to improve delivery times, reducing errors.

    Also there was that psychological effect of paper.

    On the Health&Edu sector, most of the secretaries were young girls and they loved to be written something after the official receipt was delivered (the first page in the call). I would write them something as a personal sidenote, and they will do the office work like a charm. Low-rank bureaucrats love to be addressed. These “Social skills” were not used on the official first page of course, but it worked! It saved me lots of headache and phone-drama.


  • Fax is vintage tech since at least a decade, but it was useful.

    My first contact with them was not on a fax machine, but using a Sportster Winmodem/fax. Faxing was possible using a Windows 3.1 computer, using QuickLink II software.

    Later on, I got this “marvelous” Panasonic KX-FT38 fax machine, with its markings in Spanish of course. A noble 300dpi device, with 20min digital recorder for voice and data (delayed thermal printing was possible). Also has an automatic cutting blade. 14.4 kilobauds of pure faxing power!

    It was so nice I even didn’t care to remove its tacky stickers.

    I used it daily. Somewhat people REPLIED to fax transmissions, as it served to speed response time on bureaucratic nonsense. Secretaries did their thing when they got a fax with their names handwritten on them. IDKW but it worked.



  • 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!


  • 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
    

  • 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

  • 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