Newest Members
susanhepp, Breathe, georgetwo, frozen45, lilac
12291 Registered Users
Today's Birthdays
Guillermo (37), illbedat (26), Mike58 (56), Mnovit (38), Mongo (24), pwdasw (64), Raymond Sean (38), yesac76 (38)
Who's Online
4 registered (petercorbett, 3 invisible), 35 Guests and 4 Spiders online.
Key: Admin, Global Mod, Mod
Forum Stats
12291 Members
73 Forums
63229 Topics
442159 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: 11028
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
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.