DONKEY.BAS adapted to qb64

[+KZ]

Hi, only for fun i tried to search "DONKEY.BAS" for qb64/qbasic and i found a link on Wikipedia (Donkey.bas (Qbasic) link) but it runned with a unplayable speed, then i added some Delays to program and you can now simply compile and play :D

(the only problem is the delayed sounds, if you have time, you can replace SOUNDs with _SNDLOAD/PLAY/STOP/etc...)

Code: QB64: [Select]

1. '==============
2.  
3. ' **** Donkey ****
4.  
5. 'THIS IS ONLY AN ADAPTATION FROM QuickBasic DONKEY.BAS TO QB64
6. 'Adapted Because DONKEY.BAS (QuickBasic) run so fast when compile with QB64
7.  
8. '**************
9. 'Used QuickBasic DONKEY.BAS (from https://web.archive.org/web/20050405104141/http://www.jujusoft.com/drivey/DONKEYQB.BAS.html) as base
10. 'Used GW-BASIC DONKEY.BAS (from http://peyre.x10.mx/GWBASIC/) as guide
11. 'Used "PC-BASIC" (https://robhagemans.github.io/pcbasic/) to run GW-BASIC DONKEY.BAS
12.  
13. 'Added some DELAYs to make the program run like GW-BASIC version (on PC-BASIC)
14.  
15. 'TO DO:
16. ' * If possible, Make the game sound dont delay (For example when you press space)
17.  
18. '===============
19.  
20. REM The IBM Personal Computer Donkey
21. REM Version 1.10 (C)Copyright IBM Corp 1981, 1982
22. REM Licensed Material - Program Property of IBM
23. DEF SEG: POKE 106, 0
24. SAMPLES$ = "NO"
25. DIM CAR%(900)
26. GOTO 1010
27. SAMPLES$ = "YES"
28. 1010 KEY OFF: SCREEN 0, 1: COLOR 15, 0, 0: WIDTH 40: CLS: LOCATE 5, 19: PRINT "IBM"
29. LOCATE 7, 12, 0: PRINT "Personal Computer"
30. COLOR 10, 0: LOCATE 10, 9, 0: PRINT CHR$(213) + STRING$(21, 205) + CHR$(184)
31. LOCATE 11, 9, 0: PRINT CHR$(179) + "       DONKEY        " + CHR$(179)
32. LOCATE 12, 9, 0: PRINT CHR$(179) + STRING$(21, 32) + CHR$(179)
33. LOCATE 13, 9, 0: PRINT CHR$(179) + "    Version 1.10     " + CHR$(179)
34. LOCATE 14, 9, 0: PRINT CHR$(212) + STRING$(21, 205) + CHR$(190)
35. COLOR 15, 0: LOCATE 17, 4, 0: PRINT "(C) Copyright IBM Corp 1981, 1982"
36. COLOR 14, 0: LOCATE 23, 7, 0: PRINT "Press space bar to continue"
37. 1100 IF INKEY$ <> "" THEN GOTO 1100
38. 1110 CMD$ = INKEY$
39. IF CMD$ = "" THEN GOTO 1110
40. IF CMD$ = CHR$(27) THEN GOTO 1298
41. IF CMD$ = " " THEN GOTO 1160
42. GOTO 1110
43. 1160 DEF SEG = 0
44. IF (PEEK(&H410) AND &H30) <> &H30 THEN DEF SEG: GOTO 1291
45. WIDTH 80: CLS: LOCATE 3, 1
46. PRINT "HOLD IT!"
47. PRINT "YOU'RE NOT USING THE COLOR/GRAPHICS MONITOR ADAPTER!"
48. PRINT "THIS PROGRAM USES GRAPHICS AND REQUIRES THAT ADAPTER."
49. PRINT "PRESS THE SPACE BAR TO CONTINUE."
50. DEF SEG
51. 1240 IF INKEY$ <> "" THEN GOTO 1240
52. 1250 CMD$ = INKEY$
53. IF CMD$ = "" THEN GOTO 1250
54. IF CMD$ = CHR$(27) THEN GOTO 1298
55. IF CMD$ = " " THEN GOTO 1298
56. GOTO 1250
57. 1291 KEY OFF
58. ON ERROR GOTO 1295
59. PLAY "p16"
60. GOTO 1300
61. 1295 COLOR 31, 0, 0
62. PRINT "THIS PROGRAM REQUIRES ADVANCED BASIC -- USE COMMAND 'BASICA'": COLOR 15, 0, 0: FOR I = 1 TO 9000: NEXT: RESUME 1298
63. 1298 ON ERROR GOTO 0
64. SCREEN 0, 1: COLOR 7, 0, 0: CLS: END
65. 1300 REM
66. COLOR 0
67. DEFINT A-Y
68. SCREEN 1, 0: COLOR 8, 1
69. DIM Q%(500)
70. DIM D1%(150), D2%(150), C1%(200), C2%(200)
71. DIM DNK%(300)
72. GOSUB 1940
73. GOSUB 1780
74. CLS
75. DIM B%(300)
76. FOR I = 2 TO 300: B%(I) = -16384 + 192: NEXT
77. B%(0) = 2: B%(1) = 193
78. 1540 REM
79. CX = 110: CLS
80. LINE (0, 0)-(305, 199), , B
81. LINE (6, 6)-(97, 195), 1, BF
82. LINE (183, 6)-(305, 195), 1, BF
83. LOCATE 3, 5: PRINT "Donkey"
84. LOCATE 3, 29: PRINT "Driver"
85. LOCATE 19, 25: PRINT "Press Space ";
86. LOCATE 20, 25: PRINT "Bar to switch";
87. LOCATE 21, 25: PRINT "lanes ";
88. LOCATE 23, 25: PRINT "Press ESC ";
89. LOCATE 24, 25: PRINT "to exit ";
90. FOR Y = 4 TO 199 STEP 20: LINE (140, Y)-(140, Y + 10): NEXT
91. CY = 105: CX = 105
92. LINE (100, 0)-(100, 199): LINE (180, 0)-(180, 199)
93. 1670 LOCATE 5, 6: PRINT SD: LOCATE 5, 31: PRINT SM
94. CY = CY - 4: IF CY < 60 THEN 2230
95. PUT (CX, CY), CAR%(), PRESET
96. DX = 105 + 42 * INT(RND * 2)
97. FOR Y = (RND * -4) * 8 TO 124 STEP 6
98.  
99.     'Delay added
100.     _DELAY 0.05
101.  
102.     SOUND 20000, 0.9 'Modified SOUND Duration
103.     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
104.     IF Y >= 3 THEN PUT (DX, Y), DNK%(), PSET
105.     IF CX = DX AND Y + 25 >= CY THEN 2060
106.     IF Y AND 3 THEN PUT (140, 6), B%()
107. NEXT: LINE (DX, 124)-(DX + 32, 149), 0, BF: GOTO 1670
108. 1780 CLS
109. DRAW "S8C3"
110. DRAW "BM12,1r3m+1,3d2R1ND2u1r2d4l2u1l1"
111. DRAW "d7R1nd2u2r3d6l3u2l1d3m-1,1l3"
112. DRAW "m-1,-1u3l1d2l3u6r3d2nd2r1u7l1d1l2"
113. DRAW "u4r2d1nd2R1U2"
114. DRAW "M+1,-3"
115. DRAW "BD10D2R3U2M-1,-1L1M-1,1"
116. DRAW "BD3D1R1U1L1BR2R1D1L1U1"
117. DRAW "BD2BL2D1R1U1L1BR2R1D1L1U1"
118. DRAW "BD2BL2D1R1U1L1BR2R1D1L1U1"
119. LINE (0, 0)-(40, 60), , B
120. PAINT (1, 1)
121. REM DIM CAR%(900)
122. GET (1, 1)-(28, 44), CAR%() 'Modified "29" and "45" for a line that appeared on the side of the car
123. RETURN
124. 1940 CLS
125. DRAW "S08"
126. DRAW "BM14,18"
127. DRAW "M+2,-4R8M+1,-1U1M+1,+1M+2,-1"
128. DRAW "M-1,1M+1,3M-1,1M-1,-2M-1,2"
129. DRAW "D3L1U3M-1,1D2L1U2L3D2L1U2M-1,-1"
130. DRAW "D3L1U5M-2,3U1"
131. PAINT (21, 14), 3
132. PRESET (37, 10): PRESET (40, 10)
133. PRESET (37, 11): PRESET (40, 11)
134. GET (13, 0)-(45, 25), DNK%()
135. RETURN
136. 2060 SD = SD + 1: LOCATE 14, 6: PRINT "BOOM!"
137. GET (DX, Y)-(DX + 16, Y + 25), D1%()
138. D1X = DX: D1Y = Y: D2X = DX + 17
139. GET (DX + 17, Y)-(DX + 31, Y + 25), D2%()
140. GET (CX, CY)-(CX + 14, CY + 44), C1%()
141. GET (CX + 15, CY)-(CX + 28, CY + 44), C2%()
142. C1X = CX: C1Y = CY: C2X = CX + 15
143. FOR P = 6 TO 0 STEP -1: Z = 1 / (2 ^ P): Z1 = 1 - Z
144.  
145.     'Delay added too
146.     _DELAY 0.20
147.  
148.     PUT (C1X, C1Y), C1%(): PUT (C2X, C1Y), C2%()
149.     PUT (D1X, D1Y), D1%(): PUT (D2X, D1Y), D2%()
150.     C1X = CX * Z1: D1Y = Y * Z1: C2X = C2X + (291 - C2X) * Z
151.     D1X = DX * Z1: C1Y = C1Y + (155 - C1Y) * Z: D2X = D2X + (294 - D2X) * Z
152.     PUT (C1X, C1Y), C1%(): PUT (C2X, C1Y), C2%()
153.     PUT (D1X, D1Y), D1%(): PUT (D2X, D1Y), D2%()
154. SOUND 37 + RND * 200, 4: NEXT
155. FOR Y = 1 TO 2000: NEXT
156.  
157. 'More Delay
158. _DELAY 0.25
159.  
160. CLS: GOTO 1540
161. 2230 SM = SM + 1: LOCATE 7, 25: PRINT "Donkey loses!"
162. FOR Y = 1 TO 1000: NEXT
163. CLS: GOTO 1540
164.  

 

