File EDU15.SY (system heads for building new disk)

Directory of image this file is from
This file as a plain text file

J-	H7\9$!IA\:,$C8H(9ZH^>XA"><A>T>YKVL4LFLNL+L/BBMA]L4MLH/JH9F!B>H/G
FAA]FFE^EH>G?%?&?.?0?1?3?4?8N=?G?HHAHBHCF5?$5UM9ARA?BJB
?2!**>0?6??!?=?%4182A40!)^0&:-]A;AAQ%>,$WHAT?

C
?K6HY$%IO$%-/L+>()<I>X%: !/-5MPYCNX>RIC9!H>>P*SL><(*Q]CP>QC*J]C.H>X<L<>(*ZP<*U;ICH<81H3H>>P**$RB%,&
NO ROOM
H>8!ICH<YCH<8 H>X>L<]C: H<X<: ICYCP>*3.YBYAIB9HL9YKMK<X+K8J8J8JA.IW<(X=IY9HYK<P.>IA9D=X+$8DIA=X+$8DIK<X+$YAQB+A:$RC(,&LINE NO. TOO BIG
NEW:A\+,$X%UHW$U$$P?0N\2\0$RC1"L,$$RG)\0"L.KLYYI$RE9"UJ""?=.L$^: H=X=J"YLJ!$	QL*\.U ?4XJH4XINYKRLI\JQK**.T-"6F4"6F"6FU$PF??MN6Z6.6$PF??D,$"UH1"?:,$YKDD0I+RYEHX0N/HQK+JH[XSQ$IE>(,\YE0Y+[,&X?H=IT?H+	$RI//8H=9HH5YK<X+4H?9F8F8F]KP=/^MKAVH?+1JA FILE NAME--T,HZ
%$RM60ZYD$^H5Z5$!IB>(,"IH9!IA>XIIH2Z5IAYH$!IA9!IH>(*?<P*0"!*WN5<(*0AVIR>(*,N5A.IWR5> *".!NIL8!J5$XH5[KOK^5R5SKQL*8*FJ5YJ"!J5[KIJZ5H=8A9HIJ$XN*6J5I\YIH=<(*F918HYL/N;XL,\,,$\2,$!5!/L7I[>(/
$R?5/
OLDH(XS0LQGQEH&X"Y$,&[Z: Y,,(I+>(+TKZ0&\,T1*H$RH*L1J(<($T?(*YLI]CQC*N\2\-\0\+\:: ]QJ!\1,$?	?/*NONE*  EDU BASIC




I/O ERROR$PB??L$X$PB??B-K$RA),&QD*?$H8\9$!IAYH2\9$!I9!IA>X+N$ +FL9[XID>(+VKZX%0V:A$R,$I[0Q+\0V:/[!5$U$PN?;BD	.$QN??BD$T,$NA
LINE TOO LONG
 DELETED
K%X3KXJ4FHX=\7\8$SX;H=> *MH;KG>(+LH;AN<(+LKT< *XIG> *D*(8A< 8A< HM< *%IG> *A$RI7*AHN< */: H==H:X=I-+KIM< *=I,$	I%A$> !/L5IR>(*A.K?<(*DKU9I.>P+JH;A.= $	+LKSX;I%A$>(*DH;$%*DBG>A>+FEYEOVYKSV0ZMK8J8J8J.MK.QK0Y+\0\ANIX> +[!/YE/VKA.<(+,IW< +:!/IE> +/.=HHOIP$%/.
$U$PN?<A7.BMQZK$PN?(
.FV8!]QMQZV$QN?(
.N"!BA"!B,"!D"!EO?=$PB?<HN!Z!.!"!CY$QF?>J$PB?<B,$JE9ISYF\*IXZ!IFS&<H840Y+DYF0^.4T**<R!*<YFIG>(*8H]X"YG,$66:61+S/PK5XLLL> +YHLIZ8F8F8FA,/VV&,$]/IUS:=+	K<YLK:K;$%IL$%!/[:/&M?
READY
B/B:$G0 REM FLAECHENPROBLEM\PRINT"FLAECHEN";
020 PRINT "BERECHNUNG DER GE.Y=X^4+3X^2"
030 PRINT "MIT DEN GRENZEN A=8 B=12"
035 PRINT \PRINT\READE,A,B,X
040 FOR N=2TOE\ LETH=(B-A)/N\LETY=0 
070 FOR Z=1TON-1
075 LET Y=(A+Z*H)^4+3*(A+Z*H)^2 
080 NEXT Z\LETU=H*(A^4+3*A^2+Y) 
090 LET O=H*(B^4+3*B^2+Y)\LETD=O-U
100 IF D<XTHEN800\
110 PRINT TAB(5);"OBERSUMME";TAB(20);"UNTE";
120 PRINT "RSUMME";TAB(35);"DIFFERENZ"
130 PRINT TAB(9);O;TAB(25);U;TAB(40);D
140 PRINT \PRINT\NEXTN\GOTO999
800 PRINT "DER FEHLER IST <1E-6:ABBRUCH"
900 DATA 20,8,12,1E-6 
999 END 
 FLICK
CLAUDIA GREB
MARTIN HAEBEL 
MARTIN HAEBEL 
KL.HAEBEL 
JOHANNES GRAEF
THOMAS SCHMIDT
CARMEN FLICK
CLAUDIA GREB
GREB CLAUDIA
THOMAS HOFMANN 450
JOHANNES GRAEF BUBI 
JOHANNES GRAEF
CANZW?>O]G>YN
7<4CPN
]<BY&Y&CT?-P1/]DXDPETETDPDX?-P1/]A=H+89F8F8DAHJZZYK1XHLH*[* +S+S+S+S	WLH<(+XYK-2HY	XLH<(*1XYK/2HY	XK.*?ZLHZLHZ+	X+XYKV	WHY2O1A,HXXYK52K,?H+DLY8AZ	YKU[,K1K0[1*F:+O?2FN\G\%]XYK+XHY8F8DXYHY8DAHK*2P+^/Z0?<(),D	7S, /2]S:	Y	Y/<8B B B B B B B B2B9B8CMCMCEB B B B
B CDCICFCFCECRCECNCZBMBJB B B **J*JI0Y*$I;X0\".0^C?.=U8*40&0!*2P18Q"*:0&+C[,<H$AI"H.>(*<K,^";AJ"C"J Z"..*=0!+[: I"Y"J!8AC"J Z!I"?H+ZN!0&>H0"0Y/I0\C?K+> /I
: ]36A72S*+Y-:?=B2Q,<H%1LNXULNXV: HV>(%$LNXW$4,(%]HW$D)?<D%$1=NBX]L]<(*MZL$E8?=A&RB.BG	HHX\: JOXH,(PIHPX9$G06,IHW>(HU=(--H&? --HVYF%]%
HV8!IF>(./--1DB2B8B9B0B,B3B2B5B8B7B.B3B7B5B0B0B,B2B0B0B0B0B0B0)."
600 GOTO 990
610 IF W>60 THEN 660
620 PRINT "MASCHINENSCHADEN! SIE MUESSEN LEIDER AUF ;3;K%X3XXXNBI8!BXPJFHPXPN9F8F-J$Z"<P*YLPXPRLPXYHPXKLKXZLKX[.%A?.%/S/A//
3C.-.4/QHYXUHZXVH[XW,3HU\PPPHV\PPPHW\P,3H(X3.$5	&		$)PY>HXHX8DH[HWXW8DHZHVXV$4,3HP-<(*=K[[Y	\,3	[09AF:AHYHUXU/$2Q.D0N05$G5TC06-TB(6,(,H:$E8??A)K2/5<L B<I AT</Z;H91X8DHW81XW8DHV81XV./BHV>(.,HZ>(,3"/<(.N=8!Z.J.J-?*"/?H.,,3"/?HKCJ4Z("5R.*(.N.-X?
0VHY8!HU./"5/C9HZ=H8P8HXZH[8HX[HX8HXX.5A4$G,I%]HW=H81Y*8J8HK![\$G/.5TI*<(,(9HY*<P+
$GX65T$G(6X606-T+T<L8F<P<I8C<C<HC$CXWXV%
,(S:$E<??^/:<%!9>/6<D%$/D;HV=H9P8HXVHW8HXWH8HX9PU8.;K [H[XSHW$*:HTXHVXSH[$*HX8DHT[,8D[-HZXSHW$*HX8DHTK,[,8DK-[-HVXSHZ$*K,XW8DHTK-XV$4XS+,3%U,3HZ> +J%$;(XZKFHY8!HU8AXUK2[%	HZ>X8AX[XZS+%U/Z/B2T[%;$[+HV?+$%US+HZ?/[$5S+8/[??O(<L8C<C<?HQ,<H%1HU\NHV\NHW\NQ+)? 9
(/A;HX91XX8DH[81X[8DHZ81XZ.27Z%XTJ$Z&9J%8HZ%HT<P*\9HS8HXTR&*TJ%8H9.N?4 =9H	Z&X"*3HW8DXWHV8DXVH[HWXS8DHVHZ<P*>XVHSXW:H"8DX"H8DXR&*-H"XWHV9FXTHXVXHT.	$G(6H9< +ZPJPJPJK"[^%  D<B C<F,(P% 0B0ETOO LONG.0B<F/;+HU=H:H	XUHU?//$)+56G%U: /:$%3C/R$A;[^HV?H%%Z	HV<(HW<
H>(*!HV9D?H*^H9DXHW8DXWHV8DXVS^*OK^8!HUXUXR	.%U.<DHV<(-^?*0%$%U$G06HU9=H8P8H<X8AXUKZXVXW$G3[(6[K[: HUXUHU8!K[> *>HV8!K\> *>HW8!K]=8!8A?H*>-^XMO]G> PLIXYLIXZLIX[O^[^XXX/^E?I\XUX$4/*:AG8> %$%!9>/7:A?0I(O=Y(,(?%=>AAI[$DKX]KMXF$CH,<(+HKN<(*[KL<(*I0<(*GI5\FPFP
*G%S*AKM9 HF>PPF: HF*F\FPF\FK+$DKMXFIX1.XUXVXWX]LFJ7<(+CI3= +EKO=H+E[Q$G[UKP>0P]PF*2:H].-KK$D*[
AR,0 IKAPDT[W58P9;<(/[8!X]$G[UP]+ /[=^9=H81Z8J8HK<[!K=B9J8H[;&K![!K=8 B[/&[X?8AIUII9X[%K%8D< *NIT?H*NH6$\?H: [$IFYMYOIY<(+[9D<X*\QO*W<(*-YYK$> + IM8 IOYOQMIY9D<P*\> +!IO9H<(+AS%<H+(K&Y^M^<X*<8J8J8J8<(+!$\.S$+!IW> + IU8TXIHI8DHIH*XIHII!?+ LI\,LI\-HYW: YT.S
<H.H6*?QRQSH7*?<U<:8DK	YMIU9H>PH4IMYMIT> + QTH6$\IW9H>X+5MM8J8H8I YXMM3918HYOIW9HH,Y]MX]]QXQ]QO*JMM3IWYW.U;0123456789ADGJMPSVY,BEHKNQTWZCFILORUX.[$?:]&!+(="\-)	*<;/>^=CASTA%A<%CEB]B3DKEBD\C\D.EKBKC/E\E.LETREADINPUTPRINTFORGOSUBGOTODIMCHAINENDWRITEDATAREST
REREMNEXTRETURNIFDEFSTOPRANDOM*C7<.Y;"T?9A.QNY[\RY<H$A2J.8+NH>EJTZY*[>H9XZXNY[)RYNY8!8BJX7=;RY*I>^2AO+2J.	?E2A
+2J.,;2JSX.72C+S<E=*>+2J+T2J.9?P7;*?7?2J.>?8 [(K(C[8!9DK(K[[[K(9 2J/D*A7<: [8*>T?=G.G7<KZXHK\XILI].K%LBN?????>*NONE*  EDU BASIC




N3J/^3V49P:ZKJN57<7;*I7?7;*L7?79*O7>9FB0J"<(*$J1> *O7?<XJ28 N48 <(**>8*O7>9F>X*E2B.6>X*EN3.7>BC<?0C?)?\?]>1>2AK&
!K	
"K(
K)
$K^7<79+C7>C
K\> +CKJ7<79+L7>C
K]> +L7;+S7?2B	 W$+S2B*?.?	X?; ;!;";;$
$2J/ ;,N57<;&
97>
:7?9DB.
;7?
<7?8H*E?X?Y?*?Z
,JS
-79*C7>B!K.> *CO/?*67>CG2B> *1">>K0O17<: 2B"9: 
22B"	2C"9W,?W-*\2B"9+\2B"92B"92B7:> *1O3JS<(+R
32J/42B">2B">2B">B!JK
22B">2BD2B",2AW,CW-*?2B">2BD2B">BK2BD+\2BD7;+V7=;2B*<:O29&8F8F2BD;O/8D:O2BK=P*+*	?+?,?&?ZL?Y?[?*<

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