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).
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 Y2This 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
It is possible to display ANSI art.
You can load your monospaced fonts on Cool-Retro-Term. Naked UNIX!
The argentine super-classic: Super Menem! On the Amber CRT monitor.