IMD 1.16: 29/05/2007 18:29:06 FOGCPM.059 6/86 --FOGCPM059ALIEN BAS(ALIENS COMr ALIENS DOCAL d !"#$%&BOUNCE COM'CRAPS BAS7()*+,-.CRAPS COM0/01234MONSTER BASV56789:;<=>?MONSTER DOC@SMURF BAS\ABCDEFGHIJKLOSCHESS COM]^_`abcdOSSARGONDOCefghOZDOT COMijklmnopqrstuvwxOZDOT COM&yz{|}-06-00 86 OZDOT DOC~PACMAN COM-CPM059 DOCPACMAN DATPACMAN DOCSCREEN CNTPPONG COM2PPONG DOC TYPERACEBASFWORDPUZLCOMThis is the disk name. 10 PRINT CHR$(26) 20 GOTO 1900 30 RANDOMIZE 40 CLEAR 50 GOTO 760 60 PRINT CHR$(26):V=-1 70 FOR U= 1 TO 52 80 V=V+1 90 POKE 23*128+61440!+V,127 100 NEXT 110 GOTO 2240 120 F=0 130 B=1 140 C=2 150 G=3 160 D=4 170 E=5 180 GOSUB 290 190 GOTO 2250 200 GOTO 360 210 F=44 220 B=45 230 C=46 240 G=47 250 D=48 260 E=49 270 GOSUB 290 280 GOTO 2250 290 H=-1 300 FOR J= 1 TO 53 310 H=H+1 320 POKE 22*128+61440!+H,32 330 IF H=53 THEN 350 340 NEXT 350 RETURN 360 FOR A= 1 TO 4 370 A$=INKEY$ 380 IF A$="1"THEN 120 390 IF A$="3" THEN GOTO 210 400 IF A$="4" THEN B=B-1 410 IF A$="4" THEN C=C-1 420 IF A$="4" THEN G=G-1 430 IF A$="4" THEN D=D-1 440 IF A$="4" THEN E=E-1 450 IF A$="4" THEN F=F-1 460 IF A$="6" THEN B=B+1 470 IF A$="6" THEN C=C+1 480 IF A$="6" THEN G=G+1 490 IF A$="6" THEN D=D+1 500 IF A$="6" THEN E=E+1 510 IF A$="6" THEN F=F+1 520 IF A$="5" THEN GOTO 640 530 IF A$="" THEN 820 540 IF F=-1 THEN 210 550 IF E=52 THEN 120 560 POKE 22*128+61440!+F,32 570 POKE 22*128+61440!+B,10 580 POKE 22*128+61440!+C,22 590 POKE 22*128+61440!+D,8 600 POKE 22*128+61440!+E,32 610 POKE 22*128+61440!+G,22 620 NEXT 630 GOTO 820 640 K=20 650 L=21 660 FOR M= 1 TO 22 670 K=K-1 680 L=L-1 690 POKE K*128+61440!+C,42 700 POKE L*128+61440!+C,32 710 NEXT 720 IF C=P THEN 1330 730 IF C=O THEN 1330 740 IF C=Q THEN 1330 750 GOTO 820 760 N=1 770 O=2 780 P=3 790 Q=4 800 R=5 810 GOTO 60 820 FOR S=1 TO 1 830 N=N+1 840 O=O+1 850 P=P+1 860 Q=Q+1 870 R=R+1 880 POKE 1*128+61440!+N,32 890 POKE 1*128+61440!+O,123 900 POKE 1*128+61440!+P,192 910 POKE 1*128+61440!+Q,125 920 POKE 1*128+61440!+R,32 930 IF N=53 THEN N=1 940 IF O=53 THEN O=1 950 IF P=53 THEN P=1 960 IF Q=53 THEN Q=1 970 IF R=53 THEN R=1 980 IF RND<.15 THEN 1020 990 NEXT 1000 GOTO 360 1010 GOTO 990 1020 W=2 1030 X=3 1040 FOR Y=1 TO 19 1050 W=W+1 1060 X=X+1 1070 POKE X*128+61440!+P,13 1080 POKE W*128+61440!+P,32 1090 NEXT 1100 IF P=B THEN 1160 1110 IF P=C THEN 1160 1120 IF P=D THEN 1160 1130 IF P=G THEN 1160 1140 POKE X*128+61440!+P,32 1150 GOTO 360 1160 PRINT CHR$(27) 1170 POKE 22*128+61440!+B,32 1180 POKE 22*128+61440!+C,32 1190 POKE 22*128+61440!+G,32 1200 POKE 22*128+61440!+D,32 1210 FOR AB=1 TO 100 1220 NEXT 1230 Z=20 1240 POKE 22*128+61440!+B,Z 1250 POKE 21*128+61440!+C,Z 1260 POKE 21*128+61440!+G,Z 1270 POKE 22*128+61440!+D,Z 1280 IF Z=32 THEN 1840 1290 FOR AC= 1 TO 1500 1300 NEXT 1310 Z=32 1320 GOTO 1240 1330 CA=123 1340 CB=192 1350 CC=125 1360 POKE 1*128+61440!+Q,32 1370 POKE 1*128+61440!+O,32 1380 DA=1 1390 PRINT CHR$(7) 1400 FOR DB=1 TO 20 1410 DA=DA+1:O=O-1:P=P-1:Q=Q-1 1420 IF O=1 THEN O=52 1430 IF P=1 THEN P=52 1440 IF Q=1 THEN Q=52 1450 POKE DA*128+61440!+Q,CC 1460 POKE DA*128+61440!+P,CB 1470 POKE DA*128+61440!+O,CA 1480 FOR DDD=1 TO 100 1490 NEXT DDD 1500 POKE DA*128+61440!+Q,32 1510 POKE DA*128+61440!+P,32 1520 POKE DA*128+61440!+O,32 1530 NEXT 1540 C1=6 1550 C2=192 1560 C3=7 1570 POKE 22*128+61440!+O,C1 1580 POKE 22*128+61440!+P,C2 1590 POKE 22*128+61440!+Q,C3 1600 IF C1=32 THEN 1640 1610 C1=32:C2=32:C3=23 1620 FOR ZZZZ=1 TO 700:NEXT 1630 GOTO 1570 1640 FOR EA= 1 TO 1000 1650 NEXT 1660 PRINT"GOOD SHOT!" 1670 GOTO 2180 1680 JJ=23:JJJ=24 1690 FOR HH= 1 TO 22 1700 JJ=JJ-1 1710 JJJ=JJ+0 1720 POKE JJ*128+61440!+B,10 1730 POKE JJ*128+61440!+C,22 1740 POKE JJ*128+61440!+G,22 1750 POKE JJ*128+61440!+D,8 1760 FOR AD= 1 TO 200 1770 NEXT 1780 POKE JJJ*128+61440!+B,32 1790 POKE JJJ*128+61440!+C,32 1800 POKE JJJ*128+61440!+G,32 1810 POKE JJJ*128+61440!+D,32 1820 NEXT 1830 GOTO 2180 1840 PRINT CHR$(7):PRINT CHR$(26):PRINT" TO BAD..." 1850 PPP=PPP-150 1860 PRINT"POINTS- "PPP 1870 FOR TI=1 TO 3000 1880 NEXT 1890 GOTO 50 1900 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 1910 PRINT TAB(23)"ALIEN" 1920 FOR XX= 1 TO 1000 1930 NEXT 1940 PRINT CHR$(7) 1950 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 1960 PRINT TAB(19)"BY DAVID ANNING":PRINT TAB(19)"AUGUST 14, 1982" 1970 FOR XXX=1 TO 4000 1980 NEXT 1990 PRINT CHR$(26) 2000 FILES "B:AL 2010 PRINT CHR$(26) 2020 OPEN "I",1,"B:AL 2030 IF EOF(1) THEN GOTO 2070 2040 INPUT#1 ,ROW,COL,C 2050 POKE ROW*128+61440!+COL,C 2060 GOTO 2030 2070 CLOSE#1 2080 PRINT CHR$(26) 2090 PRINT"USE '4' AND '6' TO GO IN THEIR DIRECTION." 2100 PRINT"USE '1' AND '3' TO GET TO THE EDGE OF THE SCREEN." 2110 PRINT"USE '5' TO FIRE AT THE ALIEN'S SPACESHIP" 2120 PRINT"YOU WIN 200 POINTS IF YOU HIT HIM !" 2130 PRINT"YOU LOOSE 150 POINTS IF HE HITS YOU !" 2140 PRINT:PRINT:PRINT 2150 FOR HQ= 1 TO 2000 2160 NEXT 2170 GOTO 30 2180 PPP=PPP+200 2190 PRINT"POINTS- "; 2200 PRINT PPP 2210 FOR TII=1 TO 3000 2220 NEXT 2230 GOTO 50 2240 F=23:B=24:C=25:G=26:D=27:E=28 2250 POKE 22*128+61440!+F,32 2260 POKE 22*128+61440!+B,10 2270 POKE 22*128+61440!+C,22 2280 POKE 22*128+61440!+G,22 2290 POKE 22*128+61440!+D,8 2300 POKE 22*128+61440!+E,32 2310 GOTO 360 KE 22*128+61440!+C,22 2280 POKE 22*128+61440!+G,*K͞+88?'+FÎr ͖ 8{ Ăw#w#w^#V#*~#fo^#*~#fo^#V#*n^#*n^#V# ~#fo^#& ~#fo!+!#!+!#!+!+}|z{|}|z7||7zZZ)|/g}/o#|͉k|/g}/o#ɯ2qZZk:q|/g}/o#|/g}/o#:q<2qqDM!xxGyO҃)v|͔`i|)Öxڷz/W{/_ѯzW{_=yOxGæ2qZZ͉M|}ȯ|g}o)|/g}/o#z/W{/_!9~#fo! ! ! ! ! ! !9~#A"s!`*"!"!Y">2>2>22!"!"!@"!" ʞ!F#x±~#±!b2r~# "2r+}|~#G:rx"2r+w# +6#!6#2w2x*s!>r<o&F=-` r'~h6!+`W?_!~7z?` :>ª@w#G.¶ww#?*>?w#> w#.7:77!a{   `OE!y6$ -7rBo&))T])))!yV5:=b#:=#:$=2#v+:<"(">6͋5:&=͋5#*&=|"M1Ϳ5#>6͋5:&=͋5>#͋5>6͋5:'=͋5#*&="<(#>͋5:&=͋5>s͋5>@2=#R1Ϳ5#(,#:==2=)(@#>s͋5#͘(Y#X1:>͋5:&=͋5c1Ϳ5#f1Ϳ52=#(—#>͋5:&=͋5>{͋5c1Ϳ5#(#:$=µ#>}͋5c1Ú#:$=;-͘(#>&͋5͋5f2Ú#:$=$v+è":=$,v+2#:$=>$$>͋5v+>͋5>@2$=2#*="<1Ϳ5:=2="<|s$}d$[2Ϳ5z$g$[3Ϳ5>G>)͋5$#͞*D)͏,Ͷ,v++4ʱ$êG0ñ!9DM*Ow#w͐ ! ~#fo##~#fon&͡|ͤ! ~#fo##~#fon&*Os#rͧ7 47!:!R!!Usage: aliens is the level of difficulty from 0 to 9 level 0 is the easiest and is the default 77Ì ÊÑ5Ø "Æ&!ʹͷͺͽ\1++++| \1++| \E|, \G|, / = õ'!9DM`iw#w! ~#fo͐n}ʃ ! ~#fo͐n&: `i^#Vr+sK !9á v00'7 c(Ê*-w#w*Gw#w*Mw#w! *Q͏ ! *͏ !3 *͏ ! *7͏ !s *b͒ !z *q͒ ! *͒ ! *͒ ! *͒ ! *͒ ! *͒ ! *͒ ! *͒ ͕ *͘ *1w#w͛ \1| ͞ ý *-w#w*/6#6*96#60,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0rookieearthlingspace cadetyeomanlieutenantcommandercaptainadmiralmaster assassin ++17 =,à7 !! \O!Q* * \-!\* * \1>H>ʇ>T>ʒ>`>ʝ>l>ʨ>x>ʳ>„>ʾ!i ! ! ! !! !O !F! \1\/!|* * *E67#6\O *7s#r\7\9F\9*7s#r\O*Is#r\I s*I6 #6\O*Ks#r*5w#w\5ڕ!\7\5? *3w#w\3 ڄ\3\5|g}o\5? ! \5 ?\3))*W\7\5?s#r\5 ?\3))*W##\3?s#r*3^#Vr+s*5^#Vr+sÕ*A66#6*;w#w*=w#w*?w#w*36#6*56H#6 '*56#6*7w#w*9w#w\1.M5M3 ! *3w#w\3\In\3))*=w#w*3^#Vr+s9*Cw#w*Gw#w*3w#w\3B!\3 *5w#w\5P1\3k*\5)\3k*Q\5)~#fos#rz! ! *5^#Vr+sù*3^#Vr+sÏ*iw#wLevel:%2d Score: %-5d B L O O D B A T H W E C O M E I N P E A C E ! T H E A L I E N S S T R I K E B A C K !I N V I S I B L E A L I E N W E A S E L S ! K L I N K E R T H E B L A C K H O L E ! Bases: %d ÖÓ---\1+|M5\OH*76#6M5*76#6͍|͐*aska&|g}o>z>>,>>c*>>/6>>xB> >.N> > Z>(>f>A>r>A>q~>A>Š>A>1–>G>2¢>b>3®>}>4º>ʘ>5>ʳ>6>\1+|*76#6\1+|*76#6\1+|*7w#wM9|>*96#6͓\1|S*16#6\1|n*16#6\1|ʉ*16#6\1|ʤ*16#6\1|ʿ*16#6\1|*16#6+7 /=,!9DMM9>>.>>.>+>väM;!!bM;!!cM;!!dYM5###*;s#rM;!!eM;M9!gM;M9#!i*3w#w\37\3))*W~#foM9n\3))*W##~#fo#M;n\3))*W##~#fo###M;n\3\O\3 ?`is#r\1+|ʧ͐\M`is#r͐ڻ`i6#6*-~#fo͐s#rM;M9#!k\1!m\3))*W##~#fo\3))*W~#fo!*9w#w\3))*Ww#w*E^#Vr+sY*3^#Vr+s*3w#w\3\IRM9\3))*=~#foAM;\3))*=##~#foAM;M9!oM;M9#!q*9w#w*G^#Vr+s\3))*=w#wY*3^#Vr+sÊM9$M9$M9k*M;)~#fo|$M;M9\1++|!M9k*M;)w#w!sM9M;M9#!u*9w#wYMi|M9+|M;MgMi*3s#rM;\3\3!!w\3!!*iw#w*-~#foMes#rM;!!*9w#wY*9^#Vr+szVM;!!M;!!*-~#fo\O#s#rY!9||   Ú+=,M7|§*5~#foM7s#rM5*56#6*7w#w M5H *56H#6*7w#w\13M5M3͔!͗P+7 =,1/+07à7*Cw#w\C\Iz \G|w\C))*=~#fo|“i \C))*=^#Vr+s\C))*=~#foQ\C))*=##~#fo\C))*=~#fo+8!| ;\C))*=w#w\C))*=##~#foM5N\C))*=##~#foM5N\1҅M5M38!>*/^#Vr+s!F!8\/!~ *A*;*-~#fos#rD\/|G!JM5!8! ;*56H#6M2**56#6\1NM5!8!>i \C))*=~#foڴ\C))*=~#foҴ\C))*=~#fok*\C))*=##~#fo)~#fo|ʴ\C))*=##~#fo\C))*=~#fo+8! ;\C))*=##~#fo\C))*=~#fo8! ;\C))*=~#fok*\C))*=##~#fo)w#w\C))*=w#w*G^#Vr+si \C))*=##~#fo\C))*=~#fo+8! ;\C))*=~#fo0 *G^#Vr+s\C))*=w#wa \C))*=##~#fo\C))*=~#fo8! ;*C^#Vr+s\ Bases: %d *ç à7+17 !9DM`i6P#6Mi|/!͛ *3s#r!`,!\30!*i6#6*g6#6 !*i6#6͐*gs#r*e6Z#6!Mg!͞ \1j!Me!"*͡ *ͤ *e^#Vr+s*g~#foMis#rMg*3s#r͐!\3!MgMi!͞ ! "ͤ *iw#w!9 <=%d=> $"/+0+=,\A#*As#r!7ڗ"\E|J"*=w#w\;|ʌ"\?*?s#r*=6#6*;w#w*Aw#w\A))*W~#fo*3s#r!""%"\3"*-~#fos#r""\?|#\A))*W##^#Vr+s,#\A))*W##^#Vr+s\A))*W##~#fo*5s#rzʁ#\5\MK\O?ڍ#*;6#6\5\3"\=|#!!"\A))*W^#Vr+s*3s#r\5\3"\5\3|g}o\A?!"\A))*W~#fo$\A))*W~#fo$\A))*W##~#fo*5s#r*36#6\3$\5\3|$\A))*W~#fok*\A))*W##~#fo\3)w#w*3^#Vr+s{$\1+| %\1++| %\A*3s#r\3|]%\3))*W~#fo|E%*3~#fos#r!%\A))*W##~#foM5\Kڄ&\A))*W##~#foM5###\K҄&\A))*W~#foڄ&*3w#w\3\I҄&\3))*=~#fo|s&\3))*=\A))*W~#fos#r\3))*=##\A))*W##~#fo##s#r*G^#Vr+sÄ&*3^#Vr+s%Ø&++17 7͉&! ! ͌&\O&*&\Ok*b!['*͏&*͒&*O^#Vr+s!o'*͏&*͒&! ! ͌&\O!'*͏&*͒&!2͕&Congratulations %s - you have won at level %dNow let's see how good you are at level %dû'7!9DM͐!͸'*3w#w\3 a(\3*\3*ns\3*n}-(\3**s\3*n}P(\3*+s*3^#Vr+s'o(++7 f(!!i(!(l(!$)l(!Z)l(!)l(!)l(!)l(!*l(!>*l(!n*l(!*l(!*l(! +l(!H+l(!t+l(!+l(Attention: Alien invasion in progress! Type: <,> to move the laser base left as above, for lefties <.> to halt the laser base for lefties to move the laser base right for lefties to fire a laser beam <1> to play "Bloodbath" <2> to play "We come in peace" <3> to play "The AHens strike back" <4> to play "Invisible Alien Weasels" <5> to play "Klinker" <6> to play "The Black Hole" to quit +7 *++7 !9DMw*&*͐w(ѯgsw+&*͐w)ѯgs*+C,7 !9DM\1w,͐|w,͐w,! 6#6͐>‡,>,>“,>,>Ÿ,>->«,> ->·,>->,>!->,>,->,>7->,>B-]-!_-@,]-!e-@,]-!k-@,]-!q-@,]-!w-@,]-!}-@,]-!-@,]-!-@,]-\1R-]-!-@,]- OXO XOX \o/ /o\ "M" wMw xx|xx #Ù-7!͖-|ʾ-!͖-*,s!!w,&-+=,7 747!9DM\1ں.\1`is#r*16#6*3w#w\3ڪ.!\3-*5w#w\5Pҙ.\3k*\5)~#fo+|€.!-È.!/-*5^#Vr+sB.*3^#Vr+s.͐*1s#r\1ھ/\1`is#r*16#6*3w#w\37Ҧ/\3))*W~#fo|ʕ/\3))*W##~#fo\3))*W~#fo-\3))*W##~#fo\3))*W~#fo|g}o\3?-*3^#Vr+s.͐*1s#r!2-!!-* --!9 /+17 !!/\-!&0*/*/%d 40+ñ!!.010!9DM! n&0ͯr0! n&9ͯ|0'1!9DM! y0`is#r!ʷ0! ^#Vr+s͐s#rÄ0!9!9DM͐`is#r! ^#Vr+s! ^#Vr+sns{00͐0!91Ñ1!9DM! ͐ 1-15!9DM͐~#fon}I1!È1͐~#fo*1`is#r͐~#fon}ʁ1͐^#Vr+sn},ʁ1\1͐È1!9à15G0j66!h9DM! ^#Vr+s~#fo! s#r͐! s#r! ^#Vr+sn`is{4`in}%4! ! s#r! 6#6! s! s! s͐n}-02! ^#Vr+s! 4͐n}0@2! 4͐n&͗1}]2! ͚1`2!! s#r! ^#Vr+sn`is{.¨2! ͚1! s#r! 4! ^#Vr+sn`is`in&͝1}D2U3X3O"3Ch3Sʙ34͐~#fo|3! ^#Vr+s6-͐͐~#fos#r! ^#Vr+s! 6 (3! 6(3! 6! ~#fo! n&! ^#Vr+s~#fo! ͔1ѯgs#r4! ^#Vr+s! ^#Vr+s~#fos! ^#Vr+s4! n}¬3! 6#6! ^#Vr+s~#fo! s#r͐n}4͐|4! ^#Vr+s! ^#Vr+sns! ^#Vr+s! ^#Vr+s3͐6! ! s#r! n}h4! ^#Vr+s!h4! ^#Vr+s! n}_4!0b4! s-4͐! ^#Vr+sns{ʑ4! ^#Vr+sh4! n}4! ^#Vr+s!4! ^#Vr+s6 Û44! ^#Vr+s`ins4! ^#Vr+s`ins1͐6!95G0!9DM`iw#w! 6#6͐ n! s{ 95! n} G5! ^#Vr+s5! n}-f5! 6#6! ^#Vr+s! ^#Vr+sn! s5|ʧ5͐ ?! nѯg`is#rf5͐͐?÷5!955!9DM͐͐ 6͐^#Vr+s͐ 6͐0 6͐7s!&a6͐ ͐͐ ͉͐5`is͐ ͐͐ )͐5`in&#&a6!9p6G0!9DM`iw#w͐~#fon&m6}ʽ6͐ ?͐^#Vr+snѯg`is#r~6͐6!967!9DM! n&6|6! n&6! n&!9DM! n&aͯ07! n&zͯ  |F7""|7 ! ###R7""  Wait a few seconds, and type a CR: $*>Hʮ777*|g}o"zg{o"|g #+|7'z7 777*+++:G_*DM!8o&=   Ú+=,M7|§*5~#foM7s#rM5*56#6*7w#w M5H *BOOM!>  Ú+=,M7|§*5~#foM7s#rM5*56#6*7w#w M5H * 6͐7s!&a6͐ ͐͐ ͉͐5`is͐ ͐͐ )͐5`in&#&a6!9p6G0!9DM`iw#w͐~#fon&m6}ʽ6͐ ?͐^#Vr+snѯg`is#r~6͐6!967!9DM! n&6|6! n&6! n&!9DM! n&aͯ07! n&zͯ  |F7""|7 ! ###R7""  Wait a few seconds, and type a CR: $*>Hʮ777*|g}o"zg{o"|g #+|7'z7 777*+++:G_*DM!8o&=   Ú+=,M7|§*5~#foM7s#rM5*56#6*7w#w M5H * DOCUMENTATION FILE FOR ALIENS VERSION 1.1 ALIENS11.COM is a patchable version of the original ALIENS game written in BDS C which can be used on most systems with a 24 X 80 terminal. This version does its console I/O thru calls to BIOS instead of thru direct port I/O and therefore can be used with most ported and memory mapped consoles. There are four strings and two other locations that must be patched for a particular configuration. Up to ten bytes are reserved for each string. CURSOR POSITIONING STRING This string starts at location 381DH, must be null terminated, and allows for up to ten bytes including the null. At the position in this string that the row position is to be located, put an FF hex. At the position in the string that the column is to be located, put an FE hex. This allows for the row and column to be located anywhere in the cursor positioning string and in any order. EXAMPLE: (For a Heath/Zenith Z-19)  1B ;Escape character 59 ;'y' FF ;Position for row FE ;Position for column 00 ;string terminator For many terminals the row and column values require a bias to be added to them in the cursor positioning string. These values are located at 3845H and 3846H respectively. EXAMPLE: Location Value 3845H 20 ;Add 32 to row value 3846H 20 ;Add 32 to column value CURSOR ON, CURSOR OFF AND CLEAR SCREEN STRINGS If your terminal allows turning the cursor on and off and allows the clear screen function, these strings should be patched as with the cursor addressing string. Don't forget to terminate the string with a null(zero). If your terminal does not support one or more of these functions, these strings should be set to nulls. Starting Location String 3827H CURSOR ON 3831H CURSOR OFF 383BH CLEAR SCREEN Use DDT to load the ALIENS11.COM and patch the new strings. A>DDT ALIENS.COM Use the S command to change the required locations. -^C A>SAVE 56 ALIENS.COM This should complete the customization of ALIENS. Enjoy. Don Wilkes, K4ZYP  Location Value 3845H 20 ;Add 32 to row value 3846H 20 ;Add 32 to column value CURSOR ON, CURSOR OFF AND CLEAR SCREEN STRINGS If your terminal allows turning the cursor on and off and allows the clear screen function, these strings should be patched as with the cursor addressing string. Don't forget to terminate the string with a null(zero). If your terminal does not support one or more of these functions, these strings should be set to nulls. Starting Location String 3827H CURSOR ON 3831H CURSOR OFF 3 2 13 22 2 13 10 2 14 22 2 15 22 2 16 22 2 17 22 2 18 22 2 19 22 2 20 22 2 21 22 2 22 22 2 23 22 2 24 22 2 25 22 2 26 22 2 27 22 2 28 22 2 29 22 2 30 22 2 31 22 2 32 22 2 33 22 2 34 22 2 35 22 2 36 22 2 37 8 3 38 8 3 37 22 3 36 22 3 35 22 3 34 22 3 33 22 3 32 22 3 31 22 3 30 22 3 29 22 3 28 22 3 27 22 3 26 22 3 25 22 3 24 22 3 23 22 3 22 22 3 21 22 3 20 22 3 19 22 3 18 22 3 17 22 3 16 22 3 15 22 3 14 22 3 13 22 3 12 10 4 11 10 4 12 22 4 13 22 4 14 22 4 15 22 4 16 22 4 17 22 4 18 22 4 19 22 4 20 22 4 21 127 4 22 127 4 23 127 4 24 127 4 25 127 4 26 127 4 27 127 4 28 127 4 29 127 4 30 22 4 31 22 4 32 22 4 33 22 4 34 22 4 35 22 4 36 22 4 37 22 4 38 22 4 39 8 5 39 25 5 38 22 5 37 22 5 36 22 5 35 22 5 34 22 5 33 22 5 32 22 5 31 22 5 30 22 5 29 22 5 28 22 5 27 22 5 26 22 5 25 22 5 24 22 5 23 22 5 22 22 5 21 22 5 20 22 5 19 22 5 18 22 5 17 22 5 16 22 5 15 22 5 14 22 5 13 22 5 12 22 5 11 22 5 11 21 6 12 21 6 13 22 6 14 22 6 15 22 6 16 22 6 17 22 6 18 22 6 19 22 6 20 22 6 21 22 6 22 22 6 23 22 6 24 22 6 25 22 6 26 22 6 27 22 6 28 22 6 29 22 6 30 22 6 31 22 6 32 22 6 33 22 6 34 22 6 35 22 6 36 22 6 37 22 6 38 25 6 37 22 6 36 22 6 35 22 6 34 22 6 33 22 6 32 22 6 31 22 6 30 22 6 29 22 6 28 22 6 28 32 6 28 22 6 27 22 6 26 22 7 26 32 7 25 32 7 25 46 7 25 46 7 25 32 8 25 32 9 25 32 10 25 32 11 25 32 12 25 32 13 25 32 14 25 32 15 25 32 16 25 32 17 25 32 18 25 32 19 25 32 20 25 32 21 25 32 22 25 32 23 25 32 1 25 32 2 25 32 2 25 22 1 25 22 1 25 32 23 25 32 23 24 32 23 23 32 23 22 32 23 21 32 23 20 32 23 19 32 23 18 32 23 17 32 23 16 32 23 15 32 23 14 32 23 13 32 23 12 32 23 11 32 23 10 32 23 9 32 23 8 32 23 7 32 23 6 32 23 5 32 23 4 32 23 4 46 23 4 32 23 3 32 23 2 32 23 1 32 23 1 46 23 51 46 23 51 32 23 1 46 23 1 32 23 1 127 23 51 127 23 51 32 23 1 127 23 2 127 23 3 127 23 4 127 23 5 127 23 6 127 23 7 127 23 8 127 23 9 127 23 10 127 23 11 127 23 12 127 23 13 127 23 14 127 23 15 127 23 16 127 23 17 127 23 18 127 23 19 127 23 20 127 23 21 127 23 22 127 23 23 127 23 24 127 23 25 127 23 26 127 23 27 127 23 28 127 23 29 127 23 30 127 23 31 127 23 32 127 23 33 127 23 34 127 23 35 127 23 36 127 23 37 127 23 38 127 23 39 127 23 40 127 23 41 127 23 42 127 23 43 127 23 44 127 23 45 127 23 46 127 23 47 127 23 48 127 23 49 127 23 50 127 1 50 127 1 50 32 23 50 127 1 50 32 2 50 32 3 50 32 4 50 32 5 50 32 6 50 32 7 50 32 7 49 32 7 48 32 7 47 32 7 46 32 7 45 32 7 45 46 7 45 32 7 44 32 7 43 32 7 42 32 7 41 32 7 40 32 7 39 32 7 38 32 7 37 32 7 36 32 7 35 32 7 34 32 7 33 32 7 32 32 7 31 32 7 30 32 7 30 46 7 30 32 7 29 32 7 28 32 7 27 32 7 26 32 7 25 32 7 24 32 7 24 46 7 24 32 7 24 123 7 24 32 7 23 32 7 22 32 7 21 32 7 20 32 7 19 32 7 18 32 7 18 45 7 18 32 7 19 32 7 20 32 7 21 32 7 22 32 7 23 32 7 22 32 7 22 92 7 23 160 7 24 160 7 25 32 7 26 160 7 27 160 6 28 47 6 28 22 7 28 160 7 28 32 7 27 160 6 26 160 6 26 22 7 27 47 7 27 160 7 28 47 7 27 32 7 26 32 8 26 32 8 27 47 7 28 47 8 27 47 8 26 32 7 26 32 6 26 32 6 26 22 7 26 32 7 25 32 7 24 32 7 23 32 8 23 32 8 23 92 9 23 32 8 23 32 8 23 92 9 23 32 10 23 32  9 23 32 10 23 32 9 23 32 10 23 32 9 23 32 10 23 32 9 23 32 10 23 32 9 23 32 10 23 32 9 23 32 10 23 32 9 23 32 10 23 32 9 23 32 8 23 32 7 22 32 7 22 108 8 22 108 7 22 11 8 22 11 8 23 32 8 24 32 8 25 32 8 26 32 8 27 32 7 28 32 7 28 11 8 28 11 7 28 22 7 28 11 6 28 22 5 28 22 4 28 127 4 27 127 4 26 127 4 25 127 3 25 22 2 25 22 1 25 127 1 24 10 1 25 127 1 26 8 23 25 160 23 25 127 1 25 127 1 25 22 1 25 127 1 25 22 1 25 127 1 25 22 1 25 127 1 25 22 1 25 127 1 25 32 1 25 22 1 25 127 1 25 32 1 25 22 1 25 127 1 25 32 1 25 22 1 25 127 1 25 127 1 25 127 1 25 22 1 25 32 1 25 22 1 25 127 1 25 22 1 25 32 1 24 32 1 25 32 1 26 32 1 25 32 2 25 22 3 25 22 4 25 127 5 25 22 6 25 22 7 24 123 7 25 192 7 26 125 8 26 32 8 25 32 8 24 32 7 24 32 7 25 32 7 26 32 8 26 32 8 25 32 8 24 32 7 24 123 7 24 32 8 24 123 8 25 192 8 26 125 9 26 32 9 25 32 9 24 32 8 24 32 8 25 32 8 26 32 9 26 32 9 25 32 9 24 32 8 24 32 8 24 123 8 25 192 8 26 125 9 26 32 9 25 32 9 24 32 8 24 32 8 25 32 8 26 32 9 26 32 9 25 32 9 24 32 8 24 32 8 24 123 8 24 32 9 24 192 10 23 192 11 23 192 12 24 192 12 24 32 11 23 192 11 23 32 10 23 192 10 23 32 9 24 192 9 24 32 8 24 123 8 24 32 9 24 123 9 25 192 9 26 125 10 26 32 10 25 32 10 24 32 9 24 32 9 25 32 9 26 32 10 26 32 10 25 32 10 24 32 10 24 123 10 25 192 10 26 125 11 26 32 11 25 32 11 24 32 10 24 32 10 25 32 10 26 32 11 26 32 11 25 32 12 24 32 13 24 32 14 25 32 15 24 32 16 25 32 17 25 32 18 24 32 18 25 123 18 25 32 17 25 32 16 25 32 15 25 32 14 25 32 13 25 32 12 25 32 11 25 32 11 26 123 11 27 192 11 28 125 12 28 32 12 27 32 12 26 32 11 26 32 11 27 32 11 28 32 12 28 32 12 27 32 12 28 123 12 29 192 12 30 125 13 30 32 13 29 32 13 28 32 12 28 32 12 29 32 12 30 32 13 29 123 13 30 192 13 31 125 14 31 32 14 30 32 14 29 32 13 29 32 13 30 32 13 31 32 14 32 123 14 33 192 14 34 125 15 34 32 15 33 32 15 32 32 14 32 32 14 33 32 14 34 32 15 35 123 15 36 192 15 37 125 16 37 32 16 36 32 16 35 32 15 35 32 15 36 32 15 37 32 15 38 32 16 37 123 16 38 192 16 39 125 17 39 32 17 38 32 17 37 32 16 37 32 16 38 32 16 39 32 16 40 123 16 41 192 16 42 125 17 42 32 17 41 32 17 40 32 16 40 32 17 41 32 16 40 32 16 41 32 16 42 32 16 43 123 16 44 192 16 45 125 15 45 32 14 45 32 13 45 32 12 45 32 11 45 32 10 45 32 9 45 32 8 45 32 7 45 32 7 44 32 7 43 32 7 42 32 7 41 32 7 40 32 7 39 32 7 38 32 7 37 32 7 36 32 7 35 32 7 34 32 7 33 32 7 32 32 7 31 32 7 30 32 7 29 32 7 28 32 8 28 32 8 28 47 7 29 47 7 28 32 7 27 32 8 27 32 8 26 32 8 25 32 8 24 32 8 23 32 8 22 32 7 22 32 7 21 92 8 22 92 9 23 32 10 24 32 11 25 32 12 26 32 13 27 32 14 28 32 15 29 32 14 28 32 13 27 32 12 26 32 11 25 32 10 24 32 9 23 32 8 22 32 8 22 92 8 23 32 8 24 32 8 25 32 8 26 32 8 27 32 8 28 32 8 27 32 8 26 32 8 25 32 8 24 32 8 23 32 8 22 32 7 22 32 6 22 32 6 22 22 7 22 160 7 23 160 7 24 32 7 25 160 7 25 32 7 26 160 7 26 32 7 27 160 7 28 160 8 28 32 9 28 32 9 27 32 9 26 32 9 25 32 9 24 32 8 24 32 7 24 32 6 24 32 6 24 22 7 24 32 7 23 32 7 24 32 7 25 32 7 26 32 7 27 32 7 26 32 7 25 32 7 24 32 7 23 32 7 22 32 7 23 32 7 24 32 7 25 32 7 26 32 7 27 32 7 28 32 6 29 32 6 29 22 7 29 32 7 28 32 7 27 32 7 26 32 7 25 32 7 24 32 7 23 32 7 22 32 7 21 32 8 21 32 8 22 32 8 23 32 8 24 32 8 25 32 8 26 32 8 27 32 8 28 32 8 29 32 8 30 32 8 31 32 8 32 32 8 33 32 8 34 32 8 35 32 8 36 32 8 37 32 8 38 32 8 39 32 8 40 32 8 41 32 9 41 32 10 41 32 11 41 32 12 41 32 13 41 32 14 41 32 15 41 32 16 41 32 17 41 32 18 41 32 19 41 32 20 41 32 21 41 32 22 41 32 23 41 32 1 41 32 23 41 32 23 41 46 23 41 127 23 40 127 23 39 127 23 38 127 23 37 127 23 36 127 23 35 127 23 35 22 23 35 254 23 35 127 23 34 127 23 33 127 23 32 127 23 31 127 22 30 10 22 31 22 22 32 22 22 33 8 21 33 32 21 32 32 21 31 32 21 30 32 22 30 32 22 30 10 22 30 32 22 31 10 22 32 22 22 33 22 22 34 8 21 34 32 21 33 32 21 32 32 21 31 32 22 31 32 22 32 10 22 33 22 22 34 22 22 35 8 21 35 32  21 34 32 21 33 32 21 32 32 22 32 32 22 32 10 22 32 32 22 33 10 22 34 22 22 35 22 22 36 8 21 36 32 21 35 32 21 34 32 21 33 32 22 33 32 22 34 10 22 35 22 22 36 22 22 37 8 21 36 42 21 36 32 20 37 42 20 37 32 19 38 42 19 38 32 19 39 42 19 39 32 18 40 42 18 40 32 18 41 42 18 41 32 17 42 42 17 42 32 17 43 42 17 43 32 16 44 42 16 44 32 16 45 45 16 44 45 16 44 32 16 43 45 17 44 11 16 44 11 16 44 32 15 44 11 15 44 32 16 43 32 17 44 32 16 45 32 15 46 32 15 45 32 15 46 32 15 46 32 15 47 32 15 46 32 15 46 46 14 45 32 13 44 46 14 43 46 14 43 32 15 42 46 16 43 46 16 43 32 17 44 46 17 44 32 18 44 46 17 44 32 16 44 32 16 45 32 16 46 32 15 46 32 15 47 32 15 48 46 15 47 32 15 46 32 15 45 32 15 44 32 14 44 32 13 44 32 12 44 32 11 44 46 11 43 32 12 43 32 13 43 32 14 43 32 15 43 32 16 43 32 17 43 32 17 42 32 16 42 32 15 42 32 15 41 46 15 41 32 15 40 46 15 40 32 15 39 46 15 40 32 15 41 32 15 42 32 15 43 32 15 44 32 15 45 32 15 46 32 15 47 32 15 48 32 15 49 46 15 49 32 15 50 46 15 50 32 14 50 32 13 50 32 12 50 32 11 50 32 10 50 32 10 49 32 10 48 32 10 47 32 10 46 32 10 45 32 10 44 32 11 44 32 12 44 32 13 44 32 14 44 32 15 44 32 16 44 32 17 44 32 18 44 32 17 43 32 16 42 32 15 41 32 14 40 32 13 40 32 14 40 32 14 41 32 14 42 32 14 43 32 14 43 46 14 43 32 15 43 32 15 42 32 15 41 32 15 40 32 15 39 32 14 39 32 13 39 32 12 39 32 11 39 32 10 39 32 9 39 32 8 39 32 7 39 32 6 39 32 5 39 32 5 39 25 6 38 25 7 37 25 7 37 32 6 36 22 6 35 22 6 34 22 6 33 22 6 32 22 6 31 22 6 31 32 6 31 22 6 32 22 6 33 22 6 34 22 6 33 22 6 32 22 6 31 22 6 30 22 6 29 22 7 30 13 7 30 32 8 31 13 8 31 32 9 32 13 9 32 32 9 32 32 10 32 13 10 32 32 11 32 13 11 32 32 11 32 32 12 33 13 13 33 13 12 33 13 12 33 32 13 33 13 13 33 32 14 34 13 14 34 32 15 34 13 15 34 32 16 35 13 16 35 32 17 35 13 17 35 32 18 36 13 18 36 32 19 36 13 19 36 32 20 36 13 20 36 32 21 36 13 21 36 32 22 37 32 22 36 32 22 35 32 22 34 32 22 33 45 21 34 11 22 35 45 22 35 32 22 36 45 22 35 32 22 34 32 22 33 32 22 32 45 21 32 32 21 33 32 21 34 32 20 34 73 20 34 32 19 34 73 20 34 32 21 34 32 22 34 32 22 33 32 22 32 32 22 31 45 22 31 32 22 30 46 22 31 32 22 32 32 22 33 32 22 34 32 22 35 32 22 36 32 22 37 46 22 37 32 22 38 46 21 38 32 20 38 32 19 38 32 18 38 32 18 37 32 18 36 32 18 35 32 18 34 32 18 33 32 18 32 32 17 32 32 17 33 32 17 34 32 17 35 32 17 36 32 17 37 32 18 37 32 19 37 32 19 36 32 19 35 32 19 34 32 18 34 46 18 34 32 17 34 46 17 34 32 18 34 32 19 34 32 20 34 32 21 34 32 21 33 32 21 32 32 21 31 32 21 30 32 21 29 32 22 29 32 22 28 32 22 27 32 22 26 32 22 27 32 22 28 32 22 29 32 23 29 32 23 29 127 22 30 32 22 31 32 22 32 32 22 33 32 22 34 32 22 35 32 22 36 32 22 37 32 22 38 32 9 32 23 29 127 22 30 32 22 31 32 22 32 32 22 33 3 36 45 22 35 32 22 34 32 22 33 32 22 32 45 21 32 32 21 33 32 21 34 32 20 34 73 20 34 32 19 34 73 20 34 32 21 34 32 22 34 32 22 33 32 22 32 32 22 31 45 22 31 32 22 30 46 22 31 32 22 32 32 22 33 32 22 34 32 22 35 32 22 36 32 22 37 46 22 37 32 22 38 46 21 38 32 20 38 32 19 38 32 18 38 32 18 37 32 18 36 32 18 35 32 18 34 32 18 33 32 18 32 32 17 32 32 17 33 32 17 34 32 17 35 32 17 36 32!3=bw!z/W +{D_2w ~ MR> T>T>R2 x|YOU BLEW IT$ 10 DATA 62227,22,62228,22,62355,22,62483,22,62611,22,62612,22 11 DATA 62486,22,62487,23,62614,22 12 DATA 62489,23,62490,22,62617,17,62618,22 13 DATA 62492,22,62493,5,62620,22,62621,3,62748,22 14 DATA 62495,22,62496,23,62623,24,62624,22 15 PRINT CHR$(26) 17 PRINT CHR$(26) 20 A$="'" 22 FOR X= 1 TO 23 24 PRINT STRING$(51,A$); 26 NEXT X 30 FOR XA=62098! TO 62738! STEP 128 32 FOR XB=XA TO XA+15 34 POKE XB,32 36 NEXT XB 38 NEXT XA 50 FOR X=61844! TO 61859! : POKE X,22 : NEXT X 52 POKE 61843!,10 54 FOR X=61971! TO 61987! : POKE X,22 : NEXT X 56 POKE 61970!,10 58 FOR X= 62114! TO 62626! STEP 128 60 POKE X,22 : NEXT X 62 POKE 62754!,25 64 FOR X=62115! TO 62499! STEP 128 66 POKE X,22 : NEXT X 68 POKE 62627!,25 70 FOR T = 1 TO 22 72 READ Z,X 74 POKE Z,X 76 NEXT T 78 FOR TIME = 1 TO 100 : NEXT TIME 79 PRINT CHR$(&H1E) 80 FOR X= 1 TO 18 : PRINT : NEXT X 82 PRINT "'''''''''''''''''''By Jim Hennessy''''''''''''''''''" 84 FOR TIME = 1 TO 900: NEXT TIME 100 PRINT 105 PRINT "'''''''''''''''''Ready to play (Y/N)"; 110 ANS$=INKEY$ 120 S=S+1 130 IF S = 32767 THEN S = -32768! 140 IF ANS$="Y" THEN GOTO 170 150 IF ANS$="N" THEN GOTO 1980 160 GOTO 110 170 RANDOMIZE S 180 MONY=100 190 '*********** BETTING ROUTINE *********** 200 PRINT CHR$(26) 210 FOR X=1 TO 5 : PRINT : NEXT X 220 PRINT TAB(13); 230 PRINT "YOU HAVE $";MONY;" TO SPEND" 240 PRINT 250 PRINT " How much of it do you want to bet" 260 PRINT 270 PRINT TAB(23);"$"; 280 INPUT BET 290 'FIRST ROLL 300 PRINT:PRINT TAB(12);"TO ROLL DICE, HIT SPACE BAR" 310 X$=INPUT$(1) 320 '********** FIRST ROLL *************** 330 D1 = INT(RND*6)+1 340 D2 = INT(RND*6)+1 350 R1 = D1+D2 360 GOSUB 840:'TABLE DISPLAY 370 GOSUB 1100:'FIRST DIE MOVE 380 GOSUB 1320:'DOTS 390 GOSUB 1700:'2nd DIE MOVE 395 FOR TIME= 1 TO 400: NEXT TIME 400 PRINT " YOU ROLLED ";R1 410 PRINT 420 IF R1=7 THEN GOTO 490 430 IF R1 = 11 THEN GOTO 490 440 IF R1 = 3 THEN GOTO 580 450 IF R1 = 12 THEN GOTO 580 460 IF R1 = 2 THEN GOTO 580 470 GOTO 660 480 '******************* WIN ****************** 490 MONY = MONY + BET 495 FOR TIME = 1 TO 400 :NEXT TIME 500 PRINT 510 PRINT " *****************" 520 PRINT " * YOU WON !!! *" 530 PRINT " *****************":PRINT CHR$(7) 540 PRINT:PRINT " Play again? (Y/N)" 550 X$= INPUT$(1) 560 IF X$="Y" THEN GOTO 190 ELSE 2000 570 '******************* LOSE ******************* 580 MONY = MONY - BET 590 PRINT 595 FOR TIME = 1 TO 900 : NEXT TIME 600 PRINT " ==========" 610 PRINT " YOU LOSE" 620 PRINT " ==========":PRINT CHR$(7) 630 PRINT "TRY AGAIN? (Y/N)" 640 X$=INPUT$(1) 650 IF X$="Y" THEN 190 ELSE 2000 660 '****************** POINT ****************** 665 FOR TIME = 1 TO 900 : NEXT TIME 670 PRINT " the point is ";R1 680 PRINT " keep rolling" 690 PRINT: PRINT "hit any key" 700 PRINT "to roll dice" 710 X$= INPUT$(1) 720 D1 = INT(RND*6)+1 730 D2 = INT(RND*6)+1 740 R2 =D1+D2 750 GOSUB 1790:'ERASE 760 GOSUB 1100 :'1st DIE MOVE 770 GOSUB 1320 : 'DOTS 780 GOSUB 1700 :'2nd DIE MOVE 790 GOSUB 1320 : 'DOTS 800 IF R2=7 THEN GOTO 580 810 IF R2=11 THEN GOTO 580 820 IF R2=R1 THEN GOTO 490 830 GOTO 660 840 '************** DISPLAY ROUTINES ************* 850 PRINT CHR$(26) 860 FOR X=61470! TO 63754! STEP 127: POKE X,10:NEXT X 870 FOR X=61471! TO 63755! STEP 127 880 FOR Q= X TO X+2 890 POKE Q,22 900 NEXT Q 910 NEXT X 920 D=63757! 930 FOR X=61474! TO 63758! STEP 127 : POKE X,25 : NEXT X 940 D=63757! 950 FOR X = D TO D+87 : POKE X,23 : NEXT X 960 FOR X=D TO D+384 STEP 128:POKE X,1 :NEXT X 970 POKE D,17 980 FOR X=64141! TO 64210! : POKE X,23 : NEXT X 990 POKE 61473!,32 : POKE 61474!,32 1000 POKE 61601!,32 : POKE 61602!,32 1010 POKE 61729!,32 1020 POKE 61472!,1 : POKE 61600!,1 : POKE 61728!,26 1030 FOR X= 61729! TO 61799! : POKE X,24 : NEXT X 1040 POKE 61472!,17 1050 FOR X=61473! TO 61530! : POKE X,23 : NEXT X 1060 FOR X = 64279! TO 64336! :POKE X,22:NEXT X 1070 FOR X = 64407! TO 64507! :POKE X,22 : NEXT X 1080 RETURN 1090 '************* FIRST DIE MOVEMENT ***************** 1100 ST=62883!+18 1110 FOR D =ST TO ST-29 STEP -1 : DIR$="FORWARD" 1120 GOSUB 1200 1130 NEXT D 1140 FOR D = ST-28 TO ST-20 :DIR$= "BACKWARDS" 1150 GOSUB 1200 1160 NEXT D 1170 D=ST-20 : GOSUB 1200 1180 RETURN 1190 '*************** DIE ********************** 1200 POKE D+128,13 1210 POKE D+385,13 1220 POKE D+1,22:POKE D+2,22 :POKE D+3,22:POKE D,10 1230 POKE D+131,22:POKE D+259,22 1240 POKE D+4,32:POKE D+132,32: POKE D+260,32 1250 POKE D+388,32:POKE D+516,32 1260 POKE D+387,25 1270 IF DIR$><"BACKWARDS" THEN GOTO 1300 1280 POKE D-1,32 : POKE D+127,32 : POKE D +255,32 1290 POKE D+382,32 :POKE D+ 383,32 1300 RETURN 1310 POKE D,32 :POKE D+127,32 :POKE D+253,32 1320 'DOTS 1330 GOSUB 1400 1340 IF D1=1 THEN 1440 1350 IF D1=2 THEN 1490 1360 IF D1=3 THEN 1540 1370 IF D1=4 THEN 1580 1380 IF D1=5 THEN 1620 1390 IF D1=6 THEN 1660 1400 A=128: B=129 :C= 130 1410 E=256: F=257 :G= 258 1420 H=384: I=385 :J= 386 1430 RETURN 1440 '1 1450 POKE D+A,32 : POKE D+B,32 : POKE D+C,32 1460 POK E D+E,32 : POKE D+F,13 : POKE D+G,32 1470 POKE D+H,32 : POKE D+I,32 : POKE D+J,32 1480 GOTO 1690 1490 '2 1500 POKE D+A,13 : POKE D+B,32 : POKE D+C,32 1510 POKE D+E,32 : POKE D+F,32 : POKE D+G,32 1520 POKE D+H,32 : POKE D+I,32 : POKE D+J,13 1530 GOTO 1690 1540 POKE D+A,32 : POKE D+B,32 : POKE D+C,13 1550 POKE D+E,32 : POKE D+F,13 : POKE D+G,32 1560 POKE D+H,13 : POKE D+I,32 : POKE D+J,32 1570 GOTO 1690 1580 POKE D+A,13 : POKE D+B,32 : POKE D+C,13 1590 POKE D+E,32 : POKE D+F,32 : POKE D+G,32 1600 POKE D+H,13 : POKE D+I,32 : POKE D+J,13 1610 GOTO 1690 1620 POKE D+A,13 : POKE D+B,32 : POKE D+C,13 1630 POKE D+E,32 : POKE D+F,13 : POKE D+G,32 1640 POKE D+H,13 : POKE D+I,32 : POKE D+J,13 1650 GOTO 1690 1660 POKE D+A,13 : POKE D+B,32 : POKE D+C,13 1670 POKE D+E,13 : POKE D+F,32 : POKE D+G,13 1680 POKE D+H,13 : POKE D+I,32 : POKE D+J,13 1690 RETURN 1700 ST = 62504! : DIR$="FORWARD" 1710 D1=D2 1720 FOR D = ST + 11 TO ST STEP -1 1730 GOSUB 1200 1740 NEXT D 1750 D=ST 1760 GOSUB 1200 1770 GOSUB 1320 1780 RETURN :'BACK TO MAIN PROGRAM 1790 POKE D,32 1800 POKE D+A,32 : POKE D+B,32 : POKE D+C,32 : POKE D+C+1,32 1810 POKE D+E,32 : POKE D+F,32 : POKE D+G,32 : POKE D+G+1,32 1820 POKE D+C+2,32 : POKE D+G+2,32 : POKE D+J+2,32 1830 POKE D+H,32 : POKE D+I,32 : POKE D+J,32 : POKE D+J+1,32 1840 FOR X=1 TO 4 : POKE D+X,32 : NEXT X 1850 IF D= 62880! THEN GOTO 1880 1860 D=62880! 1870 GOTO 1800 1880 PRINT CHR$(&H1E) 1890 PRINT" " 1900 PRINT" " 1910 PRINT" " 1920 PRINT" " 1930 PRINT" " 1940 PRINT" " 1950 PRINT" " 1960 PRINT CHR$(&H1E) 1970 RETURN 1980 END 2000 PRINT CHR$(26) 2010 FOR X=1 TO 6 : PRINT : NEXT X 2020 PRINT TAB(10); 2030 PRINT "YOU ENDED THE GAME WITH $";MONY;".00" 2040 FOR X = 1 TO 14 : PRINT : NEXT X PRINT : NEXT X 2020 PRINT IR$="FORWARD" 1710 D1=D2 1720 FOR D = ST + 11 TO ST STEP -1 1730 GOSUB 1200 1740 NEXT D 1750 D=ST 1760 GOSUB 1200 1770 GO!@l ~+ x í@!@VT@@@@ͣAA 62227,22,62228,22,62355,22,62483,22,62611,22,62612,22!A&A 62486,22,62487,23,62614,22KAPA 62489,23,62490,22,62617,17,62618,22|AA 62492,22,62493,5,62620,22,62621,3,62748,22æAT 62495,22,62496,23,62623,24,62624,22 ! ! @!Rj͵SA 3!@ @S͚ @,U @SA͵S3B @S͚@͵@B! ͲV@ @S͚@,U@@B @S͚@,U@SA͵SXB!ͲV @ @S͚ @,U @SIB! ͲVS͵SÅB!ͲV @ @S͚ @,U @SvB! ͲVS͵SòB!ͲV @ @S͚ @,U @SB!ͲVS͵SB!ͲV @ @S͚ @,U @SB!ͲVS͵SC!@uU! @uU! @UͲV@ @S͚@,U@SB͵S8C "@S͚"@,U"@S1C ! ͵SjC !R @S͚ @,U @SZC !rR ͵SÐC "@S͚"@,U"@SC !R !KR T&@j )@S͚)@6U)@SCh)@S&@!GRC&@!CRJPðC!)@V=Th-@S ! ͵S"D !R @S͚ @,U @SD ! Q !R !6R !-@ !*R !R !Q !R !Q !R !Q !R ͉!1@ !R ! Q !R !Q !g.5@jU7S!2 S͚8@U7S!2 S͚<@ 8@<@͚@@?G]IKaN͵SE "@S͚"@,U"@SE !Q !@@ !R ;U@@SpE;U@@SpE;U@@SE;U@@SE;U@@SEwF -@1@͚-@͵SËE "@S͚"@,U"@SE !R !Q !Q !Q ! !R !Q !g.5@j5@!GRCMP-@1@͚-@ !R ͵SF "@S͚"@,U"@SF !zQ !lQ !zQ ! !YQ !g.5@j5@!GRCMP͵SÆF "@S͚"@,U"@SF !GQ !@@ !6Q !R !(Q !Q !g.5@jU7S!2 S͚8@U7S!2 S͚<@ 8@<@͚D@N]IKaNK;UD@SE;UD@SE;UD@@@pEwF ! ͵|SbG! ͲV @ @tS͚ @,U @xSSG͵pSðG @S͚H@͵ @ÛG!ͲVL@ L@S͚L@,UL@H@G @tS͚ @,U @lSxGhP@hS͵dSG!ͲV @ @tS͚ @,U @`SGhP@hS P@\S͚T@͵P@H!ͲV @ @S͚ @,U @T@H P@XS͚X@͵P@EH!ͲV @ @S͚ @,U @X@6H!ͲVP@͵TSrH!ͲV @ @S͚ @,U @PScH! ͲVLS! ͲVdS! ͲVHS! ͲVDS! ͲV@S!ͲVT w>AL!OT ! T* T@T"L1Uѯ 1%RTRandom Number Seed (-32768 to 32767) :!T!:!Ȇw!TO m8:<2! UO l7!2^#V#N#F#{YOO6+F6!4~֫Tw 9!1w+w+w÷T5Jʙ9v" GSљ e͘w>hFhiuh!zT>=U>=U>=U>=U>=U>^#V#^#V#>gU>gU>gU>gU>gU>^#V#![V2>ôUdVzV2>ôU[V@2>{1dV~,"U#"~UU# U Ç"U#zVx" Vyv1+~ V UyAm^#V#{'V!"">2VN#F#*~=VV}|VV͌VAVdVzV:V*j1~= Êj1~,ˆV#"ɧ›V*"+V+^" Ð0n&0|‡}wX@DM*"W!9"t!V##"rVW%*^#V""##^#V"% 2'!W!!""(@:N:WA/W@2WW.75 THEN A(I,J)=2 1110 NEXT J,I 1120 X=INT(RND(1)*6+2):Y=INT(RND(1)*6+2) 1130 A(X,Y)=5:C=INT(RND(1)*1501+500) 1140 GOSUB 2080 1150 PRINT "Your strength is ";UY$;C;UN$:GOSUB 1390:IF I>11 THEN 1150 1160 IF M=0 THEN PRINT "***You get the treasure free!***";CHR$(7):GOTO 1630 1170 IF M=100 AND N=1 THEN 2070 1180 PRINT GN$;"Do you want to (F)ight, (R)un, or (B)ribe? " 1190 Z9$=INPUT$(1):IF Z9$<>"F" AND Z9$<>"R" AND Z9$<>"B" THEN 1190 1200 IF Z9$="F" THEN 1210 ELSE IF Z9$="R" THEN 1300 ELSE IF Z9$="B" THEN 1770 ELSE GOTO 1180 1210 INPUT "How many combat points do you wish to use? ",K 1220 IF K>C THEN GOSUB 1760:PRINT UY$;C;UN$;"Combat points":GOTO 1210 1230 I=INT(RND(1)*1001):L=2:C=C-K:K=K-.01*Q 1240 FOR H=1000 TO 0 STEP -50:IF L*M<=K AND H>=1 THEN 1610 1250 L=L-.1:NEXT 1260 PRINT "***The monster killed you! You lose everything!***" 1270 PRINT:PRINT:PRINT "Do you want to try again?"; 1280 Z$=INPUT$(1):PRINT CHR$(26):IF Z$="Y" THEN RANDOMIZE C:C=0:Q=0:GOTO 1080 1290 PRINT:PRINT:PRINT "So long for now. Better luck next time!":END 1300 PRINT CHR$(26):I=INT(RND(1)*12):IF I=11 THEN 1260 1310 FOR H=0 TO 10:IF H*10>M AND H<=I THEN 1330 1320 NEXT:GOTO 1840 1330 A=X:B=Y 1340 X=INT(RND(I)*3-1)+A:Y=INT(RND(I)*3-1)+B 1350 IF A(X,Y)>1 THEN 1340 1360 IF A(X,Y)=0 THEN 2130 1370 A(A,B)=1:A(X,Y)=5:IF I<>12 THEN 1140 1380 RETURN 1390 I=INT(RND(1)*18+1):M=I*10:IF I<11 THEN PRINT "A "; 1400 ON I GOTO 1410,1420,1430,1440,1450,1460,1470,1480,1490,1500,1510,1920,1850,2110,2150,2150,2150,2150 1410 PRINT "Minotaur";:GOTO 1520 1420 PRINT "Cyclops";:GOTO 1520 1430 PRINT "Zombie";:GOTO 1520 1440 PRINT "Giant";:GOTO 1520 1450 PRINT "Harpy";:GOTO 1520 1460 PRINT "Griffin";:GOTO 1520 1470 PRINT "Chimera";:GOTO 1520 1480 PRINT "Dragon";:GOTO 1520 1490 PRINT "Wyvern";:GOTO 1520 1500 PRINT "Baslisk";:GOTO 1520 1510 PRINT "Nothing";:M=0 1520 PRINT " is guarding ";:I=INT(RND(1)*7+1) 1530 ON I GOTO 1540,1550,1560,1570,1580,1590,1600 1540 PRINT "Ten Silver Spoons":P=10:RETURN 1550 PRINT "a Jeweled Sword":P=30:RETURN 1560 PRINT "a Jar of Rubies":P=50:RETURN 1570 PRINT "a Treasure Chest":P=200:RETURN 1580 PRINT "Fifty Silver Coins":P=50:RETURN 1590 PRINT "100 Gold Pieces":P=100:RETURN 1600 PRINT "a Box of Jewels":P=75:RETURN 1610 PRINT:PRINT "***You beat the monster!***";CHR$(7) 1620 S=S+1 1630 Q=Q+P 1640 IF P=30 THEN GOSUB 1970 1650 IF P=200 THEN GOSUB 2000:GOSUB 2040 1660 PRINT "You have ";UY$;Q;UN$;" treasure points." 1670 X$="":A=X:B=Y:PRINT:INPUT "What direction ? (Hit '1' to re-display) ",X$:PRINT CHR$(26):IF X$="" GOTO 1670 1680 IF X$="1" THEN PRINT CLS$:GOSUB 2080:GOTO 1670 1690 IF RIGHT$(X$,1)="W" THEN X=X-1 1700 IF RIGHT$(X$,1)="E" THEN X=X+1 1710 IF LEFT$(X$,1) ="N" THEN Y=Y-1 1720 IF LEFT$(X$,1) ="S" THEN Y=Y+1 1730 IF A(X,Y)=0 THEN 2130 1740 IF A(X,Y)=2 THEN PRINT "***Oops.....You ran into a tree!***":X=A:Y=B:GOTO 1670 1750 A(A,B)=1:A(X,Y)=5:GOTO 1140 1760 PRINT "You only have";:RETURN 1770 INPUT "How much do you want to pay";K 1780 IF K>Q THEN GOSUB 1760:PRINT UY$;Q;UN$;" treasure points":GOTO 1770 1790 I=INT(RND(1)*22):L=0:IF I=21 OR K<1 THEN 1260 1800 FOR H=0 TO 20:IF K<=L*P AND I>=H THEN 1830 1810 L=L+.1:NEXT 1820 PRINT "***Your bribe was accepted***";:Q=Q-K:GOTO 1660 1830 PRINT "***Your bribe was not accepted***"; 1840 PRINT "***You must fight***":GOTO 1210 1850 ' 1860 PRINT "***The guardian of the forest captured you,took half" 1870 PRINT "your treasure, and the took you to a new location 1880 PRINT "somewhere in the forest.....tough luck!***" 1890 Q=Q/2:A=X:B=Y:FOR I9=1 TO 4000:NEXT 1900 X=INT(RND(1)*7+2):Y=INT(RND(1)*7+2):IF A(X,Y)<>1 THEN 1900 1910 A(A,B)=1:A(X,Y)=5:PRINT CHR$(26):GOSUB 2080:I=13:RETURN 1920 J=INT(RND(1)*20+1):C=C-J 1930 PRINT "***You fell into a pit and used ";UY$;J;UN$ 1940 PRINT "combat points to climb out....." 1950 IF C<0 THEN PRINT ".....but you died while climbing out!***":GOTO 1270 1960 GOTO 1330 1970 IF RND(1)<.5 OR C>3000 THEN RETURN 1980 PRINT "***The sword was enchanted and doubles your strength!***" 1990 C=C*2:RETURN 2000 I=INT(RND(1)*10):IF I<>7 THEN RETURN 2010 PRINT "LOOK OUT!!! The chest explodes when you open it!" 2020 PRINT "You fail to survive the massive explosion." 2030 GOTO 1270 2040 PRINT "___________________________________________________" 2050 PRINT "There is a mirror in the chest....." 2060 PRINT "It will kill any Baslisks you meet!":N=1:RETURN 2070 PRINT "Your mirror killed the Basilisk!":GOTO 1620 2080 GOSUB 2170:PRINT HO$:FOR I=0 TO 10:PRINT TAB(15);:FOR J=0 TO 10 2090 PRINT GY$;CH$(A(J,I)); 2100 NEXT J:PRINT GN$:NEXT I:PRINT EP$;GN$:RETURN 2110 IF S<5 THEN 1390 2120 PRINT "A giant eagle carried you away to safety!" 2130 PRINT:PRINT "You survived the forest!" 2140 PRINT "You won a treasure total of ";UY$;Q;UN$:PRINT "Congratulations!":PRINT "Would you like to play again?";:GOTO 1280 2150 PRINT "There is nothing to be found here.":GOTO 1660 2160 END 2170 PRINT DC$;" '";GY$;CH$(5);GN$;" = Your location"; 2180 PRINT DC$;CHR$(34);"'";GY$;CH$(2);GN$;" = Tree"; 2190 PRINT DC$;"$'";GY$;CH$(0);GN$" = Field" 2200 PRINT DC$;CHR$(34);"5";"NW N NE" 2210 PRINT DC$;"#7";DY$;GY$;CHR$(25);CHR$(13);CHR$(21);GN$;DN$; 2220 PRINT DC$;"$5";"W ";DY$;GY$;CHR$(13);CHR$(13);CHR$(13);GN$;DN$;" E"; 2230 PRINT DC$;"%7";DY$;GY$;CHR$(8);CHR$(13);CHR$(10);GN$;DN$; 2240 PRINT DC$;"&5";"SW S SE"; 2250 RETURN 3);GN$;DN$;" E"; 2230 PRINT DC$;"%7";DY$;GY$;CHR$(8);CHR$(13);CHR$(10);GN$;DN$; 2240 Psilisk!":GOTO 1620 2080 GOSUB 2170:PRINT HO$:FOR I=0 TO 10:PRINT TAB(15);:FOR J=0 TO 10 2090 PRINT GY$;CH$(A(J,I)); 2100 NEXT J:PRINT GN$:NEXT I:PRINT EP$;GN$:RETURN 2110 IF S<5 THEN 1390 2120 PRINT "A giant eagle carried you away to safety!" 2130 PRMONSTER is copied from the Kelly Smith article on pages 37 thru 44 of the June/July 1982 issue of Portable Companion. It is an Adventure style game using Osborne graphics. MONSTER BASV56789:;<=>?MONSTER $$$1 REM MODIFICATION OF ORIGINAL MONSTER PROGRAM OF KELLY SMITH AS 2 REM PUBLISHED IN THE FIRST ISSUE OF THE PORTABLE COMPANION. 3 REM MODIFICATIONS BY JIM MCHUTCHION OF DETROIT FIRST OSBORNE GROUP 5 RANDOMIZE 10 PRINT CHR$(26) 20 PRINT" Smurf Adventure " 30 PRINT" " 32 PRINT:INPUT"Are you a Smurf(M) or a Smurfette(F)?";S$ 33 IF LEFT$(S$,1)="F" THEN S$="Smurfette": GOTO 49 34 IF LEFT$(S$,1)<>"M" THEN S$="Papa Smurf":GOTO 49 35 I=INT(RND(1)*4+1):ON I GOTO 36,37,38,39,40 36 S$="Jokey Smurf":GOTO 49 37 S$="Brainy Smurf":GOTO 49 38 S$="Clumsy Smurf":GOTO 49 39 S$="Hefty Smurf":GOTO 49 40 S$="Astro Smurf":GOTO 49 49 PRINT :PRINT"Hi ";S$:INPUT"Would you like instructions (Y,N)";X$ 50 IF LEFT$(X$,1)="N" THEN GOTO 890 60 PRINT:PRINT"In the game of 'Smurf' you try to gather" 70 PRINT"treasure from various crafty, wily enemies and leave" 80 PRINT"the forest with as much treasure as possible - " 90 PRINT"without getting captured in the process! At the " 100 PRINT"beginning, you are placed at a randomly chosen " 110 PRINT"location in a forest with a certain number of magic" 120 PRINT"strength points. As you move through the forest, " 130 PRINT"you will encounter your enemies guarding various" 140 PRINT"tempting treasures." 150 INPUT"Press RETURN to continue",X$:PRINT CHR$(26) 160 PRINT"At each meeting you are given a choice of fighting " 170 PRINT"the enemy, running from it, or bribing it. If you " 180 PRINT"wish to fight you will be asked to enter the number " 190 PRINT"of magical points you wish to use. Enter any number " 200 PRINT"smaller than your present strength. Each enemy" 210 PRINT"has its own magical strength. These are as follows:" 220 PRINT 230 PRINT" 10 - Purple Fly" 240 PRINT" 20 - Pink Mouse" 250 PRINT" 30 - Green Smoof" 260 PRINT" 40 - Cave Troll" 270 PRINT" 50 - Mischevious little boy" 280 PRINT" 60 - Gargamel's Mother" 290 PRINT" 70 - polka dot dog"  300 PRINT" 80 - Azreal" 310 PRINT" 90 - Big Mouth" 320 PRINT"100 - Gargamel" 330 INPUT"Press RETURN to continue",X$:PRINT CHR$(26) 340 PRINT"If you enter a number equal to the enemies" 350 PRINT"strength, you have a 50-50 chance of defeating it. " 360 PRINT"Entering a higher number increases your chances of " 370 PRINT"winning, while entering a smaller number lowers that " 380 PRINT"chance. No matter how much strength you use, there " 390 PRINT"is a 1 in 1000 chance that the enemy may capture you " 400 PRINT"anyway! Also, the more treasure you have, the more " 410 PRINT"strength you need to use to achieve the same odds " 420 PRINT"against the enemy in combat. If you choose to " 430 PRINT"run, your chances of getting away from an enemy " 440 PRINT"successively decrease as each new enemies's strength " 450 PRINT"increases. Thus you are more likely to get away " 460 PRINT"from a Purple Fly than from Gargamel. " 470 INPUT"Press RETURN to continue",X$:PRINT CHR$(26) 480 PRINT"If you succeed in running away, you are placed in a " 490 PRINT"new randomly selected square. Not getting away " 500 PRINT"usually results in a battle. Occaisionally, while " 510 PRINT"you are running, the enemy will catch you - one of " 520 PRINT"the risks of smurfing out. Of course trying to " 530 PRINT"bribe your foe is an age old alternative to running " 540 PRINT"or fighting. For this, you must use the treasure " 550 PRINT"you have won. Whether or not you succeed depends on " 560 PRINT"the value of the treasure the enemy is guarding. " 570 PRINT"The more its value, the more you must pay to " 580 PRINT"successfully bribe your adversary. If the bribe " 590 PRINT"fails, prepare to fight." 600 INPUT"Press RETURN to continue",X$:PRINT CHR$(26) 610 PRINT"Treasure values are:" 620 PRINT 630 PRINT" 10 - Ten Smurfy Spoons" 640 PRINT" 30 - Jeweled Rod" 650 PRINT" 50 - Jar of Diamonds" 660 PRINT" 50 - Vial of Papa Smurf Potion" 670 PRINT" 75 - Basket of Smurf-berries" 680 PRINT"100 - One Hundred Smurf Pies" 690 PRINT"200 - Treasure Chest" 700 INPUT"Press RETURN to continue",X$:PRINT CHR$(26) 710 PRINT"Movement through the forest is easy: just enter the " 720 PRINT"direction you wish to go - N for North, SE for South " 730 PRINT"East, etc. The option to reset the display is " 740 PRINT"included ( press 1 ) in case the previous play of " 750 PRINT"the game caused too many lines of text to be printed " 760 PRINT"below the map. The map will be reprinted and the " 770 PRINT"display cleared. Your position will be displayed on " 780 PRINT"the map, as well as the location of trees in the " 790 PRINT"forest. You must go around the trees. To leave, " 800 PRINT"simply move to any blank area adjacent to the edge " 810 PRINT"of the map. Scores of 500 to 700 are average. " 820 PRINT"Anything above 1000 is excellent. As is common to " 830 PRINT"games of this type, I have left out a number of " 840 PRINT"things  that you will have to find out for yourself " 850 PRINT"(Papa Smurf has to have some fun, after " 860 PRINT"all). Good luck and good hunting!" 870 INPUT"Press RETURN to continue",X$:PRINT CHR$(26) 890 PRINT CHR$(26) 910 ' OSBORNE I TERMINAL COMMANDS 920 E$=CHR$(27):' ESCAPE CHARACTER 930 CLS$=CHR$(26):' CLEAR SCREEN 940 DC$=E$+"=":' DIRECT CURSOR ADDRESSING 950 GY$=E$+"g":' Graphics On 960 GN$=E$+"G":' GRAPHICS OFF 970 HO$=E$+CHR$(1):' CURSOR HOME 980 EP$=E$+"T":' ERASE TO END OF LINE 990 DY$=E$+")":' DIM DISPLAY ON 1000 DN$=E$+"(":' DIM DISPLAY OFF 1010 UY$=E$+"l":' START UNDERLINING 1020 UN$=E$+"m":' END UNDERLINING 1060 CH$(0)=DY$+CHR$(13)+CHR$(13)+DN$:' FIELD CHARACTER (BORDER) 1070 CH$(1)=DY$+CHR$(13)+CHR$(13)+DN$:' FIELD CHARACTER (FIELD) 1080 CH$(2)=CHR$(10)+CHR$(8):' TREE 1085 CH$(3)=CHR$(6)+CHR$(6):' YOUR TRAIL 1090 CH$(5)=CHR$(4)+CHR$(1):' YOUR POSITION 1100 FOR I=1 TO 9:FOR J=1 TO 9:A(I,J)=1:IF RND(1)>.75 THEN A(I,J)=2 1110 NEXT J,I 1120 X=INT(RND(1)*6+2):Y=INT(RND(1)*6+2) 1130 A(X,Y)=5:C=INT(RND(1)*1501+500) 1140 GOSUB 2080 1150 PRINT "Your strength is ";UY$;C;UN$:GOSUB 1390:IF I>11 THEN 1150 1160 IF M=0 THEN PRINT "You get the treasure free!":GOTO 1630 1170 IF M=100 AND N=1 THEN 2070 1180 PRINT GN$;"Do you want to (F)ight, (R)un, or (B)ribe? " 1190 Z9$=INPUT$(1):IF Z9$<>"F"AND Z9$<>"R" AND Z9$<>"B" GOTO 1190 1200 IF Z9$="F" GOTO 1210 ELSE IF Z9$="R" GOTO 1300 ELSE IF Z9$="B" GOTO 1770 ELSE GOTO 1180 1210 INPUT "How much magic do you wish to use";K 1215 IF K=0 THEN GOTO 10 1220 IF K>C THEN GOSUB 1760:PRINT UY$;C;UN$;"magic points":GOTO 1230 I=INT(RND(1)*1001):L=2:C=C-K:K=K-.01*Q 1240 FOR H=1000 TO 0 STEP-50:IF L*M<=K AND H>=I THEN 1610 1250 L=L-.1:NEXT 1260 PRINT "The enemy captured you, and you lose everything." 1270 PRINT "Do you want to try again ";S$;"?"; 1280 Z$=INPUT$(1):PRINT CHR$(26):IF Z$="Y" THEN RANDOMIZE C:C=0:Q=0:GOTO 1080 1290 PRINT:PRINT "So long for now. Better luck next time!":END 1300 PRINT CHR$(26):I=INT(RND(1)*12):IF I=11 THEN 1260 1310 FOR H=0 TO 10:IF H*10>M AND H<=I THEN 1330 1320 NEXT:GOTO 1840 1330 A=X:B=Y 1340 X=INT(RND(1)*3-1)+A:Y=INT(RND(1)*3-1)+B 1350 IF A(X,Y)>1 THEN 1340 1360 IF A(X,Y)=0 THEN 2130 1370 A(A,B)=3:A(X,Y)=5:IF I<>12 THEN 1140 1380 RETURN 1390 I=INT(RND(1)*18+1):M=I*10 1400 ON I GOTO 1410,1420,1430,1440,1450,1460,1470,1480,1490,1500,1510,1920,1850,2110,2150,2150,2150,2150 1410 PRINT "A purple fly";:GOTO 1520 1420 PRINT "A pink mouse";:GOTO 1520 1430 PRINT "A green Smoof";:GOTO 1520 1440 PRINT "A cave troll";:GOTO 1520 1450 PRINT "A mischevious little boy";:GOTO 1520 1460 PRINT "Gargamel's mother";:GOTO 1520 1470 PRINT "A polka dot dog";:GOTO 1520 1480 PRINT "Azreal";:GOTO 1520 1490 PRINT "Big Mouth";:GOTO 1520 1500 PRINT "Gargamel";:GOTO 1520 1510 PRINT "Nothing";:M=0 1520 PRINT " is guarding ":I=INT(RND(1)*7+1) 1530 ON I GOTO 1540,1550,1560,1570,1580,1590,1600 1540 PRINT "ten Smurfy spoons":P=10:RETURN 1550 PRINT "a jeweled rod":P=30:RETURN 1560 PRINT "a jar of diamonds":P=50:RETURN 1570 PRINT "a treasure chest":P=200:RETURN 1580 PRINT "vial of Papa Smurf potion":P=50:RETURN 1590 PRINT "100 Smurfy pies":P=100:RETURN 1600 PRINT "a basket of Smurf-berries":P=75:RETURN 1610 PRINT "You outwitted the enemy!" 1620 S=S+1 1630 Q=Q+P 1640 IF P=30 THEN GOSUB 1970 1650 IF P=200 THEN GOSUB 2000:GOSUB 2040 1660 PRINT "You have ";UY$;Q;UN$;" treasure points" 1670 X$="":A=X:B=Y:INPUT"What direction (Hit '1' to re-display)";X$:PRINT CHR$(26):IF X$="" GOTO 1670 1680 IF X$="1" THEN PRINT CLS$:GOSUB 2080:GOTO 1670 1690 IF RIGHT$(X$,1)="W" THEN X=X-1 1700 IF RIGHT$(X$,1)="E" THEN X=X+1 1710 IF LEFT$(X$,1)="N" THEN Y=Y-1 1720 IF LEFT$(X$,1)="S" THEN Y=Y+1 1730 IF A(X,Y)=0 THEN 2130 1740 IF A(X,Y)=2 THEN PRINT CHR$(7);"Oops...You ran into a tree!":X=A:Y=B:GOTO 1670 1745 IF A(X,Y)=3 THEN PRINT CHR$(7);"Havn't we been here before?":X=A:Y=B:GOTO 1670 1750 A(A,B)=3:A(X,Y)=5:GOTO 1140 1760 PRINT "You only have";:RETURN 1770 INPUT"How much do you want to pay";K 1775 IF K=0 THEN GOTO 1830 1780 IF K>Q THEN GOSUB 1760:PRINT UY$;Q;UN$;" treasure points":GOTO 1770 1790 I=INT(RND(1)*22):L=0:IF I=21 OR K<1 THEN 1260 1800 FOR H=0 TO 20:IF K<=L*P AND I>=H THEN 1830 1810 L=L+.1:NEXT 1820 PRINT"Your bribe was accepted.";:Q=Q-K:GOTO 1660 1830 PRINT"Your bribe was rejected."; 1840 PRINT"You must fight":GOTO 1210 1850 PRINT CHR$(7) 1860 PRINT"The GUARDIAN of the forest captured you, took half" 1870 PRINT"your treasure, and then took you to a new location" 1880 PRINT"in the forest...tough luck!" 1890 Q=Q/2:A=X:B=Y:FOR I9=1 TO 4000:NEXT 1900 X=INT(RND(1)*7+2):Y=INT(RND(1)*7+2):IF A(X,Y)<>1 THEN 1900 1910 A(A,B)=1:A(X,Y)=5:PRINT CHR$(26):GOSUB 2080:I=13:RETURN 1920 J=INT(RND(1)*20+1):C=C-J 1930 PRINT "You fell into a pit and used ";UY$;J;UN$; 1940 PRINT "magic points to climb out..." 1950 IF C<0 THEN PRINT "...but you were captured while climbing out!":GOTO 1270 1960 GOTO 1670 1970 IF RND(1)<.5 OR C>3000 THEN RETURN 1980 PRINT "The rod was enchanted and doubles your strength!" 1990 C=C*2:RETURN 2000 I=INT(RND(1)*10):IF I <> 7 THEN RETURN 2010 PRINT "Sorry, but the chest was a trap...." 2020 PRINT "You were captured when you opened it!" 2030 GOTO 1270 2040 PRINT CHR$(27);"L" 2050 PRINT "A mirror was in the chest..." 2060 PRINT "It will scare Gargamel if you meet him":N=1:RETURN 2070 PRINT "Your mirror scared Gargamel and he ran away":GOTO 1620 2080 GOSUB 2170:PRINT HO$:FOR I=0 TO 10:PRINT TAB(15);:FOR J=0 TO 10 2090 PRINT GY$;CH$(A(J,I)); 2100 NEXT J:PRINT GN$:NEXT I:PRINT EP$;GN$:RETURN 2110 IF S<5 THEN 1390 2120 PRINT "A giant eagle carried you to safety" 2130 PRINT:PRINT "You survived the forest" 2135 PRINT "You miserable ";S$;"! I'll get you one day!" 2140 PRINT "You won a treasure total of ";UY$;Q;UN$:PRINT "Congratulations":PRINT "Would you like to play again? ";:GOTO 1280 2150 PRINT "How much farther, Papa Smurf?":GOTO 1660 2160 END 2170 PRINT CLS$,DC$;" '";GY$;CH$(5);GN$;" = Your location"; 2180 PRINT DC$;CHR$(34);"'";GY$;CH$(2);GN$;" = Tree"; 2190 PRINT DC$;"$'";GY$;CH$(0);GN$;" = field" 2200 PRINT DC$;CHR$(34);"5";"NW N NE" 2210 PRINT DC$;"#7";DY$;GY$;CHR$(25);CHR$(13);CHR$(21);GN$;DN$; 2220 PRINT DC$;"$5";"W ";DY$;GY$;CHR$(13);CHR$(13);CHR$(13);GN$;DN$;" E"; 2230 PRINT DC$;"%7";DY$;GY$;CHR$(8);CHR$(13);CHR$(10);GN$;DN$ 2240 PRINT DC$;"&5";"SW S SE"; 2250 RETURN 13);GN$;DN$;" E"; 2230 PRINT DC$;"%7";DY$;GY$;CHR$(8);CHR$(13);CHR$(10);GN$;DN$ 2240 PRINT DC$;"&5";"SW S SE"; 2 J=0 TO 10 2090 PRINT GY$;CH$(A(J,I)); 2100 NEXT J:PRINT GN$:NEXT I:PRINT EP$;GN$:RETURN 2110 IF S<5 THEN 1390 2120 PRINT "A giant eagle carried you to safety" 2130 PRINT:PRINT "You survived the forest" 2135 PRINT "You miserable ";S$;"! I'll get you one day!" 2140 PRINT "You won a treasure total of ";UY$;Q;UN$:PRINT "Congratulations":PRINT "Would you like to play again? ";:GOTO 1280 2150 PRINT "How much farther, Papa Smurf?":GOTO 1660 2160 END 2170 PRINT CLS$,DC$;" '";GY$;CH$(5);GN$;" = Your locat_((~#~#> > _#7"6UAT@   _^x!6#!~ww[66Q6)636=6G#!N66_66^!~w*~(2#2 :#!"(>>>ɮ =2*F~2*N:2L 0:8 :(0#:̒x8.(# :[00!##!"^(   (:[00!# :!"~( =E*f~2*~2$:!YD !#:2:22:$2#:2*"6#6:"_:):O2*~ Qy*~ D:( \( ͹ 3:2! ؐ2!#6@!~q22#͂:2xà[! R83*Ss#r!"^ !#6#6#:w#:w#:#w#6#"6#6+͘2)[*##s#r#"">2*~(( 2"!!z :o: :ķ* !,:#(_z( 4~(~(# o~g~oQO:!:C ~ (D ɯ2Nʧ2*~2"2*:22NL (ʣ:($ʣ: Zox8 }£Ò}£Ò£:2:" /!,w#>2͹!,3:"(~=!4*qC:w9# :"!,3(FN* V"Bo(x0o xA(D_E xAO미( #(g+ɯ202,2-2.2/23!6>2*~!"w2 898$( :&8Àf( >~(>{^(s^ >~(>!,w!,w#͹!3:,!,w:"ͮ(5:"!!{ !-8"s*:ݾ 23!.8~s!/8w!"~z(D!0w:d_:,!1G:3(>dW{!!~ Dƀ2+*wxoDxɸx*##~2#~2#V*^j -{(+(6*s6r 1z!Pz(#wÙ!P{(#:wÙ!Nr(*x*##~2#~2#V*^j 3{(6(Ab )*szwr 8z!Pz(#:w˓ ˛!P{(#:w !Nr(ˣ@*K`iN#Fr+sC͞*K^#V( :+ݾ0p+qiÂs͘(2+ô:&>2(!"!"!]": 2!!S":'Gw#2122:,21:022!(42*V:(!'b*"*^#Vz(cS*s#r:(!'8&s͘( :(!' e:!͛(Zp*~(s!!>w !&4*~##w+":* :)>(+:&2%>:( *##~++:+!**83(1D#  w:( *":T !'55: !%5  !!>w(!&5*+"!(5*+V+^S+V+^"S!T6!2"!:  _G444444444*~( ("(#444ŠϠӡŠҠſĠՠŠϠŠοϠՠԠϠ٠ŠשҠˠ©Ġ٠٠ſҠϭϠϭϭŠΠKQRBNPՠɠŠҠҠſӠӠԿԠˠĠŠŠӠԿĠ٠Π1!}"!9(Y2!͐ >2&!60#61#6 !!!!!!:  :> h(h:> (! > >:(4 60+4 60+4 61>02 !&4,!+!9(W(2 !!>2 !!!!9(!'6170w!!9(Y> >2͸*":T ͣs͗x SY"4QY"1!1$H( !6P( !;!:!G2!͘x2!((:TC!@:Tͣ:&G:% "5 {a :W t=J_͆zo>g"ŗB(/*N^Vr($N^{   ` :((: ( ! !Zy> ~((@> >> y(y((O{!L!Z(c> xG(((!%!9(N>22P2*~(s:WY}|!~(> 9 (=-(EP(jNʿW(B "Q9!NyO90(1q(:b(Ô!v!9(Nʒ͐!!9(!!!!!W,!!:  h(f(f9g9oͽ (!!! !:Ô>>!o0$~!N6#>2!N*~(#( ##:w:"5 {a :W t=J_͆zo>g"ŗB(/*N^Vr($N^{   ` :((: ( ! !Zy> ~((@> >> y(y((O{!L!Z(c> xG(((!%!9(N>22P2*~(s:WY}|!~(> 9 (=-(EP(jNʿW(B "Q9!0SCHESS.DOC Documentation for OSBORNE-1 CHESS. 1. TO BEGIN EXECUTION To play a game of chess, respond "Y" to question: "WELCOME TO CHESS. CARE FOR A GAME ?" The normal reply here is "Y", for "YES". An answer of "N" will get you to the routine that allows you to set up a board position (see item 7). "WOULD YOU LIKE TO PLAY WHITE (W) OR BLACK (B) ?" Naturally, WHITE moves first. If you choose BLACK, then the computer will move first. You will then be asked: "SELECT LOOK AHEAD (1-6)" You should reply "1" to get the fastest game until you are familiar with OSCHESS. Higher numbers result in the computer taking longer to makes it's move. For example: 1 = A few seconds to about 90 maximum. 2 = Thirty seconds to a few minutes. 3 = A few minutes to several minutes. etc..... 6 may need overnight!..handy if you are playing postal chess. ********************************************* * * * OS-1 owners take notice: * * * * Playing this game on your Osborne-1 * * will NOT work if you ask to see a * * board display every move. Therefore, * * when you get the question: * * * * BOARD DISPLAY EVERY MOVE? * * * * ...be sure your reply "N" for NO. * * * * Have a chess board nearby and make * * the moves on it as the game goes along. * * * ********************************************* ----------------------------------------------------- At this point the board will appear on the screen. If you choose white, OSCHESS will be waiting for you to enter your move. Use algebraic chess notation, as explained below. ----------------------------------------------------- 2. TO ENTER A MOVE Moves must be entered in algebraic chess notation. This means you must tell OSCHESS the file and rank coordinates of the squares you are moving from and to. The files are lettered a-h and the ranks are numbered 1-8. So the coordinates of the board are: a b c d e f g h |-----|-----|-----|-----|-----|-----|-----|-----| 8 | a8 | b8 | c8 | d8 | e8 | f8 | g8 | h8 | 8 |-----|-----|-----|-----|-----|-----|-----|-----| 7 | a7 | b7 | c7 | d7 | e7 | f7 | g7 | h7 | 7 |-----|-----|-----|-----|-----|-----|-----|-----| 6 | a6 | b6 | c6 | d6 | e6 | f6 | g6 | h6 | 6 |-----|-----|-----|-----|-----|-----|-----|-----| 5 | a5 | b5 | c5 | d5 | e5 | f5 | g5 | h5 | 5 |-----|-----|-----|-----|-----|-----|-----|-----| 4 | a4 | b4 | c4 | d4 | e4 | f4 | g4 | h4 | 4 |-----|-----|-----|-----|-----|-----|-----|-----| 3 | a3 | b3 | c3 | d3 | e3 | f3 | g3 | h3 | 3 |-----|-----|-----|-----|-----|-----|-----|-----| 2 | a2 | b2 | c2 | d2 | e2 | f2 | g2 | h2 | 2 |-----|-----|-----|-----|-----|-----|-----|-----| 1 | a1 | b1 | c1 | d1 | e1 | f1 | g1 | h1 | 1 |-----|-----|-----|-----|-----|-----|-----|-----|  a b c d e f g h The first 2 characters are the "from" square. A dash is used to separate the 1st 2 characters from the last two. The last two characters denote the "to" square. The above display is shown from WHITE's view. The move itself is entered as ff-tt, so to play the king's pawn up two squares you would enter: "e2-e4" If OSCHESS were playing BLACK, and responded with a kings'pawn move of 2 squares, it would be: "e7-e5" 3. TO CASTLE Just enter the king's move. The rook will tag along. For along. For example, if you are white and wish to castle king's side, enter: "e1-g1" You will see both your king and rook move. When OSCHESS castles, he lists it as 0-0 or 0-0-0 as in normal chess notation. 4. TO CAPTURE EN PASSANT (in passing) If you wish to capture one of OSCHESS's pawns using the en passant privilege, enter your pawn's move. After your pawn move is displayed, OSCHESS's pawn will blink and then vanish. When OSCHESS captures en passant, his move is displayed on the board in the same way. OSCHESS prints it in the move list as PxPep. 5. TO PLAY ANOTHER GAME AFTER CHECKMATE If either you or OSCHESS is checkmated, and you wish to play again, just hit any key. The screen will blank out and OSCHESS will ask: "CARE FOR ANOTHER GAME ?" Replies to this question are just like those to the origi- nal "CARE FOR A GAME ?" 6. TO RESIGN A HOPELESS GAME OR TAKE BACK A MOVE If you decide your position is hopeless, or you wish to change a move entered in error (considered indelicate, non-etiquette and a definite NO-NO in more respectable chess circles), first wait until it is your turn to move. Then enter "control-R". You will immediately get the "CARE FOR ANOTHER GAME ?" question. If you want to start over, type "Y", but if you want to correct (considered indelicate, non-etiquette and a definite NO-NO in the most respectable chess coteries) the board display, type "N". You will then get the routine that allows you to set up a board position. 7. TO SET UP OR CORRECT A BOARD POSITION If you typed "N" to a "CARE FOR A GAME ?" question, OSCHESS will now ask: "WOULD YOU LIKE TO ANALYZE A POSITION ?" If you answer "N" to this one, you will be out of OSCHESS entirely and back in the computer's monitor state. An answer of "Y" will display line by line, in algebraic chess notation, the move list for each piece on the board. A carriage return will leave that piece and/or square un- changed. Whatever you type in over the displayed posting (a legal chess notation, of course) will change the square accordingly. 8. SUMMARY OF ANALYSIS COMMANDS A carriage return, as mentioned, leaves the contents of the square unchanged. <0> An entry of "0", or of the space bar, or any key not listed in these commands will empty the square. BON CHANCE and .. DOWN WITH ANATOLY KARPOV!!! ----------------------------------------------------  the square. BON CHANCE and .. DOWN WITH ANATOLY KARPOV!!! ---------------------------------------------------  the square. BON CHANCE and .. DOWN WITH ANATOLY KARPOV!!! ------------------ If you answer "N" to this one, you will be out of OSCHESS entirely and back in the computer's monitor state. An answer of "Y" will display line by line, in algebraic chess notation, the move list for each piece on the board. A carriage return will leave that piece and/or square un- changed. Whatever you type in over the displayed posting (a legal chess notation, of course) will change the square accordingly. 8. SUMMARY OF ANALYSIS COMMANDS A carriage return, as mentioned, leaves the contents of the square unchanged. <0> An entry of "0", or of the space bar, or any key not listed in these commands will empty the square. BON CHANCE and .. DOWN WITH ANATOLY KARPOV!!! ------------------OSCHESS: This looks like a decent game of chess. You have the option of giving the computer the chance to look ahead up to 6 moves. The .DOC with it says Osborne users should not ask to see the board for each move, but I played the game before I read the document, and it played allright with the board displayed for each move for me on this machine (Osborne1). OSCHESS DOC2UVWXYZ[OSCHESS $$$_((~#~#> > _#7"6UAT@   _^ 0 08i) ,x!6#!~ww[66Q6)636=6G#!N66_66^!~w*~(2#2 :#!"(>>>ɮ =2*F~2*N:2L 0:8 :(0#:̒x8.(# :[00!##!"^(   (:[00!# :!"~( =E*f~2*~2$:!YD !#:2:22:$2#:2*"6#6:"_:):O2*~ Qy*~ D:( \( ͹ 3:2! ؐ2!#6@!~q22#͂:2xà[! R83*Ss#r!"^ !#6#6#:w#:w#:#w#6#"6#6+͘2)[*##s#r#"">2*~(( 2"!!z :o: :ķ* !,:#(_z( 4~(~(# o~g~oQO:!:C ~ (D ɯ2Nʧ2*~2"2*:22NL (ʣ:($ʣ: Zox8 }£Ò}£Ò£:2:" /!,w#>2͹!,3:"(~=!4*qC:w9# :"!,3(FN* V"Bo(x0o xA(D_E xAO미( #(g+ɯ202,2-2.2/23!6>2*~!"w2 898$( :&8Àf( >~(>{^(s^ >~(>!,w!,w#͹!3:,!,w:"ͮ(5:"!!{ !-8"s*:ݾ 23!.8~s!/8w!"~z(D!0w:d_:,!1G:3(>dW{!!~ Dƀ2+*wxoDxɸx*##~2#~2#V*^j -{(+(6*s6r 1z!Pz(#wÙ!P{(#:wÙ!Nr(*x*##~2#~2#V*^j 3{(6(Ab )*szwr 8z!Pz(#:w˓ ˛!P{(#:w !Nr(ˣ@*K`iN#Fr+sC͞*K^#V( :+ݾ0p+qiÂs͘(2+ô:&>2(!"!"!]": 2!!S":'Gw#2122:,21:022!(42*V:(!'b*"*^#Vz(cS*s#r:(!'8&s͘( :(!' e:!͛(Zp*~(s!!>w !&4*~##w+":* :)>(+:&2%>:( *##~++:+!**83(1D#  w:( *":T !'55: !%5  !!>w(!&5*+"!(5*+V+^S+V+^"S!T6!2"!:  _G444444444*~( ("(#444Welcome to chess! care for a game?Would you like to analyze a position?Do you want to play white (W) or black (B)?Board display every move?SargonPlayer 01 ------------- a1-a1o-o o-o-ocheckmate in 2KQRBNPYou winI winCare for another game?Is this right?Select look ahead (1-6) Player Sargon Whose move is it?pxpepInvalid moveTry again = PNBRQK1!}"!9(Y2!͐ >2&!60#61#6 !!!!!!:  :> h(h:> (! > >:(4 60+4 60+4 61>02 !&4,!+!9(W(2 !!>2 !!!!9(!'6170w!!9(Y> >2͸*":T ͣs͗x SY"4QY"1!1$H( !6P( !;!:!G2!͘x2!((:TC!@:Tͣ:&G:% "5 {a :W t=J_͆zo>g"ŗB(/*N^Vr($N^{   ` :((: ( !8 !1Zy> ~((@>- >*> y(y0(9(O{!L!Z(ach> xG`(i((!%!9(N>22P2*~(s:WY}|!~(> 9 (=-(EP(jNʿW(B "Q9!NyO90(1q(:b(Ô!v!9(Nʒ͐!!9(!!!!!W,!!:  h(f(f9g9oͽ (!!! !:Ô>W>B!o0$~!N6#>2!N*~(#( ##:w: ~((@>- >*> y(y0(9(O{!L!Z(ach> xG`(i((!%!9(N>22P2*~(s:WY}|!~(> 9 (=-(EP(jNʿW(B "Q9! OSSARGON.DOC (by Gerhard Barth) OSSARGON is the adaption for the Osborne 1 of Kathe and Don Spracklen's famous Sargon Chess program, which is written in Z80-Assembly Language and was converted to 8080 Code by (I believe) Alan Bomberger. Unfortunately, there is no documentation for OSSARGON and the instructions given in the Spracklen Book (SARGON;Complete Chess Program, Hayden Book Co.,Rochelle Park,NJ) do not all apply to OSSARGON. Here is what I found out, much by trial and error: 1. Put OSSARGON.COM in Drive A and type OSSARGON. 2. Answering a number of prompts, you can pick the level(start with 1 or 2; 3 and higher take quite some time!), black or white and whether you want to see the board after each move.Enter your moves "from square" "to square",e.g.e2-e4 (no !!). 3. Sargon - your opponent - will print "o-o" as his move, should he decide to castle. If YOU want to castle, do not type "o-o" (Sargon will keep telling you, that your move is invalid!) but simply enter the king's move, the rook will automatically assume the right position. For example, enter "e1-g1" for castling on the king's side. 4. If you want to interrupt the game or resign, wait until your turn and enter "CTRL-R". You will be asked whether you "care for another game?" if you answer "y" - well, you asked for it! If you reply "n", Sargon will ask you if you would like to "analyze a position". You get the same prompt if you answer OSSARGON's very first question ("care for a game?") with an "n". 5. If you want to analyze a position (or take a move back), answer "y" and you will be shown the latest position, square after square,e.g. a1 = WR (white rook in square a1) b1 = WN (white knight in square b1) etc.etc. You may change the contents of any square by typing 0, which (like the spacebar and most other keys) will empty the square. Type if you want to leave the square unchanged. The best way to familiarize yourself with this setup is probably to enter 's and some 0's until you have seen the entire board - after h8 = BR the display will return to the a1-square.You may repeat as often as you wish. 6. In order to enter a piece, type in the color code (b or w),the piece code (k=king, q=queen, r=rook, b=bishop, n=knight, p=pawn) and the "moved" code: 0, if the piece never moved and 1, if the piece has moved. For example, to enter a white knight into a square somewhere in the field, hit return until the square is displayed and then type "wn1" (OSSARGON accepts upper or lower case letters in every command). 7. If you want to see the changed board displayed type "p". Sargon will show you the new board and ask "Is this right?". If you answer "n", you can continue setting up the board. If you answer "y", Sargon will ask you questions which you have to answer before play can start from this point on. 8. CTRL-C will return you to CP/M. UNFORTUNATELY, THERE IS A BUG IN THE SET-UP PART OF THE PROGRAM - WHILE SQUARES CAN BE CLEARED AND ALL WHITE PIECES CAN BE ENTERED NICELY, I FIND THAT ANY PIECES ENTERED AS BLACK ARE ACCEPTED BY SARGON, BUT DISPLAYED AS WHITE. IN OTHER WORDS, I AM UNABLE TO SET UP BLACK PIECES! Fortunately, this bug affects only the setting up of the board and does not interfere with playing a game from the beginning, although it would be nice to be able to interrupt a game and continue it at some later time. This will have to wait until the set-up part of the program is working properly. Hopefully, an assembly programmer will come forward and debug this part of the Program! Anyone who can help, please leave me a message on this System. etting up the board. If you answer "y", Sargon will ask you questions which you have to answer before play can start from thisl#"*|8)څ ! *;)^#V+"*R *)))*V%))*;"*))*$Q$*$Q$*)))*;))*$&#""$*;#";*;|8)Q *R !"!"nR *l#"l*l|8)L :!: *)p^#V|8)6 #*#"*|8) s$ }$g !"Æ *#"ͿQ$*$B#͢$ #*"! *c8%^#V$Q$*e$""-! 1-*e#"e*e|8)ڙ *#"*|8) *|!"Z!"\r3"!^Ͷ ! *"j*j)A^#V#"l*j)A^#V#s#r*j8% *l) s#r!"n!*j8% *l"P%)^#V$Q$*e$"Q$*P%)Q^#V)))))))$""%!1-*e#"e*e|8)g:!%*)p^#V|8)!! "Z!"\r3"!^Ͷ !y *#"*|8)À!"*nRR!"!"!"!"͕!"!"͕!"!"͕!"!"͕!"!"!"*#"!"!Þ**H%*j"**H%*l"*|8)go*|8)go|g}o*|8)?go|g}o*|8)?go|g}o|š*8% *) ^#V"*|z**Rp!"Ú*#"Ú**nR‘*#"Ú!"Z*#"*|8)ں*|!"*og"*og"î*)p*s#r*)*s#r3"! 3"!hͶ !8W'3"!WͶ W!dX)C3"!F FͤE! )!B9('! )!>9(':!9(g'!å !(g9(! )9(g'*;#";*;|8)ځ !(g9(! )9(!9(g'! )9('!!29(! )9('*;#";*;|8)!9('! )9('!q !(9(! )9('*;#";!ï&w&Hl͠'!q7!%6 ͵6!q7!%6 ͵6!q7!)q76͵6!q7!(q76͵6e"u1!q7/!%0O3s&K!͜3k&Ñ͜3k&|j2c&͸3!P#2̓4Vj2c&͸3!P#2̓4V!g5E5 !g5))d3_&u!g5E5 !g5))d3[&22k&́3"4o&22k&́3"4o&14k&u1!q70 u1!%0u1!%0!g5E5 !g5))d3W&j2c&͸3!P#2̓4D !g5E5 22S&͕5))͑3͸322k&͕5E5 22O&͕5))͑3:2͸322O&͕5E5 ))͑3:2V4K& O3k&!g5E5 22O&͕5))d3k&!g5E5 22g&͕5))͑3͸322k&͕5E5 22k&͕5))͑3:2͸322O&͕5E5 ))͑3:2V4K&z !g5E5 22k&͕5))d3k&ô22S&͕5E5 !g5))͑3͸322O&͕5E5 22k&͕5))͑3:2͸322O&͕5))͑3:2V4K& 22O&͕5E5 !g5))d3k&O3k&22g&͕5E5 !g5))͑3͸322k&͕5E5 22k&͕5))͑3:2͸322O&͕5))͑3:2V4K&z 22k&͕5E5 !g5))d3k&ô14k& u1!%0u1!%0͜3C&͜3C&!g5E5 22O&͕5))͑3͸322k&͕5))͑3:2͸322O&͕5E5 !g5))͑3:2͸322k&͕5E5 ))͑3:2V4K&!g5E5 !g5))d3O&!g5E5 22O&͕5))͑3ͧ4? !g5E5 22O&͕5))d3W&!g5E5 22;&͕5))͑3͸322O&͕5E5 22S&͕5))͑3:2͸322k&͕5E5 ))͑3:2V4K& !g5E5 22S&͕5))d3O&!g5E5 22k&͕5))͑3ͧ4$!g5E5 22k&͕5))d3W&!g5E5 22?&͕5))͑3͸322O&͕5E5 22g&͕5))͑3:2͸322k&͕5E5 ))͑3:2V4K& !g5E5 22g&͕5))d3O&22O&͕5E5 !g5))͑3ͧ422O&͕5E5 !g5))d3W&22;&͕5E5 !g5))͑3͸322S&͕5E5 22O&͕5))͑3:2͸322g&͕5E5 22k&͕5))͑3:2V4K& 22S&͕5E5 !g5))d3O&22k&͕5E5 !g5))͑3ͧ4 22k&͕5E5 !g5))d3W&22?&͕5E5 !g5))͑3͸322g&͕5E5 22O&͕5))͑3:2͸322k&͕5))͑3:2V4K& 22g&͕5E5 !g5))d3O&à 22g&́3"4G& 22g&́3"4G& 4k&J2o&͕5E5 J2o&͕5))͑3ͧ4J2o&͕5E5 J2o&͕5))d3W&4k&ô͜3?&͜3?&22n2c&͸3!P#2̓4!g5E5 !g5))͑3ͧ4j2c&͸3!P#2̓4!g5E5 22S&͕5))͑3͸322O&͕5E5 22O&͕5))͑3:2͸322k&͕5E5 ))͑3:2[43&!g5E5 22g&͕5))͑3͸322O&͕5E5 22k&͕5))͑3:2͸322k&͕5E5 ))͑3:2[43&!g5E5 !g5))d3W&ô22S&͕5E5 !g5))͑3͸322O&͕5E5 22O&͕5))͑3:2͸322k&͕5))͑3:2[43&22g&͕5E5 !g5))͑3͸322O&͕5))͑3:2͸322k&͕5E5 22k&͕5))͑3:2V43&22k&́3"47&22k&́3"47&4k&'-n2/&!J#262?&́3-n2/&!J#262?&́3j2c&͸3!P#2̓4wj2c&͸3!P#2̓4j2c&͸3!P#2~4!g5E5 !g5))͑3ͧ4!g5E5 !g5))d3W&ôu1!%0u1!%/!͡F͵6!%͞7u1!0A(O3[&O3[&O3[&͜3?&M22S&͕5_;^^^^22k&́3"47&*22S&͕5E5! q7 6!g5))"h͑3 4W&E5  L76! q76*hN͑3 4W&E5  L76! q76*h͑3 4W&E5  L76! q76! 6622S&͕5E5!g5))͑3 4W&E5  q7 6! 66!g5))͑3V4k&22S&͕5E5"h!6!%6!6*h622k&́3G!g5))͑3V4O&22S&͕5E5"h!6!%6!6*h622k&́3G22S&͕5E5"h!%6*h622S&͕5E5"h! 6!g5))͑3 4W&E5  q76! 6*h6!g5))N͑3V4k&22S&͕5E5"h!6!%6!6*h622k&́3Á!g5))N͑3V4O&W22S&͕5E5"h!6!%6!6*h622k&́3Á22S&͕5E5"h!%6*h622S&͕5E5"h! 6!g5))͑3 4W&E5  q76! 6*h6!g5))͑3V4k&422S&͕5E5"h!6!%6!6*h622k&́3û!g5))͑3V4O&22S&͕5E5"h!6!%6!6*h622k&́3û22S&͕5E5"h!%6*h622S&͕5E5"h! 6!g5))͑3 4W&E5  q76! 6*h6u1!q70͜3k&ß!g54|Zu1!1!%/!g5E50Ø͜3k&Êu1!1!%/!g5E5022"k&́3""4"?&b22k&́3"4/&&4+&u1!%0u1!o%0u1!%04+&u1!%0u1!\%0u1!%0͜3?&l͜3?&W!g5E5 !g5))͑3ͬ4P!g5E5 !g5))͑3ͬ4z22k&́3"47& 22k&́3"47&!g5E5 !g5))͑3́3&J͑3́3*43*62&62'&!Ϳ;!͡F.͵6!q7!.͙78! q7!.͙7! q7!.͙7:! q7!.͙7͎! q7!.͙75O3O3ê3&#&3*?&3*/&|g}o3*&|g}o|g}o|~u1!q7/3&&3*k&3*+&|g}o3*7&|g}o3*&|g}o|g}o|u1!q7/3*k&3*+&|g}o3*7&|g}o3*&|g}o|Ÿ22S&́31'41?&.u1!q7/!1g5E5 !g5))͑3ͬ4_221S&́3143*62&62'&! Ϳ;O31!g5E5 !g5))͑3́3&22S&́31'41C&u1!q7/!1g5E5 !g5))͑3ͬ4221S&́31ë_O35"45&u1!q7/35C&35&|g}o35&|g}o|‰225k&́35͜3?&{!1g5E5 !5g5))͑3V4W&221g&́31"417&P225k&́35͜3C&!1g5E5 !5g5))͑3V4W&221g&́31"41&22k&́343*62&62'&! Ϳ;O35O31!g5E5 !g5))͑3́3&J͑3́3*O35225O&́35'45?&cu1!q7/35?&35+&|g}o35/&|g}o357&|g}o|͜3?&!1g5E5 !5g5))͑3V4W&9221g&́31"417&225O&́35͜3C&!1g5E5 !5g5))͑3V4W&9221g&́31"41&225O&́35M43*62&62'&! Ϳ;O35O31!g5E5 !g5))͑3́3&J͑3́3*3& &3*?&3*/&|g}o3*&|g}o|g}o|u1!q7/3&&3*k&3*+&|g}o3*7&|g}o3*&|g}o|g}o|) u1!q7/3*k&3*+&|g}o3*7&|g}o3*&|g}o| 22g&́31"417& u1!q7/!1g5E5 !g5))͑3ͬ4 221g&́31n 43*62&62'&! Ϳ;O31!g5E5 !g5))͑3́3&22g&́31"41&!u1!q7/!1g5E5 !g5))͑3ͬ4H!221g&́31!õ O39k&͜3?&W"!=g5))Zd3&d39!=g5))d3&:d39!=g5))d3&d39229g&́39,4=7&!22=k&͕5))2d3#&d3922=k&͕5))d3%d3922=k&͕5))d3%bd3922=k&͕5))"d3 &d39229g&́3922=g&́3="4=7&Z!u1!q70u1!(%0u1!%0u1!$0u1!$0u1!$0u1!_$0u1!-$0u1!#0u1!#0u1!#0u1!%0u1!|#0u1!e#0u1!%0u1!%0u1!I#/+A͵6A!%͙7$#22Dk&́3D#"4D%<#22D%́3D$#!Dg5%,A(L#Hit to start... h#COMPLETED 5 SQUARES.2#THE GAME ENDS WHEN EITHER YOU OR THE COMPUTER HAVE#MAY TAKE ANOTHER TURN.0#COMPLETED A SQUARE, THAT SQUARE IS YOURS AND YOU-$THE LINE BETWEEN THE TWO DOTS. WHEN YOU HAVE/0$MOVE, PRESS AND THE COMPUTER WILL DRAW/b$WANT TO CONNECT. ONCE YOU HAVE DECIDED ON YOUR1$MOVE THE CURSOR TO THE SPACE BETWEEN TWO DOTS YOU/$WANT TO MAKE A MOVE, USE THE FOUR ARROW KEYS TO.$THE GAME IS PLAYED ON A 4 x 4 ARRAY. WHEN YOU1+%THIS PROGRAM WILL PLAY CONNECT THE DOTS WITH YOU._%I WON! r%YOU WON! % % COMP %PLAYER%Y%PLAY AGAIN? (Y/N) %MY MOVE... %YOUR MOVE...%INITIALIZING...%G%g%`(@x @P0`p `H@ HHȆ@[[[[ BASLIB #000000 5.30 - OWNED BY MICROSOFT, 1980 ü&1:92&2&*^#V"&##^#V"& 2&!'!!""&!'"'6#6P>2'>2'>2'ͳ&L'Ͷ&L'C'_ .*1<*3<2-3E~ʨ2:҈20ڈ2 #~y2>DGw2"1<`i"3<]5^5!9"]') !&()'!&('!b'&(!R"'!O"')|'> ^(6#s#r#='>2W'>2Z'>2Y'2\'!P'"i'!$\"_'>&2a'&;6#}#(|#(; STO1)A(ͻ)*i'.. . ........:*w'|H(:t'¶(*r'|ʶ(ͼ()  s#r)  {*w#6"u'*]'*r'>2t'*;(!9N#F)~#~(~+(~#~(+^#V###(###(|)~#fo!); Internal Error - No Line Number P')~#ʝ); at lineͼ(P)û)>̈́); at address|"<}"<û)> I> I~#*)ͰI~#folS!9"S'!)*S')"U'!**U'ͻ)!3*~Input Past En?Bad Record Numbe@Bad File NamCToo Many FileUnprintable Erro)%'!+>,/'w>9d)!7,͔.-!,M.*,(,)"'͆I-ѯDI%:,Random Number Seed (-32768 to 32767) ) S!',!' S!'Ȇw!,O ̈́P:'<2'!,O ̓O!J^#V#N#F#{YOO6+F6!'4~֫,w R!'QIw+w+wß,5Jʙ9v" GSљ e͘w>hFhiuh)!*b,͖|N#"-!9" -" -y2-*g'|3-*'!."w'A~#*/ͤI:'S-~.-e-́>h-͈>"/ʎ-ʚ-ͬ<*J*J*J*Jç-=*Jç-͕<*J*J*/ͤI-~#"/,;- .:'.;-~.!"w'~,"-#"~--# -."-#"/x". .+~ .y9ç-;?Redo from Start * -:!J.͔.*-:-O:-* -+~+x.j.j. +w l.Ã.++~#fo͸6" -!-5* -9~2.#~#^#V;++9"G2(:.@Ͳ9ͯ9~ 9> Ͳ9Ͳ9#9c*M 9#~+<9=܋: b:e: :4+~#<::=^: i: :UG7:*::*S:<2**'"9!:"' i:*A654> 9~=i:*M!P"M9"M> 9> 9:S=ʦ:> > *9^#V#Ͷ:ɷ!5<:!1<)%0 1)00 1);0 1)/ 1)%0+1)00+1);0+1)͐0+1)%00)000);00)͐00JF0JF0"JO0H~# G0x2`<:'100V@9<71~x0qH#l0&1V@~{0 qH#Â0>2`<:'1F#~#fox0710ʾ0~#qHò0090>"qHG:'x0I*'+~<0=0###~0*'I!{0*'*'~=1/<71&1=1> qH0>,qHW*'#^ a1[1+=[1:'=[1Iz{s1{_e1!'"'!"g'2'͋1!'~6#w~!1 qH1|^(}*'1<1 2}1|^(}1|2!*'#n&5) SP!>!>!>!>!>^#V#^#V#ú4>!>!>!>!>!>^#V#!Jú4>34>34>34>34>34>^#V#^#V#4>]4>]4>]4>]4>]4>^#V#!J4>Å4>Å4>Å4>Å4>Å4>^#3J4>î4>î4>î4>î4>î4> *!J44 G{644 G{64~#fo4##^#V#)5)5)z75|75|̈́QQ^#V5^#V#U5Q2'))v5)yIͭ5DI|^()ä5)ͭ5Ê55:'5! *=MN5:'5!*̓O:J2J:J6#6:J55|/g}/oN:J#6!J"6{66!)[(:JgoW*J|7g?6:J?6+>N6|/g}/oW6!l6G|h6_6o& Gȯ|g}oo6ͅ6>’6~+~?~6+#Ҫ6+ 6)ͭ96~##++{:>͵I+V+^+6+r+s:)͸6~9)^(k97799~#~#fo͵I) O7~^(#~#fon&9)zk7}k9~h7s#^7)^()|^(!9>9>à7>à7>à7>à7>à7>ͳ7ʯ7~#fo##GN7y7#~#fo~#fo7#7 7 y7y<.7)7)99C 8 88C88888!"8~%8(8G+8_.8W18O48r_!84G85*8"8~#N#F#ڇ8a8 ͰIJ8yxl8 J8+++6@#yw#xw+++6###!8~6ژ8ͭ8G88*8#~#~G8)U(!*8"8~#^#V#88ͰIú8|8ú8++~_w#~Ww#ú8ͭ8*8DM~#^#V#Q999+z.:+{.:##{z~#q#p_9yF9xF9DM9~#F99YP+++"86@###{_zW+r+sɷʠ9*8|~9)X(78^#V+"8w#s#r+++r+s##!99*V;{z*X;?9}|~# 9yGk9x͵IGk9x#N#F& 9ͭ9{::*V;*X;I*::$:{::### :P:; during G.C. P'P:; P'; Internal Error - String Space Corrup#N#F*8yx:*8yx:++`i+V+^IE:##6+6+~6  >@++*8"8s#r+8*8#~_#~W:)d(r+s##6"8###!8~#fo;I;<*8"8*8}o|g6@#s#r#6"8*X;*V;"8}w>#w##I=;++6+6 878a;>2Z;|œ;+})N#Ҙ;~#fo :Z;‹;!9"]'!b'4 ~ͰI#^(9I);n&9I)|^(};w:J;:J;!;̓OO~I#=;<~I#pZ+V+^+pG+r+sK;E<*J}/o|/g#"J|͹>^>~8'#þ<8'W!JJ2<# >=>|}+!y>EL͋=Q+6!J>͆N2J!u>O!q>EL!JEL~_#~W#~O5SÆO!BEÃO6Q^=ɇ<o&͹ÄP#Sx{S!J6Qwg>̀S=!>E=<͜<>P=:J2J:JқF͝=:J:>?>E>|/g}/oY>!F:Jb>͝="J>2`<V=ajX> L}͐<Ͷ<F>29<`hY>~&E-ʰ>+ʰ>+ͤEڗ?.=?e>E>ͤEl>L>q>Q>:`<?>?~%J?#[?!\?d?D?e?ͤEEͤE @?_{_t?? ?g<;E!e=b>;E ?e?ð>ͤE!e=!=?e?ͤE?̕<Ĭ<;E=2==;E,==yͣ<7?t$V=?͗=??ͳ<2==g=ͳ<DGA"J`i"J#~+}A-TA0OxG}A#~;A`xErAy &A>2;<ÂA|&AjA&A"J`i"J̀=#W͑C:;0D60̕=WD+~0A.ĕ=A;E>"w#6+A6-/</ A:#p#w#6!=<#z҆B#C(DzDD{ ==D͏@5Bp#6!<<#:a<~ :B*:B+NBͤE-+_:_'{0~B#ͤE~B++wtB;B~B6%*CʢBFE<BV@+6%V=Bͺ=đCB_xDDWDDCD"B_yĂ?B?B{_xBDDCDyGDODGOWDC*a<=DP+Bͣ<ѯ0Cͺ=7đCyĂ?OzWO?PC^C/<E=<=NE> CD/><ҀD>͝=̀=E?CD͋=/{_#zW#yO++D>=#̀=p#ڹD>DE>CDN#F#*J/}o|gE"Jp#=DCDw1_cƤ~@zZrN vH Tʚ;@B''d #~: ʤE ʤE ʤE0?<=:`<E7-++ͤEaFOEHE+EEY>H#+FF)[(M!FF}0?)))صoFM!=F;F}aF0? SF? ))))صo=Fa{ =;E:J:JJ=:9<2:<29<)[()[()|^(,ʻF-:m'F*n'!/'"p'{k9f$%F!F*p'F|}!"g'>6>4>?>=>:>7>5>2>3>@>C>)o&i()!"g'!."/4G:.EG;?EGpkHyG:\2\@H2 @H>lGG>#sGH6=H!.UHÇG ڇGx<>Hyq#@H ‡G> @HkH"H ʇGÊG:.=Hwû)I>^@H@@H=H~ dH> @H@H#UH/'#:*' ʈH#~+<ʇH=I HH ڙH4+~# qH~=H*'!'"'qH"'> qH> qH:'=4I> ?'> ?'*oH^#V#DIɷ!J`I!J[IJ`IJ`Iw#w#w#w#!(ͷI>JÌI>JqI ~#=I!qI#~ ʣI ʣIɅo$ɧGw#¹I{zc&!HV! !8))_&u!D; !Z))O[&k&o&vk&}͂o&k&! ͩ!%Ͳ͸!%;!f] !))qW&c&%!H,/D ! ͋S&))NJKN͆NM2J:JMF+N+= L!J L!J>q#p#=#L!JEL"ILLK*INR:JR!JN#FPoNqʂLGܴMͲNx kLbLM!J͎NzLj0 TeB׳]h!I.k K SNLKͺN!JEL͔1!Jq#~++w+qLRO*O͔15S`O#SNO!J6Qg>̀S|ԹQ!>$Oak SoOPoOwOÉOvQO-SʧQ̀S|R{>2JR/))Q =Q!J~7w?##wy7O*J*J"J"JajSX\RRJS\E!JR/gS fS7>{_zW}o|g=]S|g}oڏSCZQÂS o-yOzW{_xGÒSJ*JDM^#V#N#F#xyDS:J:J7|/G}/O!>gS fS7>{_zW}o|g=]S|g}oSȯGP"Jy2JFo;QQ!D*J:JO8PJ4RPP`Pg.*J:JOz9P`Pg.*J:JFPx<=wP{_zWxG)yOHGRvQÇP-SS prompt, type OZDOT The game is self-prompting. MONSTER BASV56789:;<=>?MONSTER DOC@SMURF BAS\ABCDEFGHIJKLOSCHESS COM]^_`abcdOSSARGONDOCefghOZDOT COMijklmnopqrstuvwxOZDOT COM&yz{|}OZDOT $$$@+: wa݀":(h>wXT ¥@lUdjX S6HHR "b WI*I+H Y |I+H U3]>2W1 $# XV d&1@&Hd(q8Hid(Hfd* &Hd+1p&Ha=df6HkGdf԰6HowdhP&HdiP6Hd1P(Hrar(q:HadQ &HuĈI&HtdݐHrd1&Hd(H~dנ&Hod1&HcUdHcL(љ&Hd(Hrd&Hld1Hcdf1&Hdh&Hhdj`HYd1&Hg`dQT!TE5%I0t)*3@C@}> |z@h4 Dz¢3B!0" 562 P%520I#`A!2<IU$ AA2HIQ$2TUc&AA2 T(52vITS!DDIpt"&5Y2h3@3@h BDd0$MVARGBE4h`$DPHFRDEȐ$DIVF2DX$DFLRRDE$MULFBDhH$DPPFRE5T$iQQӡTE4tt)5Y c tH2 Qc 5YI2 P̣"MpPDD%98tXXX-X---- - 2Dh@q0Y, ,PACMAN -- Developed By SIMPLE SOFTWARE.This program may be given away as much as desired. as long as this logo remains as a header.The commands are: . H,h,^H,4 cause movement left. J,j,^J,2 cause movement down. K,k,^K,8 cause movement up. L,l,^L,6 cause movement right.You are the body that looks like [#].Monsters are bodies that look like <+> and they will eat you!.Each small cooky (an =) eaten scores one point.When a big cooky (an O) is eaten, in addition to. scoring 10 points, the mosters will look like <->,. and you can eat them, scoring many points.When the screen is cleared of all cookies the screen will return. to the original display and the game will continue.Hit any character to continue."!@` Congrats, PACMAN -- ready for another round?.QM%:kð=@!*?!*!*?!*!1*!W*!}*!*?!*!*!+*!Z*!*!*!*!-*?!b*!Y?>2Y>2Z:Y2:Zog!_':og["~*w:Z<Q :Y<L >2I!"!"2W>2J*o"k>2F:Fog)'"**s#r:FKog">*w:F!<ڶ !"!">2X!"!"!"*#>>' ! @*#> > :X=/2:X=2X:J=/2` >2J!"!T@!Ͷ%! @!XZ&! @:=2Y:>2Z:B2=:C2>Z!YͰ#?>!=$**{ozg}=/2 *">2J:X<2X!Ͷ%! @!XZ&! @**{ozg}=/2@ *":J/2@ :J<2J!H?:H2” :H/2u "!T@&PACMANK!Hog"!k *k"m*k+"k:Iog*{ozg}!W2*k}!/2a2W*":=og))*":>og!L_'*r~=/2% :2I!I͵!u :I2:=og)):og":>og!L_'*r~=/2p !I͵!u >2W:=2:>og!_':og~ 2N:K/2´ ! @:=2:>og!_':og~O/2º *":J/2 :J<2J!'"!">2F:F2og">P*w:Kog~2G:Kog":GZog~*w:K/2i ! @:F2og":og":Fog!_'"*DM**$:F!< *#"!Ͷ%! @:=2:>og!_':og"> *w:=2/2N@!Ͷ%! @!XZ&??!?!"!T@!Ͷ%! @!XZ&:Jog)m~#fo"k*}=/2*+":K/2*`}/2¦! @*0}/2! @*}/2! @* }/2! @*}/2! @*}/2<! @*}/2Z! @*}/2>2F:Fog">O*w! @:F2og":og":Fog!_'"*DM**$:F!2F:Fog)'"~#fo+*s#r}/2©:F2og":Kog":og":og"*"*"**i:FKog"F*͵!:Fog)'":Jog)}~#fo*m*s#r!"m:F!<2V>2F:F2og":og":>*2:=*!/2:Fog~O/2 >2V&>!=-%**"*T]"!Ͷ%! @!P"!"!"!P"*#>>'[! @*#> >U:F2og": og~*w:og":og~*w:og">O*w:og":Fog!_'"*DM**$?>!=$!"k:F!<ں:V/2´ :X=/2>2F:F2og"~2Y:og~2Z: og~*w:og":og~*w:og">O*wZ!YͰ#:F2og":og":Fog!_'"*DM**$:F!!=$!"!"!"*#>>'! @*#>>b>!=$!"!"!"*#>>'U! @*#>>Oe>!=$!"!"!"*#>>'! @*#>>h>!=$!"!"!"*#>>'! @*#>>4 @!Ͷ%?&PACMAN "(?D!@?*(?  :t!FVNG*zti "J"L>!N7*N~2R*P~2S*L~2X:Rog))"\:Sog!L_'*\"^s"`*^t"b*^u"d*^v~*d*b*`2[=/2f:R!=2T/2f:T/<2V:T2V:S!>2U/2f3:U/<2W9:U2W*J~P/2fj:T/<2T:U/<2U:V/<2V:W/<2W! =Ɓ2f:W!V!f/2g:V!W2f]:T=/2f:Rog))"\:Sog!L_'*\t~=/2f>2X:U=/2f>2X>2XZ:Rog))"\:Sog!L_'*\v~=/2f>>2XZ:U=/2fU>2XZ>2X:U=/2f:Rog))"\:Sog!L_'*\s~=/2f¤>2X:T=/2f»>2X>2X:Rog))"\:Sog!L_'*\u~=/2f>2X:T=/2f>2X>2X:X2Y=/2f5:Y2Y:X2f:Rog)):fog"\:Sog!L_'*\r"^:Y!X2g*^~=!g/2h•:X*Lw*L~2f:Rog)):fog"\:Sog!L_'*\r~=2g! =2f>2X>2X:X*L2Y=/2f>2Y:Y=/2f$>2Y:Y2f:Rog)):fog"\:Sog!L_'*\r~=2g*L~!X2Y=/2f€>2Y:Y=/2f“>2Y:Y2f:Rog)):fog"\:Sog!L_'*\r~=2g*L~2Y=/2f:Y2Y:Y*Lw"j 2l:z62{:z 2|:zl2}:zL!}!|!{/2~%>2l:z22{:z 2|:zj2}:zJ!}!|!{/2~j>2l:z82{:z 2|:zk2}:zK!}!|!{/2~¯>2l:z/2{*x~/*xw*x~/2{! @:l b:Rc j2 P R2N Qc&I92, Q%@UA.: c%%9R:Lӑ'Q`bDd$x5YI$MFPACMAN DATA1TUWqX(I3,30I4)(30(I1,1X,A1,1X))(1X,100A1)(1X,3A1,1X,3X,1X,I2,1X,I2)(1X,3A1,1X,3A1,1X,I2,1X,I2,1X,I6)(4I5)!Y!!Z;w!!'>2T:Tog"d*d!!>͊':T</>2T:Tog))"d"f:Tog"h~*fw*dm"j*h~*jw:T<>2U!!'>2T:T2log"d*d!!>͊':Uog!_':log"f*f!!>͊':T<q!!>͊'/>2T:T<2V:Tog))"d:Uog!L_'*d"ft"h:Tog~*hw*fv"j:Vog~*jw:T<:U 2lK:U<2Ww!!'>2T:Tog"d*d!!>͊':T<]/>2T:Tog))"d:Wog!L_'*ds"f:Tog"h~*fw:Uog!L_'*du"j*h~*jw:T<:W2Uf!!'mV!!>͊'/:V/2l#b:V2l:Tog)):log"d:Uog!L_'*dr"f:W*fw!!'!!>͊'/@>2U!!'!!>͊'/U!!T@>2T:Tog"d*d @:T͊'CB!!>͊'/>2U:U>og"d~*dw:U<>2U!!'>2T:T2l:Uog!_':log"d*d!!>͊':T<$>2T:T2s:Uog!_':sog"f*f!!>͊':T<b:U2t og"h*h!!>͊':tog"j*j!!>͊':Uog)'"u*u!!>|'/:Uog!_'~ /2l Ù >2T:T2l:Uog!_':log"d"f~*fw*d"h*d~*hw:T< :X//2l :Uog)'"d!*ds#r:U<2U:U=2:B2=:C2>>2U:U2log"d:l og~*dw:log"f:log~*fw:U!<ڮ >2U:U2log"d:log"f:Uog!_'"h*hDM*f*d$:U!< ?>!=$>2U:Uog"d>O*dw:U!<\!2X!c/Z@eT"!"!*!~/2!i":=2!:>2!*!~!og~!=2=*!~!og~!>2>:==/2!">2=:==/2!(">2=:> =/2!>">2>:>=/2!Q"> 2>!!!Ͱ#?>!=$á#*!~2!og~2!:!og~2!*!~2!!og~!!2!:!!og~!!2!:!=/2!">2!:!=/2!">2!:! =/2!">2!:!=/2!#> 2!*!~og"!:!*!w*!~og"!:!*!w!!!Ͱ#*!~og~P/2!}#*!~og!_'"!*!DM!!!$á#*!~og!_'"!*!DM!!!$1H >"#"#>2#:#2#og"#:#og~*#2#*#~*#!#/2#_$:#og~P/2#:$:#og!_'"#*#DM*#*#$^$:#og!_'"#*#DM*#*#$:#!<ڹ#:>*#2#:=*#!#/2#›$?*#*#$*#~2#*#~og!_':#og~2##*#*#$t  "$"$`i"$*$*$~%*$ @!*$"$*$ @!*$"$*$ @!%!!%T@$SAF"'%")%`i"+%*)%*'%~%*+%&S%!S%T@b "&*.26:>BFJ U#"Y%"[%*Y%~\%og"z%*[%~o%og"|%*|%*z%T@dH $"%*%~#fo!'"%"%!% @*%!_'*%~#fo{ozgog"%!%&#)"&*&~#fo!d'"&"&!& @*&!d_'*&~#fo{ozgog"&!&Z&It"R&*R&~og! '"T&"V&!V& @*T&! _'"V&!*V&{ozg*R&~og"X&!X& @&> 29?!PA":?!US"?&*}>6 ͎>*}>6 T=@?~#&!9? ~>#&&> 29?!ST":?!OP"?&=z?'zBC'|G||C'6C'))u' =m'!Ü'!Ü'!Ü'!Ü'!"?#777~#fo">77">*>">:$?'Y)í'ͪ1í'>2?2?<2>(>2?'2?<'>2?2?2>~#fo"%?!9?">~#+(!">!9##"z':?:(go">">">">v(!>>7*>~#P(go">*>~#^(go">*>~#fo">*>~#fov(">2?2"?2$?2?2?2>go">">"6*>|ʮ(2*>"?(u1<2>2>2>2><2$?:?>p/4,( (> ͸2w(:>/<((͸2=(2>:?ʼ3:?/ ʼ3͸2=)4:>')') [0=)2>:?9)>͸2=2):?G[0͸29)!?1?w# O):?ʁ)*>DM*>"*?*> *>͠)`i">">*>DM*?"*?*>*> ͠)`i">}):?**?+}|):?)**?">>p/*>ä)>p/*>"*?*>ä)w#=£)*>+">| )<*>G!>60#4!>4:?0w5*"?~:B* w+2*w!>|W*}W*!>4#">|/W}/_*?"?>2>:?^-3:>G:?*x2>*:?*2> 0:?*0[0!>5*<§*:>**/ú*E:>*D[0:>!?2>*+*-/<2>[0:>_! 6{0G[0}0G[0:?^-3:>G!>:?w2+*2>:>2>:>K+2>!>w 0:>/u+*?"?!"?/!>4e+*?"?/u+:?^-3:>|*!>/<|*Fw!>~w2>!?~w<2?+2?2>2>2?>2> [0+*>*>DM*?O,+|+"?">2*>*>F[0*>#">*?+"?|#,2*>DM!>5E,*>+}|J,*> ~2#?`i">>;,> ;,,X, !>4O,:>I³,:?=z,==z,=z,,:>ʅ,2>:?,:>,:>,:>w~/x,!?2>W5:?ʼ3!>~w:>D-!?:?-! ?~#~+w#-)-!>4: ?o:?:-}o:>g" ?ü3!,4ô6:?=b-==ʢ-=o-<:?og"?â-* ?}ʢ-#}ʢ-go" ?2 ?>2?3:>*:>2>2> 0!?~-/W+~/_>2?2>! 6}0o!>4{º-!>:>G2>2>2?s#-!>"> 0V+^ö- /.O, .>00.:.02#?>ɯ2>2>2> /-3.>2?8.+;. /3*>+">!>4.:#?.c.>2>2>.:#?_,Es.Dx. /+ʇ.-Œ.>2> /y2>*>+">!>4-.Ox ڲ.<> GÝ.:>x./<2>G!>~w_,-:?.͹/55F)5:#?!1?w#w.F)!>:>w.O, /:><2> /^-F0/T^->2?O,4/ü3!?~H/>T>Fw> #w#w#w>2?2? )> j/> j/>O}2%?O!P6:%?<<=_^#V ^#V/ڦ/*>|²/<*>|²/<*z'!1??w#/!?1?ÿ/:$?!>wF1:?>p/!>5/:?*[0!?50[0*>F#">[0!>~!?!>2?+0L02>/G0:?-[0!>5A0.[0/40< [0!?5L0+0*>*>{z|0#">*>+p!>5À0<:?:?2Î1!?~4ʞ0< *?"?*?"?2!">*>*>:?0~'0O,w#0#~'0">2~'0G[0*>#">#0*>#">#~'02:?="1!"?4!">Û12?2*?+"?|2*?">!?42!>6:?j1:>j1*>zc1*>6 ">͒4:>2>2>:?‚1*?">2!">2!"?~ʛ1wê1*>+">|ê1:"?A1*?|2+"?:>2>2?2>2>go"?" ?" ?" ?:>!>w:?14*?:?G:?*>?2 ?~#2">1:>p/*?">ɯ2>go"?*>*>~# 02-G2> 02">2#?G0i2 i2*?T])))_%2*?|t2#x:>ʅ2o>g"?|x!?~w+ 2‰2!?~w+¢2!8?͟2­2?!?w#26 2"?2,2/A1)1'ʭ0P2:?2?2|3<!"?2>G!3#3# y x3<yO!3:?53!3 ^#V"?yR3*>"?!">2\3<}2>2>y |3:#?.†32*?}2>*>+">Î1?:?3 ?w#3">*?|2Î1!?~4x2>w:?=4==4=4+>2?>w'4+5: ?l4 5>2?7Դ6W5!>~w(4C44+4d4!'??Ϳ/4+4!?'?Ϳ/!>4/G͉2!?~#r4'4'42>!?w#‡4!>4>p/*?*>">*?DMyx2< *>">2 [0*?+"?|¾42:?G:>2>!>>w!>5͉2͹/͉2F)!?~/G#~/56 :P6=G!{7w#B6272; J<;J4|/G}/O!>6 67>{_zW}o|g=6|g}o`iN#F#q#p#=72>"?"?`i">2>:>L7!?_`7:>*>e7_~#fo:><2>W:>x7I@6\.9D 09D P#9D  9D `C9D @ p@h@FORTDAT`:"::99<9<<<8! p# =8w#D8:%? 778@L9&8zy8^#V7wÑ87;7w&8s#r#6:={zG{O8! ~8! 6*77 8! p<8͔9! q*7!9}|7!7:%?O s#r!8r+s!$"76#7D8:%?G 1wx 890#w> #w#7D8>w 8r*=9|a9}d9"7"=387y ʂ9͔9<77yw<77@Ĩ9796:87!z7~{2%?9:P690M8*>*>&9w#9D;7M8*>>2>:;? M827:>:>=:<>ͦ:*>~:#=C:> :7w:77M82>27ͦ:Ͷ:ڛ:ʤ:*>&*>w"> ʛ:}o:<:7?ɷ7ʴ: 86 8:5!7/Ɓ_#>W7:;27>w7 8$;4!7_#>Wɇ;>: 867o&#;6#<;+7D;277ww8:=OK;8:=O&84X;#4:P6=7~2%?"6788 w ʈ;#w|;:%?_!P67p+q=;;;;;;;:;;> 4 4<> 4<*=;|;};";"=<:;A<:>*>=> 4<~+&<1<> 4<&<> 4<~0&<> 4<#~#4<=(<_>2;;]<͎> a<*>&*>w"> }a<<:>*>=> >~+<1®<> ><> >~ <0<> >#~#>=< **** at address ** #O!e= ~>#~>:=<2='=7=!<:=D=7==!<~>#:=|Q=}Q=> >Z=Ɛ':'>IDF0MPIRFWITEXDOMLDZLGSQIBTLOBDEISBEINOVCNGLGSSNA2IODTBIRCEFFNDFUNOM??* :2=2=!="=*+ 2=!=!!""==!=*=> >> >P XVdCB@3\F~ggqfZVC^F7*ݕoOdujL+\ è yV0:UYTzʾ`ڊ XSx]>g^pV&գ*ϫFU&W+*=_*}>~ ̟>#~"}> =!=^#6 #> >wɠ6X{CO nHTpeGW sXUCTWt dB ²3l;3n#@±`ڳ J̃5+dvJeRAFU0eXYD-a[paeNv+a[fm[` WCwAڰ:s #+D 2ڰ:@wAUWdABFVdA҃ @0EEA7,h1Y~.@#? @=?> @> @w?w~_!\]"6!m@] \*Gc@#;3!\]"6!m@] \ <-> 9, 6, 00500 STARTING POSITION OF A FEW LURKING EVILS |+| |-| 11, 6, 10000 {+} {-} 10, 6, 15000 !+! !-! 7, 6, 20000 (+) (-) 13, 6, 25000  | = = = = = = --------+ | +---+ +-------+ +---+ +-------+ +---+ +------------ | = | | = = = | | | | = = = | | = | +-----------+ +---+ +---+ +---+ +---+ +---+ +---+ +-----------+ | = = = = = = | | = = = = = | | = = = = = = | | +-----------+ +---+ |---+ +---+ +---+ +---+ +-----------+ | | O | | = | | = | | = | | = |To run PACMAN, first PIP PACMAN.* and SCREEN.CNT to a disk which has been SYSGENed. Run SETUP on that disk and toggle AUTO HORIZONTAL SCROLL (function D) to OFF. Save the new setup, then place the disk in drive A. Press and . At the A> prompt, type PACMAN When the game is running, press to toggle the bell on/off. OSCHESS DOC2UVWXYZ[OSCHESS DSC\OSSARGONCOM>]^_`abcdOSSARGONDOCefghOZDOT COMijklmnopqrstuvwxOZDOT COM&yz{|}OZDOT DOC~PACMAN COMPACMAN COMPACMAN DATPACMAN $$$=~ _~ _AL d !"#$%&BOUNCE COM'CRAPS BAS7()*+,-.CRAPS COM0/01234MONSTER BASV56789:;<=>?MONSTER DOC@SMURF BAS\ABCDEFGHIJKLOSCHESS COM]^_`abcdOSSARGONDOCefghOZDOT COMijklmnopqrstuvwxOZDOT COM&yz{|}OZDOT DOC~PACMAN COMPACMAN COMPACMAN DATPACMAN DOCSCREEN $$$*K͞+('+FÎr ͖ 8{ Ăw#w#w^#V#*~#fo^#*~#fo^#V#*n^#*n^#V# ~#fo^#& ~#fo!+!#!+!#!+!+}|z{|}|z7||7zZZ)|/g}/o#|͉k|/g}/o#ɯ2qZZk:q|/g}/o#|/g}/o#:q<2qqDM!xxGyO҃)v|͔`i|)Öxڷz/W{/_ѯzW{_=yOxGæ2qZZ͉M|}ȯ|g}o)|/g}/o#z/W{/_!9~#fo! ! ! ! ! ! !9~#A"s!`*"!"!Y">2>2>22!"!"!@"!" ʞ!F#x±~#±!b2r~# "2r+}|~#G:rx"2r+w# +6#!6#2w2x*s!>r<o&F=-` r'~h6!+`W?_!~7z?` :>ª@w#G.¶ww#?*>?w#> w#.7:77!!a{   `OE!y6$ -7rBo&))T])))!yV5:=b#:=#:$=2#v+:<"(">6͋5:&=͋5#*&=|"M1Ϳ5#>6͋5:&=͋5>#͋5>6͋5:'=͋5#*&="<(#>͋5:&=͋5>s͋5>@2=#R1Ϳ5#(,#:==2=)(@#>s͋5#͘(Y#X1:>͋5:&=͋5c1Ϳ5#f1Ϳ52=#(—#>͋5:&=͋5>{͋5c1Ϳ5#(#:$=µ#>}͋5c1Ú#:$=;-͘(#>&͋5͋5f2Ú#:$=$v+è":=$,v+2#:$=>$$>͋5v+>͋5>@2$=2#*="<1Ϳ5:=2="<|s$}d$[2Ϳ5z$g$[3Ϳ5>G>)͋5$#͞*D)͏,Ͷ,v++4ʱ$ð`Yr!!!͡!ͤ!ͧ! ͪ*6#6*6#6ͭ|Welcome to Polish Pong! !A !9DM! ^#Vr+sn`is#rzP͐)!9_!9DM͐\ÜðA } /í 8 z þ !9DM*6#6! u!x+++|{*6#6~0#*~s#r~#*s#r*s#r*s#r~|g}o+`is#r~|g}o|U ͐*s#re ͐*s#r`iw#w͐2ҿ ! w#w͐ҳ ͐k*͐6 ! ^#Vr+sÀ `i^#Vr+sk `iw#w͐2 ͐k*͐k*-ss`i^#Vr+s `iw#w͐B ͐*͐*g|ss`i^#Vr+s *6+*6+*g6+*}6+~0#k*~#6#*6#6! ́! w#w͐ `iw#w͐2 ͐k*͐n&̈́`i^#Vr+s÷ ! ̈́! ^#Vr+sä ! !!%͇! !!͇M^ M!* ! ͊! !!;͇!9 !!͇͍͐*s#r*s#r͓MM~!*͖͙|ʳ è M| MM M*s#r! !h9Type any key to start game: Time Used: Targets Left: Best Time: %3dSpeed: M A !9DMD ͐!G ͐ { ! J Æ ;!9DM̀ !͐͐͐̓ ö /} !9DMM ! `iͰ `i!! ͳ !d9%3d /} !9DMM!4 `i `i!! !d9%2dA /} !9DMM!v `i; `i!!0> !d9%3dà p!9DM} ͐|g}o`is`in&͐͐ ̀ !9 A í z 8 !9DM*w#wM`is#r͐Ҭ*6#6͐>4>Y>6&>ʠ>52>>8>>I>2J>r>V>ʛáM~k*Mn} •M~k*M6\Ý! ìM~k*Mn} M~k*M6/! ìM~k*Mn`is#6͐/!͐\>M~k*M6 F! ìMo*~#fods#r ìMҘ*~#fos#r ì!! ìM~k*Mn} |-\/G#|((M*s#r(M*s#r(M`is#rM*s#r͐*s#r(M`is#rM*s#r͐*s#r(*^#Vr+s!ڙ! M~k*M6 0#! s#r #! s#r͐k*͐n} ¶͐k*͐6#͐͐!# (M~M! s#rMM! s#r͐͐!* MM~M~k*Mn& M|ʬ *w#w͐*~s#r͐*s#rMM|!U!'! !!9} *^#Vr+s!R*w#w*^#Vr+s*6#6*~#foMs#r! |(! |g}o*s#rM+++|*6#6!*!! !-!M(M! |! |g}o*s#r*6#6G5N!9DM! ͐2]ýgÖ!h9DM! ^#Vr+s~#fo! s#r͐! s#r! ^#Vr+sn`is{ʮ`in}%˜! ! s#r! 6#6! s! s! s͐n}-! ^#Vr+s! 4͐n}0! 4͐n&T}! W!! s#r! ^#Vr+sn`is{.e! W! s#r! 4! ^#Vr+sn`is`in&Z}DʑUXOC%SVÂ͐~#fo|! ^#Vr+s6-͐͐~#fos#r! ^#Vr+s! 6 ! 6! 6! ~#fo! n&! ^#Vr+s~#fo! Qѯgs#r! ^#Vr+s! ^#Vr+s~#fos! ^#Vr+s! n}i! 6#6! ^#Vr+s~#fo! s#r͐n}͐|! ^#Vr+s! ^#Vr+sns! ^#Vr+s! ^#Vr+sÄ͐6! ! s#r! n}%! ^#Vr+s!%! ^#Vr+s! n}!0! s͐! ^#Vr+sns{N! ^#Vr+s%! n}! ^#Vr+s!! ^#Vr+s6 XÕ! ^#Vr+s`insë! ^#Vr+s`insÌ͐6!9ý!9DM͐͐ ͐^#Vr+s͐ ͐0͐7s!&^͐ ͐͐ ͉͐`is͐ ͐͐ )͐`in&#&^!9!9DM! n&0ͯڒ! n&9ͯÜg!9DM`iw#w͐~#fon&͙}͐ ?͐^#Vr+snѯg`is#rê͐!91!9DM! n&|&! n&+! n&!9DM! n&aͯ\! n&zͯ7*"*"*"k" #+|Œ'z ʄÄöY ͳ!xV ###""7:O*o` *>H7*"|g}o"zg{o"|g7*+++:G_*DM!6o&7**k***:b~iɰ#b7:**<=ʆ~:_:wʜ ^#Vr+s! n}!0! s͐! ^#Vr+sns{N! ^#Vr+s%! n}! ^#Vr+s!! ^#Vr+s6 XÕ! ^#Vr+s`insë! ^#Vr+s`insÌ͐6!9ý!9DM͐͐ ͐^#Vr+s͐ ͐0͐7s!&^͐ ͐͐ ͉͐`is͐ ͐͐ )͐`in&#&^!9!9DM! n&0ͯڒ! n&9ͯÜg!9DM`iw#w͐~#fon&͙}͐ ?͐^#Vr+snѯg`is#rê͐!91!9DM! n&|&! n&+! n&!9DM! n&aͯ\! n&zͯ7*"*"*"k" #+|Œ'z ʄÄöY ͳ!xV ###""7:O*o` *>H7*PPONG.DO - INSTRUCTION FO PPONG.COM THI PROGRA WAS UNDERSTAND WRITTE O MODIFIE B٠ B OSBORN USER I COLORADϠ SPRINGS ACADEM COMPUTER COLLECTE TH PROGRAMS. YOՠ MA٠ FINĠ IԠ HELPFU̠ TϠ PRINԠ OUԠ THES INSTRUCTIONS. T PLA PPONG PU THI DIS I DRIV AN TH CP/ SYSTE DIS I DRIV A USŠ ESCAPŠ KE T GE OU O HEL ANĠ INTϠ CP/M WHE A APPEARS TYP I B:PPONG FOLLOWE B TH RETUR KEY. PPON WIL AUTOMATICALL LOA AN START THŠ ONL KEY WHIC AR USE T PLA PPON ARŠ TH FIVŠ KEYӠ WHICȠ FOR͠ CROSӠ OΠ THŠ NUMERICA KEYPAD 8 6 2 THŠ GAMŠ COMEӠ OΠ AԠ GOOĠ BAL̠ SPEEĠ FO BEGINNERS USŠ THŠ KE T TOGGL SPEEĠ UР A DESIRED THE TH KE T TOGGL BAC DOWN. THŠ KE AN TH KE AR USE T INSER BARRIER I TH PAT O TH BALL YO INSER THES BARRIER T GE TH BAL T HI TH TARGETS TH KE PUT  I BARRIER TH KE BARRIER IƠ YOՠ WISH YOՠ CA US THŠ KE٠ TϠ REMOV BARRIERS THŠ KE MUS B TOUCHE JUS AӠ TH BAL APPROACHE TH BARRIE YO WAN T REMOVE. . T PLA PPONG PU THI DIS I DRIV AN TH CP/ SYSTE DIS I DRIV A USŠ ESCAPŠ KE T GE OU O HEL ANĠ INTϠ CP/M WHE A APPEARS TYP I B:PPONG FOLLOWE B TH RETUR KEY. PPON WIL AUTOMATICALL LOA AN START THŠ ONL KEY WHIC AR USE T PLA PPON ARŠ TH FIVŠ KEYӠ WHICȠ FOR͠ CROSӠ OΠ THŠ NUMERICA KEYPAD 8 6 2 THŠ GAMŠ COMEӠ OΠ AԠ GOOĠ BAL̠ SPEEĠ FO BEGINNERS USŠ THŠ KE T TOGGL SPEEĠ UР A DESIRED THE TH KE T TOGGL BAC DOWN. THŠ KE AN TH KE AR USE T INSER BARRIER I TH PAT O TH BALL YO INSER THES BARRIER T GE TH BAL T HI TH TARGETS TH KE PUT 10 DATA ABCDEFGHIJKLMNOPQRSTUVWXYZ 20 DATA abcdefghijklmnopqrstuvwxyz 30 DATA You may change what you need to type by modifying lines 10 to 80. 40 DATA "THIS IS LINE 4?" 50 DATA "THE QUICK BROWN FOX JUMPED OVER THE LAZZY DOG'S BACK" 60 DATA "WHEN PINK PIGS ARE FAT, THEY CAN'T WALK" 70 DATA "I SURE WISH I COULD WIN AT THIS GAME" 80 DATA Use Your imagination or make it (#&$*%**&@^%!$@#$) HARD!!!! 98 REM: The next line must be "DATA LASTLINE" 99 DATA "LASTLINE" 100 '-------------------------------------------------------------------------- 110 E$=CHR$(27):' Escape Character 120 CLS$=CHR$(26):' Clear Screen 130 DC$=E$+"=":' Direct Cursor Addressing 140 GY$=E$+"g":' Graphics On 150 GN$=E$+"G":' Graphics Off 160 HO$=E$+CHR$(30):' Cursor Home 170 EP$=E$+"T":' Erase to End of Line 180 DY$=E$+")":' DIM Display On 190 DN$=E$+"(":' DIM Display Off 200 UY$=E$+"l"' Start Underline 210 UN$=E$+"m"' End Underline 220 ' Direct cursor addressing 230 ' Location= (CHR$(Line number+32));(CHR$(Column number+32)) 240 '-------------------------------------------------------------------------- 250 CNTBASE=4 'How many times is keyboard read between time updates? 260 TIMED=1! 'How much time elapes between ME moves? 270 '-------------------------------------------------------------------------- 280 PRINT CLS$ 281 PRINT " WELCOME TO THE TYPING TEST HORSERACE" 282 PRINT " by: Donald Hill ":PRINT:PRINT 283 PRINT " (c) 1983 Donald Hill" 290 PRINT:PRINT " Do you require instructions (Y/N) ?"; 300 A$=INKEY$:IF LEN(A$)=0 THEN 300 ' Get keyboard input 310 IF A$="N" OR A$="n" THEN 360 320 IF A$="Y" OR A$="y" THEN 340 ELSE 300 330 '-------------------------------------------------------------------------- 340 GOSUB #1340 ' *** PRINT INSTRUCTIONS *** 350 '-------------------------------------------------------------------------- 360 PRINT CLS$ 370 PRINT HO$;GY$;"vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv";GN$ 380 PRINT ;GY$;"vvvvvvvvvvvvvvv";GN$;DY$;" WELCOME TO THE TYPING TEST HORSERACE ";DN$;GY$;"vvvvvvvvvvvvvv";GN$ 390 PRINT GY$;"vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv";GN$ 400 PRINT GY$;"vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv";GN$ 410 PRINT GY$;"vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv";GN$ 420 PRINT GY$;"vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv";GN$ 430 X5=10:Y5=3:GOSUB 990:PRINT ;DY$;" TIME "; 440 X5=30:Y5=3:GOSUB 990:PRINT " KEYSTROKES " 450 X5=50:Y5=3:GOSUB 990:PRINT " ERRORS ";DN$; 460 X5=10:Y5=4:GOSUB 990:PRINT " " 470 X5=30:Y5=4:GOSUB 990:PRINT " " 480 X5=50:Y5=4:GOSUB 990:PRINT " ":PRINT 490 PRINT GY$;:FOR I=1 TO 69:PRINT CHR$(123);: NEXT I:PRINT GN$ 500 PRINT GY$;"xb";GN$;"| | " 510 PRINT "--|---------------------------------------------------------------|--" 520 PRINT GY$;"xb";GN$;"| | " 530 PRINT GY$;:FOR I=1 TO 69:PRINT CHR$(123);: NEXT I:PRINT GN$:PRINT:PRINT 540 TIME=0 : GOOD=0 : BOBO=0 : ME=0 :TIMEB=0 : C1=0 550 '-------------------------------------------------------------------------- 560 GOSUB 1020 ' Get line to TYPE: 570 X5=1:Y5=15:GOSUB 990:PRINT "READY? (Y/N/ESC)" 580 A$=INKEY$:IF LEN(A$)=0 THEN 580 ' Get keyboard input 590 IF A$="N" OR A$="n" THEN 340 600 IF A$="Y" OR A$="y" THEN 630 610 IF A$=E$ THEN 560 620 GOTO 580 630 X5=1:Y5=15:GOSUB 990:PRINT " " 640 X5=6:Y5=13:GOSUB 990 650 FOR I=1 TO 10:PRINT CHR$(7);:NEXT I 660 FOR I=1 TO 500:  NEXT I 670 'vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv 680 IF CHRNO>LL THEN GOSUB 1020 'Get next TYPE line if end-of-line 690 TRY$=MID$(L$,CHRNO,1) 700 X5=CHRNO+5:Y5=13:GOSUB 990 710 '--------------------------------------------------------------------- 720 V$=INKEY$ 730 C1=C1+1 740 IF C1=>CNTBASE THEN C1=0:GOSUB 810 'Change TIME yet? 750 IF TIME-TIMEB=>TIMED THEN GOSUB 860:TIMEB=TIME 'Move ME yet? 760 IF LEN(V$)=0 THEN 700 770 IF V$=TRY$ THEN PRINT V$ :CHRNO=CHRNO+1:GOSUB 830 ELSE PRINT CHR$(7);:GOSUB 840 780 GOSUB 920 'Move YOU! 790 GOTO 680 800 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 810 TIME=TIME+.1: X5=13 : Y5=4 : GOSUB 990 :PRINT USING "###.#";TIME:PRINT:PRINT:PRINT 820 X5=CHRNO+5:Y5=13:GOSUB 990:RETURN 'Update TIME 830 GOOD=GOOD+1 : X5=33 : Y5=4 : GOSUB 990 : PRINT GOOD;: RETURN 'Update GOOD 840 BOBO=BOBO+1 : X5=53 : Y5=4 : GOSUB 990 : PRINT BOBO;: RETURN 'Update BOBO 850 '-------------------------------------------------------------------------- 860 X5=ME : ME=ME+1 : Y5=7 870 IF X5>65 THEN 1100 ' ------------------------------> ME WIN? 880 GOSUB 990 890 PRINT " ";:PRINT GY$;"xb";GN$ 900 X5=CHRNO+5:Y5=13:GOSUB 990 : RETURN 'Update ME 910 '-------------------------------------------------------------------------- 920 X5=GOOD-BOBO-1:Y5=9 930 IF X5<1 THEN X5=0 940 IF X5>65 THEN 1100 ' ------------------------------> YOU WIN? 950 GOSUB 990 960 PRINT " ";:PRINT GY$;"xb";GN$;" "; 970 X5=CHRNO+5:Y5=13:GOSUB 990 : RETURN 'Update YOU 980 '-------------------------------------------------------------------------- 990 PRINT DC$+CHR$(32+Y5)+CHR$(32+X5);:RETURN 'Position the courser 1000 '-------------------------------------------------------------------------- 1020 READ L$ 1040 LL=LEN(L$) 1050 CHRNO=1 1055 IF L$="LASTLINE" THEN RESTORE : GOTO 1020 1060 PRINT:X5=0:Y5=13:GOSUB 990:PRINT EP$ 1070 PRINT:X5=0:Y5=13:GOSUB 990:PRINT "TYPE: ";DY$;L$;DN$ 1080 RETURN 1090 '-------------------------------------------------------------------------- 1100 X5=30 'We have a WINNER!!! 1105 II=0 1110 FOR I=1 TO 10 1120 IF II=0 THEN PRINT CHR$(7);:II=1 ELSE II=0 1130 GOSUB 990:PRINT "WINNER!!" 1140 FOR I2=1 TO 100:NEXT I2 1150 GOSUB 990:PRINT " " 1160 FOR I2=1 TO 100:NEXT I2 1170 NEXT I 1180 GOSUB 990:PRINT "WINNER!!" 1190 PRINT:PRINT:PRINT:PRINT:PRINT 1200 IF Y5=7 THEN 1260 1220 PRINT:PRINT " C O N G R A T U L A T I O N S !!!!" 1230 PRINT:PRINT " YOU BEAT THE COMPUTER!!" 1240 TIMED = TIMED*(ME/65!) 1250 GOTO 1280 1260 PRINT:PRINT 1265 PRINT:PRINT " I MUST BE TO FAST FOR YOU" 1270 PRINT:PRINT " I'LL BE SLOWER NEXT TIME" 1275 TIMED = TIMED*(2-(GOOD-BOBO)/65!) 1280 PRINT:PRINT:PRINT:PRINT "DO YOU WANT TO PLAY A$GAIN? (Y/N) "; 1290 A$=INKEY$:IF LEN(A$)=0 THEN GOTO 1290 ' get keyboard input 1300 IF A$="N" OR A$="n" THEN 1325 1310 IF A$="Y" OR A$="y" THEN 360 1320 GOTO 1290 1325 PRINT:PRINT:PRINT:PRINT:PRINT CLS$:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT " THANK YOU FOR PLAYING" 1326 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT "Loading MENU" 1328 RUN "MENU" 1329 STOP 1330 '-------------------------------------------------------------------------- 1340 PRINT CLS$; 1350 PRINT " WELCOME TO THE TYPING TEST HORSERACE" 1360 PRINT " by: Donald Hill " 1365 PRINT " (c) 1983 Donald Hill":PRINT 1370 PRINT " The objece of the game is to get your horse (the bottom horse) across the"; 1380 PRINT "finish line ";UY$;"before";UN$; 1390 PRINT " the other horse gets across.":PRINT 1400 PRINT "You will be given a sentence to type.":PRINT 1410 PRINT "Every time you type the right letter (or space) your horse will move forward " 1420 PRINT "one space.":PRINT 1430 PRINT "Every time you type the wrong letter (or space) your horse will move backward " 1440 PRINT "one space.":PRINT 1450 PRINT "If you finish the sentence, and your horse has not yet crossed the finish line" 1460 PRINT "you will be given another sentence to type. Continue typing until your horse" 1470 PRINT "crosses the finish line, unless the other horse wins first.":PRINT 1480 PRINT "If you win and wish to play again, the other horse will get faster." 1490 PRINT "If you lose and wish to play again, the other horse will get slower." 1500 PRINT 1510 PRINT "Hit any key to continue"; 1520 A$=INKEY$:IF LEN(A$)=0 THEN GOTO 1520 ' get keyboard input 1530 RETURN 1540 END 1510 PRINT "Hit any key to ottom horse) across the"; 1380 PRINT "finish line ";UY$;"before";UN$; 1390 PRINT " the other horse gets across.":PRINT 1400 PRINT "You will be given a sentence to type.":PRINT 1410 PRINT "Every time you type the right letter (or space) your horse will ù !9!9!" " " !O" !d9V!9!d9!9Ͱ !|9 !9 !#F !9 !8F !9 !HF !9 ![F !9 !kF ! 9 !}F ! 9 !F !9 !F !9 !F !9 !F !9 !F !9 !F c c garage r r c o m i c 1234567 Dracula drinks house oo y g db e ieieceiie CLAMS SHe t rn HAir____ mirror mirror mirror mirror grnese grenes grseen grness $!9 !F !9 !F !9 !F !9 ! F !9 ! F ! 9 !F ! 9 !F !9 !F !9 !F !9 !#F !9 !+F !9 !-F !9 !4F !9 !7F !9 !;F !9 !AF ! 9 !CF !"9 !JF !$9 !RF !&9 !TF !(9 !VF !*9 !]F !,9 !_F !.9 !fF !09 !lF !29 !nF !49 !pF !69 !vF !89 !yF !:9 !}F !<9 !F !>9 !F !@9 !F !B9 !F !D9 !F !F9 !F !H9 !F !J9 !F !L9 !F !N9 !F !P9 !F !R9 !F !T9 !F !V9 !F !X9 !F !Z9 !F TWOCARGARAGE$STANDUPCOMIC$COUNTDRACULA$DRINKSONTHEHOUSE$WAVINGGOODBYE$IBEFOREEEXCEPTAFTERC$CLAMSONTHEHALFSHELL$NOUTURN$RECEDINGHAIRLINE$FULLLENGTHMIRROR$MIXEDGREENS$!9!L * b !{b !b !b !t !t 9 )9 ͂ b |s6!9͗ & 9 )9 ͂ b !b !9 !9 !t !t 9 )9 ͂ b |!99 )9 ͂  |ʲ!9͗ !9͗ !9͗ t9 9 H !b ! ͗ 9 !b ! b ! ͗ ! b ! ͗ ! b 9 9 t 9 9 p hJ!9͗ -! L 9 )9 ͂ b ?!9͗ +!9 Word Puzzle, by Jim Woolley, 12/82 I will display word puzzles. You guess what they are. What do you think this is? Very good! Good try. Wrong. The answer is!B b !L * b Press any key to continue ...9  !$H z !~ !9  !U ʯ 9 9   }!9͗  & ! b * ) ! b * ) ! b * ) ! b * b You had correct, close, and wrong. Thank you.;;!'t !( 9 !b ʶ 9 9 4 !0( ͕ !0U ~ 9 !H ~ ͕ |ʓ !( ͕ L 9 9 4 t 9 ! 4 t : *+!^#6 !#~ }| #~ 6 ! 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 noname o&9~#fo}|} [  . ]~r oL #c o&9s#r~#foͫ ͫ ͫ ͫ  ^#V^{W_zW /<_zW r+s|s|6 #F+x w# 6 D *  #~? ,  i`! + + + + + + + + + +{_z! ɳ7z {!|{ozg %  !  !o&~á }a{_o o&9sDMzzx x >)͈ d ͐ d }o{_zW=m M x x z/W{/_x/Gy/O{_zW{z o&9~á og9͗  & ! b * ) ! b * ) ! b * ) ! b * b You had correct, close, and wrong. Thank you.;;!'t !( 9 !b ʶ 9 9 4 !0( ͕ !0U ~ 9 !H ~ ͕ |ʓ !( ͕ L 9 9 4 t 9 ! 4 t : *+!^#6 !#~ }| #~ 6 ! 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 noname o&9~#fo}|} [  . ]~r oL #c o&9s#r~#foͫ ͫ ͫ ͫ  ^#V^{W_zW /<_zW r+s|s|6 #F+x w# 6 D *  #~? ,  i`! + + + + + + + + + +{_z! ɳ7z {!|{ozg  This is the release date of the disk. ALIENS COM 9ALIENS DOC  AL 2BOUNCE COM 'CRAPS BAS (CRAPS COM /MONSTER BAS 5+MONSTER DOC @SMURF BAS A.OSCHESS COM MOSCHESS DOC UOSCHESS DSC \OSSARGONCOM ]OSSARGONDOC eSMURF .BAS C8 36 11776 92 OSCHESS .COM 46 E5 7680 60 OSCHESS .DOC 65 C2 6400 50 OSCHESS .DSC 2B AA 384 3 OSSARGON.COM 19 F0 7936 62 OSSARGON.DOC 79 65 3968 31 OZDOT .COM FA 3E 21248 166 OZDOT .DOC 60 A9 256 2 PACMAN .COM E0 2E 16384 128 PACMAN .DAT C2 35 3584 28 PACMAN .DOC 7C C0 384 3 SCREEN .CNT 85 90 128 1 PPONG  Fog Library Disk FOG-CPM.059 Copyright (1986) by Fog International Computer Users Group to the extent not copyrighted by the original author for the exclusive use and enjoyment of its members. Any reproduction or distribution for profit or personal gain is strictly forbidden. For information, contact FOG, P. O. Box 3474, Daly City, CA. 94015-0474. as part of the description of a file indicates that the program is distributed on a "try first, pay if you like it" basis. If you find the program(s) meet your need, please refer to the author's documentation for information on becoming a registered user. Only by registering and paying for the programs you like and use will the authors of such programs continue development. Often, more complete documentation, additional modules, and new releases are available only to registered users. Osborne 1 games. Many include source and could be modified for other computers. Filename Description -06-00 .86 This is the release date of the disk. -CPM059 .DOC This is the description of the disk contents. ALIEN .BAS AFF8 5K [Aliens 1 of 4] Osborne 1 graphics game (MBasic source and compiled version) in which you defend the Earth from aliens. Includes patches for other screens. ALIENS .COM B7EC 15K [Aliens 2 of 4] ALIENS .DOC C416 3K [Aliens 3 of 4] AL . 3047 13K [Aliens 4 of 4] BOUNCE .COM 9C1A 1K A bouncing ball creates an ever changing pattern on your Osborne 1 screen. CRAPS .BAS 6074 7K [Craps 1 of 2] MBasic source and compiled version of the casino game for an Osborne 1. CRAPS .COM 3281 6K [Craps 2 of 2] MONSTER .BAS 958A 11K [Monster 1 of 2] MBasic graphics game for the Osborne 1 (from an article in the Portable Companion). MONSTER .DOC 9380 1K [Monster 2 of 2] SMURF .BAS C836 12K An MBasic version of the Monster game for young children. (Written for Osborne 1). OSCHESS .COM 46E5 8K [Osborne 1 Chess 1 of 3] Chess for an Osborne 1. The computer can look ahead as much as six moves. OSCHESS .DOC 65C2 7K [Osborne 1 Chess 2 of 3] OSCHESS .DSC 2BAA 1K [Osborne 1 Chess 3 of 3] OSSARGON.COM 19F0 8K [OSSARGON 1 of 2] Another version of the game of Chess for the Osborne 1. OSSARGON.DOC 7965 4K [OSSARGON 2 of 2] OZDOT .COM FA3E 21K [OZDOT 1 of 2] A "connect-the-dots" game for the Osborne 1. OZDOT .DOC 60A9 1K [OZDOT 2 of 2] PACMAN .COM E02E 16K [PACMAN 1 of 4] A version of the arcade game for the Osborne 1. PACMAN .DAT C235 4K [PACMAN 2 of 4] PACMAN .DOC 7CC0 1K [PACMAN 3 of 4] SCREEN .CNT 8590 1K [P&ACMAN 4 of 4] PPONG .COM EEE9 7K [Polish Pong 1 of 2] A version of the game for the Osborne 1. PPONG .DOC A5A3 2K [Polish Pong 2 of 2] TYPERACE.BAS 1466 9K A typing tutor and horse race game for 80 column Osborne 1 systems. Requires MBasic. WORDPUZL.COM 4BAC 4K A game for the Osborne 1 where you guess the words. ALTE ON DO WHILE diskno="&mdiskno".AND. .NOT. EOF() IF diskno="000" IF dfile="FOG-DOS" ? " '