Your loop is under control!
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.
Your loop is under control!
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).
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
Congrats! I’m working on the shared system too!
The SDF plan9 challenges are fun to learn the operating idiosyncrasy of Plan9 and become a full grown Planero.
I loved the Plan9 bootcamp. Every time I learn a bit more about the shared system. Although drawterm is quite slow, its small footprint brings joy. It has graphical capabilities too.
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!
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
Today Euclid would be programming in BASIC.
My BMI has been nicely calculated in your BASIC dialect!
1 REM TEST YOUR INPUT AND THEN
10 PRINT "DO YOU EAT YOUR BOUGHS??"
20 INPUT X
30 IF X="YES" THEN PRINT "YOU PIG!.": END
40 IF X="NO" THEN PRINT "WHAT ARE YOU WAITING FOR TO TRY?"
50 END
KL Toad-2
Lovely boards carry 36 bits!
Some views on the CCK show: https://toobnix.org/w/1uxufYdM1oHvF1y96wnU5n
I really enjoyed Cuba, its a lovely country if you know what to expect. Tourism has grown there.
When I went there several years ago, a three months before Castro passing,
At the time cubans were using a bimonetary system, exerting differential prices for foreigners purchasing on the islands. So I had to changed Euros for their ECU currency on an official cuban rate (something like 1.2ECU per Euro, I don’t recall exactly but was something like that).
I bought the cigars on the legal circuit, so I spent something about 20-25 converted € for each individual Behike Cohiba cigar. I negotiated a price tag for the Cohiba wooden box with 24 habanos, something like 270€. That came as a surprise, as they usually overprice in 320€ their official cigar tags and are able to negotiate/bargain on ECUs. I bargain a little, perhaps 5-10% and they didn’t have an issue with that. Some latin american countries works on price bargain, others don’t, so I didn’t want to push it.
I’m not like a cigar Che, but perhaps was nice business, as there was a 120€ regular box there, with 20 julietas. There were also long a short versions of the cigars, I prefer short burns because the others scared me a little! Not for a starter I would say!
The first time I tried it seemed great for the first two centimeters and a half, and then the taste exploded, those are not consistent cigars I you know what I mean. They have a great part in the middle and you must smoke them for several good minutes to get to the astounding part. I was learning! With the Julieta that was not so sharp changes in the power of the cigar, it was more even. It was a mild experience compared to the Behike. I was told that even I didn’t choose the most powerful Cohibas, as there are stronger ones. I didn’t want that, since I’m not a smoker.
By the way, those are like 50€ each in some countries in Europe, IDK if you can purchase directly from Cuba in the United States, but you can get them “as a gift” from third parties.
The US Dollar was illegal there, it was prohibited and supposedly has zero purchasing power. Most cubans didn’t want to have nothing to do with the american currency. At the time I was told to not try to convert it to Euro in Cuba, but encouraged to do it in any other third country. Supposedly if you present US dollars voluntarily at the Cuban exchange windows, they have to grab the bills “and proceded as required by the national bank of cuba”, as informed by a large sign. But they don’t “rob” the bills from you, you have to voluntarily pass them thru the window, and supposedly they say thanks to you! (I didn’t wanted to try that of course, but I doubt the would destroy the bills!)
I negotiated with some locals and they bought regular local products and services at their rate (food and some services like internet connection). That was not exactly “legal” but they appreciate the difference, and the law enforcement didn’t give too much thought about that at the time.
Indeed. Today a new event is held in one of the main venues in Buenos Aires, the CCK: https://fediverse.tv/w/o2UJYefRythdscFy9YS8bj
~crazyjane colgó otro del nuevo realizado en el CCK https://fediverse.tv/w/o2UJYefRythdscFy9YS8bj
You may follow the live twich https://twitch.tv/cybercirujas
The argentine super-classic: Super Menem! On the Amber CRT monitor.