[bplus]

Hey cute game, thanks for sharing!

[TerryRitchie]

Yeah, IBM included donkey.BAS on their DOS installation diskettes. I know it came with version 3 of IBM DOS, not sure about others. Good find.

[SierraKen]

LOL fun game! Thanks for updating it. :)
Reminds me of my Race Car game I made last year. You can check it out here if you wish:

https://www.qb64.org/forum/index.php?topic=1510.0

[TempodiBasic]

Wow
I find fine thess old games
but all these spaghetti are a temptation!

So I digest them by GOSUB/RETURN meatballs! :-)

Code: QB64: [Select]

1. '==============
2.  
3. ' **** Donkey ****
4.  
5. 'THIS IS ONLY AN ADAPTATION FROM QuickBasic DONKEY.BAS TO QB64
6. 'Adapted Because DONKEY.BAS (QuickBasic) run so fast when compile with QB64
7.  
8. '-----------------
9. ' 2020 05 18 1.43 AM   porting from spaghetti structure(GOTO) to meatball structure (GOSUB)
10. '**************
11. 'Used QuickBasic DONKEY.BAS (from https://web.archive.org/web/20050405104141/http://www.jujusoft.com/drivey/DONKEYQB.BAS.html) as base
12. 'Used GW-BASIC DONKEY.BAS (from http://peyre.x10.mx/GWBASIC/) as guide
13. 'Used "PC-BASIC" (https://robhagemans.github.io/pcbasic/) to run GW-BASIC DONKEY.BAS
14.  
15. 'Added some DELAYs to make the program run like GW-BASIC version (on PC-BASIC)
16.  
17. 'TO DO:
18. ' * If possible, Make the game sound dont delay (For example when you press space)
19.  
20. '===============
21.  
22. REM The IBM Personal Computer Donkey
23. REM Version 1.10 (C)Copyright IBM Corp 1981, 1982
24. REM Licensed Material - Program Property of IBM
25. DEF SEG: POKE 106, 0
26. SAMPLES$ = "NO"
27. DIM CAR%(900)
28. GOSUB StartScreen 'GOTO 1010
29. SAMPLES$ = "YES"
30.  
31.  
32. StartGraphic:
33. REM
34. COLOR 0
35. DEFINT A-Y
36. SCREEN 1, 0: COLOR 8, 1
37. DIM Q%(500)
38. DIM D1%(150), D2%(150), C1%(200), C2%(200)
39. DIM DNK%(300)
40. GOSUB MakeDonkey
41. GOSUB MakeCar
42. CLS
43. DIM B%(300)
44. FOR I = 2 TO 300: B%(I) = -16384 + 192: NEXT
45. B%(0) = 2: B%(1) = 193
46.  
47. WHILE 1
48.    1540 REM
49.     CX = 110: CLS
50.     LINE (0, 0)-(305, 199), , B
51.     LINE (6, 6)-(97, 195), 1, BF
52.     LINE (183, 6)-(305, 195), 1, BF
53.     LOCATE 3, 5: PRINT "Donkey"
54.     LOCATE 3, 29: PRINT "Driver"
55.     LOCATE 19, 25: PRINT "Press Space ";
56.     LOCATE 20, 25: PRINT "Bar to switch";
57.     LOCATE 21, 25: PRINT "lanes ";
58.     LOCATE 23, 25: PRINT "Press ESC ";
59.     LOCATE 24, 25: PRINT "to exit ";
60.     FOR Y = 4 TO 199 STEP 20: LINE (140, Y)-(140, Y + 10): NEXT
61.     CY = 105: CX = 105
62.     LINE (100, 0)-(100, 199): LINE (180, 0)-(180, 199)
63.     DO '1670
64.         LOCATE 5, 6: PRINT SD: LOCATE 5, 31: PRINT SM
65.         CY = CY - 4: IF CY < 60 THEN GOSUB DonkeyLoss: EXIT DO '2230
66.         PUT (CX, CY), CAR%(), PRESET
67.         DX = 105 + 42 * INT(RND * 2)
68.         FOR Y = (RND * -4) * 8 TO 124 STEP 6
69.  
70.             'Delay added
71.             _DELAY 0.05
72.  
73.             SOUND 20000, 0.9 'Modified SOUND Duration
74.             A$ = INKEY$: IF A$ = CHR$(27) THEN GOSUB Escape ELSE POKE 106, 0:
75.             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
76.             IF Y >= 3 THEN PUT (DX, Y), DNK%(), PSET
77.             IF CX = DX AND Y + 25 >= CY THEN GOSUB Collision: EXIT DO '2060
78.             IF Y AND 3 THEN PUT (140, 6), B%()
79.         NEXT
80.         : LINE (DX, 124)-(DX + 32, 149), 0, BF:
81.     LOOP 'GOTO 1670
82. WEND
83. RETURN
84.  
85. Collision:
86. SD = SD + 1: LOCATE 14, 6: PRINT "BOOM!"
87. GET (DX, Y)-(DX + 16, Y + 25), D1%()
88. D1X = DX: D1Y = Y: D2X = DX + 17
89. GET (DX + 17, Y)-(DX + 31, Y + 25), D2%()
90. GET (CX, CY)-(CX + 14, CY + 44), C1%()
91. GET (CX + 15, CY)-(CX + 28, CY + 44), C2%()
92. C1X = CX: C1Y = CY: C2X = CX + 15
93. FOR P = 6 TO 0 STEP -1: Z = 1 / (2 ^ P): Z1 = 1 - Z
94.  
95.     'Delay added too
96.     _DELAY 0.20
97.  
98.     PUT (C1X, C1Y), C1%(): PUT (C2X, C1Y), C2%()
99.     PUT (D1X, D1Y), D1%(): PUT (D2X, D1Y), D2%()
100.     C1X = CX * Z1: D1Y = Y * Z1: C2X = C2X + (291 - C2X) * Z
101.     D1X = DX * Z1: C1Y = C1Y + (155 - C1Y) * Z: D2X = D2X + (294 - D2X) * Z
102.     PUT (C1X, C1Y), C1%(): PUT (C2X, C1Y), C2%()
103.     PUT (D1X, D1Y), D1%(): PUT (D2X, D1Y), D2%()
104.     SOUND 37 + RND * 200, 4:
105. NEXT
106. FOR Y = 1 TO 2000: NEXT
107.  
108. 'More Delay
109. _DELAY 0.25
110.  
111. CLS: 'GOTO 1540
112. RETURN
113.  
114. DonkeyLoss:
115. SM = SM + 1: LOCATE 7, 25: PRINT "Donkey loses!"
116. FOR Y = 1 TO 1000: NEXT
117. CLS: 'GOTO 1540
118. RETURN
119.  
120. StartScreen:
121. KEY OFF: SCREEN 0, 1: COLOR 15, 0, 0: WIDTH 40: CLS: LOCATE 5, 19: PRINT "IBM"
122. LOCATE 7, 12, 0: PRINT "Personal Computer"
123. COLOR 10, 0: LOCATE 10, 9, 0: PRINT CHR$(213) + STRING$(21, 205) + CHR$(184)
124. LOCATE 11, 9, 0: PRINT CHR$(179) + "       DONKEY        " + CHR$(179)
125. LOCATE 12, 9, 0: PRINT CHR$(179) + STRING$(21, 32) + CHR$(179)
126. LOCATE 13, 9, 0: PRINT CHR$(179) + "    Version 1.10     " + CHR$(179)
127. LOCATE 14, 9, 0: PRINT CHR$(212) + STRING$(21, 205) + CHR$(190)
128. COLOR 15, 0: LOCATE 17, 4, 0: PRINT "(C) Copyright IBM Corp 1981, 1982"
129. COLOR 14, 0: LOCATE 23, 7, 0: PRINT "Press space bar to continue"
130. DO WHILE INKEY$ = ""
131.     CMD$ = INKEY$
132.     IF CMD$ = CHR$(27) THEN GOSUB Escape 'GOTO 1298
133.     IF CMD$ = " " THEN GOSUB TestAdapter 'GOTO 1160
134. LOOP
135. RETURN
136.  
137. TestAdapter:
138. DEF SEG = 0
139. IF (PEEK(&H410) AND &H30) = &H30 THEN
140.     WIDTH 80: CLS: LOCATE 3, 1
141.     PRINT "HOLD IT!"
142.     PRINT "YOU'RE NOT USING THE COLOR/GRAPHICS MONITOR ADAPTER!"
143.     PRINT "THIS PROGRAM USES GRAPHICS AND REQUIRES THAT ADAPTER."
144.     PRINT "PRESS THE SPACE BAR TO CONTINUE."
145.     DEF SEG
146.     DO WHILE INKEY$ = ""
147.         CMD$ = INKEY$
148.         IF CMD$ = CHR$(27) THEN GOSUB Escape 'GOTO 1298
149.         IF CMD$ = " " THEN GOSUB Escape 'GOTO 1298
150.     LOOP
151. ELSE
152.     DEF SEG: GOSUB TestBasic 'GOTO 1291
153.     GOSUB StartGraphic
154. END IF
155. RETURN
156.  
157. Escape:
158. ON ERROR GOTO 0
159. SCREEN 0, 1: COLOR 7, 0, 0: CLS: END
160. RETURN
161.  
162. TestBasic:
163. KEY OFF
164. ON ERROR GOTO WarningBASICA '1295
165. PLAY "p16"
166. RETURN
167.  
168. WarningBASICA:
169. COLOR 31, 0, 0
170. PRINT "THIS PROGRAM REQUIRES ADVANCED BASIC -- USE COMMAND 'BASICA'": COLOR 15, 0, 0: FOR I = 1 TO 9000: NEXT:
171. RESUME Escape '1298
172.  
173. MakeDonkey:
174. CLS
175. DRAW "S08"
176. DRAW "BM14,18"
177. DRAW "M+2,-4R8M+1,-1U1M+1,+1M+2,-1"
178. DRAW "M-1,1M+1,3M-1,1M-1,-2M-1,2"
179. DRAW "D3L1U3M-1,1D2L1U2L3D2L1U2M-1,-1"
180. DRAW "D3L1U5M-2,3U1"
181. PAINT (21, 14), 3
182. PRESET (37, 10): PRESET (40, 10)
183. PRESET (37, 11): PRESET (40, 11)
184. GET (13, 0)-(45, 25), DNK%()
185. RETURN
186.  
187. MakeCar:
188. CLS
189. DRAW "S8C3"
190. DRAW "BM12,1r3m+1,3d2R1ND2u1r2d4l2u1l1"
191. DRAW "d7R1nd2u2r3d6l3u2l1d3m-1,1l3"
192. DRAW "m-1,-1u3l1d2l3u6r3d2nd2r1u7l1d1l2"
193. DRAW "u4r2d1nd2R1U2"
194. DRAW "M+1,-3"
195. DRAW "BD10D2R3U2M-1,-1L1M-1,1"
196. DRAW "BD3D1R1U1L1BR2R1D1L1U1"
197. DRAW "BD2BL2D1R1U1L1BR2R1D1L1U1"
198. DRAW "BD2BL2D1R1U1L1BR2R1D1L1U1"
199. LINE (0, 0)-(40, 60), , B
200. PAINT (1, 1)
201. REM DIM CAR%(900)
202. GET (1, 1)-(28, 44), CAR%() 'Modified "29" and "45" for a line that appeared on the side of the car
203. RETURN
204.  
205.  

