/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

Name: Anonymous 2011-02-02 9:54

>>2
That's beautiful.

Name: Anonymous 2011-02-02 10:06

>>2
Highlevel Assembly.

Name: Anonymous 2011-02-02 10:10

>>4
BASIC = High-level Assembly
C = Portable Assembly (tell this to Zhivago from ##C to get B&cookies!)

Name: Anonymous 2011-02-02 10:13

>>5
Fucking around with the folks in ##C is fun. :3

Name: Anonymous 2011-02-02 12:56

>>2:80: warning: unused variable ‘M$’

Name: tray 2012-03-16 16:26

flagStuff|=1;

Name: Anonymous 2012-03-16 16:38

>>5
C is undefined shit. Use x86 assembly instead.

Name: Anonymous 2012-03-16 19:49

>>9
You'd be stuck with Frankenstein's mutated 8-bit calculator chips.

Name: Anonymous 2012-03-16 20:25

>>10
It's better than a locked-down platform like ARM (see the Windows 8 secure boot thread) or a dead platform like MIPS.

Name: Anonymous 2012-03-16 22:50

>>11
Shit, nigga. If MIPS is dead, x86 is a rotting zombie.

BASIC

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

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

3 Name: Anonymous 2011-02-02 9:54

4 Name: Anonymous 2011-02-02 10:06

5 Name: Anonymous 2011-02-02 10:10

6 Name: Anonymous 2011-02-02 10:13

7 Name: Anonymous 2011-02-02 12:56

8 Name: tray 2012-03-16 16:26

9 Name: Anonymous 2012-03-16 16:38

10 Name: Anonymous 2012-03-16 19:49

11 Name: Anonymous 2012-03-16 20:25

12 Name: Anonymous 2012-03-16 22:50