Fun with Basic

[seeker]

From overthinkingit.com

Fun with BASIC

10   PRINT “Do you have a problem? (Y or N)”
20   INPUT $A
30   IF $A = “N” GOTO 120

40   PRINT “Can someone else help? (Y or N)”
50   INPUT $B
60   IF $B = “Y” GOTO 120

70   PRINT “Can you find them? (Y or N)”
80   INPUT $C
90   IF $C = “N” GOTO 120

100 PRINT “Maybe you can hire… the A-Team.”
110 GOTO 130

120 PRINT “You cannot hire the A-Team.”

130 END

[Rev. Millertime]

 

[lethe]

Some of the controls programming I do is similar to basic.
In your honor I will incorporate something a version on that in, it will confuse the hell out of someone years from now who looks at it.

[teddy037.2]

LOL!

god, I haven't done anything in basic in... years...!

[lethe]

LOL!

god, I haven't done anything in basic in... years...!

With the older style shit I do it would look like this....

#PLB08K
#SOLODX

;PROGRAM SUMMONS THE A-TEAM

;ATTRIBUTES
;AM==>MODE OF PROGRAM (0=MANUAL/1=AUTO)
;WT==>PROGRAM TIME DELAY
;BA==>A-TEAM OPTION

          ATTR;AM,254=1
          ATTR;WT,254=3
          ATTR;BA,254=0

;EQUATE STATEMENTS
PROBLEM EQU FE01;CV
HELP EQU FE02;CV
FIND EQU FE03;CV
ATEAM EQU FB01;CV

ERRORWAIT

CHKMDE:
        SECTION 1
        SWAIT [;WT]
        IF [;AM]==0 THEN CHKMDE
        GOTO CHKPROBLEM

CHKPROBLEM:
        SECTION 2
        IF PROBLEM==1 THEN CHKHELP
        GOTO TEAMNOTNEEDED

CHKHELP:
        SECTION 3
        IF HELP==0 THEN CHKFIND
        GOTO TEAMNOTNEEDED

CHKFIND:
        SECTION 4
        IF FIND==1 THEN SUMMON
        GOTO TEAMNOTNEEDED

TEAMNOTNEEDED:
        SECTION 5
        [;BA]=0
        ATEAM=0
        GOTO CHKMDE

SUMMON:
        SECTION 6
        [;BA]=1
        ALARM 150,"PITY THE FOOL!"
        ATEAM=1
        GOTO CHKMDE

[He Man]

cout <<"Do you need help? yes or no" << endl;
cin >> help;

if (help==yes);
cout <<"A team not available please try again later.";

else
cout <<"Your make the beast with two backsed mate";

[lethe]

I could also show a screen shot of this done in Honeywell XLWeb programming but it wouldn't be much fun to look at, just green function blocks and lines.

[He Man]

I could also show a screen shot of this done in Honeywell XLWeb programming but it wouldn't be much fun to look at, just green function blocks and lines.

what? lol how does that look?

[lethe]

what? lol how does that look?

There's green blocks that when you click on them gets you the the logic within, usually stuff like switching tables, math and such. The lines are for connecting the results of one block to another and inputs from points in the system. This and my other example of older type stuff above are for HVAC controls programming.

[Monsterlover]

Soooo. ..

it looks like the Matrix?

[Buckethead]

Soooo. ..

it looks like the Matrix?

My thoughts exactly.

[lethe]

Soooo. ..

it looks like the Matrix?

I'll do a screen capture at some point during the day when I'm using it and post it tonight when I get home.

[Monsterlover]

Make it so, Number One

[ZLTFUL]

When I worked at an autoparts store back in the mid 90s, I used to start the basic program and create small games and the like to kill the boredom.

And every monday morning i would get a call from the computer guy at the warehouse asking me to get him out of my latest creation.