txt 3 C: CD C:\N\NIC2 ECHO ON  @echo OFF CLS echo echo *----------------------------------* echo | COPYRIGHTED by: K. VAN VLIET | echo | 3D QBASIC PROGRAMS & 3D DRAWINGS | echo | C:\N\NIC2: MAIN 3D MENU: | echo *----------------------------------* echo | QBASIC MANAGER MENU......A | echo | 3D DRAWINGS (WINDOW) MENU .....K | echo | LETTER & RSUM README ........T | echo | SPACE & AECL ..................U | echo | DIRECTORY .....................V | echo | RETURN TO DOS .............ENTER | echo | | echo | TOUCH KEY & WAIT | echo *----------------------------------* rem getkey.com @ECHO ON PROMPT $P$G ECHO OFF rem error al=key REM A K T U V ?? for %%p in (65 75 84 85 86 100) do if errorlevel %%p goto jmp%%p goto EXIT :jmp84 REM T CALL QEDIT LETTER CALL RESUMEE CALL QEDIT READ.ME goto done :jmp85 REM U REM CALL QBASIC.EXE /RUN CLOCK CALL QBASIC.EXE /RUN SPACE CALL QBASIC.EXE /RUN AECL goto done :jmp86 REM V CALL DIR/W PAUSE goto done :jmp100 REM ??? CALL DIR /W goto exit :jmp65 rem CHESS A REM <<<<<<<<<<<<<<<<< QBASIC >>>>>>>>> ECHO ON  @echo OFF CLS echo echo *----------------------------------* echo | QBASIC MENU: | echo *----------------------------------* echo | USE 'ALT F X' TO QUIT QBASIC | echo *----------------------------------* echo | 3D PLANE BAS ........B | echo | MARKED DICE BAS ........C | echo | 3DSQUARES BAS ........D | echo | WITH (RED & BLUE) STERIO GLASES | echo | 3D RED & BLUE CUBE BAS ........E | echo | STERIOSCOPIC SCENE BAS ........F | echo | MFTG. SIMULATION BAS ........G | echo | CLOCK & CALENDAR BAS ........H | echo | | echo | ROY G BIV BAS ........I | echo | VIEW DIAGONALLY | echo | | echo | STERIOSCOPIC EXE ........J | echo | | echo | TOUCH KEY & WAIT | echo *----------------------------------* rem getkey @ECHO ON PROMPT $P$G ECHO OFF REM B C D E F G H I J for %%p in (66 67 68 69 70 71 72 73 74) do if errorlevel %%p goto jmp%%p CALL add goto exit :JMP66 REM B CALL QBASIC.EXE /RUN 3DPLANE4.BAS GOTO DONE :JMP67 REM C CALL QBASIC.EXE /RUN PARADICE.BAS GOTO DONE :JMP68 REM D CALL QBASIC.EXE /RUN 3DSQRS.BAS GOTO DONE :JMP69 REM E CALL QBASIC.EXE /RUN STRCUBES.BAS GOTO DONE :JMP70 REM F CALL QBASIC.EXE /RUN STERIO3C.BAS CALL QBASIC.EXE /RUN 3DSCOPE.BAS GOTO DONE :JMP71 REM G CALL QBASIC.EXE /RUN MFSS GOTO DONE :JMP72 REM H CALL DATE CALL TIME CALL QBASIC.EXE /RUN CLOCK.BAS GOTO DONE :JMP73 REM I CALL QBASIC.EXE /RUN 3DSCOPE1.BAS GOTO DONE :JMP74 REM J CALL 6D.EXE GOTO DONE GOTO EXIT :JMP75 rem K REM <<<<<<<<<<<<<<<<< BMP LETTER DOS >>>>>>>>> ECHO ON  @echo OFF CLS echo echo *----------------------------------* echo | BMP & FUNCTIONS MENU: | echo *----------------------------------* echo | THIS REQUIRES WINDOWS | echo *----------------------------------* echo | 3D CROSS BMP ..........L | echo | 3D CROSSES BMP ..........M | echo | 3D COLUMN BMP...........N | echo | 3D HEART BMP ..........O | echo | | echo | COPY C:\N\NIC2\*.* B: .........P | echo | COPY C:\N\NIC2\*.* A: .........Q | echo | COPY A:\*.* B:\ ...............R | echo | | echo | TOUCH KEY & WAIT | echo *----------------------------------* rem getkey @ECHO ON rem ' [' m PROMPT $P$G ECHO OFF rem error al=key REM L M N O P Q R S for %%p in (76 77 78 79 80 81 82 83) do if errorlevel %%p goto jmp%%p CALL SCREEN CALL nick goto exit :JMP76 REM L IF EXIST 3DCROSS.BMP GOTO BMP0 CALL C:\N\NIC9\PKUNZIP.EXE BMP.ZIP :BMP0 CALL WIN 3DCROSS.BMP GOTO DONE :JMP77 REM M IF EXIST CROSSES.BMP GOTO BMP2 CALL C:\N\NIC9\PKUNZIP.EXE BMP.ZIP :BMP2 CALL WIN CROSSES.BMP GOTO DONE :JMP78 REM N IF EXIST 3DCOL.BMP GOTO BMP1 CALL C:\N\NIC9\PKUNZIP.EXE BMP.ZIP :BMP1 CALL WIN 3DCOL.BMP GOTO DONE :JMP79 REM O IF EXIST 3D-HEART.BMP GOTO BMP3 CALL C:\N\NIC9\PKUNZIP.EXE BMP.ZIP :BMP3 CALL WIN 3D-HEART.BMP GOTO DONE :JMP80 REM P CALL CPC-B.BAT GOTO DONE :JMP81 REM Q CALL CPC-A.BAT GOTO DONE :JMP82 REM R CALL COPY A:\*.* B:\*.* GOTO DONE :JMP83 REM S CALL RESUMEE.COM GOTO DONE :DONE CD C:\N\NIC2 CALL START2 :EXIT @ECHO ON rem  [ 1;40;37m PROMPT $P$G 1
Hosted by www.Geocities.ws