5 DIM A$(40)›10 GOTO 1000›99 GOTO 999›100 REM ›105 COLOR 2›110 PX=16:PY=20:A$="ATARI":GOSUB 19000›120 PX=15:PY=34:A$="PERSONAL":GOSUB 19000›125 PX=15:PY=42:A$="COMPUTER":GOSUB 19000›130 PX=15:PY=50:A$="SYSTEMS":GOSUB 19000›135 GOSUB 22100›150 COLOR 2:PX=17:PY=62:A$="FOR":GOSUB 19000›160 GOSUB 21000:GOSUB 21000›200 COLOR 2:GOSUB 20000›205 PX=14:PY=40:A$="EDUCATION":GOSUB 19000›206 COLOR 1:GOSUB 20000›207 X=104:COLOR 2:GOSUB 23100›220 PX=14:PY=40:A$="2 + 2 = ?":GOSUB 19000›250 GOSUB 22000›260 COLOR 2:GOSUB 20000›265 PX=15:PY=30:A$="PERSONAL":GOSUB 19000:PX=15:PY=40:A$="FINANCE":GOSUB 19000›266 X=103›267 COLOR 1:GOSUB 20000›270 COLOR 2:GOSUB 23000›272 PX=13:PY=25:A$="CHECK #":GOSUB 19000:PX=21:PY=25:A$="101":GOSUB 19000›274 PX=13:PY=35:A$="DATE":GOSUB 19000:PX=18:PY=35:A$="6/1/80":GOSUB 19000›276 PX=13:PY=45:A$="TO":GOSUB 19000:PX=18:PY=45:A$="ATARI ":GOSUB 19000›278 PX=13:PY=55:A$="AMT.":GOSUB 19000:PX=18:PY=55:A$="$1080 ":GOSUB 19000›290 GOSUB 22000:GOSUB 22000›300 REM SOUND›310 COLOR 2:GOSUB 20000›315 COLOR 1›320 PX=15:PY=30:A$="PERSONAL":GOSUB 19000›330 PX=15:PY=40:A$="INTEREST":GOSUB 19000›331 COLOR 2:GOSUB 21000:GOSUB 20000›332 COLOR 1:Y=30:FOR K=1 TO 5:PLOT 110,Y:DRAWTO 192,Y:Y=Y+5:NEXT K›333 X=127:Y=45:GOSUB 30000›334 X=142:Y=40:GOSUB 30000:X=157:Y=35:GOSUB 30000:X=172:Y=30:GOSUB 30000›340 SOUND 0,220,10,8:GOSUB 21000:SOUND 0,200,10,8:SOUND 1,180,10,8:GOSUB 21000:SOUND 1,160,10,8›345 SOUND 2,140,10,8:GOSUB 21000:SOUND 2,120,10,8:SOUND 3,100,10,8:GOSUB 21000:SOUND 3,80,10,8:GOSUB 21000›350 FOR K=0 TO 500:NEXT K›360 FOR K=0 TO 3:SOUND K,0,0,0:NEXT K›390 GOSUB 22000›400 REM COLOR GRAPHICS›415 COLOR 2:GOSUB 20000›420 COLOR 1:PX=13:PY=30:A$="PROFESSIONAL":GOSUB 19000:PX=13:PY=40:A$="APPLICATIONS":GOSUB 19000›425 GOSUB 22000›450 POKE 87,8›490 GOSUB 21000›491 COLOR 1:GOSUB 20000›495 POKE 87,9›500 COLOR 10›520 X=26:Y=63:XL=22:NL=9:GOSUB 18000›530 COLOR 14:PLOT 27,20:DRAWTO 27,60:COLOR 10:PLOT 28,60:DRAWTO 47,60›540 Y=23:FOR K=0 TO 8:X=28:XL=0:NL=1:GOSUB 18000:Y=Y+4:NEXT K›550 COLOR 7:PLOT 29,30›555 X=29:GOSUB 595›580 COLOR 9:X=29:PLOT 29,50:GOSUB 595›590 POKE 87,8:GOTO 600›591 R=INT(RND(1)*100)›592 IF R<29 OR R>58 THEN 591›593 RETURN ›595 FOR K=1 TO 6:X=X+3:GOSUB 591:DRAWTO X,R:POKE 53279,0:NEXT K›596 RETURN ›599 POKE 87,8›600 GOSUB 22000:GOSUB 22000›900 REM STAR RAIDERS›901 COLOR 2:GOSUB 20000›902 COLOR 1:PX=14:PY=30:A$="ENTERTAIN-":GOSUB 19000:PX=17:PY=40:A$="MENT":GOSUB 19000›903 GOSUB 21000›905 COLOR 1:GOSUB 20000›910 POKE 87,9›915 COLOR 10›920 X=26:Y=63:XL=22:NL=9:GOSUB 18000›930 POKE 87,8:COLOR 2:PLOT 139,37:DRAWTO 149,37:PLOT 155,37:DRAWTO 165,37›935 PLOT 152,28:DRAWTO 152,34:PLOT 152,40:DRAWTO 152,46›940 PLOT 173,51:DRAWTO 195,51:DRAWTO 195,61:DRAWTO 173,61:DRAWTO 173,51›950 PLOT 179,54:DRAWTO 188,54:DRAWTO 188,58:DRAWTO 179,58:DRAWTO 179,54›955 PLOT 184,51:DRAWTO 184,54:PLOT 184,58:DRAWTO 184,61›956 PLOT 174,56:DRAWTO 179,56:PLOT 189,56:DRAWTO 195,56›957 PLOT 166,28:PLOT 110,30:PLOT 150,16:PLOT 180,23:PLOT 164,50:PLOT 115,63:PLOT 130,50›958 PLOT 118,47:PLOT 114,40:PLOT 130,21:PLOT 134,41:PLOT 176,42:PLOT 172,33›959 GOTO 965›960 GOSUB 19100›965 PLOT 130,28:DRAWTO 130,30:PLOT 133,28:DRAWTO 133,30:PLOT 130,29:DRAWTO 133,29›966 PLOT 160,20:DRAWTO 160,22:PLOT 163,20:DRAWTO 163,22:PLOT 160,21:DRAWTO 163,21›967 PLOT 182,55:DRAWTO 182,57:PLOT 185,55:DRAWTO 185,57:PLOT 182,56:DRAWTO 185,56›995 FOR K=0 TO 1000:NEXT K:COLOR 2:GOSUB 20000:RUN "D:HORSEY.BAS"›1000 GRAPHICS 24›1010 SETCOLOR 2,0,14:SETCOLOR 1,0,0›1011 SETCOLOR 4,12,6›1020 COLOR 1›1030 PLOT 100,91:DRAWTO 224,91›1035 REM BORDER›1040 DRAWTO 247,174:DRAWTO 243,178›1050 DRAWTO 204,178:DRAWTO 200,181›1060 DRAWTO 123,181›1070 DRAWTO 119,178:DRAWTO 81,178›1080 DRAWTO 77,174:DRAWTO 100,91›1100 PLOT 78,175:DRAWTO 246,175›1110 PLOT 78,169:DRAWTO 246,169›1120 PLOT 247,174:DRAWTO 230,126›1130 DRAWTO 218,114›1140 DRAWTO 106,114:DRAWTO 94,126:DRAWTO 77,174›1200 PLOT 210,91:DRAWTO 214,113›1210 DRAWTO 214,128:DRAWTO 176,128›1220 DRAWTO 176,129:DRAWTO 148,129:DRAWTO 148,128:DRAWTO 110,128:DRAWTO 110,113:DRAWTO 114,91›1250 PLOT 111,107:DRAWTO 212,107›1300 X=113:XL=6:Y=117:NL=6:GOSUB 18000›1305 COLOR 2:PLOT 116,118:DRAWTO 116,121:PLOT 116,119:DRAWTO 114,121:PLOT 116,119:DRAWTO 118,121›1306 COLOR 1›1310 PLOT 122,116:DRAWTO 164,116›1320 DRAWTO 164,124:DRAWTO 122,124:DRAWTO 122,116›1400 X=124:Y=119:GOSUB 14000›1410 PLOT 129,118:DRAWTO 131,118:PLOT 130,118:DRAWTO 130,122›1420 X=133:Y=119:GOSUB 14000›1430 PLOT 138,118:DRAWTO 138,122›1435 PLOT 139,118:DRAWTO 140,118›1436 PLOT 141,119:DRAWTO 141,122:PLOT 141,120:DRAWTO 138,120›1440 PLOT 144,118:DRAWTO 144,122›1445 PLOT 147,118:DRAWTO 148,118›1450 PLOT 146,119:PLOT 149,119:PLOT 146,121:PLOT 149,121›1460 PLOT 147,120:DRAWTO 148,120›1470 PLOT 147,122:DRAWTO 148,122›1480 X=151:GOSUB 14100:X=157:GOSUB 14100›1500 PLOT 208,134:DRAWTO 208,142:DRAWTO 207,142:DRAWTO 207,154›1505 DRAWTO 185,154:DRAWTO 185,160›1510 DRAWTO 113,160:DRAWTO 113,154›1515 DRAWTO 99,154:DRAWTO 99,142›1520 DRAWTO 98,142:DRAWTO 98,134›1530 PLOT 100,133:DRAWTO 207,133›1540 PLOT 99,133:POSITION 100,154:POKE 765,1:XIO 18,#6,0,0,"S:"›1550 PLOT 113,153:POSITION 113,160:XIO 18,#6,0,0,"S:"›1560 X=102:FOR K=0 TO 14:PLOT X,132:DRAWTO X+4,132:X=X+7:NEXT K›1590 X=117:FOR K=0 TO 30:PLOT X,91:DRAWTO X,106:X=X+3:NEXT K›1600 PLOT 225,134:DRAWTO 225,160›1610 DRAWTO 215,160:DRAWTO 215,134›1620 DRAWTO 225,134›1625 X=215:FOR K=1 TO 6:PLOT X,135:DRAWTO X,154:X=X+2:NEXT K›1630 COLOR 1:PLOT 217,159:DRAWTO 223,159›1635 PLOT 218,156:DRAWTO 222,156›1640 Y=139:FOR K=1 TO 4:PLOT 216,Y:DRAWTO 224,Y:PLOT 217,Y-1:DRAWTO 223,Y-1:PLOT 216,Y+1:PLOT 224,Y+1:Y=Y+5:NEXT K›1645 PLOT 216,135:PLOT 224,135›1800 REM ΤΦ›1810 PLOT 90,2:DRAWTO 244,2:DRAWTO 244,86:DRAWTO 90,86:DRAWTO 90,2›1815 PLOT 91,3:DRAWTO 91,85:PLOT 243,3:DRAWTO 243,85›1820 X=90:XL=154:Y=2:NL=2:GOSUB 18000›1830 X=90:XL=154:Y=82:NL=5:GOSUB 18000›1840 X=90:XL=154:Y=5:NL=1:GOSUB 18000›1850 X=97:XL=108:Y=11:NL=5:GOSUB 18000›1860 X=97:XL=108:Y=73:NL=6:GOSUB 18000›1870 X=97:Y=12:YL=62:NL=5:GOSUB 18100›1880 X=200:Y=12:YL=62:NL=5:GOSUB 18100›1890 PLOT 211,8:DRAWTO 237,8:DRAWTO 237,78:DRAWTO 211,78:DRAWTO 211,8›1900 X=212:Y=8:YL=69:NL=5:GOSUB 18100›1910 PLOT 212,58:DRAWTO 236,58›1920 X=220:Y=10:YL=44:NL=6:GOSUB 18100›1930 X=229:XL=4:Y=12:NL=2:GOSUB 18000›1940 COLOR 2:X=148:XL=8:Y=76:NL=2:GOSUB 18000›1950 Y=13:FOR K=1 TO 12:X=221:XL=4:NL=2:GOSUB 18000:Y=Y+3:NEXT K›1960 Y=69:FOR K=1 TO 2:X=213:XL=2:NL=2:GOSUB 18000:Y=Y+4:NEXT K›1970 PLOT 100,14:DRAWTO 202,14:DRAWTO 202,74:DRAWTO 100,74:DRAWTO 100,14›10000 GOTO 100›14000 PLOT X,Y:DRAWTO X,Y+3:PLOT X+3,Y:DRAWTO X+3,Y+3:PLOT X+1,Y-1:DRAWTO X+2,Y-1›14010 PLOT X+1,Y+1:DRAWTO X+2,Y+1:RETURN ›14100 PLOT X,Y:DRAWTO X,Y+2:PLOT X+4,Y:DRAWTO X+4,Y+2:PLOT X+1,Y-1:DRAWTO X+3,Y-1›14110 PLOT X+1,Y+3:DRAWTO X+3,Y+3›14120 RETURN ›18000 FOR I=1 TO NL:PLOT X,Y+I-1:DRAWTO X+XL,Y+I-1:NEXT I:RETURN ›18100 FOR I=0 TO NL:PLOT X+I,Y:DRAWTO X+I,Y+YL:NEXT I:RETURN ›19000 DL=PEEK(560)+PEEK(561)*256›19010 D1=PEEK(DL+4)+PEEK(DL+5)*256›19020 FOR U=1 TO LEN(A$):D2=57344+((ASC(A$(U,U))-32)*8):D3=D1+PY*40+PX+U-1:FOR Z=0 TO 7:POKE D3+Z*40,PEEK(D2+Z)›19030 NEXT Z:NEXT U:RETURN ›20000 Y=16:FOR I=0 TO 56:PLOT 103,Y+I:DRAWTO 199,Y+I:NEXT I:RETURN ›21000 FOR J=0 TO 20:NEXT J:RETURN ›22000 FOR J=0 TO 200:NEXT J:RETURN ›22100 FOR J=0 TO 40:NEXT J:RETURN ›23000 FOR I=0 TO 48:PLOT X,16:DRAWTO X,72:X=X+2:NEXT I:RETURN ›23100 FOR I=0 TO 47:PLOT X,16:DRAWTO X,72:X=X+2:NEXT I:RETURN ›30000 COLOR 1:PLOT X+1,Y:DRAWTO X+2,Y:PLOT X,Y+1:DRAWTO X+3,Y+1›30005 PLOT X-1,Y+2:DRAWTO X+4,Y+2:PLOT X-1,Y+3:DRAWTO X+4,Y+3›30006 PLOT X,Y+4:DRAWTO X+3,Y+4›30010 PLOT X+1,Y+5:DRAWTO X+2,Y+5›30015 PLOT X+4,Y-10:DRAWTO X+4,Y+2›30020 RETURN ›