Newest Members
BusterJones, Desperateforhelp, aniceguy, Green_Lantern, Safe11ride
12121 Registered Users
Today's Birthdays
corvairman1 (43), marianne (44), son (35), speedy (31)
Who's Online
3 registered (Zero, 2 invisible), 63 Guests and 3 Spiders online.
Key: Admin, Global Mod, Mod
Forum Stats
12121 Members
73 Forums
62520 Topics
438138 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: 10948
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: 16263
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: 7819
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.