/prog/ - BASIC — World4ch

Name: Anonymous 2011-02-02 9:40

LO AND BEHOLD FOR I PRESENT YOU THE POWER OF QBASIC



'# Uncomment the next two lines before compiling with freebasic

'# the function 'PLAY' is a propietary QBASIC extension

'SUB PLAY(midistr AS STRING)

'END SUB



SUB MAIN()

    DIM count AS INTEGER

    'COLOR 15,1

    PLAY "<"

    FOR count = 99 TO 0 STEP -1

        IF (count-1) <> -1 THEN

            PRINT " ";count; " bottles of beer on the wall"

            PRINT " ";count; " bottles of beer"

            PRINT "  Take one down, pass it around"

            PRINT " ";count-1; " bottles of beer on the wall"

            PRINT

            '# X bottles of beer on the wall

            PLAY "e-8e-8e-8<b-8b-8b-8>e-8e-8e-8e-4"

            '# X bottles of beer

            PLAY "f8f8f8c8c8c8f4"

            '# take one down, pass it around

            PLAY "d4d8d8 N0 d8d8d8d4"

            '# X-1 bottles of beer on the wall

            PLAY "<a+8a+8a+8>c8c8d8d+8d+8d+8d+4"

        END IF

    NEXT count

END SUB



MAIN

Name: Anonymous 2011-02-02 9:46



10 PRINT "HI THIS IS CASINO"

20 PRINT "TELL ME HOW MUCH MONEY YOU HAVE"

30 INPUT A

40 IF A=0 THEN PRINT "GB2/WELFARE. NIGGER.":GOTO 10000

41 IF A>200 THEN PRINT "TOO RICH, JEW.":GOTO 10000

42 IF A<0 THEN PRINT "PAY OFF KIKE DEBTS FIRST, YOU ANUS.":GOTO 10000

45 PRINT "OK, ENTER A BET.":PRINT "YOU HAVE ";A;" GOLDS."

46 INPUT B

47 IF B=0 THEN PRINT "STOP BEING A CHINK COWARD.":GOTO 46

48 IF B<0 THEN PRINT "STOP BEING A DUMBASS.":GOTO 46

49 IF B>A THEN PRINT "LOAN SHARK NOT AVAILABLE.":GOTO 46

50 PRINT "OK, THIS IS ROCK/PAPER/SCISSORS."

51 PRINT "I HAVE MADE MY CHOICE, WHAT IS YOURS."

52 PRINT "TYPE (R)OCK, (P)APER, (S)CISSORS ";

60 INPUT C$

70 IF C$<>"R" AND C$<>"P" AND C$<>"S" THEN PRINT "LEARN 2 READ FUCKFACE.":GOTO 50

80 IF C$="P" THEN M$="SCISSOR"

81 IF C$="R" THEN M$="PAPER"

82 IF C$="S" THEN M$="ROCK"

90 PRINT "WOW I HAVE CHOSEN ";C$

91 PRINT "AND THAT MEANS A WINNER IS NOT YOU."

95 A=A-B

96 IF A=0 THEN PRINT "YOU'RE BROKE.":GOTO 10000

100 GOTO 45

9999 END

10000 PRINT "YOU HAVE LOST THE GAME."

10009 END

BASIC

1 Name: Anonymous 2011-02-02 9:40

2 Name: Anonymous 2011-02-02 9:46

Name: Anonymous 2011-02-02 9:40

Name: Anonymous 2011-02-02 9:46