Newest Members
Stormchaser, johnnyc717, bluebook, Roscoe, SJC
12314 Registered Users
Today's Birthdays
clutzygurl (22), dun (50), Gene (50), ufp1964 (50), Zoot (68)
Who's Online
4 registered (Obi, 3 invisible), 20 Guests and 5 Spiders online.
Key: Admin, Global Mod, Mod
Forum Stats
12314 Members
74 Forums
63358 Topics
443031 Posts

Max Online: 418 @ 07/02/12 07:29 AM
Twitter
Page 1 of 2 1 2 >
Topic Options
#194801 - 12/11/07 01:41 PM My latest BASIC computer program
BruisedSpirit Offline
Member
MaleSurvivor

Registered: 06/26/07
Posts: 192
Loc: Ontario, Canada
I just remembered something from when I was a kid. The school I attended had a Commodore VIC 20 computer and we used to play around on it writing really simple BASIC programs.

I just thought of one I could use right now...

10 print "IT WASN'T MY FAULT"
20 goto 10
run

This code is not copy protected...feel free to use it whenever you need.


Scott


Top
#194802 - 12/11/07 01:51 PM Re: My latest BASIC computer program [Re: BruisedSpirit]
FormerTexan Offline
Site Administrator
MaleSurvivor
Registered: 09/12/04
Posts: 11046
Loc: Denver, CO
I like that.

How about some UNIX?

self@heart$> cat my.fault > /dev/null





Edited by FormerTexan (12/11/07 02:03 PM)
_________________________
List of things ain't nobody got time for:

1. That


If I could meet myself as a boy...

Top
#194804 - 12/11/07 02:00 PM Re: My latest BASIC computer program [Re: FormerTexan]
MarkK Offline
Member
MaleSurvivor

Registered: 04/02/07
Posts: 2502
Loc: Denver, CO
setup a reoccuring appointment in Outlook to run every day at 7:00am

Subject: NOT MY FAULT


Top
#194810 - 12/11/07 02:30 PM Re: My latest BASIC computer program [Re: MarkK]
MemoryVault Offline
Member
MaleSurvivor

Registered: 03/01/07
Posts: 693
Loc: NJ
10 FOR Years = 1 to 40
15 Input A$
20 IF A$ = "Abuse" THEN GOSUB DETACHMENT
30 IF A$ = "Kindness" THEN GOSUB DENY
40 IF A$ = "Affection" THEN GOSUB ACTOUT
50 NEXT Years
60 Print "Okay, you're 41 now."
70 Gosub GETHELP
80 End


Top
#194868 - 12/11/07 08:11 PM Re: My latest BASIC computer program [Re: MemoryVault]
melliferal Offline
Member
MaleSurvivor

Registered: 11/03/05
Posts: 1159
#include <iostream>

int main()
{
std::cout << "Not my fault.\n";
}



Edited by melliferal (12/11/07 08:12 PM)
_________________________
Children cannot consent; they can only comply.

Oprah's resources for male survivors

Top
#194885 - 12/11/07 09:56 PM Re: My latest BASIC computer program [Re: melliferal]
WalkingSouth Offline
Member
MaleSurvivor

Registered: 08/30/05
Posts: 16264
I love this thread. Nothing to contribute. You guys have said everything there is to say. \:\)

_________________________
“Life’s journey is not to arrive at the grave safely in a well preserved body, but rather to skid in sideways, totally worn out, shouting ‘Holy ____…! What a ride!’” ~Hunter S. Thompson

Top
#194895 - 12/11/07 10:45 PM Re: My latest BASIC computer program [Re: WalkingSouth]
Lazarus Offline
Member
MaleSurvivor

Registered: 07/01/07
Posts: 851
Loc: Below the radar, USA
Except;

CTL-ALT-DEL

;-)

_________________________
"That which does not kill us, surely makes us stonger." - Neitsche

Top
#194908 - 12/12/07 12:12 AM Re: My latest BASIC computer program [Re: Lazarus]
EGL Offline
Moderator Emeritus
MaleSurvivor
Registered: 06/19/04
Posts: 7821
10 READ INPUT
20 INPUT = 'I AM UNWORTHY'
30 IF INPUT = TRUE, ABEND PROGRAM BECAUSE IT CAN'T BE TRUE.
40 IF INPUT = FALSE, GO TO 50.
50 PRINT 'STOP BELIEVING THE LIES'

_________________________
Eddie

