peron

peron , 15 days ago

DOS disk interface is quite mundante. It was dependant on BIOS recognition, and its not compatible with 32 GB disk at all. An 120MB or 250MB HDD was the usual MS-DOS disk sold during the 6.22 era. The firsts GB disk ware common by 1996.
By the way, 2GB is the max recognizable partition size.
Use fdisk to create a Master Boot Record, and a 2GB partition, and try it.
I tried it with ease with old 1 GB and 512MB Compact Flash cards, but I must say CF has almost direct compatibility with IDE. SD cards require an adapter controller (you seems to have one of those, tho).

peron OP , 8 months ago

<span style="color:#323232;">1  REM TEST YOUR INPUT AND THEN
</span><span style="color:#323232;">10 PRINT "DO YOU EAT YOUR BOUGHS??"
</span><span style="color:#323232;">20 INPUT X
</span><span style="color:#323232;">30 IF X="YES" THEN PRINT "YOU PIG!.": END
</span><span style="color:#323232;">40 IF X="NO" THEN PRINT "WHAT ARE YOU WAITING FOR TO TRY?"
</span><span style="color:#323232;">50 END
</span>

peron OP , 8 months ago

My BMI has been nicely calculated in your BASIC dialect!

peron OP , 8 months ago

Today Euclid would be programming in BASIC.

peron OP , 8 months ago

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

<span style="color:#323232;">10:REM BARAJADOR MAZO DE 40 CARTAS ESPANOLAS,SHARP PC-1360
</span><span style="color:#323232;">20:WAIT 0: CLS : CLEAR
</span><span style="color:#323232;">30:DIM A$(41)*20,S$(0)*32,P$(0)*65
</span><span style="color:#323232;">40:C=0:S$(0)="Basto   Espada  Oro     Copas"
</span><span style="color:#323232;">50:P$(0)="As   Dos  Tres CuatroCincoSeis SieteSota CaballoRey"
</span><span style="color:#323232;">60:FOR S=1 TO 4
</span><span style="color:#323232;">70:FOR N=1 TO 10
</span><span style="color:#323232;">80:C=C+1
</span><span style="color:#323232;">90:A$(C)= MID$ (P$(0),(N*5)-4,5)+" de "+ MID$ (S$(0),(S*8)-5,0)
</span><span style="color:#323232;">100:NEXT N: NEXT S
</span><span style="color:#323232;">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
</span><span style="color:#323232;">120:FOR C=1 TO 40: PRINT SRT$ (C);":";A$(C): NEXT C
</span>

peron OP , 8 months ago

Darthmouth GRAFIX.BAS!

<span style="color:#323232;">100 DEF FNF(X)=SIN(X)
</span><span style="color:#323232;">105 DEF FNG(X)=LOG(X)/LOG(10)
</span><span style="color:#323232;">110 DEF FNR(X)=INT(X+.5)
</span><span style="color:#323232;">120 DEF FNX(X)=INT(100*X+.5)/100
</span><span style="color:#323232;">130 READ A,B,S
</span><span style="color:#323232;">140 READ C,D,N
</span><span style="color:#323232;">150 IF N&lt;=50 THEN 180
</span><span style="color:#323232;">160 PRINT "ONLY 50 SUBDIVISIONS"
</span><span style="color:#323232;">170 STOP
</span><span style="color:#323232;">175 :
</span><span style="color:#323232;">180 H=(D-C)/N
</span><span style="color:#323232;">190 PRINT ""Y-AXIS FROM ";C;" TO ";D;
</span><span style="color:#323232;">195 PRINT " IN INCREMENTS OF ";H
</span><span style="color:#323232;">200 PRINT
</span><span style="color:#323232;">210 PRINT TAB(8);"'";
</span><span style="color:#323232;">220 FOR I=1 TO N-1
</span><span style="color:#323232;">230    PRINT "-";
</span><span style="color:#323232;">240 NEXT I
</span><span style="color:#323232;">250 PRINT "'"
</span><span style="color:#323232;">255 :
</span><span style="color:#323232;">260 FOR X=A TO B STEP S
</span><span style="color:#323232;">270    Y=FNF(X)
</span><span style="color:#323232;">272    Y1=8+FNR((Y-C)/H)
</span><span style="color:#323232;">274    Y=FNG(X)
</span><span style="color:#323232;">276    Y2=8+FNR((Y-C)/H)
</span><span style="color:#323232;">278    PRINT FNX(X);
</span><span style="color:#323232;">280    IF Y2
</span>

