Difference between revisions of "MS-DOSCORE"
From NoiseWiki
Jump to navigationJump to search(No difference)
|
Latest revision as of 19:53, 17 January 2008
Nxfxtxex software, programmed in QBASIC. Not useful in any way.
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
