$COMPILE EXE
REM Printing Calculator
REM Selbsttest
	color 15,0:print"���� Printing Calculator ����";:color 7,0
	print"    was written by"
	print"����   ���  ����   ���       ����  ���  ����"
	print"�   � �   �  �  � �   �     �     �   � �   �"
	print"����  �   �  ���� �   �     �     �   � ����"
	print"�  �  �   �  �  � �   �     �     �   � �"
	print"�   �  ���  ����   ���       ����  ���  �"
	print"I    N    D    U    S    T    R    I    E   S"
	print
	print"Teste PCALC.EXE auf Viren. Dieser Test kann bis zu 30sek dauern!"
	print
	print"Test auf Viren l�uft...";
	gosub CheckFile
	goto Start  'if sum=1744 then print"OK":goto Start
	   print"fehlgeschlagen"
	   color 14:print
	   print"Irgendetwas stimmt mit der Datei PCALC.EXE nicht!"
	   print"�berpr�fen Sie folgende Sachverhalte:"
	   print"  � Haben Sie sie nicht ver�ndert?"
	   print"  � Haben Sie sie nicht umbenannt (Diese Datei MU� PCALC.EXE heissen)?"
	   print"  � Haben Sie vielleicht einen Virus in Ihrem System?"
	   print
	   print"Wenn keiner dieser Sachverhalte zutrifft, dann fordern Sie eine"
	   print"neue PCALC.EXE bei Ihrer Bezugsquelle an!"
	   end
Start:
REM Aufbau des Tastenfeldes
	print"Aufbau der Textgrafik..."
	screen ,,1
	mstat$=" "
	tb=0
	color 15,0
	shell"loadfont <pcalc.fnt"
	locate 3,40:print"��������������Ŀ"
	locate 4,40:print"�� 88888888888.�"
	locate 5,40:print"����������������"
	locate 8,43:print"�����Ŀ �����Ŀ �����Ŀ"
	locate 9,43:print"������� ������� �������"
	locate 7,43:print"  TAB    P/ NP    OFF"
	color 3
	for x=11 to 20 step 3
	locate x,60:print"���Ŀ"
	locate x+2,60:print"�����"
	if x>=17 then color 12
	if x<17 then color 7
	locate x,26:print"���Ŀ"
	locate x+2,26:print"�����"
	color 3
	next x
	locate 12,60:print"� M�"
	locate 15,60:print"� M�"
	locate 18,60:print"� M�"
	locate 21,60:print"� M*�"
	color 7
	locate 12,26:print"� � �"
	locate 15,26:print"� % �"
	color 12
	locate 18,26:print"� CE�"
	locate 21,26:print"�ONC�"
	color 7
	locate 20,32:print"����Ŀ"
	locate 21,32:print"�  0 �"
	locate 22,32:print"������"
	for x=11 to 17 step 3
	locate x,33:print"���Ŀ"
	locate x+1,33:print"�";18-x;"�"
	locate x+2,33:print"�����"
	locate x,38:print"���Ŀ"
	locate x+1,38:print"�";19-x;"�"
	locate x+2,38:print"�����"
	locate x,43:print"���Ŀ"
	locate x+1,43:print"�";20-x;"�"
	locate x+2,43:print"�����"
	next x
	locate 20,38:print"���Ŀ"
	locate 21,38:print"� 00�"
	locate 22,38:print"�����"
	locate 20,43:print"���Ŀ"
	locate 21,43:print"� . �"
	locate 22,43:print"�����"
	for x=11 to 20 step 3
	locate x,54:print"���Ŀ"
	locate x+2,54:print"�����"
	if x<17 then
	  locate x,49:print"���Ŀ"
	  locate x+2,49:print"�����"
	end if
	next x
	locate 17,49:print"���Ŀ"
	locate 18,49:print"�   �"
	locate 19,49:print"� + �"
	locate 20,49:print"�   �"
	locate 21,49:print"�   �"
	locate 22,49:print"�����"
	locate 12,49:print"� x �"
	locate 15,49:print"� - �"
	locate 12,54:print"� \ �"
	locate 15,54:print"� = �"
	locate 18,54:print"�#/P�"
	locate 21,54:print"� * �"
	color 0,3:locate 24,1
	print"[ENTER]-*   M+-M�       M--M�   MO-M�            M[ENTER]-M*    ^-�             ";
	locate 25,1
	print"[TAB]-TAB   C-ON/C      X-CE    #-00    P-#/P    Q-P/NP         [ESC]-OFF       ";
	screen ,,1,1
	color 15,0
	locate 4,41:print"              "
	num$="0"
	gosub WriteN
