File HP00.FT (FORTRAN source file)

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

C
C	TASCHENRECHNERSIMULATION
C	
C	VARIABLEN:NU    =NUMMER
C	          INHALT=FELDWERT
C	          IZ2   =ZAHL2
C	          Z1    =ZAHL1
C	          MOP   =OPERATOR
C	          IRF   =RECHENFELD
C                 IANT  =ANTWORT
C
	DIMENSION IRF(70)
	WRITE(1,10)
10	FORMAT('SIMULATION EINES TASCHENRECHNERS MIT DEN VIER ',
	1'GRUNDRECHENARTEN'/5X,'ADDITION  +',/5X,'SUBTRAKTION  -',
	2/,5X,'MULTIPLIKATION  *',/,5X,'DIVISION  /'//)
	WRITE(1,11)
11	FORMAT('JEDER EINGEGEBENE TERM MUSS MIT EINEM = -ZEICHEN BEE',
	1'NDET WERDEN'/)
C
C   EINGABE DER ZEICHENKETTE
C
1	READ(1,5)(IRF(K),K=1,70)
5	FORMAT('TERM EINGEBEN:'70A1)
	INHALT=0
	NU=1
C
C   UMWANDLUNG DER ERSTEN ZIFFERNKETTE IN EINE ZAHL
C
	CALL UMWA(IRF,NU,INHALT)
	Z1=FLOAT(INHALT)
C
C	FESTSTELLUNG DES OPERATIONSZEICHENS
C
160	IF(IRF(NU)+160)110,499,110
110	MOP=IRF(NU)
	MOP=(MOP+1050)/(-100)+1
	NU=NU+1
	CALL UMWA(IRF,NU,INHALT)
	IZ2=INHALT
C
C  DIE BEIDEN WERTE VON ZAHHL1 UND ZAHL2 
C   JE NACH OPERATIONSZEICHEN MITEINANDER VERKNUEPFEN
C
	GOTO (120,130,140,150),MOP
120	Z1=Z1/FLOAT(IZ2)
	GOTO 160
130	Z1=Z1-FLOAT(IZ2)
	GOTO 160
140	Z1=Z1+FLOAT(IZ2)
	GOTO 160
150	Z1=Z1*FLOAT(IZ2)
	GOTO 160
499	WRITE(1,500)Z1
500	FORMAT(F9.2)
	READ(1,510)IANT
510	FORMAT('WEITER? (J ODER N)'A1)
	IF(IANT-672)520,1,520
520	STOP
	END



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