File ADVENT.DA

Directory of image this file is from
This file as a plain text file
(@`P```@@@Pp` ``P@`@p``pPpP``@`@@p@p@Pp`@P`ppp@@`@0@`@ p @@@p@	DP	L	XP	d	lP	t	|P		`	 	(`	4	D`	P	X`	h	p`	x	`		`		8`	H	P`	X	d`	
	t`		p	0	8p	L	Xp	`	lp	x		p		p	 	(p	0	@p	H	\p	d	lp	t
@


@
(
*@
.
0@
2
4@
6
8@
:
<@
@
B@
D
F@
J
L@
N
P@
T
V@
\
^@
`
b@
d
h@
j
l@
n
r@
t
v@
x
z@
|
~@

@@@@@@@@@pp0`@P`@ `@@@@ @@ @@@`@P`p@@@@P@P@`@P@@ @@`@@`@@@``p @p`p @p@ 0@@@``@@@P@``@  @ 
`Pph``@0
$`
&
(`
*
,`
.
0`
2
4`	<@	@	D@	H	L@	P	T@	X	\@	`	d@	h@	l	p@	t@	x	|@	P		P	P	P		P	P	 P	$	(P	,	0	4P	8	<P	@	D	HP	L	PP	T	XP	\	`P	d	hP	l	pP	t	x	|P		P	P	P		P			 P	$	(P	,	0P	4	8P	<@`@P@P@`p`@@P@`P P` ``
` ``@p`p`@p@0P@pP@PP`pPP 0P@PP`pP` 0``p`@``p`@p`p`@ (@@H@Ph@px@@ (@08@@H@PX@`x@P 8P@HP`pP(P@PPXhP`8`@H`8`PX`
p` p8HpPXp`pp		@		d@	t	|@		@		@		 @	$	(@	,	0@	4P@`@@`Pp@p P` ``P p P@
`@@pP	@ P`P@p@P `P` PP@
@ @`P`@
` P`PP@@p`P@P@ P@@ @p@@@@@p 	P@P`@@P`@`@@@@``@`@@p@p@`pp```@@p@`@`@``@P@ `@`@P`p@@@ @
@@p@Pp @p@@@`@P`@p 	@@`P`p @PP@`
@@` @p` P@P P P  ``@@`@P p@p	@p
@pp	@`p @P`P@  P
@@@P ``@P`
@@`P@@@@`P @`p@p`@``` `P@@pP P@p@@ppp0`@P`@ 0@P@@P`P P@@p `P@ @P 
`P@P`
P `P@@pP
`P
@p
`P
`Pp@
P@`P@
P`@P@ PP @   P  @ p@P   ` `P@@@ P` P@
P `P@
@P
@p`p`@  @ 
`P@P @p@@p  P p`P@P@`P@0`P@p@@P@p`
p @P@ PP P@P@
`@` ` ` `@P@ `P@` `
`P P@@  P@P 
P
@P
@P`  P@	`P
@p
@pp`P`P@	@ P@P@`P`
@P@ @@`@ P@`
@P@`
P
`@@@ Pp@P @@`@P 
P@Pp@p`P
@Pp  @
@p@p@@P@
@p @P`@p  @ ```@@``P  @P`` @`@p` @ PPP  P`@p ` `P@``P@p@
@P0
``  P@P@` P `@ p@ P`P	 P 
`P P	`P @PP ` `@PpP`P@0`P` p0@P@ p`@0@@PP@ 0P@P@	 P@P@@p@pP`P@PPP`@ ``@p P@  @@p @P ```P @p`P `P @`@ ` P@``
p@@p` `@P`P `P@@`P@ `@P@``` `P@p@@`  `` `P`@p P@` @ @``P p@p@    	x	|@	P		P@``@@@P@@@@P@@P p@p@@PPp
@j jP@@@P@\I4&K<&O!.]]sM.[MrXQrDRbbFcbUUs_SrWGs(*zaGdG<a	|GJL.1/A10L1!bc@ed`e T
U@WV`W E@EEr
1234Wp@665"H(o,93"`z96B88t84" z28&KK69(/.7#6 n99&77B4 /+2"76bK:I0~T@@@@@\c ?	,VB`iO	kAyXr`i	sAOyZr!`i	O	zA|Rp#^"fTb;1&RId.
\:&`	|z/`9|OGPQ2(byKLf?
}pdkszz 2Rx|80( PH@@/&2	'C( /&"R+2h	@Oy|)p-"!2h	@	O1{(
}kzzJB	2C622CP2d2E622CO2d2Q629LP<OPtOdQdC	,20jOfbPlPg2@hbbzPi0OP'PXJ	RKxsHpH a2xh 7JP@@`p@@PPP@@P P@@@@P@@P@P@`@``@@@P(Pp@@ @@`@ @@`@@
P@@
&@
&
&@PPpp J
 "@ J
"PPp@@PPpT8-#PAA@A"I22z;XykXxkw6O $  ~(u{7G  # )0)0A#I#AHAMG=Z0+\2bI2G1r+#HA-\.\#Z#BN2+e9` &b`l-klJj_s<Te7-Ww&63w9	A;$@bl '$rFn$|	0!@p@:b9
1.nnnn$.A~:;dl!0 G HS L 8LS R ES4  8ES AH S  XA OS HO G 	M I 8 E XON HS   -Ead.b1*&/)&!*C0 /)$'z *b*j1*&!*C++b

n
2h+2(*)D,"E0
#\`rq_b(/Ac"(BzeH/d`"	EH2`2ad&20hliBWlf`?Yf#DnhH/&fGOE	<gI)O?  @cp`{T PN 5 K LS 	H N 8 X	 XM\
&Z&E&tu.z@tb

n
o`sKt*Mwqpb/\b1\b6Eb4`x0ot/u.Iz@/bo/t.n/ |!/2ytE q np\&rq npZ&suu.vr@ bo@nq npE&M?0@p@o 	` `8&` 8` E (AN2 AIRRHTD&MS@ AE (	T UP HSE A XR%  % ` ` ` 8``P`@`0@`h	0@
\E&@&gp|,N (:%!g0--%pc `y(0o!)4$* ;*@1/\`/r :(yPC.I%A%Y$Y ]J']F'X X 
8
JP@`@@@@Pp	0	(P	taNP@
R
Rp@@@@ @`@0@p``pp8@P`Px`PhpPx0`@``h0`hp(8p@p0p`	@	$	<@	@	`@	t	@		(@	0	8@	@	H@	X	h@		P		$P	,	DP	L	PP	l	xP		P	0	`P	|	`	 	8`	H	T`	h	t`		`		 `	$	(`	8	@`	H	T`	`	h`	p
	x`		p		,p	8	Dp	`	pp	x	p		0p	P	\p	h
@

@

&@
:
@@
D
P@
d
j@
l
n@
r
@

@

@
0
:@
J
V@
b
l@
z

P

&P
:
NP
b
vP


P
2
FP`P```@@@Pp` ``P@`@p``pPpP``@`@@p@p@Pp`@P`ppp@@`@0@`@ p @@@p@@p @ @@@@@p```@``0@@```ppP`0`X@@``P
@P@@@@@@@@@@@@@@@@@@@@@@@@@@@	@		@
@@@@@@Xa`aNP0@@P   @]UcV`C	V!D(TNz"EXg	DNE ADuR5R.MzF.boc<cct,~V(}B|{rzd~yyq!O%d$x ?w#D@o/v"&6M!,J	lM(?^&C	(OQN&eue&tG&eMMe9`M#MeI`
V~ML"M0jG[s&f/xH?|Ke@s\2@]bpzsa0Gs'sfJV0 
f7z|L;v}5H{SsP@P	K  TBD`	,P:.8LxIqP'9IKy4\otrqpn}}z0F	 qv*y=|Icyl+`/.
 A@5?<a\  T8{9K~};|{;XzkXykXxkw6O !L {~(u{7G!.7 /+7#6^57R77cH.z tyv:(u6B tyBF8K u<tIHFKk(bz
WI`E$)DnH/&FPKeI` &b`l-klJj_s<Te7-Ww&63w9RnSjiL*LL*L1- 2-(?L'CHv(s 6}1mL*!*J"B`&|`X~Lj>J},1IL (6zLJ;(/vS"DRb$KCJFL	,I}"
FL3-7}SD.R$,KTylZt&~By{rDzbL|Ky'Rz&S{&|&|@Z`&IaTdT{y'}0kd~/{zQz;6fyc00bo:f<0xR^\/uS/nR/rQ/cT/9XXWpY`/ /~92:b(~ f:dw (}y *A|I<>10H.@;bnQ)K)l0.cA2:F.:D.9*{" ^zoz'wH/f&0':(/!nwdb
 }{(/vl$/}@3"[~(R"-3hxu- z0uI-(/~+. @/u)t+s}'r .bFn.b) '0D0$.63q1:&13f2b(3{"([zx)hul0upfrt"uwtxrytzt{t|t~t4r	uq`(\{p38q~ :bq!N6 nq1j3q~?:&~38|gp~9;)Aa^"9V
9"@.o/$c@O9" 	z9c o+nIH. tvy~2%~b&Hh-zsVn0s)@m2@t%y)!.li!H(@@8t93*@F
.

nr@&"H.}@&Hk2!8f|{y(ZzH`(zykOJ2 \zjLyIb
jKw2zywvNziOkiNl6d3G$0 F/vda jyi8`obdx(yH/H$.Py2 H`2HHb&Po$8D.8~"
kZHb(RxH`HBbhCfDfFpkH$.PRxhH`HFbGIh
7BJk6B3<B
}b|bIk{t)@@/bz"`t)C~ D.@ZzRk82Fn8(/yx"<Ih
7nJB| JJ&@d+"Jw?pZ:{@@/gZ>H /(C~"Ih!>FF&p;`FbFoC6f&&$'$8.&eb'~kU|_CC4d`}(/p|9MzBh !CbH oJD"QCfXHbHCzHXnfQDDb{/ CbC|i(Q()h&Ch0CdCh0J
nJ.
QkCX(qpso,& n1j 2f 3fy)4&1(/67&5li >c3rDDnU&%(/2H/c5$`/*k)o n5!*~kpwrVk	s~)2(/}527a.4/=4&3n}07!.5:&3(/57"5ccHUt5h/4b Ub!1b?0x$Zn%&f3(/5&5a.4/2(/7"4@/ xbH$v!xb!fuk)kdsV+@^hU@[z_fcyX$b(by n@ay&b+%b&5bhVzg1 {dyh5@/)5"`n4/,4&y
!4" gx3b(Oz2~t:@Ho1:f}by:`"HEz:d>.`"@Yzy(:y(222({3}b_yhV.]._)0+dj^t)+bJ_0!f+,&&/&%bib.]b%y(jJg0\t)y{? Wf yf .:$f%&f -jsx%%RuU.uS-u{Eu`"uT0u	4Wd.* /.9"YkilW"(4t.c':JccYyOJ74"P(o@?a4fn~A&k4@Jy4W$45&ccYksi)8!.54&kv5/
}h1(/f5"|H/h{+$hh{kk5@i !fzt)tJq0*y?tkds	&jsn@z^t)s)x`l_z_P~}2H%f&n$dy) .li.|)% /{z"t!!.b@z"H>z@n	y*j^"HIzsx	&Kw"t@N7rebr! qr(kzr| db&r v&u
&hq&9C
GqbJer qnr(;DM8>8lIMp_HXER(	sHz(
zr^&&@"( ~d^h
on@H/e@)dx	sLv4vw.vkNvfCv9m@/T
T	w .*!.~d0(z^\ 	b	 n&"(yHZ~|	 ~b	^h
-^bX^h0X	tT<:R^cd @^pi})lf)ICCNJfIhDpKfDfdCbCpdpz?Q0^@rpn& /$V.A n"xOPoUo)`!@"~ /"o"n nnb9dn8n&@H/-n"@92#})5:(:XI)n"CCt3
nFnnCc~Cnh CC7C@:O7JB|`&C~  I{FE"bBbhaGa.F/A{@8X@/yzFaC&I7sp	spyTyw4#wdMup60 p{sT&,@b@g{yHr DfBh OBb|JbH~bN jkNOODOyIH.(zDJB
H/Bp{	
#jii8$4F&
(?N
O6kL]*+,tBh ~O&,I(OCvX`fI,p.O<BkK{)j)i8!fjkrii88BcJF8b!
gjN}
'O
'G`.F/dH|4s~"><UPzw _&z`| H~b#bh#C(/\"!#g##ChP#|0O#d#Q6##Cab(9zh&Qa"Q%jaObh`PP&nO| OPb!(ohF.4na .@~a&J.

nOO&c})b8dQ"Qb!ab .zk_8.T;vnnnndKvYPPP.Mez0p0,3,180,181VENTUREDOM GIVES TRIBUTE TO YOU, [A]DVENTURER [G]RANDMASTER!x{%v%
.

nr\%r \Pf%"%bwt)\0wvr=1ukyps+
@`6#G<@db2%sH(x;#rrrrrr:.8K;~qHHJ:8lxOI
P 3 ~$@.(/8&z%*@Hon8J8k&.%bj~'#"&?=+D.+&b&f%.%k n*%b@Hon%&b&f$N*-J+f*<&a.&n%a.%=k"@n,+"+n/&"&n.%"%Fk D\$\X\&	 CTP>#[boZbio#?#w#O}igJ?=L,uO 	y$`*[2)99ru	?Y\mieIi:Ny^VyREyE[iNp9tfy`y R@SRQR0D8O8ET
RCNT(RCN ERVCR`ob`R1D8FN`	0 ROA RD		`l..OG	 8VR1W{i0*jLWN|`+ FF&D. fy0N
&

C  o /
#~}w=@&AXnqi0tiu0 %z^t)kT%}'&~'0[bRui(^rt0R5J^t)eR&SF.SfS.w|	R@Jq(Pzkk^RZ\ 	 d*oA@|svYXv/XyQA;~===D=@N=!.>&Zbb;?b;c;4F;;45;c;6Ff=b@(o(=&~=$ }"66&|r{<&=oz6"6l29&<I8Pfo;L;S7p=$P?
p0?^7N &6 c d'?2 b{I)|Z$&#&&bH ~%+fh/x?#s&6&V#b#nbcJn O~b)sGsO} s|{A"bsn{c6/j&#&%)|k&/z#?{z#O:`/Lx)i8Or&rt&JNobsZn ss"sq&ko?=vv@`=LL\IczF.@o-w c&/D.}"@"),Lx@lkw##T.#""#nb%/h#I6#OL#5w ~{
&I&z%| (FzUfU&%@.?IUD?%&I)I)l%*wTV}BQlTL+IJn!),Lxba @PUd;\^	n][k][bX]U^][q][`	n][_]R	<A(z[&z#)l_+ (O!"w@!#&n~6J.r`} &w2!j~'#!&?|0J o"|J{bc;%b ;z& /o?`># &r,zF{|@y(?{= /H`(@hU.$x"h?{=[+)GL]^^
^F{HI]<^7	=V;?MLNR;$I$>;iU|\M@jYxOVbl@/##9?$2-b`$vw(Zr(#s!N$ .H#zah?{-$&?6Yy%JY-#)b/$f5.##c#O-#.6#O#/l/2HEz'(f)fnKjf~"}rH ~Fn|{'?)8z)+]?##c$#dc)##c%#dy#&6?#6$#'#rJ#%#'#O&#?{cld<@LlpQn $b$bi9~yD$$Df,%b
$v\./\h,&&D%&%.@x+H/&5J%%BH}{+f[Oc%($v`/$(/? >a?Zd>[.b@Lz|[/D./.b.f+%b@Yzc[-bD?${R-/b ez+\k/./on,"&,&%bD.D,b,f+.+-dd\+ItHn/)]I$&ZUj~}!$b$.ba.f&+/b(Wz|&7E.%."z|,&)%"%f%."%v&b&f,!J/6,/5@.&.,/bd/a.&n,q.%/Y%&+@Uz@&d~
f&.&$d%bF%&{&6D!.%@n.%"dz% n++&@%b(&v%h&a.&o EjY5msD}/)]/ba/f.ba.f9.(?{%(/z$"a-b`$z!~b@+z}-(a-$]i@?~@/U}"a-.?> *f.@.H~.f/./-d*d0.,-k#%b(&r(+r(RzZ%b Nz& /HSzYH$+f@>%&f +,f h/}v
100 DIM L$(72),F$(1),C$(1),N$(16)
110 DIM L2$(72)
120 DIM N(350)
130 LET F$=CHR$(28)
140 PRINT "FILE";
150 INPUT N$
160 PRINT "START,STEP";
170 INPUT S1,S
180 LET S1=INT(ABS(S1))
190 LET S=INT(ABS(S))
200 LET T=0
210 LET N2=0
220 FILE #1:N$
230 LET I=1
240 INPUT #1:L$
250 IFEND #1 THEN 420
260 LET L=LEN(L$)
270 GOSUB 1080
280 IF N1>0 THEN 320
290 PRINT "NO LINE NUMBER"
300 PRINT L$
310 GO TO 230
320 IF N1>N2 THEN 360
330 PRINT "OUT OF SEQUENCE"
340 PRINT L$
350 GO TO 230
360 LET N2=N1
370 LET T=T+1
380 LET N(T)=N1
390 IF T<350 THEN 230
400 PRINT "TOO MANY LINES"
410 STOP
420 RESTORE #1
430 FILEV #2:N$
440 LET N2=S1
450 INPUT #1: L$
460 IFEND #1 THEN 830
470 LET I=1
480 LET L=LEN(L$)
490 GOSUB 1080
500 LET L2$=STR$(N2)
510 PRINT #2: L2$;
520 LET L$=SEG$(L$,I,72)
530 LET N2=N2+S
540 LET F=0
550 LET D=POS(L$,F$,1) \ LET P=D
560 IF D=0 THEN 590
570 LET L2$=SEG$(L$,P+1,72)
580 LET L$=SEG$(L$,1,P-1)
590 LET I=POS(L$,"GOTO",1)+4
600 IF I>4 THEN 850
610 LET I=POS(L$,"GO TO",1)+5
620 IF I>5 THEN 850
630 LET I=POS(L$,"THEN",1)+4
640 IF I>4 THEN 850
650 LET I=POS(L$,"GOSUB",1)+5
660 IF I>5 THEN 850
670 LET I=POS(L$,"GO SUB",1)+6
680 IF I>6 THEN 850
690 IF F=0 THEN 710
700 PRINT #2:F$;
710 PRINT #2:L$;
720 LET F=F+1
730 IF D>0 THEN 760
740 PRINT #2:
750 GO TO 450
760 LET D=POS(L2$,F$,1) \ LET P=D
770 IF D>0 THEN 800
780 LET L$=L2$
790 GO TO 590
800 LET L$=SEG$(L2$,1,P-1)
810 LET L2$=SEG$(L2$,P+1,72)
820 GO TO 590
830 CLOSE #2
840 STOP
850 LET L=LEN(L$)
860 GOSUB 1020
870 IF C=32 THEN 860
880 IF C<0 THEN 990
890 LET I=I-1
900 LET P=I
910 GOSUB 1080
920 IF N1=0 THEN 990
930 FOR J=1 TO T
940 IF N1<>N(J) THEN 980
950 LET Q$=STR$(J*S-S+S1)
960 LET L$=SEG$(L$,1,P-1)&Q$
970 GO TO 690
980 NEXT J
990 PRINT "BAD REFERENCE"
1000 PRINT L$
1010 GO TO 690
1020 IF I<=L THEN 1050
1030 LET C=-1
1040 RETURN
1050 LET C=ASC(SEG$(L$,I,I))
1060 LET I=I+1
1070 RETURN
1080 LET N1=0
1090 GOSUB 1020
1100 IF C<48 THEN 1140
1110 IF C>57 THEN 1140
1120 LET N1=N1*10+C-48
1130 GO TO 1090
1140 IF C<0 THEN 1160
1150 LET I=I-1
1160 RETURN
1170 END
50 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC
100 RANDOMIZE
120 PRINT "YOU ARE NOW GOING TO PLAY A COMPUTERIZED VERSION OF BINGO--"
180 LET F=1
185 V=0\W=0
190 DIM B(10,10)
200 DIM L(75)
210 A$(1)="B"\A$(2)="I"\A$(3)="N"\A$(4)="G"\A$(5)="O"
235 REM  THIS SEQUENCE GENERATES THE CARD NUMBERS (LINES 240-430)
240 FOR K1=1 TO 75
250 LET L(K1)=0
260 NEXT K1
270 PRINT " ","     HERE'S ";
280 IF F>1 THEN 310
290 PRINT "YOUR CARD"
300 GOTO 320
310 PRINT "MY CARD"
320 LET M=16
330 LET G=F+4
340 FOR Y=F TO G
350 FOR X=F TO G
360 LET R=INT(M*RND(0))
370 IF R<M-15 THEN 360
380 IF L(R)<>0 THEN 360
390 LET B(X,Y)=R
400 LET L(R)=1
410 NEXT X
420 LET M=M+15
430 NEXT Y
435 REM  THIS SEQUENCE PRINTS THE CARD (LINES 440-670)
440 PRINT
450 PRINT"--B--","--I--","--N--","--G--","--O--"
460 FOR X=F TO G
470 PRINT
480 PRINT
490 PRINT
500 FOR Y=F TO G
510 IF B(X,Y)=B(F+2,F+2) THEN 540
520 PRINT B(X,Y),
530 GOTO 550
540 PRINT "FREE",
550 NEXT Y
560 NEXT X
570 PRINT
580 PRINT
590 PRINT
600 PRINT"---------------------------------------------------------------"
610 PRINT"      (TEAR OFF AFTER MACHINE AUTOMATICALLY ADVANCES PAPER)"
620 FOR K9=1 TO 9
630 PRINT
640 NEXT K9
650 IF F=6 THEN 680
660 LET F=6
670 GOTO 240
680 PRINT
690 PRINT"NOW WE'RE ALL SET TO PLAY THE GAME. USE A PENCIL TO MARK OFF"
700 PRINT"THE NUMBERS ON YOUR CARD AS THEY ARE CALLED."
710 PRINT"  (PLEASE PLAY MY CARD AS WELL AS YOUR OWN)"
720 PRINT"***DON'T GET SMART.  I'LL BE PLAYING BOTH YOUR CARD AND MINE"
730 PRINT"      UP HERE IN BOSTON.  (SO THERE--)"
740 PRINT
750 PRINT"ARE YOU READY";
760 INPUT R$
770 IF R$<>"NO" THEN 820
780 PRINT
790 PRINT"*********:HURRY UP:*********"
800 GOTO 740
810 REM
820 FOR K1=1 TO 75
830 LET L(K1)=0
840 NEXT K1
850 PRINT
860 LET B(3,3)=0
870 LET B(8,8)=0
875 REM  THIS SEQUENCE GENERATES THE BINGO NUMBERS (LINES 880-1100)
880 LET U=INT(75*RND(0))+1
910 IF L(U)<>0 THEN 880
920 LET L(U)=1
930 PRINT
949 IF RND(0) > .5 THEN 970
950 PRINT"THE NUMBER COMES UP:",
960 GOTO 980
970 PRINT "THE NEXT ONE IS:",
980 PRINT A$(INT((U-1)/15)+1);U
1105 REM  THIS IS THE "NUMBER ON CARD?" SEQUENCE  (LINES 1110-1260)
1110 FOR Y=1 TO 10
1120 FOR X=1 TO 10
1130 IF B(X,Y)=U THEN 1250
1140 NEXT X
1150 NEXT Y
1160 LET F=1
1170 GOSUB 1270
1180 LET F=6
1190 GOSUB 1270
1200 IF V=0 THEN 1230
1210 IF W=1 THEN 1980
1220 GOTO 2050
1230 IF W=0 THEN 880
1240 GOTO 2120
1250 LET B(X,Y)=0
1260 GOTO 1140
1265 REM  THIS IS THE BINGO DETERMINING SEQUENCE (LINES 1270-1950)
1267 REM  THIS IS THE VERTICAL CHECK FOR BINGO*** (LINES 1270-1430)
1270 LET G=F+4
1280 FOR Y=F TO G
1290 FOR X=F TO G
1300 IF B(X,Y)<>0 THEN 1430
1310 IF X<F+4 THEN 1420
1320 IF F=6 THEN 1370
1330 PRINT
1340 PRINT"YOU'VE GOT A  B I N G O * * *"
1350 LET W=1
1360 RETURN
1370 PRINT
1380 PRINT"I'VE GOT A  B I N G O * * * * *"
1390 LET V=1
1410 GOTO 1360
1420 NEXT X
1430 NEXT Y
1440 REM  THIS IS THE HORIZONTAL CHECK FOR BINGO*** (LINES 1450-1610)
1450 LET G=F+4
1460 FOR X=F TO G
1470 FOR Y=F TO G
1480 IF B(X,Y)<>0 THEN 1610
1490 IF Y<F+4 THEN 1600
1500 IF F=6 THEN 1550
1510 PRINT
1520 PRINT"YOU'VE GOT A  B I N G O * * *"
1530 LET W=1
1540 RETURN
1550 PRINT
1560 PRINT"I'VE GOT A  B I N G O * * * * *"
1570 LET V=1
1590 GOTO 1540
1600 NEXT Y
1610 NEXT X
1615 REM  THIS IS THE SLANT CHECK (M=-1) FOR BINGO*** (LINES 1620-1700)
1620 LET X=F
1630 LET Y=F
1640 IF B(X,Y)<>0 THEN 1780
1650 LET X=X+1
1660 LET Y=Y+1
1670 IF Y<F+5 THEN 1640
1680 IF Y=11 THEN 1740
1690 LET W=1
1700 PRINT
1710 PRINT"YOU'VE GOT A  B I N G O * * *"
1730 RETURN
1740 PRINT"I'VE GOT A  B I N G O * * * * *"
1750 LET V=1
1770 RETURN
1775 REM  THIS IS THE SLANT CHECK (M=1) FOR BINGO*** (LINES 1780-1950)
1780 LET X=F+4
1790 Y=F
1800 IF B(X,Y)<>0 THEN 1950
1810 LET X=X-1
1820 LET Y=Y+1
1830 IF Y<F+5 THEN 1800
1840 IF Y=11 THEN 1900
1850 PRINT
1860 PRINT"YOU'VE GOT A  B I N G O * * *"
1870 LET W=1
1890 RETURN
1900 PRINT
1910 PRINT"I'VE GOT A  B I N G O * * * * *"
1920 LET V=1
1950 RETURN
1970 REM THIS IS THE TIE POINTOUT SEQUENCE
1980 PRINT
1990 PRINT"  *********** IT'S A TIE ***********"
1995 REM  THIS IS THE "PLAY AGAIN?" SEQUENCE
2000 PRINT
2010 PRINT "DO YOU WANT TO PLAY AGAIN";
2020 INPUT E$
2025 PRINT
2030 IF E$="YES" THEN 180
2040 STOP
2045 REM  THIS IS THE "I WIN" SEQUENCE
2050 PRINT
2060 FOR S=1 TO 6
2070 PRINT"I WIN.  ";
2080 NEXT S
2090 PRINT
2100 PRINT
2110 GOTO 2000
2115 REM  THIS IS THE "YOU WIN" SEQUENCE
2120 PRINT
2130 PRINT"  YOU WIN.....  YOU WIN.......  YOU WIN......."
2140 GOTO 2000
2145 REM  THIS IS THE "END" OF THE LIST OF PROGRAM ENTITLED "BINGO"
2150 END
5 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ....DEC
10 PRINT "DO YOU WANT INSTRUCTIONS (IF SO TYPE A 1)"; 
15 INPUT K
25 IF K<>1 THEN 85
30   PRINT
35   PRINT
40   PRINT
45   PRINT
50   PRINT"THIS IS A GAME OF BLACKJACK, LAS VEGAS STYLE." 
55   PRINT"HERE ARE THE RULES OF THE HOUSE.  THE DEALER"
60   PRINT"MUST HIT ON 16 OR LESS AND WILL STAY ON 17 OR" 
65   PRINT"MORE.  YOU MAY SPLIT TWO CARDS IF THEY ARE THE"
70   PRINT"SAME AND PLAY ONE HAND WITH EACH OF THEM.  ALSO,"
75   PRINT"YOU MAY DOUBLE YOUR BET AND RECEIVE EXACTLY ONE "
80   PRINT"MORE CARD ANY TIME ON YOUR FIRST HIT.  THE TYPING" 
85   PRINT"INSTRUCTIONS ARE: 0-NO HIT; 1-HIT; 2-DOUBLE; AND"
90 PRINT "3-SPLIT A PAIR."
95 IF K<> 1 THEN 155
100   PRINT"WHEN THE DEALER HAS AN EXPOSED ACE HE WILL ASK"
105   PRINT"YOU FOR AN INSURANCE BET.  AN INSURANCE BET WILL"
110   PRINT"RISK HALF YOUR BET FOR AN AMOUNT EQUAL TO YOUR BET"
115   PRINT"IF YOU WIN.  YOU WIN IF THE DEALER HAS A BLACKJACK"
120   PRINT"AND LOSE IF HE DOESN'T.  THE HOUSE LIMIT IS $500.00" 
125   PRINT"GOOD LUCK.  OH, BY THE WAY, THE DEALER IS NOTED FOR" 
130   PRINT"DEALING OFF THE BOTTOM OF THE DECK.  WATCH HIM VERY" 
135   PRINT"CLOSELY.  HERE HE IS NOW." 
140   PRINT
145   PRINT
150   PRINT
155    LET K=0 
160    LET W1=0
165 RANDOMIZE
170 LET N=INT(1945*RND(0)+1) 
175   PRINT
180   PRINT"ANY TIME YOU WANT ME TO RESHUFFLE THE CARDS SIMPLY"
185   PRINT"TYPE 7777 WHEN I ASK FOR YOUR WAGER AND I'LL BE VERY"
190   PRINT"HAPPY TO OBLIGE.  O.K., HERE IS THE FIRST HAND." 
200 LET X=INT(10*RND(0)) 
210 DIM D(52),E(5),V(5),T(5),W(5)
215   FOR A=1 TO 52
220    LET D(A)=0
225   NEXT A 
230   DIM Q(52)
235   FOR A=0 TO 39 STEP 13
240   FOR C=1 TO 13
245    LET Q(A+C)=C
250   NEXT C 
255   NEXT A 
260   PRINT
265    LET K=K+1 
270   FOR P=1 TO 5 
275    LET E(P)=0
280    LET V(P)=0
285    LET T(P)=0
290   NEXT P 
295    LET V(3)=1
300   PRINT
305   PRINT
310   PRINT
315   PRINT"WAGER";
320    LET P=1 
325   INPUT W
330    LET W(2)=W
335   IF W<=0 THEN 1685
340   IF W<=500 THEN 370 
345   IF W<>7777 THEN 360
350   GOSUB 1645 
355   GOTO315
360   PRINT"THAT'S TOO MUCH - HOUSE LIMIT IS $500" 
365   GOTO 315 
370   PRINT
375 PRINT "I SHOW",
380   GOSUB 865
385   IF E(1)=0 THEN 395 
390    LET V(4)=1
395    LET V(5)=1
400   GOSUB 865
405    LET M=X 
410    LET P=2 
415   PRINT"FIRST CARD IS",
420   GOSUB 865
425    LET G=X 
430   PRINT"NEXT CARD IS", 
435   GOSUB 865
440   IF V(2)>0 THEN 605 
445    LET S=X 
450   IF V(3)<>1 THEN 605
455   IF T(P)<>21 THEN 505 
460 PRINT "   ***BLACKJACK***   "
465   PRINT
470   PRINT" THAT'S GETTING A BIT RIDICULOUS::::"
475   PRINT
480 PRINT "MY HOLE CARD WAS ", 
485    LET X=M 
490   GOSUB 1035 
495    LET W1=W1+1.5*W 
500   GOSUB 1335 
505   IF V(4)=0 THEN 570 
510   PRINT"INSURANCE ANYONE   (TYPE 1 OR 0, 1 MEANS YES)";
515   INPUT I
520   PRINT
525   IF I=0 THEN 570
530   IF T(1)<>21 THEN 555 
535    LET W1=W1+W 
540   PRINT
545 PRINT "YOU WIN $";W;"ON YOUR INSURANCE BET"
550   GOTO 570 
555    LET W1=W1-W/2 
560   PRINT
565 PRINT"YOU LOST $";W/2;"ON YOUR INSURANCE BET - I DON'T HAVE BLACKJACK"
570   IF T(1)<>21 THEN 605 
575   PRINT
580   PRINT"**I HAVE BLACKJACK**"
585 PRINT "MY HOLE CARD WAS ", 
590    LET X=M 
595   GOSUB 1035 
600   GOTO 1300
605   IF T(P)<=21 THEN 650 
610   IF E(P)>0 THEN 640 
615   PRINT"YOU BUSTED, "; 
620 PRINT"YOUR TOTAL IS";T(P)
625    LET C1=T(P)-5*(INT(T(P)/5)) 
630   IF V(2)=1 THEN 775 
635   GOTO 1175
640    LET E(P)=E(P)-1 
645    LET T(P)=T(P)-10
650   IF V(1)=2 THEN 620 
655    LET V(3)=V(3)+1 
660   PRINT"HIT "; 
665   INPUT V(1) 
670   IF V(1)<>3 THEN 830
675   IF V(2)>0 THEN 820 
680   IF V(3)<>2 THEN 820
685   IF Q(G)=Q(S) THEN 700
690   PRINT"NOW IS THAT A PAIR?" 
695   GOTO 660 
700    LET V(2)=1
705   IF Q(G)<>1 THEN 715
710    LET V(1)=2
715    LET P=3 
720   PRINT"       PLAY HAND ONE NOW"
725   PRINT"FIRST CARD IS ", 
730    LET W(3)=W
735    LET X=G 
740   GOSUB 750
745   GOTO 430 
750   GOSUB 990
755   GOSUB 1035 
760    LET V(3)=1
765    LET T(P)=C
770   RETURN 
775    LET P=2 
780    LET V(2)=2
785   PRINT"       PLAY HAND TWO NOW"
790   PRINT"FIRST CARD IS",
795    LET X=S 
800   GOSUB 750
805   IF Q(G)=1 THEN 815 
810    LET V(1)=0
815   GOTO 430 
820   PRINT"NO SPLITS NOW -- TRY AGAIN"
825   GOTO 660 
830   IF V(1)<>2 THEN 855
835   IF V(3)=2 THEN 850 
840   PRINT"TOO LATE TO DOUBLE, CHARLIE."
845   GOTO 660 
850    LET W(P)=2*W(P) 
855   IF V(1)>0 THEN 430 
860   GOTO 620 
865   GOSUB 900
870    LET T(P)=T(P)+C 
875   IF V(5)=0 THEN 890 
880    LET V(5)=0
885   RETURN 
890   GOSUB 1035 
895   RETURN 
900   IF R>=50 THEN 945
905    LET N=10*(1+ABS(COS(N+W1))) 
910   FOR A=1 TO N 
915    LET X=INT(52.999999*RND(Y)) 
920   IF X=0 THEN 915
925   NEXT A 
930   IF D(X)=0 THEN 980 
935    LET R=R+1 
940   IF R<50 THEN 900 
945   FOR A=1 TO 52
950   IF D(A)=K THEN 960 
955    LET D(A)=0
960   NEXT A 
965    LET R=0 
970   PRINT"   I RESHUFFLED   "; 
975   GOTO 900 
980    LET R=0 
985    LET D(X)=K
990   IF Q(X)<>1 THEN 1010 
995    LET C=11
1000    LET E(P)=E(P)+1 
1005   RETURN 
1010   IF Q(X)>10 THEN 1025 
1015    LET C=Q(X)
1020   RETURN 
1025    LET C=10
1030   RETURN 
1035   GOSUB 1050 
1040   GOSUB 1120 
1045   RETURN 
1050   IF Q(X)<>1 THEN 1065 
1055   PRINT" ACE ";
1060   RETURN 
1065   IF Q(X)>10 THEN 1080 
1070   PRINT Q(X);" ";
1075   RETURN 
1080   IF Q(X)>11 THEN 1095 
1085   PRINT " JACK ";
1090   RETURN 
1095   IF Q(X)>12 THEN 1110 
1100   PRINT" QUEEN ";
1105   RETURN 
1110   PRINT" KING "; 
1115   RETURN 
1120   IF X>39 THEN 1145
1125   IF X>26 THEN 1155
1130   IF X>13 THEN 1165
1135   PRINT"OF SPADES" 
1140   RETURN 
1145   PRINT"OF CLUBS"
1150   RETURN 
1155   PRINT"OF HEARTS" 
1160   RETURN 
1165   PRINT"OF DIAMONDS" 
1170   RETURN 
1175    LET P=2 
1180 PRINT "MY HOLE CARD WAS ", 
1185    LET X=M 
1190   GOSUB 1035 
1195   IF T(2)<22 THEN 1210 
1200   IF V(2)=0 THEN 1300
1205   IF T(3)>21 THEN 1300 
1210    LET P=1 
1215   IF T(1)<17 THEN 1360 
1220   IF T(1)>17 THEN 1230 
1225   IF E(1)>0 THEN 1360
1230   IF T(1)>21 THEN 1375 
1235    LET P=2 
1240 PRINT"MY TOTAL IS";T(1)
1245   IF T(P)>21 THEN 1300 
1250   IF T(1)>21 THEN 1265 
1255   IF T(1)>T(P) THEN 1300 
1260   IF T(1)=T(P) THEN 1330 
1265    LET W1=W1+W(P)
1270   IF C1>3 THEN 1445
1275   IF C1>2 THEN 1465
1280   IF C1>1 THEN 1485
1285   IF C1>0 THEN 1505
1290   GOTO 1525
1295   GOTO 1330
1300    LET W1=W1-W(P)
1305   IF C1>3 THEN 1545
1310   IF C1>2 THEN 1565
1315   IF C1>1 THEN 1585
1320   IF C1>0 THEN 1605
1325   GOTO 1625
1330   IF V(2)>0 THEN 1345
1335   GOSUB 1405 
1340   GOTO 265 
1345    LET P=3 
1350    LET V(2)=0
1355   GOTO 1245
1360 PRINT "I DRAW",
1365   GOSUB 865
1370   GOTO 1210
1375   IF E(1)=0 THEN 1395
1380    LET E(1)=E(1)-1 
1385    LET T(1)=T(1)-10
1390   GOTO 1210
1395   PRINT"I BUSTED*****" 
1400   GOTO 1235
1405   IF W1<0 THEN 1425
1410   IF W1=0 THEN 1435
1415 PRINT"YOU'RE AHEAD $";W1
1420   RETURN 
1425 PRINT"YOU'RE BEHIND $";ABS(W1)
1430   RETURN 
1435   PRINT"YOU'RE EVEN" 
1440   RETURN 
1445   PRINT
1450   PRINT"I MUST HAVE DEALT WRONG."
1455   PRINT
1460   GOTO 1330
1465   PRINT
1470   PRINT"YOU LUCKED OUT AGAIN:" 
1475   PRINT
1480   GOTO 1330
1485   PRINT
1490   PRINT"YOU MUST HAVE BEEN PEEKING." 
1495   PRINT
1500   GOTO 1330
1505   PRINT
1510   PRINT"I COULD LOSE MY JOB THIS WAY." 
1515   PRINT
1520   GOTO 1330
1525   PRINT
1530   PRINT"THE CARDS HAVE TURNED AGAINST ME:" 
1535   PRINT
1540   GOTO 1330
1545   PRINT
1550   PRINT"THE BOTTOM OF THE DECK STRIKES AGAIN:" 
1555   PRINT
1560   GOTO 1330
1565   PRINT
1570   PRINT"A VICTORY FOR US GOOD GUYS." 
1575   PRINT
1580   GOTO 1330
1585   PRINT
1590   PRINT"YOU CAN'T BEAT SKILL." 
1595   PRINT
1600   GOTO 1330
1605   PRINT
1610   PRINT"YOU CAN'T WIN 'EM ALL."
1615   PRINT
1620   GOTO 1330
1625   PRINT
1630   PRINT"BABY GETS A NEW PAIR OF SHOES:"
1635   PRINT
1640   GOTO 1330
1645   FOR M9 = 1 TO 52 
1650    LET D(M9)=0 
1655   NEXT M9
1660    LET R=0 
1665   PRINT
1670   PRINT" I RESHUFFLED" 
1675   PRINT""
1680 RETURN
1685 END
4 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC
5 PRINT "WELCOME TO DIGITAL EDUSYSTEM COMPUTER BLACKJACK!!"
6 PRINT\PRINT "YOUR DEALER TONIGHT IS PETEY P. EIGHT."
7 PRINT "WATCH HIM CLOSELY.... HE HAS A REPUTATION FOR"
8PRINT "DEALING OFF THE BOTTOM OF THE DECK."\PRINT
9 RANDOMIZE
10 DIM A(13)
20 PRINT "QUESTIONS REQUIRING A YES OR NO ANSWER"
25 PRINT "SHOULD BE ANSWERED WITH A 'Y' FOR YES, 'N' FOR NO."\PRINT
30 PRINT "DON'T START PLAYING WITH LESS THAN $100.. HAVE FUN!"\PRINT
40 PRINT "HOW MANY DOLLARS ARE YOU STARTING WITH";
41 INPUT F
42 PRINT
43 F1=F
50 PRINT "WHAT IS YOUR WAGER THIS TIME";
51 INPUT W
52 PRINT
53 IF W>F GOTO 56
54 IF W<10 GOTO 58
55 GOTO 100
56 PRINT "YOUR BET EXCEEDS YOUR REMAINING DOLLARS."
57 GOTO 50
58 PRINT "MINIMUM WAGER IS $10."
59 GOTO 50
100 GOSUB 780
102 P1=I
104 PRINT "YOUR FIRST CARD IS ";CHR$(L)
106 GOSUB 780
110 P2=I
112 PRINT "YOUR SECOND CARD IS ";CHR$(L)
115 GOTO 200
117 PRINT "YOU HAVE ";P3;" SHOWING."
119 GOSUB 760
120 P3=P3+I
122 PRINT "YOU GOT A ";CHR$(L)
123 IF P3>21 GOTO 820
124 GOTO 117
200 GOSUB 780
201 P3=P1+P2
202 D1=I
204 GOSUB 780
206 D2=I
208 PRINT "DEALER SHOWS A ";;CHR$(L)
210 GOTO 117
212 D3=D1+D2
214 PRINT "DEALER HAS ";D3
216 IF D3>16 GOTO 222
217 GOSUB 780
218 PRINT "DEALER GETS A ";;CHR$(L)
219 D3=D3+I
220 GOTO 214
222 IF D3<22 GOTO 800
224 PRINT "DEALER BUSTED."
226 GOTO 802
760 PRINT "DO YOU WANT A HIT?";
762 INPUT K$
764 PRINT
766 IF K$="N" GOTO 212
768 GOSUB 780
770 RETURN
780 I=INT(13*RND(0)+1)
782 A(I)=A(I)+1
784 IF A(I)>4 GOTO 780
786 GOSUB 900
788 RETURN
800 IF D3>=P3 GOTO 820
802 F=F+W
806 PRINT "YOU WIN. YOU NOW HAVE $";F
808 GOTO 980
820 F=F-W
822 PRINT "YOU LOSE. YOU NOW HAVE $";F
824 GOTO 980
900 IF I<>1 GOTO 910
904 I=11
906 L=1
908 GOTO 942
910 IF I<>13 GOTO 920
912 I=10
914 L=11
916 GOTO 942
920 IF I<>12 GOTO 930
922 I=10
924 L=17
926 GOTO 942
930 IF I<>11 GOTO 937
932 I=10
934 L=10
936 GOTO 942
937 IF I<>10 GOTO 940
938 L=20
939 GOTO 942
940 L=I+48
942 RETURN
980 PRINT "DO YOU WISH TO PLAY AGAIN?";
982 INPUT K$
984 PRINT\PRINT
986 IF K$="Y" GOTO 50
987 PRINT\PRINT\PRINT \IF F>F1 THEN 995
988 PRINT "TOO BAD! YOU LOST";F1-F;"DOLLARS AT THE EDUSYSTEM CASINO."
990 GOTO 998
995 PRINT "NOT BAD! YOU WON";F-F1;"DOLLARS AT THE EDUSYSTEM CASINO."
998 PRINT\PRINT "HOPE YOU ENJOYED YOURSELF.  THANKS FOR PLAYING."
999 END
5  REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC
10 PRINT" UN"
20 PRINT"BUN                                          BUNNYB"
30 PRINT"BUNNYB                                     NYBUNNYBUN"
40 PRINT"BUNNYBUN                                 UNNYBUNNYBUN"
50 PRINT" UNNYBUNNY                           NNYBUNNYBUNNYB"
60 PRINT"  NNYBUNNYBU                        UNNYBUNNYBUNNYB"
70 PRINT"   NYBUNNYBUNN                    YBUNNYBUNNYBUNNY"
80 PRINT"    YBUNNYBUNNY                 NNYBUNNYBUNNYBUNN"
90 PRINT"     BUNNYBUNNYB               UNNYBUNNYBUNNYBUN"
100PRINT"      UNNYBUNNYBU             BUNNYBUNNYBUNNYB"
110PRINT"       NNYBUNNYBUN           YBUNNYBUNNYBUNNY"
120PRINT"        NYBUNNYBUNNY        NYBUNNYBUNNYBUNN"
130PRINT"         YBUNNYBUNNYB      NNYBUNNYBUNNYBU"
140PRINT"          BUNNYBUNNYBU    UNNYBUNNYBUNNYB"
150PRINT"           UNNYBUNNYBUN  BUNNYBUNNYBUNN"
160PRINT"            NNYBUNNYBUN YBUNNYBUNNYBU"
170PRINT"             NYBUNNYBUNNYBUNNYBUNNY"
180PRINT"              YBUNNYBUNNYBUNNYBUNN"
190PRINT"               BUNNYBUNNYBUNNYBU"
200PRINT"                 NNYBUNNYBUNNY"
210PRINT"                  NYBUNNYBUN"
220PRINT"                   YBUNNYBU"
230PRINT"                UNNYBUNNYBUNN"
240PRINT"             NYBUNNYBUNNYBUNNYB"
250PRINT"           UNNYBUNNYBUNNYBUNNYBU"
260PRINT"          BUNNYBUNNYBUNNYBUNNYBUN"
270PRINT"        NYBUNNYBUNNYBUNNYBUNNYBUNN"
280PRINT"       NNYBUNNYBUNNYBUNNYBUNNYBUNNY"
290PRINT"      UNNYBUNN  UNNYBUNNYBUNNYBUNNY"
300PRINT"     BUNNYBUN   UNNYBUNNYBUNNYBUNNYB"
310PRINT"    YBUNNYBUN   UNNYBUNNYBUNNYBUNNYB"
320PRINT"   NYBUNNYBUN  BUNNYBUNNYBUNNYBUNNYB"
330PRINT"  NNYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNYB"
340PRINT" UNNYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNYB"
350PRINT"  NNYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNY"
360PRINT"   NYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNY"
370PRINT"    YBUNNYBUNNYBUNNYBUNNYBUNNYBUNN"
380PRINT"      UNNYBUNNYBUNNYBUNNYBUNNYBUNN"
390PRINT"          BUNNYBUNNYBUNNYBUNNYBUN Y"
400PRINT"              YBUN YBUNNYB  NYBU   B"
410PRINT"               BUNNY   NYBUNNYB     U"
420PRINT"              YBUNN  U  YBUNNYB      N"
430PRINT"             NYBUNN    NYBUNNY   NYBUNN"
440PRINT"            NNYBUNNYBUNNYBUNNY UNN"
450PRINT"           UNN   N Y  N YBUNNYBU"
460PRINT"          BU     NN   N Y    Y"
470PRINT"                      NN  UNNY"
480PRINT"                           NNY"
490PRINT"                            NY"
500 END
50  REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC
100 REM VALUES FOR 1974: SEE NOTES
110 REM
115 DIM M(12)
120 FOR I=1 TO 6\PRINT\NEXT I
125 REM 1974 STARTS ON TUESDAY.(0=SUN.,-1=MON.,-2=TUE...)
130 D=-2
140 S=0
150 REM: READ DAYS OF EACH MONTH
160 FOR N=0 TO 12 \ READ M(N) \ NEXT N
170 REM *****************************
180 FOR N=1 TO 12
190 PRINT \ PRINT \ S=S+M(N-1)
200 PRINT "**";S;TAB(7);
210 FOR I=1 TO 18 \ PRINT "*"; \ NEXT I
220 IF N=2 GOTO 240\IF N=3 GOTO 250\IF N=4 GOTO 260
221 IF N=5 GOTO 270\IF N=6 GOTO 280\IF N=7 GOTO 290
222 IF N=8 GOTO 300\ IF N=9 GOTO 310\ IF N=10 GOTO 320
223 IF N=11 GOTO 330\ IF N=12 GOTO 340
230 PRINT " JANUARY "; \GOTO 350
240 PRINT " FEBRUARY"; \GOTO 350
250 PRINT "  MARCH  "; \GOTO 350
260 PRINT "  APRIL  "; \GOTO 350
270 PRINT "   MAY  "; \GOTO 350
280 PRINT "   JUNE  "; \GOTO 350
290 PRINT "   JULY  "; \GOTO 350
300 PRINT "  AUGUST "; \GOTO 350
310 PRINT "SEPTEMBER"; \GOTO 350
320 PRINT " OCTOBER "; \GOTO 350
330 PRINT " NOVEMBER"; \GOTO 350
340 PRINT " DECEMBER";
350 FOR I=1 TO 18 \ PRINT "*"; \ NEXT I
360 PRINT 365-S;"**";
370 REM  (366-S;      ON LEAP YEARS)
380 PRINT\PRINT\PRINT "    S       M       T       W";
390 PRINT "       T       F       S"
400 PRINT
410 FOR I=1 TO 59 \ PRINT "*"; \ NEXT I
420 REM *********************************
430 FOR W=1 TO 6
440 PRINT\PRINT
450 PRINT TAB(4);
460 REM *********************************
470 FOR G=1 TO 7
480 D=D+1
490 D2=D-S
500 IF D2>M(N) THEN 580
510 IF D2=<0 GOTO 520\PRINT D2;
520 PRINT TAB(4+8*G);
530 NEXT G
540 REM *********************************
550 IF D2=M(N) THEN 590
560 NEXT W
570 REM *********************************
580 D=D-G
590 NEXT N
600 REM *********************************
610 FOR I=1 TO 6\PRINT\NEXT I
620 DATA 0,31,28,31,30,31,30,31,31,30,31,30,31
630 REM  (0,31,29, ..., ON LEAP YEARS)
640 END
50 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC
100 PRINT"  THIS PROGRAM WILL PLAY CHECKERS.  THE COMPUTER IS X,"
200 PRINT"AND YOU ARE O. THE COMPUTER WILL GO FIRST,-NOTE: SQUARES"
300 PRINT"ARE IN THE FORM-(X,Y) AND SQ. 1,1 IS THE BOTTOM LEFT!"
400 PRINT"DO NOT ATTEMPT A DOUBLE JUMP OR YOUR PIECE MIGHT JUST "
500 PRINT"DISAPPEAR(SAME FOR A TRIPLE!)"
600 PRINT"     WAIT FOR THE COMP. TO MOVE!!!!!"
700 LET G=-1
800 DIM R(50)
900 LET L=-1
1000 DIM S(10,10)
1100 DATA 1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0,-1,15
1200 FOR X=1 TO 8
1300 FOR Y=1 TO 8
1400 READ J
1500 IF J=15 THEN 1800
1600 LET S(X,Y)=J
1700 GOTO 2000
1800 RESTORE
1900 READ S(X,Y)
2000 NEXT Y
2100 NEXT X
2200 REM
2300 LET L=-1*L
2400 FOR X=1 TO 8
2500 FOR Y=1 TO 8
2600 IF S(X,Y)=0 THEN 3500
2700 IF G>0 THEN 3000
2800 IF S(X,Y)>0 THEN 3500
2900 GOTO 3100
3000 IF S(X,Y)<0 THEN 3500
3100 IF ABS(S(X,Y))<>1 THEN 3300
3200 GOSUB 4300
3300 IF ABS(S(X,Y))<>2 THEN 3500
3400 GOSUB 6500
3500 IF X<>8 THEN 3800
3600 IF L=1 THEN 3800
3700 RETURN
3800 NEXT Y
3900 NEXT X
4000 PRINT
4100 GOSUB 11400
4200 GOTO 2300
4300 FOR A=-1 TO 1 STEP 2
4400 LET U=X+A
4500 LET V=Y+G
4600 IF U<1 THEN 6300
4700 IF U>8 THEN 6300
4800 IF V<1 THEN 6300
4900 IF V>8 THEN 6300
5000 IF S(U,V)<>0 THEN 5300
5100 GOSUB 9100
5200 GOTO 6300
5300 IF S(U,V)=G THEN 6300
5400 IF S(U,V)=2*G THEN 6300
5500 LET U=U+A
5600 LET V=V+G
5700 IF U<1 THEN 6300
5800 IF U>8 THEN 6300
5900 IF V<1 THEN 6300
6000 IF V>8 THEN 6300
6100 IF S(U,V)<>0 THEN 6300
6200 GOSUB 9100
6300 NEXT A
6400 RETURN
6500 REM KING MOVES
6600 FOR A=-1 TO 1 STEP 2
6700 FOR B=-1 TO 1 STEP 2
6800 LET U=X+A
6900 LET V=Y+B
7000 IF U<1 THEN 8700
7100 IF U>8 THEN 8700
7200 IF V<1 THEN 8700
7300 IF V>8 THEN 8700
7400 IF S(U,V)<>0 THEN 7700
7500 GOSUB 9100
7600 GOTO 8700
7700 IF S(U,V)=G THEN 8700
7800 IF S(U,V)=2*G THEN 8700
7900 LET U=U+A
8000 LET V=V+B
8100 IF U<1 THEN 8700
8200 IF U>8 THEN 8700
8300 IF V<1 THEN 8700
8400 IF V>8 THEN 8700
8500 IF S(U,V)<>0 THEN 8700
8600 GOSUB 9100
8700 NEXT B
8800 NEXT A
8900 RETURN
9000 GOTO 14200
9100 REM
9200 LET P=P+1
9300 IF P=K THEN 12300
9400 IF V<>(4.5+(3.5*G)) THEN 9600
9500 LET Q=Q+2
9600 IF X<>(4.5-(3.5*G)) THEN 9800
9700 LET Q=Q-2
9800 REM
9900 IF U<>1 THEN 10100
10000 LET Q=Q+1
10100 IF U<>8 THEN 10300
10200 LET Q=Q+1
10300 FOR C=-1 TO 1 STEP 2
10400 IF S(U+C,V+G)<1 THEN 10800
10500 LET Q=Q-1
10600 IF S(U-C,V-G)<>0 THEN 10800
10700 LET Q=Q-1
10800 REM THIS WAS THE EVALUATION SECTION
10900 REM
11000 NEXT C
11100 LET R(P)=Q
11200 LET Q=0
11300 RETURN
11400 IF P=0 THEN 18800
11500 FOR J=10 TO -10 STEP -1
11600 FOR F=1 TO P
11700 IF R(F)=J THEN 12000
11800 NEXT F
11900 NEXT J
12000 LET K=F+P
12100 GOSUB 2300
12200 RETURN
12300 PRINT"  I MOVE FROM (";X;Y;") TO (";U;V;")"
12400 LET F=0
12500 LET P=0
12600 LET K=0
12700 IF V<>(4.5+(3.5*G)) THEN 13000
12800 LET S(U,V)=2*G
12900 GOTO 13100
13000 LET S(U,V)=S(X,Y)
13100 LET S(X,Y)=0
13200 IF ABS(X-U)<>2 THEN 13400
13300 LET S((X+U)/2,(Y+V)/2)=0
13400 PRINT"BOARD";
13500 INPUT D$
13600 IF D$<>"YES" THEN 13900
13700 GOSUB 14100
13800 RETURN
13900 GOSUB 15800
14000 RETURN
14100 PRINT
14200 FOR Y=8 TO 1 STEP -1
14300 FOR X=1 TO 8
14400 LET I=2*X
14500 IF S(X,Y)<>0 THEN 14700
14600 PRINT TAB (I);".";
14700 IF S(X,Y)<>1 THEN 14900
14800 PRINT TAB(I);"O";
14900 IF S(X,Y)<>-1 THEN 15100
15000 PRINT TAB(I);"X";
15100 IF S(X,Y)<>-2 THEN 15300
15200 PRINT TAB(I);"X";TAB(I);"*";
15300 IF S(X,Y)<>2 THEN 15500
15400 PRINT TAB(I);"O";TAB(I);"*";
15500 NEXT X
15600 PRINT
15700 NEXT Y
15800 PRINT
15900 PRINT"FROM";
16000 INPUT E,H
16100 LET X=E
16200 LET Y=H
16300 IF S(X,Y)<>0 THEN 16700
16400 PRINT "THERE IS NO ONE OCCUPING THAT SPACE"
16500 PRINT
16600 GOTO 15900
16700 PRINT"TO";
16800 INPUT A,B
16900 LET X=A
17000 LET Y=B
17100 IF S(X,Y)=0 THEN 17500
17200 PRINT "THAT SPACE IS ALREADY OCCUPIED"
17300 PRINT
17400 GOTO 16700
17500 LET S(A,B)=S(E,H)
17600 LET S(A,B)=S(E,H)
17700 LET S(E,H)=0
17800 LET T=(4.5-(3.5*G))
17900 IF ABS(E-A)<>2 THEN 18100
18000 LET S((E+A)/2,(H+B)/2)=0
18100 IF B<>T THEN 18300
18200 LET S(A,B)=-2*G
18300 FOR X=8 TO 8
18400 FOR Y=8 TO 8
18500 RETURN
18600 NEXT Y
18700 NEXT X
18800 PRINT"   VERY GOOD,  YOU WIN!"
18900 PRINT
19000 PRINT
19100 PRINT "                     -CHUCK OUT"
19200 END
1 PRINT "CRAP GAME"
2 PRINT "WITH THE COMPUTER AS YOUR OPPONENT. THE RULES ARE SIMPLE:"
3 PRINT "   *A 7 OR 11 ON THE FIRST ROLL WINS" 
4 PRINT "   *A 2, 3, OR 12 ON THE FIRST ROLL LOSES"
5 PRINT
6 PRINT "ANY OTHER NUMBER ROLLED BECOMES YOUR 'POINT' . YOU CONTINUE"
7 PRINT "TO ROLL...IF YOU GET YOUR POINT, YOU WIN. IF YOU ROLL A 7," 
8 PRINT "YOU LOSE. THE DICE CHANGE HANDS WHEN THIS HAPPENS." 
9 PRINT
10 PRINT
11 PRINT "WHAT NUMBER BETWEEN 1 AND 711 IS LUCKY FOR YOU TODAY";
12 INPUT N
13 FOR I = 1 TO N 
14 LET X =RND(I)
15 NEXT I 
16 LET Z=5*INT(10+11*RND(I))
17 PRINT "SPLENDID.....YOU ARE GIVEN ";Z;"DOLLARS TO PLAY WITH."
18 PRINT
19 PRINT
20 REM IF N IS EVEN 'YOU' ROLL FIRST, IF N IS ODD 'I' ROLL FIRST. 
21 IF N-2*INT(N/2)=0 THEN 27
22 LET W=-1 
23 PRINT "I'LL ROLL FIRST....." 
24 PRINT
25 PRINT
26 GOTO 31
27 LET W=1
28 PRINT "YOU ROLL FIRST....."
29 PRINT
30 PRINT
31 LET Q=0
32 PRINT "HOW MUCH DO YOU BET ($$) "; 
33 INPUT B
34 PRINT "OK....."
35 PRINT
36 IF B=INT(B) THEN 40
37 PRINT
38 PRINT "NO COINS PERMITTED..JUST BILLS, PLEASE!"
39 GOTO 32 
40 IF B=0 THEN 108
41 IF B<Z+1 THEN 44 
42 PRINT "DON'T TRY TO BET MORE THAN YOU HAVE, PLEASE!!"
43 GOTO 32
44 LET D1=INT(6*RND(1)+1) 
45 LET D2=INT(6*RND(2)+1) 
46 LET Q=Q+1
47 LET S=D1+D2
48 IF W>0 THEN 51 
49 PRINT "  I ROLL";D1;"AND";D2;
50 GOTO 52
51 PRINT "YOU ROLL";D1;"AND";D2;
52 IF Q<>1 THEN 84
53 IF (S-2)*(S-3)*(S-12)=0 THEN 62
54 IF (S-7)*(S-11)=0 THEN 69
55 IF W>0 THEN 58 
56 PRINT "SO MY POINT IS";S;
57 GOTO 59
58 PRINT "SO YOUR POINT IS";S;
59 PRINT ".....LET'S ROLL 'EM AGAIN....." 
60 LET P=S
61 GOTO 44
62 PRINT "AND CRAP OUT..."
63 LET C=1
64 IF W>0 THEN 67 
65 LET Z=Z+B
66 GOTO 75
67 LET Z=Z-B
68 GOTO 75
69 PRINT "AND PASS....."
70 LET C=1
71 IF W>0 THEN 74 
72 LET Z=Z-B
73 GOTO 75
74 LET Z=Z+B
75 PRINT
76 IF Z<1 THEN 104
77 PRINT "YOU NOW HAVE ";Z;"DOLLARS LEFT....."
78 IF C>0 THEN 81 
79 PRINT "CHANGE DICE NOW....." 
80 PRINT
81 LET W=W*C
82 LET Q=0
83 GOTO 32
84 IF S<>7 THEN 92
85 PRINT "AND LOSE....."
86 LET C=-1 
87 IF W>0 THEN 90 
88 LET Z=Z+B
89 GOTO 75
90 LET Z=Z-B
91 GOTO 75
92 IF S=P THEN 95 
93 PRINT "...ROLL AGAIN....." 
94 GOTO 44
95 IF W>0 THEN 100
96 PRINT "AND MAKE MY POINT....." 
97 LET C=1
98 LET Z=Z-B
99 GOTO 75
100 PRINT "AND MAKE YOUR POINT....." 
101 LET C=1
102 LET Z=Z+B
103 GOTO 75
104 PRINT
105 PRINT "YOU HAVE RUN OUT OF MONEY....SORRY ABOUT THAT....." 
106 PRINT "THANKS FOR THE GAME.....BETTER LUCK NEXT TIME, PARDNER!"
107 GOTO 110 
108 PRINT "THANKS FOR THE GAME.....AND CONGRATULATIONS"
109 PRINT "FOR BEING ABLE TO QUIT WHILE YOU WERE AHEAD." 
110 END
10 DIM F(12)
20 REM DANNY FREIDUS
25 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC
30 PRINT "THIS PROGRAM SIMULATES THE ROLLING OF A"
40 PRINT "PAIR OF DICE."
50 PRINT "YOU ENTER THE NUMBER OF TIMES YOU WANT THE COMPUTER"
60 PRINT "TO 'ROLL' THE DICE.  WATCH OUT, VERY LARGE NUMBERS TAKE"
70 PRINT "A LONG TINE, IN PARTICULAR, NUMBERS OVER 5000."
80 FOR Q=1 TO 12
90 F(Q)=0
100 NEXT Q
110 PRINT\PRINT "HOW MANY ROLLS";
120 INPUT X
130 FOR S=1 TO X
140 A=INT(6*RND(0)+1)
150 B=INT(6*RND(0)+1)
160 R=A+B
170 F(R)=F(R)+1
180 NEXT S
185 PRINT
190 PRINT "TOTAL SPOTS", "NUMBER OF TIMES"
200 FOR Y=2 TO 12
210 PRINT Y,F(Y)
220 NEXT Y
222 PRINT\PRINT "TRY AGAIN";
223 INPUT Z$
224 IF Z$="YES" THEN 80
240 END
10 PRINT "THIS IS A DEMONSTRATION OF PDP-11 BASIC"
20 PRINT "IF YOU NEED INSTRUCTIONS FOR PLAYING FOOTBALL, TYPE A 1";
30 INPUT I
40 IF I<>1 THEN 340
50 PRINT
60 PRINT
70 PRINT "WHEN IT ASKS YOU A QUESTION TO BE ANSWERED YES OR"
80 PRINT "NO, TYPE IN 0 FOR NO OR 1 FOR YES." 
90 PRINT
100 PRINT "ON OFFENSE YOU HAVE THE FOLLOWING PERMITTED PLAYS:" 
110 PRINT "PLAY","CODE"
120 PRINT "RUN","10" 
130 PRINT "PASS","11"
140 PRINT "SWEEP","12" 
150 PRINT "SCREEN PASS","13" 
160 PRINT "LONG PASS","14" 
170 PRINT "DRAW PLAY","15" 
180 PRINT "PUNT","16"
190 PRINT "FIELDGOAL","17" 
200 PRINT
210 PRINT "ON DEFENSE, YOU MAY TRY ONE OF THE FOLLOWING:"
220 PRINT "DEFENSE","CODE" 
230 PRINT "NORMAL","4","GOOD AGAINST SWEEP AND SCREEN" 
240 PRINT "HOLD","5","GOOD AGAINST RUN, PASS AND DRAW" 
250 PRINT "BLITZ","6","GOOD AGAINST PASS OR LONG PASS" 
260 PRINT "INTERCEPT","7","INCREASES THE ODDS FOR AN INTERCEPTION" 
270 PRINT "BLOCK","8","GIVES YOU A CHANCE TO BLOCK A KICK,"
280 PRINT " "," ","BUT DECREASES THE DISTANCE RUNBACK."
290 PRINT
300 PRINT "TO CALL A PARTICULAR PLAY JUST TYPE ITS CODE NUMBER." 
310 PRINT "ALSO, AT ANY TIME DURING PLAY YOU MAY CALL TIME OUT"
320 PRINT "BY TYPING A '2'.  HOWEVER YOU ARE PERMITTED ONLY THREE" 
330 PRINT "TIMEOUTS PER HALF." 
340 PRINT
350 PRINT
360 DEF FNT(X)=SIN(X)/COS(X)
370 DIM R(17)
380 FOR I=0 TO 17
390 READ R(I)
400 NEXT I 
410 DATA 9,13,100,0,9,10,12,11,12,0,1,5,3,4,6,2,8,7
420 RANDOMIZE
430 LET F=0
440 LET Z3=0
450 LET O=0
460 LET L=0
470 DIM Z(5,3),P(2),D(2,5) 
480 FOR A=0 TO 5 
490 FOR B=0 TO 2 
500 READ Z(A,B),D(B,A) 
505 LET P(B)=0
510 NEXT B 
520 READ Z(A,3)
530 NEXT A 
540 PRINT "DO YOU WANT TO RECEIVE";
550 LET X=1
560 GOSUB 3610
570 LET S=2-SGN(13-Q)
580 LET K=S
590 LET T1=120 
600 LET U2=3 
610 LET U=3
620 LET C=900
630 GOSUB 2250
640 LET F1=50
650 LET B=INT(F1+O*20*RND(0)+(1-O)*29*(2-RND(0)^7-RND(0)^(3-Z2)))
660 LET O=0
670 LET Z9=8 
680 GOSUB 1490
690 LET L=0
700 IF B<=99 THEN 2340
710 PRINT "A  TOUCHBACK" 
720 LET B=20 
730 LET L=0
740 IF S=2 THEN 770
750 PRINT "MY "; 
760 GOTO 780
770 PRINT "YOUR "; 
780 GOSUB 3290
790 GOSUB 2980
800 LET D=1
810 LET F2=.03 
820 LET O=0
830 IF C<=0 THEN 2770
840 GOSUB 2530
850 LET Z2=1 
860 LET Z3=.3
870 IF C<=F*T1 THEN 2920
880 IF C<=0 THEN 2770
890 IF L=0 THEN 910
900 PRINT "TIME TO GO--";
910 PRINT INT(C/60);"MIN,";C-60*INT(C/60);"SEC.  ";
920 PRINT "YOUR PLAY"; 
930 GOSUB 3610
940 IF S=1 THEN 980
950 IF Q>8 THEN 920
960 LET M=Q
970 GOTO 1000
980 LET Y=Q-8
990 IF ABS(Q-10.5)^2>3 THEN 920
1000 LET C=INT(C-L*(5+23*RND(X))) 
1010 LET L=1
1020 IF M=7 THEN 1760
1030 IF M=8 THEN 1920
1040 LET Y1=Y-1 
1050 IF RND(X)>Z(M-1,Y1) THEN 1240
1060 LET A=2
1070 GOSUB 3020
1080 IF M<4 THEN 1110
1090 PRINT "PASS COMPLETE.."; 
1100 LET L=SGN(INT(4*RND(0))) 
1110 IF RND(X)<F2 THEN 2510
1120 IF G>0 THEN 1210
1130 IF G=0 THEN 1170
1140 IF G+B<1 THEN 2170
1150 PRINT "LOSS OF";-G;
1160 GOTO 1610
1170 PRINT "NO GAIN"
1180 LET Z9=2 
1190 GOSUB 1490
1200 GOTO 1670
1210 IF B+G>99 THEN 1650
1220 PRINT "GAIN OF";G; 
1230 GOTO 1610
1240 IF M>3 THEN 1280
1250 LET A=1
1260 GOSUB 3020
1270 GOTO 1120
1280 IF RND(X)<.06*(2-SGN(Y-3)) THEN 1360
1290 IF RND(0)<.05+INT(Y/3.5)/5 THEN 1510
1300 LET Z9=6 
1310 GOSUB 1490
1320 PRINT "PASS INCOMPLETE"
1330 LET L=0
1340 LET G=0
1350 GOTO 3120
1360 PRINT "PASS **INTERCEPTED**";
1370 LET A=1
1380 GOSUB 3020
1390 IF B<40 THEN 1410
1400 LET G=20*(1+SGN(G))
1410 LET B=100-B-G
1420 LET S=3-S
1430 LET Z9=9 
1440 GOSUB 1490
1450 IF B<1 THEN 710
1460 IF B>99 THEN 1650
1470 PRINT "AT "; 
1480 GOTO 2360
1490 LET C=C-INT(4+Z9/2*(1+RND(0))) 
1500 RETURN 
1510 LET G=-(5+INT(10*RND(X)))
1520 PRINT "THE QUARTERBACK ";
1530 IF RND(X)>.5 THEN 1560
1540 PR

Note: Lines longer than 256 characters were wrapped
Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with. I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation.

PDP-8 Home Page PDP-8 Site Map PDP-8 Site Search