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
  • 18 Comments
Joined 1 year ago
Cake day: June 7th, 2023
  • Ubuntu Peronista@lemmy.sdf.orgOPtoretrocomputing@lemmy.sdf.org•BASIC for the Masses
    1·
    6 months ago

    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
  • 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.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.orgOPtoretrocomputing@lemmy.sdf.org•Cybercirujas - Computer Trashers in Argentina
    0·
    1 year ago

    ##The Cyber Surgeons Club in Argentina

    On May 20, we were at El club del Cybercirujeo (spanish for “Cyber.-trashing Club”), a meeting/performance/showup at the Techeles Cultural Center, Alsina 1748, City of Buenos Aires, #Argentina.

    Taking advantage of the participation of ~crazyjane and ~deadguy in the organization and ~arnica who was also present, we enjoyed the arrival of ~ffuentes from Chile to Argentina. The event found us ~peron, ~jota and ~thaiel in forms that can be described as pseudophysical.

    For me it’s a great pleasure to meet them all in person, which adds to the gathering of previous days! Althought we met in the data networks for a couple of years now (including on the SDF), this encounter makes me very happy, of course.

    The event is carried out for the benefit of the cyber-trasher masses. These involves a network of organized communities framed in the recycling and development of computer equipment. They restore computers to their original design specifications, but also apply updates and modifications to give them new practicality.

    The union of the power of knowledge and the mind while focused on a great task allows them to modernize the bowels of the hardware.

    How the hackers do it

    New and more powerful memory chips beef up machines that previously could only be described as zombies. Through the implantation of seasoned electronic brains extracted from mechanical corpses, and perhaps using hearts whose format is a new solid state drive, our delusional cyber-surgeons can breathe new life into them.

    Undoubtly this needs a new soul, and not just any: the Cyber-surgeons install strongly ideologized operating systems under the banner of Free Software. These multipurpose programs are generally derivatives of the GNU Project added to Linux-type kernels: they can thus be copied, manipulated and extended freely without any imposition thanks to the licenses that specifically allow and guarantee it. So it becomes possible to revive the unearthed machines as if they were a tamed Frankenstein capable of serving the People.

    The hardware could be considered important, but we must give it the dimension that it really has: that of being a malleable tool for joint work aimed at the Liberation of men, which must be superior.

    The hacker show

    Thus we find a lightning setup that revolves around several booths of Arduino devices to draw, mixing modern hardware with handmade controllers. Those are hacks involving levers and buttons from old unserviceable arcade machines. Some devices mutate to generate sound or interact with cell phone cameras or cathode ray tube television sets, as the screens illuminate with games. An almost fossilized Commodore 64s is revived thanks to its electronic DNA. Originally it was assembled in the 80s by the suburban Drean washing machine factory.

    Some videos: https://toobnix.org/videos/embed/ab6b213a-53d4-4358-8a14-64bee1b6e17a?start=25s

    Another video: https://toobnix.org/w/irCwpgpuSjkGMzrom1NHRK

    In the #retrocomputing PC equipment area, several DOS games were made available to the public. Several old gaming PC were used, including a remarkable PC AT clones with a 12-inch amber monochrome monitor - a present from the Argentine computer past.

    In addition to being able to enjoy the classics Arkanoid, BlockOut or Prince of Persia, we tagged it by leaving a message from the hackers of texto-plano.xyz (our public UNIX community in Spanish) among the source code in the AUTOEXEC.BAT.

    As often happens, the true social network is friendship, and the Club is engendered by its mutants, who appear in dozens of colors, of all ages and genders.

    Children shall have the Right and Duty to have fun in a healthy way, without privative licenses of any kind clouding their existence. That is why at their side there was what was boldly described as “the end of the world’s largest cybercafe with recycled Linux”. Some twelve notebooks with Huayra GNU/Linux ran an Unreal-derived FPS to make such a boast. There were frenzied laser and rocket firefights, arbitrated by a router recovered from a trash bin and improved with OpenWRT, producing a wired local area network without any appreciable delay. Not bad for these little machines. None of the tech-savvy thinks those suffer from lack of power.

    https://toobnix.org/w/7HZBsqu13uNcddpBGBpYSn

    Where there is a need, there is a right.

    At the end we met a lot of people from the data network scene, and then the interactive music show are launched. Live and loud chiptune music by a lineup of maestros of the genre like Mambo Rivas, Cinematronic, Coke n Aspirin and some another in charge of speakers and video walls.

    I left listening to the most wonderful music, which for me is synthesized with Free Software.

    ~perón