Ablablablablabla at 03:53, 18 January 2008

2008-01-18T03:53:46Z

New page

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

MS-DOSCORE - Revision history

Ablablablablabla at 03:53, 18 January 2008