peron OP , 7 months ago

<span style="color:#323232;">10 : CLEAR : PAUSE “Mini Moon Age Calculator “
</span><span style="color:#323232;">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
</span><span style="color:#323232;">30 : INPUT “DAY:” ; D , “MONTH:” ; M , “YEAR:” ; Y
</span><span style="color:#323232;">40 : IF M&lt;=2 LET Y=Y-1 : M=M+12
</span><span style="color:#323232;">50 : A=INT(Y/100) : B=INT(A/4) : C=2-A+B : E=INT(Z * (Y+4716))
</span><span style="color:#323232;">60 : F=INT(30.6001 * (M+1)) : JD=C+D+E+F-1524.5 : DS=JD-JN
</span><span style="color:#323232;">70 : S=(DS/X-INT(DS/X)) * X : S=INT(S+.5)
</span><span style="color:#323232;">80 : PRINT “Age of Moon “ ; USING “###.# “ ; S ; “_days” : END
</span>

Stay SHARP!

peron OP , 15 days 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

peron , 10 months ago

You can load your monospaced fonts on Cool-Retro-Term. Naked UNIX!

https://lemmy.sdf.org/pictrs/image/7e2b34ed-96d9-44c4-869b-aef59a721aa5.png

peron , 10 months ago

It is possible to display ANSI art.

https://lemmy.sdf.org/pictrs/image/f73d938f-ddd0-46a3-92a4-c853c0b88f23.png

peron , 10 months 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

peron , 9 months ago

KL Toad-2

Lovely boards carry 36 bits!

peron OP , 11 months 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: toobnix.org/…/ab6b213a-53d4-4358-8a14-64bee1b6e17…

Another video: 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.

https://lemmy.sdf.org/pictrs/image/d96ed0ae-221e-4f12-9656-55c6897b28a5.png

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.

https://lemmy.sdf.org/pictrs/image/a92518d8-4ffd-4897-a1c5-345862bb2695.png

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.

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.

https://lemmy.sdf.org/pictrs/image/25e520a5-e23f-4e6a-b88c-25f74f015b18.png

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

~perón

peron OP , 10 months ago

New encounter!

Tecnology +Art + Games

Cybercirujas invites you to experiment and play with retrocomputers and consoles. Videogames of all the areas, argentine arcades, alternative control games. Live chiptune music. Text-art. An oportunity to thing about recycling computers and technology.

https://lemmy.sdf.org/pictrs/image/bf9f5db8-c9b8-4a43-a60a-1539ba82a008.png

peron OP , 10 months ago

Today is the new event, at one of the main cultural venues of Argentina, the Néstor Kirchner Cultural Center at Buenos Aires.

https://lemmy.sdf.org/pictrs/image/fb85e6ce-1005-434e-865d-a59156831877.png

https://lemmy.sdf.org/pictrs/image/f87cdb4d-0e19-4d1b-a18f-4100bf6ab258.png

peron OP , 10 months ago

You may follow the live twich twitch.tv/cybercirujas

peron OP , 10 months ago

~crazyjane colgó otro del nuevo realizado en el CCK fediverse.tv/w/o2UJYefRythdscFy9YS8bj

peron OP , 10 months ago

Indeed. Today a new event is held in one of the main venues in Buenos Aires, the CCK: fediverse.tv/w/o2UJYefRythdscFy9YS8bj

peron OP , 10 months ago

fediverse.tv/w/rfaPVajLvEXTX3zC2g9BEr

peron OP , 9 months ago

Some views on the CCK show: toobnix.org/w/1uxufYdM1oHvF1y96wnU5n

peron OP , 9 months ago

fediverse.tv/w/8e7vEQsHSfa1yzRr8yujzB

peron , 11 months ago

Enjoy the awesome challenges!

https://lemmy.sdf.org/pictrs/image/70b99a0c-57c7-4c49-bd11-2fca16e91d36.png