The Code-Bin
Links
Home
Add your code!
All Listings
About
Latest Entry
Featured Scripts
Author's Website
Latest Entries
FFMPEG Thumbnail Scr...
PHP, 0.8KB
Jul. 29, 10:24pm
John
Z80 Assembler, 190 bytes
Feb. 17, 3:36am
John
Z80 Assembler, 176 bytes
Sep. 13, 2:19am
John
Z80 Assembler, 77 bytes
Sep. 13, 2:18am
John
Z80 Assembler, 209 bytes
Sep. 13, 2:17am
G3.BAS
Posted by: Peter Halasz | October 11, 2010 @ 10:52pm
QBasic/QuickBASIC Code
[
Download
]
DIM a$(40), b$(40) 'ON TIMER(1) GOSUB time 'ON ERROR GOTO air1 ps = 1 STA: RANDOMIZE TIMER SHELL "echo off" CLS FOR a = 1 TO 30 READ a$(a), b$(a) IF a$(a) = "Exit" THEN a = 30 NEXT a sss: GOSUB ccc TIMER STOP PRINT "�"; FOR a = 1 TO 40 GOSUB ccc PRINT "�"; NEXT a GOSUB ccc PRINT "����ͻ" FOR a = 1 TO 20 GOSUB ccc PRINT "� "; IF a < 10 THEN l$ = CHR$(a + 48) IF a > 9 THEN l$ = CHR$(a + 55) PRINT l$; "."; a$(a); LOCATE a + 1, 42 GOSUB ccc PRINT "� "; b$(a); ":" GOSUB ccc LOCATE a + 1, 47 PRINT "�"; GOSUB ccc IF a = ps THEN PRINT CHR$(27) ELSE PRINT " " IF a$(a) = "Exit" THEN IF ps > a THEN ps = 1 IF a$(a) = "Exit" THEN a = 21 NEXT a GOSUB ccc PRINT "�"; FOR a = 1 TO 40 GOSUB ccc PRINT "�"; NEXT a GOSUB ccc PRINT "����ͼ" TIMER ON a$ = INKEY$ IF a$ = "" THEN LOCATE 1, 1: GOTO sss IF a$ = CHR$(9) THEN ps = ps + 1: LOCATE 1, 1: GOTO sss IF a$ = CHR$(13) THEN a$ = CHR$(ps + 48) IF ps > 9 THEN a$ = CHR$(ps - 9 + 64) END IF a$ = UCASE$(a$) sdf: FOR a = 1 TO 40 PRINT NEXT a IF a$ = "1" THEN SHELL "B:\" SHELL "cd\Thexder" RUN "Thexder.com" END IF IF a$ = "2" THEN SHELL "echo Sorry that selection is unavalable" IF a$ = "3" THEN SHELL "b:\" SHELL "cd\hillsfar" RUN "hillsfar.bat" END IF IF a$ = "4" THEN SHELL "b:\" SHELL "cd\sorceria" SHELL "Sierra" END IF IF a$ = "6" THEN SHELL "b:\" SHELL "cd\comic" RUN "-comic.exe" END IF IF a$ = "5" THEN SHELL "c:\" SHELL "cd\" SHELL "Memory.exe" SHELL "pause" END IF IF a$ = "7" THEN SHELL "B:\" SHELL "cd\golfe" RUN "golfe.exe" END IF IF a$ = "8" THEN SHELL "B:\" SHELL "cd\hfro" PRINT "PLEASE CHOOSE CGA GRAPHICS" SHELL "hfro.COM" END IF IF a$ = "9" THEN SHELL "B:\" SHELL "cd\demon" RUN "demon.exe" END IF IF a$ = "A" THEN SHELL "B:\" SHELL "cd\simearth" SHELL "copy b:\simearth\*.* d:" SHELL "d:" RUN "simearth.exe" END IF IF a$ = "B" THEN SHELL "A:\" RUN "Mushroom.com" END IF IF a$ = "C" THEN SHELL "A:\" RUN "budo.com" END IF IF a$ = "D" THEN SHELL "B:\" RUN "Welltris.exe" END IF IF a$ = "E" THEN PRINT "Please insert disk 1 and press any key" b$ = INPUT$(1) SHELL "copy a:\*.* d:" PRINT "Please insert disk 2 and press any key" b$ = INPUT$(1) SHELL "copy a:\*.* d:" PRINT "Please insert disk 3 and press any key" b$ = INPUT$(1) SHELL "copy a:\*.* d:" SHELL "d:" RUN "sierra.com" END IF IF a$ = "F" THEN SHELL "B:\" RUN "Pop.bat" END IF END ccc: aa = aa + 1 IF aa > 1 AND aa < 1000 THEN GOSUB m1 IF aa > 999 AND aa < 2000 THEN GOSUB m2 IF aa > 1999 AND aa < 3000 THEN GOSUB m3 IF aa > 2999 AND aa < 4000 THEN GOSUB m4 IF aa > 3999 AND aa < 4999 THEN GOSUB m5 IF aa > 5000 THEN aa = 1: ddd = ddd + 1 IF ddd = 4 AND aa = 1000 THEN FOR v = 1 TO 10000 LOCATE 3, 49 GOSUB ccc PRINT "Hurry up and make a selection!!!" a$ = INKEY$ IF a$ <> "" THEN LOCATE 1, 1: GOTO sdf NEXT v CLS ddd = 0 END IF 'PRINT aa; RETURN m1: cc = INT(RND(9) * 14) + 1 COLOR cc, 0 RETURN m2: cc = cc + 2 IF cc > 15 THEN cc = 1 COLOR cc, 0 RETURN m3: cc = cc + 1 IF cc > 15 THEN cc = 1 COLOR cc, 0 RETURN m4: cc = cc + 3 IF cc > 15 THEN cc = 1 COLOR cc, 0 RETURN m5: IF aa = 4001 THEN ccc = INT(RND(9) * 12) + 1 cc = INT(RND(9) * 3) + ccc COLOR cc, 0 RETURN END DATA Thexder,b,Simcity,b,Hillsfar,b,Sorcerian,b,Memory Test,c,Captain Comic,b DATA Jack Golf,b,Hunt for Red October,b,Demons Winter,b,SimEarth,b,Mushroom,a DATA Budokan,a,Welltris,b,Kings Quest III,a,Populous,b,Exit,� v: PRINT "Sorry an error accorred" a$ = INPUT$(1) GOTO STA air1:
Syntax Highlighting
[
Open in new window
]
Author Comments
none
Rating
4.50 / 8
40 Votes
http://codebin.yi.org/888
page generated in 0.01 seconds