View source for MS-DOSCORE

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



[[Image:DOSCOR00.jpg]]
[[Image:DOSCOR01.png]] <br><br>
[[Image:DOSCOR02.png]] 
[[Image:DOSCOR03.png]]

Open source. Version 0.1.13 is available below. Abandoned. Code pasted below. [https://sourceforge.net/projects/ms-doscore/ Download] (.BAS and .EXE).



== CORE0113.BAS ==

<pre>
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


</pre>


[[Category:QBASIC]]
[[Category:Source code]]
[[Category:Nxfxtxex]]