REM Hauptroutine
1	a$=inkey$
	if a$="" then 1
	if a$="#" then a$="00"
	if a$=chr$(13) then goto Summe
	if a$="M" or a$="m" then goto Memory
	if A$="^" or a$="�" then lprint:goto 1
	if a$="q" or a$="Q" then goto SwitchPrint
	if a$="P" or a$="p" then goto PrintDisp
	if a$=chr$(7) then goto SwitchTAB
	if a$="c" or a$="C" then goto ReLaunch
	if a$="x" or A$="X" then locate 4,41:print"            ":num$="0":gosub WriteN:goto 1
	if a$=chr$(27) then end
	if num$="0" then num$=a$ else num$=num$+a$
	gosub WriteN
	goto 1



end

Summe:
Memory:
SwitchPrint:
SwitchTAB:
PrintDisp:
ReLaunch:
end



WriteN:
REM Ausw�hlen der Anzeigeart
	if tb=0 then gosub WriteNumb
	if tb=1 then gosub WriteNumb0
	if tb=2 then gosub WriteNumb2
	if tb=3 then gosub WriteNumb3
	if tb=4 then gosub WriteNumb4
	if tb=5 then gosub WriteNumbA
	return

WriteNumb:
REM Anzeigen der Zahl im Display (mstat$=Status des M/-/E & num=Zahl)
	color 15,0
	locate 4,41:print mstat$;" ";
	locate 4,42+(11-len(num$))
	if val(num$)=int(val(num$)) then prt$=num$+"." else prt$=num$+" "
	print prt$
	return


WriteNumb0:
REM Anzeigen der Zahl im Display (mstat$=Status des M/-/E & num=Zahl)mit TAB0
	color 15,0
	locate 4,41:print mstat$;:print using" ##########. ";num
	return

WriteNumb2:
REM Anzeigen der Zahl im Display (mstat$=Status des M/-/E & num=Zahl)mit TAB2
	color 15,0
	locate 4,41:print mstat$;:print using" ########.## ";num
	return

WriteNumb3:
REM Anzeigen der Zahl im Display (mstat$=Status des M/-/E & num=Zahl)mit TAB3
	color 15,0
	locate 4,41:print mstat$;:print using" #######.### ";num
	return

WriteNumb4:
REM Anzeigen der Zahl im Display (mstat$=Status des M/-/E & num=Zahl)mit TAB4
	color 15,0
	locate 4,41:print mstat$;:print using" ######.#### ";num
	return

WriteNumbA:
REM Anzeigen der Zahl im Display (mstat$=Status des M/-/E & num=Zahl)mit TABAUTO
	color 15,0
	locate 4,41:print mstat$;:print using" ########.## ";num
	return

PrintNumb:
REM Ausdrucken der Zahl im Display (oper$=Operator & num=Zahl
	lprint using"##########,. ";num;:lprint oper$
	return

CheckFile:
'	open "I",#1,"compiled\PCALC\PCALC.EXE"
'	for z=1 to 999999
'	  if eof(1) then exit for
'	  line input #1,lin$
'	  for x=1 to len(lin$)
'	    sum=sum+asc(mid$(lin$,x,1))
'	  next x
'	next z
'	close #1
	return