## …Show last 76 lines

61` CX = 110: CLS`

62` LINE (0, 0)-(305, 199), , B`

63` LINE (6, 6)-(97, 195), 1, BF`

64` LINE (183, 6)-(305, 195), 1, BF`

65` LOCATE 3, 5: PRINT "Donkey"`

66` LOCATE 3, 29: PRINT "Driver"`

67` LOCATE 19, 25: PRINT "Press Space ";`

68` LOCATE 20, 25: PRINT "Bar to switch";`

69` LOCATE 21, 25: PRINT "lanes ";`

70` LOCATE 23, 25: PRINT "Press ESC ";`

71` LOCATE 24, 25: PRINT "to exit ";`

72` FOR Y = 4 TO 199 STEP 20: LINE (140, Y)-(140, Y + 10): NEXT`

73` CY = 105: CX = 105`

74` LINE (100, 0)-(100, 199): LINE (180, 0)-(180, 199)`

75`1670 LOCATE 5, 6: PRINT SD: LOCATE 5, 31: PRINT SM`

76` CY = CY - 4: IF CY < 60 THEN 2230`

77` PUT (CX, CY), CAR%, PRESET`

78` DX = 105 + 42 * INT(RND * 2)`

79` FOR Y = (RND * -4) * 8 TO 124 STEP 6`

80` SOUND 20000, 1`

81` A$ = INKEY$: IF A$ = CHR$(27) THEN 1298 ELSE POKE 106, 0: `

82` IF LEN(A$) > 0 THEN LINE (CX, CY)-(CX + 28, CY + 44), 0, BF: `

83` CX = 252 - CX: PUT (CX, CY), CAR%, PRESET: SOUND 200, 1`

84` IF Y >= 3 THEN PUT (DX, Y), DNK%, PSET`

85` IF CX = DX AND Y + 25 >= CY THEN 2060`

86` IF Y AND 3 THEN PUT (140, 6), B%`

87` NEXT: LINE (DX, 124)-(DX + 32, 149), 0, BF: GOTO 1670`

88`1780 CLS`

89` DRAW "S8C3"`

90` DRAW "BM12,1r3m+1,3d2R1ND2u1r2d4l2u1l1"`

91` DRAW "d7R1nd2u2r3d6l3u2l1d3m-1,1l3"`

92` DRAW "m-1,-1u3l1d2l3u6r3d2nd2r1u7l1d1l2"`

93` DRAW "u4r2d1nd2R1U2"`

94` DRAW "M+1,-3"`

95` DRAW "BD10D2R3U2M-1,-1L1M-1,1"`

96` DRAW "BD3D1R1U1L1BR2R1D1L1U1"`

97` DRAW "BD2BL2D1R1U1L1BR2R1D1L1U1"`

98` DRAW "BD2BL2D1R1U1L1BR2R1D1L1U1"`

99` LINE (0, 0)-(40, 60), , B`

100` PAINT (1, 1)`

101` REM DIM CAR%(900)`

102` GET (1, 1)-(29, 45), CAR%`

103` RETURN`

104`1940 CLS`

105` DRAW "S08"`

106` DRAW "BM14,18"`

107` DRAW "M+2,-4R8M+1,-1U1M+1,+1M+2,-1"`

108` DRAW "M-1,1M+1,3M-1,1M-1,-2M-1,2"`

109` DRAW "D3L1U3M-1,1D2L1U2L3D2L1U2M-1,-1"`

110` DRAW "D3L1U5M-2,3U1"`

111` PAINT (21, 14), 3`

112` PRESET (37, 10): PRESET (40, 10)`

113` PRESET (37, 11): PRESET (40, 11)`

114` GET (13, 0)-(45, 25), DNK%`

115` RETURN`

116`2060 SD = SD + 1: LOCATE 14, 6: PRINT "BOOM!"`

117` GET (DX, Y)-(DX + 16, Y + 25), D1%`

118` D1X = DX: D1Y = Y: D2X = DX + 17`

119` GET (DX + 17, Y)-(DX + 31, Y + 25), D2%`

120` GET (CX, CY)-(CX + 14, CY + 44), C1%`

121` GET (CX + 15, CY)-(CX + 28, CY + 44), C2%`

122` C1X = CX: C1Y = CY: C2X = CX + 15`

123` FOR P = 6 TO 0 STEP -1: Z = 1 / (2 ^ P): Z1 = 1 - Z`

124` PUT (C1X, C1Y), C1%: PUT (C2X, C1Y), C2%`

125` PUT (D1X, D1Y), D1%: PUT (D2X, D1Y), D2%`

126` C1X = CX * Z1: D1Y = Y * Z1: C2X = C2X + (291 - C2X) * Z`

127` D1X = DX * Z1: C1Y = C1Y + (155 - C1Y) * Z: D2X = D2X + (294 - D2X) * Z`

128` PUT (C1X, C1Y), C1%: PUT (C2X, C1Y), C2%`

129` PUT (D1X, D1Y), D1%: PUT (D2X, D1Y), D2%`

130` SOUND 37 + RND * 200, 4: NEXT`

131` FOR Y = 1 TO 2000: NEXT`

132` CLS : GOTO 1540`

133`2230 SM = SM + 1: LOCATE 7, 25: PRINT "Donkey loses!"`

134` FOR Y = 1 TO 1000: NEXT`

135` CLS : GOTO 1540`