If I'll find fun sounds I'll substuite to SOUND!
Thanks to share

[+KZ]

Wow
I find fine thess old games
but all these spaghetti are a temptation!

So I digest them by GOSUB/RETURN meatballs! :-)

Code: QB64: [Select]

1. '==============
2.  
3. ' **** Donkey ****
4.  
5. 'THIS IS ONLY AN ADAPTATION FROM QuickBasic DONKEY.BAS TO QB64
6. 'Adapted Because DONKEY.BAS (QuickBasic) run so fast when compile with QB64
7.  
8. '-----------------
9. ' 2020 05 18 1.43 AM   porting from spaghetti structure(GOTO) to meatball structure (GOSUB)
10. '**************
11. 'Used QuickBasic DONKEY.BAS (from https://web.archive.org/web/20050405104141/http://www.jujusoft.com/drivey/DONKEYQB.BAS.html) as base
12. 'Used GW-BASIC DONKEY.BAS (from http://peyre.x10.mx/GWBASIC/) as guide
13. 'Used "PC-BASIC" (https://robhagemans.github.io/pcbasic/) to run GW-BASIC DONKEY.BAS
14.  
15. 'Added some DELAYs to make the program run like GW-BASIC version (on PC-BASIC)
16.  
17. 'TO DO:
18. ' * If possible, Make the game sound dont delay (For example when you press space)
19.  
20. '===============
21.  
22. REM The IBM Personal Computer Donkey
23. REM Version 1.10 (C)Copyright IBM Corp 1981, 1982
24. REM Licensed Material - Program Property of IBM
25. DEF SEG: POKE 106, 0
26. SAMPLES$ = "NO"
27. DIM CAR%(900)
28. GOSUB StartScreen 'GOTO 1010
29. SAMPLES$ = "YES"
30.  
31.  
32. StartGraphic:
33. REM
34. COLOR 0
35. DEFINT A-Y
36. SCREEN 1, 0: COLOR 8, 1
37. DIM Q%(500)
38. DIM D1%(150), D2%(150), C1%(200), C2%(200)
39. DIM DNK%(300)
40. GOSUB MakeDonkey
41. GOSUB MakeCar
42. CLS
43. DIM B%(300)
44. FOR I = 2 TO 300: B%(I) = -16384 + 192: NEXT
45. B%(0) = 2: B%(1) = 193
46.  
47. WHILE 1
48.    1540 REM
49.     CX = 110: CLS
50.     LINE (0, 0)-(305, 199), , B
51.     LINE (6, 6)-(97, 195), 1, BF
52.     LINE (183, 6)-(305, 195), 1, BF
53.     LOCATE 3, 5: PRINT "Donkey"
54.     LOCATE 3, 29: PRINT "Driver"
55.     LOCATE 19, 25: PRINT "Press Space ";
56.     LOCATE 20, 25: PRINT "Bar to switch";
57.     LOCATE 21, 25: PRINT "lanes ";
58.     LOCATE 23, 25: PRINT "Press ESC ";
59.     LOCATE 24, 25: PRINT "to exit ";
60.     FOR Y = 4 TO 199 STEP 20: LINE (140, Y)-(140, Y + 10): NEXT
61.     CY = 105: CX = 105
62.     LINE (100, 0)-(100, 199): LINE (180, 0)-(180, 199)
63.     DO '1670
64.         LOCATE 5, 6: PRINT SD: LOCATE 5, 31: PRINT SM
65.         CY = CY - 4: IF CY < 60 THEN GOSUB DonkeyLoss: EXIT DO '2230
66.         PUT (CX, CY), CAR%(), PRESET
67.         DX = 105 + 42 * INT(RND * 2)
68.         FOR Y = (RND * -4) * 8 TO 124 STEP 6
69.  
70.             'Delay added
71.             _DELAY 0.05
72.  
73.             SOUND 20000, 0.9 'Modified SOUND Duration
74.             A$ = INKEY$: IF A$ = CHR$(27) THEN GOSUB Escape ELSE POKE 106, 0:
75.             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
76.             IF Y >= 3 THEN PUT (DX, Y), DNK%(), PSET
77.             IF CX = DX AND Y + 25 >= CY THEN GOSUB Collision: EXIT DO '2060
78.             IF Y AND 3 THEN PUT (140, 6), B%()
79.         NEXT
80.         : LINE (DX, 124)-(DX + 32, 149), 0, BF:
81.     LOOP 'GOTO 1670
82. WEND
83. RETURN
84.  
85. Collision:
86. SD = SD + 1: LOCATE 14, 6: PRINT "BOOM!"
87. GET (DX, Y)-(DX + 16, Y + 25), D1%()
88. D1X = DX: D1Y = Y: D2X = DX + 17
89. GET (DX + 17, Y)-(DX + 31, Y + 25), D2%()
90. GET (CX, CY)-(CX + 14, CY + 44), C1%()
91. GET (CX + 15, CY)-(CX + 28, CY + 44), C2%()
92. C1X = CX: C1Y = CY: C2X = CX + 15
93. FOR P = 6 TO 0 STEP -1: Z = 1 / (2 ^ P): Z1 = 1 - Z
94.  
95.     'Delay added too
96.     _DELAY 0.20
97.  
98.     PUT (C1X, C1Y), C1%(): PUT (C2X, C1Y), C2%()
99.     PUT (D1X, D1Y), D1%(): PUT (D2X, D1Y), D2%()
100.     C1X = CX * Z1: D1Y = Y * Z1: C2X = C2X + (291 - C2X) * Z
101.     D1X = DX * Z1: C1Y = C1Y + (155 - C1Y) * Z: D2X = D2X + (294 - D2X) * Z
102.     PUT (C1X, C1Y), C1%(): PUT (C2X, C1Y), C2%()
103.     PUT (D1X, D1Y), D1%(): PUT (D2X, D1Y), D2%()
104.     SOUND 37 + RND * 200, 4:
105. NEXT
106. FOR Y = 1 TO 2000: NEXT
107.  
108. 'More Delay
109. _DELAY 0.25
110.  
111. CLS: 'GOTO 1540
112. RETURN
113.  
114. DonkeyLoss:
115. SM = SM + 1: LOCATE 7, 25: PRINT "Donkey loses!"
116. FOR Y = 1 TO 1000: NEXT
117. CLS: 'GOTO 1540
118. RETURN
119.  
120. StartScreen:
121. KEY OFF: SCREEN 0, 1: COLOR 15, 0, 0: WIDTH 40: CLS: LOCATE 5, 19: PRINT "IBM"
122. LOCATE 7, 12, 0: PRINT "Personal Computer"
123. COLOR 10, 0: LOCATE 10, 9, 0: PRINT CHR$(213) + STRING$(21, 205) + CHR$(184)
124. LOCATE 11, 9, 0: PRINT CHR$(179) + "       DONKEY        " + CHR$(179)
125. LOCATE 12, 9, 0: PRINT CHR$(179) + STRING$(21, 32) + CHR$(179)
126. LOCATE 13, 9, 0: PRINT CHR$(179) + "    Version 1.10     " + CHR$(179)
127. LOCATE 14, 9, 0: PRINT CHR$(212) + STRING$(21, 205) + CHR$(190)
128. COLOR 15, 0: LOCATE 17, 4, 0: PRINT "(C) Copyright IBM Corp 1981, 1982"
129. COLOR 14, 0: LOCATE 23, 7, 0: PRINT "Press space bar to continue"
130. DO WHILE INKEY$ = ""
131.     CMD$ = INKEY$
132.     IF CMD$ = CHR$(27) THEN GOSUB Escape 'GOTO 1298
133.     IF CMD$ = " " THEN GOSUB TestAdapter 'GOTO 1160
134. LOOP
135. RETURN
136.  
137. TestAdapter:
138. DEF SEG = 0
139. IF (PEEK(&H410) AND &H30) = &H30 THEN
140.     WIDTH 80: CLS: LOCATE 3, 1
141.     PRINT "HOLD IT!"
142.     PRINT "YOU'RE NOT USING THE COLOR/GRAPHICS MONITOR ADAPTER!"
143.     PRINT "THIS PROGRAM USES GRAPHICS AND REQUIRES THAT ADAPTER."
144.     PRINT "PRESS THE SPACE BAR TO CONTINUE."
145.     DEF SEG
146.     DO WHILE INKEY$ = ""
147.         CMD$ = INKEY$
148.         IF CMD$ = CHR$(27) THEN GOSUB Escape 'GOTO 1298
149.         IF CMD$ = " " THEN GOSUB Escape 'GOTO 1298
150.     LOOP
151. ELSE
152.     DEF SEG: GOSUB TestBasic 'GOTO 1291
153.     GOSUB StartGraphic
154. END IF
155. RETURN
156.  
157. Escape:
158. ON ERROR GOTO 0
159. SCREEN 0, 1: COLOR 7, 0, 0: CLS: END
160. RETURN
161.  
162. TestBasic:
163. KEY OFF
164. ON ERROR GOTO WarningBASICA '1295
165. PLAY "p16"
166. RETURN
167.  
168. WarningBASICA:
169. COLOR 31, 0, 0
170. PRINT "THIS PROGRAM REQUIRES ADVANCED BASIC -- USE COMMAND 'BASICA'": COLOR 15, 0, 0: FOR I = 1 TO 9000: NEXT:
171. RESUME Escape '1298
172.  
173. MakeDonkey:
174. CLS
175. DRAW "S08"
176. DRAW "BM14,18"
177. DRAW "M+2,-4R8M+1,-1U1M+1,+1M+2,-1"
178. DRAW "M-1,1M+1,3M-1,1M-1,-2M-1,2"
179. DRAW "D3L1U3M-1,1D2L1U2L3D2L1U2M-1,-1"
180. DRAW "D3L1U5M-2,3U1"
181. PAINT (21, 14), 3
182. PRESET (37, 10): PRESET (40, 10)
183. PRESET (37, 11): PRESET (40, 11)
184. GET (13, 0)-(45, 25), DNK%()
185. RETURN
186.  
187. MakeCar:
188. CLS
189. DRAW "S8C3"
190. DRAW "BM12,1r3m+1,3d2R1ND2u1r2d4l2u1l1"
191. DRAW "d7R1nd2u2r3d6l3u2l1d3m-1,1l3"
192. DRAW "m-1,-1u3l1d2l3u6r3d2nd2r1u7l1d1l2"
193. DRAW "u4r2d1nd2R1U2"
194. DRAW "M+1,-3"
195. DRAW "BD10D2R3U2M-1,-1L1M-1,1"
196. DRAW "BD3D1R1U1L1BR2R1D1L1U1"
197. DRAW "BD2BL2D1R1U1L1BR2R1D1L1U1"
198. DRAW "BD2BL2D1R1U1L1BR2R1D1L1U1"
199. LINE (0, 0)-(40, 60), , B
200. PAINT (1, 1)
201. REM DIM CAR%(900)
202. GET (1, 1)-(28, 44), CAR%() 'Modified "29" and "45" for a line that appeared on the side of the car
203. RETURN
204.  
205.  

If I'll find fun sounds I'll substuite to SOUND!
Thanks to share

Nice