DONKEYQB.BAS:
REM The IBM Personal Computer Donkey
REM Version 1.10 (C)Copyright IBM Corp 1981, 1&#
57;82
REM Licensed Material - Program Property of IBM
DEF SEG : POKE 106, 0
SAMPLES$ = "NO"
DIM CAR%(900)
GOTO 1010
SAMPLES$ = "YES"
1010 KEY OFF: SCREEN 0, 1: COLOR 15, 0, 0: W
IDTH 40: CLS : LOCATE 5, 19: PRINT "IBM"
LOCATE 7, 12, 0: PRINT "Personal Computer"
COLOR 10, 0: LOCATE 10, 9, 0: PRINT CHR$(21
3) + STRING$(21, 205) + CHR$(184)
LOCATE 11, 9, 0: PRINT CHR$(179) + " DONK
EY " + CHR$(179)
LOCATE 12, 9, 0: PRINT CHR$(179) + STRING$(21, 32)
+ CHR$(179)
LOCATE 13, 9, 0: PRINT CHR$(179) + " Version
9;.10 " + CHR$(179)
LOCATE 14, 9, 0: PRINT CHR$(212) + STRING$(21, 205)
+ CHR$(190)
COLOR 15, 0: LOCATE 17, 4, 0: PRINT "(C) Copyright IBM
Corp 1981, 1982"
COLOR 14, 0: LOCATE 23, 7, 0: PRINT "Press space bar to con
tinue"
1100 IF INKEY$ <> "" THEN GOTO 110&#
48;
1110 CMD$ = INKEY$
IF CMD$ = "" THEN GOTO 1110
IF CMD$ = CHR$(27) THEN GOTO 1298
IF CMD$ = " " THEN GOTO 1160
GOTO 1110
1160 DEF SEG = 0
IF (PEEK(&H410) AND &H30) <> &H30 THEN DEF SEG : GO
TO 1291
WIDTH 80: CLS : LOCATE 3, 1
PRINT "HOLD IT!"
PRINT "YOU'RE NOT USING THE COLOR/GRAPHICS MONITOR ADAPTER!"
PRINT "THIS PROGRAM USES GRAPHICS AND REQUIRES THAT ADAPTER."
PRINT "PRESS THE SPACE BAR TO CONTINUE."
DEF SEG
1240 IF INKEY$ <> "" THEN GOTO 1240
1250 CMD$ = INKEY$
IF CMD$ = "" THEN GOTO 1250
IF CMD$ = CHR$(27) THEN GOTO 1298
IF CMD$ = " " THEN GOTO 1298
GOTO 1250
1291 KEY OFF
ON ERROR GOTO 1295
PLAY "p16"
GOTO 1300
1295 COLOR 31, 0, 0
PRINT "THIS PROGRAM REQUIRES ADVANCED BASIC -- USE COMMAND 'BASICA&
#39;": COLOR 15, 0, 0: FOR I = 1 TO 9000: NE
XT: RESUME 1298
1298 ON ERROR GOTO 0
SCREEN 0, 1: COLOR 7, 0, 0: CLS : END
1300 REM
COLOR 0
DEFINT A-Y
SCREEN 1, 0: COLOR 8, 1
DIM Q%(500)
DIM D1%(150), D2%(150), C1%(200), C2%(20
;0)
DIM DNK%(300)
GOSUB 1940
GOSUB 1780
CLS
DIM B%(300)
FOR I = 2 TO 300: B%(I) = -16384 + 192: NEXT
B%(0) = 2: B%(1) = 193
1540 REM
CX = 110: CLS
LINE (0, 0)-(305, 199), , B
LINE (6, 6)-(97, 195), 1, BF
LINE (183, 6)-(305, 195), 1, BF
LOCATE 3, 5: PRINT "Donkey"
LOCATE 3, 29: PRINT "Driver"
LOCATE 19, 25: PRINT "Press Space ";
LOCATE 20, 25: PRINT "Bar to switch";
LOCATE 21, 25: PRINT "lanes ";
LOCATE 23, 25: PRINT "Press ESC ";
LOCATE 24, 25: PRINT "to exit ";
FOR Y = 4 TO 199 STEP 20: LINE (140, Y)-(140
;, Y + 10): NEXT
CY = 105: CX = 105
LINE (100, 0)-(100, 199): LINE (
9;80, 0)-(180, 199)
1670 LOCATE 5, 6: PRINT SD: LOCATE 5, 31: PRINT SM
CY = CY - 4: IF CY < 60 THEN 2230
PUT (CX, CY), CAR%, PRESET
DX = 105 + 42 * INT(RND * 2)
FOR Y = (RND * -4) * 8 TO 124 STEP 6
SOUND 20000, 1
A$ = INKEY$: IF A$ = CHR$(27) THEN 1298 ELSE POKE 106, 0
;: IF LEN(A$) > 0 THEN LINE (CX, CY)-(CX + 28, CY + 44), 0, BF: CX =
252 - CX: PUT (CX, CY), CAR%, PRESET: SOUND 200, 1
IF Y >= 3 THEN PUT (DX, Y), DNK%, PSET
IF CX = DX AND Y + 25 >= CY THEN 2060
IF Y AND 3 THEN PUT (140, 6), B%
NEXT: LINE (DX, 124)-(DX + 32, 149), 0, BF: GOTO 167
8;
1780 CLS
DRAW "S8C3"
DRAW "BM12,1r3m+1,3d2R1ND2u1r2d4l2u1l1"
DRAW "d7R1nd2u2r3d6l3u2l1d3m-1,1l3"
DRAW "m-1,-1u3l1d2l3u6r3d2nd2r1u7l1d1l2"
DRAW "u4r2d1nd2R1U2"
DRAW "M+1,-3"
DRAW "BD10D2R3U2M-1,-1L1M-1,1"
DRAW "BD3D1R1U1L1BR2R1D1L1U1"
DRAW "BD2BL2D1R1U1L1BR2R1D1L1U1"
DRAW "BD2BL2D1R1U1L1BR2R1D1L1U1"
LINE (0, 0)-(40, 60), , B
PAINT (1, 1)
REM DIM CAR%(900)
GET (1, 1)-(29, 45), CAR%
RETURN
1940 CLS
DRAW "S08"
DRAW "BM14,18"
DRAW "M+2,-4R8M+1,-1U1M+1,+1M+2,-1"
DRAW "M-1,1M+1,3M-1,1M-1,-2M-1,2"
DRAW "D3L1U3M-1,1D2L1U2L3D2L1U2M-1,-1"
DRAW "D3L1U5M-2,3U1"
PAINT (21, 14), 3
PRESET (37, 10): PRESET (40, 10)
PRESET (37, 11): PRESET (40, 11)
GET (13, 0)-(45, 25), DNK%
RETURN
2060 SD = SD + 1: LOCATE 14, 6: PRINT "BOOM!"
GET (DX, Y)-(DX + 16, Y + 25), D1%
D1X = DX: D1Y = Y: D2X = DX + 17
GET (DX + 17, Y)-(DX + 31, Y + 25), D2%
GET (CX, CY)-(CX + 14, CY + 44), C1%
GET (CX + 15, CY)-(CX + 28, CY + 44), C2%
C1X = CX: C1Y = CY: C2X = CX + 15
FOR P = 6 TO 0 STEP -1: Z = 1 / (2 ^ P): Z1 = 1 - Z
PUT (C1X, C1Y), C1%: PUT (C2X, C1Y), C2%
PUT (D1X, D1Y), D1%: PUT (D2X, D1Y), D2%
C1X = CX * Z1: D1Y = Y * Z1: C2X = C2X + (291 - C2X
) * Z
D1X = DX * Z1: C1Y = C1Y + (155 - C1Y) * Z: D2X = D
2X + (294 - D2X) * Z
PUT (C1X, C1Y), C1%: PUT (C2X, C1Y), C2%
PUT (D1X, D1Y), D1%: PUT (D2X, D1Y), D2%
SOUND 37 + RND * 200, 4: NEXT
FOR Y = 1 TO 2000: NEXT
CLS : GOTO 1540
2230 SM = SM + 1: LOCATE 7, 25: PRINT "Donkey loses!"
FOR Y = 1 TO 1000: NEXT
CLS : GOTO 1540
TK-DOS11.TXT:
-=-=-=-=-=-=-
DOS v1.10
ripped by
Tech Knight
-=-=-=-=-=-=-
INTRODUCTION
------------
Haven't you always wanted to try the first version of DOS? Maybe not,
but I became interested when I read that all 1.x versions of DOS came
with a game called DONKEY.BAS. The game in question was written by
Bill Gates and Neil Konzen - as you can see, IBM was pretty desperate
for things to include with DOS.
CONTENTS OF ARCHIVE
-------------------
This archive (TK-DOS11.ZIP) contains:
TK-DOS11.TXT (This file)
TK-DOS11.DIM (The DOS v1.10 image file)
DIM14A .ZIP (Disk Image Archiver)
DONKEYQB.BAS (DONKEY.BAS converted to QBasic format)
INTERESTING FACTS ABOUT DOS v1.10
---------------------------------
- There are no volume labels.
- The MKDIR/MD, CHDIR/CD, and RMDIR/RD commands
don't work because directories are not supported!
- BASIC.COM and BASICA.COM will not work on most 486s
and above; this is because they're looking for
certain ROM chips that do not exist in modern computers.
- The BASIC programs that come with DOS v1.10 can be run
with GW-BASIC, which is available on the web.
- You must boot with a 5-1/4" drive, the image extractor
will turn the disk into a 160k floppy.
- Hard drives cannot be accessed with DOS v1.10
HOW TO MAKE A DOS v1.10 BOOT DISK
---------------------------------
Note: You *must* extract the image to a 5-1/4" floppy disk!
If your 5-1/4" drive is not your A: drive, many computers
support switching drive letters within the BIOS. Check
your manufacturer's documentation for details.
If this method is unavailable to you, your floppy drive
cable can be switched inside your computer. The drive
connected to the end of the floppy cable is always A:,
and the drive connected to the middle of the floppy
cable is always B:.
1. Extract DIM14A.ZIP to the directory that contains TK-DOS1&#
49;.DIM
2. Use DIM to uncompress the image file.
Example: DIM -r A: TK-DOS11.DIM
This will extract the image to the A: drive.
WARRANTY
--------
No warranty, whether express or implied, is given.
By following any of the proceedures described in this document, you
agree to take full responsibility for the consequences, financial or
otherwise.
GREETS
------
#OldWarez [EFNet]
COPYRIGHTS
----------
I do not claim ownership of the programs contained within this archive,
I am merely distributing them with the purpose of maintaining a portion
of history that deserves to be remembered. I reap no financial rewards
from this venture.
Disk Image Archiver (DIM) is Copyright (C)1992,1993 Ray
Arachelian
The inclusion of DIM in this archive complies with the author's
licensing scheme. Please consider registering DIM.
DOS Version 1.10 is Copyright (C)1981,1982 IBM C
orporation
DOS is included as per my statement in paragraph 1 of COPYRIGHTS.
QBasic is Copyright (C)1987-1992, Microsoft Corporation
GW-BASIC is Copyright (C)1983-1988, Microsoft Corporation
This file TK-DOS11.TXT is Copyright (C)1998, Tech Knight Pro
ductions
- Tech Knight, 1998-12-31
Visit TechKnight.Com at
http://www.techknight.com