Top
#194946 - 12/12/07 08:43 AM Re: My latest BASIC computer program [Re: FormerTexan]
mike5 Offline
Member
MaleSurvivor

Registered: 08/01/07
Posts: 170
Loc: Cleveland, OH
Originally Posted By: FormerTexan
self@heart$> cat my.fault > /dev/null


Love this thread - I'm such a geek :-)

> # Never runs:
> if [ ! true ]; then echo my fault; fi
> # always runs
> if [ true ]; then echo not my fault; fi
not my fault
>
> "it is my fault"
bash: it is my fault: command not found

Speaking of geeky things, anyone a fan of xkcd.com?

Mike5, survivor nerd


Top
#195057 - 12/13/07 05:49 AM Re: My latest BASIC computer program [Re: mike5]
alexey Offline
Moderator Emeritus
MaleSurvivor
Registered: 08/16/05
Posts: 1674
Loc: Moscow, Russia
OMG. I coded in Basic too. Although I do not remember details, I have an old feeling. Alexey

_________________________
(\__/)
(='.'=)
E[:]|||||[:]3
(")_(")
--------
When you feel all alone and unhappy, turn to you Inner Child and talk to Him.
You will see He can comfort you like nothing else!

Top
#195095 - 12/13/07 01:38 PM Re: My latest BASIC computer program [Re: alexey]
Lazarus Offline
Member
MaleSurvivor

Registered: 07/01/07
Posts: 851
Loc: Below the radar, USA
OK I've got to throw this one in, even though it will definately give away my age;

Back in the days of BBS's, you could log on and browse a list of files that were available for download. This one caught my eye and I remember it all these years later;

"WOMAN.EXE - Excellent Program, No Docs"

Ain't THAT the truth!

Cheers!

Lazarus

_________________________
"That which does not kill us, surely makes us stonger." - Neitsche

Top
#195114 - 12/13/07 04:30 PM Re: My latest BASIC computer program [Re: Lazarus]
frost Offline
Member
MaleSurvivor

Registered: 03/15/07
Posts: 1377
Loc: Eh?
This thread has brought out all the programmers.. this is great.

How's about we try on some PHP for size?

//First, get the current thought from the brain.
$CurrentThought = $_BRAIN['CurrentThought'];

//Setup a function to process the thought
function CorrectThought($CurrentThought){
  echo"It wasn't your fault.\n";
  echo"$CurrentThought is a lie.";
  $CurrentThought="I Am Worth It";
}

//Create a loop to run until all lies are corrected.
while($CurrentThought!="I Am Worth It"){
  CorrectThought($CurrentThought);
}

If only correcting my brain was that easy...

Now obviously only one thought will end the loop, being, "I Am Worth It"... We could create an array which would contain all sorts of positive thoughts so any positive thought could end the loop.

_________________________
Boom!

Top
#195115 - 12/13/07 04:42 PM Re: My latest BASIC computer program [Re: frost]
FormerTexan Offline
Site Administrator
MaleSurvivor
Registered: 09/12/04
Posts: 11046
Loc: Denver, CO
self@heart$> ps -ef | grep itsmyfault
itsmyfault 1932 03:04:00

self@heart$> kill -9 1932

self@heart$> find / -name notmyfault -print

_________________________
List of things ain't nobody got time for:

1. That


If I could meet myself as a boy...

Top
#195323 - 12/15/07 12:48 AM Re: My latest BASIC computer program [Re: alexey]
healing_inside Offline
Member
MaleSurvivor

Registered: 03/28/05
Posts: 2005
Rem I did some basic programming on my VIC 20 also.

Rem was the only command i remember, you can tell i didn't go very far with programming, but I still have my VIC 20 computer.

Got it for $99.00 at Toys R US sometime in the 80's. The computer consisted of a cream colored keyboard with oversized function keys and that was it. The cassette tape drive was extra, which i still have.

I had a lot of fun with it, you made me smile and remember some good times in my childhood.

-Jim

_________________________
I can't come to the phone right now, I am out living my life

*** WoR Retreat Alumni - Alta 2005 ***

Top
Page 1 of 2 1 2 >


Moderator:  ModTeam, TJ jeff 

I agree that my access and use of the MaleSurvivor discussion forums and chat room is subject to the terms of this Agreement. AND the sole discretion of MaleSurvivor.
I agree that my use of MaleSurvivor resources are AT-WILL, and that my posting privileges may be terminated at any time, and for any reason by MaleSurvivor.