MS-DOSCORE
From NoiseWiki
Revision as of 20:53, 17 January 2008 by Ablablablablabla (talk | contribs)
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