MS-DOSCORE

From NoiseWiki
Revision as of 19:53, 17 January 2008 by Ablablablablabla (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigationJump to search

Nxfxtxex software, programmed in QBASIC. Not useful in any way.


DOSCOR00.jpg DOSCOR01.png

DOSCOR02.png DOSCOR03.png

Open source. Version 0.1.13 is available below. Abandoned. Code pasted below. Download (.BAS and .EXE).


CORE0113.BAS

DECLARE SUB tellmeyourname ()
DECLARE SUB VisualNoise1 ()
DECLARE SUB Blinky ()
DECLARE SUB MainScreen (ASCII%)
DECLARE SUB noise ()
DECLARE SUB NeatFont (txt$, sx%, sy%, crl%, sty%, size%)
DECLARE SUB antinote ()
DEFINT A-Z
SCREEN 13
LOCATE 10, 7
PRINT "THIS IS MS-DOSCORE v0.1.13"
SLEEP 4

 SCREEN 7, 0, 2, 0
DIM SHARED txt AS STRING, sx%, sy%, sty%, size%
       
FOR u% = 760 TO 320 STEP -40
   SOUND u%, .5
NEXT u%
        SLEEP 1

CALL noise
  CALL MainScreen(ASCII%)

DEFSNG A-Z
SUB antinote ()
CLS
SCREEN 13
LINE (1, 1)-(319, 199), 14, BF
CIRCLE (160, 100), 100, 4
PAINT (160, 100), 4
CIRCLE (160, 100), 85, 15
PAINT (160, 100), 15
CIRCLE (125, 130), 20, 0
PAINT (125, 130), 0
LINE (135, 60)-(145, 130), 0, BF
CIRCLE (190, 130), 20, 0
PAINT (190, 130), 0
LINE (200, 60)-(210, 130), 0, BF
LINE (135, 60)-(210, 75), 0, BF

SLEEP 2

 




END SUB

SUB Blinky ()
SCREEN 13
CLS
'DO
FOR B = 1 TO 420 STEP 34.553
FOR a = 1 TO 820 STEP 40
ANGLE = a * 3.77733 / 50
LINE (1, TAN(ANGLE) * 66)-(320, 320), B, BF
NEXT a
NEXT B
'LOOP
END SUB

DEFINT A-Z
SUB MainScreen (ASCII%)

start:                                        
  CLS :
  C1 = 15: C2 = 4: C3 = 4: C4 = 4: C5 = 4
  highlight = 1
  SCREEN 7, 0, 0, 0: PCOPY 2, 0

'CLS : SCREEN 13
'CIRCLE (300, 59), 6
PAINT (12, 64), 6
'LINE (0, 0)-(319, 199), 4, BF
CALL NeatFont("NXFXTXEX", 28, 30, 0, 1, 3)
LINE (0, 0)-(319, 20), 4, BF
LINE (0, 55)-(319, 90), 4, BF
LINE (280, 0)-(319, 55), 4, BF



DisplayText1:                                  
  COLOR C1: LOCATE 14, 24: PRINT "W0W"
  COLOR C2: LOCATE 15, 24: PRINT "beepbeepbeep"
  COLOR C3: LOCATE 16, 24: PRINT "ANTI!!!"
  COLOR C4: LOCATE 17, 24: PRINT "Hi(gh)!"
  COLOR C5: LOCATE 18, 24: PRINT "Quit"
                                                            
UserInput1:                                    
   a$ = INKEY$
   IF a$ = CHR$(0) + CHR$(72) THEN
      highlight = highlight - 1: GOTO HightOfMyLight1
   END IF
   IF a$ = CHR$(0) + CHR$(80) THEN
      highlight = highlight + 1: GOTO HightOfMyLight1
   END IF
   IF a$ = CHR$(13) THEN GOTO DetermineSelection1
   IF a$ = "a" OR a$ = "A" THEN ASCII% = 1
   GOTO UserInput1
                                                            
HightOfMyLight1:                               
   IF highlight > 5 THEN highlight = 1
   IF highlight < 1 THEN highlight = 5
   IF highlight = 1 THEN C1 = 15: C2 = 4: C3 = 4: C4 = 4: C5 = 4
   IF highlight = 2 THEN C2 = 15: C1 = 4: C3 = 4: C4 = 4: C5 = 4
   IF highlight = 3 THEN C3 = 15: C1 = 4: C2 = 4: C4 = 4: C5 = 4
   IF highlight = 4 THEN C4 = 15: C1 = 4: C2 = 4: C3 = 4: C5 = 4
   IF highlight = 5 THEN C5 = 15: C1 = 4: C2 = 4: C3 = 4: C4 = 4
   GOTO DisplayText1
                                                            
DetermineSelection1:                           

  
  'IF highlight = 2 THEN GOTO Done1

  IF highlight = 1 THEN CALL Blinky: GOTO start
  IF highlight = 2 THEN CALL VisualNoise1: GOTO start
  IF highlight = 3 THEN CALL antinote: GOTO start
  IF highlight = 4 THEN CALL tellmeyourname: GOTO start
  IF highlight = 5 THEN CLS : SYSTEM

  GOTO DisplayText1

Done1:                                         



END SUB

DEFSNG A-Z
SUB NeatFont (txt$, sx%, sy%, clr%, sty%, size%)

 lnh% = LEN(txt$)
 IF sx% = -1 THEN sx% = (640 - ((lnh% * 8) * size%)) / 2
 sx2% = sx%: l% = lnh% * 8
 PRINT txt$

 FOR y% = 0 TO 15
  FOR x% = 0 TO l%
  IF POINT(x%, y%) <> 0 THEN
   IF sty% = 1 THEN LINE (sx2% - size%, sy% - size%)-(sx2%, sy%), clr%, BF
   

   IF sty% = 2 THEN LINE (sx2% - size%, sy% - size%)-(sx2%, sy%), clr%, B
   IF sty% = 3 THEN CIRCLE (sx2% - (size% / 2), sy% - (size% / 2)), size% / 2, clr%
   IF sty% = 4 THEN
    CIRCLE (sx2% - (size% / 2), sy% - (size% / 2)), size% / 2, clr%
    PAINT (sx2% - (size% / 2), sy% - (size% / 2)), clr%
   END IF
   IF sty% = 5 THEN PSET (sx2% - (size% / 2), sy% - (size% / 2)), clr%
   IF sty% = 6 OR sty% = 7 THEN
    LINE (sx2% - (size% / 2), sy% - size%)-(sx2% - size%, sy%), clr%
    LINE (sx2% - (size% / 2), sy% - size%)-(sx2%, sy%), clr%
    LINE (sx2% - size%, sy%)-(sx2%, sy%), clr%
   END IF
   IF sty% = 7 THEN PAINT (sx2% - (size% / 2), sy% - (size% / 2)), clr%
   IF sty% = 8 THEN LINE (sx2%, sy% - size%)-(sx2% - size%, sy%), clr%
   IF sty% = 9 THEN LINE (sx2% - size%, sy% - size%)-(sx2%, sy%), clr%
  END IF
  sx2% = sx2% + size%
  NEXT x%
  sy% = sy% + size%: sx2% = sx%
 NEXT y%
 PRINT txt$

END SUB

SUB noise ()

        SOUND 40, 10
        SOUND 600, 1
        
END SUB

SUB tellmeyourname ()
CLS
        SCREEN 7
        OUT &H3C8, 0
        OUT &H3C9, 0
        OUT &H3C9, 0
        OUT &H3C9, 0

INPUT "enter your name: ", Name$
        OUT &H3C8, 0
        OUT &H3C9, 0
        OUT &H3C9, 0
        OUT &H3C9, 63


'        DO
        FOR i% = 940 TO 1000 STEP 9
        SOUND i%, i% / 7500
        NEXT i%
        WRITE "ààá×ýýþþþüýôöööùøø÷éæïAÉààá×ýýþþþüýôöööùøø÷éæïAÉ"
        OUT &H3C8, 0
        OUT &H3C9, 63
        OUT &H3C9, 0
        OUT &H3C9, 63

LINE (13, 20)-(180, 999), 12, BF
LINE (999, 249)-(15, 500), 8
PRINT "ieri"; Name$; "uguigeuieguigeuigeui"

        OUT &H3C8, 0
        OUT &H3C9, 25
        OUT &H3C9, 63
        OUT &H3C9, 25


        FOR i% = 40 TO 200 STEP 45
        SOUND i%, i% / 10000
        NEXT i%
COLOR 11
PRINT "ÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏ"
        OUT &H3C8, 0
        OUT &H3C9, 5
        OUT &H3C9, 43
        OUT &H3C9, 2

SLEEP .7


FOR BBBB = 1 TO 320 STEP 10
LINE (160, BBBB)-(BBBB, 100), 5, BF
NEXT BBBB

        OUT &H3C8, 0
        OUT &H3C9, 63
        OUT &H3C9, 3
        OUT &H3C9, 25

SLEEP 1

COLOR 14
PRINT Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$ _
;

        OUT &H3C8, 0
        OUT &H3C9, 5
        OUT &H3C9, 43
        OUT &H3C9, 44
COLOR 8
PRINT Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$; Name$ _
;

        OUT &H3C8, 0
        OUT &H3C9, 10
        OUT &H3C9, 10
        OUT &H3C9, 10



SLEEP 1


COLOR 4
        OUT &H3C8, 0
        OUT &H3C9, 63
        OUT &H3C9, 63
        OUT &H3C9, 63

PRINT "00000"; Name$; " oofofofof"
COLOR 8
SOUND 200, 10
WRITE "404040404040404"
FOR i% = 240 TO 400 STEP 145
        SOUND i%, i% / 10000
        NEXT i%
        OUT &H3C8, 0
        OUT &H3C9, 0
        OUT &H3C9, 0
        OUT &H3C9, 0


SOUND 200, 10

COLOR 12
WRITE "ÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏ"
COLOR 4
PRINT "00000";
COLOR 8
SOUND 200, 10
WRITE "404040404040404", Name$
FOR i% = 540 TO 600 STEP 5
        SOUND i%, i% / 10000
        NEXT i%
FOR t% = 0 TO 300 STEP 3
    CIRCLE (160, 100), t%, 12
    PAINT (160, 100), 12, 12
NEXT t%

  SLEEP 1.7

 '       LOOP


'CLS
    '    screenx = 320
    '    screeny = 200
    '    bitsperpixel = 16




DO
  RANDOMIZE TIMER
  randCol% = INT(RND(1) * 320)

    FOR ooo% = 1 TO 199
      PSET (randCol%, ooo%)
      PRESET (randCol%, ooo% - 1)
        FOR tt% = 1 TO 55
        NEXT tt%
      NEXT ooo%



LOOP UNTIL INKEY$ <> ""





END SUB

DEFINT A-Z
SUB VisualNoise1 ()





    FOR toto% = 1580 TO 4290 STEP -218.7
        SOUND (RND * 102 + toto%), 2
        NEXT toto%


        OUT &H3C8, 0
        OUT &H3C9, 43
        OUT &H3C9, 49
        OUT &H3C9, 21
CLS :
SOUND 1000, 2

        OUT &H3C8, 0
        OUT &H3C9, 3
        OUT &H3C9, 49
        OUT &H3C9, 21
CLS :

SOUND 5000, 2

CLS

    FOR yoyoyo% = 150 TO 290 STEP 18.7 / .05
        SOUND (RND * 102 + yoyoyo%), 2
        NEXT yoyoyo%


SOUND 1000, 1
CALL NeatFont("4444444444!", 37, 85, 2, 6, 4)
CLS :
        OUT &H3C8, 0
        OUT &H3C9, 3
        OUT &H3C9, 3
        OUT &H3C9, 55
FOR s = 1950 TO 1310 STEP -81.6
 SOUND (RND * 1770 + s / 10 + 20), .3
 NEXT



  SLEEP 1




CLS :
SCREEN 13

        CLS
CALL NeatFont("W0W", 158, 120, 8, 8, 4)

        OUT &H3C8, 0
        OUT &H3C9, 63
        OUT &H3C9, 63
        OUT &H3C9, 0
        COLOR 7
        LOCATE 19, 4
        PRINT "lort 2"
        SOUND 500, 1

CLS :

SOUND 5000, 2

                   FOR j% = 120 TO 320 / .91111 STEP 2
                   CIRCLE (j%, 56), j%, 12
                   NEXT j%

CALL NeatFont("Nxfxtxex", 27, 29, 2, 3, 4)
    FOR h% = 1399 TO 1200 STEP -20.23
        SOUND h%, 3
        NEXT h%


CALL NeatFont("_______", 47, 59, 2, 3, 4)
CALL NeatFont("Nl,,,l,l,ll,", 28, 30, 8, 5, 4)

         CLS
        OUT &H3C8, 0
        OUT &H3C9, 33
        OUT &H3C9, 3
        OUT &H3C9, 30
        COLOR 12
        LOCATE 19, 4
        PRINT "w0w0w0w0w0w0w0w0w0w0w0w0w0w"


                   FOR i% = 105 TO 290 * 5 + 100

                   'FOR j% = 120 TO 320 / .091111 STEP -2
                   CIRCLE (j%, 56), j%, 12
                   NEXT i%
                   'NEXT j%

  CALL NeatFont("ßßÛÙÙþÿþÔ{}ÚÚÖÌ", 47, 59, 2, 3, 4)
  DIM melt%(3000)
  FOR RR = 1 TO 3000
    RANDOMIZE TIMER
    XX = INT(RND * 227)
    RANDOMIZE TIMER
    YX = INT(RND * 150)
    GET (XX, YX)-(XX + 8, YX + 8), melt%
    PUT (XX, YX + 1), melt%, PSET
  IF INKEY$ = CHR$(27) THEN END
  NEXT RR

        OUT &H3C8, 0
        OUT &H3C9, 63
        OUT &H3C9, 9
        OUT &H3C9, 0
        COLOR 12
PRINT "ÛÛÛÛÛÛÛÛ±±ÛÛ21   789Û2õÛÛÛßßßÞÜÝØÙ2318Û±°±ÛÛÛÛÞÉÉ2ÛßßßÞÜÝØÙ2318Û±°±ÛÛÛÛÛÛ±°±ÛÛÛÛ"
PRINT "ÛÛÛÛÛÛ±±ÛÛ21   789Û2õÛÛÛßßßÞÜÝØÙ2318Û±°±ÛÛÛÛÞÉÉ2ÛßßßÞÜÝØÙ2318Û±°±ÛÛÛÛ"
PRINT "ÛÛÛÛÛÛÛÛ±±ÛÛ21   789Û2õÛÛÛßßßÞÜÝØÙ2318Û±°±ÛÛÛÛÞÉÉ2ÛßßßÞÜÝØÙ2318Û±°±ÛÛÛÛÛÛ±°±ÛÛÛÛ"
PRINT "ÛÛÛÛÛÛ±±ÛÛ21   789Û2õÛÛÛßßßÞÜÝØÙ2318Û±°±ÛÛÛÛÞÉÉ2ÛßßßÞÜÝØÙ2318Û±°±ÛÛÛÛ"
PRINT "ÛÛÛÛÛÛÛ±±ÛÛ21   789Û2õÛÛÛßßßÞÜÝØÙ2318Û±°±ÛÛÛÛÞÉÉ2ÛßßßÞÜÝØÙ2318Û±°±ÛÛÛÛ±°±ÛÛÛÛ"
PRINT "ÛÛÛÛÛÛ±±ÛÛ21   789Û2õÛÛÛßßßÞÜÝØÙ2318Û±°±ÛÛÛÛÞÉÉ2ÛßßßÞÜÝØÙ2318Û±°±ÛÛÛÛÛÛ±°±ÛÛÛÛ"
PRINT "ÛÛÛÛ±±ÛÛ21 ####  789Û2õÛÛÛßßßÞÜÝØÙ2318Û±°±ÛÛÛÛÞÉÉ2"
PRINT "ÛÏ&#&%&&&%&Ï%&ÏÏ%&%ÛÛÛÛÛÛ±±ÛÛ21   789Û2õÛÛÛßßßÞÜÝØÙ2318Û±°±ÛÛÛÛÞÉÉ2ÛßßßÞÜÝØÙ2318Û±°±ÛÛÛÛÛÛÛ±°±ÛÛÛÛ"
PRINT "ÛÛÛÛÛÛÛ±±ÛÛ21   789Û2õÛÛÛßßßÞÜÝØÙ2318Û±°±ÛÛÛÛÞÉÉ2ÛßßßÞÜÝØÙ2318Û±°±ÛÛÛÛ±°±ÛÛÛÛ"
PRINT "ÛÛÛÛÛÛ±±ÛÛ21   789Û2õÛÛÛßßßÞÜÝØÙ2318Û±°±ÛÛÛÛÞÉÉ2ÛßßßÞÜÝØÙ2318Û±°±ÛÛÛÛÛÛ±°±ÛÛÛÛ"
PRINT "ÛÛÛÛ±±ÛÛ21 ####  789Û2õÛÛÛßßßÞÜÝØÙ2318Û±°±ÛÛÛÛÞÉÉ2"
PRINT "ÛÏ&#&%&&&%&Ï%&ÏÏ%&%ÛÛÛÛÛÛ±±ÛÛ21   789Û2õÛÛÛßßßÞÜÝØÙ2318Û±°±ÛÛÛÛÞÉÉ2ÛßßßÞÜÝØÙ2318Û±°±ÛÛÛÛÛÛÛ±°±ÛÛÛÛ"
SOUND 399, 1
SOUND 399, 1
SOUND 399, 1
SOUND 599, 1
SLEEP 2




END SUB