940 REM The IBM Personal Computer Donkey
950 REM Version 1.10 (C)Copyright IBM Corp 1981, 1982
960 REM Licensed Material - Program Property of IBM
975 DEF SEG: POKE 106,0
210 LOCATE 7,3,0:PRINT "A - MUSIC (32k)"
220 LOCATE 8,3,0:PRINT "B - ART (32k-Color/Graphics)"
230 LOCATE 9,3,0:PRINT "C - MORTGAGE (48k)"
240 LOCATE 10,3,0:PRINT "D - CIRCLE (BASICA-Color/Graphics)"
250 LOCATE 11,3,0:PRINT "E - DONKEY (BASICA-Color/Graphics)"
251 LOCATE 12,3,0:PRINT "F - PIECHART (BASICA-Color/Graphics)"
252 LOCATE 13,3,0:PRINT "G - BALL (BASICA-Color/Graphics)"
253 LOCATE 14,3,0:PRINT "H - COLORBAR (32k)"
254 LOCATE 15,3,0:PRINT "I - CALENDAR (32k)"
255 LOCATE 16,3,0:PRINT "J - SPACE (BASICA-Color/Graphics)"
256 LOCATE 17,3,0:PRINT "ESC KEY - EXIT"
260 LOCATE 19,3,0:PRINT "ENTER LETTER OF PROGRAM"
262 LOCATE 21,3,0:PRINT "NOTE: All of the above programs"
263 LOCATE 22,3,0:PRINT " require 48k if using BASICA"975 DEF SEG: POKE 106,0
270 POKE 106,0 'CLEAR KYBD BUFFER
1160 DEF SEG=0
1170 IF (PEEK(&H410) AND &H30)<>&H30 THEN DEF SEG:GOTO 1291
1160 DEF SEG=0
1170 IF (PEEK(&H410) AND &H30)<>&H30 THEN DEF SEG:GOTO 1291
1180 WIDTH 80:CLS:LOCATE 3,1
1190 PRINT "HOLD IT!"
1200 PRINT "YOU'RE NOT USING THE COLOR/GRAPHICS MONITOR ADAPTER!"
1210 PRINT "THIS PROGRAM USES GRAPHICS AND REQUIRES THAT ADAPTER."
1220 PRINT "PRESS THE SPACE BAR TO CONTINUE."
1230 DEF SEG
1800 DRAW"BM12,1r3m+1,3d2R1ND2u1r2d4l2u1l1"
1810 DRAW"d7R1nd2u2r3d6l3u2l1d3m-1,1l3"
1820 DRAW"m-1,-1u3l1d2l3u6r3d2nd2r1u7l1d1l2"
SCREEN 1
1950 DRAW"S08"
1960 DRAW "BM14,18"
1970 DRAW"M+2,-4R8M+1,-1U1M+1,+1M+2,-1
1980 DRAW"M-1,1M+1,3M-1,1M-1,-2M-1,2"
1990 DRAW"D3L1U3M-1,1D2L1U2L3D2L1U2M-1,-1"
2000 DRAW"D3L1U5M-2,3U1"
SCREEN 1
1950 DRAW"S08"
1960 DRAW "BM14,18"
1970 DRAW"M+2,-4R8M+1,-1U1M+1,+1M+2,-1
1980 DRAW"M-1,1M+1,3M-1,1M-1,-2M-1,2"
1990 DRAW"D3L1U3M-1,1D2L1U2L3D2L1U2M-1,-1"
2000 DRAW"D3L1U5M-2,3U1"
2010 PAINT (21,14),3
1470 DIM DNK%(300)
...
2040 GET (13,0)-(45,25),DNK%
1740 IF Y=>3 THEN PUT (DX,Y),DNK%,PSET
1510 DIM B%(300)
1520 FOR I=2 TO 300:B%(I)=-16384+192:NEXT
1530 B%(0)=2:B%(1)=193
...
1760 IF Y AND 3 THEN PUT (140,6),B%
wwwBASIC
and
slides
at:
github.com/flagxor