peron

joined 2 years ago
MODERATOR OF
[–] peron 1 points 2 years 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
[–] peron 1 points 2 years 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
[–] peron 1 points 2 years ago

Today Euclid would be programming in BASIC.

[–] peron 2 points 2 years ago

My BMI has been nicely calculated in your BASIC dialect!

[–] peron 1 points 2 years ago
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
[–] peron 1 points 2 years ago

Indeed! Although MATE could do the trick in recreating GNOME2 and some of these utilitarian L&F of the past.

[–] peron 1 points 2 years ago

GNOME 2.32 is excellent for producing great old-time desktops.

[–] peron 1 points 2 years ago (2 children)

The old Huayra 2.2 was the first in use MATE.

[–] peron 1 points 2 years ago* (last edited 2 years ago) (1 children)

FixedSys Excelsior should be part of GNOME2.

[–] peron 1 points 2 years ago

As Huayra is an educative distro, it includes educational packages.

Also Jitsi is installed! :D It runs on notebook and netbooks with 4GB of RAM.

[–] peron 5 points 2 years ago (1 children)

Loved this series back in the late 80s!

In a dystopic and cyberepunkish Tokyo, IA robots are getting rogue. Perhaps that pesky technological GENOM corporation has something to do with the issue.

Bubblegum Crysis (1987) Dir. Katsuhito Akiyama

Awesome aesthetics and mechanical design: https://www.youtube.com/watch?v=JbqlEUu3sSY

Great chases and music: https://www.youtube.com/watch?v=U9_zfJ153q8

Charismatic characters. https://www.youtube.com/watch?v=OKlxIAa5Tsg

In my country several pirated episodes were distributed with adhoc subtitles and spanish dubbling. Sadly the original series was never finished, but it inspired a complete anime series under the same premise.

view more: ‹ prev next ›